Re: Finding internally described physical files

["James W. Kilgore" <qappdsn@xxxxxxxxxxxxx>]

Jim,

I originally sent this at 8 am and it didn't show by 3:30pm so I resent it.  I
know that David has been having a bit of trouble with his ISP.
Upon receiving the other responses on this list to your situation, I apologize 
for
not making this more difficult and labor intensive.  I know that the more effort
put forth, the more rewarding it becomes. ;-)

"James W. Kilgore" wrote:

> Jim,
>
> This may get you started (not properly spaced)
>
>     H
>     FQRPGLESRC    IP  F        108       DISK    INFDS(FILEINFO)
>     FQPRINT       O   F        132       PRINTER
>     DFILEINFO           DS
>     D  DBMEM$               129    138
>     IQRPGLESRC    NS    01    18 CF    34 CF
>     I                                            19    28 FNAME
>     I                                            29    29 USEAGE
>     I             NS    99
>     OQPRINT    H  101   1P
>     O         OR        OF
>     O                                    10 'MEMBER    '
>     O                                    25 'FILE NAME '
>     O          D  1     01
>     O                        DBMEM$    10
>     O                        FNAME     25
>     O                        USEAGE    28
>
> Before you run this do a OVRDBF MBR(*ALL)
>
> HTH
>
> "Sneddon, Jim" wrote:
>
> > 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
+---