Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 11
Program
Writing signed numerals

---

*
  Writing sign as separate field
*;
DATA _NULL_;
   DO VALUE = -2 TO 2;
      SELECT (SIGN(VALUE));
         WHEN (-1) SIGN = '-';
         WHEN (1) SIGN = '+';
         OTHERWISE SIGN = ' ';
         END;
      IF SIGN(VALUE) = -1 THEN ABS = -VALUE;
      ELSE ABS = VALUE;
      PUT SIGN $CHAR1. ABS F7.3;
      END;
RUN;

*
  Creating numeral in character variable
*;
DATA _NULL_;
   DO VALUE = -2 TO 2;
      IF VALUE > 0 THEN  FIELD = '+' || LEFT(PUT(VALUE, F6.));
      ELSE FIELD = LEFT(PUT(VALUE, F7.));
      PUT FIELD $CHAR7. -R;
      END;
RUN;