Batch Job to Run CLIST-REXX
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"
/*