CBLDCDAM('STAT')

PROCEDURE DIVISION の指定

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

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 データ名E  PIC S9(9) COMP  VALUE  ZERO.
   02 データ名F  PIC S9(9) COMP.
   02 データ名G  PIC S9(9) COMP.
   02 FILLER    PIC S9(9) COMP.
   02 データ名H  PIC X(1).
   02 データ名I  PIC X(1).
   02 データ名J  PIC X(1).
   02 FILLER    PIC X(1).
   02 FILLER    PIC X(20).
01 一意名2.
   02 データ名D  PIC X(4) VALUE 'STAT'.
   02 FILLER    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.
01 一意名3.
   02 データ名K  PIC X(64).

●データ名A

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

●データ名C

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

●データ名E

0を設定します。

●データ名D

論理ファイルの状態の参照を示す要求コードを「VALUE 'STAT'」と設定します。

●データ名Z

0を設定します。

●データ名B

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

●データ名F

論理ファイルのブロック長が返されます。

●データ名G

論理ファイルのブロック数が返されます。

●データ名H

論理ファイルの現在の状態が，次に示すどれかの値で設定されます。

VALUE 'N' … 論理ファイルへアクセスできます。

VALUE 'L' … 論理ファイルは，論理閉塞されています。

VALUE 'O' … 論理ファイルは，障害閉塞されています。

VALUE 'H' … 論理ファイルへ閉塞要求中です。

●データ名I

DAMサービス定義で指定した論理ファイルの属性が，次に示すどれかの値で設定されます。

VALUE 'Q' … ディファード更新処理の対象でないDAMファイルです。

VALUE 'D' … ディファード更新処理対象のDAMファイルです。

VALUE 'N' … 回復対象外のDAMファイルです。

VALUE 'C' … キャッシュレスアクセス指定の回復対象外のDAMファイルです。

●データ名J

DAMサービス定義で指定した論理ファイルのセキュリティ属性が，次に示すどれかの値で設定されます。

VALUE 'N' … セキュリティの指定はありません。

VALUE 'S' … セキュリティの指定があります。

●データ名K

論理ファイルに対応した物理ファイル名が設定されます。