Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 9
Program
Demonstrations of numeric truncation

---

*
  Differences due to truncation
*;

DATA COMPARE;
   LENGTH X8 8 X6 6;
   RETAIN X8 X6 0.1;
RUN;
DATA _NULL_;
   SET COMPARE;
   PUT X8= X6=;
   IF X8 = X6 THEN PUT 'Equal';
   ELSE PUT 'Unequal';
RUN;

*
  TRUNC function
*;

DATA COMPARE;
   LENGTH X8 8 X6 6;
   RETAIN X8 X6 0.1;
RUN;
DATA _NULL_;
   SET COMPARE;
   PUT X8= X6=;
   IF TRUNC(X8, 6) = X6 THEN PUT 'Equal';
   ELSE PUT 'Unequal';
RUN;

*
  Visible differences from truncation
*;

DATA COMPARE;
   LENGTH X8 8 X4 4;
   RETAIN X8 X4 0.1;
RUN;
DATA _NULL_;
   SET COMPARE;
   PUT X8= X4=;
   IF TRUNC(X8, 4) = X4 THEN PUT 'Equal';
   ELSE PUT 'Unequal';
RUN;