ARRAY sample

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 2D-TABLE VALUE 'DUHIABCDPUNIEFGHKARUIJKL'.
   02 ONE-DATA  OCCURS 3 TIMES INDEXED BY I1.
   03 ONE-DATA1 PIC X(4).
   03 TWO-DATA  PIC X(2) OCCURS 2 TIMES INDEXED BY I2.
77 I3 PIC 9(2) VALUE ZERO.
77 I4 PIC 9(2) VALUE ZERO. 
PROCEDURE DIVISION.
SET I1,I2 TO 1
SET I3,I4 TO 1
PERFORM VARYING I1 FROM 1 BY 1 UNTIL I1 > 3
   PERFORM VARYING I2 FROM 1 BY 1 UNTIL I2 > 2
   DISPLAY "DUHI IS PARI " 2D-TABLE
   DISPLAY "DUHI IS PARI " ONE-DATA(I1)
   DISPLAY "DUHI IS PARI " ONE-DATA1(I1)
   DISPLAY "DUHI IS PARI " TWO-DATA(I1,I2)
   DISPLAY I1,I2
   END-PERFORM
END-PERFORM.
STOP RUN.