Example 5: Running OER with the segment shunting function

The following figure shows a JCL example for running OER and enabling the segment shunting function for multiple areas.

In this example:

The INDD data set specifies to enable segment shunting.
For area DB23AR1, segments DD1 and DD11 will not be reorganized into the RAP CI, but other segments will be inserted into the RAP CI if space exists.
For area DB23AR2, segments DD1, DD11, DD12, and DD2 will not be reorganized into the RAP CI, but other segments will be inserted into the RAP CI if space exists.

Figure 1. Running OER with the segment shunting function

//OER     EXEC FPUTIL,DBD=DEDBJN23,IMSID=IMS1
//STEPLIB  DD DISP=SHR,DSN=HPFP.SHFPLMD0
//         DD DISP=SHR,DSN=IMSVS.SDFSRESL
//         DD DISP=SHR,DSN=IMSVS.PGMLIB
//FPXIN    DD *              
   REORG   AREA=(DB23AR1,DB23AR2)  
           PTRCHK=YES
   PTRCHK  TYPRUN=RPT 
           FULLSTEP=YES  
           CHKUOW=ALL  
/*
//INDD     DD *
AREA=DB23AR1
DD1
DD11
AREA=DB23AR2
DD1
DD11
DD12
DD2
/*