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;