OPTIONS NODATE NONUMBER LS=64 PS=66;
/*
FILENAME TEMP 'C:\COURSES\STAT580\SAS\XRCHART2.PS';
GOPTIONS DEVICE=PS
HSIZE=5.5IN VSIZE=8IN
GSFNAME=TEMP
GSFLEN=132
GSFMODE=APPEND;
*/
DATA IN;
     INPUT SAMPLE DAY SHIFT @@;
     DO ITEM = 1 TO 4;
        INPUT INDEX @@; OUTPUT;
     END;
CARDS;
 1 1 3 218  224  220  231     2 1 1 228  236  247  234
 3 1 4 280  228  228  221     4 2 3 210  249  241  246
 5 2 1 243  240  230  230     6 2 4 225  250  258  244
 7 3 2 240  238  240  243     8 3 1 244  248  265  234
 9 3 4 238  233  252  243    10 4 2 228  238  220  230
11 4 4 218  232  230  226    12 4 3 226  231  236  242
13 5 1 224  221  230  222    14 5 4 230  220  227  226
15 5 3 224  228  226  240    16 6 1 232  240  241  232
17 6 4 243  250  248  250    18 6 3 247  238  244  230
19 7 1 224  228  228  246    20 7 4 236  230  230  232
 ;
SYMBOL V=DOT WIDTH=1;

PROC SHEWHART DATA=IN;
     XRCHART INDEX*SAMPLE / NPANELPOS=20
                            ZONES ZONELABELS
                            TESTS  = 1 TO 8 LTESTS = 2
                            TESTS2 = 1
                            TABLETEST ALLN
                            SPLIT = '/';
     LABEL RESPONSE = 'MEAN/RANGE';
TITLE H=1 CM 'XBAR and RANGE Charts (Unknown MU and SIGMA)';
RUN;

PROC SHEWHART DATA=IN;
     XSCHART INDEX*SAMPLE / NPANELPOS=20
                            ZONES ZONELABELS
                            TESTS  = 1 TO 8 LTESTS = 2
                            TESTS2 = 1
                            TABLETEST ALLN
                            SPLIT = '/';
     LABEL RESPONSE = 'MEAN/STANDARD DEVIATION';
TITLE H=1 CM 'XBAR and S Charts (Unknown MU and SIGMA)';
RUN;