On Thu, 19 Jun 2008 09:44:54 -0500, Paul Gilmartin <[EMAIL PROTECTED]> wrote:
>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.)
>
My code was just a 60 second throw together sample of what could be done
based on the OP. It wasn't meant to be "works in all environments all
the time" code. The best way to do that would be to build the entire
job card based on site specific standards instead of trying to account for
all the different combinations of userid length and where the "JOB" is
placed.
Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html
----------------------------------------------------------------------
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
