Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 81
Program
Standardized addresses (thesaurus)

---

DATA _NULL_;
   LENGTH ADDRESSTEXT WORDTEXT ADDRESSSTD $ 48;
   ADDRESSTEXT = '1448 East Mill Avenue';
   ARRAY WORD{9} $ 20;
   WORDTEXT = TRANSLATE(UPCASE(ADDRESSTEXT), ' ', "!(),/:?");
   DO I = 1 TO DIM(WORD);
      WORD{I} = SCAN(WORDTEXT, I, ' ');
      FROM = WORD{I};
      IF FROM = '' THEN LEAVE;
      * Substitute word from thesaurus. ;
      SET MAIN.ADTHES KEY=FROM/UNIQUE;
      IF _IORC_ THEN DO; * Not found. ;
         _IORC_ = 0;
         _ERROR_ = 0;
         END;
      ELSE WORD{I} = TO;
      IF I = 1 THEN ADDRESSSTD = WORD{I};
      ELSE ADDRESSSTD = TRIM(ADDRESSSTD) || ' ' || WORD{I};
      END;
   PUT (ADDRESSTEXT WORDTEXT ADDRESSSTD) ($CHAR48. /);
STOP;
RUN;