*SAS RETRIEVAL CODE TO READ AND PRINT THE PERCENTAGE OF POSSIBLE                
 SUNSHINE FILE (FILE 12 ON THE MAGNETIC TAPE);                                  
DATA PCTSUN;                                                                    
INFILE IN;                                                                      
INPUT WBAN 2-6 STATE $ 8-9 STANAME $ 11-25 YEAR 27-30                           
 JAN 31-35 JANFL1 $ 36 JANFL2 $ 37 JANFL3 $ 38 JANFL4 $ 39                      
 FEB 40-44 FEBFL1 $ 45 FEBFL2 $ 46 FEBFL3 $ 47 FEBFL4 $ 48                      
 MAR 49-53 MARFL1 $ 54 MARFL2 $ 55 MARFL3 $ 56 MARFL4 $ 57                      
 APR 58-62 APRFL1 $ 63 APRFL2 $ 64 APRFL3 $ 65 APRFL4 $ 66                      
 MAY 67-71 MAYFL1 $ 72 MAYFL2 $ 73 MAYFL3 $ 74 MAYFL4 $ 75                      
 JUN 76-80 JUNFL1 $ 81 JUNFL2 $ 82 JUNFL3 $ 83 JUNFL4 $ 84                      
 JUL 85-89 JULFL1 $ 90 JULFL2 $ 91 JULFL3 $ 92 JULFL4 $ 93                      
 AUG 94-98 AUGFL1 $ 99 AUGFL2 $ 100 AUGFL3 $ 101 AUGFL4 $ 102                   
 SEP 103-107 SEPFL1 $ 108 SEPFL2 $ 109 SEPFL3 $ 110 SEPFL4 $ 111                
 OCT 112-116 OCTFL1 $ 117 OCTFL2 $ 118 OCTFL3 $ 119 OCTFL4 $ 120                
 NOV 121-125 NOVFL1 $ 126 NOVFL2 $ 127 NOVFL3 $ 128 NOVFL4 $ 129                
 DEC 130-134 DECFL1 $ 135 DECFL2 $ 136 DECFL3 $ 137 DECFL4 $ 138                
 MEAN 140-144;                                                                  
 FILE PRINT NOTITLE HEADER=NEWPAGE;                                             
 PUT WBAN 2-6 STATE $ 8-9 STANAME $ 11-25 / YEAR 3-6                            
  JAN 8-12  JANFL1 $ 13 JANFL2 $ 14 JANFL3 $ 15 JANFL4 $ 16                     
  FEB 18-22 FEBFL1 $ 23 FEBFL2 $ 24 FEBFL3 $ 25 FEBFL4 $ 26                     
  MAR 28-32 MARFL1 $ 33 MARFL2 $ 34 MARFL3 $ 35 MARFL4 $ 36                     
  APR 38-42 APRFL1 $ 43 APRFL2 $ 44 APRFL3 $ 45 APRFL4 $ 46                     
  MAY 48-52 MAYFL1 $ 53 MAYFL2 $ 54 MAYFL3 $ 55 MAYFL4 $ 56                     
  JUN 58-62 JUNFL1 $ 63 JUNFL2 $ 64 JUNFL3 $ 65 JUNFL4 $ 66                     
  JUL 68-72 JULFL1 $ 73 JULFL2 $ 74 JULFL3 $ 75 JULFL4 $ 76                     
  AUG 78-82 AUGFL1 $ 83 AUGFL2 $ 84 AUGFL3 $ 85 AUGFL4 $ 86                     
  SEP 88-92 SEPFL1 $ 93 SEPFL2 $ 94 SEPFL3 $ 95 SEPFL4 $ 96                     
  OCT 98-102 OCTFL1 $ 103 OCTFL2 $ 104 OCTFL3 $ 105 OCTFL4 $ 106                
  NOV 108-112 NOVFL1 $ 113 NOVFL2 $ 114 NOVFL3 $ 115 NOVFL4 $ 116               
  DEC 118-122 DECFL1 $ 123 DECFL2 $ 124 DECFL3 $ 125 DECFL4 $ 126               
  MEAN 128-132;                                                                 
 RETURN;                                                                        
 NEWPAGE:                                                                       
 PUT @2 'WBAN  STATE & STATION'/                                                
 @3 'YEAR    JAN       FEB       MAR       APR       MAY       JUN'             
 '       JUL       AUG       SEP       OCT       NOV       DEC'                 
 '     MEAN'/;                                                                  
 RETURN;                                                                        
RUN;