Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 46
Program
Transposing with DO loop

---

data main.int2 (keep=when dir count);
   array dirn{12} $ 3 _temporary_ 
       ('N' 'N-E' 'N-W' 'S' 'S-E' 'S-W' 'E' 'E-N' 'E-S' 'W' 'W-N' 'W-S');
   array dcount{12} n n_e n_w s s_e s_w e e_n e_s w w_n w_s;
   set main.int1 (keep=when n n_e n_w s s_e s_w e e_n e_s w w_n w_s);
   do i = 1 to 12;
      dir = dirn{i};
      count = dcount{i};
      output;
      end;
run;