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

Example 231 Input to the DDL Compiler
DEFINE NAME.
02 LAST-NAME PIC X(15).
02 MIDDLE-INITIAL PIC X(1).
02 FIRST-NAME PIC X(15).
END
DEFINE ADDRESS.
02 STREET-NUMBER PIC X(6).
02 STREET-NAME PIC X(25).
02 FLAT-NUMBER PIC X(8).
02 MUNICIPALITY PIC X(25).
02 STATE-OR-PROVINCE PIC X(25).
02 NATION PIC X(25).
02 POSTAL-CODE PIC X(11).
END
DEFINE NAME-AND-ADDRESS.
05 NAME TYPE *.
05 ADDRESS TYPE *.
END
RECORD PERSON-RECORD. FILE IS "folks" Entry-Sequenced.
02 NAME-AND-ADDRESS TYPE *.
02 OCCUPATION-NUMBER PIC 9(6).
02 OCCUPATION-NAME PIC X(35).
02 EMPLOYER-NAME PIC X(35).
02 EMPLOYER-ADDRESS TYPE address.
KEY "PN" IS NAME-AND-ADDRESS.NAME.
KEY "EN" IS EMPLOYER-NAME.
END
Data Declaration (COPY) Library
Example 232 shows the data declaration (COPY) library that the DDL compiler produces from the
input shown in Example 231. The DDL compiler has assigned (or reassigned) appropriate level
numbers—for example:
Level NumberData Item
01NAME
02STREET-NUMBER in the record ADDRESS
03STREET-NUMBER in the record NAME-AND-ADDRESS
04STREET-NUMBER in the record PERSON-RECORD
Example 232 COPY Library Produced by the DDL Compiler
* SCHEMA PRODUCED DATE - TIME : 2/28/93 12:01:42
?SECTION NAME,HP
* Definition NAME created on 02/28/93 at 12:01
01 NAME.
02 LAST-NAME PIC X(15).
02 MIDDLE-INITIAL PIC X(1).
02 FIRST-NAME PIC X(15).
?SECTION ADDRESS,HP
* Definition ADDRESS created on 02/28/93 at 12:01
01 ADDRESS.
02 STREET-NUMBER PIC X(6).
02 STREET-NAME PIC X(25).
02 FLAT-NUMBER PIC X(8).
02 MUNICIPALITY PIC X(25).
760 Creating and Compiling HP COBOL Source Programs