You must be logged in to use the copy button.

        
**Free
/if Defined(CenterTxt_PR)
dcl-pr CenterTxt char(1024) ;
/Endif

/if Defined(CenterTxt_PI)
 dcl-pi *n       char(1024) ;
/Endif

p_Text    varchar(1024)  const;
p_Len     Packed(5:0)    const;

/if Defined(CenterTxt_PR)
 end-pr CenterTxt;
/undefine CenterTxt_PR
/Endif

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