Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 28
Program
Adding check digits

---

data _null_;
   code = '0123456 ';

   digitsum = 0;
   do i = 1 to 7;
      digitsum + input(substr(code, i, 1), f1.);
      end;
   check = mod(70 - digitsum, 10);
   substr(code, 8, 1) = put(check, f1.);

   put code=;
run;