Antwort: Finding internally described physical files

[martin.nageler@xxxxxxxxxxxxx]

oops,

 i mixed up the libs, the correct sql-statement is of course from
MyLib/dsppgmref (and not from qtemp/...)

sorry

martin


                                                                                
                                        
                    martin.nageler@bau                                          
                                        
                    holding.at                An:     RPG400-L@midrange.com     
                                        
                    Gesendet von:             Kopie:                            
                                        
                    owner-rpg400-l@mid        Thema:  Antwort: Finding 
internally described physical files              
                    range.com                                                   
                                        
                                                                                
                                        
                                                                                
                                        
                    19.01.2001 10:15                                            
                                        
                    Bitte antworten an                                          
                                        
                    RPG400-L                                                    
                                        
                                                                                
                                        
                                                                                
                                        




hi jim,

there's a possiblity not scanning the source but the pgm-objects.

1. DSPPGMREF PGM(MyPgmLib/*ALL) OUTPUT(*OUTFILE) OUTFILE(MyLib/DSPPGMREF)
2. SELECT * FROM qtemp/dsppgmref WHERE WHOBJT = 'F' and WHRFFN = 0


the dsppgmref creates an outfile including all files used within a program.
afterwards you can select all object-type (WHOBJT) = 'File' and number
fields = 0, because internal described file are shown with number fileds =
0.

HTH

martin



                    "Sneddon, Jim"

                    <JSneddon@AllstateTick        An:
"'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
                    eting.com>                    Kopie:

                    Gesendet von:                 Thema:  Finding
internally described physical files
                    owner-rpg400-l@midrang

                    e.com



                    19.01.2001 01:54

                    Bitte antworten an

                    RPG400-L







Does anyone know of an easy way to scan through a few hundred members in
QRPGLESRC and find the gems that have internally described physical files
in
them???



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