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 IBM-MAIN@bama.ua.edu 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