Dictionary/3000 Reference Manual (32244-90001)

250 Chapter7
The Dictionary DICTCDE Utility
Examples of Generated Code
001300
001400 01 DS-CUST-M PIC X(7) VALUE "CUST-M ".
001500
001600 01 DATE-A-DATA.
001700 05 X-DATE PIC X(8).
001800
001900 01 DS-DATE-A PIC X(7) VALUE "DATE-A ".
002000
002100 01 INVOICE-M-DATA.
002200 05 DELETE-WORD PIC X(2).
002300 05 INVOICE-NUM PIC S9(8).
002400
002500 01 DS-INVOICE-M PIC X(10) VALUE "INVOICE-M ".
002600
002700 01 ITEM-M-DATA
002800 05 DELETE-WORD PIC X(2).
002900 05 ITEM-NUM PIC S9(6).
003000 05 ITEM-DESC PIC X(30).
003100 05 ITEM-UNIT-PRICE PIC S9(8).
003200 05 ITEM-QOH PIC S9(6).
003300 05 ITEM-ROP PIC S9(6).
003400
003500 01 DS-ITEM-M PIC X(7) VALUE "ITEM-M ".
003600
003700 01 INVOICE-D-DATA.
003800 05 DELETE-WORD PIC X(2).
003900 05 INVOICE-NUM PIC S9(8).
004000 05 CUST-NUM PIC S9(8).
004100 05 INVOICE-TOTAL PIC S9(10).
004200 05 INVOICE-DATE PIC X(8).
004300
004400 01 DS-INVOICE-D PIC X(10) VALUE "INVOICE-D ".
004500
004600 01 LINE-ITEMS-D-DATA.
004700 05 DELETE-WORD PIC X(2).
004800 05 INVOICE-NUM PIC S9(8).
004900 05 ITEM-NUM PIC S9(6).
005000 05 ITEM-QTY PIC S9(6).