* SAS data retrieval code to read and print the GHCN;
* flag code files (Files 1-4 on the second magnetic tape)...;
*;
DATA CODES;
INFILE IN;
ARRAY SOURCE(12);
ARRAY REVISE(12);
ARRAY SUSP(12);
ARRAY DISC(12);
INPUT COUNTRY 1-3 STATION 4-10 YEAR 11-14 @;
DO J = 1 TO 12;
     INPUT SOURCE(J) 2. REVISE(J) 1. SUSP(J) 1. DISC(J) 1. @;
END;
PROC PRINT;
RUN;