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(2).
    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  FILLER        PIC X(3).
    02  data-name-I     PIC X(1).
01  unique-name-3.
    02  data-name-F    PIC X(m).
01  unique-name-4.
    02  data-name-G    PIC X(n).

CBLDCTAM('MFY '/'MFYS'/'STR '/'WFY '/'WFYS'/'YTR ') updates/adds a record indicated with a key value in/to a TAM table.

If a TAM table is open under lock in records, lock in records is enabled with lock for update processing as explained below.

• When the access type is "update" (VALUE 'MFY ' or VALUE 'WFY ' specified for data-name-E):
  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.

• When the access type is "update or addition" or "addition" (VALUE 'MFYS', VALUE 'WFYS', VALUE 'STR ' or VALUE 'YTR ' specified for data-name-E):
  Lock in tables is enabled with lock for update processing.
  

If the program that updates/adds 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 TAM table which was acquired under lock for reference processing before this program was called is updated/added, lock for update processing is enabled. (Lock for reference processing is not regained.)

The key value storage location in the data to be updated/added and the key area length are as specified in the tamcre command used for creation of a TAM table file.

The data part has a key value if the key value is assigned to the data part (the -s option not specified in the tamcre command) when a TAM table file is created. Therefore, an error is returned if the key value specified in the program that updates/adds TAM table record is not found in the data to be updated/added. The data part has no key value if no key value is assigned to the data part (the -s option specified in the tamcre command). In this case, no check is made on the contents of the data to be updated/added.

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 whose record is to be updated/added. 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 data length in the range from 1 to 32767 bytes for the data to be updated or added. The data length must be equal to or greater than the record length. The setting here is valid only when VALUE 'MFY ', VALUE 'MFYS' or VALUE 'STR ' is specified for data-name-E.

data-name-J

Specify a data length of 32768 bytes or more for the data to be updated or added. The data length must be equal to or greater than the record length. The setting here is valid only when VALUE 'WFY ', VALUE'WFYS' or VALUE 'YTR ' is specified for data-name-E.

data-name-E

Specify one of the following request codes:

VALUE 'MFY ', VALUE 'WFY ': Record updating only

VALUE 'MFYS', VALUE 'WFYS': Record updating or addition

VALUE 'STR ', VALUE 'YTR ': Record addition only

data-name-F

Specify the key value with the length of the key area of the record to be updated/added.

data-name-G

Specify the data area (buffer) to/in which the record is updated/added.

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.