Date:         Fri, 29 Oct 1999 17:28:50 -0500
Reply-To:     Paul McDonald <paul_mcdonald@AMERITECH.NET>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Paul McDonald <paul_mcdonald@AMERITECH.NET>
Organization: Ameritech.Net www.ameritech.net  Complaints: abuse@ameritech.net
Subject:      Left-Justified Footnote Macro

%macro lfoot (num, message) /des='Left-justified footnote' ;
   %local num message mlength ps blenght ;

   %let mlength = %length(&message) ;
   %let ls      = %scan(%sysfunc(getoption(ls, keyword)), 2, =) ;
   %let blength = %eval(&ls-&mlength) ;
   %put mlength = &mlength ls = &ls blength = &blength ;

   footnote&num "&message%sysfunc(repeat(%str( ), &blength))" ;
%mend lfoot ;