File System Name for Member List

[jackd]

Hello everybody

how is called the system file or I can find the name of the members of a source file of a given library ?

Thanks You

[GLS400]

Re: File System Name for Member List

Hi Jackd:

To get a list of all of your files within a library key in on a command line:

                                                      
 DSPFD FILE(MYLIB/*ALL) TYPE(*BASATR) OUTPUT(*OUTFILE) FILEATR(*PF) OU
LE(QTEMP/JUNKO)

There is now a file in library qtemp with a file description for each file in your library. The file name is JUNKO.

Select the field ATFTYP containing 'S' that will give you a list of source files in your library.

For each source file found key on a command line:

                                                         
 DSPFD FILE(mylib/mysource) TYPE(*MBRLIST) OUTPUT(*OUTFILE) OUTFILE(QTEMP/JUNKO2) [COLOR="Blue"]OUTMBR(*FIRST *ADD) [/COLOR]

When the first source file completes run the second, third etc.

When all source files have been listed you will have a file called junko2 in qtemp containing the names of all your source code members.

By the way you can output to a printer as well

Best of Luck
GLS

[jackd]

Re: File System Name for Member List

ok thanks GLS400, but i have a problem, there is lot of library on my system.
how then I to know if a library belongs to the word généric *ALLUSR ?
Thanks for your response

[jamief]

Re: File System Name for Member List

*allusr libs are those created by you....the most common practice is to not
prefix your created libraries with the letter "Q" as IBM does.
so it may be safe in your situation to:

if %subst(mylib:1:1) <> 'Q';

endif;

[jackd]

Re: File System Name for Member List

thanks you very much Jamief

[GLS400]

Re: File System Name for Member List

Hi Jackd:

This code will show you all the "user" libraries on your system:

DSPOBJD OBJ[COLOR="Red"](*ALLUSR)[/COLOR] OBJTYPE(*LIB) OUTPUT(*OUTFILE) OUTFILE(QTEMP/JUNK)

So now at the end of all of this you should have junk, junko, and junko2 files in your qtemp.

Sounds like a lot of junk to me......


Best of luck
GLS

[jackd]

Re: File System Name for Member List

And is there a systeme file in QSYS who have the library of my liblist ? because i have
lot of Products in my system et and i have
SELECT count(*) FROM QADBXREF WHERE DBXTYP='S'
and substr(dbxlib , 1 , 1)<> 'Q' = 1340 SRCFILE !!!

[littlepd]

Re: File System Name for Member List

Select * from QSYS2.SYSTABLES

[jamief]

Re: File System Name for Member List

I have written a tool that finds source members by name it is here

http://www.code400.com/find.php

jamie