CBLDCIST('READ')

PROCEDURE DIVISIONの指定

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

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 データ名D  PIC S9(9) COMP.
   02 データ名E  PIC S9(9) COMP.
   02 データ名F  PIC S9(9) COMP.
   02 FILLER    PIC X(12).
01 一意名2.
   02 データ名G  PIC X(4) VALUE 'READ'.
   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.
   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

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

●データ名C

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

●データ名D

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

●データ名E

入力バッファ長を設定します。入力バッファ長には，（入力レコード長 × 入力レコード数）以上の値を設定してください。

●データ名F

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

●データ名G

ISTテーブルからレコードを入力することを示す要求コードを「VALUE 'READ'」と設定します。

●データ名H

0を設定します。

●データ名I

アクセスするレコードの，先頭の相対レコード番号を設定します。

●データ名J

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

●データ名K

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

●データ名B

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