Read Natural Source into X-Array of Dynamic

Reads a Natural source from a given library into one single x-array.

1 W3LIBRARY    (A8) DYNAMIC BY VALUE   /* i /o : Natural Library ID
1 W3SOURCE     (A8) DYNAMIC BY VALUE   /* i /m : Source Name
1 W3OUTSRC-XA  (A/1:*) DYNAMIC         /*  o/o : Response Array
1 W3RESPONSE   (I4)                    /*  o/o : Response

PERFORM W3SOURCE-TO-XARRAY W3LIBRARY W3SOURCE W3OUTSRC-XA(*) W3RESPONSE