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

4-:4
The WORKING-STORAGE SECTION uses the lockword attribute from the FILE entity.
Example 1
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 > ORDERWS
Element prefix > [[RETURN]]
Module name is ORDERED
000100
000200 SELECT ORDERF
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 01 ORDERF-REC PIC X(48).
000800
Module name is ORDERWS
000100
000200 01 ORDERF-DATA.
000300 05 ORD-CUST-ACCT PIC X(10).
000400 05 ORD-CUST-NAME PIC X(25).
000500 05 ORD-ORDER-NO PIC X(12).
000600 05 ORD-ORDER-STATUS PIC X.
000700
000800 01 FILE-ORDERF PIC X(8) VALUE "ORDERF ".
000900 01 LWD-ORDERF PIC X(8) VALUE "LOCK".