You must be logged in to use the copy button.

        
**Free
/if Defined(Obj_Exists_PR)
dcl-pr Obj_Exists ind;
/Endif

/if Defined(Obj_Exists_PI)
 dcl-pi *n        ind;
/Endif

p_Object    char(10)  const;
p_Type      char(10)  const;
p_Library   char(10)  const options(*nopass);

/if Defined(Obj_Exists_PR)
 end-pr Obj_Exists;
/undefine Obj_Exists_PR
/Endif

/if Defined(Obj_Exists_PI)
 end-pi;
/undefine Obj_Exists_PI
/Endif