Dictionary/3000 Reference Manual (32244-90001)

252 Chapter7
The Dictionary DICTCDE Utility
Examples of Generated Code
Example
The following is an example of the code generated for a data set without prefixes assigned:
000100
000200 01 CUST-M-DATA.
000300 05 DELETE-WORD PIC X(2).
000400 05 CUST-NUM PIC S9(8).
000500 05 CUST-NAME PIC X(30).
000600 05 CUST-STREET PIC X(30).
000700 05 CUST-CITY PIC X(20).
000800 05 CUST-STATE PIC X(2).
000900 05 CUST-ZIP PIC S9(10).
001000 05 CUST-PHONE PIC X(12).
001100 05 CUST-CREDIT-LIM PIC S9(8).
001200 05 CUST-BALANCE PIC S9(10).
001300
001400 01 DS-CUST-M PIC X(7) VALUE "CUST-M ".
001500 01 DI-CUST-NUM PIC X(9) VALUE "CUST-NUM ".
The following is an example of the code generated for a data set with the prefix “cm-”
assigned:
000100
000200 01 CUST-M-DATA
000300 05 CM-DELETE-WORD PIC X(2).
000400 05 CM-CUST-NUM PIC S9(8).
000500 05 CM-CUST-NAME PIC X(30).
000600 05 CM-CUST-STREET PIC X(30).
000700 05 CM-CUST-CITY PIC X(20).
000800 05 CM-CUST-STATE PIC X(2).
000900 05 CM-CUST-ZIP PIC S9(10).
001000 05 CM-CUST-PHONE PIC X(12).
001100 05 CM-CUST-CREDIT-LIM PIC S9(8).
001200 05 CM-CUST-BALANCE PIC S9(10).
001300
001400 01 DS-CUST-M PIC X(7) VALUE "CUST-M ".
001500 01 DI-CM-CUST-NUM PIC X(9) VALUE "CUST-NUM ".