Adding your routines to RMF

Before your Monitor I session user exit routines can be tested and used, they must be assembled and link edited with the appropriate RMF™ modules. If you are using your private libraries, you have to ensure that they are concatenated in front of the distributed RMF libraries. Figure 1 shows sample JCL for performing the required link edit for all user routines except the sampler routine. If you have a user sampler, a separate link edit is required; a sample is shown in Figure 2.

Figure 1. Replacing Installation Exits

//LINKEXIT JOB   MSGLEVEL=1
//LINK0001 EXEC PGM=IEWL,PARM='MAP,XREF,REUS,RENT,REFR,NCAL'
//SYSPRINT DD    SYSOUT=A
//SYSLMOD  DD    DSN=SYS1.SERBLINK,DISP=(OLD,KEEP)
//SYSUT1   DD    UNIT=SYSDA,DISP=(,DELETE),SPACE=(TRK,(20,5))
//SYSLIN   DD    *
    (ERBMFIUC object deck)
    ENTRY   ERBMFIUC
    NAME    ERBMFIUC(R)
    (ERBMFDUC object deck)
    ENTRY   ERBMFDUC
    NAME    ERBMFDUC(R)
    (ERBMFRUR object deck)
    ENTRY   ERBMFRUR
    NAME    ERBMFRUR(R)
    (ERBMFTUR object deck)
    ENTRY   ERBMFTUR
    NAME    ERBMFTUR(R)
    (ERBTRACE object deck)
    INCLUDE SYSLMOD(ERBMFITR)
    ENTRY   ERBMFITR
    NAME    ERBMFITR(R)
    (ERBMFPUS object deck)
    ENTRY   ERBMFPUS
    NAME    ERBMFPUS(R)
/*

Figure 2. Adding a User Sampler

//LINKEXIT JOB   MSGLEVEL=1
//LINK0001 EXEC PGM=IEWL,PARM='MAP,XREF,REUS,RENT,REFR,NCAL'
//SYSPRINT DD    SYSOUT=A
//SYSLMOD  DD    DSN=SYS1.SERBLPA,DISP=(OLD,KEEP)
//SYSUT1   DD    UNIT=SYSDA,DISP=(,DELETE),SPACE=(TRK,(20,5))
//SYSLIN         DD    *
    (user sampler object deck)
    ENTRY   entry name
    NAME    sampler name
/*