MERGE PERCENT - How many Archive tapes are filled by which percentage?

Products

• Disk Backup and Restore - MVS
• DISK BACKUP AND RESTORE- ADD-ON OPTIO
• DISK BACKUP AND RESTORE

Issue/Introduction

How to generate a CA Disk report that lists how many Archive tapes are filled by which percentage.

Environment

CA Disk with Datacom FDB.

Resolution

With a CA Disk Datacom FDB, 'Percent Used' of an Archive tape is calculated by IXMAINT and stored in field ARVPCTUS of the ARCHVOLS table.
Based on this field, the following SQL query creates an overview on how many tapes are filled by which percentage:

  SELECT 'Pct used 00 - 09:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) < 10
  AND   ARVID >= 'A' and ARVID <= '9'
  union
  SELECT 'Pct used 10 - 19:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) >= 10 and INTEGER(ARVPCTUS) < 20
  AND   ARVID >= 'A' and ARVID <= '9'
  union
  SELECT 'Pct used 20 - 29:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) >= 20 and INTEGER(ARVPCTUS) < 30
  AND   ARVID >= 'A' and ARVID <= '9'
  union
  SELECT 'Pct used 30 - 39:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) >= 30 and INTEGER(ARVPCTUS) < 40
  AND   ARVID >= 'A' and ARVID <= '9'
  union
  SELECT 'Pct used 40 - 49:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) >= 40 and INTEGER(ARVPCTUS) < 50
  AND   ARVID >= 'A' and ARVID <= '9'
  union
  SELECT 'Pct used 50 - 59:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) >= 50 and INTEGER(ARVPCTUS) < 60
  AND   ARVID >= 'A' and ARVID <= '9'
  union
  SELECT 'Pct used 60 - 69:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) >= 60 and INTEGER(ARVPCTUS) < 70
  AND   ARVID >= 'A' and ARVID <= '9'
  union
  SELECT 'Pct used 70 - 79:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) >= 70 and INTEGER(ARVPCTUS) < 80
  AND   ARVID >= 'A' and ARVID <= '9'
  union
  SELECT 'Pct used 80 - 89:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) >= 80 and INTEGER(ARVPCTUS) < 90
  AND   ARVID >= 'A' and ARVID <= '9'
  union
  SELECT 'Pct used 90 -100:      ', count(*)
  FROM CADISK.archvols_650
  WHERE INTEGER(ARVPCTUS) >= 90
  AND   ARVID >= 'A' and ARVID <= '9';
  SELECT 'Total number of tapes: ', count(*)
  FROM CADISK.archvols_650
  WHERE ARVID >= 'A' and ARVID <= '9';

Note:
Please see attached file 'DBSQARV3.txt' with a complete JCL sample.
The name of the Datacom CUSLIB and CAAXLOAD need to be specified in the STEPLIB DD and also the DBID needs to be checked in the Datacom table name (CADISK.archvols_650).

 

Additional Information

Here is also the output from a living system just as a sample.
As you can see, these statistics show that most Archive tapes have a percentage of more than 90%, which is ok.
However, it should be checked why MERGE processing is leaving so many tapes with 'Pct used' below 10%.
 
  Pct used                   COUNT(*)                   
  _______________________ ___________                   
  Pct used 00 - 09:             19073                   
  Pct used 10 - 19:              3404                   
  Pct used 20 - 29:              2996                   
  Pct used 30 - 39:              5601                   
  Pct used 40 - 49:              6415                   
  Pct used 50 - 59:              5561                   
  Pct used 60 - 69:              4902                   
  Pct used 70 - 79:              5263                   
  Pct used 80 - 89:              6461                   
  Pct used 90 -100:             42540                   
  Total number of tapes:     COUNT(*)                   
  _______________________ ___________                   
  Total number of tapes:       103095