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 [email protected] with the message: INFO IBM-MAIN
