Mark, That is a beautiful thing. Worked like a champ!
Thanks,. DAve _________________________________________________________________ Dave Jousma Assistant Vice President, Mainframe Services [email protected] 1830 East Paris, Grand Rapids, MI 49546 MD RSCB1G p 616.653.8429 f 616.653.8497 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Mark Zelden Sent: Friday, June 26, 2009 10:25 AM To: [email protected] Subject: Re: SMPE usermod sample 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 This e-mail transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. ---------------------------------------------------------------------- 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
