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

4- 42
001000
Module name for STORE'S constants > CONSTMOD
000100
000200 01 DB-STORE PIC X(8) VALUE " STORE ".
000300 01 PWD-STORE PIC X(10) VALUE "PASSWORD ".
000400
000500 01 DS-CUSTOMER PIC X(9) VALUE "CUSTOMER ".
000600 01 DS-DATE-MASTER PIC X(12) VALUE "DATE-MASTER ".
000700 01 DS-PRODUCT PIC X(8) VALUE "PRODUCT ".
000800 01 DS-SALES PIC X(6) VALUE "SALES ".
000900 01 DS-SUP-MASTER PIC X(11) VALUE "SUP-MASTER ".
001000 01 DS-INVENTORY PIC X(10) VALUE "INVENTORY ".
001100
001200 01 DI-ACCOUNT PIC X(8) VALUE "ACCOUNT ".
001300 01 DI-DATE-INFO PIC X(11) VALUE "DATE-INFO ".
001400 01 DI-STOCK-NO PIC X(9) VALUE "STOCK-NO ".
001500 01 DI-PURCH-DATE PIC X(11) VALUE "PURCH-DATE ".
001600 01 DI-DELIV-DATE PIC X(11) VALUE "DELIV-DATE ".
001700 01 DI-SUPPLIER PIC X(9) VALUE "SUPPLIER ".
001800 01 DI-LASTSHIPDATE PIC X(13) VALUE "LASTSHIPDATE ".
001900
Generating IMAGE-DATASET Definitions
If you specify IMAGE-DATASET as the entity type in the GENERATE command, SDCDE generates a
COBOL record definition for the data set with the given entity name. SDCDE prompts you for a module
name:
Module name for IMAGE-DATASET data-set-name >
If you enter a [[RETURN]], SDCDE does not generate any code for this data set and the GENERATE
command will be complete. If you enter a module name, SDCDE generates the source into the specified
module in the WORKING-STORAGE SECTION.
If you specify the ELEM-QUALIFY parameter of the OPTIONS command, SDCDE responds with one of
the following prompts, depending on the value you specify:
Value Prompt
PREFIX Element prefix >
SUFFIX Element suffix >