/******************************************************************************/
/* IF YOU RECEIVED THE PEDSF 5PERCENT FILE BEFORE APRIL 2007 THEN YOU WILL    */
/* NEED A DIFFERENT INPUT STATEMENT. PLEASE CONTACT ANGELA MEEKINS VIA        */
/* E-MAIL MEEKINSA@IMSWEB.COM AND AN INPUT STATEMENT WILL BE SENT TO YOU.     */
/*                                                                            */
/* This input statement is used to read in the pedsf.5percent.txt             */
/* file.                                                                      */
/******************************************************************************/

*filename inped '/directory/pedsf.5percent.txt';		   /*reading in an un-zipped file*/ 
filename inped pipe 'gunzip -c /directory/pedsf.5percent.txt.gz';  /*reading in a zipped file*/

options nocenter validvarname=upcase;

data pedsf;
  infile inped lrecl=1273 missover pad;
  
  array enta(20)    $ ptacnt1986-ptacnt2005;
  array entb(20)    $ ptbcnt1986-ptbcnt2005;
  array hmoc(20)    $ hmocnt1986-hmocnt2005;
  array stbuy(20)   $ stbuy1986-stbuy2005;
  array enmon(240)  $ mon1-mon240;
  array ghon(240)   $ gho1-gho240;
  input 
      @0001  regcase   $char10.
      @0011  fivepct   $char1.
      @0012  mat_type  $char1.
      @0013  yobflg1   $char1.
      @0014  dobflg2   $char1.
      @0015  yodflg3   $char1.
      @0016  sexflg4   $char1.
      @0017  lstflg5   $char1.
      @0018  fstflg6   $char1.
      @0019  mobflg7   $char1.
      @0020  midflg8   $char1.
      @0021  numdigit  $char1.
      @0022  dod_flg   $char1.
      @0024  med_dodm  $char2.
      @0026  med_dodd  $char2.
      @0028  med_dody  $char4.
      @0032  birthm    $char2.
      @0036  birthyr   $char4.
      @0040  m_sex     $char1.
      @0041  race      $char1.
      @0042  rsncd1    $char1.
      @0043  cur_ent   $char1.
      @0044  chr_esrd  $char1.
      @0045  med_stcd  $char2.      
      @0047  STATE     $char2.
      @0049  COUNTY    $char3.
      @0052  zip       $char9.        /*Special permission required*/
      @0061  code_sys  $char1.
      @0062  tract     $char6.        /*Special permission required*/
      @0068  tract2k   $char6.        /*Special permission required*/
      @0074  HSA       $char3.
      @0077  URBRUR    $char1.
      @0078  URBAN     $char2.      
      @0080  ctpci90   10.
      @0090  ctmed90   10.
      @0100  ctden90   10.
      @0110  ctnon90   6.2
      @0116  cthso90   6.2
      @0122  ctscl90   6.2
      @0128  ctcol90   6.2
      @0134  ctblk90   6.2
      @0140  ctwht90   6.2
      @0146  cthsp90   6.2
      @0152  ctpov90   6.2
      @0158  cten590   6.2
      @0164  cten690   6.2
      @0170  medag90   10.
      @0180  medrc90   10.
      @0190  povrc90   6.2
      @0196  nonrc90   6.2
      @0202  hsorc90   6.2
      @0208  sclrc90   6.2
      @0214  colrc90   6.2            
      @0220  zppci90   10.
      @0230  zpmed90   10.
      @0240  zpden90   10.
      @0250  zpnon90   6.2
      @0256  zphso90   6.2
      @0262  zpscl90   6.2
      @0268  zpcol90   6.2
      @0274  zpblk90   6.2
      @0280  zpwht90   6.2
      @0286  zphsp90   6.2
      @0292  zpen590   6.2 
      @0298  zpen690   6.2
      @0304  znonrc90  6.2
      @0310  zhsorc90  6.2
      @0316  zsclrc90  6.2
      @0322  zcolrc90  6.2
      @0328  ctpci00   10.
      @0338  ctmed00   10.
      @0348  ctden00   10.
      @0358  ctnon00   6.2
      @0364  cthso00   6.2
      @0370  ctscl00   6.2
      @0376  ctcol00   6.2
      @0382  ctblk00   6.2
      @0388  ctwht00   6.2
      @0394  cthsp00   6.2
      @0400  ctpov00   6.2
      @0406  cten500   6.2
      @0412  cten600   6.2      
      @0418  medag00   10.
      @0428  medrc00   10.
      @0438  povrc00   6.2
      @0444  nonrc00   6.2
      @0450  hsorc00   6.2
      @0456  sclrc00   6.2
      @0462  colrc00   6.2      
      @0468  zppci00   10.
      @0478  zpmed00   10.
      @0488  zpden00   10.      
      @0498  zpnon00   6.2
      @0504  zphso00   6.2
      @0510  zpscl00   6.2
      @0516  zpcol00   6.2
      @0522  zpblk00   6.2
      @0528  zpwht00   6.2
      @0534  zphsp00   6.2
      @0540  zpen500   6.2
      @0546  zpen600   6.2
      @0552  znonrc00  6.2
      @0558  zhsorc00  6.2
      @0564  zsclrc00  6.2
      @0570  zcolrc00  6.2          
      @;

 inc=633;
      retain begin end;
      begin=1;
      end=12;

      do i = 1 to 20;
        do p = begin to end;
	         input @inc      enmon(p) $char1.
	               @inc + 12 ghon(p)  $char1.
	               @;
	               inc=inc + 1;
	               end;
	      begin = begin + 12;
	      end = end + 12;
      input @inc + 12  enta(i)  $char2.
            @inc + 14  entb(i)  $char2.
	          @inc + 16  hmoc(i)  $char2.
	          @inc + 18  stbuy(i) $char2.
	          @;
	          inc=inc + 20;
            end;   
  input;

