Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 28
Program
Generating serial numbers

---

data new.hire (keep=empl name hiredate ssn) main.eserial;
   length empl $ 4;
   informat empl $hex8.;
   format empl $hex8.;
   infile hire;
   input name $40. hiredate yymmdd10. ssn $11.;
   * Generate employee ID number. ;
   point = 1;
   modify main.eserial point=point;
   empl = put(next_serial, pk4.);
   last_serial = next_serial;
   next_serial = next_serial + 1;
   replace main.eserial;
   output new.hire;
run;