SAS - split file into subsets using call execute

SAS_call_execute_split_file

	proc sort data=sashelp.class out=class;
	by age;
	run;

	data _null_;
	set class;
	by age;
	retain count;

	if first.age then do;
		count+1;

		*create string;
		str1='data sub'||put(count,z3.)||"; set sashelp.class; where age="||put(age, 2.)||";run;";
		call execute(str1);

	end;
	run;