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

Document ID : KB000105901
Last Modified Date : 25/02/2019
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.

In this member the Bytes Used indicates the number of bytes that were actually written to the tape device based on the BytePrc field (BytesUsed = DS Block Count * Blksz * BytePrc). 
The Bytes Stored indicates the number of bytes that were actually written to the tape media after compression has been applied in the tape drive or control unit. The CompRatio field is used to develop this count. For example, for a data set with these attributes in the TMC