Is there a program that will compare the TMC and the RDS and tell what is not being used?

Products

• CA 1 Flexible Storage

Issue/Introduction

 

Is there a program that will compare the TMC and the RDS and tell what is not being used?    

 

     

Resolution

 

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