RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/PL-I/loop-over-multiple-arrays-simultaneously.pli

declare P(3) character (1) initial ('a', 'b', 'c'),
        Q(3) character (1) initial ('A', 'B', 'C'),
        R(3) fixed decimal (1) initial (1, 2, 3);

do i = lbound(P,1) to hbound(P,1);
   put skip edit (P(i), Q(i), R(i)) (2 A, F(1));
end;