Listing duplicated ARCHVOL keys in DISK Datacom FILES DB.
book
Article ID: 188218
calendar_today
Updated On:
Products
Disk Backup and Restore - MVSDISK BACKUP AND RESTORE- ADD-ON OPTIODISK BACKUP AND RESTORE
Issue/Introduction
Running IXMAINT it can happen to get the following error :
PET202I USER ABEND(U0100) AT PSW(078D1000 80025C5A). PET206I ABEND OCCURRED AT PGM(ADSDM485.ADSDM485+000D32) EPI(01/15/10 CCUWC50).
...
ADSDC195 4371 PERCENT USED: 20% - OF 36,750 TOTAL BLOCKS 7,297 BLOCKS ARE IN USE ADSDC195 4370 DATABASE 650 (IXX) IS CONTAINED WITHIN HLQ.DCOM.V15R0M0.DISK.IXX650 ADSDC195 4371 PERCENT USED: 15% - OF 18,000 TOTAL BLOCKS 2,626 BLOCKS ARE IN USE ADSUT327 4428 TABLE ERROR FOR TABLE: PRIMARY ARCHVOLS TABLE ADSUT327 4429 RC= 4 RSN= 2 INFO= 0 ADSUT327 4430 MEANING: DUPLICATE KEY ON ADD ADSUT327 4428 TABLE ERROR FOR TABLE: ADSUT327 4429 RC= 20 RSN= 1 INFO= 1 ADSUT327 4430 MEANING: TERMINATION FAILED: NO TABLE PRESENT ...
So it will be necessary to run a SQL report against the DISK Datacom Files DB in order to identify these duplicated ARCHVOL Keys. How to build this report?
Resolution
In the DISK CCUWJCL target library there is a sample member DBQDSI that is delivered during the installation. It provides a sample SQL SELECT that is executed by the DBSQLPR utility and displays the fields in a readable format.
ARVDSNAM as Archive_File_Name FROM CADISK.archvols_650 A where 1 < (SELECT count(*) FROM CADISK.archvols_650 B WHERE A.ARVID||A.ARVNBR = B.ARVID||B.ARVNBR) ;