The following record layout, mapped by COBOL member APCCLIB2, describes the entire Library Code record passed to the inventory exit program.
****************** < Description Begin > ********************
* *
* Name : APCCLIB2 *
* Product : PANAPT *
* Type : Cobol Copybook *
* *
* Descript. : PANAPT Library Code File record definition used *
* by the User Inventory Exit. *
* *
* Notices : This module is part of the distributed source *
* code for CA PanAPT. *030A*BAD
* *
* Copyright (C) 1992, 1997 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 *
* PANAPT Library Code File passed the User *
* Inventory Exit(this is a rearranged copy of the *
* actual Library Code File record layout). *
* *
* Related To : PANAPT Library Code File record. Any change to . *
* the Library Code File record layout should be *
* reflected in this rearranged record layout. *
* This member should match APAMLIB2 byte for byte *
* and field for field. *
* *
* Comments : None. *
* *
****************** < Documentation End > ********************
020A*BAD
020A*BAD
01 LIB-REC.
020A*BAD
02 LIB-REC-LEN PIC 9(05) COMP. 030A*BAD
02 LIB-REC-TYPE PIC X(02) VALUE '03'. 020A*BAD
02 LIB-CODE-SUBCODE.
03 LIB-CODE PIC X(04) VALUE SPACE.
03 LIB-SUBCODE PIC X(03) VALUE SPACE.
020A*BAD
02 LIB-UPD-ID PIC X(08) VALUE SPACE.
02 LIB-DATE.
03 DATE-CC PIC X(02) VALUE SPACE. 013A*BTK
03 DATE-YY PIC X(02) VALUE SPACE.
03 DATE-MM PIC X(02) VALUE SPACE.
03 DATE-DD PIC X(02) VALUE SPACE.
02 LIB-TIME.
03 TIME-HH PIC X(02) VALUE SPACE.
03 TIME-MM PIC X(02) VALUE SPACE.
03 TIME-SS PIC X(02) VALUE SPACE.
020A*BAD
******************************************************************
* GENERAL INFORMATION. *
******************************************************************
020A*BAD
02 LIB-DESCR PIC X(55) VALUE SPACE. 012D*JLT
020A*BAD
******************************************************************020A*BAD
* TYPE OF MEMBER PROCESSED BY THIS LIBRARY CODES. TYPICAL TYPES 030A*BAD
* ARE SOURCE, OBJECT, LOAD... 030A*BAD
******************************************************************020A*BAD
020A*BAD
02 LIB-TYPE PIC X(08). 030A*BAD
020A*BAD
******************************************************************
* EDIT CRITERIA. *
******************************************************************
020A*BAD
02 LIB-MEM-LEN-MIN PIC 9(02) VALUE ZERO.
02 LIB-MEM-LEN-MAX PIC 9(02) VALUE ZERO.
020A*BAD
02 LIB-FROM-DATA-LEN-MIN PIC 9(02) VALUE ZERO.
02 LIB-FROM-DATA-LEN-MAX PIC 9(02) VALUE ZERO.
02 LIB-TO-DATA-LEN-MIN PIC 9(02) VALUE ZERO.
02 LIB-TO-DATA-LEN-MAX PIC 9(02) VALUE ZERO.
020A*BAD
02 LIB-MEM-EQ PIC X(01) VALUE SPACE.
88 LIB-MEM-EQ-MAY VALUE '1'.
88 LIB-MEM-EQ-MUST VALUE '2'.
88 LIB-MEM-EQ-MAY-NOT VALUE '3'.
020A*BAD
******************************************************************
* PROCESSING CONTROL. *
******************************************************************
020A*BAD
02 LIB-MODEL-BASE PIC X(04). 020A*BAD
02 LIB-LEADING-MODEL-STMTS. 030A*BAD
03 LIB-LEADING-MODEL-X OCCURS 12 TIMES. 030A*BAD
04 LIB-LEADING-CONTROL PIC X(75). 030A*BAD
02 LIB-TRAILING-MODEL-STMTS. 030A*BAD
03 LIB-TRAILING-MODEL-X OCCURS 12 TIMES. 030A*BAD
04 LIB-TRAILING-CONTROL PIC X(75). 030A*BAD
02 LIB-MODEL-CONTROL-STMTS.
03 LIB-MODEL-CONTROL-X OCCURS 12 TIMES. 013A*BTK
04 LIB-MODEL-CONTROL PIC X(75).
020A*BAD
******************************************************************
* INVENTORY OPTIONS. *
******************************************************************
020A*BAD
02 LIB-INV-AUTO-APPROVE PIC X(01) VALUE SPACE.
02 LIB-INV-AUTO-CREATE PIC X(01) VALUE SPACE.
02 LIB-INV-EXIT-PGM PIC X(08) VALUE SPACE.
02 LIB-INV-EXIT-PARM PIC X(50) VALUE SPACE.
02 LIB-INV-ENABLED PIC X(01) VALUE SPACE.
02 LIB-INV-QUALIFIER PIC X(08) VALUE SPACE.
02 LIB-INV-REQ-APPROVE PIC X(01) VALUE SPACE.
020A*BAD
******************************************************************
* INV ASSIGNMENT OPTIONS. *
******************************************************************
020A*BAD
02 LIB-INV-AS-ENABLED PIC X(01) VALUE SPACE.
02 LIB-INV-AUTO-ASSIGNMENT PIC X(01) VALUE SPACE.
02 LIB-INV-AUTO-RELEASE PIC X(01) VALUE SPACE.
020A*BAD
******************************************************************
* INV DEFAULT INVENTORY FIELDS. *
******************************************************************
020A*BAD
02 LIB-INV-APPLICATION PIC X(08) VALUE SPACE.
02 LIB-INV-COMMENTS PIC X(55) VALUE SPACE.
02 LIB-INV-ENVIRONMENT PIC X(08) VALUE SPACE.
02 LIB-INV-DESCR PIC X(55) VALUE SPACE.
02 LIB-INV-LANGUAGE PIC X(08) VALUE SPACE.
02 LIB-INV-OWNER-ID PIC X(08) VALUE SPACE.
030A*BAD
02 LIB-INV-COMPILE-DATA. 030A*BAD
03 LIB-INV-COMP-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
03 LIB-INV-LINK-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
03 LIB-INV-DB-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
03 LIB-INV-CICS-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
03 LIB-INV-LINK-STREAM PIC X(10) VALUE SPACE. 030A*BAD
03 LIB-INV-LIST-OVERRIDE PIC X(01) VALUE SPACE. 030A*BAD
03 LIB-INV-OBJ-OVERRIDE PIC X(01) VALUE SPACE. 030A*BAD
03 LIB-INV-LOAD-OVERRIDE PIC X(01) VALUE SPACE. 030A*BAD
030A*BAD
02 LIB-USER-DATA. 012D*JLT
03 LIB-USER-TABLE-8. 012D*JLT
05 LIB-USER-ENTRY-01 PIC X(8) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-02 PIC X(8) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-03 PIC X(8) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-04 PIC X(8) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-05 PIC X(8) VALUE SPACE. 012D*JLT
03 LIB-USER-TABLE-16. 012D*JLT
05 LIB-USER-ENTRY-06 PIC X(16) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-07 PIC X(16) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-08 PIC X(16) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-09 PIC X(16) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-10 PIC X(16) VALUE SPACE. 012D*JLT
03 LIB-USER-TABLE-50. 012D*JLT
05 LIB-USER-ENTRY-11 PIC X(50) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-12 PIC X(50) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-13 PIC X(50) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-14 PIC X(50) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-15 PIC X(50) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-16 PIC X(50) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-17 PIC X(50) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-18 PIC X(50) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-19 PIC X(50) VALUE SPACE. 012D*JLT
05 LIB-USER-ENTRY-20 PIC X(50) VALUE SPACE. 012D*JLT
030A*BAD
******************************************************************030A*BAD
* DEVELOPMENT OPTIONS. *030A*BAD
******************************************************************030A*BAD
030A*BAD
02 LIB-DEV-ENABLED PIC X(01) VALUE SPACE. 030A*BAD
02 LIB-DEV-CHECKOUT-ENABLED PIC X(01) VALUE SPACE. 030A*BAD
02 LIB-DEV-WORK-ENABLED PIC X(01) VALUE SPACE. 030A*BAD
02 LIB-DEV-LOOKUP-ACCMETH PIC X(02) VALUE SPACE. 030A*BAD
02 LIB-DEV-PROCESS-COMPILE PIC X(01) VALUE SPACE. 030A*BAD
02 LIB-DEV-PROCESS-LINK PIC X(01) VALUE SPACE. 030A*BAD
02 LIB-DEV-PROCESS-COMPLNK PIC X(01) VALUE SPACE. 030A*BAD
02 LIB-CHECKOUT-MODEL-STMTS. 030A*BAD
03 LIB-CHECKOUT-MODEL-X OCCURS 12 TIMES. 030A*BAD
04 LIB-CHECKOUT-CONTROL PIC X(75). 030A*BAD
02 LIB-CAN-CKOT-MODEL-STMTS. 030A*BAD
03 LIB-CAN-CKOT-MODEL-X OCCURS 12 TIMES. 030A*BAD
04 LIB-CAN-CKOT-CONTROL PIC X(75). 030A*BAD
02 LIB-CHECKIN-MODEL-STMTS. 030A*BAD
03 LIB-CHECKIN-MODEL-X OCCURS 12 TIMES. 030A*BAD
04 LIB-CHECKIN-CONTROL PIC X(75). 030A*BAD
02 LIB-COMPILE-MODEL-STMTS. 030A*BAD
03 LIB-COMPILE-MODEL-X OCCURS 12 TIMES. 030A*BAD
04 LIB-COMPILE-CONTROL PIC X(75). 030A*BAD
030A*BAD
******************************************************************030A*BAD
* RELATED LIBRARY CODES *030A*BAD
******************************************************************030A*BAD
030A*BAD
02 LIB-RELATED-LIBCS. 030A*BAD
03 LIB-RELATED-COMP-INCLUDES. 030A*BAD
04 LIB-RELATED-COMP-INCLUDE PIC X(7) 030A*BAD
occurs 4 times indexed by LIB-COMP-INC-IX. 030A*BAD
03 LIB-RELATED-LKED-INCLUDES. 030A*BAD
04 LIB-RELATED-LKED-INCLUDE PIC X(7) 030A*BAD
occurs 4 times indexed by LIB-LKED-INC-IX. 030A*BAD
03 LIB-RELATED-PRECMP-SYSLIBS. 030A*BAD
04 LIB-RELATED-PRECMP-SYSLIB PIC X(7) 030A*BAD
occurs 4 times indexed by LIB-PRECMP-SYSLIB-IX. 030A*BAD
03 LIB-RELATED-COMP-SYSLIBS. 030A*BAD
04 LIB-RELATED-COMP-SYSLIB PIC X(7) 030A*BAD
occurs 4 times indexed by LIB-COMP-SYSLIB-IX. 030A*BAD
03 LIB-RELATED-LKED-SYSLIBS. 030A*BAD
04 LIB-RELATED-LKED-SYSLIB PIC X(7) 030A*BAD
occurs 4 times indexed by LIB-LKED-SYSLIB-IX. 030A*BAD
03 LIB-RELATED-LKED-SYSLIN PIC X(7). 030A*BAD
03 LIB-RELATED-LISTING PIC X(7). 030A*BAD
03 LIB-RELATED-OBJECT PIC X(7). 030A*BAD
03 LIB-RELATED-LOAD PIC X(7). 030A*BAD
03 LIB-RELATED-SOURCE-OUT PIC X(7). 030A*BAD
03 LIB-RELATED-OTHER-OUT PIC X(7). 030A*BAD
020A*BAD
******************************************************************
* RETRIEVE OPTIONS. *030A*BAD
******************************************************************
020A*BAD
02 LIB-AUTO-RETRIEVE PIC X(01) VALUE SPACE. 030A*BAD
02 LIB-RETRIEVE-ENABLED PIC X(01) VALUE SPACE. 030A*BAD
02 LIB-RETRIEVE-MODEL-STMTS. 030A*BAD
03 LIB-RETRIEVE-MODEL-X OCCURS 12 TIMES. 030A*BAD
04 LIB-RETRIEVE-CONTROL PIC X(75). 030A*BAD
020A*BAD
******************************************************************020A*BAD
* LEVEL SPECIFIC DATA. *020A*BAD
******************************************************************020A*BAD
020A*BAD
02 LIB-LEVEL-COUNT PIC 9(02) COMP. 020A*BAD
02 LIB-LEVEL-DATA 020A*BAD
occurs 1 to 16 times 020A*BAD
depending on LIB-LEVEL-COUNT 020A*BAD
indexed by LIB-LEVEL-INDEX. 020A*BAD
* 020A*BAD
* Note. The first entry is always for the test phase. In the 020A*BAD
* test phase many of the fields such as approval 020A*BAD
* requirements, backup libraries, and backout libraries 020A*BAD
* do not apply. The LIB-LEVEL-TAG for the Test phase is 020A*BAD
* always 1. A LIB-LEVEL-TAG value of zero marks the end 020A*BAD
* of the table. LIB-LEVEL-TAG contains the internal 020A*BAD
* unique ID CA PanAPT uses for a level. LIB-LEVEL-SNAME 020A*BAD
* contains the name associate with the level, such as 020A*BAD
* "PROD" for a Production level. LIB-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 020A*BAD
* by this library code or not), with the starting level's 020A*BAD
* position being 1. If you add or delete levels from 020A*BAD
* your system, the LIB-LEVEL-SYSTEM-POS field will 020A*BAD
* change. If you change the names of levels, the 020A*BAD
* LIB-LEVEL-SNAME field will change, but the 020A*BAD
* LIB-LEVEL-TAG field will not. 020A*BAD
* 020A*BAD
020A*BAD
05 LIB-LEVEL-TAG PIC 9(09) COMP. 020A*BAD
05 LIB-LEVEL-SNAME PIC X(04). 020A*BAD
05 LIB-LEVEL-SYSTEM-POS PIC 9(04) COMP. 020A*BAD
* 020A*BAD
* If a phase is inactive, APT treats it as though it didn't 020A*BAD
* exist. This doesn't serve a lot of purpose, but exists for 020A*BAD
* compatibility with prior release of PANAPT, where you could 020A*BAD
* define a QA level but disable it by setting the "TEST -> QA" 020A*BAD
* flag to N in library code maintenance. 020A*BAD
* 020A*BAD
05 LIB-LEVEL-ACTIVE-STATUS PIC X(1). 020A*BAD
88 LIB-LEVEL-IS-ACTIVE VALUE 'A'. 020A*BAD
88 LIB-LEVEL-IS-INACTIVE VALUE 'I'. 020A*BAD
05 LIB-APPVER-AREA. 020A*BAD
10 LIB-APPROVALS-AREA. 020A*BAD
15 LIB-APPROVAL PIC X(01) 020A*BAD
OCCURS 20 TIMES 020A*BAD
INDEXED BY LIB-APPROVALS-INDEX. 020A*BAD
10 LIB-VERIFICATIONS-AREA. 020A*BAD
15 LIB-VERIFICATION PIC X(01) 020A*BAD
OCCURS 20 TIMES 020A*BAD
INDEXED BY LIB-VERIFICATIONS-INDEX. 020A*BAD
10 LIB-BKOTAPP-AREA. 020A*BAD
15 LIB-BKOTAPP PIC X(01) 020A*BAD
OCCURS 20 TIMES 020A*BAD
INDEXED BY LIB-BKOTAPP-INDEX. 020A*BAD
020A*BAD
* 020A*BAD
* Member existence exit 020A*BAD
* 020A*BAD
05 LIB-EXISTENCE-EXIT-PGM PIC X(08). 020A*BAD
05 LIB-EXISTENCE-EXIT-PARM PIC X(50). 020A*BAD
* 020A*BAD
* Member selection list exit 020A*BAD
* 020A*BAD
05 LIB-MSL-EXIT-PGM PIC X(08). 020A*BAD
05 LIB-MSL-EXIT-PARM PIC X(50). 020A*BAD
* 030A*BAD
* Member browse exit 030A*BAD
* 030A*BAD
05 LIB-BROWSE-EXIT-PGM PIC X(08). 030A*BAD
05 LIB-BROWSE-EXIT-PARM PIC X(50). 030A*BAD
* 020A*BAD
* What to do when 'MOVING' to this level. 020A*BAD
* 020A*BAD
05 LIB-MOVE-CONTROL PIC X(01). 020A*BAD
88 LIB-MOVE-COPY VALUE 'C'. 020A*BAD
88 LIB-MOVE-DELETE VALUE 'D'. 020A*BAD
88 LIB-MOVE-MOVE VALUE 'M'. 020A*BAD
88 LIB-MOVE-NONE VALUE 'N'. 020A*BAD
* 020A*BAD
* Backup / Backout enabled? 020A*BAD
* 020A*BAD
05 LIB-BKUP-CONTROL PIC X(01). 020A*BAD
88 LIB-BKUP-ENABLED VALUE 'Y'. 020A*BAD
05 LIB-BKOT-CONTROL PIC X(01). 020A*BAD
88 LIB-BKOT-ENABLED VALUE 'Y'. 020A*BAD
020A*BAD
05 LIB-DDNAME PIC X(08). 020A*BAD
05 LIB-DSN PIC X(44). 020A*BAD
05 LIB-ACCMETH PIC X(02). 020A*BAD
05 LIB-SECURITY PIC X(10). 020A*BAD
020A*BAD
05 LIB-BACKUP-DDNAME PIC X(08). 020A*BAD
05 LIB-BACKUP-DSN PIC X(44). 020A*BAD
05 LIB-BACKUP-ACCMETH PIC X(02). 020A*BAD
05 LIB-BACKUP-SECURITY PIC X(10). 020A*BAD
020A*BAD
05 LIB-BACKOUT-DDNAME PIC X(08). 020A*BAD
05 LIB-BACKOUT-DSN PIC X(44). 020A*BAD
05 LIB-BACKOUT-ACCMETH PIC X(02). 020A*BAD
05 LIB-BACKOUT-SECURITY PIC X(10). 020A*BAD
|
Copyright © 2004 CA.
All rights reserved.
|
|