COBOL Manual for TNS and TNS/R Programs

Creating and Compiling HP COBOL Source
Programs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
22-28
Using Data Definition Language (DDL)
File Utility Program (FUP) Commands
Example 22-5 shows the FUP command file that the DDL compiler produces from the
input shown in Example 22-3. Assuming that the name of the FUP command file is
FUPSRC, you create the file FOLKS with this command:
110> FUP /IN FUPSRC/
The name of the FUP command file is specified in the DDL command FUP; for details,
see the Data Definition Language (DDL) Reference Manual.
?SECTION PERSON-RECORD,HP
* Record PERSON-RECORD created on 02/28/93 at 12:01
01 PERSON-RECORD.
02 NAME-AND-ADDRESS.
03 NAME.
04 LAST-NAME PIC X(15).
04 MIDDLE-INITIAL PIC X(1).
04 FIRST-NAME PIC X(15).
03 ADDRESS.
04 STREET-NUMBER PIC X(6).
04 STREET-NAME PIC X(25).
04 FLAT-NUMBER PIC X(8).
04 MUNICIPALITY PIC X(25).
04 STATE-OR-PROVINCE PIC X(25).
04 NATION PIC X(25).
04 POSTAL-CODE PIC X(11).
02 OCCUPATION-NUMBER PIC 9(6).
02 OCCUPATION-NAME PIC X(35).
02 EMPLOYER-NAME PIC X(35).
02 EMPLOYER-ADDRESS.
03 STREET-NUMBER PIC X(6).
03 STREET-NAME PIC X(25).
03 FLAT-NUMBER PIC X(8).
03 MUNICIPALITY PIC X(25).
03 STATE-OR-PROVINCE PIC X(25).
03 NATION PIC X(25).
03 POSTAL-CODE PIC X(11).
Example 22-4. COPY Library Produced by the DDL Compiler (page 2 of 2)