/*<pre><b>
/ Program   : lratitle.sas
/ Version   : 1.0
/ Author    : Roland Rashleigh-Berry
/ Date      : 29-Mar-2007
/ Purpose   : To left and right-align a two part title for a pure text output
/ SubMacros : none
/ Notes     : This is for pure text output listings and tables. For other types 
/             of output you can use j=left, j=right or .j=left and .j=right in
/             the title statement to align elements of it.
/ Usage     : %lratitle(5,"Left aligned","Right-aligned")
/ 
/===============================================================================
/ PARAMETERS:
/-------name------- -------------------------description------------------------
/ num               (pos) Number of title
/ textl             (pos) Text for left alignment (must be in quotes)
/ textr             (pos) Text for right alignment (must be in quotes)
/===============================================================================
/ AMENDMENT HISTORY:
/ init --date-- mod-id ----------------------description------------------------
/ rrb  29Mar07         Put out "macro called" message plus header tidy
/===============================================================================
/ 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: lratitle v1.0;

%macro lratitle(num,textl,textr);
%local ls lenl lenr lent rpt;

%let lenl=0;
%if %length(&textl) %then %let lenl=%eval(%length(&textl)-2);

%let lenr=0;
%if %length(&textr) %then %let lenr=%eval(%length(&textr)-2);

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

%let lent=%eval(&lenl+&lenr);

%if &lent GT &ls %then %do;
%put WARNING: (lratitle) Your title text is longer than the current linesize of &ls;
  title&num &textl &textr;
%end;
%else %if &lent EQ &ls %then %do;
  title&num &textl &textr;
%end;
%else %do;
  %let rpt=%eval(&ls-&lent-1);
  title&num &textl "%sysfunc(repeat(%str( ),&rpt))" &textr;
%end;

%mend;