Mainframe JOB to run CLIST or REXX

In case you have figured out a repetitive task that you have to do on various members of various pds’s, Here’s a job that can do it for you. The following job can be used to run a CLIST/Rexx or a macro in batch. Isn’t that cool?

//BATCHCLI   JOB (ACC INFO,,,,,XXXX),'         ',CLASS=M,  //            MSGCLASS=Y,NOTIFY=&SYSUID                    //********************************************************//** COPY THE ISPF PROFILE                                 //*********************************************************//CPYPROF  EXEC PGM=IEBCOPY                                //SYSPRINT  DD SYSOUT=*                                    //INDD      DD DSN=&SYSUID..SPF.PROFILE,                   //            DISP=SHR                                     //OUTDD     DD DSN=&ISPFPROF,DISP=(,PASS,DELETE),          //            UNIT=VIO,SPACE=(TRK,(15,15,15),RLSE),        //            DCB=(LRECL=80,BLKSIZE=6160,RECFM=FB,DSORG=PO)//SYSUT3    DD UNIT=VIO,SPACE=(CYL,(10))                   //SYSUT4    DD UNIT=VIO,SPACE=(CYL,(10))                   //SYSIN     DD *                                             COPY  OUTDD=OUTDD,INDD=((INDD,R))                        /*                                                         //*********************************************************//** EXECUTE THE CLIST OR REXX//*********************************************************//BATCHCLI EXEC PGM=IKJEFT01                               //*                                                        //SYSLIST DD SYSOUT=*                             //SYSTSPRT DD SYSOUT=*                            //ISPLOG   DD DSN=&SYSUID..SPF.USERLOG,DISP=SHR