/*<pre><b>
/ Program      : ctitlepgmrk.sas
/ Version      : 1.0
/ Author       : Roland Rashleigh-Berry
/ Date         : 28-Sep-2008
/ Purpose      : Spectre (Clinical) macro to create a centered top title with a
/                right-most "FF"x page mark.
/ SubMacros    : none
/ Notes        : The title must be in quotes. 
/ Usage        : %ctitlepgmrk("centred title")
/ 
/===============================================================================
/ PARAMETERS:
/-------name------- -------------------------description------------------------
/ string            (pos) (in quotes) Title to center
/===============================================================================
/ AMENDMENT HISTORY:
/ init --date-- mod-id ----------------------description------------------------
/ rrb  13Feb07         "macro called" message added
/ rrb  30Jul07         Header tidy
/ rrb  28Sep08         Header changed to classify this macro as belonging to
/                      Spectre (Clinical).
/===============================================================================
/ This is public domain software. No guarantee as to suitability or accuracy is
/ given or implied. User uses this code entirely at their own risk.
/=============================================================================*/

%put MACRO CALLED: ctitlepgmrk v1.0;

%macro ctitlepgmrk(string);

%local ls ;
%let ls=%sysfunc(getoption(linesize));

%if not %length(&string) %then %let string=" ";

data _null_;
  length text $ &ls;
  substr(text,((&ls-length(&string))/2)+1)=&string;
  substr(text,&ls,1)="FF"x;
  call execute('title1 '||'"'||trim(text)||'";');
run;

%mend;