Stratifying Data w/ Symbol Variable

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: SHWSYMB                                             */
 /*   TITLE: Stratifying Data w/ Symbol Variable                 */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Shewhart Charts,                                    */
 /*   PROCS: SHEWHART                                            */
 /*    DATA:                                                     */
 /*                                                              */
 /*     REF: SAS/QC Software:  Examples                          */
 /*    MISC:                                                     */
 /*                                                              */
 /****************************************************************/

options ps=60 ls=80;

data savediam;
   input machine $ day diameterx diameters;
   informat day date7.;
   format day date7.;
   diametern=6;
   cards;
A386  01JUL86  4.32  0.39
A386  02JUL86  4.49  0.35
A386  03JUL86  4.44  0.44
A386  04JUL86  4.45  0.17
A386  05JUL86  4.21  0.53
A386  06JUL86  4.56  0.26
A386  07JUL86  4.63  0.39
A386  08JUL86  4.38  0.47
A455  09JUL86  4.42  0.37
A455  10JUL86  4.45  0.32
A455  11JUL86  4.62  0.36
A455  12JUL86  4.33  0.31
A455  13JUL86  4.29  0.33
A455  14JUL86  4.17  0.25
C334  15JUL86  4.15  0.28
C334  16JUL86  4.21  0.33
C334  17JUL86  4.16  0.19
C334  18JUL86  4.14  0.13
C334  19JUL86  4.11  0.19
C334  20JUL86  4.10  0.27
C334  21JUL86  3.99  0.14
C334  22JUL86  4.24  0.16
C334  23JUL86  4.23  0.14
A386  24JUL86  4.27  0.28
A386  25JUL86  4.70  0.45
A386  26JUL86  4.51  0.45
A386  27JUL86  4.34  0.16
A386  28JUL86  4.38  0.29
A386  29JUL86  4.28  0.24
A386  30JUL86  4.47  0.26
A386  31JUL86  4.31  0.46
;

symbol1 v=star     c=red    h=1.5;
symbol2 v=circle   c=green  h=1.5;
symbol3 v=triangle c=blue   h=1.5;

title 'Shewhart Chart for Diameter '
      'Stratified By Machine';

proc shewhart history=savediam;
   xschart diameter*day=machine /
      split    = '/'
      hoffset  = 2
      cframe   = gray
      cconnect = black
      nohlabel
      novangle
      nolegend;
label diameterx='Avg Diameter/Std Dev';
run;

goptions reset=all;