The following record layout, mapped by COBOL member APCCMAPP, describes the Move Request approval record produced by the Create Sequential File of 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 : APCCMAPP *
* 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 > ********************
020A*BAD
****************** < Documentation Begin > ********************
* *
* Function : To provide a common record description for the *
* Move Request Approval record. *
* *
* Related to : None. *
* *
* Comments : None. *
* *
****************** < Documentation End > ********************
020A*BAD
020A*BAD
01 MOVE-REQUEST-APPROVAL.
02 MR-RECORD-LEN PIC 9(05) COMP. 030A*BAD
02 MR-RECORD-TYPE PIC X(02).
88 MR-RECORD-IS-APP VALUE '03'. 013A*GRS
02 PIC X(08). 020A*MMC
02 MR-NUMBER PIC 9(06). 020A*MMC
02 MR-VERSION-STAMP PIC X(04). 012A*JMM
* 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
020A*BAD
02 MR-PROCESS PIC X(01).
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). 013A*GRS
04 MR-PROCESS-YY PIC X(02).
04 MR-PROCESS-MM PIC X(02).
04 MR-PROCESS-DD PIC X(02).
03 MR-TIME-OF-PROCESS.
04 MR-PROCESS-HH PIC X(02).
04 MR-PROCESS-MM PIC X(02).
04 MR-PROCESS-SS PIC X(02).
020A*BAD
02 MR-APPROVAL-LEVEL PIC X(04).
02 MR-APPROVAL-DIRECTION PIC 9(01). 020A*BAD
88 MR-APPROVAL-DIR-MOVE VALUE 0. 020A*BAD
88 MR-APPROVAL-DIR-BKOT VALUE 1. 020A*BAD
02 MR-APPROVAL-CATEGORY PIC 9(02).
02 MR-APPROVAL-FLAG PIC X(01).
88 MR-IS-APPROVED VALUE 'Y'.
88 MR-IS-DISAPPROVED VALUE 'D'.
88 MR-IS-UNAPPROVED VALUE 'N'.
020A*BAD
02 MR-APPROVAL-USERID PIC X(08).
02 MR-APPROVAL-DATE.
04 MR-APPROVAL-CC PIC X(02). 013A*GRS
04 MR-APPROVAL-YY PIC X(02).
04 MR-APPROVAL-MM PIC X(02).
04 MR-APPROVAL-DD PIC X(02).
02 MR-APPROVAL-TIME.
04 MR-APPROVAL-HH PIC X(02).
04 MR-APPROVAL-MM PIC X(02).
04 MR-APPROVAL-SS PIC X(02).
020A*BAD
02 MR-COMMENT-COUNT PIC S9(04) COMP.
02 MR-COMMENT-MAX-INDEX INDEX.
02 MR-COMMENT-RECORD PIC X(70) OCCURS 6 TIMES
INDEXED BY MR-COMMENT-INDEX.
|
Copyright © 2004 CA.
All rights reserved.
|
|