thank You David...
Will try tomorrow..
On Mon, May 5, 2014 at 9:50 PM, David Betten <bet...@us.ibm.com> wrote:
> Here's some JCL I use to run DCOLLECT and then format the output with
> DFSORT ICETOOL. You can look at the DFSMS AMS for Catalogs publication to
> see the entire layout of the DCOLLECT output data set. Also note that for
> my ICETOOL statements, I have to account for the 4 byte RDW at the
> beginning of each record. For example the DCDDSNAM field starts at byte
> 25 but my ICETOOL statement specifies byte 29.
>
> //STEP1 EXEC PGM=IDCAMS
> //SYSPRINT DD SYSOUT=*
> //OUTDS DD DSN=&&DCOLLECT,UNIT=SYSDA,DISP=(,PASS),
> // DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=0,
> // SPACE=(CYL,(50,50),RLSE)
> //SYSIN DD *
> DCOLLECT OFILE(OUTDS) STORAGEGROUP(SGDBV8)
> /*
> //*************************************************
> //REPORT1 EXEC PGM=ICETOOL
> //TOOLMSG DD SYSOUT=*
> //DFSMSG DD SYSOUT=*
> //DSNRPT DD SYSOUT=*
> //VOLRPT DD SYSOUT=*
> //DCOLLIN DD DISP=SHR,DSN=&&DCOLLECT
> //DSNREC DD DSN=&&DSNRECS,UNIT=SYSDA,DISP=(,PASS),
> // DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=0,
> // SPACE=(CYL,(50,50),RLSE)
> //VOLREC DD DSN=&&VOLRECS,UNIT=SYSDA,DISP=(,PASS),
> // DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=0,
> // SPACE=(CYL,(50,50),RLSE)
> //TOOLIN DD *
> SORT FROM(DCOLLIN) TO(DSNREC) USING(SRT1)
> DISPLAY FROM(DSNREC) LIST(DSNRPT) -
> TITLE('DCOLLECT DSN REPORT') -
> HEADER('DSN') ON(29,44,CH) -
> HEADER('VOLSER') ON(83,6,CH) -
> HEADER('VOLSEQ') ON(127,2,BI,A0) -
> HEADER('EXTENTS') ON(82,1,BI,A0) -
> HEADER('USEDSPC') ON(93,4,FI,A0) -
> HEADER('ALLOCSPC') ON(97,4,FI,A0) -
> HEADER('CREATEDT') ON(109,4,PD) -
> HEADER('EXPIREDT') ON(113,4,PD) -
> HEADER('LASTRFDT') ON(117,4,PD)
> SORT FROM(DCOLLIN) TO(VOLREC) USING(SRT2)
> DISPLAY FROM(VOLREC) LIST(VOLRPT) -
> TITLE('DCOLLECT VOL REPORT') -
> HEADER('VOLSER') ON(29,6,CH) -
> HEADER('DEVNUM') ON(81,2,HEX) -
> HEADER('PCTFREE') ON(40,1,BI,A0) -
> HEADER('FREESPC') ON(41,4,BI,A0) -
> HEADER('ALOCSPC') ON(45,4,BI,A0) -
> HEADER('CAPACITY') ON(49,4,BI,A0) -
> HEADER('LGEXT') ON(57,4,BI,A0) -
> HEADER('FREEXTS') ON(61,4,BI,A0)
> /*
> //SRT1CNTL DD *
> * SORT BY DSN AND VOLSEQ
> SORT FIELDS=(29,44,CH,A,127,2,BI,A)
> * INCLUDE ONLY ACTIVE DATA SET RECORDS
> INCLUDE COND=(9,1,CH,EQ,C'D')
> OPTION VLSHRT
> /*
> //SRT2CNTL DD *
> * SORT BY VOLSER
> SORT FIELDS=(83,6,CH,A)
> * INCLUDE ONLY VOLUME RECORDS
> INCLUDE COND=(9,1,CH,EQ,C'V')
> OPTION VLSHRT
> /*
>
>
> Have a nice day,
> Dave Betten
> DFSMS Performance Engineer
> IBM Corporation
> email: bet...@us.ibm.com
> 1-301-240-3809
> DFSORT/MVSontheweb at http://www.ibm.com/storage/dfsort/
>
> IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> wrote on
> 05/05/2014 10:32:03 AM:
>
> > From: Rajesh Janakiraman <raj.janaki...@gmail.com>
> > To: IBM-MAIN@listserv.ua.edu
> > Date: 05/05/2014 10:32 AM
> > Subject: To Generate Dataset Report for a Storage Group ( TSO Users
> > Storage Group)
> > Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu>
> >
> > Hi Mates,
> >
> > Please help me to generate a Dataset Report for a particular storage
> group.
> >
> > Storage Group is PUSRSG and it contains all TSO users.
> >
> > Kindly do the needful.
> >
> > ----------------------------------------------------------------------
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
Regards,
*Rajesh Janakiraman*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
