CBLDCDAM('WRIT')

PROCEDURE DIVISIONの指定

CALL 'CBLDCDAM' USING 一意名1 一意名2 一意名n

DATA DIVISIONの指定

01 一意名1.
   02 データ名A  PIC X(8) VALUE 'DCDAMSVC'.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(3).
   02 データ名C  PIC X(8).
   02 データ名D  PIC S9(9) COMP.
   02 データ名E  PIC S9(9) COMP.
   02 データ名H  PIC S9(9) COMP.
   02 FILLER    PIC X(28).
01 一意名2.
   02 データ名F  PIC X(4) VALUE 'WRIT'.
   02 データ名G  PIC X(1).
   02 FILLER    PIC X(1).
   02 FILLER    PIC X(1).
   02 FILLER    PIC X(1).
   02 データ名Z  PIC S9(9) COMP VALUE ZERO.
   02 一意名3.
      03 データ名I  PIC S9(9) COMP.
      03 データ名J  PIC S9(9) COMP.
   02 一意名4.
      03 データ名I  PIC S9(9) COMP.
      03 データ名J  PIC S9(9) COMP.
        :
        :
   02 一意名m.
      03 データ名I  PIC S9(9) COMP.
      03 データ名J  PIC S9(9) COMP.
01 一意名n.
   02 データ名K  PIC X(n).

●データ名A

DAMファイルとのインタフェースコードを「VALUE 'DCDAMSVC'」と設定します。

●データ名C

論理ファイル名を8文字以内で設定します。8文字に満たない場合は，後ろを空白で埋めてください。

●データ名D

一意名3から一意名mの数（データ名Iとデータ名Jの組の数）を設定します。

●データ名E

出力データ長を設定します。出力データ長は（出力ブロック長×出力ブロック数）にしてください。

出力ブロック数とは，一意名3から一意名mの数（データ名Iとデータ名Jの組の数）で設定するブロック数の合計です。

●データ名H

論理ファイルをオープンしたときに返されたファイル記述子を設定します。

●データ名F

論理ファイルのブロック出力を示す要求コードを「VALUE 'WRIT'」と設定します。

●データ名G

排他エラーが起こったとき，排他解除待ちをするかどうかを設定します。

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

VALUE 'N' … 待たないで，エラーリターンします。

VALUE SPACE… CBLDCDAM('OPEN')のデータ名Gに設定した値に従います。

「VALUE SPACE」を設定，または何も設定しなかった場合は次のようになります。

• CBLDCDAM('OPEN')のデータ名Gに「VALUE 'W'」を設定していれば，排他解除待ちをします。

• CBLDCDAM('OPEN')のデータ名Gに「VALUE 'N'」を設定，または省略している場合は待たないでエラーリターンします。

データ名Hに設定したファイル記述子のCBLDCDAM('OPEN')で，排他種別にファイル排他を設定していた場合は，ここに設定する値は意味を持ちません。

●データ名Z

0を設定します。

●データ名I

アクセスするブロックの，先頭の相対ブロック番号を設定します。

●データ名J

アクセスするブロックの，最後の相対ブロック番号を設定します。0を設定した場合は，データ名Iに設定した相対ブロック番号のブロックだけを出力します。

●データ名K

出力データ領域（バッファ）を設定します。

●データ名B

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