MVSFORUMS.com

[sivasankaric]

Below rexx code will pick the string located in position 1 to 10 from each line from the input dataset and assign it to the Variable 'X' for display purpose.

I want to store the return result in a variable, say array variable, so that i can use all the output values for my future purpose.

Please advise how to store it in array. Thank You.

/* REXX */
INPT = "XXXXX.XXXX.XXXXX'
"ALLOC FI(IO) DA('"INPT"') SHR REU"
"EXECIO * DISKRU IO (STEM IO.)"
DO B = 1 TO IO.0
X = SUBSTR(IO.B,1,10)
END
SAY X