*SAS RETRIEVAL CODE TO READ AND PRINT THE MAXIMUM POSSIBLE HOURS
 OF SUNSHINE FILE (FILE 11 ON THE MAGNETIC TAPE);
DATA MAXSUN;

 INFILE IN;
 INPUT WBAN 2-6  STATION $ 8-25
       JAN 27-29 FEB 31-33 MAR 35-37 APR 39-41
       MAY 43-45 JUN 47-49 JUL 51-53 AUG 55-57
       SEP 59-61 OCT 63-65 NOV 67-69 DEC 71-73
       TOTAL 75-80  ADJUST 82-85;

 FILE PRINT NOTITLE HEADER=NEWPAGE;
 PUT _INFILE_;
 RETURN;

 NEWPAGE:
 PUT @81 'LEAPYR' /
 @2  'WBAN  STATE & STATION    JAN FEB MAR APR MAY'
     ' JUN JUL AUG SEP OCT NOV DEC  TOTAL ADJ.'/;
 RETURN;

RUN;