Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 11
Program
Reading signed numerals

---

*
  Embedded spaces
*;

data _null_;
   infile cards;
   input field $char6.;
   field  = compress(field);
   value = input(field, f6.);
   put value;
datalines;
+    1
-  200
;

*
  Sign as separate fixed field
*;

data _null_;
   infile cards;
   input sign $char1. value f5.;
   if sign = '-' then value = -value;
   put value;
datalines;
+    1
-  200
;

*
  Trailing sign
*;

data _null_;
   infile cards;
   input field $char8.;
   if substr(field, 8) = '-' then value = -input(field, f7.);
   else value = input(field, f8.);
   put value;
datalines;
       0
     24-
   5.00-
;