The following record layout, mapped by COBOL member APCCMDES, describes the Move Request Description record produced by the Create Sequential File of the Move Requests from the History File Job (APJJ5955). This record is input to the Batch Add Move Request Job (APJJ5960) and passed to the security exit program.
****************** < Description Begin > ********************
* *
* Name : APCCMDES *
* Product : PANAPT *
* Type : Cobol Copybook *
* *
* Descript. : Move Request Description Record layout used by *
* Batch Add Move Request, Purge Move Request and *
* Security Exits. *
* *
* Notices : This module is part of the distributed source *
* code for PANAPT. *
* *
* Copyright (C) 1992, 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
****************** < Documentation Begin > ********************
* *
* Function : To provide a common record description for the *
* Move Request Description record. *
* *
* Related to :APAMMDES must reflect all changes to this member. *
* *
* Comments :APAMMDES MUST Reflect ALL Changes to this Member. *
* *
****************** < Documentation End > ********************
020A*BAD
020A*BAD
01 MOVE-REQUEST-DESCRIPTION.
02 MR-RECORD-LEN PIC 9(05) COMP. 030A*BAD
02 MR-RECORD-TYPE PIC X(02) VALUE SPACE.
88 MR-RECORD-IS-DESC VALUE '01'. 013A*GRS
02 MR-USER-ID PIC X(08) VALUE SPACE. 020A*SYW
02 MR-NUMBER PIC 9(06) VALUE ZERO. 020A*SYW
020A*BAD
*
* MR-VERSION-STAMP is in the format VV.R where VV is the
* version and R is the release, as in 02.0 020A*BAD
* The version is filled in by the DUMP/PURGE programs and
* by the exit facilities. You must fill in the version
* if you are constructing a record for the batch add
* program.
*
02 MR-VERSION-STAMP PIC X(04) VALUE SPACE. 020A*BAD
020A*BAD
02 MR-PROCESS PIC X(01) VALUE SPACE.
88 MR-PROCESS-IS-PURGE VALUE 'P'.
88 MR-PROCESS-IS-DUMP VALUE 'D'.
88 MR-PROCESS-IS-NIL VALUE 'N'.
02 MR-DATE-TIME-OF-PROCESS.
03 MR-DATE-OF-PROCESS.
04 MR-PROCESS-CC PIC X(02) VALUE SPACE. 013A*GRS
04 MR-PROCESS-YY PIC X(02) VALUE SPACE.
04 MR-PROCESS-MM PIC X(02) VALUE SPACE.
04 MR-PROCESS-DD PIC X(02) VALUE SPACE.
03 MR-TIME-OF-PROCESS.
04 MR-PROCESS-HH PIC X(02) VALUE SPACE.
04 MR-PROCESS-MM PIC X(02) VALUE SPACE.
04 MR-PROCESS-SS PIC X(02) VALUE SPACE.
020A*SYW
* 020A*SYW
* Counters that control the size of OCCURS DEPENDING ON 020A*SYW
* area sizes and the locations of fields that follow. 020A*SYW
* 020A*SYW
02 MR-EXP-DESC-COUNT PIC S9(04) COMP VALUE ZERO. 020A*SYW
02 MR-COMPLETED-MOVE-COUNT PIC 9(02) COMP VALUE ZERO. 020A*SYW
020A*BAD
02 MR-STATUS PIC X(06) VALUE SPACE. 020A*BAD
* The MR-CURRENT-... fields compliment the MR-STATUS 020A*BAD
* field. The MR-CURRENT-LEVEL-ID contains the internal 020A*BAD
* unique name CA PanAPT uses for a level. The ABBR and 020A*BAD
* SNAME contain the names the users accociate with the 020A*BAD
* level, such as "P" and "PROD" for a Production level. 020A*BAD
* The POS contains the position of this level in regards 020A*BAD
* to other levels in the CA PanAPT system, with the 020A*BAD
* starting level being 1. If you add or delete levels 020A*BAD
* from your system, the POS field will change. If you 020A*BAD
* change the names of levels, the ABBR and SNAME fields 020A*BAD
* will change, but the ID field will not. 020A*BAD
02 MR-CURRENT-LEVEL-ID PIC 9(09) COMP. 020A*BAD
02 MR-CURRENT-LEVEL-ABBR PIC X(02). 020A*BAD
02 MR-CURRENT-LEVEL-SNAME PIC X(04). 020A*BAD
02 MR-CURRENT-LEVEL-POS PIC 9(04) COMP. 020A*BAD
02 MR-CURRENT-LEVEL-STATUS PIC X(02). 020A*BAD
88 STATUS-IS-DELETED VALUE '00'. 020A*BAD
88 STATUS-IS-BEING-CREATED VALUE '01'. 020A*BAD
88 STATUS-IS-AWAIT-APPROVALS VALUE '02'. 020A*BAD
88 STATUS-IS-APPROVED VALUE '03'. 020A*BAD
88 STATUS-IS-SEL-FOR-MOVE VALUE '04'. 020A*BAD
88 STATUS-IS-AWAITING-MOVE VALUE '05'. 020A*BAD
88 STATUS-IS-AWAITING-EXTRN VALUE '06'. 020A*BAD
88 STATUS-IS-MOVE-COMPLETE VALUE '07'. 020A*BAD
88 STATUS-IS-AWAIT-BACK-APP VALUE '22'. 020A*BAD
88 STATUS-IS-APP-FOR-BKOT VALUE '23'. 020A*BAD
88 STATUS-IS-SEL-FOR-BKOT VALUE '24'. 020A*BAD
88 STATUS-IS-AWAIT-BKOT VALUE '25'. 020A*BAD
88 STATUS-IS-AWAIT-BKOT-EP VALUE '26'. 020A*BAD
88 STATUS-IS-BKOT-COMPLETE VALUE '27'. 020A*BAD
02 MR-MOVE-TYPE PIC X(01) VALUE SPACE.
02 MR-SERVICE-REQUEST PIC X(16) VALUE SPACE.
02 MR-NAME PIC X(16) VALUE SPACE. 030A*BAD
02 MR-PROJECT PIC X(16) VALUE SPACE. 030A*BAD
02 MR-NUMBER-OF-MEMBERS PIC S9(5) COMP VALUE ZERO.
020A*BAD
02 MR-DATES.
03 MR-FINAL-MOVE-DATE. 020A*BAD
04 MR-MV-CC PIC X(02) VALUE SPACE. 013A*GRS
04 MR-MV-YY PIC X(02) VALUE SPACE.
04 MR-MV-MM PIC X(02) VALUE SPACE.
04 MR-MV-DD PIC X(02) VALUE SPACE.
03 MR-NEXT-MOVE-DATE. 020A*BAD
04 MR-NXMV-CC PIC X(02) VALUE SPACE. 020A*BAD
04 MR-NXMV-YY PIC X(02) VALUE SPACE. 020A*BAD
04 MR-NXMV-MM PIC X(02) VALUE SPACE. 020A*BAD
04 MR-NXMV-DD PIC X(02) VALUE SPACE. 020A*BAD
03 MR-SCHEDULED-RUN-DATE. 013A*GRS
04 MR-SR-CC PIC X(02) VALUE SPACE. 013A*GRS
04 MR-SR-YY PIC X(02) VALUE SPACE.
04 MR-SR-MM PIC X(02) VALUE SPACE.
04 MR-SR-DD PIC X(02) VALUE SPACE.
02 MR-MOVE-INFORMATION.
03 MR-SPCL-HANDLING PIC X(01) VALUE SPACE.
03 MR-EARLY-STOP-SNAME PIC X(04) VALUE SPACE. 020A*MMC
020A*BAD
02 MR-ADD-INFORMATION.
03 MR-ADD-USER-ID PIC X(08) VALUE SPACE.
03 MR-ADD-DATE.
04 MR-ADD-CC PIC X(02) VALUE SPACE. 013A*GRS
04 MR-ADD-YY PIC X(02) VALUE SPACE.
04 MR-ADD-MM PIC X(02) VALUE SPACE.
04 MR-ADD-DD PIC X(02) VALUE SPACE.
03 MR-ADD-TIME.
04 MR-ADD-HH PIC X(02) VALUE SPACE.
04 MR-ADD-MM PIC X(02) VALUE SPACE.
04 MR-ADD-SS PIC X(02) VALUE SPACE.
020A*BAD
02 MR-LAST-UPDATED-BY-INFO.
03 MR-UPD-USER-ID PIC X(08) VALUE SPACE.
03 MR-UPD-DATE.
04 MR-UPD-CC PIC X(02) VALUE SPACE. 013A*GRS
04 MR-UPD-YY PIC X(02) VALUE SPACE.
04 MR-UPD-MM PIC X(02) VALUE SPACE.
04 MR-UPD-DD PIC X(02) VALUE SPACE.
03 MR-UPD-TIME.
04 MR-UPD-HH PIC X(02) VALUE SPACE.
04 MR-UPD-MM PIC X(02) VALUE SPACE.
04 MR-UPD-SS PIC X(02) VALUE SPACE.
SKIP2
02 MR-APPROVALS-AREA. 013A*GRS
** *-------------------------------------------------------*
** * A P P R O V A L S A R E A *
** *-------------------------------------------------------*
020A*BAD
03 MR-APPROVALS-NEEDED-AREA. 013A*GRS
** *----------------------------------------------------*
** * A P P R O V A L S N E E D E D A R E A *
** *----------------------------------------------------*
04 MR-CL-APPROVALS-NEEDED-AREA. 020A*MMC
** *---------------------------------------------------*
** * Approvals for CL area. * 020A*MMC
** *---------------------------------------------------*
05 MR-CL-APPROVALS-NEEDED PIC X(01) OCCURS 20 TIMES 020A*MMC
INDEXED BY MR-CL-NEEDED-INDEX. 020A*MMC
88 CL-APPROVALS-NEEDED-IS-YES VALUE 'Y'. 020A*MMC
88 CL-APPROVALS-NEEDED-IS-NO VALUE 'N'. 020A*MMC
020A*BAD
04 MR-BO-APPROVALS-NEEDED-AREA. 013A*GRS
** *---------------------------------------------------*
** * Approvals for BACKOUT area. *
** *---------------------------------------------------*
05 MR-BO-APPROVALS-NEEDED PIC X(01) OCCURS 20 TIMES 013A*GRS
INDEXED BY MR-BO-NEEDED-INDEX. 013A*GRS
88 BO-APPROVALS-NEEDED-IS-YES VALUE 'Y'. 013A*GRS
88 BO-APPROVALS-NEEDED-IS-NO VALUE 'N'. 013A*GRS
020A*BAD
04 MR-CL-VER-NEEDED-AREA. 020A*MMC
** *---------------------------------------------------*
** * Verify CL flag area. * 020A*MMC
** *---------------------------------------------------*
05 MR-CL-VER-APPROVALS-NEEDED PIC X(01) 020A*MMC
OCCURS 20 TIMES 020A*MMC
INDEXED BY MR-CL-VER-NEEDED-INDEX. 020A*MMC
88 CL-VER-APRV-NEEDED-IS-YES VALUE 'Y'. 020A*MMC
88 CL-VER-APRV-NEEDED-IS-NO VALUE 'N'. 020A*MMC
020A*BAD
020A*BAD
03 MR-APPROVALS-SO-FAR-AREA. 013A*GRS
** *----------------------------------------------------*
** * A P P R O V A L S S O F A R A R E A *
** *----------------------------------------------------*
020A*BAD
04 MR-CL-APPROVALS-SO-FAR-AREA. 020A*MMC
** *---------------------------------------------------* 020A*MMC
** * So Far Approvals for CL. * 020A*MMC
** *---------------------------------------------------* 020A*MMC
05 MR-CL-APPROVALS-SO-FAR PIC X(01) OCCURS 20 TIMES 020A*MMC
INDEXED BY MR-CL-SO-FAR-INDEX. 020A*MMC
88 CL-APPROVALS-SO-FAR-IS-YES VALUE 'Y'. 020A*MMC
88 CL-APPROVALS-SO-FAR-IS-NO VALUE 'N'. 020A*MMC
020A*BAD
04 MR-BO-APPROVALS-SO-FAR-AREA. 013A*GRS
** *---------------------------------------------------*
** * So Far Approvals for BACKOUT. *
** *---------------------------------------------------*
05 MR-BO-APPROVALS-SO-FAR PIC X(01) OCCURS 20 TIMES 013A*GRS
INDEXED BY MR-BO-SO-FAR-INDEX. 013A*GRS
88 BO-APPROVALS-SO-FAR-IS-YES VALUE 'Y'. 013A*GRS
88 BO-APPROVALS-SO-FAR-IS-NO VALUE 'N'. 013A*GRS
020A*BAD
04 MR-CL-VER-SO-FAR-AREA. 020A*MMC
** *---------------------------------------------------*
** * So Far Verification for CL. * 020A*MMC
** *---------------------------------------------------*
05 MR-CL-VER-APPROVALS-SO-FAR PIC X(01) 020A*MMC
OCCURS 20 TIMES 013A*GRS
INDEXED BY MR-CL-VER-SO-FAR-INDEX. 020A*MMC
88 CL-VER-APRV-SO-FAR-IS-YES VALUE 'Y'. 020A*MMC
88 CL-VER-APRV-SO-FAR-IS-NO VALUE 'N'. 020A*MMC
020A*BAD
020A*BAD
02 FILLER REDEFINES MR-APPROVALS-AREA. 013A*GRS
03 FILLER OCCURS 2 TIMES 013A*GRS
INDEXED BY MR-AP-ND-INDEX MR-AP-SF-INDEX. 013A*GRS
** *---------------------------------------------------*
** * A P P R O V A L S (redefined) *
** *---------------------------------------------------*
04 MR-APPROVALS PIC X(01) OCCURS 60 TIMES 020A*MMC
INDEXED BY MR-AP-INDEX. 020A*MMC
020A*MMC
020A*BAD
02 MR-DESCRIPTION-AREA.
03 MR-DESCRIPTION PIC X(55) VALUE SPACE.
03 MR-EXP-MAX-DESC-INDEX INDEX. 020A*SYW
03 MR-EXPANDED-DESCRIPTION-AREA. 013A*BAD
04 MR-EXPANDED-DESCRIPTION PIC X(70) 020A*SYW
OCCURS 0 TO 12 TIMES 020A*SYW
DEPENDING ON MR-EXP-DESC-COUNT 020A*SYW
INDEXED BY MR-EXT-DESC-INDEX. 020A*SYW
020A*BAD
020A*BAD
02 MR-COMPLETED-MOVE-AREA. 020A*BAD
03 MR-COMPLETED-MOVE 020A*BAD
occurs 0 to 15 times 020A*BAD
depending on MR-COMPLETED-MOVE-COUNT 020A*BAD
indexed by MR-COMPLETED-INDEX. 020A*BAD
* MR-COMPLETED-LEVEL-ID is the internal unique name 020A*BAD
* CA PanAPT uses for a level. MR-COMPLETED-LEVEL-ABBR 020A*BAD
* and MR-COMPLETED-LEVEL-SNAME are the names the users 020A*BAD
* associate with the level, such as "P" and "PROD" 020A*BAD
* for a Production level. MR-COMPLETE-LEVEL-POS 020A*BAD
* contains the position of this level in regards to 020A*BAD
* other levels in the CA PanAPT system, with the 020A*BAD
* starting level being 1. 020A*BAD
04 MR-COMPLETED-LEVEL-ID PIC 9(09) COMP. 020A*BAD
04 MR-COMPLETED-LEVEL-ABBR PIC X(02). 020A*BAD
04 MR-COMPLETED-LEVEL-SNAME PIC X(04). 020A*BAD
04 MR-COMPLETED-LEVEL-POS PIC 9(04) COMP. 020A*BAD
* Date scheduled to be moved: 020A*BAD
04 MR-COMPLETED-DATE-SCHED. 020A*BAD
05 MR-COMP-DS-CC PIC X(02). 020A*BAD
05 MR-COMP-DS-YY PIC X(02). 020A*BAD
05 MR-COMP-DS-MM PIC X(02). 020A*BAD
05 MR-COMP-DS-DD PIC X(02). 020A*BAD
* Date actually moved. Will contain spaces if an 020A*BAD
* on-line status change bypassed the move. 020A*BAD
04 MR-COMPLETED-DATE-MOVED. 020A*BAD
05 MR-COMP-DM-CC PIC X(02). 020A*BAD
05 MR-COMP-DM-YY PIC X(02). 020A*BAD
05 MR-COMP-DM-MM PIC X(02). 020A*BAD
05 MR-COMP-DM-DD PIC X(02). 020A*BAD
04 MR-COMPLETED-TIME-MOVED. 020A*BAD
05 MR-COMP-DM-HH PIC X(02). 020A*BAD
05 MR-COMP-DM-MM PIC X(02). 020A*BAD
05 MR-COMP-DM-SS PIC X(02). 020A*BAD
|
Copyright © 2004 CA.
All rights reserved.
|
|