Subroutine Name	Executable Example	Viewable Example
W3SOURCE-TO-XARRAY	E3NAT2XA	E3NAT2XA

Description

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

Parameters

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

How To Invoke

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