Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 59
Program
Data step text table with features

---

DATA _NULL_;
   RETAIN A 8  B 19  C 32  D 42  E 52;
   SET WORK.SETUP;
   BY DEPT;
   IF FIRST.DEPT THEN DO;
      SP = 0;
      SS = 0;
      SW = 0;
      END;
   FILE PRINT N=PS LL=LL LINE=LINE;
   IF _N_ = 1 OR LL <= 1 + 2*LAST.DEPT THEN DO;
      PAGENO + 1;
      PUT _PAGE_ 'Show Setup' / 'Page ' PAGENO
          // @D 'Setup'
          / @A 'Section' @B 'Equipment' @C ' Power' @D ' Time' @E 'Weight'
          /;
      END;
   IF FIRST.DEPT OR LINE <= 7 THEN PUT @A DEPT $CHAR8. @;
   PUT @B EQUIP $CHAR10. @C POWER F6. @D SETUP F5. @E WEIGHT F6.;

   * Subtotals ;
   SP + POWER;
   SS + SETUP;
   SW + WEIGHT;
   IF LAST.DEPT THEN DO;
      PUT @C '------' @D '-----' @E '------'
          / @C SP F6. @D SS F5. @E SW F6.;
      IF LL > 1 THEN PUT;
      END;
RUN;