COBOL Manual for TNS/E Programs (H06.03+)

Disk Input and Output
HP COBOL Manual for TNS/E Programs—520347-003
28-46
Creating a File Having Alternate Keys From an
HP COBOL Program
01 Number-of-items NATIVE-2 VALUE 9.
01 Values-array.
02 File-type-v NATIVE-2 VALUE 3.
02 Lrl-v NATIVE-2.
02 Key-offset-v NATIVE-2 VALUE 0.
02 Key-length-v NATIVE-2.
02 Number-keys-v NATIVE-2 VALUE 1.
02 Key-descriptor-v.
03 A-key-spec PIC XX VALUE "AA".
03 A-key-len NATIVE-2.
03 A-key-off NATIVE-2.
03 A-key-filenum NATIVE-2 VALUE 0.
03 A-null-value NATIVE-2 VALUE 0.
03 A-attributes NATIVE-2 VALUE H"4000".
02 Num-ak-files-v NATIVE-2 VALUE 1.
02 Ak-file-name-len-v NATIVE-2 VALUE 7.
02 Ak-file-name-v PIC X(8) VALUE "ISFILEA ".
01 Values-length NATIVE-2.
01 Akf-rec-len NATIVE-2.
01 Akf-key-len NATIVE-2.
01 Create-error NATIVE-2.
01 Error-item NATIVE-2.
01 File-name PIC X(128) VALUE "ISFILE".
01 File-name-len PIC 999 COMP VALUE 6.
01 Fs PIC XX.
01 Fp-chg PIC S9 COMP VALUE -1.
Example 28-14. Dynamic File Assignment (page1of2)
...
MOVE FUNCTION LENGTH (T-rec-1) TO Lrl-v
MOVE FUNCTION LENGTH (K1) TO Key-length-v, A-key-off
MOVE FUNCTION LENGTH (AK1) TO A-key-len
MOVE FUNCTION LENGTH (Values-array) TO Values-length
* Create the primary file
ENTER "FILE_CREATELIST_" USING File-name,
File-name-len,
Item-list,
Number-of-items,
Values-array,
Values-length,
Error-item
GIVING Create-error
IF Create-error NOT = 0
DISPLAY "Creation failed with error ", Create-error,
" in parameter " Error-item
STOP RUN
END-IF