FDREPORT DFSMSrmm Tape Management Examples

Please review FDREPORT-Tape-Management-Reporting for details on the FDREPORT field names that are available when you are reporting on data in a Tape Management System database. All examples in this section are found in the JCL library installed with FDR. The member names are EX5448x.

Report on tapes with permanent retention example

Extract data from the DFSMSrmm tape management system and report on the tapes that have a permanent retention status (TVEXDATE=1999365). A second title line is printed showing the creating date and time of the extraction file.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * TITLE LINE='RMM EXTRACTION ON <TVXTDATE> AT <TVXTTIME>' EXTRACT PRODUCT=RMM,STORCLAS=TEMPDATA REPORT FIELDS=(TVVOLSER,TVF1DSN,TVEXDATE,TVCRDATE, TVLRDATE,TVSTATUS) SORT FIELDS=TVVOLSER XSELECT TVEXDATE=99.365 PRINT DATATYPE=RMMVOL,ENABLE=CHAREXPDATES, DATEFORMAT=MMDDYYYY /*

The generated report looks like:

RMM EXTRACTION ON 06/12/2020 AT 10.02.04

VOLSER FIRST FILE DATASET EXDATE CRDATE LRDATE VOLSTAT

------ ------------------ ---------- ---------- ---------- -------

BA0124 FDRABR.VIDPBK0.B197338A NEVER 12/04/1997 08/20/1998 MASTER

BA0125 FDRABR.VIDPLB5.B298008A NEVER 12/04/1997 08/20/1998 MASTER

BA0126 FDRABR.VIDPLB2.B298041A NEVER 12/04/1997 08/20/1998 MASTER

BA0127 FDRABR.VIDPBK0.B198064A NEVER 12/04/1997 08/20/1998 MASTER

BA0128 FDRABR.VIDPPM4.B198071A NEVER 12/04/1997 08/20/1998 MASTER

BA0129 FDRABR.VIDPBK0.B198085A NEVER 12/04/1997 09/16/1998 MASTER

BA1003 FDRABR.VIDPLB4.B286322A NEVER 03/27/1998 03/15/2006 MASTER

BA1004 FDRABR.VIDPLB1.B186316A NEVER 03/27/1998 03/13/2006 MASTER

BA1005 FDRABR.VIDPBK0.B198064A NEVER 03/27/1998 03/10/2006 MASTER

BA1006 FDRABR.VIDPLB7.B201206A NEVER 03/27/1998 03/10/2006 MASTER

BA1008 FDRABR.VSYSLB8.B103092A NEVER 03/27/1998 03/07/2006 MASTER

BA1010 FDRABR.VIDPLB4.B205180A NEVER 03/27/1998 03/03/2006 MASTER

B90002 FDRABR.VIDPPM3.B109014A NEVER 04/22/1997 12/18/2009 MASTER

B90003 FDRABR.VIDPLB4.B205180A NEVER 04/22/1997 09/18/2008 MASTER

…

Report on scratch tapes in the 900xxx range example

Extract data from DFSMSrmm tape management system and create a permanent extraction file that can be used after this execution of FDREPORT. From this extraction file, select all the tapes in “SCRATCH” status for all tape volumes that begin with “900”.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * EXTRACT PRODUCT=RMM,STORCLAS=PRODDATA, DISP=RETAIN,DSN=RMM.DATA REPORT FIELDS=(TVVOLSER,TVSTATUS,TVEXDATE, TVLWDATE,TVLRDATE,TVLRUN4B) XSELECT TVVOLSER=900*,TVSTATUS=SCRATCH PRINT DATATYPE=RMMVOL /*

The generated report looks like:

VOLSER VOLSTAT EXDATE LWRDATE LRDATE LUNI

------ ------- -------- -------- -------- ----

900001 SCRATCH 0000

900008 SCRATCH 2001.046 2001.051 03A3

900021 SCRATCH 2000.094 2000.094 03A1

Report of tapes created on specific tape drive example

Report on data previously extracted from the DFSMSrmm tape management system. From the extracted file, select all the tapes created on a specific tape drive during a specific date range. This report can be useful if tape errors were detected on a specific drive and you want to identify all the tapes that were created on that drive during that time frame.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //RMMXTR DD DISP=SHR,DSN=RMM.DATA //SYSIN DD * XSELECT TVLRUNIT=03A0,TVLRDATE>=2012001,TVLRDATE<=2012007 REPORT FIELDS=(TVLRUN4B,TVVOLSER,TVLWDATE,TVLRDATE) PRINT DATATYPE=RMMVOL /*

The generated report looks like:

LUNI VOLSER LWRDAT LRDATE

---- ------ -------- --------

03A0 BU1043 2012.006 2012.006

03A0 BU1050 2012.006 2012.006

03A0 BU1081 2012.005 2012.005

03A0 BU1105 2012.006 2012.006

03A0 BU1113 2012.006 2012.006

03A0 BU1140 2012.005 2012.005

03A0 BU1142 2012.005 2012.005

03A0 BU1149 2012.005 2012.005

03A0 BU1155 2012.006 2012.006

03A0 BU1194 2012.006 2012.006

03A0 BU1199 2012.006 2012.006

Report on tapes for multiple owners grouped by owner example

Extract data from the DFSMSrmm tape management system selecting the tapes owned by users starting with “USER” and “QA”, displaying the creation date, last-used date, and the home location for each volume. The report is sorted by creation date, from oldest to newest.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSIN DD * TITLE LINE='VOLUMES OWNED BY <TVOWNER> SORTED BY CREATION DATE' EXTRACT PRODUCT=RMM XSELECT TVOWNER=(USER*,QA*) REPORT FIELDS=(TVVOLSER,TVOWNER,TVCRDATE,TVLRDATE,TVHOMLOC) SORT FIELDS=(TVOWNER,TVCRDATE),SEQUENCE=(A,A),BREAK=(SEJ,NO) PRINT DATATYPE=RMMVOL /*

The generated report looks like:

VOLUMES OWNED BY QAUSR01 SORTED BY CREATION DATE

VOLSER OWNER CRDATE LRDATE HOMELOC

------ -------- -------- -------- --------

003168 QAUSR01 1999.307 2011.088 SHELF

003210 QAUSR01 2001.361 2011.227 SHELF

CCR004 QAUSR01 2002.227 2012.135 SHELF

…

VOLUMES OWNED BY USER02 SORTED BY CREATION DATE

VOLSER OWNER CRDATE LRDATE HOMELOC

------ -------- -------- -------- --------

CCR039 USER02 2002.227 2012.146 SHELF

EE0496 USER02 2008.311 DDUPFATS

E10008 USER02 2008.311 2012.030 NDUPFDR

…

VOLUMES OWNED BY USER03 SORTED BY CREATION DATE

VOLSER OWNER CRDATE LRDATE HOMELOC

------ -------- -------- -------- --------

001028 USER03 1994.269 2011.164 SHELF

E10157 USER03 2008.311 2011.304 NDUPFDR

…

Report on tapes for a single owner last used within a range of dates example

Extract data from the DFSMSrmm tape management system selecting the tapes owned by “TEST02” that were last used in 2011. The creation date, last-used date, and the home location are displayed for each volume. The report is sorted by last-used date, from oldest to newest.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSIN DD * EXTRACT PRODUCT=RMM,STORCLAS=TEMPDATA XSELECT TVOWNER=TEST02,TVLRDATE.GE.2011.001, TVLRDATE.LE.2011.365 REPORT FIELDS=(TVVOLSER,TVLRDATE,TVCRDATE,TVOWNER,TVHOMLOC) SORT FIELDS=TVLRDATE,SEQUENCE=A PRINT DATATYPE=RMMVOL /*

The generated report looks like:

VOLSER LRDATE CRDATE OWNER HOMELOC

------ -------- -------- -------- --------

E10049 2011.220 2008.311 TEST02 NDUPFDR

003210 2011.227 2001.361 TEST02 SHELF

E10148 2011.243 2008.311 TEST02 NDUPFDR

CCR120 2011.245 2002.289 TEST02 SHELF

…

Extend the Expiration for Selected Tape Volumes that Expire in a Specific Date Range Example

Extract data from the DFSMSrmm tape management system saving the file for use after the FDREPORT run by specifying DISP=RETAIN. From this extract file, select the tapes owned by “TEST3” that expire in January 2020. Submit the RMM command via a TSO batch job that changes the expiration dates on these volumes to December 31, 2020. The RMMFDR DD statement contains the job that is created by the PUNCH statement and is submitted to the internal reader.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //SYSPUNCH DD SYSOUT=(A,INTRDR) //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * EXTRACT PRODUCT=RMM,STORCLAS=TEMPDATA, DISP=RETAIN,DSN=RMM.DATA XSELECT TVOWNER=TEST3,TVEXDATE.GE.2020.001, TVEXDATE.LE.2020.031 PUNCH FDRLIB=MASK,ECHO PRINT RPTYPE=SELPCH,DATATYPE=RMMVOL, SORT=NO,DISABLE=DUPDSNCH REPORT FIELDS=(TVVOLSER,TVOWNER,TVEXDATE) PRINT DATATYPE=RMMVOL /* //MASK DD DATA,DLM=$$ //TEST3RMM JOB (J),'RMM BATCH CMDS',CLASS=M,MSGCLASS=X, // NOTIFY=&SYSUID,TYPRUN=HOLD //* //* BATCH JOB TO ISSUE RMM COMMANDS //TSOBATCH EXEC PGM=IKJEFT01,REGION=0M,TIME=30 //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * )ENDPREFIX RMM CHANGEVOLUME <TVVOLSER> EXPDT(2020/365) )SUFFIX /* $$

The generated report looks like:

VOLSER OWNER EXPDATE

------ -------- --------

CCR033 TEST3 2020.030

CCR049 TEST3 2020.020

E10014 TEST3 2020.001

E10034 TEST3 2020.026

The output job that is punched to the SYSPUNCH DD Statement looks like:

//TEST3RMM JOB (J),'RMM BATCH CMDS',CLASS=M,MSGCLASS=X, // NOTIFY=&SYSUID,TYPRUN=HOLD //* //* BATCH JOB TO ISSUE RMM COMMANDS //TSOBATCH EXEC PGM=IKJEFT01,REGION=0M,TIME=30 //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * RMM CHANGEVOLUME CCR033 EXPDT(2020/365) RMM CHANGEVOLUME CCR049 EXPDT(2020/365) RMM CHANGEVOLUME E10014 EXPDT(2020/365) RMM CHANGEVOLUME E10034 EXPDT(2020/365) /*

Report on tape files with permanent retention example

Extract data from the DFSMSrmm tape management system and report on tape data sets created by jobs with names beginning with “FDR” and have a permanent retention status (EXPDATE=1999365). The report groups the data sets by owner.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * EXTRACT PRODUCT=RMM,STORCLAS=TEMPDATA XSELECT TDEXDATE=1999365,TDCRJOB=FDR* SORT FIELDS=(TDOWNER,TDVOLSER),BREAK=SP REPORT FIELDS=(TDVOLSER,TDDSNAME,TDCRJOB,TDOWNER, TDCRPGM,TDCRDATE,TDLUPGM,TDLRDATE) PRINT DATATYPE=RMMDSN /*

The generated report looks like:

VOLSER DATA SET NAME CREATJOB OWNER CREATPGM CRDATE LASTUPGM LRDATE

------ ------------- -------- -------- -------- -------- -------- --------

003104 IDP.SCL00A.D05021 FDR11 USR FDR 2005.021 FDR 2005.021

003104 IDP.SCL00B.D05021 FDR11 USR FDR 2005.021 FDR 2005.021

003104 IDP.SCL00C.D05021 FDR11 USR FDR 2005.021 FDR 2005.021

003104 IDP.SCL00D.D05021 FDR11 USR FDR 2005.021 FDR 2005.021

003104 IDP.SCL00E.D05021 FDR11 USR FDR 2005.021 FDR 2005.021

003104 IDP.SCL00F.D05021 FDR11 USR FDR 2005.021 FDR 2005.021

003176 SCR084.ICF10KD FDRTCPYH USR FDRTCOPY 2009.063 AUTHOR 2009.113

…

ST0069 USR.VRVA7D1.BKUP FDR22 USR0 FDR 2010.259 FDR 2012.180

ST0246 USR.D33903.BACKUP FDRTCPYK USR0 FDRTCOPY 2009.174 AUTHOR 2012.189

ST0246 USR.CPKV0578 FDRTCPYK USR0 FDRTCOPY 2009.174 FDRTCOPY 2009.174

ST0246 USR.P510400.BKUP FDRTCPYK USR0 FDRTCOPY 2009.174 FDRDSF 2012.189

ST0246 USR.VSCR082.VSAM2A FDRTCPYK USR0 FDRTCOPY 2009.173 AUTHOR 2012.191

ST0246 CPKV0170.BKUP FDRTCPYK USR0 FDRTCOPY 2009.173 AUTHOR 2012.189

ST0246 SCR084.ICF10KD FDRTCPYK USR0 FDRTCOPY 2009.173 FDR 2012.206

Report on large files created by selected programs with a specific expiration period example

Extract data from the DFSMSrmm tape management system and report on data sets larger than 100MB created by programs with names beginning with “FAT” and expire in 2020. The report sorts the data sets by expiration date, then by size showing the last used date for the data set.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * EXTRACT PRODUCT=RMM,STORCLAS=TEMPDATA XSELECT TDCRPGM=FAT*,TDFILESZ>100M, TDEXDATE>2020001,TDEXDATE<2020365 SORT FIELDS=(TDEXDATE,TDFILESZ) REPORT FIELDS=(TDEXDATE,TDFILESZ,TDVOLSER,TDCRDATE, TDCRPGM,TDLUPGM,TDLRDATE,TDDSNAME) PRINT DATATYPE=RMMDSN /*

The generated report looks like:

EXPDAT FILE SIZE VOLSER CRDATE CREATPGM LASTUPGM LRDATE DATA SET NAME

-------- ----------- ------ -------- -------- -------- -------- -------------

2020.061 223346.688K 003431 2011.061 FATAR FATAR 2011.061 USR.MAGSTAR.F1

2020.061 223346.688K 003431 2011.061 FATAR FATAR 2011.061 USR.MAGSTAR.F10

2020.061 223346.688K 003431 2011.061 FATAR FATAR 2011.061 USR.MAGSTAR.F11

2020.151 922746.880K 003482 2012.144 FATAR FATAR 2012.144 USR.RMM.MVOLFIL2

2020.151 2476.737M 003045 2012.144 FATAR FATAR 2012.145 USR.RMM.MVOLFIL2

2020.155 917504.000K E70431 2012.153 FATSCOPY FATSCOPY 2012.153 USR.RMM.MVOLFIL2

2020.159 108003.328K E70446 2012.157 FATSCOPY FATAR 2012.157 USR.RMM.MVOLFIL2

…

Report all tape files with VRS name of “ABEND”

Extract data from the DFSMSrmm tape management system and report all data sets residing on non-scratch volumes that have a VRS name of “ABEND”.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * EXTRACT PRODUCT=RMM,STORCLAS=TEMPDATA XSELECT TDMVNAME.EQ.ABEND,TDSTATUS.NE.SCRATCH SORT FIELDS=TDCRDATE REPORT FIELDS=(TDDSNAME,TDVOLSER,TDCRPGM,TDCRDATE, TDLUJOB,TDLRDATE,TDOWNER,TDSTATUS) PRINT DATATYPE=RMMDSN /*

The generated report looks like:

DATA SET NAME VOLSER CREATPGM CRDATE LASTUJOB LRDATE OWNER VOLSTAT

------------- ------ -------- -------- -------- -------- ------- -------

USR.ABEND.DATASET 001149 IEBGENER 2001.004 USRANAL9 2002.318 USR2 MASTER

FDRABR.VIDPBK0.C3028500 M21002 FDRTSEL 2002.280 MVAULTC 2002.280 DMAINT MASTER

USR1.TAPEALLC.MULTFILE.A06534 003078 2004.071 2004.071 USR2 MASTER

USR.TSTPERM3.DATASET CCR093 FATSCOPY 2006.166 TST5057A 2011.192 USR1 MASTER

USR.STK.CPK.TEST.BACKUP 001086 FATAR 2008.052 USRCOPY1 2008.052 USR1 USER

USR.UPSTREAM.TAPE64K.TESTTAPE CCR089 FATSCOPY 2008.336 USRANLY1 2011.214 USR2 MASTER

FATTESTS.FCRBLK04.VB.FILE2 CCR067 FATSCOPY 2010.237 USRIMPRT 2011.165 OPER MASTER

FATTESTS.FCRBLK04.VB.FILE2 CCR074 FATSCOPY 2010.237 USRIMPRT 2011.165 OPER MASTER

FATTESTS.FCRBLK04.VB.FILE2 CCR077 FATSCOPY 2010.237 TST5057A 2011.189 OPER MASTER

USR.DFDSS.BACKUP 003380 FATSCOPY 2010.291 USRCOPY1 2010.291 USR1 MASTER

USR.WHACKED.DATASET 001052 FATSCOPY 2010.313 USRIMPRT 2011.124 USR2 MASTER

USR.DFDSS.BACKUP 003109 FATSCOPY 2011.020 USRZ4920 2011.020 USR2 MASTER

PRD.THREEVOL CCR013 FATSCOPY 2011.227 USR237A 2012.135 PRD MASTER

USR.DUMP03 E10146 FATSCOPY 2011.304 USRPROB2 2011.304 USR1 MASTER

USR.DUMP03 E10132 FATSCOPY 2011.318 USRPROB2 2011.318 USR1 MASTER

Report on tape files last used by DFSMShsm

Extract data from the DFSMSrmm tape management system and report on non-scratch data sets that were created by DFSMShsm.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * EXTRACT PRODUCT=RMM,STORCLAS=TEMPDATA XSELECT TDCRPGM=ARC*,TDSTATUS.NE.SCRATCH SORT FIELDS=TDLRDATE REPORT FIELDS=(TDDSNAME,TDVOLSER,TDCRPGM,TDLRDATE,TDOWNER) PRINT DATATYPE=RMMDSN /*

The generated report looks like:

DATA SET NAME VOLSER CREATPGM LRDATE OWNER

------------- ------ -------- -------- --------

SYSPSMS.PERFTEST.C.C01V0001 003106 ARCWCTL 2000.020 HSMABR

SYSPSMS.PERFTEST.D.C01V0001 003106 ARCWCTL 2000.020 HSMABR

SYSPSMS.PERFTEST.I.C01V0001 003106 ARCWCTL 2000.020 HSMABR

SYSPSMS.PERFTEST.O.C01V0001 003106 ARCWCTL 2000.020 HSMABR

HSM.BACKTAPE.DATASET 003154 ARCCTL 2000.047 RAM

HSM.DMP.SUNDAY.VBMRK01.D00055.T300321 003159 ARCCTL 2000.055 RAM

HSM.DMP.SUNDAY.VBMRK01.D00060.T013410 003145 ARCCTL 2000.060 RAM

HSM.BACKTAPE.DATASET 003033 ARCCTL 2000.061 RAM

BMRK0.TEST6.C.C01V0003 003230 ARCWCTL 2005.300 SYSTASK

BMRK0.TEST6.D.C01V0003 003230 ARCWCTL 2005.300 SYSTASK

BMRK0.TEST6.I.C01V0003 003230 ARCWCTL 2005.300 SYSTASK

BMRK0.TEST6.O.C01V0003 003230 ARCWCTL 2005.300 SYSTASK

HSM.BACKTAPE.DATASET 003162 ARCCTL 2010.018 OMVSKERN

HSM.BACKTAPE.DATASET 003367 ARCCTL 2010.018 OMVSKERN

HSM.BACKTAPE.DATASET 003225 ARCCTL 2010.049 OMVSKERN

Produce an DFSMSrmm tape inventory

Extract data from the DFSMSrmm tape management system and print an inventory of all the tapes sorted by tape volume serial number.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * EXTRACT PRODUCT=RMM,STORCLAS=TEMPDATA TITLE LINE=’DFSMSRMM TAPE INVENTORY’ SORT FIELDS=TVVOLSER REPORT FIELDS=(TVVOLSER,TVF1DSN,TVCRJOB,TVVOLSEQ,TVCRDATE, TVEXDATE,TVRTDATE,TVSTATUS) PRINT DATATYPE=RMMVOL /*

The generated report looks like:

DFSMSRMM TAPE INVENTORY

VOLSER FIRST FILE DATASET CREATJOB VSQ CRDATE EXPDAT RTDATE VOLSTAT

------ ------------------ -------- --- -------- -------- -------- -------

I00000 BACKUP.VRMG005.C1033704 FDRTSOIN 2 2003.297 2012.250 SCRATCH

I00001 BACKUP.VT34881.B111176A SS040STK 11 2003.300 2012.094 2013.123 MASTER

I00002 BACKUP.VIMTS09.C2122100 FDRIMSBK 2 2003.297 2012.247 SCRATCH

I00003 BACKUP.VT34938.B111302A SS040STK 2 2003.301 2012.144 2013.173 MASTER

I00004 BACKUP.VT34894.B111142A SS040STK 1 2003.301 2012.088 2013.117 MASTER

I00005 BACKUP.VPR0019.B110326A SS040SIM 7 2003.301 2011.066 MASTER

I00006 PROD.XPTR.ARC70.ATL.R06350 XPT010D 1 2003.301 2011.067 MASTER

I00007 BACKUP.VRMG036.B110328A SS040SIM 8 2003.301 2011.066 MASTER

I00008 BACKUP.VT34938.B112168B FDRAGUBK 1 2003.301 2012.234 2013.202 MASTER

I00009 BACKUP.VARC536.C1029800 FDRARCBK 3 2008.335 2012.140 SCRATCH

…

Use DFSMSrmm utility to create an extract file

Create a DFSMSrmm extract file to be used by FDREPORT using the DFSMSrmm utilities instead of using the EXTRACT command. PARM=’RPTEXT,DATEFORM(J)’ must be coded to get the data in the format that FDREPORT uses. The DFSMSrmm utility requires pre-allocation of the data sets for the MESSAGE and XREPTEXT DD statements. Please see the DFSMSrmm documentation for further information.

Tip

We recommend the use of the EXTRACT command to simplify the need of pre-allocating this file.

//EXTRACT EXEC PGM=EDGHSKP,PARM=’RPTEXT,DATEFORM(J)’ //SYSPRINT DD SYSOUT=* //MESSAGE DD DISP=SHR,DSN=your.dfsmsrmm.messages.file //XREPTEXT DD DISP=SHR,DSN=your.dfsmsrmm.extract.file

Report on tape data sets on all volumes with volume expiration dates after today

Select all the volumes with volume expiration dates in the next 31 days. Display all the data sets on those tape volumes and display their creation job, last used job, last used date, expiration date, and the rest.

//FDREPORT EXEC PGM=FDREPORT,REGION=0M //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSPUNCH DD UNIT=VIO,SPACE=(CYL,(10,10)),DSN=&&SYSPUNCH //SYSIN DD * DEFAULT SORTALLOC=(SORTWORK,CYL), WORKDDNAMES=5,WORKSPACE=750,WORKSTORCLAS=TEMPDATA, SYSUTSPACE=500,SYSUTSTORCLAS=TEMPDATA, IFSELECTERROR=BYPASS,IFKEYWORDERROR=BYPASS, ENABLE=(ALLFILTER,ONELINESUM),DISABLE=SELTERR, DATEFORMAT=MMDDYYYY EXTRACT PRODUCT=RMM,STORCLAS=TEMPDATA,DISP=DELETE XSELECT TVEXDAYS>0,TVEXDAYS<31 PUNCH FDRLIB=MASK,ECHO PRINT DATATYPE=RMMVOL,RPTYPE=SELPCH,DISABLE=DUPDSNCHECK CANCEL TITLE LINE=’DATA SETS ON VOLS THAT EXPIRE WITHIN A MONTH’ EXEC FDRLIB=SYSPUNCH,ECHO,MAXEXECUTE=32766 REPORT FIELDS=(TDVOLSER,TDVOLSEQ,TDLABLNO,TDDSNAME, TDCRJOB,TDLUJOB,TDLRDATE,TDEXDATE,TDSTATUS) SORT FIELDS=(TDVOLSER,TDVOLSEQ,TDLABLNO,TDDSNAME) SUMMARY FIELDS=TDVOLSER PRINT DATATYPE=RMMDSN /* //MASK DD * )DUPCHECK XSELECT TDVOLSER=<TVVOLSER> )ENDUPCHECK /*

The generated report looks like:

DATA SETS ON VOLS THAT EXPIRE WITHIN A MONTH

VOLSER VSQ LBLNO DATA SET NAME CREATJOB LASTUJOB LRDATE EXPDAT VOLSTAT

------ --- ----- ------------- -------- -------- ---------- ---------- -------

B90007 1 1 FDRABR.VIDPBK0.B109364A VARCHIVE VARCHIVE 09/12/2012 09/19/2012 MASTER

B90007 1 2 FDRABR.VSYSLB2.B110006A VARCHIVE VARCHIVE 09/12/2012 09/19/2012 MASTER

B90007 1 3 FDRABR.VSYTS38.B110027A VARCHIVE VARCHIVE 09/12/2012 09/19/2012 MASTER

B90007 1 4 FDRABR.VSYTS18.B110027A VARCHIVE VARCHIVE 09/12/2012 09/19/2012 MASTER

B90007 1 5 FDRABR.VSYSLB5.B110034A VARCHIVE VARCHIVE 09/12/2012 09/19/2012 MASTER

…

 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*