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

4-:4
000300 05 ACCOUNT PIC S9(9) COMP.
000400 05 LAST-NAME PIC X(16).
000500 05 FIRST-NAME PIC X(10).
000600 05 MID-INITIAL PIC X(2).
000700 05 STREET-ADDRESS PIC X(26).
000800 05 CITY PIC X(12).
000900 05 STATE PIC X(2).
001000 05 ZIP PIC X(6).
001200 05 CREDIT-RATING PIC S9(9) COMP.
001300
001400 01 DS-CUSTOMER PIC X(9) VALUE "CUSTOMER ".
001500 01 DI-ACCOUNT PIC X(8) VALUE "ACCOUNT ".
001600
Generating FORMSFILE Definitions
If you specify FORMSFILE as the entity type in the GENERATE command, SDCDE generates a complete
set of COBOL record definitions for the forms contained in the given forms file. To determine whether to
generate all forms and constants in one module, or in separate modules, SDCDE issues the following
prompt:
Define all forms in one module (Y/N) >
If you enter a [[RETURN]] or a Y, SDCDE writes all generated code to a single module. If you set the
CONSTANTS parameter of the OPTIONS command to ON, the generated code also includes the forms file
name, lockword, headform name, and each form name. If you enter an N, each form is written to a
separate module, and if the CONSTANTS parameter is set to ON, the forms file name, lockword, and
headform name are written to their own module. The SDCDE prompts depend on the choice of single or
multiple module options.
Using a Single Module
Once the single module option has been chosen, SDCDE issues a prompt requesting the module name:
Module name for FORMSFILE forms-file-name >
If the given 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. If you enter a [[RETURN]] for the module name, SDCDE does not generate any code for
the forms file and the GENERATE command will be complete. 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 >