Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 35
Program
Depreciation table

---

DATA _NULL_;
   ORIGINAL = 38017;
   PUT 'Year' +2 'Depreciation' +2 'Accumulated' +7 'Value' / ;
   DO YEAR = 2003 TO 2010;
      N = YEAR - 2002;
      DEP = DEPTAB(N, ORIGINAL, .1429, .2449, .1749, .1249, .0893, .0892, .0893, .0446);
      ACC = DACCTAB(N, ORIGINAL, .1429, .2449, .1749, .1249, .0893, .0892, .0893, .0446);
      BOOK = ROUND(ORIGINAL - ACC, .01);
      PUT YEAR F4. +4 DEP COMMA10.2 +3 ACC COMMA10.2 +2 BOOK COMMA10.2;
      END;
RUN;