c Chart

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: SHWCCHR                                             */
 /*   TITLE: c Chart                                             */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Shewhart Charts, c Charts,                          */
 /*   PROCS: SHEWHART                                            */
 /*    DATA:                                                     */
 /*                                                              */
 /*     REF: SAS/QC Software:  Examples                          */
 /*    MISC:                                                     */
 /*                                                              */
 /****************************************************************/

options ps=50 ls=100 nodate;

data trucks;
   input truckid $ defects;
   label truckid='Truck Identification Number'
         defects='Number of Paint Defects';
   cards;
C1   5
C2   4
C3   4
C4   8
C5   7
C6  12
C7   3
C8  11
E4   8
E9   4
E7   9
E6  13
A3   5
A4   4
A7   9
Q1  15
Q2   8
Q3   9
Q9  10
Q4   8
;
run;

title 'C Chart for Paint Defects in New Trucks';

proc shewhart data=trucks lineprinter;
   cchart defects*truckid='*';
run;

title;