label
  regcase  = 'SEER Registry Case Number'
  fivepct  = 'Five Percent Indicator'
  mat_type = 'Match Type'
  yobflg1  = 'Year of Birth Flag'
  dobflg2  = 'Day of Birth Flag'
  yodflg3  = 'Year of Death Flag'
  sexflg4  = 'Sex Flag'
  lstflg5  = 'Last Name Flag'
  fstflg6  = 'First Name Flag'
  mobflg7  = 'Month of Birth Flag'
  midflg8  = 'Middle Initial Flag'
  dod_flg  = 'Date of Death Flag'
  med_dodm = 'Medicare Month of Death'
  med_dodd = 'Medicare Day of Death'
  med_dody = 'Medicare Year of Death'
  birthm   = 'Medicare Month of Birth'
  birthyr  = 'Medicare Year of Birth'
  m_sex    = 'Medicare Sex'
  race     = 'Medicare Race'
  rsncd1   = 'Original Reason for Entitlement'
  cur_ent  = 'Current Reason for Entitlment'
  chr_esrd = 'Chronic Renal Disease'
  med_stcd = 'Medicare Status Code'
  mon1     = 'Part A and B Entitlement Indicator'
  gho1     = 'HMO Entitlement Indicator'
  ptacnt1986 = 'Number of Months in 1986 Covered for Part A'
  ptacnt1987 = 'Number of Months in 1987 Covered for Part A'
  ptacnt1988 = 'Number of Months in 1988 Covered for Part A'
  ptacnt1989 = 'Number of Months in 1989 Covered for Part A'
  ptacnt1990 = 'Number of Months in 1990 Covered for Part A'
  ptacnt1991 = 'Number of Months in 1991 Covered for Part A'
  ptacnt1992 = 'Number of Months in 1992 Covered for Part A'
  ptacnt1993 = 'Number of Months in 1993 Covered for Part A'
  ptacnt1994 = 'Number of Months in 1994 Covered for Part A'
  ptacnt1995 = 'Number of Months in 1995 Covered for Part A'
  ptacnt1996 = 'Number of Months in 1996 Covered for Part A'
  ptacnt1997 = 'Number of Months in 1997 Covered for Part A'
  ptacnt1998 = 'Number of Months in 1998 Covered for Part A'
  ptacnt1999 = 'Number of Months in 1999 Covered for Part A'
  ptacnt2000 = 'Number of Months in 2000 Covered for Part A'
  ptacnt2001 = 'Number of Months in 2001 Covered for Part A'
  ptacnt2002 = 'Number of Months in 2002 Covered for Part A'
  ptacnt2003 = 'Number of Months in 2003 Covered for Part A'
  ptacnt2004 = 'Number of Months in 2004 Covered for Part A'
  ptacnt2005 = 'Number of Months in 2005 Covered for Part A'
  ptbcnt1986 = 'Number of Months in 1986 Covered for Part B'
  ptbcnt1987 = 'Number of Months in 1987 Covered for Part B'
  ptbcnt1988 = 'Number of Months in 1988 Covered for Part B'
  ptbcnt1989 = 'Number of Months in 1989 Covered for Part B'
  ptbcnt1990 = 'Number of Months in 1990 Covered for Part B'
  ptbcnt1991 = 'Number of Months in 1991 Covered for Part B'
  ptbcnt1992 = 'Number of Months in 1992 Covered for Part B'
  ptbcnt1993 = 'Number of Months in 1993 Covered for Part B'
  ptbcnt1994 = 'Number of Months in 1994 Covered for Part B'
  ptbcnt1995 = 'Number of Months in 1995 Covered for Part B'
  ptbcnt1996 = 'Number of Months in 1996 Covered for Part B'
  ptbcnt1997 = 'Number of Months in 1997 Covered for Part B'
  ptbcnt1998 = 'Number of Months in 1998 Covered for Part B'
  ptbcnt1999 = 'Number of Months in 1999 Covered for Part B'
  ptbcnt2000 = 'Number of Months in 2000 Covered for Part B'
  ptbcnt2001 = 'Number of Months in 2001 Covered for Part B'
  ptbcnt2002 = 'Number of Months in 2002 Covered for Part B'
  ptbcnt2003 = 'Number of Months in 2003 Covered for Part B'
  ptbcnt2004 = 'Number of Months in 2004 Covered for Part B'
  ptbcnt2005 = 'Number of Months in 2005 Covered for Part B'
  hmocnt1986 = 'Number of Months in 1986 as an HMO member'
  hmocnt1987 = 'Number of Months in 1987 as an HMO member'
  hmocnt1988 = 'Number of Months in 1988 as an HMO member'
  hmocnt1989 = 'Number of Months in 1989 as an HMO member'
  hmocnt1990 = 'Number of Months in 1990 as an HMO member'
  hmocnt1991 = 'Number of Months in 1991 as an HMO member'
  hmocnt1992 = 'Number of Months in 1992 as an HMO member'
  hmocnt1993 = 'Number of Months in 1993 as an HMO member'
  hmocnt1994 = 'Number of Months in 1994 as an HMO member'
  hmocnt1995 = 'Number of Months in 1995 as an HMO member'
  hmocnt1996 = 'Number of Months in 1996 as an HMO member'
  hmocnt1997 = 'Number of Months in 1997 as an HMO member'
  hmocnt1998 = 'Number of Months in 1998 as an HMO member'
  hmocnt1999 = 'Number of Months in 1999 as an HMO member'
  hmocnt2000 = 'Number of Months in 2000 as an HMO member'
  hmocnt2001 = 'Number of Months in 2001 as an HMO member'
  hmocnt2002 = 'Number of Months in 2002 as an HMO member'
  hmocnt2003 = 'Number of Months in 2003 as an HMO member'
  hmocnt2004 = 'Number of Months in 2004 as an HMO member'
  hmocnt2005 = 'Number of Months in 2005 as an HMO member'
  stbuy1986 = 'Number of Months in 1986 with State Buy-in Coverage'
  stbuy1987 = 'Number of Months in 1987 with State Buy-in Coverage'
  stbuy1988 = 'Number of Months in 1988 with State Buy-in Coverage'
  stbuy1989 = 'Number of Months in 1989 with State Buy-in Coverage'
  stbuy1990 = 'Number of Months in 1990 with State Buy-in Coverage'
  stbuy1991 = 'Number of Months in 1991 with State Buy-in Coverage'
  stbuy1992 = 'Number of Months in 1992 with State Buy-in Coverage'
  stbuy1993 = 'Number of Months in 1993 with State Buy-in Coverage'
  stbuy1994 = 'Number of Months in 1994 with State Buy-in Coverage'
  stbuy1995 = 'Number of Months in 1995 with State Buy-in Coverage'
  stbuy1996 = 'Number of Months in 1996 with State Buy-in Coverage'
  stbuy1997 = 'Number of Months in 1997 with State Buy-in Coverage'
  stbuy1998 = 'Number of Months in 1998 with State Buy-in Coverage'
  stbuy1999 = 'Number of Months in 1999 with State Buy-in Coverage'
  stbuy2000 = 'Number of Months in 2000 with State Buy-in Coverage'
  stbuy2001 = 'Number of Months in 2001 with State Buy-in Coverage'
  stbuy2002 = 'Number of Months in 2002 with State Buy-in Coverage'
  stbuy2003 = 'Number of Months in 2003 with State Buy-in Coverage'
  stbuy2004 = 'Number of Months in 2004 with State Buy-in Coverage'
  stbuy2005 = 'Number of Months in 2005 with State Buy-in Coverage'
  state    = 'State'
  county   = 'County'
  zip      = 'Zip Code'
  tract    = 'Census Tract 1970/80/90'
  tract2k  = 'Census Tract 2000'
  hsa      = 'Health Service Area'
  ctpci90  = 'Census Tract PCI (Census 1990)'                       
  ctmed90  = 'Census Tract Median Income (Census 1990)'             
  ctnon90  = 'Census Tract Pct Non High School Grads (Census 1990)'
  cthso90  = 'Census Tract Pct High School Only (Census 1990)'
  ctscl90  = 'Census Tract Pct Some College Education (Census 1990)'
  ctcol90  = 'Census Tract Pct College Education at least 4 years (Census 1990)' 
  ctden90  = 'Census Tract Density (Census 1990)'
  ctblk90  = 'Census Tract Pct Blacks (Census 1990)'                
  ctwht90  = 'Census Tract Pct Whites (Census 1990)'    
  cthsp90  = 'Census Tract Pct Hispanics (Census 1990)'
  ctpov90  = 'Census Tract Pct Poverty for All (Census 1990)'
  cten590  = 'Census Tract Pct of HHs who do not speak English well or at all 5+ (Census 1990)'
  cten690  = 'Census Tract Pct of HHs who do not speak English well or at all 65+ (Census 1990)'
  medag90  = 'Census Tract Median HH Income by Age (Census 1990)'
  medrc90  = 'Census Tract Median HH Income by Race (Census 1990)'
  povrc90  = 'Census Tract Pct Poverty by Race/Age (Census 1990)'
  nonrc90  = 'Census Tract Pct Non High School Grads by Race (Census 1990)'
  hsorc90  = 'Census Tract Pct High School Only by Race (Census 1990)'
  sclrc90  = 'Census Tract Pct Some College by Race (Census 1990)'
  colrc90  = 'Census Tract Pct College Education at least 4 years by Race (Census 1990)'
  zppci90  = 'Zip Code PCI (Census 1990)'                       
  zpmed90  = 'Zip Code Median Income (Census 1990)'             
  zpnon90  = 'Zip Code Pct Non High School Grads (Census 1990)'
  zphso90  = 'Zip Code Pct High School Only (Census 1990)'
  zpscl90  = 'Zip Code Pct Some College Education (Census 1990)'
  zpcol90  = 'Zip Code Pct College Education at least 4 years (Census 1990)' 
  zpden90  = 'Zip Code Density (Census 1990)'
  zpblk90  = 'Zip Code Pct Blacks (Census 1990)'                
  zpwht90  = 'Zip Code Pct Whites (Census 1990)'    
  zphsp90  = 'Zip Code Pct Hispanics (Census 1990)'
  zpen590  = 'Zip Code Pct of HHs who do not speak English well or at all 5+ (Census 1990)'
  zpen690  = 'Zip Code Pct of HHs who do not speak English well or at all 65+ (Census 1990)'
  znonrc90 = 'Zip Code Pct Non High School Grads by Race (Census 1990)'
  zhsorc90 = 'Zip Code Pct High School Only by Race (Census 1990)'
  zsclrc90 = 'Zip Code Pct Some College by Race (Census 1990)'
  zcolrc90 = 'Zip Code Pct College Education at least 4 years by Race (Census 1990)'
  ctpci00  = 'Census Tract PCI (Census 2000)'                       
  ctmed00  = 'Census Tract Median Income (Census 2000)'             
  ctnon00  = 'Census Tract Pct Non High School Grads (Census 2000)'
  cthso00  = 'Census Tract Pct High School Only (Census 2000)'
  ctscl00  = 'Census Tract Pct Some College Education (Census 2000)'
  ctcol00  = 'Census Tract Pct College Education at least 4 years (Census 2000)' 
  ctden00  = 'Census Tract Density (Census 2000)'
  ctblk00  = 'Census Tract Pct Blacks (Census 2000)'                
  ctwht00  = 'Census Tract Pct Whites (Census 2000)'    
  cthsp00  = 'Census Tract Pct Hispanics (Census 2000)'
  ctpov00  = 'Census Tract Pct Poverty for All (Census 2000)'
  cten500  = 'Census Tract Pct of HHs who do not speak English well or at all 5+ (Census 2000)'
  cten600  = 'Census Tract Pct of HHs who do not speak English well or at all 65+ (Census 2000)'
  medag00  = 'Census Tract Median HH Income by Age (Census 2000)'
  medrc00  = 'Census Tract Median HH Income by Race (Census 2000)'
  povrc00  = 'Census Tract Pct Poverty by Race/Age (Census 2000)'
  nonrc00  = 'Census Tract Pct Non High School Grads by Race (Census 2000)'
  hsorc00  = 'Census Tract Pct High School Only by Race (Census 2000)'
  sclrc00  = 'Census Tract Pct Some College by Race (Census 2000)'
  colrc00  = 'Census Tract Pct College Education by Race (Census 2000)'
  zppci00  = 'Zip Code PCI (Census 2000)'                       
  zpmed00  = 'Zip Code Median Income (Census 2000)'             
  zpnon00  = 'Zip Code Pct Non High School Grads (Census 2000)'
  zphso00  = 'Zip Code Pct High School Only (Census 2000)'
  zpscl00  = 'Zip Code Pct Some College Education (Census 2000)'
  zpcol00  = 'Zip Code Pct College Education at least 4 years (Census 2000)' 
  zpden00  = 'Zip Code Density (Census 2000)'
  zpblk00  = 'Zip Code Pct Blacks (Census 2000)'                
  zpwht00  = 'Zip Code Pct Whites (Census 2000)'    
  zphsp00  = 'Zip Code Pct Hispanics (Census 2000)'
  zpen500  = 'Zip Code Pct of HHs who do not speak English well or at all 5+ (Census 2000)'
  zpen600  = 'Zip Code Pct of HHs who do not speak English well or at all 65+ (Census 2000)'
  znonrc00 = 'Zip Code Pct Non High School Grads by Race (Census 2000)'
  zhsorc00 = 'Zip Code Pct High School Only by Race (Census 2000)'
  zsclrc00 = 'Zip Code Pct Some College by Race (Census 2000)'
  zcolrc00 = 'Zip Code Pct College Education by Race (Census 2000)'
  code_sys = 'Census Coding System 1970/1980/1990'
  ;
run;

proc contents data=pedsf position;
run;