On Fri, 18 Apr 2014 14:36:49 +0530, mf db wrote: >Hello, > >Are there freeware which can help me to calculates the RBA value and gives >the VSAM dataset space utilization based on it. > >Peter >
IDCAMS DCOLLECT + reporting tool (SAS/MXG) or DFSORT: //* //STEP1 EXEC PGM=IDCAMS //* //SYSPRINT DD SYSOUT=* //DCOLLECT DD DISP=(MOD,PASS,DELETE), // DSN=&&DCOLLECT, // SPACE=(TRK,(30,30),RLSE), // LRECL=27994,RECFM=VB,BLKSIZE=0 //SYSIN DD * DCOLLECT STORAGEGROUP(sgname #1) OUTFILE(DCOLLECT) DCOLLECT STORAGEGROUP(sgname #2) OUTFILE(DCOLLECT) /* //* //STEP2 EXEC PGM=SORT //* //SYSOUT DD SYSOUT=* //SORTIN DD DISP=(OLD,DELETE), // DSN=&&DCOLLECT //SORTOUT DD SYSOUT=* //SYSIN DD * INCLUDE COND=(9,1,CH,EQ,C'A',&, * RECORD TYPE 'A' 118,1,BI,EQ,B'...0....') * DCANSTAT OFF INREC BUILD=(1,4, * RDW 29,44, * DCADSNAM 117,1,CHANGE=(4, * DCAFLAG1 B'1.......',C'KSDS', B'.1......',C'ESDS', B'..1.....',C'RRDS', B'...1....',C'LDS ', B'....1...',C'KRDS', B'.....1..',C'AIX '), NOMATCH=(C'????'), 117,1,CHANGE=(4, B'......1.',C'DATA', B'.......1',C'INDX'), NOMATCH=(C'????'), 118,1,CHANGE=(1, * DCAFLAG2 B'....1...',C'1'), NOMATCH=(C'0'), 121,4, * DCAHURBA 125,4, * DCAHARBA 169,8, * DCAHURBC 177,8) * DCAHARBC SORT FIELDS=(5,44,CH,A) * DCADSNAM OUTFIL IFTHEN=(WHEN=(57,1,CH,EQ,C'0'), BUILD=(1,4, 5,44,X, 49,4,X, 53,4,X, ((58,4,BI,MUL,+100),DIV,62,4,BI),M10,LENGTH=3,C'% ', 58,4,HEX,9X, 62,4,HEX)), IFTHEN=(WHEN=(57,1,CH,EQ,C'1'), BUILD=(1,4, 5,44,X, 49,4,X, 53,4,X, ((66,8,BI,MUL,+100),DIV,74,8,BI),M10,LENGTH=3,C'% ', 66,8,HEX,X, 74,8,HEX)), HEADER2=(1:C'DSNAME',46:C'TYPE COMP USED HIURBA',78:C'HIARBA') /* Norbert Friemel ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN