On Fri, 26 Jun 2009 07:46:51 -0400, Jousma, David <[email protected]> wrote:
>After seeing the posts this week about ISRONLY in ISP.SISPSAMP, I am
>trying to write a SMPE usermod that will:
>
>1) Copy/move ISRONLY from SISPSAMP to SISPEXEC
>2) Add alias "ONLY" to it.
>
>Does anyone have any samples/pointers on how to do this?
>
>Thanks in advance,
>
>Dave
>_________________________________________________________________
>Dave Jousma
Perhaps Kurt Quackenbush (or someone else) would have a better way
or "more proper" way to do it, but I think this should work:
++USERMOD (UMISPMZ) .
++VER (Z038) FMID(HIF5H02) .
++EXEC(ISRONLY) DISTLIB(AISPEXEC) ALIAS(ONLY)
SYSLIB(SISPEXEC) TXLIB(SISPSAMP).
++JCLIN.
//STEP1 EXEC PGM=IEBCOPY
//SISPSAMP DD DSN=SISPSAMP,DISP=SHR
//SISPEXEC DD DSN=SISPEXEC,DISP=SHR
//SYSIN DD *
COPY INDD=SISPSAMP,OUTDD=SISPEXEC TYPE=DATA
SELECT MEMBER=ISRONLY
SELECT MEMBER=ONLY ALIAS OF ISRONLY
/*
Regards,
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
