Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 40
Program
Spaces between characters

---

DATA _NULL_;
   LENGTH TEXT $ 14 EXPANDED $ 29;
   TEXT = "Base Period";
   EXPANDED = "";
   DO C = 1 TO VLENGTH(TEXT) MIN (VLENGTH(EXPANDED)/2);
      SUBSTR(EXPANDED, C*2, 1) = SUBSTR(TEXT, C, 1);
      END;
   PUT EXPANDED;
RUN;