* SAS RETRIEVAL CODE TO READ AND PRINT THE STATION INVENTORY FILE FOR           
  THE HCN/D DATA SET (FILE 8 ON THE MAGNETIC TAPE);                             
                                                                                
DATA INVENT;                                                                    
LENGTH STNAME $ 23;                                                             
INFILE IN;                                                                      
INPUT STCODE $ 2-3 CNI $ 6-9 STATE $ 12-13 STNAME 16-38 BMON $ 41-42            
      BYEAR $ 45-48 TOBS $ 51-55 LATDEG 58-59 LATMIN 62-63                      
      LONDEG 66-68 LONMIN 71-72;                                                
                                                                                
 FILE PRINT NOTITLE HEADER=NEWPAGE;                                             
 PUT _INFILE_;                                                                  
 RETURN;                                                                        
                                                                                
 NEWPAGE:                                                                       
 PUT @2 'ST  CNI   ST  STATION NAME' @41 'MO  YEAR  TOBS  DEG MIN'              
     @66 'DEG MIN';                                                             
 RETURN;                                                                        
                                                                                
RUN;