OPTIONS NODATE NONUMBER LS=80 PS=60;

******************************************************;
***     NP-chart (with a specified value for p)    ***;
*** The response is the number of failing circuits ***;
***          from 20 batches of size 500           ***;
******************************************************;
 data circuits;
   input batch fail @@;
 cards;
  1   5     2   6     3  11     4   6     5   4
  6   9     7  17     8  10     9  12    10   9
 11   8    12   7    13   7    14  15    15   8
 16  18    17  12    18  16    19   4    20   7
 21  17    22  12    23   8    24   7    25  15
 26   6    27   8    28  12    29   7    30   9
 ;

 /* Specifying a Known Standard Average Proportion */
 /* with the P0= Option                            */

 title1 'np Chart for Failing Circuits';
 title2 'Using Data in CIRCUITS and Standard Value P0=0.02';

 symbol v=star width=3;

 proc shewhart data=circuits graphics;
    npchart fail*batch / subgroupn = 500
                         p0        = 0.02
                         npsymbol  = np0
                         tests     = 1 to 8
                         ltests    = 20
                         zonelabels
                         tabletests
                         tablelegend
                         needles;
    label batch = 'Batch Number'
          fail  = 'Number of Circuits Failing';
 run;