Question:
Is there a program that will compare the TMC and the RDS and tell what is not being used?
Answer:
This one can be do with TMSEXPCK.
Here is the JCL for running TMSEXPCK.
//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