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

4- 56
the KSAMFILE key ELEMENT relationship to generate the KEY clause. The ASSIGN clause uses the
primary record name from the KSAMFILE contains RECORD relationship.
The FD statement uses the following attributes from the KSAMFILE entity:
blocking-min
blocking-max
blocking-units
min-record-size
max-record-size
record-format
Example 1
The following example generates a KSAM definition for COBOL II. In this example, the KSAM file name is
ORDERK, SELECT-FILE = ON, CONSTANTS = ON, andELEM-QUALIFY = SUFFIX.
Module name for KSAMFILE ORDERK's SELECT Statement > ORDERKED
Module name for KSAMFILE ORDERK's FILE SECTION entry > ORDERKS
Module name for KSAMFILE ORDERK's WORKING-STORAGE > [[RETURN]]
Include KSAM FILETABLE parameter (Y/N) > N
Element Suffix > [[RETURN]]
Module name is ORDERKED
000100
000200 SELECT ORDERK
000300 ASSIGN "ORDERK"
000400 ORGANIZATION INDEXED
000500 RECORD ORDER-NO
000600 ALTERNATE RECORD CUST-ACCT DUPLICATES.
000700
Module name is ORDERKFS
000100
000200 FD ORDERK BLOCK 1 TO 5 RECORDS
000300 RECORDING MODE V
000400 RECORD 48 CHARACTERS.
000500
000600
000700 01 ORDERK-DATA.
000800 05 CUST-ACCT PIC X(10).