COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

• Files
• Tables
Level-Numbers
Level-numbers show the relationship of elementary data items to data structures.
Describes ...Level-Number
A record (whose level-number starts at 01) and its subordinate data items (whose
level-numbers are higher, but not necessarily successive).
01 through 49
An elementary item or a data structure introduced by a RENAMES clause. Use level-66
entries to regroup data structures.
66
An entry in the Working-Storage, Extended-Storage, or Linkage section that describes
noncontiguous elementary items. These items are not subdivided and are not subdivisions
of other items.
77
Condition-name entries, which define a conditional variable to be tested, including a
value or range of values assigned to that variable.
88
A data structure includes all data items described after it and before the next item whose
level-number is less than or equal to the level-number of that data structure. In Example 12,
ADDRESS-RECORD includes everything before PERSONAL-RECORD, OFFICE-NUMBER includes
everything before OFFICE-ADDRESS, and so on.
All elementary or data structures immediately subordinate to a given data structure must have
identical level-numbers greater than that of the data structure. In Example 12, OFFICE-NUMBER
and OFFICE-ADDRESS are immediately subordinate to ADDRESS-RECORD, DISTRICT and REGION
are immediately subordinate to OFFICE-NUMBER, and so on.
Example 12 Level Numbers
FD BRANCH-OFFICE-FILE
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 100 CHARACTERS
DATA RECORDS ARE ADDRESS-RECORD,
PERSONNEL-RECORD, MISC-RECORD.
* A record follows.
01 ADDRESS-RECORD.
* A data structure follows.
05 OFFICE-NUMBER.
* An elementary item follows.
10 DISTRICT PICTURE 99.
* Condition-names follow.
88 NEW-YORK VALUE 21.
88 TAMPA VALUE 43.
88 OMAHA VALUE 55.
...
10 REGION PICTURE 999.
05 OFFICE-ADDRESS.
10 STREET PICTURE X(25).
10 CITY PICTURE X(15).
10 STATE PICTURE X(2).
10 ZIP-CODE PICTURE 9(9).
...
* A record follows.
01 PERSONNEL-RECORD.
05 OFFICE-MANAGER PICTURE X(35).
05 NO-OF-EMPLOYEES PICTURE 9(4).
05 TAX-GROUPS.
10 HOURLY.
78 Data Fundamentals