Re: Display cross reference of file and programs

["BARB TURNER" <TURNERB@xxxxxxxxxx>]

I am also on V4R3M0 and the ANZPGM command is in QSYS.  

Barbara Turner
bturner@lionel.com


>>> "alan shore" <SHOREA@dime.com> 12/23/99 11:15AM >>>
What release are you on. I am on V4R3 and I attempted to prompt on this
command and ithe response was 
Command ANZPGM in library *LIBL not found.  
Any suggestions? Is this a command that has been created in-house?

>>> Jim Langston <jlangston@conexfreight.com> 12/23 10:47 AM >>>
I had misread the original question.  Have you taken a look
at ANZPGM?  With ANZPGM you give a library it will
analyze all the programs in and tell you every file that every
program uses.  You can specify up to 10 libraries to
analize at a time.

It produces two reports, one by programs, the other by
files.  Unfortunately it does not have an option for *OUTFILE
but you could use CPYSPLF.

The fields in the print file are:
Library (Library of the program)
Program (Program name)
Program Text Description (Self explanatory)
Object (Object the program in using)
Library (Object library)
Record Format (Record format program in using if applicable)
1=In, 2=Out, 4=Upd, 8=? (use of the file.  6 would be Output with
Update
   (3 would be Input and Output, etc..)

Regards,

Jim Langston

hartawan reksodiputro wrote:

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

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

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