COBOL Manual for TNS and TNS/R Programs

Data Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
7-35
Data Description Entries
In Example 7-6, the Working-Storage Section has five record description entries.
Example 7-6. Record Description Entries
WORKING-STORAGE SECTION.
01 DATA-TO-CHECKPOINT.
05 USER-INPUTS.
10 COMMAND-IN PICTURE X(8) VALUE SPACES.
10 TRAN-CODE PICTURE 999 VALUE ZERO.
10 REPORT-TO-PRINT PICTURE 99 VALUE ZERO.
10 REPORT-NUMBER PICTURE 99 VALUE ZERO.
05 PERFORM-FLAGS PICTURE 9.
88 BAD VALUE 0.
88 GOOD VALUE 1.
01 CURRENT-DATE.
05 CURRENT-YEAR PICTURE 99 VALUE ZERO.
05 CURRENT-MONTH PICTURE 99 VALUE ZERO.
05 CURRENT-DAY PICTURE 99 VALUE ZERO.
01 REPORT-HEADING-1.
05 FILLER PICTURE X(7) VALUE SPACES.
05 REPORT-MM PICTURE 99.
05 FILLER PICTURE X VALUE "/".
05 REPORT-DD PICTURE 99.
05 FILLER PICTURE X VALUE "/".
05 REPORT-YY PICTURE 99.
05 REPORT-YY PICTURE 99.
05 FILLER PICTURE X(7) VALUE SPACES.
...
01 MONTH-ABBREVIATIONS
VALUE "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC".
03 MON-ABBR PIC X(3) OCCURS 12 TIMES.
01 CONSTANTS-FOR-I-O.
05 ERROR-MSG-CONST PICTURE X(13) VALUE "*** ERROR ***".
...
01 CONSTANTS-FOR-LOGIC.
...