OPTIONS LS=72 PS=54 NODATE NONUMBER;

*** DESIGNING A CUSUM: METHOD 2 EXAMPLE;
DATA csmarl;
DO k = .25 TO 1 BY .05;
DO h = 2 TO 8 BY .01;
   arl0 = CUSUMARL('twosided',0,h,k);
   arl1 = CUSUMARL('twosided',1,h,k);
   arl2 = CUSUMARL('twosided',2,h,k);  *** 2 sigma shift for comparison;
   IF (148 le arl0 le 152) and (8.5 le arl1 le 9.5) THEN OUTPUT;
END; END;


PROC PRINT DATA=csmarl;
RUN;