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