JCLCheck new Cross Reference log file (UPDTDD)

Products

• JCLCheck Workload Automation

Issue/Introduction

 JCLCheck release 12.0 PTF SO06235 introduced a new Cross Reference log file (option UPDTDD) that can be used to create reports on the collected information.   

CAZ2JCL(AJ6XRDEL) is a sample job to purge data from the UPDTDD Cross Reference log file. 

By default, you have to modify the sort statements to purge multiple jobs, jobs or members.

This KB shows an updated AJ6XRDEL job to purge data from the UPDTDD Cross Reference log file using a list of jobnames (JCL members).  

 

 

Environment

Release : 12.0

Component: JCLCheck Workload Automation

Resolution

//* This job deletes data from the UPDTDD file (SORTJNF2) using a list of jobnames from SORTJNF1: 

//AJ6XRDEL PROC  XREFPRFX=MYHLQ,                                             

//             SYMBOLS='JCLCHECK.CAZ2JCL(AJ6XRSYM)',                    

//             UNIT=SYSALLDA                                            

//REMOVE   EXEC PGM=SORT,REGION=0M,PARM='DYNALLOC(&UNIT,50)'            

//SYSOUT   DD  SYSOUT=*  

//SORTJNF1 DD  DSN=&XREFPRFX..JCKXREF.LIST,DISP=SHR      Dataset contains a list of jobnames to delete

//SORTJNF2 DD  DSN=&XREFPRFX..JCKXREF.XREFBASE,DISP=SHR  UPDTDD Cross Reference log file                        

//SORTOUT  DD  DSN=&TMPXREF,DISP=(NEW,PASS),                            

//             LIKE=&XREFPRFX..JCKXREF.XREFBASE                         

//SYMNAMES DD  DISP=SHR,DSN=&SYMBOLS                                    

//SYSIN    DD  * 

 JOINKEYS FILE=F1,                JCL members to purge:

    FIELDS=(1,8,A)                member name       

 JOINKEYS FILE=F2,                XREF file:           

    FIELDS=(XRF_SOURCE_MEM,A)     member name       

 JOIN UNPAIRED,F2,ONLY            Keep unmatched XREF  

 SORT FIELDS=(XRF_SOURCE_MEM,A,XRF_TYPE,A)   Sort: JCL member record type     

/*                                                                      

//*                                                                     

//COPY     EXEC PGM=SORT,REGION=0M,PARM='DYNALLOC(&UNIT,50)',           

//             COND=(0,LT)                                              

//SYSOUT   DD  SYSOUT=*                                                 

//SORTIN   DD  DSN=&TMPXREF,DISP=(OLD,DELETE)                           

//SORTOUT  DD  DSN=&XREFPRFX..JCKXREF.XREFBASE,                         

//             DISP=SHR                                                 

//SYMNAMES DD  DISP=SHR,DSN=&SYMBOLS                                    

//SYSIN    DD  *                                                        

 SORT FIELDS=(XRF_CNTRL,A) 

/*

//AJ6XRDEL PEND          

//RUN      EXEC AJ6XRDEL 

//*