Thanks Binyamin and Mark Z. I was missing the UCLIN part. Now that I have that coded, it is working great.
Big hugs for the help. Or is that PC incorrect? Lizette >On Mon, 24 Nov 2008 10:58:16 -0500, Lizette Koehler ><[EMAIL PROTECTED]> wrote: > >>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. >> > > >Since I'm not changing the source and using it "as is", I assemble it >outside of SMP/E and do mine this way (there are other ways): > >//* >//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * >//* USERMOD >//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * >//C EXEC PGM=ASMA90, >// PARM='OBJECT,NODECK' >//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, >// UNIT=SYSALLDA,VOL=SER=MNTRES >// DD DSN=SYS1.MODGEN,DISP=SHR, >// UNIT=SYSALLDA,VOL=SER=MNTRES >//SYSUT1 DD DSN=&&SYSUT1,SPACE=(CYL,(1,1),,,ROUND), >// UNIT=SYSALLDA,DCB=BUFNO=1 >//SYSPRINT DD SYSOUT=* >//SYSLIN DD DSN=&&OBJ,SPACE=(CYL,(1,1)), >// UNIT=SYSALLDA,DISP=(MOD,PASS), >// DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1) >//************************************************************ >//* NOTE: SAMPLE SOURCE BEING USED. >//************************************************************ >//SYSIN DD DISP=SHR,DSN=SYS1.SAMPLIB(IEAMDBLG), >// UNIT=SYSALLDA,VOL=SER=MNTRES >//************************************************************ >//SMPE EXEC PGM=GIMSMP, >// COND=(0,NE), >// PARM='CSI=SYSI.IBM.ZOS19.GLOBAL.CSI' >//STEPLIB DD DISP=SHR,DSN=SYS1.MIGLIB,UNIT=SYSDA,VOL=SER=MNTRES >// DD DISP=SHR,DSN=SYS1.SASMMOD1,UNIT=SYSDA,VOL=SER=MNTRES >//SMPOUT DD SYSOUT=* >//SMPRPT DD SYSOUT=* >//**************************************************************** >//* NOTE: THE UCLIN BELOW IS NEEDED TO LET SMP/E KNOW WHAT >//* TARGET LIBRARY THAT IEAMDBLG SHOULD BE INSTALLED IN. >//**************************************************************** >//SMPCNTL DD * > SET BDY(GLOBAL) . > RECEIVE S(#UMOPLG) SYSMOD SOURCEID(USERMOD) . > SET BDY(MNTRES1). > UCLIN . > REP LMOD(IEAMDBLG) SYSLIB(LINKLIB) > REUS RMODE=24 AMODE=31. > REP MOD(IEAMDBLG) CSECT(IEAMDBLG) > LMOD(IEAMDBLG) DISTLIB(ALINKLIB). > REP SAMP(IEAMDBLG) RMID(#UMOPLG) . > ENDUCL . > APPLY SELECT(#UMOPLG) REDO. >//SMPPTFIN DD * >++ USERMOD (#UMOPLG) /* > THIS USERMOD LINKS THE SAMPLE OPERLOG FORMATTING PROGRAM > IEAMDBLG INTO SYS1.LINKLIB > */ . >++ VER (Z038) FMID (HBB7740). >++ MOD (IEAMDBLG) DISTLIB(ALINKLIB). >/* >// DD DSN=&&OBJ,DISP=(OLD,DELETE) > > ---------------------------------------------------------------------- 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
