1. SEARCH
01 WK-DATA-SAMPLE.
05 WK-DATA1 PIC X(04) VALUE "AAAA".
05 WK-DATA2 PIC X(04) VALUE "BBBB".
05 WK-DATA3 PIC X(04) VALUE "CCCC".
05 WK-DATA4 PIC X(04) VALUE "DDDD".
01 WK-DATA-SAMPLE-R REDEFINES WK-DATA-SAMPLE.
05 WK-TABLE OCCURS 4 TIMES INDEXED BY WK-IDX.
10 WK-NODE1 PIC X(02).
10 WK-NODE2 PIC X(02).
01 WK-SEARCH-RESULT PIC X(01).
88 WK-FOUND VALUE "Y".
88 WK-NOT-FOUND VALUE "N".
SET WK-IDX TO 1.
SEARCH WK-TABLE
AT END SET WK-NOT-FOUND TO TRUE
WHEN WK-NODE1(WK-IDX) = "AA"
SET WK-FOUND TO TRUE
WHEN WK-NODE2(WK-IDX) = "AA"
SET WK-FOUND TO TRUE
END-SEARCH.
