OPTIONS LS=72 PS=54 NODATE NONUMBER;

*** DESIGNING A CUSUM WITH A FIR;

DATA firarl;
DO h = 4 TO 8 BY 2;
DO k = .25 TO .5 BY .25;
DO delta = 0 to 2 by .5;
DO fir = 0 to h/2 by H/2;
   arl1 = CUSUMARL('onesided',delta,h,k,fir);
   arl2 = CUSUMARL('twosided',delta,h,k,fir);  OUTPUT;
END; END; END; END;

PROC PRINT DATA=firarl;
     ID h k delta fir;
TITLE 'GENERATING FIR CUSUM ARLs';
RUN;