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

4- 54
001000
Example 2
In the following example, the file name is ORDERF, SELECT-FILE = ON, and ELEM-QUALIFY =
PREFIX.
Module name for FILE ORDERF's SELECT statement > ORDERED
Module name for FILE ORDERF's FILE SECTION entry > ORDERFS
Define the ORDERF in FILE SECTION as FD or SD (F/S) > F
Module name for FILE ORDERF's WORKING-STORAGE > [[RETURN]]
Element prefix > [[RETURN]]
Module name is ORDERED
000100
000200 SELECT ORDERFR
000300 ASSIGN "ORDERF/LOCK, DA, A, DISC(CCTL), 48"
000400 ORGANIZATION SEQUENTIAL.
000500
Module name is ORDERFS
000100
000200 FD ORDERF BLOCK 1 TO 5 RECORDS
000300 RECORDING MODE V
000400 RECORD 48 CHARACTERS
000500 CODE-SET ASCII.
000600
000700
000800 01 ORDERF-DATA.
000900 05 ORD-CUST-ACCT PIC X(10).
001000 05 ORD-CUST-NAME PIC X(25).
001100 05 ORD-ORDER-NO PIC X(12).
001200 05 ORD-ORDER-STATUS PIC X.
001300
Generating KSAMFILE Definitions
If you specify KSAMFILE as entity name given in the GENERATE command, then SDCDE generates a
COBOL record definition for the KSAM file with the given entity name.
If you set the SELECT-FILE parameter of the OPTIONS command to ON, SDCDE issues prompts
requesting the module name for the SELECT statement and the FILE SECTION entry. These prompts
have the following format: