Setting up parallel processing outside of SMP/E

To set up parallel processing for the OAM tape exits CBRUXENT and CBRUXEJC, perform these steps:

Rename the existing exit load module names as follows:
- CBRUXENT to ANOUXENT
- CBRUXEJC to ANOUXEJC
Assemble the DFSMSrmm-supplied exits with PARM='SYSPARM(YES)'.
Link the DFSMSrmm-supplied exits.

To set up the parallel processing for the message display exit IGXMSGEX, follow these steps:

Assemble the DFSMSrmm-supplied exits with PARM='SYSPARM(YES)'.
Link the DFSMSrmm-supplied exit together with the renamed IGXMSGEX exit that is provided by the existing tape management system as shown in Figure 1. The first step of the link-edit is to extract the IGXMSGEX exit that is provided by the existing tape management system from IGX00030 and rename it to ANOMSGEX. The second step of the link-edit is to update the existing load module with the DFSMSrmm-supplied IGXMSGEX exit and to add in the ANOMSGEX section.

Figure 1. Sample JCL for setting up running exits in parallel

//LINK1    EXEC PGM=IEWL,REGION=2M,
   // PARM='LET,LIST,XREF,NCAL,RENT,NCAL'
   //LPALIB   DD DISP=SHR,DSN=SYS1.LPALIB
   //*
   //SYSLMOD  DD DISP=SHR,DSN=DFRMM1.NEW.LOAD
   //AEDGMOD1 DD DISP=SHR,DSN=SYS1.AEDGMOD1
   //*
   //SYSPRINT DD SYSOUT=*
   //SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
   //SYSLIN   DD *
    REPLACE EDGMSGEX
    REPLACE IGXMSG01
    REPLACE IGX00030
    RENAME  IGXMSGEX,ANOMSGEX
    CHANGE  IGXMSGEX(ANOMSGEX)
    INCLUDE LPALIB(IGX00030)
    NAME    ANOMSGEX(R) RC=4
    INCLUDE AEDGMOD1(IGXMSGEX)
    INCLUDE LPALIB(IGX00030)
    INCLUDE SYSLMOD(ANOMSGEX)
    ORDER   IGX00030,IGXMSG01
    ORDER   IGXMSGEX,EDGMSGEX
    MODE    RMODE(ANY)
    ENTRY   IGX00030
    NAME    IGX00030(R) RC=4

You can also edit the DFSMSrmm-supplied exits as shown in Figure 2. The example shows the CBRUXENT exit to set the &ANOEXIT variable with the new name of the existing exit and the &PARALLEL variable to YES. Then you can assemble and link-edit the updated DFSMSrmm-supplied exits.

Figure 2. Example JCL for Setting Up Running Exits in Parallel

CBRUXENT TITLE 'DFSMSRMM CBRUXENT SAMPLE USER EXIT'
&ANOEXIT  SETC 'ANOUXENT'    Replace ANOUXENT with required name
&PARALLEL    SETC '&SYSPARM'    Replace &SYSPARM with YES if req'd
             AIF  ('&PARALLEL   ' EQ '').SETNO
             AIF  ('&PARALLEL   ' EQ 'YES').SETYES
 .SETNO    ANOP
 &PARALLEL    SETC 'NO'
 .SETYES   ANOP