7 lines
244 B
Text
7 lines
244 B
Text
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;
|