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

4-:4
000800 05 ORDER-DATE PIC X(8).
000900 05 ORDER-STATUS PIC X.
001000
001100 01 FORM-CUST-ORDER PIC X(11) VALUE "CUST-ORDER ".
001200
001300 01 CUST-ORDER-FIELDS.
001400 05 FIELDNO-CUST-ACCT PIC S9(4) COMP VALUE 1.
001500 05 FIELDNO-PROD-NO PIC S9(4) COMP VALUE 2.
001600 05 FIELDNO-QUANTITY PIC S9(4) COMP VALUE 3.
001700 05 FIELDNO-UNIT-PRICE PIC S9(4) COMP VALUE 4.
001800 05 FIELDNO-TOTAL PIC S9(4) COMP VALUE 5.
001900 05 FIELDNO-ORDER-DATE PIC S9(4) COMP VALUE 6.
002000 05 FIELDNO-ORDER-STATUS PIC S9(4) COMP VALUE 7.
002100
Generating FILE Definitions
If you specify FILE as the entity type in GENERATE command, SDCDE generates a COBOL record
definition for the file with the given entity name.
If you set the SELECT-FILE parameter of the OPTIONS command to ON, SDCDE issues prompts
requesting the module name for the SELECT statement and the FILE SECTION entry; otherwise SDCDE
automatically skips the SELECT/FILE SECTION generation.
Module name for FILE file-name 's SELECT statement >
You can enter a module name or a [[RETURN]]. If you enter a [[RETURN]], SDCDE does not generate any
code for the SELECT statement. In either case, SDCDE issues the following FILE SECTION prompt:
Module name for FILE file-name 's FILE SECTION entry >
If you enter a [[RETURN]], SDCDE does not generate any code for the FILE SECTION. If you enter a
module name, SDCDE asks you whether to generate the FD or SD:
Define the file-name in FILE SECTION as FD or SD (F/S) >
Respond with an F if you wish to generate an FD statement and an S if an SD statement is desired. Note
that a "relative" file must be a data file (FD). Therefore, requesting an S for a relative file generates a
warning message.
In all cases, SDCDE issues a prompt for the copy library module name to be assigned to the record layout
and any constants generated for the file in WORKING-STORAGE SECTION. The prompt has the
following form:
Module name for FILE file-name 's WORKING-STORAGE >
If you enter a [[RETURN]], the record layout is defined in the FILE SECTION. If you do not enter a FILE
SECTION module, a record layout is not defined.
If you specify the ELEM-QUALIFY parameter of the OPTIONS command, and you define a record layout