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

4-:4
000700 01 FORM-CUSTOMER-FORM PIC X(14) VALUE "CUSTOMER-FORM ".
000800
000900 01 ORDER-FORM-DATA.
001000 05 PROD-NO PIC X(15).
001100 05 QUANTITY PIC 9(8).
001200 05 UNIT-PRICE PIC X(12).
001300 05 TOTAL PIC X(12).
001400
001500 01 FORM-ORDER-FORM PIC X(11) VALUE "ORDER-FORM ".
001600
001700 01 FF-ORDERFF PIC X(8) VALUE "ORDERFF ".
001800 01 LWD-ORDERFF PIC X(6) VALUE "lockff".
001900 01 HF-ORDERFF PIC X(11) VALUE "ORDER-FORM ".
002000
Using Multiple Modules
When you choose the multiple modules option, SDCDE issues a prompt requesting the module name for
the form. This prompt has the following form:
Module name for FORM form-name >
If you enter a [[RETURN]] for the module name, SDCDE does not generate any code for the form, and
continues to the next form in the forms file.
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:
SDCDE attaches the prefix or suffix characters to the elements contained by the current form. If you enter
a [[RETURN]], SDCDE does not attach prefix or suffix.
If you set the CONSTANTS parameter of the OPTIONS command to ON, SDCDE issues a prompt for
generating a field number table for the current form. This prompt has the following form:
Define field number tables (N/Y) >
If you enter a [[RETURN]] or an N, SDCDE does not define a table. If you enter a Y, SDCDE defines a field
number table for the form. In all cases, SDCDE issues a prompt to determine if the numeric fields of the
form should be defined with a PIC 9 or a PIC X. The prompt has the following form:
Define numeric fields as PIC 9 or PIC X (9/X) >
Value Prompt
PREFIX Element prefix >
SUFFIX Element suffix >
NONE No prompt