* SAS data retrieval routine to read the files named;
* "ussr*.sas" (Files 10-15, Tape 1 and Files 1-3, Tape 2).;
*;
DATA DAILY;
LENGTH FLAGA1-FLAGA31 FLAGB1-FLAGB31 $ 1;
ARRAY DATA(31);
ARRAY FLAGA(31) $;
ARRAY FLAGB(31) $;
INFILE 'ussr*.data' lrecl=266;
INPUT WMO 5. TYPE $CHAR4. YEAR 4. MONTH 2. NOBS 2. @;
DO I = 1 TO NOBS;
  INPUT DAY 2. DATA(DAY) 4. FLAGA(DAY) $CHAR1. FLAGB(DAY) $CHAR1. @;
END;
RUN;