Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 28
Program
Add punctuation to telephone number

---

data _null_;
   length phone $ 10 pphone $ 12;
   phone = '8005551212';
   substr(pphone, 1, 3) = substr(phone, 1, 3);
   substr(pphone, 4, 1) = '-';
   substr(pphone, 5, 3) = substr(phone, 4, 3);
   substr(pphone, 8, 1) = '-';
   substr(pphone, 9, 4) = substr(phone, 7, 4);
   putlog phone= pphone=;
run;