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

4- 48
If you enter a [[RETURN]] or a 9, SDCDE uses a PIC 9 description. If you enter an X, SDCDE uses a PIC
X description.
When answers to these prompts are complete, SDCDE generates the code in the specified module for the
current form. If the current forms' field table and form name constants are to be generated, they appear at
the end of the module. If you set the QUALIFY parameter of the OPTIONS command to ON, SDCDE
prefixes the form's name 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. If you
set the ECHO parameter of the OPTIONS command to ON, all generated code is displayed on the
$STDLIST device before continuing with the next form.
The previous steps are repeated for every form in the forms file. When all forms have been defined, and if
you set the CONSTANTS parameter to ON, SDCDE issues a prompt requesting the module name for the
forms file name, lockword, and head form name constants. The prompt has the following form:
Module name for FORMSFILE forms-file-name 's constants >
The forms file constants generated here include the forms file name, its lockword (if any), and the head
form's name. The lockword is obtained from the lockword attribute of the FORMSFILE entity. SDCDE
uses the head-form attribute of the FORMSFILE contains FORM relationship to determine the head form
name. SDCDE uses the vplus-alias attribute value to determine the form name, forms file name, and head
form name. Determination of the head form is similar to that of the primary record determination process
described in Chapter 5. If you enter a [[RETURN]], SDCDE does not generate any constants.
If a module name already exists in the current copy library, the copy library's OPEN-MODE parameter
determines whether to append all generated code to the existing module or to replace the existing module.
Example
In the following multiple module example, the forms file name is ORDERFF, ELEM-QUALIFY =
SUFFIX, and CONSTANTS = ON.
Define all forms in one module (Y/N) > N
Module name for FORM ORDER-FORM-ONE > ORDERFF1
Element suffix > -F1
Define field number tables (N/Y) > Y
Define numeric fields as PIC 9 or PIC X (9/X) > 9
000100
000200 01 CUSTOMER-FORM-DATA.
000300 05 CUST-ACCT-F1 PIC X(8).
000400 05 CUST-NAME-F1 PIC X(30).
000500 05 CUST-ADDRESS-F1 PIC X(60).
000600
000700 01 CUSTOMER-FORM-FIELDS.
000800 05 FIELDNO-CUST-ACCT-F1 PIC S9(4) COMP VALUE 1.
000900 05 FIELDNO-CUST-NAME-F1 PIC S9(4) COMP VALUE 2.
001000 05 FIELDNO-CUST-ADDRESS-F1 PIC S9(4) COMP VALUE 3.
001100