Code for Program to use multiple array in Cobol
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