IDENTIFICATION DIVISION.
         PROGRAM-ID. ARR.
       DATA DIVISION.
        01 ARR1.
          02 A OCCURS 3 TIMES.
            03 A1 OCCURS 3 TIMES.
              05 TEMP PIC  99.
        01 I PIC 9.
        01 J PIC 9.
       PROCEDURE DIVISION.
        BEGIN.
          PERFORM VARYING I FROM 1 BY 1 UNTIL I>3
            PERFORM VARYING J FROM 1 BY 1 UNTIL J>3
              ACCEPT TEMP (I,J)
            END-PERFORM
          END-PERFORM.
          PERFORM VARYING I FROM 1 BY 1 UNTIL I>3
            PERFORM VARYING J FROM 1 BY 1 UNTIL J>3
              DISPLAY TEMP (I,J) WITH NO ADVANCING
            END-PERFORM
              DISPLAY " "
          END-PERFORM.
         STOP RUN