Online File

How to use this page

---

Rick Aster: Professional SAS Programming Secrets: Contents

Chapter 7
Program 7h
Array of fields

---

*
  Professional SAS Programming Secrets
  Program 7h
  Array of fields
*;
data work.shipment (drop=i);
   array package{12} $ 11 package1-package12;
   infile ship truncover;
   input package_count 2. @;
   do i = 1 to package_count;
      if i <= dim(package) then input package{i} $char11. @;
      else input +11 @;
      end;
   input weight 4. invoice $char14.;
run;