/*  Must run program c05s2d4 first to create ia.ctargett.  */

data ia.mssepart;
	set ia.monthsum(keep=SaleMon RevCargo);
	length Month $ 8;
	Year=input(substr(SaleMon,4),4.);
	Month=trim(upcase(substr(SaleMon,1,1)))||lowcase(substr(SaleMon,2,2));
run;

proc sort data =ia.mssepart;
	by Year Month;
run;

proc sort data =ia.ctargett out=ia.ctargtts;
	by Year Month;	
run;

data ia.merged;
	merge ia.mssepart ia.ctargtts;
	by Year Month;
run;

proc print data=ia.merged;
	format CTarget dollar14.;
	var SaleMon Month Year RevCargo CTarget;
	title 'Transposed Target and Actual Values Merged';
run;