SEARCH文は,指定した条件を満足する表要素を探し,対応する指標の値がその表要素を指すようにします。
SEARCH文については,マニュアル「COBOL2002 言語 標準仕様編 10.8.41 SEARCH文」を参照してください。
WHEN指定がある場合の,SEARCH文の流れを次に示します。
図5-6 SEARCH文の処理の流れ(WHEN指定が二つある場合)
SEARCH文の例を次に示します。
01 TBL.
05 A OCCURS 10
ASCENDING K1 INDEXED BY IX.
10 K1 PIC X(2).
10 B OCCURS 5
DESCENDING K2 INDEXED BY JX.
20 K2 PIC 9(4).
20 C PIC X(20).
SEARCH ALL A AT END GO TO OWARI
WHEN K1(IX) = 'AB'
NEXT SENTENCE.
SEARCH ALL B AT END GO TO OWARI
WHEN K2(IX,JX) = 1950
MOVE C(IX,JX) TO X
GO TO OWARI.