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

4-:4
001200 01 FORM-CUSTOMER-FORM PIC X(14) VALUE "CUSTOMER-FORM ".
001300
Module name for FORM ORDER-FORM-TWO > ORDERFF2
Element suffix > -F2
Define field number tables (N/Y) > Y
Define numeric fields as PIC 9 or PIC X (9/X) > 9
000100
000200 01 ORDER-FORM-DATA.
000300 05 PROD-NO-F2 PIC X(15).
000400 05 QUANTITY-F2 PIC 9(8).
000500 05 UNIT-PRICE-F2 PIC X(12).
000600 05 TOTAL-F2 PIC X(12).
000700
000800 01 ORDER-FORM-FIELDS.
000900 05 FIELDNO-PROD-NO-F2 PIC S9(4) COMP VALUE 1.
001000 05 FIELDNO-QUANTITY-F2 PIC S9(4) COMP VALUE 2.
001100 05 FIELDNO-UNIT-PRICE-F2 PIC S9(4) COMP VALUE 3.
001200 05 FIELDNO-TOTAL-F2 PIC S9(4) COMP VALUE 4.
001300
001400 01 FORM-ORDER-FORM PIC X(11) VALUE "ORDER-FORM ".
001500
Module name for FORMSFILE ORDERFF's constants > ORDERFFC
000100
000200 01 FF-ORDERFF PIC X(8) VALUE "ORDERFF ".
000300 01 LWD-ORDERFF PIC X(6) VALUE "lockff".
000400 01 HF-ORDERFF PIC X(11) VALUE "CUSTOMER-FORM ".
000500
Generating FORM Definitions
If you specify FORM as the entity type in the GENERATE command, SDCDE generates a COBOL record
definition for the form with the given entity name. SDCDE first prompts you for a module name:
Module name for FORM form-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]], SDCDE does not generate any code for the record and the
GENERATE command will be complete.