RosettaCodeData/Task/Array-concatenation/PL-I/array-concatenation-2.pli

   declare x(m+n) fixed;
   declare b(m) fixed defined x;
   declare c(n) fixed defined x(1sub+hbound(b,1));