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