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: [email protected]
1-301-240-3809
DFSORT/MVSontheweb at http://www.ibm.com/storage/dfsort/
IBM Mainframe Discussion List <[email protected]> wrote on
05/05/2014 10:32:03 AM:
> From: Rajesh Janakiraman <[email protected]>
> To: [email protected]
> 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 <[email protected]>
>
> 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 [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
