Re: Finding internally described physical files

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

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