You must be logged in to use the copy button.

        
**Free
/if Defined(cl_cmd_PR)
dcl-pr cl_cmd Ind;
/Endif

/if Defined(cl_cmd_PI)
dcl-pi *n     Ind;
/Endif

p_Command   Pointer options(*String:*Trim) value;

/if Defined(cl_cmd_PR)
 end-pr cl_cmd;
/undefine cl_cmd_pr
/Endif

/if Defined(cl_cmd_PI)
 end-pi;
/undefine cl_cmd_pi
/Endif