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

Products

• CA 1 Tape Management
• CA 1 Tape Management - Copycat Utility
• CA 1 Tape Management - Add-On Options

Issue/Introduction

 

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                      

Environment

Release: ONE...00200-12.6-One-TAPE MANAGEMENT
Component: