CBLDCIST('CLOS')

PROCEDURE DIVISIONの指定

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

DATA DIVISIONの指定

01 一意名1.
   02 データ名A  PIC X(8) VALUE 'DCISTSVC'.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(3).
   02 データ名C  PIC X(8).
   02 FILLER    PIC S9(9) COMP.
   02 FILLER    PIC S9(9) COMP.
   02 データ名F  PIC S9(9) COMP.
   02 FILLER    PIC X(12).
01 一意名2.
   02 データ名G  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 データ名H  PIC S9(9) COMP VALUE ZERO.

●データ名A

ISTテーブルとのインタフェースコードを「VALUE 'DCISTSVC'」と設定します。

●データ名C

クローズするISTテーブルのISTテーブル名を，8文字以内で設定します。8文字に満たない場合は，後ろを空白で埋めてください。

●データ名F

ISTテーブルをオープンして返された，テーブル記述子を設定します。

●データ名G

ISTテーブルのクローズを示す要求コードを「VALUE 'CLOS'」と設定します。

●データ名H

0を設定します。

●データ名B

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