The following record layout, mapped by COBOL member APCCMMBR, describes the Move Request Member record that is produced by Create Sequential File of Move Requests from the History file. This record is input to the Batch Add Move Request Job (APJJ5960) and passed to the security exit program and the member existence exit.
*************************** < Description Begin > ********************
* *
* Name : APCCMMBR *
* Product : PANAPT *
* Type : Cobol Copybook *
* *
* Descript. : Move Request Member record layout used by Member *
* Existence Exits, Security Exits, Batch Add Move *
* Move Requests and Purge/Dump Move Requests. *
* *
* Notices : This module is part of the distributed source *
* code for CA PanAPT. *030A*BAD
* *
* 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 Member record. *
* *
* Related to : APAMMMBR must reflect changes made to this member.*
* *
* Comments : None. *
* *
****************** < Documentation End > ********************
SKIP1
SKIP1
01 MOVE-REQUEST-MEMBER.
02 MR-RECORD-LEN PIC 9(05) COMP. 030A*BAD
02 MR-RECORD-TYPE PIC X(02) VALUE SPACE.
88 MR-RECORD-IS-MBR VALUE '02'. 013A*GRS
02 MR-USER-ID PIC X(08) VALUE SPACE. 020A*SYW
02 MR-NUMBER PIC 9(06) VALUE ZERO. 020A*SYW
SKIP1 013A*GRS
02 MR-VERSION-STAMP PIC X(04) VALUE SPACE. 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
* 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.
*
SKIP1 012A*JMM
02 MR-PROCESS PIC X(01) VALUE SPACE. 012A*JMM
88 MR-PROCESS-IS-PURGE VALUE 'P'.
88 MR-PROCESS-IS-DUMP VALUE 'D'.
88 MR-PROCESS-IS-NIL VALUE 'N'.
88 MR-PROCESS-IS-ADD VALUE 'A'. 020A*SYW
88 MR-PROCESS-IS-CHG VALUE 'G'. 020A*SYW
88 MR-PROCESS-IS-DEL VALUE 'X'. 020A*SYW
88 MR-PROCESS-IS-MPURGE VALUE 'M'. 020A*MMC
88 MR-PROCESS-IS-ASN VALUE 'S'. 020A*SYW
88 MR-PROCESS-IS-RETRIEVE VALUE 'K'. 030A*BAD
88 MR-PROCESS-IS-ACK VALUE 'K'. 020A*SYW
88 MR-PROCESS-IS-CDSET VALUE '1'. 020A*BAD
88 MR-PROCESS-IS-CDCLR VALUE '2'. 020A*BAD
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.
SKIP1
02 MR-FROM-MEMBER PIC X(10) VALUE SPACE.
02 MR-FROM-USER-DATA PIC X(08) VALUE SPACE.
02 MR-TO-MEMBER PIC X(10) VALUE SPACE.
02 MR-TO-USER-DATA PIC X(08) VALUE SPACE.
02 MR-LIBRARY-CODE.
03 MR-LIB-CODE PIC X(04) VALUE SPACE.
03 MR-LIBSUBCODE PIC X(03) VALUE SPACE.
SKIP1
02 MR-RESTRICTION-FLAGS. 1009690
03 MR-ASSIGN-FLAG PIC X(01) VALUE SPACE. 1009690
88 MR-AWATING-ASSIGNMENT VALUE 'A'. 1009690
88 MR-ASSIGNMENT-COMPLETE VALUE SPACE. 1009690
SKIP1 1009690
03 MR-DIBS-FLAG PIC X(01) VALUE SPACE. 1009690
88 MR-WAITING-DIBS-APPROVAL VALUE 'I'. 1009690
88 MR-DIBS-RECORD-APPROVED VALUE SPACE. 1009690
SKIP1 1009690
03 MR-VERIFY-FLAG PIC X(01) VALUE SPACE. 1009690
88 MR-MEMBER-NOT-VERIFIED VALUE 'V'. 1009690
88 MR-MEMBER-VERIFIED VALUE SPACE. 1009690
SKIP1 1009690
03 MR-MOVE-FLAG PIC X(01) VALUE SPACE. 1009690
88 MR-AWAITING-MODELLING VALUE '.'. 013A*MCV
88 MR-AWAITING-MOVE VALUE 'M'. 1009690
88 MR-MEMBER-MOVED VALUE SPACE. 1009690
SKIP1 1009690
03 MR-EXTERNAL-FLAG PIC X(01) VALUE SPACE. 1009690
88 MR-EXTERNAL-REQUIRED VALUE 'E'. 1009690
88 MR-EXTERNAL-STARTED VALUE 'S'. 1009690
88 MR-EXTERNAL-COMPLETE VALUE SPACE. 1009690
SKIP1 1009690
03 MR-CONCURRENT-FLAG PIC X(01) VALUE SPACE. 020A*SYW
03 FILLER PIC X(02) VALUE SPACE. 020A*SYW
SKIP1 1009690
* following fields were added for PANAPT GUI project 020A*SYW
* internal processing. 020A*SYW
SKIP1 020A*SYW
02 MR-MBR-KEY. 020A*SYW
03 MR-MBR-KEY-QUALIFIER PIC X(08) VALUE SPACE. 020A*SYW
03 MR-MBR-KEY-PRODNAME PIC X(10) VALUE SPACE. 020A*SYW
02 MR-MBR-OLD-LIBCODE PIC X(04) VALUE SPACE. 020A*SYW
02 MR-MBR-OLD-SUBCODE PIC X(03) VALUE SPACE. 020A*SYW
02 FILLER PIC X(10) VALUE SPACE. 1009690
|
Copyright © 2004 CA.
All rights reserved.
|
|