RE: RPG IV and Service Information

[Jon Erickson <jerickson@xxxxxxx>]

DSPPGM PGM(Yourpgm) DETAIL(*MODULE)

Jon A. Erickson
Sr. Programmer Analyst
800.COM Inc.
1516 NW Thurman St
Portland, OR  97209-2517

Direct: 503.944.3613
Fax: 503.944.3690
Web: http://800.com


-----Original Message-----
From: Bruce Collins [mailto:bacollins@twitchellcorp.com]
Sent: Thursday, March 30, 2000 2:30 PM
To: MIDRANGE-L@midrange.com
Subject: RPG IV and Service Information


When you compile an RPG III you can then do:

DSPOBJD OBJ(Yourlib/Yourpgm)
        OBJTYPE(*PGM)
        DETAIL(*SERVICE)

and your get the Following:

                      Display Object Description - Service
                                                                 Library 1
of 1
 Object . . . . . . . . . . . . . . . . . :   Yourpgm
   Library  . . . . . . . . . . . . . . . :     Yourlib
 Type . . . . . . . . . . . . . . . . . . :   *PGM

 Source file  . . . . . . . . . . . . . . :   Yoursrcf
   Library  . . . . . . . . . . . . . . . :     Yoursrcl
 Member . . . . . . . . . . . . . . . . . :   Yourpgm
 Attribute  . . . . . . . . . . . . . . . :   RPG
 User-defined attribute . . . . . . . . . :
 Freed  . . . . . . . . . . . . . . . . . :   NO
 Size . . . . . . . . . . . . . . . . . . :   409600
 Creation date/time . . . . . . . . . . . :   03/09/00  17:16:41
 Source file date/time  . . . . . . . . . :   03/09/00  17:15:46
 System level . . . . . . . . . . . . . . :   V4R4M0
 Compiler . . . . . . . . . . . . . . . . :   5769RG1    V4R4M0
 Object control level . . . . . . . . . . :
 Changed by program . . . . . . . . . . . :   NO

More...
 Press Enter to continue.

 F3=Exit   F12=Cancel
 (C) COPYRIGHT IBM CORP. 1980, 1999.



But if I create an RPGLE program I get this:

                      Display Object Description - Service
                                                                 Library 1
of 1
 Object . . . . . . . . . . . . . . . . . :   Yourpgm
   Library  . . . . . . . . . . . . . . . :     Yourlib
 Type . . . . . . . . . . . . . . . . . . :   *PGM

 Source file  . . . . . . . . . . . . . . :
   Library  . . . . . . . . . . . . . . . :
 Member . . . . . . . . . . . . . . . . . :
 Attribute  . . . . . . . . . . . . . . . :   RPGLE
 User-defined attribute . . . . . . . . . :
 Freed  . . . . . . . . . . . . . . . . . :   NO
 Size . . . . . . . . . . . . . . . . . . :   380928
 Creation date/time . . . . . . . . . . . :   03/01/00  16:44:43
 Source file date/time  . . . . . . . . . :
 System level . . . . . . . . . . . . . . :   V4R4M0
 Compiler . . . . . . . . . . . . . . . . :   CRTPGM     V4R4M0
 Object control level . . . . . . . . . . :
 Changed by program . . . . . . . . . . . :   NO

More...
 Press Enter to continue.

 F3=Exit   F12=Cancel
 (C) COPYRIGHT IBM CORP. 1980, 1999.

The Source File and Library do not exsist.
How can I find out what source file I compiled this from?


Bruce Collins
Twitchell Corporation
bacollins@twitchellcorp.com

"People who think they know everything really annoy those of us who do!"


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---