/IF NOT DEFINED (PROCP4NAME_QRPGLEH)
      /DEFINE PROCP4NAME_QRPGLEH
     /*********************************************************************/
     /* Header File Name: PROCP4NAME.QRPGLEH                              */
     /*  Reflection Program for ILE RPG                                   */
     /*  gets Serviceprogramm and Procedure Name                          */
     /*  returns Procedure Pointer                                        */
     /*  purpose: dynamic call of bindable procedures                     */
     /*  look also at program example TSTREFLECT.QRPGLESRC                */ 
     /*********************************************************************/
     D GetProcPointer  PR              *   PROCPTR
     D                                     EXTPROC('PROCP4NAME_GetProcPointer')
     D  SRVPGM                       10A   CONST
     D  Procedure                    32A   CONST
      /ENDIF