| ■ テーブル処理サンプル２ |  |
テーブルファイルを使うとコンスタントなテーブルをサーチすることができます。
EX)
//FILEA DD * ←ＩＮＰＵＴデータ
00280000071
00289999999
//TBL1 DD * ←テーブルデータ
00280000071A
00280000130B
//SYSLIN DD *
LIST OFF
PARM LIST(NOPARM NOFILE)
FILE FILEA ←ＩＮＰＵＴ定義
AKEY 1 11 A
*
FILE TBL1 TABLE ←テーブル定義
ARG 1 11 A ←引数
DESC 12 1 A ←内容
*
WKKBN W 1 A
*
JOB INPUT FILEA
SEARCH TBL1 WITH AKEY GIVING WKKBN ←サーチ結果をWKKBNに格納
IF TBL1
DISPLAY 'WK=' WKKBN
ELSE
DISPLAY 'NOTHING'
END-IF
/*
↓実行結果
********************************* データの始め **********
WK=A
NOTHING
|
※ＡＲＧ・ＤＥＳＣは固定のキーワードです。