Re: Display cross reference of file and programs

["hartawan reksodiputro" <jeanhartawan@xxxxxxxxxxx>]

Hi everybody, Happy Holiday!

First of all Lamaj, that PF has to be an object 1st otherwise
DSPPGMREF won't work properly. I usually use that CL command also.
It works fine, but the relation only from PGM to FILE objects.

But what if I want to know the Object Usage of *FILE/*PGM type, attr.
PF/LF/RPG/CL, hierarchically. Once, I had a chance to used FLASH
utility and they have this customized command WRKOBJUSG. So, if I
want to keep track on - lets say - my 1 module, within one
application, how can I do that?


>From: philbrewer@johnson-tiles.com
>
>
> >Is there a way to display list of programs using a
> >physical file?
>
> >Thanks
>
> >Lamaj
>
>The command DSPPGMREF comes close to doing what you want.
>I use this in a CL (see below), the queries print the info off in a
>readable form.
>I'm sure someone must have written a utility to do this that can be
>downloaded from somewhere.
>
>
>PGM        PARM(&FILE &LIB &PGM &PLIB)
>DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
>DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
>DCL        VAR(&PGM) TYPE(*CHAR) LEN(10)
>DCL        VAR(&PLIB) TYPE(*CHAR) LEN(10)
>
>DSPDBR     FILE(&LIB/&FILE) OUTPUT(*OUTFILE) +
>              OUTFILE(BRPHIL/DBRPF)
>
>DSPPGMREF  PGM(&PLIB/&PGM) OUTPUT(*OUTFILE) +
>              OUTFILE(BRPHIL/PGMPF)
>
>RUNQRY     QRY(BRPHIL/PRTPGMREF)
>RUNQRY     QRY(BRPHIL/PRTPGMREF2)
>
>ENDPGM
>
>
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: 
>david@midrange.com
>+---

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com

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