The following is a COBOL definition of the extract record.
*-------------------------------------------------------- *
*T *
* EXTRACT RECORD *
* *
*----------------------------------------------------------------*
SKIP1
01 JOURNAL-EXTRACT VALUE LOW-VALUES PIC X(311).
SKIP1
01 FILLER REDEFINES JOURNAL-EXTRACT SYNC.
05 JER-REPORT-IDENT.
10 JER-REPORT-TYPE PIC X(02).
88 JER-ACTIVITY VALUE '11'.
88 JER-DB-AREA VALUE '21'.
88 JER-DB-RECORD VALUE '22'.
88 JER-PROGRAM VALUE '31'.
88 JER-EVENT VALUE '91'.
88 JER-ABORTC VALUE '92'.
20 88 JER-MGMT VALUE '95'.
05 FILLER PIC X(02).
EJECT
05 JES-SORT-DATA PIC X(52).
SKIP1
05 JES-ACTIVITY-SORT REDEFINES JES-SORT-DATA.
10 JES-ACTV-KEY.
15 JES-ACTV-DATE.
20 YY PIC X(02).
20 SLASH1 PIC X(01).
20 MM PIC X(02).
20 SLASH2 PIC X(01).
20 DD PIC X(02).
15 JES-ACTV-TIME.
20 HH PIC X(02).
20 MIN PIC X(02).
20 SEC PIC X(02).
20 TTH PIC X(02).
15 JES-ACTV-RUNUNIT-IDENT.
20 JES-ACTV-RUNUNIT-QUAL PIC X(8).
20 JES-ACTV-RUNUNIT-ID PIC S9(9) COMP.
20 JES-ACTV-RUNUNIT-SEQ PIC S9(9) COMP.
10 JES-ACTV-ONLINE-BATCH PIC X(01).
88 JES-ACTV-ONLINE VALUE '1'.
88 JES-ACTV-BATCH VALUE '2'.
10 JES-ACTV-RECORD-TYPE PIC X(01).
88 JES-ACTV-BGIN VALUE '1'.
88 JES-ACTV-ENDJ VALUE '2'.
88 JES-ACTV-ABRT VALUE '3'.
88 JES-ACTV-COMT VALUE '4'.
88 JES-ACTV-AREA VALUE '5'.
10 FILLER PIC X(06).
10 JES-ACTV-ARCHIVE-SEQ PIC S9(18) COMP.
88 JES-ACTV-FLUSH VALUE ZERO.
10 FILLER PIC X(04).
SKIP1
05 JES-ACTIVITY-RESORT REDEFINES JES-SORT-DATA.
10 JES-ACTV-RS-ONLINE-BATCH PIC X(01).
88 JES-ACTV-RS-ONLINE VALUE '1'.
88 JES-ACTV-RS-BATCH VALUE '2'.
10 FILLER PIC X(03).
10 JES-ACTV-RS-DURATION PIC S9(5)V99 COMP-3.
10 JES-ACTV-RS-RUNUNIT-IDENT.
15 JES-ACTV-RS-RUNUNIT-QUAL PIC X(8).
15 JES-ACTV-RS-RUNUNIT-ID PIC S9(9) COMP.
15 JES-ACTV-RS-RUNUNIT-SEQ PIC S9(9) COMP.
10 JES-ACTV-RS-RECORD-TYPE PIC X(01).
88 JES-ACTV-RS-BGIN VALUE '1'.
88 JES-ACTV-RS-ENDJ VALUE '2'.
88 JES-ACTV-RS-ABRT VALUE '3'.
88 JES-ACTV-RS-COMT VALUE '4'.
88 JES-ACTV-RS-AREA VALUE '5'.
10 JES-ACTV-RS-FORCED-ABRT-SW PIC X(01).
88 JES-ACTV-RS-FORCED-ABRT VALUE '1'.
10 FILLER PIC X(26).
EJECT
05 JES-DB-AREA-SORT REDEFINES JES-SORT-DATA.
10 JES-DBAREA-KEY.
15 JES-DBAREA-DATE.
20 YY PIC X(02).
20 SLASH1 PIC X(01).
20 MM PIC X(02).
20 SLASH2 PIC X(01).
20 DD PIC X(02).
15 JES-DBAREA-TIME.
20 HH PIC X(02).
20 MIN PIC X(02).
20 SEC PIC X(02).
20 TTH PIC X(02).
15 JES-DBAREA-RUNUNIT-IDENT.
20 JES-DBAREA-RUNUNIT-QUAL PIC X(8).
20 JES-DBAREA-RUNUNIT-ID PIC S9(9) COMP.
20 JES-DBAREA-RUNUNIT-SEQ PIC S9(9) COMP.
10 JES-DBAREA-ARCHIVE-SEQ PIC S9(18) COMP.
88 JES-DBAREA-FLUSH VALUE ZERO.
10 JES-DBAREA-PAGE PIC S9(9) COMP.
10 JES-DBAREA-ONLINE-BATCH PIC X(01).
88 JES-DBAREA-ONLINE VALUE '1'.
88 JES-DBAREA-BATCH VALUE '2'.
10 FILLER PIC X(01).
10 JES-DBAREA-RECORD-ID PIC S9(4) COMP.
10 JES-DBAREA-RECORD-TYPE PIC X(01).
88 JES-DBAREA-BFOR VALUE '1'.
88 JES-DBAREA-AFTR VALUE '2'.
10 FILLER PIC X(03).
SKIP1
05 JES-DB-AREA-RESORT REDEFINES JES-SORT-DATA.
10 JES-DBA-RS-PAGE PIC S9(9) COMP.
10 JES-DBA-RS-RECORD-ID PIC S9(4) COMP.
10 JES-DBA-RS-ONLINE-BATCH PIC X(01).
88 JES-DBA-RS-ONLINE VALUE '1'.
88 JES-DBA-RS-BATCH VALUE '2'.
10 FILLER PIC X(01).
10 JES-DBA-RS-DATE PIC X(08).
10 JES-DBA-RS-TIME PIC X(06).
10 FILLER PIC X(02).
10 JES-DBA-RS-RUNUNIT-IDENT.
15 JES-DBA-RS-RUNUNIT-QUAL PIC X(8).
15 JES-DBA-RS-RUNUNIT-ID PIC S9(9) COMP.
15 JES-DBA-RS-RUNUNIT-SEQ PIC S9(9) COMP.
10 JES-DBA-RS-ARCHIVE-SEQ PIC S9(18) COMP.
10 JES-DBA-RS-RECORD-TYPE PIC X(01).
88 JES-DBA-RS-BFOR VALUE '1'.
88 JES-DBA-RS-AFTR VALUE '2'.
10 FILLER PIC X(03).
EJECT
05 JES-DB-RECORD-SORT REDEFINES JES-SORT-DATA.
10 JES-DBRCD-KEY.
15 JES-DBRCD-DATE.
20 YY PIC X(02).
20 SLASH1 PIC X(01).
20 MM PIC X(02).
20 SLASH2 PIC X(01).
20 DD PIC X(02).
15 JES-DBRCD-TIME.
20 HH PIC X(02).
20 MIN PIC X(02).
20 SEC PIC X(02).
20 TTH PIC X(02).
15 JES-DBRCD-RUNUNIT-IDENT.
20 JES-DBRCD-RUNUNIT-QUAL PIC X(8).
20 JES-DBRCD-RUNUNIT-ID PIC S9(9) COMP.
20 JES-DBRCD-RUNUNIT-SEQ PIC S9(9) COMP.
10 JES-DBRCD-ARCHIVE-SEQ PIC S9(18) COMP.
88 JES-DBRCD-FLUSH VALUE ZERO.
10 JES-DBRCD-RECORD-ID PIC S9(4) COMP.
10 JES-DBRCD-ONLINE-BATCH PIC X(01).
88 JES-DBRCD-ONLINE VALUE '1'.
88 JES-DBRCD-BATCH VALUE '2'.
10 JES-DBRCD-RECORD-TYPE PIC X(01).
88 JES-DBRCD-BFOR VALUE '1'.
88 JES-DBRCD-AFTR VALUE '2'.
10 FILLER PIC X(08).
SKIP1
05 JES-DB-RECORD-RESORT REDEFINES JES-SORT-DATA.
10 JES-DBR-RS-RECORD-ID PIC S9(4) COMP.
10 JES-DBR-RS-ONLINE-BATCH PIC X(01).
88 JES-DBR-RS-ONLINE VALUE '1'.
88 JES-DBR-RS-BATCH VALUE '2'.
10 FILLER PIC X(05).
10 JES-DBR-RS-DATE PIC X(08).
10 JES-DBR-RS-TIME PIC X(06).
10 FILLER PIC X(02).
10 JES-DBR-RS-RUNUNIT-IDENT.
15 JES-DBR-RS-RUNUNIT-QUAL PIC X(8).
15 JES-DBR-RS-RUNUNIT-ID PIC S9(9) COMP.
15 JES-DBR-RS-RUNUNIT-SEQ PIC S9(9) COMP.
10 JES-DBR-RS-ARCHIVE-SEQ PIC S9(18) COMP.
10 JES-DBR-RS-RECORD-TYPE PIC X(01).
88 JES-DBR-RS-BFOR VALUE '1'.
88 JES-DBR-RS-AFTR VALUE '2'.
10 FILLER PIC X(03).
EJECT
05 JES-PROGRAM-SORT REDEFINES JES-SORT-DATA.
10 JES-PROG-KEY.
15 JES-PROG-DATE.
20 YY PIC X(02).
20 SLASH1 PIC X(01).
20 MM PIC X(02).
20 SLASH2 PIC X(01).
20 DD PIC X(02).
15 JES-PROG-TIME.
20 HH PIC X(02).
20 MIN PIC X(02).
20 SEC PIC X(02).
20 TTH PIC X(02).
15 JES-PROG-RUNUNIT-IDENT.
20 JES-PROG-RUNUNIT-QUAL PIC X(8).
20 JES-PROG-RUNUNIT-ID PIC S9(9) COMP.
20 JES-PROG-RUNUNIT-SEQ PIC S9(9) COMP.
10 JES-PROG-PROGRAM-NAME PIC X(08).
10 JES-PROG-RECORD-TYPE PIC X(01).
88 JES-PROG-FLUSH VALUE LOW-VALUES.
88 JES-PROG-BGIN VALUE '1'.
88 JES-PROG-ENDJ VALUE '2'.
88 JES-PROG-ABRT VALUE '3'.
88 JES-PROG-COMT VALUE '4'.
88 JES-PROG-AREA VALUE '5'.
10 FILLER PIC X(11).
SKIP1
05 JES-PROGRAM-RESORT REDEFINES JES-SORT-DATA.
10 JES-PROG-RS-PROGRAM-NAME PIC X(08).
10 JES-PROG-RS-LEVEL PIC X(01).
88 JES-PROG-RS-RU VALUE '1'.
88 JES-PROG-RS-DUR VALUE '2'.
10 FILLER PIC X(03).
10 JES-PROG-RS-DURATION PIC S9(5)V99 COMP-3.
10 JES-PROG-RS-RUNUNIT.
15 JES-PROG-RS-DATE PIC X(08).
15 JES-PROG-RS-TIME PIC X(08).
15 JES-PROG-RS-RUNUNIT-IDENT.
20 JES-PROG-RS-RUNUNIT-QUAL PIC X(8).
20 JES-PROG-RS-RUNUNIT-ID PIC S9(9) COMP.
20 JES-PROG-RS-RUNUNIT-SEQ PIC S9(9) COMP.
10 FILLER PIC X(04).
EJECT
05 JES-CHRONO-SORT REDEFINES JES-SORT-DATA.
10 JES-CE-DATE.
20 YY PIC X(02).
20 SLASH1 PIC X(01).
20 MM PIC X(02).
20 SLASH2 PIC X(01).
20 DD PIC X(02).
15 JES-CE-TIME.
20 HH PIC X(02).
20 MIN PIC X(02).
20 SEC PIC X(02).
20 TTH PIC X(02).
15 JES-CE-TIME-X REDEFINES JES-CE-TIME.
20 JES-CE-HH PIC S9(2).
20 JES-CE-MIN PIC S9(2).
10 JES-CE-ARCHIVE-SEQ PIC S9(18) COMP.
10 JES-CE-RUNUNIT-IDENT.
15 JES-CE-RUNUNIT-QUAL PIC X(8).
15 JES-CE-RUNUNIT-ID PIC S9(9) COMP.
15 JES-CE-RUNUNIT-SEQ PIC S9(9) COMP.
10 JES-CE-ONLINE-BATCH PIC X(01).
88 JES-CE-ONLINE VALUE '1'.
88 JES-CE-BATCH VALUE '2'.
10 JES-CE-RECORD-TYPE PIC X(01).
88 JES-CE-BGIN VALUE '1'.
88 JES-CE-ENDJ VALUE '2'.
88 JES-CE-ABRT VALUE '3'.
88 JES-CE-COMT VALUE '4'.
88 JES-CE-AREA VALUE '5'.
88 JES-CE-DPRP VALUE 'A'.
88 JES-CE-DIND VALUE 'B'.
88 JES-CE-DCOM VALUE 'C'.
88 JES-CE-DBAK VALUE 'D'.
88 JES-CE-DPND VALUE 'E'.
88 JES-CE-DFGT VALUE 'F'.
88 JES-CE-DLID VALUE 'G'.
10 FILLER PIC X(10).
SKIP1
05 JES-ABORTC-SORT REDEFINES JES-SORT-DATA.
10 JES-ABORTC-DATE.
15 YY PIC X(02).
15 SLASH1 PIC X(01).
15 MM PIC X(02).
15 SLASH2 PIC X(01).
15 DD PIC X(02).
10 JES-ABORTC-TIME.
20 HH PIC X(02).
20 MIN PIC X(02).
20 SEC PIC X(02).
20 TTH PIC X(02).
10 JES-ABORTC-PROGRAM-NAME PIC X(08).
10 JES-ABORTC-COINCIDENT-NAME PIC X(08).
88 JES-ABORTC-ABORTED VALUE LOW-VALUES.
10 FILLER PIC X(20).
SKIP1
05 JES-ABORTC-RESORT REDEFINES JES-SORT-DATA.
10 JES-ABORTC-RS-COINCIDENT PIC X(08).
10 JES-ABORTC-RS-RATIO PIC S9(3)V99 COMP-3.
10 FILLER PIC X(01).
10 JES-ABORTC-RS-ABORTED PIC X(08).
10 JES-ABORTC-RS-OCCURS PIC S9(4) COMP.
10 JES-ABORTC-RS-ABORTS PIC S9(4) COMP.
10 FILLER PIC X(28).
EJECT
05 JES-MANAGEMENT-SORT REDEFINES JES-SORT-DATA.
10 JES-MGMT-KEY.
15 JES-MGMT-DATE.
20 YY PIC X(02).
20 SLASH1 PIC X(01).
20 MM PIC X(02).
20 SLASH2 PIC X(01).
20 DD PIC X(02).
15 JES-MGMT-TIME PIC X(08).
15 JES-MGMT-PROGRAM-NAME PIC X(08).
15 JES-MGMT-RUNUNIT-IDENT.
20 JES-MGMT-RUNUNIT-QUAL PIC X(8).
20 JES-MGMT-RUNUNIT-ID PIC S9(9) COMP.
20 JES-MGMT-RUNUNIT-SEQ PIC S9(9) COMP.
10 JES-MGMT-RECORD-TYPE PIC X(01).
88 JES-MGMT-FLUSH VALUE LOW-VALUES.
88 JES-MGMT-BGIN VALUE '1'.
88 JES-MGMT-ENDJ VALUE '2'.
88 JES-MGMT-ABRT VALUE '3'.
88 JES-MGMT-COMT VALUE '4'.
10 FILLER PIC X(11).
SKIP1
05 JED-EXTRACT-DATA PIC X(255).
SKIP1
05 JD1-TYPE1-DATA REDEFINES JED-EXTRACT-DATA.
10 JD1-PROGRAM-NAME PIC X(08).
10 JD1-PROGRAM-DURATION REDEFINES
JD1-PROGRAM-NAME PIC S9(5)V99 COMP-3.
10 JD1-QUIESCE-LEVEL PIC S9(4) COMP.
10 JD1-TASK-ID.
15 JD1-TASK-ID-PREFIX PIC X(04).
88 JD1-BATCH VALUE 'BATC'.
15 JD1-TASK-ID-SUFFIX PIC X(04).
10 JD1-USER-ID PIX X(32).
10 JD1-EXT-USERID PIX X(32).
10 FILLER PIC X(173).
EJECT
05 JD2-TYPE2-DATA REDEFINES JED-EXTRACT-DATA.
10 JD2-PROGRAM-NAME PIC X(08).
88 JD2-PROGRAM-ABORTED VALUE LOW-VALUES.
10 JD2-CHKPT-DATE.
15 YY PIC X(02).
15 SLASH1 PIC X(01).
15 MM PIC X(02).
15 SLASH2 PIC X(01).
15 DD PIC X(02).
10 JD2-CHKPT-TIME.
15 HH PIC X(02).
15 MIN PIC X(02).
15 SEC PIC X(02).
15 TTH PIC X(02).
10 FILLER PIC X(02).
10 JD2-QUIESCE-LEVEL PIC S9(4) COMP.
10 JD2-TASK-ID PIC X(08).
10 JD2-AREA-COUNT PIC S9(5) COMP.
10 JD2-BFOR-COUNT PIC S9(5) COMP.
10 JD2-AFTR-COUNT PIC S9(5) COMP.
10 JD2-COMT-COUNT PIC S9(5) COMP.
10 JD2-RECORDS-UPDATED PIC S9(9) COMP.
10 JD2-PAGES-READ PIC S9(9) COMP.
10 JD2-PAGES-WRITTEN PIC S9(9) COMP.
10 JD2-PAGES-TOTAL PIC S9(9) COMP.
10 JD2-CALC-HOME-PAGE PIC S9(9) COMP.
10 JD2-CALC-OVERFLOW PIC S9(9) COMP.
10 JD2-VIA-OWNER-PAGE PIC S9(9) COMP.
10 JD2-VIA-OVERFLOW PIC S9(9) COMP.
10 JD2-RECORDS-REQUESTED PIC S9(9) COMP.
10 JD2-RECORDS-CURRENT PIC S9(9) COMP.
10 JD2-CALLS-TO-DBMS PIC S9(9) COMP.
10 JD2-FRAGMENTS-STORED PIC S9(9) COMP.
10 JD2-ROOTS-RCDS-RELOC PIC S9(9) COMP.
10 JD2-LOCKS-REQUESTED PIC S9(9) COMP.
10 JD2-SEL-LOCKS-HELD PIC S9(9) COMP.
10 JD2-UPD-LOCKS-HELD PIC S9(9) COMP.
10 JD2-COUNT17 PIC S9(9) COMP.
10 JD2-COUNT18 PIC S9(9) COMP.
10 JD2-COUNT19 PIC S9(9) COMP.
10 JD2-COUNT20 PIC S9(9) COMP.
10 JD2-COUNT21 PIC S9(9) COMP.
10 JD2-COUNT22 PIC S9(9) COMP.
10 JD2-COUNT23 PIC S9(9) COMP.
10 JD2-COUNT24 PIC S9(9) COMP.
10 JD2-COUNT25 PIC S9(9) COMP.
10 JD2-COUNT26 PIC S9(9) COMP.
10 JD2-COUNT27 PIC S9(9) COMP.
10 JD2-COUNT28 PIC S9(9) COMP.
10 JD2-COUNT29 PIC S9(9) COMP.
10 JD2-COUNT30 PIC S9(9) COMP.
10 FILLER PIC X(83).
SKIP1
05 JD2B-TYPE2-DATA REDEFINES JED-EXTRACT-DATA.
10 FILLER PIC X(52).
10 JD2B-COUNT OCCURS 30 TIMES PIC S9(9) COMP.
10 FILLER PIC X(83).
EJECT
05 JD2C-SORT-DATA REDEFINES JED-EXTRACT-DATA.
10 FILLER PIC X(253).
10 JD2C-SORT-EXTENSION.
15 JES-PROG-RS-RECORD-TYPE PIC X(01).
88 JES-PROG-RS-BGIN VALUE '1'.
88 JES-PROG-RS-ENDJ VALUE '2'.
88 JES-PROG-RS-ABRT VALUE '3'.
88 JES-PROG-RS-COMT VALUE '4'.
88 JES-PROG-RS-AREA VALUE '5'.
15 JES-PROG-RS-FORCED-ABRT-SW PIC X(01).
88 JES-PROG-RS-FORCED-ABRT VALUE '1'.
SKIP1
05 JD3-TYPE3-DATA REDEFINES JED-EXTRACT-DATA.
10 JD3-VERB PIC S9(2) COMP.
10 JD3-DISPLACE-CALL PIC S9(4) COMP.
10 JD3-DBK-PAGE PIC S9(9) COMP.
10 JD3-DBK-LINE PIC S9(4) COMP.
10 JD3-RECORD-ID PIC S9(4) COMP.
10 JD3-PAGE-DISPLACE PIC S9(4) COMP.
10 JD3-RECORD-LENGTH PIC S9(4) COMP.
10 JD3-PREFIX-LENGTH PIC S9(4) COMP.
10 JD3-PREFIX OCCURS 236 TIMES PIC X(01).
10 FILLER PIC X(01).
SKIP1
05 JD4-TYPE4-DATA REDEFINES JED-EXTRACT-DATA.
10 JD4-AREA-NAME PIC X(20).
10 JD4-LOW-PAGE PIC S9(9) COMP.
10 JD4-HIGH-PAGE PIC S9(9) COMP.
10 JD4-OPEN-MODE PIC S9(4) COMP.
88 JD4-RETRIEVAL VALUE +1.
88 JD4-UPDATE VALUE +2.
10 JD4-OPEN-ACCESS PIC S9(4) COMP.
88 JD4-SHARED VALUE +1.
88 JD4-EXCLUSIVE VALUE +2.
88 JD4-PROTECTED VALUE +4.
10 FILLER PIC X(223).
05 JED-DXXX-DATA REDEFINES JED-EXTRACT-DATA.
10 JED-DXXX-NODE PIC X(8).
10 JED-DXXX-DTRID PIC X(24).
10 JED-DXXX-FILLER PIC X(8).
10 JED-DXXX-LIDOF PIC S9(4) COMP.
10 JED-DXXX-LIDNUM PIC S9(4) COMP.
10 FILLER PIC X(211).
05 JED-DXXX-LID REDEFINES JED-EXTRACT-DATA.
10 JED-DXXX-PGM-ID PIC X(8).
10 JED-DXXX-LOC-ID PIC S9(9) COMP.
10 FILLER PIC X(243).
_
|
Copyright © 2014 CA.
All rights reserved.
|
|