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;