Assuming you want to stick to REXX and the variables are in
a separate member, something like this should work:
/*REXX*/
...
"ALLOC F(COPYBOOK) DS('datastname(member)') SHR"
"EXECIO * DISKR COPYBOOK (STEM cb_vars. FINIS"
"FREE F(COPYBOOK)"
do i = 1 to cb_vars.0
interpret cb_vars.i
end
Peter Hunkeler
CREDIT SUISSE
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
