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

Disk Input and Output
HP COBOL Manual for TNS/E Programs—520347-003
28-45
Creating a File Having Alternate Keys From an
HP COBOL Program
The file-control entry and file description entry are:
SELECT T-file-1 ASSIGN TO "ISFILE"
ORGANIZATION IS INDEXED
RECORD KEY IS K1
ALTERNATE RECORD KEY IS AK1
ACCESS MODE IS DYNAMIC
FILE STATUS IS Fs
...
FD T-file-1 LABEL RECORDS OMITTED.
01 T-rec-1.
02 K1.
03 K1-fp PIC XX.
03 FILLER PIC X.
02 Ak1.
03 Fp PIC X(5).
03 Lp PIC X(5).
02 FILLER PIC X(20).
02 rw-flag PIC X(4).
02 T-rec-no PIC 999.
...
Declare parameters to pass to the FILE_CREATELIST_ procedure to create the
indexed file (see the Guardian Procedure Calls Reference Manual for details on these
parameters):
•
The file type (key-sequenced)
•
The record length
•
The prime record key parameters (key length = 16, key offset = 0, and index block
length = default):
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.
01 Item-list.
02 File-type NATIVE-2 VALUE 41.
02 Lrl NATIVE-2 VALUE 43.
02 Key-offset NATIVE-2 VALUE 45.
02 Key-length NATIVE-2 VALUE 46.
02 Number-keys NATIVE-2 VALUE 100.
02 Key-descriptor NATIVE-2 VALUE 101.
02 Num-ak-files NATIVE-2 VALUE 102.
02 Ak-file-name-len NATIVE-2 VALUE 103.
02 Ak-file-name NATIVE-2 VALUE 104.