/* ****************************************************************
 * Name:    tmpunc
 *
 * Usage: %tmpunc(var=<parsevar>,inds=<input-ds>,outds=<output-ds>)
 *
 * Purpose: To expand punctuation characters so they do not appear in
 * the middle of terms.
 *
 * Parms: VAR= the parse variable to use to expand punctuation
 *             characters with.
 *        INDS= the input data set
 *        OUTDS= the new data set to create with the expanded punctuation.
 * Returns:
 *
 * History:
 * 06Oct04 Initial Coding [cox]
 *
 * Notes: Please make sure that you have the parse variable long
 * enough so that the expansion does not cause loss of characters.
 *
 * Last Modified On: Thu Aug 04 13:35:43 2005
 * End
 * ************************************************************** */
%macro tmpunc(var=,inds=, outds=);
   data &outds;
   set &inds;
   &var = tranwrd(&var,'n_t ', "n't ");
   &var = tranwrd(&var,'N_T ', "N'T ");
   &var = tranwrd(&var,';', "; ");
   &var = tranwrd(&var,')', " ) ");
   &var = tranwrd(&var,'(', " ( ");
   &var = tranwrd(&var,'*', " * ");
   &var = tranwrd(&var,'+', " + ");
   &var = tranwrd(&var,'-', " - ");
   &var = tranwrd(&var,',', ", ");
   &var = tranwrd(&var,'/', " / ");
   &var = tranwrd(&var,'\', " \ ");
   &var = tranwrd(&var,'~', " ~ ");
   &var = tranwrd(&var,'_', " _ ");
   &var = tranwrd(&var,'&', " and ");
   &var = tranwrd(&var,'@', " at ");
   &var = tranwrd(&var,'.', ".  ");
   run;
 %mend;

/* %tmpunc(var=cnt_desc, inds=sugidata.auto_dummy, outds=sugidata.cleanauto); */