/*****************************************************/
/* STAT 330, Fall 2011                               */
/* Homework 10                                       */
/*****************************************************/

options nocenter nodate nonumber pageno=1 pagesize=55 linesize=90;

x "cd C:\temp\";

%let drive=C;

libname saveLoc "&drive:\Classes\STAT 330\2011-4\Homework";

options mlogic;
options mprint;

/* 10.1.1 */

%let path=&drive:\Classes\STAT 330\2011-4\Homework;
%let months=01 02 03 04 05 06 07 08 09 10 11 12;

%macro readIce;

  %do iter=1 %to 12;
    %let month=%scan(&months,&iter);

    data _null_;
	  infile "&path\N_MissingValues.txt" firstobs=2;
	  input month $ missNo;
	  if month="&month";
	  call symput("missVal", compress(missNo));
	run;

    filename iceTXT "&path\N_&month._area.txt";

    data ice&month;
      infile iceTXT firstobs=2 obs=33;
      input year month type $ region $ extent area;
	  array chars $ _character_;
	  array numrs _numeric_;
	  do over chars;
	    if chars="&missVal" then chars="";
	  end;
	  do over numrs;
	    if numrs = &missVal then numrs=.;
	  end;
    run;
  %end;

%mend readIce;

%readIce;


proc print data=ice01;
proc print data=ice03;
run;