You must be logged in to use the copy button.

        
**Free
/if Defined(Get_Caller_PR)
dcl-pr Get_Caller char(10);
/Endif

/if Defined(Get_Caller_PI)
 dcl-pi *n        char(10);
/Endif

p_PgmPosition    int(10:0)  const options(*nopass :*omit);
p_Debug          ind        const options(*nopass);

/if Defined(Get_Caller_PR)
 end-pr Get_Caller;
/undefine Get_Caller_pr
/Endif

/if Defined(Get_Caller_PI)
 end-pi;
/undefine Get_Caller_pi
/Endif