You must be logged in to use the copy button.

        
**Free
/if Defined(ifs_Obj_Exists_PR)
dcl-pr ifs_Obj_Exists ind;
/Endif

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

p_Object    Pointer  value Options(*String:*trim) ;  // Path + file
p_Access    int(10)  value Options(*nopass);
 // 0 = File Exist
 // 1 = execute or search
 // 2 = Write access
 // 4 = Read access

/if Defined(ifs_Obj_Exists_PR)
 end-pr ifs_Obj_Exists;
/undefine ifs_Obj_Exists_PR
/Endif

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