Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 25
Program
Parsing chemical symbols

---

DATA _NULL_;
   COMPOUND = 'NaHCO3';
   REM = COMPOUND;
   ARRAY EL{16} $ 6;
   DO I = 1 TO DIM(EL) WHILE (REM NE '');
      LEN = ANYUPPER(REM, 2) - 1;
      IF LEN = 0 THEN LEN = LENGTH(REM);
      EL{I} = SUBSTRN(REM, 1, LEN);
      REM = SUBSTRN(REM, LEN + 1);
      PUT EL{I};
      END;
RUN;