Re: How to find a source file which does not have the object

Hi, Baba:

On Thu, 3 Jun 1999, Baba Rahiman wrote:

> Iam trying to findout all source members which exist in the system and name 
> of the library is not known. The important point there is no object for 
> that member.
> How to search it?

One approach would be like this, but it'll take some time and some disk
storage to complete:

DSPOBJD *ALL/*ALL OBJTYPE(*ALL) OUTPUT(*OUTFILE) +
    OUTFILE(MYLIB/ALLOBJS)
DSPFD *ALL/QRPGSRC *MBRLIST FILEATR(*PF) OUTPUT(*OUTFILE) +
    OUTFILE(MYLIB/ALLSRC)
DSPFD *ALL/QCLSRC *MBRLIST FILEATR(*PF) OUTPUT(*OUTFILE) +
    OUTFILE(MYLIB/ALLSRC) MBROPT(*ADD)
  (repeat the last DSPFD until all source files processed)

Then, you could create a logical over MYLIB/ALLOBJS (which was created
above), keying on ODSRCF, ODSRCL, and ODSRCM.

Next, write a program that reads through MYLIB/ALLSRC and chains to your
new logical.  The key fields used for the CHAIN would be MLFILE, MLLIB and
MLNAME.  If CHAIN fails, print a line.  (I've assumed you'll use RPG, but
the concept is sound for any language.)

HTH
--  
Dennis Lovelady                    Simpsonville, SC
                                   Fayetteville, GA
mail: dennis@lovelady.com          dennis.e.lovelady@ac.com
URL:  http://lovelady.piedmont.net
ICQ:  5734860
--
"People are usually more convinced by reasons they discovered themselves
than by those found by others."
        - Blaise Pascal

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---