■  VSAMランダム入力サンプル


VSAMをランダムに処理をするにはREAD文を使います。

EX)
FILE FLMST VS        ←VSAM定義
FILENO        1   8 A
FILENAME      9  30 A
UNITNAME     39  11 A
*
FILE INFILE          ←入力ファイル
ID      1   1  A
MISE   45   5  P 0 HEADING('ミセ') MASK('Z9999/99/99') 
DATE    *   5  P 0 HEADING('ヒヅケ')  MASK('Z9999/99/99')
*
WKKEY   W   5 P 0
JOB INPUT INFILE
    WKKEY =  MISE
    READ FLMST KEY WKKEY             ←VSAM READ
    IF FILE-STATUS = 0               ←Foundの時
        WKNAME = FILENAME
    END-IF 
    PRINT
        ;
        ;

 

※VSAMのFILE-STATUSについては、 ここを見てください。

※VSAMを順次読みする場合は、PSファイルを処理するのと変りません。
   FILE  FLMST  VS
         ;
   JOB  INPUT  FLMST
         ;


BEFORE PAGE

TOP PAGE