Hello, You should be able to do this with FDREPORT (since you also mentioned it in the list of programs). The basic control cards to do this are:
//RPTTAPES EXEC PGM=FDREPORT,REGION=0M //*-+----1----+----2----+----3----+----4----+----5----+----6----+----7 //* LIST ALL TAPES FROM THE CATALOG, SORTED IN TAPE VOLSER, FILESEQ //* ORDER //*-+----1----+----2----+----3----+----4----+----5----+----6----+----7 //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSPUNCH DD SYSOUT=* //*SYSPUNCH DD SYSOUT=(A,INTRDR) //*SYSPUNCH DD UNIT=VIO,SPACE=(TRK,(1,1)),DSN=&&SYSPUNCH //SYSUDUMP DD SYSOUT=* //SYSIN DD * * MAKE SURE WE PICK UP TAPES DEFAULT PAGEWIDTH=120,ENABLE=ALLFILTER,SORTALLOC=(SORTWORK,CYL) * SELECT TAPES WITH VOLSER FROM 900000 - 999999 XSELECT DEVCLASS=TAPE,VOL>=900,VOL<=999999 * REPORT ALL WE CAN FROM A CATALOG REPORT FIELD=(VOL,FILESEQ,DEVTYPE,UCBID,DSN,CRDATE,DEVCLASS) * SORT IN VOLUME, FILESEQ ORDER WITH A SPACE BETWEEN VOLUMES SORT FIELD=(VOL,FILESEQ,DSN),BREAK=(SP,NO,NO) * GET DATA FROM THE CATALOG AND CREATE A TEMP EXTRACT P DATATYPE=CATALOG,RPTYPE=DATA * SUMMARIZE THE VOLUMES SUM FIELD=VOL * PRINT THE REPORT P DATATYPE=EXTRACT * NEGATE PREVIOUS COMMANDS CANCEL * PUNCH OUT THE VOLUMES, FILESEQ AND DSNAMES FOR COMPARISION PUNCH FDRLIB=MASK,ECHO P DATATYPE=EXTRACT,RPTYPE=SELPCH,SORT=NO /* //MASK DD * PUNCH MASK <VOL> <FILESEQ> <DSN> /* Please contact us at support if you have questions on using this or any other related questions. Joseph Butz Technical Support [email protected] Innovation Data Processing (973) 890-7300 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of af dc Sent: Monday, August 06, 2012 11:34 AM To: [email protected] Subject: How to report catalogued dsns on tape ? ICF Catalogs Hello, I want to report dsns cataloged on tape based only on ICF catalogs. I want to do that because I want to find any ICF catalogued entries that don't exist on our TAPE MGMT (we have BMC and RMM). I'm looking at DCOLLECT, FDREPORT and so far I can't get a way to do that. Now I'm searching the way to report DEVTYPE------X'78048081' on listcat..... Can you pls give me hint?? Many thx, A.Cecilio. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
