2.4.315 JMN2526I-S

SEARCH文の一意名は，添字付けまたは部分参照できません． AT ENDまたはWHEN指定が現れるまで無効となります．

例題

[P2526.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2526.
000003 ENVIRONMENT    DIVISION.
000004 DATA           DIVISION.
000005 WORKING-STORAGE SECTION.
000006 01 .
000007   02 WTARGET   OCCURS 26 INDEXED BY IX1.
000008     03 WKEY    PIC X.
000009     03 WDATA   PIC S9(4) BINARY.
000010 01 WANS        PIC S9(4) BINARY.
000011 PROCEDURE      DIVISION.
000012     SEARCH WTARGET(1) VARYING IX1
000013       AT END
000014         DISPLAY "ERROR"
000015     WHEN WKEY(IX1) >= "A" AND
000016          WKEY(IX1) <= "Z"
000017       MOVE WDATA(IX1) TO WANS
000018     END-SEARCH
000019 END PROGRAM    P2526.

P2526.cob 12: JMN2526I-S SEARCH文の一意名は，添字付けまたは部分参照できません．AT ENDまたはWHEN指定が現れるまで無効となります．