Yes, but this strikes me as incomplete.

I did try an APPLY CHECK of the proposed USERMOD (minus the JCLIN) and
it appeared to produce the desired result.
In that a ++EXEC element would be created (target library SISPEXEC) with
an ALIAS of ONLY copied from SISPSAMP.

However, here's the problem. The shipped IBM element ++SAMP(ISRONLY) has
no updates associated with it.
This is telling me, and I could be wrong, that IBM could ship a PTF to
ISRONLY, and then my ++EXEC is
out-of-sync because IBM knows nothing of a ++EXEC(ISRONLY). Uh Oh

It seems to me that a complete solution to this problem requires that
the ++SAMP(ISRONLY) must have the RMID updated.
That way, if there is an IBM PTF, then SMP/E will detect a MODID error.

--
Jeff


Mark Zelden said the following on 7/1/2009 12:58 PM:
On Tue, 30 Jun 2009 10:22:01 -0400, Kurt Quackenbush <ku...@us.ibm.com> wrote:

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
/*
I was out of the office for a couple of days, so I'm a little late, but
here's my 2 cents: The above USERMOD should indeed work, except you can
scrap the JCLIN since it has no affect and is ignored by SMP/E.  That
is, all "TYPE=DATA" copy steps are ignored.

Kurt Quackenbush -- IBM, SMP/E Development


Kurt,

Thanks for the response and the lesson.

Regards,

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:mark.zel...@zurichna.com
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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to