In the CA DISK CCUWJCL target library there is 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.
You may start from this member and build the below report :
//SQLEXEC EXEC PGM=DBSQLPR
//STEPLIB DD DISP=SHR,DSN=custom.disk.datacom.CUSLIB
// DD DISP=SHR,DSN=custom.datacom.CAAXLOAD
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SNAPER DD SYSOUT=*
//STDERR DD SYSOUT=*
//STDOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//OPTIONS DD *
NOPAGEHDR
AUTHID=SYSADM
STRDELIM=A
PRTWIDTH=1000
rowlimit=1000000
notype
noecho
/*
//SYSIN DD *
****************************************
* display duplicated ARCHVOLS *
****************************************
SELECT
ARVID||ARVNBR as ArcVol,
ARVCOUNT as VolCount,
ARVSEQNO as VolSeq,
ARVVOLUM as Actual,
ARVKEYCH as NxtVol,
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) ;
/*