RE: RPG400-L Digest, Vol 4, Issue 1002

Jeffrey,

I don't think this is possible to retrieve it automatically (except
maybe by calling QMHSNDPM and then QMHRCVPM and retrieving the sending
procedure name, which is a huge hassle). I'm pretty certain the
*PROCEDURE bit of the PSDS doesn't contain the procedure name (at least
not at V5R2, which is where I'm at).

I always define a constant within each procedure (always called ##_PROC)
containg the name of the procedure, whch then makes it easy to find
program dumps, e.g.

     P GetUserInfo     B                   Export                      
     D                 PI            10I 0 
     D UsrPrf                        10A   Const Options(*Nopass)

      *----------------------------------------------------------------
     D ##_Proc         C                   'GetUserInfo'
      *----------------------------------------------------------------
...
...
...
     C     *PSSR         Begsr                   
     C                   If        GlobalDumpErrors = *On
     C     ##_Proc       Dump                    
     C                   Endif                   
     C                   Return    -1
     C                   Endsr

HTH,

Rory