COBOL Manual for TNS and TNS/R Programs

ManualsBrandsHP ManualsServerHP NonStop G-Series

1391

Disk Input and Output

HP COBOL Manual for TNS and TNS/R Programs—522555-006

28-46

Creating a File Having Alternate Keys From an

HP COBOL Program

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.