Re: Looking for USERMOD samples

[Tom Marchant]

On Wed, 28 Dec 2016 16:42:43 +0100, R.S. wrote:

>BTW: Another "favorite" example is ICHRDSNT:
>---------------------------------
>//SYSPUNCH DD DSN=&LOADSET,
>// DISP=(,PASS),UNIT=3390,SPACE=(CYL,(5,1))
>//SYSIN    DD *
>   PUNCH '++USERMOD (CPPDSNT).'
>   PUNCH '++ VER (Z038) FMID(HRF77A0).'
>   PUNCH '++ MOD (ICHRDSNT) DISTLIB(AOSBN) LMOD(ICHRDSNT).'
>ICHRDSNT CSECT ,
>...
>END
>/*
>//*
>//*
>//RECAPP   EXEC PGM=GIMSMP
>//SMPCSI   DD DISP=SHR,DSN=HLQ.GIM1.GLOBAL.CSI
>//SMPHOLD  DD DUMMY
>//SMPPTFIN DD DSN=&LOADSET,DISP=(OLD,DELETE)
>//SMPCNTL  DD *
>   SET BDY(T1GIM1T) .
>     UCLIN .
>       REP LMOD(ICHRDSNT) SYSLIB(LINKLIB) .
>     ENDUCL .
>   SET BDY(GLOBAL) .
>     RECEIVE S(CPPDSNT) SYSMODS .
>   SET BDY(T1GIM1T) .
>     APPLY S(CPPDSNT) REDO .
>/*
>//*
>
>
>Here we have yet another method for providing MCS'es and source code.

Yes, in this case, the source is assembled outside of SMP/E, and the USERMOD 
provides the object module. And again, there is no JCLIN, which would be 
required if this was a new module. But since the USERMOD is replacing an 
existing module, SMP/E already knows what to do with it.

>BTW: the above results with the following CPPDSNT member of SMPPTS:
>++USERMOD (CPPDSNT).
>++ VER (Z038) FMID(HRF77A0).
>++ MOD (ICHRDSNT) DISTLIB(AOSBN) LMOD(ICHRDSNT).
>$$GIMC         É{binary-code-here Îą˝ ˝ ˘S­h°~\§ KÍ |\     D   c
>  Ĺa   R   {płť} - Ć÷Ż\ aeĆöę Q 21) T[ ż>zÚźŁń'UpŁ# ŁŤA˘

-- 
Tom Marchant

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN