The following record layout, mapped by COBOL member APCC02XX and Assembler member APAM02XX, describes the data required for physical access to the library and member.
****************** < Description Begin > ********************
* *
* Name : APCC02XX *
* Product : PANAPT *
* Type : Cobol Copybook *
* *
* Descript. : APCS02XX (Member Existence Exit) parameter list. *
* *
* Notices : This module is part of the distributed source *
* code for PANAPT. *
* *
* Copyright (C) 1992 Computer Associates *
* 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 *
* calling parematers for the APxS02XX series *
* programs, which are the Member Existence exits. *
* *
* Related to : APAM02XX must reflect changes made to this member.*
* *
* Comments : None. *
* *
****************** < Documentation End > ********************
SKIP1
SKIP1
01 APCS02XX-PARM-AREA.
05 APCS02XX-ACTION PIC X(08) VALUE SPACE.
88 APCS02XX-ACTION-TEST-MEMBER VALUE 'MEMBER'. WOOLWRTH
88 APCS02XX-ACTION-PURGE-MEMBER VALUE 'MEMPURGE'. WOOLWRTH
05 APCS02XX-DDN PIC X(08) VALUE SPACE.
05 APCS02XX-DSN PIC X(44) VALUE SPACE.
05 APCS02XX-SECURITY PIC X(10) VALUE SPACE.
05 APCS02XX-MEMBER PIC X(10) VALUE SPACE.
05 APCS02XX-DATA PIC X(08) VALUE SPACE.
020A*BAD
* The APCS02XX-LEVEL-ID, ABBR, SNAME, and SYSTEM-POS field 020A*BAD
* are all indicators of the CA PanAPT level for the member 020A*BAD
* being tested. The LEVEL-ID field contains the internal 020A*BAD
* unique name CA PanAPT uses for the level. ABBR and SNAME 020A*BAD
* contain the names the users associate with the level, such 020A*BAD
* as "P" and "PROD" for a Production level. SYSTEM-POS 020A*BAD
* contains the position of the level in regards to other 020A*BAD
* levels in the CA PanAPT system (whether they are used by 020A*BAD
* this Move Request or not), with the starting level's 020A*BAD
* position being 1. If you add or delete levels from your 020A*BAD
* system, the SYSTEM-POS field will change. If you change 020A*BAD
* the names of levels, the ABBR and SNAME field will change, 020A*BAD
* but the LEVEL-ID field will not. 020A*BAD
020A*BAD
05 APCS02XX-LEVEL-ID PIC 9(09) COMP. 020A*BAD
05 APCS02XX-LEVEL-ABBR PIC X(02). 020A*BAD
05 APCS02XX-LEVEL-SNAME PIC X(04). 020A*BAD
05 APCS02XX-LEVEL-SYSTEM-POS PIC 9(04) COMP. 020A*BAD
020A*BAD
05 APCS02XX-PROCESS-OPTIONS.
10 APCS02XX-VERIFY-FLAG PIC X(01) VALUE SPACE.
10 APCS02XX-SOURCE PIC X(01) VALUE SPACE.
88 APCS02XX-FROM-MAKECOPY VALUE '1'.
88 APCS02XX-FROM-PRECHANGE VALUE '2'.
88 APCS02XX-FROM-POSTCOPY VALUE '3'.
88 APCS02XX-FROM-POSTCHANGE VALUE '4'.
88 APCS02XX-FROM-ADD VALUE '5'.
88 APCS02XX-FROM-COP VALUE '5'. 1050162
88 APCS02XX-FROM-CHG VALUE '5'. 1050162
88 APCS02XX-FROM-CLOSE VALUE '6'.
88 APCS02XX-FROM-BACKOUT VALUE '7'.
88 APCS02XX-FROM-SELECTION VALUE '8'. 1050162
88 APCS02XX-FROM-ASN VALUE '9'. 1050162
88 APCS02XX-FROM-ACK VALUE '9'. 1050162
88 APCS02XX-FROM-PURGE VALUE 'A'. WOOLWRTH
10 APCS02XX-AUTO-RETRIEVE PIC X(01) VALUE SPACE. 030A*BAD
05 APCS02XX-PARM PIC X(50) VALUE SPACE.
05 APCS02XX-VERSION PIC X(04) VALUE SPACE.
020A*BAD
* Note. Field APCS02XX-MR-STATUS from previous versions 020A*BAD
* of CA PanAPT has been removed. If any of your exits 020A*BAD
* referenced this field they should be changed to reference 020A*BAD
* the MR-STATUS or MR-CURRENT-... fields of the APCCMDES 020A*BAD
* copy book. 020A*BAD
020A*BAD
05 APCS02XX-MSG PIC X(79) VALUE SPACE.
|
Copyright © 2004 CA.
All rights reserved.
|
|