■ 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
;