On 2014-03-31, at 21:06, Micheal Butz wrote: > I originally sent to wrong forum > Well, TSO-REXX would have been the right one.
>> From: Micheal Butz <[email protected]> >> Date: March 31, 2014 at 11:02:50 PM EDT >> To: Assembler Language <[email protected]> >> Subject: Rexx substr not retiring string >> You could have copied-and-pasted rather than forwarding. >> I have some imbedded JCL in a. sequitial file >> ... >> Outvar.I = substr(jcl.I,2,81) >> You probably want: Outvar.I = substr(jcl.I,2,80) >> Afterwards I write out the results >> >> execio * DISKW outds (finis stem outvar >> Aw, gee... execio * DISKW outds (finis stem outvar. (I suspect there are examples somewhere.) -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
