The following record layout, mapped by COBOL member APCCINV1, describes the data of the parameter passed to the inventory exit program.
****************** < Description Begin > ********************
* *
* Name : APCCINV1 *
* Product : PANAPT *
* Type : Cobol Copybook *
* *
* Descript. : APCCINV1 Inventory exit parameter list. *
* *
* *
* Notices : This module is part of the non-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 > ********************
SKIP1
****************** < Documentation Begin > ********************
* *
* Function : To provide a common record description for the *
* data obtained from panel APIP610 that is passed *
* to the Inventory exit. *
* *
* Related to : Panel APIP610 - any changes to panel APIP610 must *030A*BAD
* be reflected in this member. Changes to this *030A*BAD
* member must also be made in APAMINV. *030A*BAD
* *
* Comments : None. *
* *
****************** < Documentation End > ********************
SKIP1
SKIP1
01 APIP610-RECORD.
* APIP610 fields... 030A*BAD
02 APIP610-LIB-CODE PIC X(04) VALUE SPACE.
02 APIP610-LIB-SUBCODE PIC X(03) VALUE SPACE.
02 APIP610-QUALIFIER PIC X(08) VALUE SPACE.
02 APIP610-MEMBER PIC X(10) VALUE SPACE.
02 APIP610-OWNER-ID PIC X(08) VALUE SPACE.
02 APIP610-APPROVED-FLAG PIC X(01) VALUE SPACE.
02 APIP610-LAST-MOVED-BY-MR PIC X(06) VALUE SPACE.
02 APIP610-DESCR PIC X(55) VALUE SPACE.
02 APIP610-ENVIRONMENT PIC X(08) VALUE SPACE.
02 APIP610-APPLICATION PIC X(08) VALUE SPACE.
02 APIP610-LANGUAGE PIC X(08) VALUE SPACE.
02 APIP610-COMMENTS PIC X(55) VALUE SPACE.
02 APIP610-PANEL-ID PIC X(07) VALUE SPACE. 030A*BAD
02 APIP610-DIBSCFLG PIC X(01) VALUE SPACE. 030A*BAD
02 APIP610-DIBSUFLG PIC X(01) VALUE SPACE. 030A*BAD
02 APIP610-ASSIGN-FLAG PIC X(01) VALUE SPACE.
02 APIP610-ASSIGNED-TO-USER PIC X(08) VALUE SPACE.
02 APIP610-ASSIGNED-DATE. 013A*JMM
03 APIP610-ASSIGNED-DATE-CC PIC X(02) VALUE SPACE. 013A*JMM
03 APIP610-ASSIGNED-DATE-YY PIC X(02) VALUE SPACE. 013A*JMM
03 APIP610-ASSIGNED-DATE-MM PIC X(02) VALUE SPACE. 013A*JMM
03 APIP610-ASSIGNED-DATE-DD PIC X(02) VALUE SPACE. 013A*JMM
02 APIP610-ASSIGNED-TIME. 013A*JMM
03 APIP610-ASSIGNED-TIME-HH PIC X(02) VALUE SPACE. 013A*JMM
03 APIP610-ASSIGNED-TIME-MM PIC X(02) VALUE SPACE. 013A*JMM
03 APIP610-ASSIGNED-TIME-SS PIC X(02) VALUE SPACE. 013A*JMM
02 APIP610-ASSIGNED-TO-MR PIC X(06) VALUE SPACE.
030A*BAD
* APIP611 fields, user data... 030A*BAD
02 APIP610-USER-DATA. 012D*JLT
03 APIP610-USER-TABLE-8. 012D*JLT
05 APIP610-USER-ENTRY-01 PIC X(8) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-02 PIC X(8) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-03 PIC X(8) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-04 PIC X(8) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-05 PIC X(8) VALUE SPACE. 012D*JLT
03 APIP610-WORK-TABLE-8 REDEFINES APIP610-USER-TABLE-8. 012D*JLT
05 APIP610-WORK-ENTRY-8 PIC X(08) OCCURS 5 TIMES. 012D*JLT
03 APIP610-USER-TABLE-16. 012D*JLT
05 APIP610-USER-ENTRY-06 PIC X(16) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-07 PIC X(16) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-08 PIC X(16) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-09 PIC X(16) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-10 PIC X(16) VALUE SPACE. 012D*JLT
03 APIP610-WORK-TABLE-16 REDEFINES APIP610-USER-TABLE-16. 012D*JLT
05 APIP610-WORK-ENTRY-16 PIC X(16) OCCURS 5 TIMES. 012D*JLT
03 APIP610-USER-TABLE-50. 012D*JLT
05 APIP610-USER-ENTRY-11 PIC X(50) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-12 PIC X(50) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-13 PIC X(50) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-14 PIC X(50) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-15 PIC X(50) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-16 PIC X(50) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-17 PIC X(50) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-18 PIC X(50) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-19 PIC X(50) VALUE SPACE. 012D*JLT
05 APIP610-USER-ENTRY-20 PIC X(50) VALUE SPACE. 012D*JLT
03 APIP610-WORK-TABLE-50 REDEFINES APIP610-USER-TABLE-50. 012D*JLT
05 APIP610-WORK-ENTRY-50 PIC X(50) OCCURS 10 TIMES. 012D*JLT
030A*BAD
* APIP612 fields, Compile options... 030A*BAD
02 APIP610-COMPILE-FIELD. 030A*BAD
03 APIP610-COMPILER-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
03 APIP610-LINKAGE-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
* Data Base precompile 030A*BAD
03 APIP610-DB-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
* CICS precompile 030A*BAD
03 APIP610-CICS-OPTIONS PIC X(60) VALUE SPACE. 030A*BAD
* Name of linkage editor control statement member 030A*BAD
03 APIP610-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 APIP610-LIST-OVERRIDE PIC X(01) VALUE SPACE. 030A*BAD
03 APIP610-OBJECT-OVERRIDE PIC X(01) VALUE SPACE. 030A*BAD
03 APIP610-LOAD-OVERRIDE PIC X(01) VALUE SPACE. 030A*BAD
02 APIP610-LIBCODE-SUPPORT. 030A*BAD
03 APIP610-LIST-SUPPORT PIC X(01) VALUE SPACE. 030A*BAD
03 APIP610-OBJECT-SUPPORT PIC X(01) VALUE SPACE. 030A*BAD
03 APIP610-LOAD-SUPPORT PIC X(01) VALUE SPACE. 030A*BAD
|
Copyright © 2004 CA.
All rights reserved.
|
|