You should be able to do a LISTCAT, capture the output in Rexx, parse the
space in "CKD" format, and convert it to approximate MB using Rexx.
Here's some code that does some of the above for a starting point:
/* Issue the LISTCAT trapping the output */
Call OUTTRAP "ListCat.", "*"
"LISTCAT LEVEL(" || userid ||".SVCFILES) CREATION(1)"
Call OUTTRAP("OFF")
If RC <> 0 Then Do
Say "LISTCAT Failed, RC =" RC
Say ListCat.1
Exit RC
End /* End bad RC */
/* Parse the output and Delete the files */
count = 0
Do i = 1 To ListCat.0
Parse Var ListCat.i key . dsn .
If key = "NONVSAM" Then Do
"DELETE '" || dsn || "'"
If RC = 0 Then count = count + 1
End /* End found NONVSAM */
End /* End loop on stem output */
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Lester, Bob
Sent: Tuesday, April 11, 2006 12:19 PM
To: [email protected]
Subject: Space in MB?
Hi All,
I have a need to produce a listing (via batch) of MVS datasets by
dataset pattern. I'd like 1 line per dsname with the space used expressed
in GB instead of cylinders,tracks,blocks, etc.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
