DM 'LOG; CLEAR; OUT; CLEAR;';
* ODS PRINTER PDF file='C:\COURSES\ST528\SAS\PCHART1.PDF';
ODS LISTING;
OPTIONS NODATE NONUMBER LS=76 PS=54;

******************************************************;
***                  P-chart                       ***;
*** The response is the number of failing circuits ***;
***          from 20 batches of size 500           ***;
******************************************************;

DATA circuit3;
   INPUT batch fail @@;
LINES;
 1 12    2 21    3 16    4  9
 5  3    6  4    7  6    8  9
 9 11   10 13   11 12   12  7
13  2   14 14   15  9   16  8
17 14   18 10   19 11   20  9
;
TITLE 'p Chart for the Proportion of Failing Circuits';

SYMBOL1 VALUE=dot WIDTH=3;

PROC SHEWHART DATA=circuit3;
     PCHART fail*batch='1' / TESTS = 1 to 8  SUBGROUPN = 500  
                       ZONELABELS TABLETESTS TABLELEGEND;
   LABEL batch = 'Batch Number'
         fail  = 'Fraction Failing';
RUN;