Re: Is there an alternative to FNDSTRPDM?

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

Hi Glenn,

> What I would prefer to do is to use my library list instead of
> *ALLUSR but I only want the user libraries in my library list.  Is
> there an API to determine if the library is a user or system library
> or do I have to hard-code the list of libraries found in the "Object
> (OBJ) - Help"?

QUSLOBJ can accept *USRLIBL for this reason...  though I don't know 
exactly what release that first appeared in, or if it's always been there?

There's also QUSRJOBI with format JOBI0700.  It'll give you a list of 
libraries for each part of the library list (once you figure out how to 
use the API, of course... it requires some pointer math.)

> 2.  I'm not sure what to do for *FILEs.  I'm using QUSLOBJ to list
> *ALL in <lib-parm> of type *FILE.  Is there an alternative to
> FNDSTRPDM?

I'd be tempted to write my own, which would be pretty easy to do.  In 
RPG it'd pretty much just be reading the flat record (without splitting 
it into fields) and running %scan() over it.  And do that in a loop. 
Pretty easy.

The Ropen(), Rreadn() and RClose() APIs would make it relatively easy to 
read the file without using F/I specs if that's part of your goal.

You could also use the grep tool that's in QShell.