The following is a COBOL definition of the display record.
01 DISPLAY-RECORD.
05 DVL-RDW
10 DVL-LENGTH PIC S9(4) COMP.
10 DVL-FILLER PIC X(2).
05 DDI-DISPLAY-IDENT.
10 DDI-DISPLAY-TYPE PIC X(2).
88 DDI-RECORD-ID VALUE 'D1'.
88 DDI-RECORD-DBKEY VALUE 'D2'.
88 DDI-PROGRAM VALUE 'D3'.
10 FILLER PIC X(2)
EJECT
05 DSD-SORT-DATA PIC X(40).
05 FILLER REDEFINES DS1-SORT-DATA
10 DS1-SORT-DATA-1 PIC X(8).
10 DS1-RECORD-ID-SORT REDEFINES DS1-SORT-DATA-1.
15 DS1-RECORD-ID PIC S9(4) COMP.
10 DS1-RECORD-DBKEY-SORT REDEFINES DS1-SORT-DATA-1.
15 DS1-DBK-PAGE PIC S9(9) COMP.
15 DS1-DBK-LINE PIC S9(4) COMP.
10 DS1-PROGRAM-SORT REDEFINES DS1-SORT-DATA-1.
15 DS1-PROGRAM-NAME PIC X(8).
10 DS2-SORT-DATA-2.
15 DS2-KEY.
20 DS2-DATE PIC X(8).
20 DS2-TIME PIC X(8).
20 DS2-RUNUNIT-IDENT.
25 DS2-RUNUNIT-ID PIC S9(9) COMP.
25 DS2-RUNUNIT-SEQ PIC S9(9) COMP.
15 DS2-ARCHIVE-SEQ PIC S9(18) COMP.
88 DS2-ABORT VALUE ZERO.
05 DAD-ADDITIONAL-DATA PIC X(32).
05 FILLER REDEFINES DAD-ADDITIONAL-DATA.
10 DAD-PROGRAM-NAME PIC X(8).
10 DAD-DBKEY-FORMAT PIC S9(9) COMP.
10 DAD-DBKEY.
15 DAD-DBK-PAGE PIC S9(9) COMP.
15 DAD-DBK-LINE PIC S9(4) COMP.
10 DAD-VERB PIC S9(3) COMP.
10 DAD-RECORD-ID PIC S9(4) COMP.
10 DAD-RECORD-LENGTH PIC S9(4) COMP.
10 DAD-PREFIX-LENGTH PIC S9(4) COMP.
10 DAD-TYPE PIC X(1).
88 DAD-BFOR VALUE '1'.
88 DAD-AFTR VALUE '2'.
10 DAD-PROGRAM-VIEWS.
15 DAD-SUBSCHEMA-VIEW PIC X(1).
88 DAD-VIEW VALUE '1'.
15 DAD-DATA-VIEW PIC X(1).
88 DAD-DATA-ONLY VALUE '1'.
10 DAD-ABORT-FLAG PIC X(1).
88 DAD-ABORT VALUE HIGH-VALUES.
10 DAD-PREFIX-ONLY PIC X.
88 PREFIX ONLY VALUE 'Y'.
10 FILLER PIC X
05 DDC-DISPLAY-CHAR PIC X(1).
OCCURS 32676 TIMES
DEPENDING ON DAD-RECORD-LENGTH.
|
Copyright © 2014 CA.
All rights reserved.
|
|