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).
Release : 12.0
Component: JCLCheck Workload Automation
//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
//*