The following record layout, mapped by COBOL member APCCDIB2, describes the inventory data for a member.
****************** < Description Begin > ********************
* *
* NAME : APCCDIB2 *
* Product : PANAPT *
* Type : Cobol Copybook *
* *
* DESCRIPT. : PANAPT Inventory record definition for the *
* User Inventory Exit. *
* *
* 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 > ********************
SKIP2
****************** < Documentation Begin > ********************
* *
* Function : To provide a common record description for the *
* PANAPT User Inventory Exit. *
* *
* Related to : APAMDIB2 must reflect all changes to this member. *
* *
* Comments : APAMDIB2 MUST Reflect ALL Changes to this Member. *
* *
****************** < Documentation End > ********************
SKIP2
* RECORD LENGTH 1152 BYTES 030A*BAD
01 INV-REC.
SKIP1
******************************************************************
* LIBRARY CODE / MEMBER NAME FIELDS
******************************************************************
SKIP1
02 INV-REC-LEN PIC 9(05) COMP. 030A*BAD
02 INV-REC-TYPE PIC X(02). 020A*SYW
* A value of '04' indicates an INV-REC. 030A*BAD
02 INV-LIBCODE.
03 INV-LIB-CODE PIC X(04) VALUE SPACE.
03 INV-LIB-SUBCODE PIC X(03) VALUE SPACE.
02 INV-MEMBER-QUALIFIER.
03 INV-MEMBER PIC X(10) VALUE SPACE.
03 INV-QUALIFIER PIC X(08) VALUE SPACE.
SKIP1
******************************************************************
* DATE/TIME INFORMATION FIELDS
******************************************************************
SKIP1
02 INV-UPDATE-ID PIC X(08) VALUE SPACE.
02 INV-DATE.
03 DATE-CC PIC X(02) VALUE SPACE.
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 INV-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.
SKIP1
******************************************************************
* INVENTORY INFORMATION FIELDS
******************************************************************
SKIP1
02 INV-APPLICATION PIC X(08) VALUE SPACE.
02 INV-APPROVED-FLAG PIC X(01) VALUE SPACE.
02 INV-COMMENTS PIC X(55) VALUE SPACE.
02 INV-DESCR PIC X(55) VALUE SPACE.
02 INV-ENVIRONMENT PIC X(08) VALUE SPACE.
02 INV-LANGUAGE PIC X(08) VALUE SPACE.
02 INV-LAST-MOVED-BY-MR PIC X(06) VALUE SPACE.
02 INV-OWNER-ID PIC X(08) VALUE SPACE.
02 FILLER PIC X(08) VALUE SPACE.
SKIP1
******************************************************************
* ASSIGNMENT INFORMATION FIELDS
******************************************************************
SKIP1
02 INV-ASSIGNED-FLAG PIC X(01) VALUE SPACE.
02 INV-ASSIGNED-DATE.
03 ASSIGNED-CC PIC X(02) VALUE SPACE.
03 ASSIGNED-YY PIC X(02) VALUE SPACE.
03 ASSIGNED-MM PIC X(02) VALUE SPACE.
03 ASSIGNED-DD PIC X(02) VALUE SPACE.
02 INV-ASSIGNED-TIME.
03 ASSIGNED-HH PIC X(02) VALUE SPACE.
03 ASSIGNED-MM PIC X(02) VALUE SPACE.
03 ASSIGNED-SS PIC X(02) VALUE SPACE.
02 INV-ASSIGNED-TO-MR PIC X(06) VALUE SPACE.
02 INV-ASSIGNED-TO-USER PIC X(08) VALUE SPACE.
02 FILLER PIC X(20) VALUE SPACE.
******************************************************************030A*BAD
* Compile options 030A*BAD
******************************************************************030A*BAD
02 INV-COMPILE-DATA. 030A*BAD
03 INV-COMPILER-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
03 INV-LINKAGE-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
* Data Base precompile 030A*BAD
03 INV-DB-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
* CICS precompile 030A*BAD
03 INV-CICS-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
* Name of linkage editor control statement member 030A*BAD
03 INV-LINK-STREAM PIC X(10) VALUE SPACE. 030A*BAD
* For OVERRIDE fields, Y means the LIST, OBJ, or LOAD 030A*BAD
* must be kept. If the Library Code is no longer 030A*BAD
* setup to keep the output, a modelling error should 030A*BAD
* be generated by the model. N means don't keep the 030A*BAD
* output, even if the Library Code is setup to keep it. 030A*BAD
* Blank means save it if the Library Code is setup to 030A*BAD
* save it, otherwise don't save it. 030A*BAD
03 INV-LIST-OVERRIDE PIC X(01) VALUE SPACE. 030A*BAD
03 INV-OBJECT-OVERRIDE PIC X(01) VALUE SPACE. 030A*BAD
03 INV-LOAD-OVERRIDE PIC X(01) VALUE SPACE. 030A*BAD
03 FILLER PIC X(20) VALUE SPACE. 030A*BAD
******************************************************************
* USER INVENTORY TABLES
******************************************************************
02 INV-USER-DATA. 012D*JLT
03 INV-USER-TABLE-8. 012D*JLT
05 INV-USER-ENTRY-01 PIC X(8) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-02 PIC X(8) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-03 PIC X(8) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-04 PIC X(8) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-05 PIC X(8) VALUE SPACE. 012D*JLT
03 INV-WORK-TABLE-8 REDEFINES INV-USER-TABLE-8. 012D*JLT
05 INV-WORK-ENTRY-8 PIC X(8) OCCURS 5 TIMES. 012D*JLT
03 INV-USER-TABLE-16. 012D*JLT
05 INV-USER-ENTRY-06 PIC X(16) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-07 PIC X(16) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-08 PIC X(16) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-09 PIC X(16) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-10 PIC X(16) VALUE SPACE. 012D*JLT
03 INV-WORK-TABLE-16 REDEFINES INV-USER-TABLE-16. 012D*JLT
05 INV-WORK-ENTRY-16 PIC X(16) OCCURS 5 TIMES. 012D*JLT
03 INV-USER-TABLE-50. 012D*JLT
05 INV-USER-ENTRY-11 PIC X(50) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-12 PIC X(50) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-13 PIC X(50) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-14 PIC X(50) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-15 PIC X(50) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-16 PIC X(50) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-17 PIC X(50) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-18 PIC X(50) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-19 PIC X(50) VALUE SPACE. 012D*JLT
05 INV-USER-ENTRY-20 PIC X(50) VALUE SPACE. 012D*JLT
03 INV-WORK-TABLE-50 REDEFINES INV-USER-TABLE-50. 012D*JLT
05 INV-WORK-ENTRY-50 PIC X(50) OCCURS 10 TIMES. 012D*JLT
|
Copyright © 2004 CA.
All rights reserved.
|
|