COBOL program for simple SEARCH

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SEARCH1.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 AC-NO PIC X(3).
       01 J PIC 9.
       01 BANK-ACC.
        05 ACC-TAB OCCURS 2 TIMES INDEXED BY I.
         10 ACC-NO PIC X(3).
         10 F1 PIC X VALUE SPACE.
         10 NAME PIC X(10).
         10 F2 PIC X VALUE SPACE.
         10 AMOUNT PIC 9(4).
       PROCEDURE DIVISION.
           INITIALIZE J, AC-NO
           PERFORM VARYING J FROM 1 BY 1 UNTIL J > 2
           ACCEPT ACC-TAB(I)
           DISPLAY ACC-TAB(I)
           END-PERFORM.
           ACCEPT AC-NO
           SEARCH ACC-TAB AT END DISPLAY 'SEARCH ENDED'
           WHEN ACC-NO(I) = AC-NO
           DISPLAY ACC-NO(I)
           DISPLAY NAME(I)
           DISPLAY AMOUNT(I)
           END-SEARCH.
           STOP RUN.