search cancel

Sample Cleanup for ACF2 jobs to create CMDS and BACKOUT Datasets and to run the commands

book

Article ID: 214938

calendar_today

Updated On:

Products

Cleanup

Issue/Introduction

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?

Environment

Release : 12.1

Component : CA Cleanup  

Resolution

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         
/*                                                      
//*