PROCEDURE DIVISION specification

CALL 'CBLDCTAM' USING  unique-name-1 unique-name-2
                       unique-name-3 unique-name-4

DATA DIVISION specification

01  unique-name-1.
    02  data-name-A    PIC X(4).
    02  data-name-B    PIC X(5).
    02  FILLER        PIC X(3).
    02  data-name-C    PIC X(32).
    02  FILLER        PIC X(68).
    02  data-name-D    PIC S9(4) COMP.
    02  FILLER        PIC X(398).
    02  data-name-J    PIC S9(9) COMP.
    02  FILLER        PIC X(392).
01  unique-name-2.
    02  data-name-E    PIC X(4).
    02  data-name-F    PIC X(1).
    02  FILLER        PIC X(2).
    02  data-name-I    PIC X(1).
01  unique-name-3.
    02  data-name-G    PIC X(m).
01  unique-name-4.
    02  data-name-H    PIC X(n).

According to the search type specified for data-name-E, CBLDCTAM('FxxR'/'FxxU'/'VxxR'/'VxxU') inputs a TAM table record for reference or update processing. Table 2-1 shows the relationship between search types and index types.

Table 2-2 Relationship between search types and index types

#: All the records in the TAM table can be searched for by using the first record search and NEXT search in the following conditions:

The hash format is specified as the index type.

When a TAM table file is created, a key value is assigned to the data part (the -s option not specified in the tamcre command).

If lock is specified with input for reference processing, lock in tables and lock in records are enabled with lock for reference processing. If a TAM table open under lock in records is input for update processing, lock in tables is enabled with lock for reference processing, and lock in records is enabled with lock for update processing.

However, if table nonlock mode is specified as the access-time table lock mode in the TAM service definition, tables whose access type is reference or update without addition or deletion, their lock cannot be enabled.

If the program that inputs TAM table record returns with an error, all the resources specified in this program are released, and the status before this program was called is regained. However, if a record which was acquired under lock for reference processing before this program was called is input for update processing, lock for update processing is enabled. (Lock for reference processing is not regained.) If an error is returned, the buffer contents cannot be ensured.

data-name-A

Specify the TAM ID. The TAM service does not reference this value.

data-name-C

Specify the name of the TAM table of the record to be input. The name can be specified with up to 32 characters. If the specified name comprises less than 32 characters, pad the remaining portion with space.

data-name-D

Specify a buffer length if the input record is 32767 bytes or less. The buffer length must be equal to or greater than the record length. The setting here is valid only when VALUE 'Fxxx' is specified for data-name-E.

data-name-J

Specify a buffer length if the input record is 32768 bytes or more. The buffer length must be equal to or greater than the record length. The setting here is valid only when VALUE 'Vxxx' is specified for data-name-E.

data-name-E

Specify one of the following request codes:

VALUE 'FCHR', VALUE 'VCHR': Search for key-value= for reference (hash/tree format).

VALUE 'FGER', VALUE 'VGER': Search for key-value<= for reference (tree format).

VALUE 'FGTR', VALUE 'VGTR': Search for key-value< for reference (tree format).

VALUE 'FLER', VALUE 'VLER': Search for key-value>= for reference (tree format).

VALUE 'FLTR', VALUE 'VLTR': Search for key-value> for reference (tree format).

VALUE 'FTPR', VALUE 'VTPR': Search for the specified key value from the first record for reference (hash format).

VALUE 'FNXR', VALUE 'VNXR': Search for the specified key value from the next record for reference (hash/tree format).

VALUE 'FCHU', VALUE 'VCHU': Search for key-value= for updating (hash/tree format).

VALUE 'FGEU', VALUE 'VGEU': Search for key-value<= for updating (tree format).

VALUE 'FGTU', VALUE 'VGTU': Search for key-value< for updating (tree format).

VALUE 'FLEU', VALUE 'VLEU': Search for key-value>= for updating (tree format).

VALUE 'FLTU', VALUE 'VLTU': Search for key-value> for updating (tree format).

VALUE 'FTPU', VALUE 'VTPU': Search for the specified key value from the first record for updating (hash format).

VALUE 'FNXU', VALUE 'VNXU': Search for the specified key value from the next record for updating (hash/tree format).

data-name-F

If a record is input for reference processing, specify a lock enabled/disabled type.

VALUE '': Lock is enabled. (Lock is reset at the synchronization point.)

VALUE 'D': Lock is enabled. (Lock is reset when this CALL statement terminates.)

VALUE 'N': Lock is disabled.

data-name-G

Specify the key value with the length of the key area of the record to be searched for.

data-name-H

Specify the data area (buffer) to which the record is input.

data-name-I

Specify whether to wait for release from lock with one of the following values. The value specified for data-name-I is valid when 2 is specified for tam_cbl_level in the TAM service definition.

VALUE 'W': Wait for release from lock

VALUE 'N': Error return without waiting for release from lock

If 0 or 1 is specified for tam_cbl_level in the TAM service definition, specifying a value for data-name-I is unnecessary.

data-name-B

A status code of 5 digits is returned.

data-name-H

The input record is returned.