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

****************************************************;
***                u-chart (u known)             ***;
*** The response is the number of fabric defects ***;
***                 per square meter             ***;
****************************************************;

DATA fabrics1;
   INPUT operator roll defects sqmeters @@;
LINES;
1 1  7 30.0  2 2 11 27.6  3 3 15 30.4  
1 4  6 34.8  2 5 11 26.0  3 6 15 28.6   
1 7  5 28.0  2 8 10 30.2  3 9  8 28.2  
1 10 3 31.4  2 11 3 30.3  3 12 14 27.8  
1 13 3 27.0  2 14 9 30.0  3 15 7 32.1
1 16 6 34.8  2 17 7 26.5  2 18 5 30.0  
3 19 14 31.3 1 20 13 31.6 2 21 11 29.4  
3 22 6 28.6  1 23 6 27.5  2 24 9 32.6  
3 25 11 31.7
;
TITLE 'u Chart for Fabric Defects per Square Meter (given u=.20)';

SYMBOL1 V=dot W=3;

PROC SHEWHART DATA=fabrics1 ;
     UCHART defects*roll='1' / SUBGROUPN = sqmeters  ALLLABEL=(operator)
                               U0 = 0.20  USYMBOL = u0 TABLE ;
     LABEL roll = 'Roll of Fabric';
RUN;