This kitty cat, like most proverbial felines, is skinnable in several ways.
Let me offer another slice and dice technique. To begin with, SAMPLIB
member IEAMDBLG is in fact already defined to SMP/E like this:
Entry Type: SAMP Zone Name: MVST100
Entry Name: IEAMDBLG Zone Type: TARGET
LASTUPD: HBB7740 TYPE=ADD
FMID HBB7740
RMID HBB7740
DISTLIB ASAMPLIB
SYSLIB SAMPLIB
It's just not defined also as SRC/MOD/LMOD . Below is our usermod CONS002
for a similar case, IEARELCN , also distributed only as SAMP. The usermod
assembles and links IEARELCN exactly as supplied in SAMPLIB. Besides
creating the load module in one APPLY, it creates/maintains SRC/MOD/LMOD
entries and puts an RMID on the SAMP member so that any IBM PTF updating
IEARELCN will cause a MODID conflict, indicating that your usermod need to
be reapplied. The result of usermod CONS002 (below) is this:
S TYPE ACTION
LMOD
MOD
SAMP
SRC
Entry Type: SAMP Zone Name: MVST100
Entry Name: IEARELCN Zone Type: TARGET
LASTUPD: UCLIN TYPE=UPD
FMID HBB7740
RMID CONS002
DISTLIB ASAMPLIB
SYSLIB SAMPLIB
Entry Type: SRC Zone Name: MVST100
Entry Name: IEARELCN Zone Type: TARGET
FMID: HBB7740 LASTUPD: CONS002 TYPE=ADD
RMID: CONS002 DISTLIB: ASLIB01
Entry Type: MOD Zone Name: MVST100
Entry Name: IEARELCN Zone Type: TARGET
FMID: HBB7740 LASTUPD: CONS002 TYPE=ADD
RMID: CONS002 DISTLIB: SYSPUNCH RMIDASM
Link-edit Parameters:
-------- -------- -------- -------- -------- -------- ------
LMOD IEARELCN
Entry Type: LMOD Zone Name: MVST100
Entry Name: IEARELCN Zone Type: TARGET
RETURN CODE: LASTUPD: CONS002 TYPE=ADD
Link-edit Parameters:
AC=1,NCAL
-------- -------- -------- -------- -------- -------- --------
SYSLIB LINKLIB
Here is the full content of usermod CONS002. The SYSPUNCH library does not
need to nor does it actually exist.
//SMPE EXEC SMPR19
//SYSIN DD *
SET BDY(GLOBAL) .
RECEIVE SYSMODS S(CONS002) .
SET BDY(MVST100) .
APPLY S(CONS002) REDO .
UCLIN .
REP SAMP(IEARELCN) RMID(CONS002) .
ENDUCL .
//SMPPTFIN DD DATA,DLM=$$
++USERMOD(CONS002) REWORK(2007197)
/* This usermod assembles and links SAMPLIB member
IEARELCN, which allows one to delete MCS consoles
not in use but occupying console slots, which are
still limited to 99 per sysplex.
No changes are made to the sample, but UCLIN
sets the RMID in case a future PTF requires the
member to be reassembled.
*/ .
++VER(Z038) FMID(HBB7740) /* ZOS R19 */ .
++ JCLIN .
//ASM EXEC PGM=IEV90,PARM='DECK,NOOBJ,XREF(SHORT)'
//SYSIN DD DDNAME=SAMPLIB
//SAMPLIB DD DSN=SYS1.SAMPLIB(IEARELCN),DISP=SHR
//SYSPUNCH DD DSN=SYS1.SYSPUNCH(IEARELCN),DISP=SHR
//LINKEDIT EXEC PGM=IEWL,PARM='XREF,LIST,LET,NCAL,AC=1'
//SYSLMOD DD DSN=SYS1.LINKLIB,DISP=SHR
//SYSPUNCH DD DSN=SYS1.SYSPUNCH,DISP=SHR
//SYSLIN DD *
INCLUDE SYSPUNCH(IEARELCN)
NAME IEARELCN(R)
++SRC(IEARELCN) DISTLIB(ASLIB01) TXLIB(SAMPLIB) .
$$
//
.
.
JO.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[EMAIL PROTECTED]
Lizette Koehler
<[EMAIL PROTECTED]
ING.COM> To
Sent by: IBM [email protected]
Mainframe cc
Discussion List
<[EMAIL PROTECTED] Subject
.edu> Help with Usermod that will
assemble and link
11/24/2008 07:58
AM
Please respond to
IBM Mainframe
Discussion List
<[EMAIL PROTECTED]
.edu>
I have source code that is not currently managed by SMPE. I would like to
place it in SMPE control by developing a usermod to do the assemble and
link.
I have not done this type of usermod before and after reading the manuals I
think I am close but just am not getting what I want.
The source code is found in SYS1.SAMPLIB and is IEAMDBLG. IEAMDBLG is
currently not an SMP/E element. So I need to tell SMP/E it is now.
Could someone point out what I need to do to make this work? I am thinking
I may have to do some pre steps with the assemble and link and then use
SMP/E it put it in its home, SYS1.LINKLIB.
I prefer to have things in SYS1.LINKLIB handled by SMP/E.
Lizette
----------------------------------------------------------------------
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
