DATA COUNTRY;
        infile 'filename';
        INPUT DEC 1 ID 2-4 NAME $CHAR26. SSCODE 31-33
              CONTIN $ 34-35 DODEV 36 POPULATE 37-43
              AREA 44-49 GNP 50-56 MILEXP 57-64 .1
              EDUCEXP 65-71 .1;
              PCGNP = (GNP * 1000) / POPULATE;  /* PER CAPITA GNP */
proc print;
run;