Date:         Thu, 11 Jun 1998 16:02:44 -0700
Reply-To:     Kathy Chi-Burris <kathy.chi-burris@AGOURON.COM>
Sender:       "SAS(r) Discussion" <SAS-L@UGA.CC.UGA.EDU>
From:         Kathy Chi-Burris <kathy.chi-burris@AGOURON.COM>
Organization: Agouron Pharmaceuticals Inc.
Subject:      How to quote?
Content-Type: text/plain; charset=us-ascii

I have a macro creating footnotes. In order for the padding (for left or
right justification) to work, I have to put quotes around the footnote
text.
However, if I need to put a single ( ' ) in my footnote text, it doesn't
work:
e.g. %footnotn("It's a footnote")
      %footnotn(%str(It's a footnote))
      don't work.
 
How can I modify the macro to make it work?
 
Thanks a lot in advance.
 
 
***************************Macro*****************************
%macro footnotn(title, just=c, linesize=);
  %local ltitle npad pad;
   proc sql noprint;
      select max(number) into: ltitle
      from dictionary.titles
      where type='F';
   quit;
 
   %if &linesize= %then %let linesize=%sysfunc(getoption(linesize));
 
   %let npad = %eval(&linesize - %length(&title) - 1);
   %let pad = %qsysfunc(repeat(%str( ), &npad));
 
   %if %upcase(&just) = C %then %do;
     footnote%eval(&ltitle+1) "&title";
   %end;
   %else %if %upcase(&just) = R %then %do;
     footnote%eval(&ltitle+1) "&pad&title";
   %end;
   %else %if %upcase(&just) = L %then %do;
     footnote%eval(&ltitle+1) "&title&pad";
   %end;
 
%mend footnotn;