I am trying to identify all the volumes that are in DISNEW state in a partiular system, I ran Dcollect and the V record that I got dont have the SMS status info. Can someone suggets me any utility to find all the volume that are in DISNEw state?
And i use this dcollect data in ISMF , but it is giving me a detailed list, i dont want that , i only want volser and its status. Any other tool that u know can help to collect the data in clean format?
VOLSER: LABV01 STORGRP: SGLAB2
Last Updated: USER198 Date: 2004/01/20
Time Updated: 17:48
Status Information
(SMS status, MVS status, Confirmed SMS status)
SYSTEM 1: Full access enabled by SMS, Online, Full access enabled by S
SYSTEM 2: Full access enabled by SMS, Online, Full access enabled by S
SYSTEM 3: No access given, ??, No access given
SYSTEM 4: No access given, Online, No access given
SYSTEM 5: No access given, Online, No access given
There are multiple ways to get this information but it depends exactly want you need to know. When you say a System do you mean one LPAR in a Sysplex or across the whole Sysplex? The status can vary across LPAR's depending on how your Storgrps are defined in the SCDS.
Some options are:
Issue MVS command: D SMS,STORGRP(ALL),LISTVOL
That will list all storgrps and each volumes status into the Syslog.
ISMF option 6 list of volumes in a Storgrp will do it if you use the FILTER option in the subsequent list to select only DISNEW volumes. You can then use the LISTPRT command to put the list in a dataset. There's probably a Naviquest equivalent to do this in Batch as well.
FDREPORT can give a nice formatted report if you have FDRABR installed. This took about 3 mins to run on a 90Tb Sysplex.
//*----------------------------------------------------------
//* FDREPORT - VOLUME REPORT
//*----------------------------------------------------------
//FDREPORT EXEC PGM=FDREPORT,REGION=128M
//SYSPRINT DD SYSOUT=0
//SYSOUT DD SYSOUT=0
//SYSUDUMP DD SYSOUT=0
//ABRMAP DD SYSOUT=*
//ABRSUM DD SYSOUT=0
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSIN DD *
REPORT FIELD=(VLVOLSER,VLSMSVST,STORGRP,VLDEVTYP)
XS VLSMSVST.EQ.(DISABLEN)
SUM FIELD=(STORGRP,VLSMSVST,VLDEVTYP)
PRINT ONLINE,SORT=COMBINE,SUM=YES,DATATYPE=VOLDATA,RPTYPE=TABLE,
ENABLE=(FASTPATH,LARGEDISK,ONELINESUM),
SUMDEVICE=UNIQUE,BYTEFORMAT=MEGA,SUMBYTEF=MEGA
//*
//* OTHER OPTIONS. REMOVE ONLINE FROM PRINT STATEMENT
//* IF SELECTING BY STORGRP
* XS STORGRP=SG1,VLSMSVST.EQ.(QUIESCEA)
* XS STORGRP=SG2,VLSMSVST.EQ.(QUIESCEN)
* XS STORGRP=SG4,VLSMSVST.EQ.(DISABLEA)
* XS STORGRP=SG9,VLSMSVST.EQ.(DISABLEN)
* XS VLSMSVST.EQ.(NONE) * for listing NONSMS VOLUMES
* ENTER XHELP ALL in the SYSIN to get a printed manual
