***********************************
*          Dr. Baokun Li          *
*      Annotating SAS Output      *
*         June 28th, 2007         *
***********************************;

*定義format;

PROC FORMAT;
 VALUE group   1 = 'Beta Blocker' 
               2 = 'Calcium Channel Blocker'
               3 = 'Diuretic'      
               4 = 'Alpha Blocker' 
	          5 = 'ACE Inhibitor' 
               6 = 'Placebo';

 VALUE gender  1 = 'Men' 2='Women' ;

 VALUE se      1 = 'None'     2 = 'Mild'
               3 = 'Moderate' 4 = 'Severe';
 VALUE smoke   1='Non smoker' 2='smoker';
 

PROC FORMAT;
 VALUE $clinic 'A' = 'Birmingham' 
               'B' = 'Chicago'
               'C' = 'Minneapolis' 
               'D' = 'Pittsburgh' ;
run;
*Lable可以定義在這兒;
DATA tdata ;
INFILE  'd:\data\tomhs3.dat';
INPUT ptid $ clinic $ group sex  educ eversmk  alcbl sebl_1 sebl_6 ;
LABEL clinic = 'Clinical Center';
LABEL group  = 'Drug Treatment Group';
LABEL educ   = 'Highest Education Attained';
LABEL sebl_1 = 'Patient Report Drowsiness';
LABEL sebl_6 = 'Patient Report Headaches';
LABEL alcbl  = 'Alcoholic Drinks Per Week';
LABEL eversmk  = 'Ever Smoke Cigarettes';
run;




*使用Ｔｉｔｌｅ;
PROC FREQ DATA=tdata; 
 TABLES clinic group sex educ sebl_1 sebl_6;
 TITLE 'Distribution of Selected Variables';
 TITLE2 'on the TOMHS Dataset' ;
run;
* 定義的Format沒有使用;

PROC FREQ; TABLES clinic sebl_6;
RUN;


* 使用了format;

PROC FREQ; TABLES clinic sebl_6;
 		 FORMAT clinic $clinic. 
                  sebl_6 se. ;
RUN;

PROC MEANS DATA=tdata  N MEAN STD;
 VAR alcbl; 
 CLASS eversmk;
 FORMAT eversmk smoke. ;
 TITLE 'PROC MEANS With Variable and Value
 		Labels';
RUN;
* 輸出ｗｏｒｄ等可用的表格   ;
PROC FORMAT;
 VALUE grad   1-6 = '< College Graduate' 
              7-9 = 'College Graduate';
run;
/*
ODS LISTING CLOSE;
ODS HTML FILE='d:\data\educ.html';
PROC FREQ DATA=tdata ;
 TABLES educ; FORMAT educ grad.;
 TITLE 'HTML Output From PROC FREQ';
RUN;
ODS HTML CLOSE;
*/



quit;