[Fwd: Finding internally described physical files]

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