IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST20a.
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
 DATA DIVISION.
 FILE SECTION.
 WORKING-STORAGE SECTION.

 01  WS-IDX1	        PIC 9(3).
 01  WS-IDX2	        PIC 9(3).
 01  IDX2	        PIC 9(3) COMP.
 01  WS-RCODE	        PIC Z(4)9 VALUE ZERO.

 01 WS-TABLE1-ENTRIES.
    05  FILLER  PIC X(20) VALUE '001MIS              '.
    05  FILLER  PIC X(20) VALUE '002PAYROLL          '.
    05  FILLER  PIC X(20) VALUE '003SALES            '.
    05  FILLER  PIC X(20) VALUE '004SHIPPING         '.
    05  FILLER  PIC X(20) VALUE '005ACCOUNTING       '.
    05  FILLER  PIC X(20) VALUE '006DEPT1            '.
    05  FILLER  PIC X(20) VALUE '007DEPT2            '.
    05  FILLER  PIC X(20) VALUE '008DEPT3            '.
    05  FILLER  PIC X(20) VALUE '009DEPT4            '.
    05  FILLER  PIC X(20) VALUE '010OTHERS           '.
 01 WS-TABLE1 REDEFINES WS-TABLE1-ENTRIES.
    05  WS-TABLE1-ENTRY OCCURS 10 TIMES INDEXED BY IDX1.
        10  WS-TABLE1-IDX	PIC X(3).
        10  WS-TABLE1-DATA	PIC X(17).

 01 WS-TABLE2-ENTRIES.
    05  FILLER  PIC X(20) VALUE '001MIS              '.
    05  FILLER  PIC X(20) VALUE '002PAYROLL          '.
    05  FILLER  PIC X(20) VALUE '003SALES            '.
    05  FILLER  PIC X(20) VALUE '004SHIPPING         '.
    05  FILLER  PIC X(20) VALUE '005ACCOUNTING       '.
    05  FILLER  PIC X(20) VALUE '006DEPT1            '.
    05  FILLER  PIC X(20) VALUE '007DEPT2            '.
    05  FILLER  PIC X(20) VALUE '008DEPT3            '.
    05  FILLER  PIC X(20) VALUE '009DEPT4            '.
    05  FILLER  PIC X(20) VALUE '010OTHERS           '.
 01 WS-TABLE2 REDEFINES WS-TABLE2-ENTRIES.
    05  WS-TABLE2-ENTRY OCCURS 10 TIMES.
        10  WS-TABLE2-IDX	PIC 9(3).
        10  WS-TABLE2-DATA	PIC X(17).

 01 WS-TABLE3 REDEFINES WS-TABLE2-ENTRIES.
    05  WS-TABLE3-ENTRY OCCURS 10 TIMES
         ASCENDING KEY IS WS-TABLE3-IDX
	 INDEXED BY IDX3.
        10  WS-TABLE3-IDX	PIC 9(3).
        10  WS-TABLE3-DATA	PIC X(17).

 01 WS-TESTNO               PIC 9(3).
 01 WS-TABLENAME            PIC X(2).
 01 WS-E-IDX                PIC 9(3).
PROCEDURE DIVISION.

A-000.

 MOVE 0 TO WS-TESTNO.
 MOVE "T1" TO WS-TABLENAME.

 ADD 1 TO WS-TESTNO.
 MOVE 3 TO WS-IDX1.
 PERFORM A-100.
 ADD 1 TO WS-TESTNO.
 MOVE 5 TO WS-IDX1.
 PERFORM A-100.
 ADD 1 TO WS-TESTNO.
 MOVE 33 TO WS-IDX1.
 PERFORM A-100.

 MOVE "T2" TO WS-TABLENAME.

 ADD 1 TO WS-TESTNO.
 MOVE 6 TO WS-IDX2.
 PERFORM A-200.
 ADD 1 TO WS-TESTNO.
 MOVE 7 TO WS-IDX2.
 PERFORM A-200.
 ADD 1 TO WS-TESTNO.
 MOVE 44 TO WS-IDX2.
 PERFORM A-200.

 MOVE "T3" TO WS-TABLENAME.

 ADD 1 TO WS-TESTNO.
 MOVE 6 TO WS-IDX1.
 MOVE 0 TO WS-IDX2.
 PERFORM A-700.
 MOVE 0 TO WS-IDX1.
 MOVE 7 TO WS-IDX2.
 PERFORM A-700.
 ADD 1 TO WS-TESTNO.
 MOVE 0 TO WS-IDX1.
 MOVE 0 TO WS-IDX2.
 PERFORM A-700.
 ADD 1 TO WS-TESTNO.
 MOVE 0 TO WS-IDX1.
 MOVE 6 TO WS-IDX2.
 PERFORM A-800.

 STOP RUN.

