OPTIONS LS=72 PS=54 NODATE NONUMBER;

*** Designing an EWMA Chart;
DATA ewmaarl;
DO L = 3 TO 3.1 BY .1;
DO lambda = .05 to 1 BY .05;
   arl0 = EWMAARL(0,lambda,L);
   arl1 = EWMAARL(1,lambda,L);
   arl2 = EWMAARL(2,lambda,L);  *** 2 sigma shift for comparison;
   * IF (148 le arl0 le 152) and (8.5 le arl1 le 9.5) THEN OUTPUT;
   OUTPUT;
END; END;

PROC PRINT DATA=ewmaarl;
RUN;