DM 'LOG;CLEAR;OUT;CLEAR';
OPTIONS THREADS=YES CPUCOUNT=2;
options mlogic mprint mtrace symbolgen;

*data data03;
*	infile 'D:\SAS Simulated Data\data03\data03.txt';
*	input ID State County Gender M1;
*run;

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

%let host0=server0;
signon host0;

%let host1=server1;
signon host1 user='server1\esuess' password='not-my-passwd';

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

rsubmit host0 wait=no notify=yes;
OPTIONS THREADS=YES CPUCOUNT=1;

*proc upload data=data03;
*%run;

libname data0 'E:\Data0';

data data0.data03;
	Infile "E:\Data0\data03.txt";
	input ID State County Gender M1;
run;

proc summary data=data0.data03 print;
	var M1;
run;
proc univariate data=data0.data03;
	var M1;
run;
proc chart data=data0.data03;
	vbar M1;
run;
proc freq data=data0.data03;
	tables State County Gender State*Gender;
run;
proc means data=data0.data03 n mean std maxdec=2;
	class State;
	title 'Mean scores for each State';
	var M1;
run;
proc sort data=data0.data03;
	by State County Gender;
run;
proc means data=data0.data03 n mean std maxdec=2;
	by State County Gender;
	title 'Mean scores for each State, County, and Gender';
	var M1;
run;
/* Create a new data set using the "output" subcommand. */
proc means data=data0.data03 noprint nway;
	class State County Gender;
	var M1;
	output out=locationsum0
		n = n_measurement
		mean = m_measurement
		std = s_measurement
		max = max_measurement
		min = min_measurement;
run;	
proc print data=locationsum0;
	title 'Listing of data set locationsum';
run;
proc download data=locationsum0;
run;
endrsubmit;

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

rsubmit host1 wait=no notify=yes;
OPTIONS THREADS=YES CPUCOUNT=4;

*proc upload data=data03;
*%run;

libname data0 'E:\Data0';

data data0.data03;
	Infile "E:\Data0\data03.txt";
	input ID State County Gender M1;
run;

proc summary data=data0.data03 print;
	var M1;
run;
proc univariate data=data0.data03;
	var M1;
run;
proc chart data=data0.data03;
	vbar M1;
run;
proc freq data=data0.data03;
	tables State County Gender State*Gender;
run;
proc means data=data0.data03 n mean std maxdec=2;
	class State;
	title 'Mean scores for each State';
	var M1;
run;
proc sort data=data0.data03;
	by State County Gender;
run;
proc means data=data0.data03 n mean std maxdec=2;
	by State County Gender;
	title 'Mean scores for each State, County, and Gender';
	var M1;
run;
/* Create a new data set using the "output" subcommand. */
proc means data=data0.data03 noprint nway;
	class State County Gender;
	var M1;
	output out=locationsum1
		n = n_measurement
		mean = m_measurement
		std = s_measurement
		max = max_measurement
		min = min_measurement;
run;	
proc print data=locationsum1;
	title 'Listing of data set locationsum';
run;
proc download data=locationsum1;
run;
endrsubmit;

listtask;

waitfor _all_ host0 host1;

rget host0; signoff host0;
rget host1; signoff host1;

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

proc print data=locationsum0;
	title 'Listing of data set locationsum';
run;
proc contents data=locationsum0;
run;

proc print data=locationsum1;
	title 'Listing of data set locationsum';
run;
proc contents data=locationsum1;
run;