* SAS RETRIEVAL CODE TO READ ANY OF THE HCN/D DATA FILES
  FROM CDIAC'S NDP-070;                       

DATA HCND;                               
                                  
array day {31} $ 8 day1-day31;               
array sf {31} $ 1 sf1-sf31;           
array dmf {31} $ 1 dmf1-dmf31;      
array dqf {31} $ 1 dqf1-dqf31;                   
array chval {31} $ 4 chval1-chval31;      
array value {31} value1-value31;    

INFILE 'state07' lrecl=270;                 
INPUT staid $ 1-6 dattyp $ 8-11 units $ 12-13 year 14-17 mon 18-19
 days 21-22 @23 (day1-day31) ($char8.);                     
                                                      
do i=1 to 31;                       
  sf{i}=substr(day{i},2,1);   
  chval{i}=substr(day{i},3,4);              
  dmf{i}=substr(day{i},7,1);          
  dqf{i}=substr(day{i},8,1);     
*value{i} will contain integer values;           
 value{i}=input(chval{i},4.);              
end;                              
                       
RUN;