Re: ILERPG SOURCE CREATION DATE IN A FILE

try something like this.

 DSPFD FILE(MYLIB/QRPGLESRC) TYPE(*MBRLIST) OUTPUT(*OUTFILE)
OUTFILE(MYLIB/MYDSPFD)

You would have to then cross reference the program to the source. QBNLPGMI
and QCLRPGMI apis to accomplish this.

good luck,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040



                    Albert Lopez
                    <alblopezc@yahoo.        To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    es>                      cc:
                    Sent by:                 Subject:     ILERPG SOURCE 
CREATION DATE IN A FILE
                    rpg400-l-admin@mi
                    drange.com


                    11/26/01 10:59 AM
                    Please respond to
                    rpg400-l






--

I need to know the date of creation of the source of an RPGLE program.
The problem is that I need to have that information on a database file and
the only command that I know to retrieve this type of information is the
DSPPGM command (with the *MODULE option) and this command doesn't have the
OUTFILE option on the OUTPUT parameter.
The other command I know to retrieve this information in DSPOBJD, but this
command doesn't give me the date of creation of the source if it is from a
RPGLE program.

Does anybody know how to retrieve this information on a database file?
Thank you in advance.
--
[ Content of type application/ms-tnef deleted ]
--


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.