***********************************************************************
* PROGRAM:      PTT.SAS                                           *
* PROGRAMMER:   Floyd Hummel                                          *
* DATE:         03/08/99                                              *
*                                                                     *
* PURPOSE:      PTT - Parent-Teacher Involvement Measure - Teacher    *
*                                                                     *
* INPUT:        SAS datasets sT&yr.B%coh.R s=site=D, N, P, S, yr=year *
*                Final "R" only present for certain year/cohort comb. *
*               coh=cohort                                            *
*                                                                     *
* OUTPUT:       SAS dataset  PTT&yrST&coh.sd2, yr=year, coh=cohort    *
* Modified:		JEnnifer Godwin to rum off aggregate datasets		  *	
***********************************************************************;

** Fill out information below for data processed in this run **;


** Enter year and grade of data collection **;

%let yr =6;  

LIBNAME SASIN "N:\Datasets\Teacher\parentteacherinvolvement_T\U" ;
LIBNAME SASOUT "N:\Datasets\Teacher\parentteacherinvolvement_T\S" ;

*****************************************************************************;
*when calculating the mean;
%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.PTT&yr. ;
SET SASIN.t&yr.b_im ;
run;

%let INDATA = sasout.PTT&yr. ;

************************************************************;
%let var_name = PTT&yr.COMF ;
%let var_labl = %str(PTT parent comfort with teacher ) ;
%let var_list = %str(T&yr.BIM12-T&yr.BIM18 T&yr.BIM20 T&yr.BIM21) ;
%linmean ;

************************************************************;
%let var_name = PTT&yr.INVO ;
%let var_labl = %str(PTT parent involvement and volunteering) ;
%let var_list = %str(T&yr.BIM5 T&yr.BIM6 T&yr.BIM7 T&yr.BIM11 T&yr.BIM19) ;
%linmean ;

************************************************************;
%let var_name = PTT&yr.CONT ;
%let var_labl = %str(PTT parent-teacher contact) ;
%let var_list = %str(T&yr.BIM1-T&yr.BIM4  T&yr.BIM8 T&yr.BIM9) ;
%linmean ;

************************************************************;
%let var_name = PTT&yr.TOT;
%let var_labl = %str(PTT total) ;
%let var_list = %str(T&yr.BIM1-T&yr.BIM21) ;
%linmean ;




proc sort ;
by cohort site tcid;  
run;