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

******************************************************;
***               c-chart (c unknown)              ***;
*** The response is the number of paint defects    ***;
***            per truck (inspection unit)         ***;
******************************************************;

DATA trucks;
   INPUT truckid $ defects @@;
LINES;
 B1  12   B2   4   B3   4   B4   3   B5   4
 D1   2   D2   3   D3   3   D4   2   D9   4
 M2   9   M6  13   L3   5   L4   4   L7   6
 Z1  15   Z2   8   Z3   9   Z7   6   Z9   8
 ;

TITLE1 'c Chart for Paint Defects in New Trucks (c unknown)';

SYMBOL1 V=dot W=3;

PROC SHEWHART DATA=trucks;
     CCHART defects*truckid='1' / TESTS = 1 to 8  LTESTS = 20 
                                 ALLLABEL=(truckid) ZONELABELS
                                 TABLETESTS TABLELEGEND;
   LABEL truckid = 'Truck ID'
         defects  = 'Defects';
RUN;