CBLDCDAM('READ')

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 'READ'.
   02 データ名G  PIC X(1).
   02 データ名L  PIC X(1).
   02 データ名M  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 'READ'」と設定します。

●データ名G

入力要求の種別を，次のどちらかで設定します。必ずどちらか一方を設定してください。

VALUE 'R'…参照目的の入力

VALUE 'M'…更新目的の入力

●データ名L

参照目的の入力の場合，排他を掛けるかどうかを指定します。'E'を設定した場合は，同期点の処理まで排他を掛けます。

排他を掛けないで論理ファイルのブロックを入力した場合，入力処理中にほかのトランザクションから該当するブロックが更新されることがあります。この場合，入力するブロックの内容は，ほかのトランザクションでの更新処理の状態に依存します。よって，最新のブロックの内容を参照する場合には，必ず'E'を指定してください。

更新目的の入力の場合は，空白を設定します。空白以外の値を設定しても無視されます。

VALUE 'E'…排他をします。

VALUE 'N'…排他をしません。

トランザクションの外から回復対象のDAMファイルに参照目的でアクセスする場合は，排他する指定はできません。

データ名Gに「VALUE 'M'」を設定した場合は，データ名Lに' '（空白）を設定してください。

●データ名M

排他エラーが起こったとき，排他解除待ちをするかどうかを設定します。データ名Lに「VALUE 'N'」を設定した場合は，データ名Mに' '（空白）を設定してください。

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

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

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

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

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

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

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

データ名G，データ名L，データ名Mに設定した値と，排他の設定内容の対応を次に示します。

●データ名I

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

●データ名J

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

●データ名K

入力データ領域を設定します。

●データ名Z

0を設定します。

●データ名B

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