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

Disk Input and Output
HP COBOL Manual for TNS/E Programs—520347-003
28-47
Creating a File Having Alternate Keys From an
HP COBOL Program
* Create the alternate key file
* The key length has to be 2 greater than the real one
COMPUTE Akf-key-len = 2 + A-Key-len
* The record length has to be 5 greater than the real key length
COMPUTE Akf-rec-len = 5 + A-Key-len
ENTER "FILE_CREATE_" USING Ak-file-name-v,
Ak-file-name-len-v,
OMITTED,
OMITTED,
OMITTED,
OMITTED,
3,
OMITTED,
Akf-rec-len,
OMITTED,
Akf-key-len,
0
GIVING Create-error
IF Create-error NOT = 0
DISPLAY "AK creation failed with error ", Create-error,
" in parameter " Error-item
STOP RUN
END-IF
Example 28-14. Dynamic File Assignment (page2of2)