COBOL program for SEARCH ALL

        IDENTIFICATION DIVISION.
        PROGRAM-ID. SEARCH2.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 AC-NO PIC X(3).
        01 J PIC 9.
        01 BANK-ACC.
         02 ACC-TAB OCCURS 2 TIMES ASCENDING KEY IS ACC-NO 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.
            PERFORM VARYING J FROM 1 BY 1 UNTIL J > 2
            ACCEPT ACC-TAB(I)
            DISPLAY ACC-TAB(I)
            END-PERFORM.
            ACCEPT AC-NO
            SEARCH ALL ACC-TAB AT END DISPLAY 'SEARCH END'
            WHEN ACC-NO(I) = AC-NO
            DISPLAY ACC-NO(I)
            DISPLAY NAME(I)
            DISPLAY AMOUNT(I)
            END-SEARCH.
            STOP RUN.