Re: Firectory/library size -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

There's an API QLIRLIBD (Retrieve library description) - here's some code you could use in CL. It is used in a loop based on DSPOBJD *ALL *LIB OUTPUT(*OUTFILE). It puts the library name, size, and description to your joblog.

dcl &rtnvar *char 104
dcl &rtnlen *char 4 x'00000068'
dcl &attrib *char 12 x'000000020000000500000006'
dcl &desc *char 50
dcl &size *dec (9 0)
dcl &mult *dec (9 0)
dcl &sizedec *dec (15 0)
dcl &sizechar *char 15
call qlirlibd (&rtnvar +
               &rtnlen +
               &odobnm +
               &attrib +
               x'0000000000000000')
chgvar &desc %sst(&rtnvar 29 50)
chgvar &size %bin(&rtnvar 93 4)
chgvar &mult %bin(&rtnvar 97 4)
chgvar &sizedec (&size * &mult)
chgvar &sizechar &sizedec
sndpgmmsg (&odobnm *cat ' ' *cat &sizechar +
                   *cat ' ' *cat &desc)

For the IFS, take a look at <http://search400.techtarget.com/tip/1,289483,sid3_gci894855,00.html?FromTaxonomy=%2Fpr%2F2f8> for V5R1 and V5R2.

There's also a kit from IBM called IFSTOOL - try <ftp://testcase.boulder.ibm.com/as400/fromibm/ApiSamples/>

HTH

Vern

At 01:31 PM 5/28/2003 -0400, you wrote:

How do I determine the directory/library size?  Using ops navigator takes a
long time to tally the info.

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.