RE: Count of objects in a library.

["Graap, Kenneth" <keg@xxxxxxxxxxxxx>]

A very simple query could be used to count ....

For example: 

DSPOBJD OBJ(KENNETH/*ALL) 
        OBJTYPE(*FILE) 
        OUTPUT(*OUTFILE) 
        OUTFILE(QTEMP/COUNT)

This will create a file named COUNT with record for each *FILE object that is 
contained in library KENNETH.

Then start SQL:  STRSQL

Execute this SQL command:  select count(*) from count   

The results:

                                                          Display Data      
                                                                            
Position to line  . . . . .                                                 
....+....1....                                                              
  COUNT ( * )                                                               
          152                                                               
********  End of data  ********                                             

Kenneth                                                                         
                                                       

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Scott Klement
Sent: Thursday, July 13, 2006 3:22 PM
To: Midrange Systems Technical Discussion
Subject: Re: Count of objects in a library.



Use the DSPOBJD command to write all objects in a library to an *OUTFILE. 
You can then run queries on the outfile.

---
Scott Klement  http://www.scottklement.com

On Thu, 13 Jul 2006, Jake M wrote:

> Hello Pro's;
> Is it possible to get a count of all the objects in a library? The objects
> that I want a count on are :
>
> RPGLE
> CLLE
> DSPF
> PF
> LF
> OVL
>
> I do not know if there is a command which will give me a count. Any help
> would be much appreciated.
>
> Thanks in advance,
>
> Jake.
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.