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      <=====The dataset for user log
//ISPPROF   DD DSN=&ISPFPROF,DISP=(OLD,PASS)         <=====The dataset for user profile
//ISPMLIB  DD DSN=ISP.SISPMENU,DISP=SHR              <=====The dataset for message library
//ISPPLIB  DD DSN=ISP.SISPPENU,DISP=SHR              <=====The dataset for panel library
//ISPSLIB  DD DSN=ISP.SISPSENU,DISP=SHR              <=====The dataset for skel library
//         DD DSN=ISP.SISPSLIB,DISP=SHR           
//ISPTLIB  DD DSN=ISP.SISPTENU,DISP=SHR              <=====The dataset for table library
//ISPTABL  DD DSN=ISP.SISPTENU,DISP=SHR           
//SYSPROC  DD DSN=USERID.ABC.XYZ,DISP=SHR            <=====The dataset for CLIST/REXX library
//*                                               
//SYSTSIN  DD *                                   
  ISPSTART CMD(%clistname)                           <=====Give CLIST name here "clistname"
/*