** Enter year of data collection below -- data only for year 9 **;
        %let yr = 9 ;

libname sasin "N:\Datasets\Child\adolescentstories\U";
libname sasout "N:\Datasets\Child\adolescentstories\S";

*************** DO NOT MODIFY BELOW THIS LINE ******************************;

%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;

%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(*))*dim(sumvars);
proc sort; by site tcid;
run;
%mend linsum;

*****************************************************************************;
/* Merging unscored datasets with demographic data*/
DATA sasout.AST&yr.;
  SET sasin.c&yr.ap  ;

** create percentage of goal of been liked or respected responses**;

AST&yr.APL=0;
AST&yr.APR=0;

array R[6] c&yr.ap5 c&yr.ap11 c&yr.ap17 c&yr.ap23 c&yr.ap29 c&yr.ap35;

do i=1 to 6;
if R[i]=1 then AST&yr.apl=AST&yr.apl+1;
if R[i]=2 then AST&yr.apr=AST&yr.apr+1;
end;

drop i;
ast&yr.apl=AST&yr.apl*100/6;
ast&yr.apr=AST&yr.apr*100/6;

** create percentage of competent and percentage of aggressive responses ;

AST&yr.APA=0;
AST&yr.APC=0;

array S[6] c&yr.ap6 c&yr.ap12 c&yr.ap18 c&yr.ap24 c&yr.ap30 c&yr.ap36;

do i=1 to 6;
if S[i]=2 then AST&yr.apa=AST&yr.apa+1;
if s[i]=1 then AST&yr.apc=AST&yr.apc+1;
end;
drop i;

ast&yr.apa=AST&yr.apa*100/6;
ast&yr.apc=AST&yr.apc*100/6;

label
	  ast&yr.apa="Percentage of aggressive response AST&yr."
	  ast&yr.apc="Percentage of competent responses AST&yr."
      ast&yr.apl="Percentage wanting to be liked AST&yr."
      ast&yr.apr="Percentage wanting to be respected AST&yr.";

 run;

*****************************************************************************;
/* Specify definitions for SCALE VARIABLES below:         ** */
     %let INDATA = sasout.AST&yr.;
************************************************************;
     %let var_name = AST&yr.HAT;
     %let var_labl = %str(Hostile Attributions - AST&yr.) ;
     %let var_list = %str(c&yr.ap1 c&yr.ap7 c&yr.ap13 c&yr.ap19 c&yr.ap25 c&yr.ap31);
     %linmean;
************************************************************;
	 %let var_name = AST&yr.BAT;
     %let var_labl = %str(Benign Attributions - AST&yr.) ;
     %let var_list = %str(c&yr.ap2 c&yr.ap8 c&yr.ap14 c&yr.ap20 c&yr.ap26 c&yr.ap32);
     %linmean;
************************************************************;
	 %let var_name = AST&yr.ANG;
     %let var_labl = %str(Angry Feelings - AST&yr.) ;
     %let var_list = %str(c&yr.ap3 c&yr.ap9 c&yr.ap15 c&yr.ap21 c&yr.ap27 c&yr.ap33);
     %linmean;
************************************************************;
	 %let var_name = AST&yr.WOR;
     %let var_labl = %str(Worried Feelings - AST&yr.) ;
     %let var_list = %str(c&yr.ap4 c&yr.ap10 c&yr.ap16 c&yr.ap22 c&yr.ap28 c&yr.ap34);
     %linmean;
************************************************************;
	 %let var_name = AST&yr.ROL;
     %let var_labl = %str(Respected/liked - AST&yr.) ;
     %let var_list = %str(c&yr.ap3 c&yr.ap9 c&yr.ap15 c&yr.ap21 c&yr.ap27 c&yr.ap33);
     %linmean;
************************************************************;
	 %let var_name = AST&yr.COA;
     %let var_labl = %str(Aggressive/competent response - AST&yr.) ;
     %let var_list = %str(c&yr.ap4 c&yr.ap10 c&yr.ap16 c&yr.ap22 c&yr.ap28 c&yr.ap34);
     %linmean;