/*******************************************************************\     
|Running HLM from within SAS 1.1																		|           
|by Kazuaki Uekawa, Ph.D. 																					|
|Independent SAS consultant																				|
|(kuekawa@alumni.uchicago.edu)																			|           	
|http://www.src.uchicago.edu/users/ueka																|
********************************************************************/ 


options noxwait xsync;
libname here "C:\HLM5\Examples\AppendxA";
libname SAS  "C:\Program Files\SAS Institute\SAS\V8";

data hlm;
input  line $ 1-75;
cards;
#This command file was run with C:\HLM5\Examples\AppendxA\HSB.SSM
NUMIT:10000
STOPVAL:0.0000010000
NONLIN:n
LEVEL1:MATHACH=INTRCPT1+SES,1+RANDOM
LEVEL2:INTRCPT1=INTRCPT2+SECTOR+MEANSES+RANDOM/
LEVEL2:SES=INTRCPT2+SECTOR+MEANSES+RANDOM/
RESFIL:Y/
RESFILTYPE:SAS
RESFILNAME:C:\HLM5\Examples\AppendxA\HSB1.sas
HETEROL1VAR:n
PRINTVARIANCE-COVARIANCE:Y
ACCEL:5
LVR:N
LEV1OLS:10
HYPOTH:n
FIXTAU:3
CONSTRAIN:N
OUTPUT:C:\HLM5\Examples\AppendxA\hsb1.out
TITLE:INTERCEPT AND SLOPES-AS-OUTCOMES MODEL
;

data hlm2;set hlm;
file "C:\HLM5\Examples\AppendxA\program1.txt";
put (line) (100.0);
run;
x "C:\HLM5\HLM2 C:\HLM5\Examples\AppendxA\HSB.SSM C:\HLM5\Examples\AppendxA\program1.txt ";
filename stud "C:\HLM5\Examples\AppendxA\hsb1.out";
data studd ;infile stud length=lg;input @;input @1 eachline $varying78. lg;
data coeff;set studd;
where eachline contains ", G";
run;
proc print;run;
data deviance;set studd;
where eachline contains " Deviance";
proc print;run;

%include "C:\HLM5\Examples\AppendxA\HSB1.sas" ;
run;
data residual;set sas.resfil;
run;
proc print;run;