*SAS RETRIEVAL CODE TO READ AND PRINT THE MEASURED HOURS OF
 SUNSHINE FILE (FILE 10 ON THE MAGNETIC TAPE);

DATA HRSSUN;                                                                    
 INFILE IN;
  INPUT WBAN 2-6 PWBAN 8-12 MON 14-15
  STATION $ 18-35 YEAR 38-41
  JAN 44-46 FEB 49-51 MAR 54-56 APR 59-61 MAY 64-66 JUN 69-71 JUL 74-76 AUG 79-81   
  SEP 84-86 OCT 89-91 NOV 94-96 DEC 99-101 TOTAL 105-108;
 FILE PRINT NOTITLE HEADER=NEWPAGE;
 PUT _INFILE_;
 RETURN;                                                                         
 NEWPAGE:
 PUT @2 'WBAN# PREV# MO  STATE & STATION     YEAR  JAN  FEB'
 '  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC  TOTAL'/;
RETURN;
RUN;