CBLDCTAM('ERS '/'ERSR'/'ZRS '/'ZRSR')

PROCEDURE DIVISIONの指定

CALL 'CBLDCTAM' USING 一意名1 一意名2 一意名3 一意名4

DATA DIVISIONの指定

01 一意名1.
   02 データ名A  PIC X(4).
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(3).
   02 データ名C  PIC X(32).
   02 FILLER    PIC X(68).
   02 データ名D  PIC S9(4)  COMP.
   02 FILLER    PIC X(2).
   02 データ名J  PIC S9(9)  COMP.
   02 FILLER    PIC X(392).
01 一意名2.
   02 データ名E  PIC X(4).
   02 FILLER    PIC X(3).
   02 データ名I  PIC X(1).
01 一意名3.
   02 データ名F  PIC X(m).
01 一意名4.
   02 データ名G  PIC X(n).

●データ名A

TAMの識別子を設定します。ただし，TAMサービスではこの値を参照しません。

●データ名C

削除するレコードのTAMテーブル名を32文字以内で設定します。32文字未満の場合は，後ろを空白で埋めます。

●データ名D

削除するレコードを退避する場合に，1〜32,767バイト以下のバッファ長を設定します。バッファ長は，レコード長以上にします。データ名Eに「VALUE 'ERSR'」を設定した場合だけ，この設定は有効になります。

●データ名J

削除するレコードを退避する場合に，32,768バイト以上のバッファ長を設定します。バッファ長は，レコード長以上にします。データ名Eに「VALUE 'ZRSR'」を設定した場合だけ，この設定は有効になります。

●データ名E

要求コードを設定します。

VALUE 'ERS△'，VALUE 'ZRS△'…削除するレコードを退避しない削除。

VALUE 'ERSR'，VALUE 'ZRSR'…削除するレコードを退避する削除。

レコード長が32,767バイト以下のTAMテーブルの場合は「VALUE 'ERS△'」または「VALUE 'ERSR'」を使用します。

レコード長が32,768バイト以上のTAMテーブルの場合は「VALUE 'ZRS△'」または「VALUE 'ZRSR'」を使用します。

●データ名F

キー値を設定します。キー値は，削除するレコードのキー領域の長さで設定します。

●データ名G

削除するレコードを退避する場合に，退避するバッファを設定します。データ名Eに「VALUE 'ERS△'」または「VALUE 'ZRS△'」（レコードを退避しない）を設定した場合，この設定は無効です。

●データ名I

排他解除待ちの種別を，次に示す値で設定します。データ名Iに設定した値は，TAMサービス定義のtam_cbl_levelに '2' を指定した場合に有効になります。

VALUE 'W' … 排他の解除を待ちます。

VALUE 'N' … 排他の解除を待たないで，エラーリターンします。

TAMサービス定義のtam_cbl_levelに '0' または '1' を指定した場合は，データ名Iを指定する必要はありません。

●データ名B

ステータスコードが，5けたの数字で返されます。

●データ名G

データ名Eに「VALUE 'ERSR'」または「VALUE 'ZRSR'」を設定したレコードの削除が正常に終了した場合，削除したレコードが退避されます。