************************************************************
* PROGRAM:      ICC.SAS                                    *
* PROGRAMMER:   Jose Miguel Sandoval                       *
* DATE:         5/27/10                                    *
* EDITED:                                                  *
*                                                          *
* PURPOSE:      This program creates scored data for icc   *
*				                                           *
* INPUT:        Oyk files                                  *
*                                                          *
* OUTPUT:       ICCy                                       *
************************************************************;


LIBNAME SASIN   "Y:\datacenter\MISCDATA\Sandoval\Ready\key files\ICC";
LIBNAME SASOUT  "Y:\datacenter\MISCDATA\Sandoval\Ready\key files\ICC";

PROC CONTENTS DATA = SASIN._ALL_ POSITION;
RUN;



** Specify cohort number **;

** Enter year of data collection **;

        %let yr = 7;   /*  Grade 1  */



options ps=80 ls=132 nocenter nostimer ;

*****************************************************************************;

*when calculating the mean;
%macro linsum;
data &INDATA;
   set &INDATA;
   label &var_name = "&var_labl";
   array sumvars {*} &var_list;
   if n(of sumvars(*))>=.5*dim(sumvars) then &var_name=mean(of sumvars(*));
 proc sort; by site tcid;
 run;
%mend linsum;


%macro linmean;
data &INDATA;
   set &INDATA;
   label &var_name = "&var_labl";
   array sumvars {*} &var_list;
   if n(of sumvars(*))>=.5*dim(sumvars) then &var_name=mean(of sumvars(*));
 proc sort; by site tcid;
 run;
%mend linmean;
*****************************************************************************;

DATA sasout.ICC&yr. ;
 set sasin.o&yr.k ;
 RENAME INT_C1 = INT&yr.C1 
        INT_C2 = INT&yr.C2 
        INT_C3 = INT&yr.C3 
;
run;


proc sort ;by site tcid;

proc contents data = sasout.Icc&yr. position ;
run;