%macro formchar(p);
 %*---macro to assign SAS formchar option based on mnemonic parm.  If no parm 
      is specified then it assumes "help" mode and lists the 3 possible parm 
      values.  John Blodgett, 9-17-99.--*;
 %*--Revision history:  
     (none) ;
          
  %if &p eq %str() %then %do; 
     %put Formchar macro will generate an appropriate formchar option value based on the single;
     %put parameter that you specify.  The values that can be specified are: ;
     %put text  :  This is the setting you want for a character-based output or when using a font other than sasfont.;
     %put sasmono:  This is the setting you are using the SAS Monospace font. It produces nice continous lines.;
     %put oem  :  For the OEM character set. ; 
     %put Please try again, specifying one of these 3 values as the parameter.  ; 
     %put For example: %quote(%formchar(text)); 
     %end; 
  %else %if %upcase(&p) eq TEXT %then %do;
     options FORMCHAR= "|----|+|---+=|-/\<>*" ;
     %end;
   %else %if %upcase(&p) eq SASMONO %then %do;
     options FORMCHAR="‚ƒ„…†‡ˆ‰Š‹Œ+=|-/\<>*"; 
     %end;  
    %else %if %upcase(&p) eq OEM %then %do;
     options FORMCHAR="³ΔΪΒΏΓΕ΄ΐΑΩ+=|-/\<>*"; 
     %end;   
   %else %do; 
     %put Formchar macro does not recognize a parm value of &p .  Values recognized are: ;
     %put  TEXT   SASMONO  OEM ; 
     %put You can invoke formchar without any parm spec to get a detailed help message.;
     %end; 
   %mend formchar;