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

4-:4
000900 05 CUST-NAME PIC X(25).
001000 05 ORDER-NO PIC X(12).
001100 05 ORDER-STATUS PIC X.
001200
001300
Example 2
The following example generates a KSAM definition for COBOL. In this example, the KSAM file name is
ORDERK, SELECT-FILE = ON, CONSTANTS = ON, and ELEM-QUALIFY = SUFFIX.
Module name for KSAMFILE ORDERK's SELECT Statement > [[RETURN]]
Module name for KSAMFILE ORDERK's FILE SECTION entry > [[RETURN]]
Module name for KSAMFILE ORDERK's WORKING-STORAGE > ORDERKWS
Include KSAM FILETABLE parameter (Y/N) > Y
Element Suffix > [[RETURN]]
Module name is ORDERKWS
000100
000200 01 ORDERK-DATA.
000300 05 CUST-ACCT PIC X(10).
000400 05 CUST-NAME PIC X(25).
000500 05 ORDER-NO PIC X(12).
000600 05 ORDER-STATUS PIC X.
000700
000800 01 ORDERK-FILETAB.
000900 05 FILENUMBER PIC S9(4) COMP VALUE 0.
001000 05 FILENAME PIC X(8) VALUE "ORDERK ".
001100 05 I-O-TYPE PIC S9(4) COMP VALUE 0.
001200 05 A-MODE PIC S9(4) COMP VALUE 0.
001300 05 PREV-OP PIC S9(4) COMP VALUE 0.
001400
001500 01 KSAM-ORDERK PIC X(7) VALUE "ORDERK ".
001600 01 LWD-ORDERK PIC X(6) VALUE "SECRET".
001700
Generating RECORD Definitions
If you specify RECORD as the entity type in the GENERATE command, then SDCDE generates a COBOL
record definition for the record with the given entity name. SDCDE issues a prompt requesting the copy