CBLDCDMB('CLOS')

〈このページの構成〉

名称

物理ファイルのクローズ

形式

PROCEDURE DIVISIONの指定

CALL 'CBLDCDMB' USING 一意名1 一意名2

DATA DIVISIONの指定

01 一意名1.
   02 データ名A  PIC X(8) VALUE 'DCDAMINT'.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(1).
   02 データ名C  PIC X(63).
   02 FILLER    PIC X(3).
   02 FILLER    PIC S9(9) COMP.
   02 データ名E  PIC S9(9) COMP.
   02 FILLER    PIC S9(9) COMP.
   02 FILLER    PIC X(4).
01 一意名2.
   02 データ名D  PIC X(4) VALUE 'CLOS'.
   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.

ページの先頭へ

機能

OpenTP1ファイルシステム上に作成した物理ファイルをクローズします。

データがファイルの終わりまで達していない場合は，ファイルの終わりまで空白で埋めます。ただし，CBLDCDMB('OPEN')のデータ名Iに作成出力要求を設定しているか，CBLDCDMB('CRAT')を呼び出している場合にだけ，ブロックを空白で埋めます。

物理ファイルをクローズするときは，物理ファイル名と，CBLDCDMB('OPEN')，またはCBLDCDMB('CRAT')で返されたファイル記述子を設定します。

ページの先頭へ

UAPで値を設定するデータ領域

●データ名A

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

●データ名C

物理ファイル名を（スペシャルファイル名＋14文字）以内のパス名で設定します。63文字に満たない場合は，後ろを空白で埋めてください。

●データ名E

ファイル記述子を設定します。

●データ名D

物理ファイルのクローズを示す要求コードを「VALUE 'CLOS'」と設定します。

●データ名Z

0を設定します。

ページの先頭へ

OpenTP1から値が返されるデータ領域

●データ名B

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

ページの先頭へ

ステータスコード

ステータスコード	意味
00000	正常にクローズしました。
01603	データ名Eに設定したファイル記述子は，DAMファイルを正常にオープンして得られたファイル記述子ではありません。
01603	DAMファイルをオープンしていません。
01620	出力エラーが起こりました。
01690	インタフェースコード（データ名A）が間違っています。
01691	要求コード（データ名D）が間違っています。

ページの先頭へ