Is there a program that will calculate the amount of data on a tape?

Document ID : KB000105901
Last Modified Date : 10/07/2018
Show Technical Document Details
Introduction:
I would like to calculate the tape file size in CA1. I need it in MB or GB, is there any way I can calculate using CA1 panel as I cant see size option in CA1. 
Instructions:
In CA 1 rel 14.0 + fixes RO93819 and SO01019 you have an EARL program called TMETPUSE.  This will calculate the amount of data on all of the active tapes in the TMC.
You can use the CTAPJCL member called TMSEARL to run this program.  You will need to make slight modifications to the JCL to point it to the TMETPUSE member for the SYSIN, and your TMC name for the TAPEDB DD.