Is there a program that will compare the TMC and the RDS and tell what is not being used?
This can be done with program TMSEXPCK.
Here is the JCL for running TMSEXPCK. This can also be found in the *.CTAPJCL(TMSEXPCK) library.
//TMSEXPDT EXEC PGM=TMSEXPCK
//TMSRPT DD SYSOUT=A
//MATCH DD SYSOUT=A
//NOMATCH DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//DEFAULTS DD UNIT=SYSDA,
// SPACE=(CYL,(2,2))
//RDS DD UNIT=SYSDA,
// SPACE=(CYL,(2,2))
//SYSOUT DD SYSOUT=A
//TMC DD DSN=CAI.TMC,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,
// SPACE=(CYL,(1,2),,CONTIG)
//SORTWK02 DD UNIT=SYSDA,
// SPACE=(CYL,(1,2),,CONTIG)
//SORTWK03 DD UNIT=SYSDA,
// SPACE=(CYL,(1,2),,CONTIG)
//SORTWK04 DD UNIT=SYSDA,
// SPACE=(CYL,(1,2),,CONTIG)
//SORTWK05 DD UNIT=SYSDA,
// SPACE=(CYL,(1,2),,CONTIG)
//SORTWK06 DD UNIT=SYSDA,
// SPACE=(CYL,(1,2),,CONTIG)
//EARLOUT DD DSN=&&REPORTS, * REPORT FILE FOR EARL *
// DISP=(,PASS),
// UNIT=VIO,
// SPACE=(CYL,(5,40),RLSE)
//SYSIN DD DSN=YOUR.RETENTION.DATASET,DISP=SHR
//**------------------------------------------------------------------*
//** *
//** PRINT THE SAMPLE REPORT USING EARL *
//** *
//**------------------------------------------------------------------*
//EARL EXEC PGM=EARL,
// REGION=1024K,
// COND=EVEN
//EARLLIB DD DSN=CAI.CAISRC,
// DISP=SHR
//TAPEDB DD DSN=&&REPORTS,
// DISP=SHR
//SYSEARL DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//EARLOBJ DD UNIT=SYSDA,
// SPACE=(CYL,(4,1))
//SYSUT1 DD UNIT=SYSDA,
// SPACE=(CYL,(4,1))
//SYSUT2 DD UNIT=SYSDA,
// SPACE=(CYL,(4,1))
//SYSUT3 DD UNIT=SYSDA,
// SPACE=(CYL,(4,1))
//SYSUT4 DD UNIT=SYSDA,
// SPACE=(CYL,(4,1))
//SYSUT5 DD UNIT=SYSDA,
// SPACE=(CYL,(4,1))
//SYSUT6 DD UNIT=SYSDA,
// SPACE=(CYL,(4,1))
//SORTIN DD UNIT=SYSDA,
// SPACE=(CYL,(5,8))
//SORTOUT DD UNIT=SYSDA,
// SPACE=(CYL,(5,8))
//SYSOUT DD SYSOUT=&SOUT
//WORK1 DD UNIT=SYSDA,
// SPACE=(CYL,(5,5))
//SORTWK01 DD UNIT=SYSDA,
// SPACE=(CYL,(2,5))
//SORTWK02 DD UNIT=SYSDA,
// SPACE=(CYL,(2,5))
//SORTWK03 DD UNIT=SYSDA,
// SPACE=(CYL,(2,5))
//SYSIN DD DSN=CAI.CAISRC(TMEXPDT),
// DISP=SHR