HP System Dictionary/XL COBOL Definition Extractor (32257-90001)

4-:4
Define all data sets in one module (Y/N) > Y
Module name for IMAGE-DATABASE STORE > MODULE
Element prefix > [[RETURN]]
000100
000200 01 CUSTOMER-DATA.
000300 05 ACCOUNT PIC S9(9) COMP.
000400 05 LAST-NAME PIC X(16).
000500 05 FIRST-NAME PIC X(10).
000600 05 MID-INITIAL PIC X(2).
000700 05 STREET-ADDRESS PIC X(26).
000800 05 CITY PIC X(12).
000900 05 STATE PIC X(2).
001000 05 ZIP PIC X(6).
001100 05 CREDIT-RATING PIC S9(9) COMP.
001200
001300
001400 01 DATE-MASTER-DATA.
001500 05 DATE-INFO PIC X(6).
001600
001700
001800 01 PRODUCT-DATA.
001900 05 STOCK-NO PIC X(8).
002000 05 DESCRIPTION PIC X(20).
002100
002200
002300 01 SALES-DATA.
002400 05 ACCOUNT PIC S9(9) COMP.
002500 05 STOCK-NO PIC X(8).
002600 05 QUANTITY PIC S9(4) COMP.
002700 05 PRICE PIC S9(9) COMP.
002800 05 TAX PIC S9(9) COMP.
002900 05 TOTAL PIC S9(9) COMP.
003000 05 PURCH-DATE PIC X(6).
003100 05 DELIV-DATE PIC X(6).