The following record layout, mapped by COBOL copybook member APCCIREQ, describes the input record layout for the Batch Interface.
****************** < Description Begin > ********************
* *
* Name : APCCIREQ *
* Product : PANAPT *
* Type : Cobol Copybook *
* *
* Descript. : Panapt batch interface input request 00 record. *020A*SYW
* *
* Notices : This module is part of the distributed source *
* code for PANAPT batch interface. *020A*SYW
* *
* Copyright (C) 1994, 1996 Computer Associates *030A*BAD
* International Inc. All rights reserved. *
* *
* This software is proprietary information and its *
* use by unauthorized persons is prohibited. *
* *
****************** < Description End > ********************
020A*BAD
020A*BAD
01 APCSIREQ-INPUT-REQUEST.
02 APCSIREQ-RECORD-LEN PIC 9(05) COMP. 030A*BAD
02 APCSIREQ-RECORD-TYPE PIC X(02) VALUE SPACE.
88 APCSIREQ-RECORD-IS-REQUEST VALUE '00'.
88 APCSIREQ-RECORD-IS-DESC VALUE '01'.
88 APCSIREQ-RECORD-IS-MBR VALUE '02'.
88 APCSIREQ-RECORD-IS-LIB3 VALUE '03'. 020A*SYW
88 APCSIREQ-RECORD-IS-DIB2 VALUE '04'. 020A*SYW
88 APCSIREQ-RECORD-IS-MSG VALUE '07'. 020A*SYW
88 APCSIREQ-RECORD-IS-CTL VALUE '08'. 020A*SYW
88 APCSIREQ-RECORD-IS-LMR VALUE '09'. 020A*SYW
88 APCSIREQ-RECORD-IS-MSL VALUE '10'. 020A*SYW
02 APCSIREQ-USER-ID PIC X(08) VALUE SPACE.
02 APCSIREQ-NUMBER PIC 9(06) VALUE ZERO.
020A*BAD
02 APCSIREQ-VERSION-STAMP PIC X(04) VALUE SPACE.
*
* APCSIREQ-VERSION-STAMP is in the format VV.R where VV is 020A*BAD
* the version and R is the release, as in 02.0. 020A*BAD
* You must filled in the version if you are constructing 020A*BAD
* a record for the batch interface program. 020A*BAD
*
020A*BAD
02 APCSIREQ-PROCESS PIC X(01) VALUE SPACE.
88 APCSIREQ-PROCESS-IS-ADD VALUE 'A'. 020A*SYW
88 APCSIREQ-PROCESS-IS-LLB VALUE 'B'. 020A*SYW
88 APCSIREQ-PROCESS-IS-CLO VALUE 'C'. 020A*SYW
88 APCSIREQ-PROCESS-IS-ENQ VALUE 'E'. 020A*SYW
88 APCSIREQ-PROCESS-IS-CHG VALUE 'G'. 020A*SYW
88 APCSIREQ-PROCESS-IS-LIV VALUE 'I'. 020A*SYW
88 APCSIREQ-PROCESS-IS-MSLLIB VALUE 'J'. 020A*SYW
88 APCSIREQ-PROCESS-IS-MSLINV VALUE 'K'. 020A*SYW
88 APCSIREQ-PROCESS-IS-LMR VALUE 'L'. 020A*SYW
88 APCSIREQ-PROCESS-IS-MPURGE VALUE 'M'. WOOLWRTH
88 APCSIREQ-PROCESS-IS-COP VALUE 'O'. 020A*SYW
88 APCSIREQ-PROCESS-IS-INQ VALUE 'Q'.
88 APCSIREQ-PROCESS-IS-RVP VALUE 'R'.
88 APCSIREQ-PROCESS-IS-INIT VALUE 'T'. 020A*SYW
88 APCSIREQ-PROCESS-IS-DEQ VALUE 'U'. 020A*SYW
88 APCSIREQ-PROCESS-IS-VER VALUE 'V'. 020A*SYW
88 APCSIREQ-PROCESS-IS-INQENQ VALUE 'W'. 020A*SYW
88 APCSIREQ-PROCESS-IS-DEL VALUE 'X'. 020A*SYW
88 APCSIREQ-PROCESS-IS-QLB VALUE 'Y'. 020A*SYW
88 APCSIREQ-PROCESS-IS-QIV VALUE 'Z'. 020A*SYW
02 APCSIREQ-BATCH-INPUT PIC X(01).
020A*SYW
02 APCSIREQ-MR-AREA.
05 APCSIREQ-START-MR-NUM PIC X(06).
05 APCSIREQ-END-MR-NUM PIC X(06).
05 APCSIREQ-START-FINAL-DATE PIC X(08).
05 APCSIREQ-END-FINAL-DATE PIC X(08).
05 APCSIREQ-START-NEXT-DATE PIC X(08).
05 APCSIREQ-END-NEXT-DATE PIC X(08).
05 APCSIREQ-LIBCODE PIC X(04).
05 APCSIREQ-SUBCODE PIC X(03).
05 APCSIREQ-MEMBER-NAME PIC X(10).
05 APCSIREQ-ORIGINATOR PIC X(08).
05 APCSIREQ-SERVICE-REQ PIC X(16).
05 APCSIREQ-MOVE-TYPE PIC X(01).
05 APCSIREQ-HELD-MR PIC X(01). 020A*SYW
05 APCSIREQ-STATUS-AREA.
15 APCSIREQ-STATUS-CREATE PIC X.
15 APCSIREQ-STATUS-DELETE PIC X.
15 APCSIREQ-STATUS-LEVEL OCCURS 16 TIMES
INDEXED BY APCSIREQ-STL-X.
20 APCSIREQ-STATUS-LEVELID PIC 9(09) COMP. 020A*SYW
20 APCSIREQ-STATUS-SNAME PIC X(04). 020A*SYW
20 APCSIREQ-STATUS-TABLE. 020A*SYW
25 APCSIREQ-STAT-AWAITING-APP PIC X(01). 020A*SYW
25 APCSIREQ-STAT-APPROVED PIC X(01). 020A*SYW
25 APCSIREQ-STAT-SELECTED PIC X(01). 020A*SYW
25 APCSIREQ-STAT-AWAITING-MOV PIC X(01). 020A*SYW
25 APCSIREQ-STAT-AWAITING-EP PIC X(01). 020A*SYW
25 APCSIREQ-STAT-MOVED PIC X(01). 020A*SYW
25 APCSIREQ-STAT-AWAITBKT-APP PIC X(01). 020A*SYW
25 APCSIREQ-STAT-APPROVED-BKT PIC X(01). 020A*SYW
25 APCSIREQ-STAT-SELECTED-BKT PIC X(01). 020A*SYW
25 APCSIREQ-STAT-AWAITING-BKT PIC X(01). 020A*SYW
25 APCSIREQ-STAT-AWAITBKT-EP PIC X(01). 020A*SYW
25 APCSIREQ-STAT-BACKOUT PIC X(01). 020A*SYW
20 APCSIREQ-STATUS REDEFINES 020A*SYW
APCSIREQ-STATUS-TABLE PIC X(01) 020A*SYW
OCCURS 12 TIMES. 020A*SYW
02 APCSIREQ-VP-AREA REDEFINES APCSIREQ-MR-AREA.
05 APCSIREQ-VP-NUM OCCURS 20 TIMES PIC 9(02).
05 APCSIREQ-VP-JOB1 PIC X(80). 020A*SYW
05 APCSIREQ-VP-JOB2 PIC X(80). 020A*SYW
05 APCSIREQ-VP-JOB3 PIC X(80). 020A*SYW
05 APCSIREQ-VP-JOB4 PIC X(80). 020A*SYW
020A*SYW
02 APCSIREQ-LIBINV-LIST-AREA REDEFINES APCSIREQ-MR-AREA. 020A*SYW
05 APCSIREQ-START-LIST-KEY. 020A*SYW
10 FILLER PIC X(01). 020A*SYW
10 APCSIREQ-START-LIBSUB PIC X(07). 020A*SYW
10 APCSIREQ-START-MEMBER PIC X(10). 020A*SYW
10 FILLER PIC X(11). 020A*SYW
05 APCSIREQ-END-LIST-KEY. 020A*SYW
10 FILLER PIC X(01). 020A*SYW
10 APCSIREQ-END-LIBSUB PIC X(07). 020A*SYW
10 APCSIREQ-END-MEMBER PIC X(10). 020A*SYW
10 FILLER PIC X(11). 020A*SYW
02 APCSIREQ-MSL-LIB-AREA REDEFINES APCSIREQ-MR-AREA. 020A*SYW
05 APCSIREQ-MSLLIB-LIBSUB PIC X(07). 020A*SYW
05 APCSIREQ-MSLLIB-MEMBER PIC X(10). 020A*SYW
05 APCSIREQ-MSLLIB-LEVEL PIC X(04). 020A*SYW
02 APCSIREQ-MSL-INV-AREA REDEFINES APCSIREQ-MR-AREA. 020A*SYW
05 APCSIREQ-MSLINV-LIBSUB PIC X(07). 020A*SYW
05 APCSIREQ-MSLINV-MEMBER PIC X(10). 020A*SYW
05 APCSIREQ-MSLINV-ASSIGN-USER PIC X(08). 020A*SYW
05 APCSIREQ-MSLINV-ASSIGN-MR PIC X(06). 020A*SYW
05 APCSIREQ-MSLINV-OWNER PIC X(08). 020A*SYW
05 APCSIREQ-MSLINV-ENVIRONMENT PIC X(08). 020A*SYW
05 APCSIREQ-MSLINV-APPLICATION PIC X(08). 020A*SYW
05 APCSIREQ-MSLINV-LANGUAGE PIC X(08). 020A*SYW
05 APCSIREQ-MSLINV-LAST-MOVED-MR PIC X(06). 020A*SYW
05 APCSIREQ-MSLINV-ASSIGNED PIC X(01). 020A*SYW
05 APCSIREQ-MSLINV-APPROVED PIC X(01). 020A*SYW
02 APCSIREQ-JOB-AREA REDEFINES APCSIREQ-MR-AREA. 020A*SYW
05 APCSIREQ-CKOT-JOB1 PIC X(80). 020A*SYW
05 APCSIREQ-CKOT-JOB2 PIC X(80). 020A*SYW
05 APCSIREQ-CKOT-JOB3 PIC X(80). 020A*SYW
05 APCSIREQ-CKOT-JOB4 PIC X(80). 020A*SYW
|
Copyright © 2004 CA.
All rights reserved.
|
|