DATA sasdata.FODSL;
INPUT aar STA$ fodsl dod;
IF STA= 'ugift' THEN STATUS=0;
IF STA = 'gift' THEN STATUS = 1;
ANDEL = DOD/FODSL;
MYAAR = AAR -1963 ;
CARDS;
1963  ugift    7420   103
1964  ugift    7877    93
1965  ugift    8223   111
1966  ugift    9085   102
1967  ugift    9114    92
1968  ugift    8395    85
1969  ugift    8145    92
1970  ugift    7898    87
1971  ugift    9370    85
1972  ugift   10980   103
1973  ugift   12419    93
1974  ugift   13515   104
1975  ugift   15792   129
1976  ugift   15795   123
1963   gift   75941   845
1964   gift   76385   813
1965   gift   78815   831
1966   gift   80122   773
1967   gift   73011   623
1968   gift   66784   551
1969   gift   63764   520
1970   gift   63508   517
1971   gift   66609   535
1972   gift   65102   474
1973   gift   59999   430
1974   gift   58253   337
1975   gift   56762   354
1976   gift   49903   308
;
RUN;