On Thu, 19 Jun 2008 09:31:13 -0500, Mark Zelden wrote:
>
>/* REXX */
>/* */
>/* AUTHOR: Mark Zelden */
>/* */
>Address ISREDIT
>"MACRO"
>uid = sysvar('SYSUID')
>ulen = Length(uid)
>"(data1) = LINE 1"
>data1 = Overlay(uid,data1,3,ulen)
>"LINE 1= (data1)"
>"SUBMIT"
>
But be careful of the initial formatting of the JOB statement. If it
is initially the very legal:
//NAME JOB account-stuff
won't the above result in the not very legal:
//ZELDENOB account-stuff
... ? (I have a tester's mentality.)
-- gil
----------------------------------------------------------------------
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
