/IF NOT DEFINED(PROCNAME_P)
      /DEFINE PROCNAME_P
      *
     D GetProcName     PR                  Extproc('GetProcName')
     D   p_qproc                           Like(qproc)
      *
     D qproc           ds                  inz qualified
     D   library                     10A
     D   program                     10A
     D   module                      10A
     D   proc                       132A
      *
      /ENDIF