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

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.
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 289 Dynamic File Assignment
...
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
Using Enscribe and Operating System Routines 887