The interface to this is called "FAMS" however it is not GUPI, however most 
ISVs have an agreement/license/permission to use it.

As what you are trying to achieve is bulk processing of DASD and dataset 
information, I would advise that you use IBM DCOLLECT and then post-process the 
records returned.

It will have all the space usage info for PDS, PDSEs and more already 
calculated for you.

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf 
Of David S.
Sent: Thursday, May 26, 2016 1:20 PM
To: [email protected]
Subject: How to Calculate %USED for PDSE?

[Also posted to the Linked-In "Mainframe Assembler Professionals" group at
http://linkd.in/1VjEST7 ]
I wrote a program to create a report of DASD usage by scanning the UCB Table, 
then reading all the DSCBs from all the DASD Volumes for usage data and summing 
by DSN. The output is essentially the same as a TSO LMDINIT/LMDLIST sequence on 
each VOLSER, but runs a *lot* faster and is
*much* easier to manage. One of the items I calculate is %USED based on 
DS1LSTAR as a percentage of the sum of all the extent values from all the 
extents on all the allocated volumes. And for everything but PDSE, my results 
are the same as LMDLIST, which I understand, since PDSEs don't use DS1LSTAR.
Looking around the web, I see others coming up against this problem for at 
least the last 10 years, but none have any proposed low-level coding solution. 
There obviously *is* one, since facilities like ISPF 3.4 and FDREPORT do it.

My best idea so far (which so far also isn't working) is to call LISTDSI...
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ikj4a3a0/4.4.2 ...
using the IRXEXEC API:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/H1981605/APPENDIX1.F.1.2
 which the manuals suggest has some usage data for PDSEs I can then use to do 
the calculation.
►z/OS 2.1 and up even returns SYSUSEDPERCENT:
http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ikja300/ldsi.htm
Any better suggestions??
http://www.fdr.com/pdf/itsf.pdf - Innovation Data Processing has been doing it 
since at least 1992!
David Staudacher
co-mgr Mainframe Assembler Professionals group

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
[email protected] with the message: INFO IBM-MAIN
================================
Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ 
+1 877.328.2932 ■ +1 781.577.4321
Unsubscribe From Commercial Email – [email protected]
Manage Your Subscription Preferences - 
http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
================================

This communication and any attachments may contain confidential information of 
Rocket Software, Inc. All unauthorized use, disclosure or distribution is 
prohibited. If you are not the intended recipient, please notify Rocket 
Software immediately and destroy all copies of this communication. Thank you.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to