Online File

How to use this page

---

Rick Aster: Professional SAS Programming Shortcuts: Contents

Chapter 76
Program
Animated progress bar

---

DATA _NULL_;
   RETAIN PROGRESS_N NEXT_N PROGRESS 0;
   WINDOW Status 
       IROW=9 ICOLUMN=14 ROWS=11 COLUMNS=54
       GROUP=STATIC
       #2 @8 'Exporting list of CR events.' PERSIST=YES
       #4 @6 '|' PERSIST=YES @46 '|'  PERSIST=YES
       #5 @6 "|    '    '    '    |    '    '    '    |" PERSIST=YES
       GROUP=PROGRESS
       #4 @(6 + PROGRESS) '*' PERSIST=YES
       ;
   IF _N_ = 1 THEN DO;
      DISPLAY Status.STATIC NOINPUT;
      PROGRESS_N = ROUND((NOBS/39) MAX 1);
      NEXT_N = PROGRESS_N/2;
      END;
   SET WORK.CREV NOBS=NOBS;
   IF _N_ > NEXT_N THEN DO;
      PROGRESS + 1;
      NEXT_N + PROGRESS_N;
      DISPLAY Status.PROGRESS NOINPUT;
      END;
   * . . . *;
RUN;