Re: Display cross reference of file and programs

[philbrewer@xxxxxxxxxxxxxxxxx]

>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
+---