The following record layout, mapped by COBOL member APCCMVER, describes the Move Request verification record produced by the Create Sequential File of Move Requests from the History File Job (APJJ5955).
****************** < Description Begin > ********************
* *
* Name : APCCMVER *
* Product : PANAPT *
* Type : Cobol Copybook *
* *
* Descript. : Move Request Approval record layout used by the *
* Security Exits, Batch Add Move Request, and *
* Purge/Dump Move Requests. *
* *
* 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 > ********************
SKIP1
****************** < Documentation Begin > ********************
* *
* Function : To provide a common record description for the *
* Move Request Verification Record Layout. *
* *
* Related to : None. *
* *
* Comments : None. *
* *
****************** < Documentation End > ********************
SKIP1
SKIP1
01 MOVE-REQUEST-VERIFICATION.
SKIP1
02 MR-RECORD-LEN PIC 9(05) COMP. 5160597
02 MRV-RECORD-TYPE PIC X(02). 013A*BAD
88 MRV-RECORD-IS-MRV VALUE '04'. 013A*BAD
02 PIC X(08). 020A*MMC
02 MRV-REQ-NUM PIC 9(06). 020A*MMC
02 MRV-VERSION-STAMP PIC X(04). 013A*BAD
* MRV-VERSION-STAMP is in the format VV.R where VV is the
* the version and R is the release, as in 01.3
SKIP1 013A*BAD
02 MRV-PROCESS PIC X(01). 013A*BAD
88 MRV-PROCESS-IS-PURGE VALUE 'P'. 013A*BAD
88 MRV-PROCESS-IS-DUMP VALUE 'D'. 013A*BAD
88 MRV-PROCESS-IS-NIL VALUE 'N'. 013A*BAD
02 MRV-DATE-TIME-OF-PROCESS. 013A*BAD
03 MRV-DATE-OF-PROCESS. 013A*BAD
04 MRV-PROCESS-CC PIC X(02). 013A*BAD
04 MRV-PROCESS-YY PIC X(02). 013A*BAD
04 MRV-PROCESS-MM PIC X(02). 013A*BAD
04 MRV-PROCESS-DD PIC X(02). 013A*BAD
03 MRV-TIME-OF-PROCESS. 013A*BAD
04 MRV-PROCESS-HH PIC X(02). 013A*BAD
04 MRV-PROCESS-MM PIC X(02). 013A*BAD
04 MRV-PROCESS-SS PIC X(02). 013A*BAD
SKIP1 013A*BAD
02 MRV-VER-LEVEL PIC X(04). 013A*BAD
02 MRV-VER-DIRECTION PIC 9(01). 020A*BAD
88 MRV-VER-DIR-MOVE VALUE 0. 020A*BAD
88 MRV-VER-DIR-BKOT VALUE 1. 020A*BAD
02 MRV-VER-CATEGORY PIC 9(02). 013A*BAD
02 MRV-VERIFICATION-DATE. 013A*GRS
03 MRV-DATE-CC PIC X(02).
03 MRV-DATE-YY PIC X(02).
03 MRV-DATE-MM PIC X(02).
03 MRV-DATE-DD PIC X(02).
02 MRV-VERIFICATION-TIME. 013A*GRS
03 MRV-TIME-HH PIC X(02).
03 MRV-TIME-MM PIC X(02).
03 MRV-TIME-SS PIC X(02).
02 MRV-VERIFICATION-FLAG PIC X(01). 013A*GRS
88 MRV-VERIFICATION-STARTED VALUE 'S'. 013A*BAD
88 MRV-VERIFICATION-COMPLETE VALUE 'Y'. 013A*BAD
88 MRV-VERIFICATION-FAILED VALUE 'U'. 013A*GRS
02 MRV-VER-FAILURE-REASON PIC X(04).
02 MRV-COMMENT-COUNT PIC S9(04) COMP.
02 MRV-MAX-INDEX INDEX.
02 MRV-COMMENT PIC X(70) OCCURS 6 TIMES
INDEXED BY MRV-INDEX.
|
Copyright © 2004 CA.
All rights reserved.
|
|