По мотивам линейно-аглебраического:

DCL A(10,10) FIXED BIN
    X(10) FIXED BIN DEF( A(1SUB,1SUB) );
X is a one-dimensional array that consists of the diagonal of A: X(i) refers to the same storage as A(i,i).

DCL B(5,10) FIXED BIN
    Y(10,5) FIXED BIN DEF( A(2SUB,1SUB) );

Y is a two-dimensional array that consists of the elements of B with the bounds transposed: Y(i,j) refers to the same storage as X(j,i).
в принципе легко можно допустить по крайней мере линейные выражения над индексами, хотя в стиле PL/I этого емнимп не сделано.

Но идея довольно забавная.