……
01 WS-NUM PIC 9(1) COMP.
01 TABLE-1.
03 TABLE-RECS OCCURS 20 TIMES INDEXED BY WS-IDX.
05 IDNO PIC 9(2).
……
PERFORM VARYING WS-NUM FROM 1 BY 1 UNTIL WS-NUM > 20
MOVE WS-NUM TO IDNO(WS-NUM)
END-PERFORM
MOVE 16 TO WS-NUM
SEARCH TABLE-RECS
AT END
DISPLAY WS-NUM ' NOT FOUND IN TABLE!'
WHEN IDNO(WS-IDX) = WS-NUM
DISPLAY IDNO(WS-IDX)
END-SEARCH
……
what is the answer when this programe be runned?