* SAMPLE SAS PROGRAM "CPH_202.SAS" ;

/* READS DATA FROM "U:\ArchiveData\cph\202\master.costat.padded" */
/* INPUT DATA HAS A VARIABLE RECORD FORMAT AND 
   HAS A MAXIMUM RECORD LENGTH OF 717 */ 
/* DATA CONTAINS MULTIPLE RECORDS PER OBSERVATION */ 
/* CREATES A SAS DATASET THAT INCLUDES PER CAPITA PERSONAL 
   INCOME 1989-92, STATE AND COUNTY CODES */   

libname here 'U:\Users\your_netid\' ;
filename in  'U:\ArchiveData\cph\202\master.costat.padded'  RECFM=V lrecl=717;

data temp;
infile in ;

input
#43 stcou1 1-2 stcou2 3-5 stcou 1-5
ip02089f 388 ip02089d 389-398
ip02090f 399 ip02090d 400-409
ip02091f 410 ip02091d 411-420
ip02092f 421 ip02092d 422-431

#63;

label
 stcou = "FIPS"
 stcou1 = "COUNTY CODES- STATE"
 stcou2 = "COUNTY CODES - COUNTY"
 ip02089f = "FLAG - 1989 PER CAPITA PERS INC"
 ip02089d = "1989 PER CAPITA PERSONAL INCOME"
 ip02090f = "FLAG - 1990 PER CAPITA PERS INC"
 ip02090d = "1990 PER CAPITA PERSONAL INCOME"
 ip02091f = "FLAG - 1991 PER CAPITA PERS INC"
 ip02091d = "1991 PER CAPITA PERSONAL INCOME"
 ip02092f = "FLAG - 1992 PER CAPITA PERS INC"
 ip02092d = "1992 PER CAPITA PERSONAL INCOME"
 ;

proc means data=temp;
proc freq data=temp;
tables ip02089f ip02090f ip02091f ip02092f;

proc freq data=temp(where=(stcou2=00 or stcou1=0));
tables stcou2 ;

data here.marg_dat ; set temp ; run;

proc means data=here.marg_dat;
run;



       /* CREATING SAS TRANSPORT FILE "marg_dat.trn" */ 

libname trn xport './marg_dat.trn' ;
proc copy in=here out=trn;
select marg_dat ;
run;