As others have said... an exit.
If you have your own clist/rexx library concatenated to SYSPROC/SYSEXEC,
you can easily create a submit edit macro that does it for you. Or perhaps
talk someone into putting the macro in a common library. Then you can type
something like "MYSUB" instead of SUBmit:
/* 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"
--
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