A-100.
 SET IDX1 TO 1.
 SEARCH WS-TABLE1-ENTRY
   AT END PERFORM A-400
   WHEN WS-IDX1 = WS-TABLE1-IDX (IDX1)
        PERFORM A-300.

A-200.
 SET IDX2 TO 1.
 SEARCH WS-TABLE2-ENTRY
   VARYING IDX2
   AT END PERFORM A-600
   WHEN WS-IDX2 = WS-TABLE2-IDX (IDX2)
        PERFORM A-500.

A-300.
 MOVE IDX1 TO WS-E-IDX.
 IF IDX1 = 3
    DISPLAY "S" WS-TESTNO ":(" WS-TABLE1-ENTRY(IDX1)
            "):(003SALES            ):Entry "
            WS-TABLENAME "/" WS-E-IDX
 ELSE
    DISPLAY "S" WS-TESTNO ":(" WS-TABLE1-ENTRY(IDX1)
            "):(005ACCOUNTING       ):Entry "
            WS-TABLENAME "/" WS-E-IDX
 END-IF.

A-400.
 MOVE IDX1 TO WS-E-IDX.
 DISPLAY "S" WS-TESTNO ":(" "NOT FOUND        "
         WS-E-IDX
         "):(NOT FOUND        011):Entry T1/033".
A-500.
 MOVE IDX2 TO WS-E-IDX.
 IF IDX2 = 6
    DISPLAY "S" WS-TESTNO ":(" WS-TABLE2-ENTRY(IDX2)
            "):(006DEPT1            ):Entry "
            WS-TABLENAME "/" WS-E-IDX
 ELSE
    DISPLAY "S" WS-TESTNO ":(" WS-TABLE2-ENTRY(IDX2)
            "):(007DEPT2            ):Entry "
            WS-TABLENAME "/" WS-E-IDX
 END-IF.

A-600.
 MOVE IDX2 TO WS-E-IDX.
 DISPLAY "S" WS-TESTNO ":(" "NOT FOUND        " WS-E-IDX
            "):(NOT FOUND        011):Entry "
            WS-TABLENAME "/" WS-IDX2.

A-700.
 MOVE 1 TO IDX2.
 SEARCH WS-TABLE2-ENTRY
   VARYING IDX2
   AT END PERFORM A-600
   WHEN WS-IDX1 = WS-TABLE2-IDX (IDX2)
        PERFORM A-500
   WHEN WS-IDX2 = WS-TABLE2-IDX (IDX2)
        PERFORM A-500.

A-800.
 SEARCH ALL WS-TABLE3-ENTRY
   AT END PERFORM A-600
   WHEN WS-IDX2 = WS-TABLE3-IDX (IDX3)
        PERFORM A-900.

A-900.
 MOVE IDX3 TO WS-E-IDX.
 IF IDX3 = 6
    DISPLAY "S" WS-TESTNO ":(" WS-TABLE2-ENTRY(IDX3)
            "):(006DEPT1            ):Entry "
            WS-TABLENAME "/" WS-E-IDX
 ELSE
    DISPLAY "S" WS-TESTNO ":(" WS-TABLE2-ENTRY(IDX3)
            "):(007DEPT2            ):Entry "
            WS-TABLENAME "/" WS-E-IDX
 END-IF.