|
Perform these actions to update or replace the default exit module:
- Build and install an SMP/E USERMOD to apply the updated source
code for the EDGUX100 exit module. Include the necessary JCLIN statements
to get the EDGUX100 load module added to the LINKLIB target library.
You
can apply the exit using an SMP/E USERMOD as shown in Figure 1. Modify the FMID and PRE to reflect the release you
are running.
- Allocate a user SAMPLIB data set. In Figure 1 the
user SAMPLIB data set is defined as MY.RMM.SRCLIB and allocated to
DD card SRCLIB.
- Copy the EDGUX100 source from SAMPLIB to the user SAMPLIB, and
copy EDGAPISR from SMPSTS to the user SAMPLIB and modify them, as
needed, for your installation.
- SMP/E RECEIVE the USERMOD.
- SMP/E APPLY the USERMOD. Ensure that a DD card exists for the
user SAMPLIB in the APPLY job, or as a DDDEF to SMP/E in the target
zone.
After performing these steps, the modified version of the
EDGUX100 exit module resides in both the user SAMPLIB and SYS1.SAMPLIB.
IBM's original copy is only in the distribution libraries at this
point. If you accept the USERMOD, only the modified version of the
exit module exists. The SMP/E target zone reflects RMID indicators
of VMRMM01 for all of these records:
SAMP EDGUX100 RMID=VMRMM01 SYSLIB=SAMPLIB
SRC EDGUX100 RMID=VMRMM01 SYSLIB=SAMPLIB
MOD EDGUX100 RMID=VMRMM01 LMOD=EDGUX100
SRC EDGAPISR RMID=VMRMM01 SYSLIB=SMPSTS
MOD EDGAPISR RMID=VMRMM01 LMOD=EDGUX100, CBRUXVNL, CBRUXEJC, CBRUXENT
LMOD EDGUX100 SYSLIB=LINKLIB
The RMID of
VMRMM01 for the SAMP record prevents IBM service from being installed.
This results in an ID search and notification to you that IBM is the
servicing exit.
Figure 1. Building an SMP/E USERMOD
to apply the updated EDGUX100 exit module/* RECEIVE Step */
//RMMEXAM JOB ,'EDGUX100',MSGCLASS=H,MSGLEVEL=(1,1)
//SMPE EXEC PGM=GIMSMP,
// PARM='PROCESS=WAIT',
// DYNAMNBR=120
//SMPCSI DD DISP=SHR,DSN=your.CSI.dataset
//SMPHOLD DD DISP=SHR,DSN=your.HOLDDATA.dataset
//SMPCNTL DD *
SET BDY(GLOBAL) .
RECEIVE .
/*
//SMPPTFIN DD DATA,DLM=##
++USERMOD (VMRMM01) REWORK(2008082) .
++VER (Z038) FMID(HDZ1190) .
++JCLIN .
//EDGUX100 EXEC PGM=IEWL,PARM='LET,NCAL,RENT,REUS,REFR,LIST,XREF'
//SYSLMOD DD DISP=SHR,DSN=SYS1.LINKLIB
//SRCLIB DD DISP=SHR,DSN=MY.RMM.SRCLIB
//AEDGMOD1 DD DISP=SHR,DSN=SYS1.AEDGMOD1
//SYSPRINT DD SYSOUT=*
//SYSLIN DD *
INCLUDE AEDGMOD1(EDGUX100)
INCLUDE AEDGMOD1(EDGAPISR)
ENTRY EDGUX100
NAME EDGUX100(R)
++SRC(EDGUX100) TXLIB(SRCLIB) DISTLIB(ASAMPLIB) .
++SRC(EDGAPISR) TXLIB(SRCLIB) DISTLIB(AEDGSRC1) .
++SAMP(EDGUX100) TXLIB(SRCLIB) DISTLIB(ASAMPLIB) .
##
/*
/* APPLY Step */
//SMPAPPLC JOB ('T,H,IOM,,',SYSPROG),'***IBMUSER***',
// MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,REGION=0M,
// NOTIFY=&SYSUID
//S1 EXEC PGM=GIMSMP,
// PARM='PROCESS=WAIT',
// DYNAMNBR=120
//SMPCSI DD DISP=SHR,DSN=MAZRMM3.GLOBAL.CSI
//SRCLIB DD DISP=SHR,DSN=RMMTST.MAZ.SOURCE
//SMPCNTL DD *
SET BOUNDARY (MVSTZN)
.
APPLY
JCLINREPORT
SELECT (VMRMM01)
.
- Copy the new exit load module into the LNKLST library.
- Refresh LLA.
- Refresh the exit module by using MVS operator commands.
If DFSMSrmm
is running in a shared environment, you must repeat this step on each
system.
When you use the default exit module, EDGUX100, for the installation
exit EDG_EXIT100, it is loaded and activated as an exit routine, if
it is not already active, by DFSMSrmm when DFSMSrmm is started and
stays loaded and active for the life of the IPL. It can be refreshed
or deleted at any time by using one of the MVS system operator commands.
You can use any load module name for your exit module, because
you use PROGxx in z/OS parmlib, SETPROG, or CSVDYNEX macro
to associate the exit module with the exit. Therefore, you do not
have to use EDGUX100 as the load module name. However, using the default
exit module name simplifies your implementation, because DFSMSrmm
itself ensures that the exit module is loaded and activated.
|