Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 40
Program
Censoring credit card numbers

---

LENGTH CHAR $ 1;
DIGITS = 0;
ICAPTION = INDEX(UPCASE(LINE), 'CREDIT CARD:');
IF ICAPTION THEN DO C = ICAPTION + 12 TO LENGTH(LINE);
   CHAR = SUBSTR(LINE, C, 1);
   IF INDEXC(CHAR, '0123456789') THEN DO;
      DIGITS + 1;
      SUBSTR(LINE, C, 1) = '*';
      END;
   IF DIGITS >= 12 THEN LEAVE;
   END;