* SAS RETRIEVAL CODE TO READ AND PRINT ANY OF THE HCN/D                         
  DATA FILES (FILES 10-14 ON THE MAGNETIC TAPE);                                
                                                                                
DATA HCND;                                                                      
                                                                                
array day  {31} $ day1-day31;                                                   
array chsf {31} $ 1 chsf1-chsf31;                                               
array dmf {31} $ dmf1-dmf31;                                                    
array dqf {31} $ dqf1-dqf31;                                                    
array chval {31} $ 4 chval1-chval31;                                            
array   val {31}   val1-val31;                                                  
                                                                                
INFILE IN lrecl=270;                                                            
INPUT @2 staid $ 2-7 dattyp $ 9-12 year 14-17 mon 18-19 days 21-22              
      @23 (day1-day31) ($char8.);                                               
                                                                                
*statements within the loop are included for use if one wishes to               
 use this program as a template for a program which does more than              
 simply print the file;                                                         
do i=1 to 31;                                                                   
  chsf{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);                                                    
*val{i} will contain integer values;                                            
  val{i}=input(chval{i},4.);                                                    
end;                                                                            
                                                                                
 FILE PRINT LRECL=126 NOTITLE HEADER=NEWPAGE;                                   
  put staid 2-7 dattyp 9-12 year 14-17 mon 18-19 days 21-22                     
      @23 (day1-day13) ($char8.) / @23 (day14-day26) ($char8.) /                
      @23 (day27-day31) ($char8.);                                              
                                                                                
 RETURN;                                                                        
                                                                                
 NEWPAGE:                                                                       
 PUT @2 'STAID  TYPE  YR/MO    1/14/27|2/15/28|3/16/29|4/17/30|5/18/31|'        
     @64 '  6/19 |  7/20 |  8/21 |  9/22 | 10/23 | 11/24 | 12/25 |'             
     @120 ' 13/26' / @24 12*'S    MQ|' @120 'S    MQ' /                         
     @24 12*'       |';                                                         
 RETURN;                                                                        
                                                                                
RUN;