COBOL2002 ユーザーズガイド
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.
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.