| ■ ＶＳＡＭランダム入力サンプル |  |
ＶＳＡＭをランダムに処理をするにはＲＥＡＤ文を使います。
EX)
FILE FLMST VS ←ＶＳＡＭ定義
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 ←ＶＳＡＭ ＲＥＡＤ
IF FILE-STATUS = 0 ←Ｆｏｕｎｄの時
WKNAME = FILENAME
END-IF
PRINT
;
;
|
※ＶＳＡＭのFILE-STATUSについては、 ここを見てください。
※ＶＳＡＭを順次読みする場合は、ＰＳファイルを処理するのと変りません。
FILE FLMST VS
；
JOB INPUT FLMST
；