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

4- 46
SDCDE attaches the prefix or suffix characters to the elements contained by the forms in the forms file. If
you enter a [[RETURN]], SDCDE does not attach a 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 each form in the forms file. This prompt has the following form:
Define field number tables (N/Y) >
If you enter a [[RETURN]] or an N, SDCDE does not define tables. If you enter a Y, SDCDE defines a field
number table following each form.
Each form's constants follow the form's definition. The forms file constants follow the last form. (See
"Using Multiple Modules" and "Generating FORM Definitions" for further explanation.)
Note that the constants generated for the forms file name and the form names are taken from the vplus-
alias attribute value if one exists, and from the primary name if no vplus-alias attribute value exists.
In all cases SDCDE issues a prompt to determine if the numeric fields of each form should be defined with
a PIC 9 or a PIC X. Note that the elements defined as numeric in System Dictionary only appear as ASCII
fields in the VPLUS buffer. SDCDE issues the following prompt to determine whether these numeric fields
have a PIC 9 or a PIC X description:
Define numeric fields as PIC 9 or PIC X (9/X) >
If you enter a [[RETURN]] or a 9, SDCDE uses a PIC 9 description, otherwise, a PIC X description is used.
When answers to the prompts are complete, SDCDE generates the code in the specified module for the
forms file definition. If you set the QUALIFY parameter of the OPTIONS command to ON, SDCDE
prefixes all forms with the forms file name. If you set the COMMON-STORE parameter of the OPTIONS
command to ON, all forms occupy the same memory space via the REDEFINES clause.
Example
In the following single module example, the forms file name is ORDERFF, ELEM-QUALIFY = PREFIX,
and CONSTANTS = ON.
Define all forms in one module (Y/N) > Y
Module name for FORMSFILE ORDERFF > FORMFILE
Element prefix > [[RETURN]]
Define field number tables (N/Y) > N
Define numeric fields as PIC 9 or PIC X (9/X) > 9
000100
000200 01 CUSTOMER-FORM-DATA.
000300 05 CUST-ACCT PIC X(8).
000400 05 CUST-NAME PIC X(30).
000500 05 CUST-ADDRESS PIC X(60).
000600
NONE No prompt
Value Prompt