OPTIONS PS=65 LS=75;                                                           
DATA HISTORY (DROP=X);                                                         
     RETAIN STACOD STATE DIVISION STANAME COUNTY XREF;                         
INFILE 'shf94.asc' MISSOVER LS=236;                                            
INPUT @45 x $1. @;                                                             
IF x ne ' ' then do;                                                           
  INPUT STACOD 1-6 STATE $ 8-9 DIVISION 11-12 STANAME $ 14-43                  
        COUNTY $ 45-60 XREF $ 62-86;                                           
END;                                                                           
ELSE                                                                           
INPUT STACOD2 1-6 MOBEG 8-9 DAYBEG 11-12 YRBEG 14-17                           
      MOEND 19-20 DAYEND 22-23 YREND 25-28 SUSPLAT 30                          
      SUSPLONG 31 SUSPLOC 32 SUSPELEV 33 SUSPPO 34 SUSPNAME 35                 
      SUSPQUAL 36 SUSPINST 37 SUSPTIME 38 SUSPHTS 39                           
      SUSPPUBS 40 SUSPBEG 41 SUSPEND 42 SUSPOBS 43 SUSPOTHR 44                 
      LATDEG 46-48 LATMIN 49-51 LONGDEG 53-56 LONGMIN 57-59                    
      DISTANCE 61-63 DPLUNIT $ 64 DIRECT $ 65-67 ELEV 69-73                    
      DISTPO 75-78 DPOUNIT $ 79 DIRECTPO $ 80-82 NAME $ 84-111                 
      QUALIF $ 113-122 AI 124 CRS 125 DT 126 EVA 127 FP 128                    
      HYTHG 129 MN 130 MX 131 NRIG 132 NSRG 133 NSS 134                        
      RRIG 135 RRNG 136 SDE 137 SG 138 SRG 139 SS 140 TG 141                   
      DGT 142 TB 143 EVO 144 MMTS 145 TELSY 146 HYGRO 147                      
      HY6 148 HY8 149 SFP 150 SRRNG 151 SSG 152 SSRG 153 STB 154               
      AMOS 155 AUTOB 156 PSY 157 PCPOT $ 161-162 TMPOT $ 163-164               
      PCPHT $ 166-167 TMPHT $ 168-169 BULLETW 171 COMBBUL 172                  
      CLIMDATA 173 RIVSTAGE 174 HYDROBUL 175 PRECDATA 176                      
      SNOWBULL 177 NOTPUB 178 CWB 179 MONTHREV 180 STATEPUB 181                
      LCD 182 BQ 183 SGPD 184 WWR 185 MYB 186 OBSNAME $ 188-233                
      NUMOBS 235-236;                                                          
PROC PRINT;                                                                    
RUN;