| ■ テーブル処理サンプル１ |  |
テーブル処理をするにはＩＮＤＥＸ句を使います。
EX)
//FILEA DD * ←ＩＮＰＵＴデータ
AAAAABBBBBCCCCCTEST1DDDDD
AAAAATEST2
//SYSLIN DD *
LIST OFF
FILE FILEA
REC 1 80 A
ID 1 5 A OCCURS 5 INDEX(IDX1)
*
WKTBL W 30 A
WKTBA WKTBL 5 A OCCURS 6 INDEX(IDX2)
WKTB1 WKTBL 5 A VALUE 'TEST1' ←WKTBLの再定義（１）
WKTB2 WKTBL +5 5 A VALUE 'TEST2' ←WKTBLの再定義（２）
WKTB3 WKTBL +10 5 A VALUE 'TEST3' ←WKTBLの再定義（３）
WKTB4 WKTBL +15 5 A VALUE 'TEST4' ←WKTBLの再定義（４）
WKTB5 WKTBL +20 5 A VALUE 'TEST5' ←WKTBLの再定義（５）
WKTB6 WKTBL +25 5 A VALUE 'TEST6' ←WKTBLの再定義（６）
*
WKFLG W 1 P
JOB INPUT FILEA
IDX1 = 1
DO WHILE (IDX1 < 6)
IDX2 = 1
WKFLG = 0
DO WHILE (IDX2 < 7) AND (WKFLG = 0)
IF ID(IDX1) = WKTBA(IDX2)
DISPLAY 'FOUND!! ID=' ID(IDX1) ' WKTBL=' WKTBA(IDX2)
DISPLAY ' IDX1=' IDX1 ' IDX2=' IDX2
WKFLG = 1
END-IF
IDX2 = IDX2 + 1
END-DO
IDX1 = IDX1 + 1
END-DO
/*
|
※これはＩＮＰＵＴデータにテーブルで定義した文字列があるかどうかをチェックするロジックです。