How can the CMDS and BACKOUT commands be transfered to a dataset(separate one for each), and once transferred, call in(run) the new dataset in JCL to execute the commands? Is there any sample JCL for that?
Release : 12.1
Component : CA Cleanup
Sample AT5#RPT JCL to create CMDS and BACKOUT datasets which can be referenced in a batch TSO job to run the commands to remove or restore from the CMDS or BACKOUT datasets.
//AT5RPT EXEC PGM=AT5#RPT,REGION=4M,PARM='UNREF=15'
//DBASE DD DISP=SHR,DSN=your.ETCLNA.R121.DB
//SYSPRINT DD SYSOUT=*
//SUMMARY DD SYSOUT=*
//UNLOAD DD SYSOUT=*
//CMDS DD DSN=your.ETCCMDS.OUT,UNIT=SYSDA,DISP=(,CATLG,DELETE),
// SPACE=(CYL,(1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//BACKOUT DD DSN=your.ETCCMDS.BOUT,UNIT=SYSDA,DISP=(,CATLG,DELETE),
// SPACE=(CYL,(1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSOUT DD DUMMY
//SORTWK01 DD UNIT=3390,SPACE=(CYL,15)
//SORTWK02 DD UNIT=3390,SPACE=(CYL,15)
//INCLUDE DD *
CLASS(RFAC)
/*
//IKJEFT01 EXEC PGM=IKJEFT01,REGION=1024K
//SYSPROC DD DISP=SHR,DSN=your.ETCLNA.R121.CDMEEXEC
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DISP=SHR,DSN=your.ETCCMDS.BOUT
/*
//*