/*
This is an example of a PC SAS program that creates a SAS data set from the ASCII 1968-78
mortality file.. 
*/
options nocenter ;
  
*THE OUTPUT DATA SET IS STORED IN /home/data/cmf AND IS NAMED MORT7988;
*********************************************************************;
* PLACE NEXT TWO STATEMENTS IN SUBSEQUENT PROGRAMS;

*option obs=20;
LIBNAME CMF    '/home/data/cmf';
LIBNAME LIBRARY '.';
PROC FORMAT library=library;
 ; VALUE FSTATE
    1               = "Alabama"
    2               = "Alaska"
    4               = "Arizona"
    5               = "Arkansas"
    6               = "California"
    8               = "Colorado"
    9               = "Connecticut"
   10               = " Delaware"
   11               = "District of Columbia"
   12               = "Florida"
   13               = "Georgia"   
   15               = "Hawaii"  
   16               = "Idaho"
   17               = "Illinois"
   18               = "Indiana"
   19               = "Iowa"
   20               = "Kansas"
   21               = "Kentucky"
   22               = "Louisiana"
   23               = "Maine"
   24               = "Maryland"
   25               = "Massachusetts"
   26               = "Michigan"
   27               = "Minnesota"
   28               = "Mississippi"
   29               = "Missouri"
   30               = "Montana"
   31               = "Nebraska"
   32               = "Nevada"
   33               = "New Hampshire"
   34               = "New Jersey"
   35               = "New Mexico"
   36               = "New York"
   37               = "North Carolina"
   38               = "North Dakota"
   39               = "Ohio"
   40               = "Oklahoma"
   41               = "Oregon"
   42               = "Pennsylvania"
   44               = "Rhode Island"
   45               = "South Carolina"
   46               = "South Dakota"
   47               = "Tennessee"
   48               = "Texas"
   49               = "Utah"
   50               = "Vermont"
   51               = "Virginia"
   53               = "Washington"
   54               = "West Virginia"
   55               = "Wisconsin"
   56               = "Wyoming"    
 ;
 ; VALUE RS       
   1                  = "White male"
   2                  = "White female"
   3                  = "Black male"
   4                  = "Black female"
   5                  = "Other male"
   6                  = "Other female"
   ;
 
 ; VALUE MORTAGE
    1                = "Under 1 day"
    2                = "1-6 days"
    3                = "7-27 days"
    4                = "28-365 days"
    5                = "1-4 years"
    6                = "5-9 years"
    7                = "10-14 years"
    8                = "15-19 years"
    9                = "20-24 years"
   10                = "25-34 years"
   11                = "35-44 years"   
   12                = "45-54 years"
   13                = "55-64 years"   
   14                = "65-74 years"
   15                = "75-84 years"   
   16                = "85+ years"   
   99                = "Unknown"   
;

 ; VALUE RTYPE
     1               ="National"   
     2               ="State"   
     3               ="County"   
; 

  * CREATE A SAS DATA SET NAMED MORT7988 AND STORE IN DIR 'C:\CMF\';
filename piper pipe 'zcat /home/data/cmf/mort7988.Z';
DATA library.MORT7988;

  *READ IN FILE FROM CD-ROM;
   INFILE piper MISSOVER LRECL=23; 
 
  * DEFINE LENGTH OF NUMERIC VARIABLES;

   LENGTH
      STATE    3 
      COUNTY   3 
      YEAR     4  
      RACESEX  3 
      AGE      3
      ICDCODE  4  
      IRECODE  3
      NDEATHS  4; 

   * INPUT ALL VARIABLES;

   INPUT
      STATE   1-2   
      COUNTY  3-5
      YEAR    6-9
      RACESEX 10
      AGE     11-12
      ICDCODE 13-16
      IRECODE 17-19
      NDEATHS 20-23;
   
* DEFINE VARIABLE LABELS;

   LABEL
      STATE   ="FIPS State Code"
      COUNTY  ="FIPS County Code"
      YEAR    ="Year of Death"
      RACESEX ="Race-sex"
      AGE     ="Age at Death"
      ICDCODE ="ICD Code, underlying cause"
      IRECODE ="Cause of death recode"
      NDEATHS ="Number of deaths"
   ;
   FORMAT
      STATE FSTATE.
      RACESEX RS.
      AGE  MORTAGE.
   ;



*proc print data=library.mort7988 (obs=20);
*PROC CONTENTS DATA=library.MORT7988;

PROC FREQ DATA=library.MORT7988;
   TITLE1 'FREQUENCY REPORT FOR CMF1968-78 MORTALITY FILE';
   TABLES STATE RACESEX AGE;
   where year = 1988 ;
   format state fstate. racesex rs. age mortage. ;
RUN ;

PROC FREQ DATA=library.MORT7988;
weight ndeaths;
   TABLES state racesex age ;
   where year = 1988 ;
   format state fstate. racesex rs. age mortage. ;
RUN;

PROC FREQ DATA=library.MORT7988;
tables year;

* NOTE: TO SEE UNFORMATTED VALUES IN PROC FREQ, ADD THE
        STATEMENT: FORMAT _ALL_;
RUN;