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;