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

02 STATE-OR-PROVINCE PIC X(25).
02 NATION PIC X(25).
02 POSTAL-CODE PIC X(11).
?SECTION NAME-AND-ADDRESS,HP
* Definition NAME-AND-ADDRESS created on 02/28/93 at 12:01
01 NAME-AND-ADDRESS.
02 NAME.
03 LAST-NAME PIC X(15).
03 MIDDLE-INITIAL PIC X(1).
03 FIRST-NAME PIC X(15).
02 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).
?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).
File Utility Program (FUP) Commands
Example 233 shows the FUP command file that the DDL compiler produces from the input shown
in Example 231. 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.
Example 233 FUP Command File Produced by the DDL Compiler
< SCHEMA PRODUCED DATE - TIME : 2/28/93 12:01:41
< SECTION PERSON-RECORD
< Record PERSON-RECORD created on 02/28/93 at 12:01
RESET
SET ALTKEY ( "PN", KEYOFF 0, KEYLEN 31, FILE 0 )
SET ALTKEY ( "EN", KEYOFF 197, KEYLEN 35, FILE 0 )
Creating or Altering a COPY or SOURCE Library 761