VARIABLE CREATION: TOTAL NET FAMILY INCOME 1979-83
DCL 1 FAMILY_INCOME (5),
5 AFDC,
5 ALIM,
5 CHSP,
5 CPS,
5 ED,
5 EDSS,
5 FAMILY,
5 FAMINC,
5 FARM,
5 FOOD,
5 GIFT,
5 INC,
5 INCOME,
5 LEVEL,
5 MIL,
5 MILS,
5 MN (3),
5 OTHER,
5 POVERTY,
5 PUBLIC,
5 R,
5 RELREG,
5 RELWEL,
5 S,
5 SEI,
5 SEIS,
5 SUMN,
5 TABLE (3,2,15),
5 UI,
5 UIS,
5 VET,
5 WELF,
5 WPS,
5 WPSS,
5 YOUTH;
1979 VARIABLES
INC(1)=R(1903.10);
IF R(1547.)=-4 THEN MIL(1)=0;
ELSE MIL=R(1547.);
IF R(1554.)=-4 THEN WPS(1)=0;
ELSE WPS(1)=R(1554.);
IF R(1560.)=-4 THEN SEI(1)=0;
ELSE SEI(1)=R(1560.);
IF R(1588.)=-4 & R(1590.)=-4 THEN UI(1)=0;
ELSE IF R(1588.)>0 & R(1590.)>0 THEN UI(1)=R(1588.) * R(1590.);
ELSE UI(1)=R(1590.);
MILS(1)=0;
IF R(1555.)=-4 THEN WPSS(1)=0;
ELSE WPSS(1)=R(1555.);
IF R(1561.)=-4 THEN SEIS(1)=0;
ELSE SEIS(1)=R(1561.);
IF R(1589.)=-4 & R(1591.)=-4 THEN UIS(1)=0;
ELSE IF R(1589.)>0 & R(1591.)>0 THEN UIS(1)=R(1589.) * R(1591.);
ELSE UIS(1)=R(1591.);
IF R(1594.)=-4 THEN ALIM(1)=0;
ELSE ALIM(1)=R(1594.);
CHSP(1)=0;
IF R(1608.)=-4 THEN AFDC(1)=0;
ELSE DO;
B=0;
DO J=1596. TO 1607.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(1608.)<0 THEN AFDC(1)=R(1608.);
ELSE IF B<=0 THEN AFDC(1)=-3;
ELSE AFDC(1)=R(1608.) * B;
END;
IF R(1623.)=-4 THEN FOOD(1)=0;
ELSE DO;
B=0;
DO J=1610. TO 1621.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF B<=0 THEN FOOD(1)=-3;
ELSE IF R(1622.)>=0 & R(1623.)>0 THEN FOOD(1)=(R(1623.)-R(1622.))
* B;
ELSE FOOD(1)=-3;
END;
WELF(1)=0;
IF R(1640.)=-4 THEN PUBLIC(1)=0;
ELSE DO;
B=0;
DO J=1628. TO 1639.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(1640.)<0 THEN PUBLIC(1)=R(1640.);
ELSE IF B<=0 THEN PUBLIC(1)=-3;
ELSE PUBLIC(1)=R(1640.) * B; END;
IF R(1645.)=-4 THEN ED(1)=0;
ELSE ED(1)=R(1645.);
IF R(1646.)=-4 THEN EDSS(1)=0;
ELSE EDSS(1)=R(1646.);
VET(1)=0;
IF R(1649.)=-4 THEN GIFT(1)=0;
ELSE GIFT(1)=R(1649.);
IF R(1651.)=-4 THEN OTHER(1)=0;
ELSE OTHER(1)=R(1651.);
RELWEL(1)=0;
IF R(1664.)=-4 THEN RELREG(1)=0;
ELSE RELREG(1)=R(1664.);
/* 1979 FAMILY POVERTY STATUS, 1979 FAMILY POVERTY LEVEL, AND 1979 FAMILY POVERTY
FLAG */
DCL PUBID PIC '99999';
DCL S79 FIXED DEC(9);
FAMILY79 FIXED DEC(9);
FARM79 FIXED DEC(9);
SCREENSZ FIXED DEC(9);
FLAG FIXED DEC(9);
INCOME79 FLOAT DEC(6);
CAL_INCOME FLOAT DEC(6);
LEVEL79 FLOAT DEC(6);
STATE79 FLOAT DEC(6);
CPS79 FLOAT DEC(6);
R79 FLOAT DEC(6);
TABLE(3,2,15) FLOAT DEC(6);
R(1.10) FLOAT DEC(6);
R(2179.) FLOAT DEC(6);
R(1691.) FLOAT DEC(6);
R(1697.) FLOAT DEC(6);
R(1743.) FLOAT DEC(6);
R(1916.10) FLOAT DEC(6);
R(1921.) FLOAT DEC(6);
R(1919.) FLOAT DEC(6);
FAMSZ79 FLOAT DEC(6);
WPS FLOAT DEC(6);
WPSS FLOAT DEC(6);
SEI FLOAT DEC(6);
SEIS FLOAT DEC(6);
MIL FLOAT DEC(6);
OTHER FLOAT DEC(6);
RELINC FLOAT DEC(6);
GIFT FLOAT DEC(6);
LEVEL79=-4;
DO I=1 TO 3;
DO J=1 TO 2;
DO K=1 TO 15;
TABLE(I,J,K)=-4;
END;
END;
END;
TABLE(1,1,1)=3400;
TABLE(2,1,1)=4270;
TABLE(3,1,1)=3930;
TABLE(1,2,1)=2910;
TABLE(2,2,1)=3650;
TABLE(3,2,1)=3350;
DO J=2 TO 15;
TABLE(1,1,J)=TABLE(1,1,J-1)+1100;
TABLE(2,1,J)=TABLE(2,1,J-1)+1370;
TABLE(3,1,J)=TABLE(3,1,J-1)+1260;
TABLE(1,2,J)=TABLE(1,2,J-1)+930;
TABLE(2,2,J)=TABLE(2,2,J-1)+1160;
TABLE(3,2,J)=TABLE(3,2,J-1)+1070;
END;
FARM79=1;
IF R(1919.)>4 THEN FARM79=2;
IF R(1743.)>0 THEN STATE79=MOD(R(1743.),100);
ELSE STATE79=R(1743.);
S79=1;
IF STATE79=2 THEN S79=2;
ELSE IF STATE79=15 THEN S79=3;
/* TO CREATE FAMILY SIZE (I.E. FAMSZ79) SEARCH THRU THE
HOUSEHOLD ENUMERATION INCREMENT FAMILY SIZE, IF THE
RELATIONSHIP TO THE YOUTH IS A RELATIVE. DO NOT
INCREASE FAMILY SIZE, IF THE CODE IS <0 OR (>=33 & <=36) OR
=45 OR =46 OR *>=50 & <=54) */
IF FAMSZ79=0 THEN FAMILY79=1;
ELSE FAMILY79=FAMSZ79;
INCOME79=R(2179.);
R79=0;
IF R(1691.)>=0 THEN R79=R79+R(1691.);
IF R(1697.)>=0 THEN R79=R79+R(1697.);
IF FAMILY79>0 THEN DO;
LEVEL79=TABLE(S79,FARM79,FAMILY79);
IF INCOME79>LEVEL79 THEN CPS79=0;
ELSE IF INCOME79>= 0 & INCOME79<=LEVEL79 THEN CPS79=1;
ELSE IF R79>TABLE(S79,FARM79,FAMILY79) THEN CPS79=0;
ELSE CPS79=-3;
END;
ELSE DO;
IF INCOME79>TABLE(S79,FARM79,15) THEN CPS79=0;
ELSE IF INCOME79>=0 & INCOME79<=TABLE(S79,FARM79,1) THEN CPS79=1;
ELSE CPS79=-3;
END;
FLAG=0;
CAL_INCOME=0;
IF CPS79=-3 & INCOME79<0 THEN DO;
IF WPS>=0 THEN CAL_INCOME=CAL_INCOME + WPS;
IF WPSS>=0 THEN CAL_INCOME=CAL_INCOME + WPSS;
IF SEI>=0 THEN CAL_INCOME=CAL_INCOME + SEI;
IF SEIS>=0 THEN CAL_INCOME=CAL_INCOME + SEIS;
IF MIL>=0 THEN CAL_INCOME=CAL_INCOME + MIL;
IF OTHER>=0 THEN CAL_INCOME=CAL_INCOME + OTHER;
IF RELINC>=0 THEN CAL_INCOME=CAL_INCOME + RELINC;
IF GIFT>=0 THEN CAL_INCOME=CAL_INCOME + GIFT;
IF CAL_INCOME>0 THEN DO;
IF CAL_INCOME>LEVEL79 THEN DO;
CPS79=0;
FLAG=1;
END;
END;
END;
IF CPS79=-3 & R(1916.10)>0 & R(1921.)>0 THEN DO;
SCREENSZ=R(1921.);
IF SCREENSZ=-4 THEN FAMILY79=1;
ELSE FAMILY79=SCREENSZ;
LEVEL79=TABLE(S79,FARM79,FAMILY79);
IF R(1916.10)>LEVEL79 THEN DO;
CPS79=0;
FLAG=2;
END;
ELSE IF R(1916.10)<=LEVEL79 THEN DO;
CPS79=1;
FLAG=2;
END;
END;
CPS79=R(2179.10);
LEVEL79=R(2179.20);
FLAG79=R(2179.30);
1980 VARIABLES
IF R(4052.)<=0 THEN INC(2)=-5;
ELSE INC(2)=R(4045.10);
IF R(3120.)=-4 THEN MIL(2)=0;
ELSE MIL(2)=R(3120.);
IF R(3123.)=-4 THEN WPS(2)=0;
ELSE WPS(2)=R(3123.);
IF R(3126.)=-4 THEN SEI(2)=0;
ELSE SEI(2)=R(3126.);
IF R(3146.)=-4 & R(3132.)=-4 THEN UI(2)=0;
ELSE IF R(3146.)>0 & R(3132.)>0 THEN UI(2)=R(3146.) * R(3132.);
ELSE UI(2)=R(3132.);
IF R(3122.)=-4 THEN MILS(2)=0;
ELSE MILS(2)=R(3122.);
IF R(3127.10)=-4 THEN WPSS(2)=0;
ELSE WPSS(2)=R(3127.10);
IF R(3130.)=-4 THEN SEIS(2)=0;
ELSE SEIS(2)=R(3130.);
IF R(3160.)=-4 & R(3161.)=-4 THEN UIS(2)=0;
ELSE IF R(3160.)>0 & R(3161.)>0 THEN UIS(2)=R(3160.) * R(3161.);
ELSE UIS(2)=R(3161.);
IF R(3164.)=-4 THEN ALIM(2)=0;
ELSE ALIM(2)=R(3164.);
CHSP(2)=0;
IF R(3178.)=-4 THEN AFDC(2)=0;
ELSE DO;
B=0;
DO J=3166. TO 3177.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(3178.)<0 THEN AFDC(2)=R(3178.);
ELSE IF B<=0 THEN AFDC(2)=-3;
ELSE AFDC(2)=R(3178.) * B;
END;
IF R(3192.)=-4 THEN FOOD(2)=0;
ELSE DO;
B=0;
DO J=3180. TO 3191.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(3192.)=-4 THEN FOOD(2)=R(3192.);
ELSE IF B<=0 THEN FOOD(2)=-3;
ELSE FOOD(2)=R(3192.) * B;
END;
IF R(3206.)=-4 THEN WELF(2)=0;
ELSE DO;
B=0;
DO J=3194. TO 3205.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(3206.)<0 THEN WELF(2)=R(3206.);
ELSE IF B<=0 THEN WELF(2)=-3;
ELSE WELF(2)=R(3206.) * B;
END;
IF R(3220.)=-4 THEN PUBLIC(2)=0;
ELSE DO;
B=0;
DO J=3208. TO 3219.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(3220.)<0 THEN PUBLIC(2)=R(3220.);
ELSE IF B<=0 THEN PUBLIC(2)=-3;
ELSE PUBLIC(2)=R(3220.) * B;
END;
IF R(3225.)=-4 THEN ED(2)=0;
ELSE ED(2)=R(3225.);
IF R(3226.)=-4 THEN EDSS(2)=0;
ELSE EDSS(2)=R(3226.);
IF R(3228.)=-4 THEN VET(2)=0;
ELSE VET(2)=R(3228.);
IF R(3233.)=-4 THEN GIFT(2)=0;
ELSE GIFT(2)=R(3233.);
IF R(3235.)=-4 THEN OTHER(2)=0;
ELSE OTHER(2)=R(3235.);
IF R(3244.)=-4 THEN RELWEL(2)=0;
ELSE RELWEL(2)=R(3244.);
IF R(3251.10)=-4 THEN RELREG(2)=0;
ELSE RELREG(2)=R(3251.10);
IF R(4047.)=-4 THEN POVERTY(2)=0;
ELSE POVERTY(2)=R(4047.);
FAMILY(2)=0;
DO J=3939. TO 4023. BY 6;
IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !
(R(J)>=50 & R(J)<=53) THEN A=1;
ELSE FAMILY(2)=FAMILY(2)+1;
END;
1981 VARIABLES
IF R(6146.)<=0 THEN INC(3)=-5;
ELSE INC(3)=R(6138.10);
YOUTH(3)=0;
TABLE(3,1,1,1)=4320;
TABLE(3,2,1,1)=5400;
TABLE(3,3,1,1)=4970;
TABLE(3,1,2,1)=3690;
TABLE(3,2,2,1)=4660;
TABLE(3,3,2,1)=4270;
DO J=2 TO 15;
TABLE(3,1,1,J)=TABLE(3,1,1,J-1) + 1380;
TABLE(3,2,1,J)=TABLE(3,2,1,J-1) + 1730;
TABLE(3,3,1,J)=TABLE(3,3,1,J-1) + 1590;
TABLE(3,1,2,J)=TABLE(3,1,2,J-1) + 1170;
TABLE(3,2,2,J)=TABLE(3,2,2,J-1) + 1450;
TABLE(3,3,2,J)=TABLE(3,3,2,J-1) + 1340;
END;
FARM(3)=1;
IF R(6125.)>4 THEN FARM(3)=2;
S(3)=1;
IF R(6028.)>0 THEN DO;
IF MOD(R(6028.),100)=2 THEN S(3)=2;
IF MOD(R(6028.),100)=15 THEN S(3)=3;
END;
LEVEL(3)=-4;
IF R(4825.)=-4 THEN MIL(3)=0;
ELSE MIL(3)=R(4825.);
IF R(4826.)=-4 THEN WPS(3)=0;
ELSE WPS(3)=R(4826.);
IF R(4832.)=-4 THEN SEI(3)=0;
ELSE SEI(3)=R(4832.);
IF R(4849.)=-4 & R(4850.)=-4 THEN UI(3)=0;
ELSE IF R(4849.)>0 & R(4850.)>0 THEN UI(3)=R(4849.) * R(4850.);
ELSE UI(3)=R(4850.);
IF R(4828.)=-4 THEN MILS(3)=0;
ELSE MILS(3)=R(4828.);
IF R(4829.10)=-4 THEN WPSS(3)=0;
ELSE WPSS(3)=R(4829.10);
IF R(4835.)=-4 THEN SEIS(3)=0;
ELSE SEIS(3)=R(4835.);
IF R(4865.)=-4 & R(4866.)=-4 THEN UIS(3)=0;
ELSE IF R(4865.)>0 & R(4866.)>0 THEN UIS(3)=R(4865.) * R(4866.);
ELSE UIS(3)=R(4866.);
IF R(4869.)=-4 THEN ALIM(3)=0;
ELSE ALIM(3)=R(4869.);
CHSP(3)=0;
IF R(4883.)=-4 THEN AFDC(3)=0;
ELSE DO;
B=0;
DO J=4871. TO 4882.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(4883.)<0 THEN AFDC(3)=R(4883.);
ELSE IF B<=0 THEN AFDC(3)=-3;
ELSE AFDC(3)=R(4883.) * B;
END;
IF R(4897.)=-4 THEN FOOD(3)=0;
ELSE DO;
B=0;
DO J=4885. TO 4896.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(4897.)<0 THEN FOOD(3)=R(4897.);
ELSE IF B<=0 THEN FOOD(3)=-3;
ELSE FOOD(3)=R(4897.) * B;
END;
IF R(4911.)=-4 THEN WELF(3)=0;
ELSE DO;
B=0;
DO J=4899. TO 4910.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(4911.)<0 THEN WELF(3)=R(4911.);
ELSE IF B<=0 THEN WELF(3)=-3;
ELSE WELF(3)=R(4911.) * B;
END;
IF R(4925.)=-4 THEN PUBLIC(3)=0;
ELSE DO;
B=0;
DO J=4913. TO 4924.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(4925.)<0 THEN PUBLIC(3)=R(4925.);
ELSE IF B<=0 THEN PUBLIC(3)=-3;
ELSE PUBLIC(3)=R(4925.) * B;
END;
IF R(4930.)=-4 THEN ED(3)=0;
ELSE ED(3)=R(4930.);
IF R(4931.)=-4 THEN EDSS(3)=0;
ELSE EDSS(3)=R(4931.);
IF R(4933.)=-4 THEN VET(3)=0;
ELSE VET(3)=R(4933.);
IF R(4938.)=-4 THEN GIFT(3)=0;
ELSE GIFT(3)=R(4938.);
IF R(4940.)=-4 THEN OTHER(3)=0;
ELSE OTHER(3)=R(4940.);
IF R(4949.)=-4 THEN RELWEL(3)=0;
ELSE RELWEL(3)=R(4949.);
IF R(4956.10)=-4 THEN RELREG(3)=0;
ELSE RELREG(3)=R(4956.10);
IF R(6140.)=-4 THEN POVERTY(3)=0;
ELSE POVERTY(3)=R(6140.);
FAMILY(3)=0;
DO J=6033. TO 6117. BY 6;
IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !
(R(J)>=50 & R(J)<=53) THEN A=1;
ELSE FAMILY(3)=FAMILY(3)+1;
END;
1982 VARIABLES
IF R(8967.)<=0 THEN INC(4)=-5;
ELSE INC(4)=R(8304.);
YOUTH(4)=0;
IF R(7986.)>=0 THEN YOUTH(4)=R(7986.);
IF R(7988.)>=0 THEN YOUTH(4)=Y(4)+R(7988.);
IF R(7992.)>=0 THEN YOUTH(4)=Y(4)+R(7992.);
TABLE(4,1,1,1)=4760;
TABLE(4,2,1,1)=5990;
TABLE(4,3,1,1)=5500;
TABLE(4,1,2,1)=4080;
TABLE(4,2,2,1)=5110;
TABLE(4,3,2,1)=4700;
DO J=2 TO 15;
TABLE(4,1,1,J)=TABLE(4,1,1,J-1)+1530;
TABLE(4,2,1,J)=TABLE(4,2,1,J-1)+1900;
TABLE(4,3,1,J)=TABLE(4,3,1,J-1)+1750;
TABLE(4,1,2,J)=TABLE(4,1,2,J-1)+1290;
TABLE(4,2,2,J)=TABLE(4,2,2,J-1)+1610;
TABLE(4,3,2,J)=TABLE(4,3,2,J-1)+1480;
END;
FARM(4)=1;
IF R(8291.)>4 THEN FARM(4)=2;
S(4)=1;
IF R(8169.)=2 THEN S(4)=2;
ELSE IF R(8169.)=15 THEN S(4)=3;
LEVEL(4)=-4;
IF R(7820.)=-4 THEN MIL(4)=0;
ELSE MIL(4)=R(7820.);
IF R(7821.)=-4 THEN WPS(4)=0;
ELSE WPS(4)=R(7821.);
IF R(7824.)=-4 THEN SEI(4)=0;
ELSE SEI(4)=R(7824.);
IF R(7838.)=-4 & R(7839.)=-4 THEN UI(4)=0;
ELSE IF R(7838.)>0 & R(7839.)>0 THEN UI(4)=R(7838.) * R(7839.);
ELSE UI(4)=R(7839.);
IF R(7842.)=-4 THEN MILS(4)=0;
ELSE MILS(4)=R(7842.);
IF R(7843.)=-4 THEN WPSS(4)=0;
ELSE WPSS(4)=R(7843.);
IF R(7846.)=-4 THEN SEIS(4)=0;
ELSE SEIS(4)=R(7846.);
IF R(7860.)=-4 & R(7861.)=-4 THEN UIS(4)=0;
ELSE IF R(7860.)>0 & R(7861.)>0 THEN UIS(4)=R(7860.) * R(7861.);
ELSE UIS(4)=R(7861.);
IF R(7864.)=-4 THEN ALIM(4)=0;
ELSE ALIM(4)=R(7864.);
IF R(7869.)=-4 THEN CHSP(4)=0;
ELSE CHSP(4)=R(7869.);
IF R(7885.)=-4 THEN AFDC(4)=0;
ELSE DO;
B=0;
DO J=7873. TO 7884.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(7885.)<0 THEN AFDC(4)=R(7885.);
ELSE IF B<=0 THEN AFDC(4)=-3;
ELSE AFDC(4)=R(7885.) * B;
END;
IF R(7899.)=-4 THEN FOOD(4)=0;
ELSE DO;
B=0;
DO J=7887. TO 7898.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(7899.)<0 THEN FOOD(4)=R(7899.);
ELSE IF B<=0 THEN FOOD(4)=-3;
ELSE FOOD(4)=R(7899.) * B;
END;
IF R(7913.)=-4 THEN WELF(4)=0;
ELSE DO;
B=0;
DO J=7901. TO 7912.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(7913.)<0 THEN WELF(4)=R(7913.);
ELSE IF B<=0 THEN WELF(4)=-3;
ELSE WELF(4)=R(7913.) * B;
END;
IF R(7927.)=-4 THEN PUBLIC(4)=0;
ELSE DO;
DO J=7915. TO 7926.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(7927.)<0 THEN PUBLIC(4)=R(7927.);
ELSE IF B<=0 THEN PUBLIC(4)=-3;
ELSE PUBLIC(4)=R(7927.) * B;
END;
IF R(7932.)=-4 THEN ED(4)=0;
ELSE ED(4)=R(7932.);
IF R(7933.)=-4 THEN EDSS(4)=0;
ELSE EDSS(4)=R(7933.);
IF R(7935.)=-4 THEN VET(4)=0;
ELSE VET(4)=R(7935.);
IF R(7939.)=-4 THEN GIFT(4)=0;
ELSE GIFT(4)=R(7939.);
IF R(7941.)=-4 THEN OTHER(4)=0;
ELSE OTHER(4)=R(7941.);
IF R(7949.)=-4 THEN RELWEL(4)=0;
ELSE RELWEL(4)=R(7949.);
IF R(7956.)=-4 THEN RELREG(4)=0;
ELSE RELREG(4)=R(7956.);
IF R(8306.)=-4 THEN POVERTY(4)=0;
ELSE POVERTY(4)=R(8306.);
FAMILY(4)=0;
DO J=8177. TO 8275. BY 7;
IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !
(R(J)>=50 & R(J)<=53) THEN A=1;
ELSE FAMILY(4)=FAMILY(4)+1;
END;
1983 VARIABLES
IF R(11444.)<=0 THEN INC(5)=-5;
ELSE INC(5)=R(10777.);
YOUTH(5)=0;
TABLE(5,1,1,1)=4910;
TABLE(5,2,1,1)=6160;
TABLE(5,3,1,1)=5670;
TABLE(5,1,2,1)=4200;
TABLE(5,2,2,1)=5290;
TABLE(5,3,2,1)=4850;
DO J=2 TO 15;
TABLE(5,1,1,J)=TABLE(5,1,1,J-1)+1620;
TABLE(5,2,1,J)=TABLE(5,2,1,J-1)+2020;
TABLE(5,3,1,J)=TABLE(5,3,1,J-1)+1860;
TABLE(5,1,2,J)=TABLE(5,1,2,J-1)+1370;
TABLE(5,2,2,J)=TABLE(5,2,2,J-1)+1700;
TABLE(5,3,2,J)=TABLE(5,3,2,J-1)+1570;
END;
FARM(5)=1;
IF R(10764.)>4 THEN FARM(5)=2;
S(5)=1;
IF R(10548.)=2 THEN S(5)=2;
ELSE IF R(10548.)=15 THEN S(5)=3;
LEVEL(5)=-4;
IF R(10239.)=-4 THEN MIL(5)=0;
ELSE MIL(5)=R(10239.);
IF R(10240.)=-4 THEN WPS(5)=0;
ELSE WPS(5)=R(10240.);
IF R(10243.)=-4 THEN SEI(5)=0;
ELSE SEI(5)=R(10243.);
IF R(10257.)=-4 & R(10258.)=-4 THEN UI(5)=0;
ELSE IF R(10257.)>0 & R(10258.)>0 THEN UI(5)=R(10257.) * R(10258.);
ELSE IF R(10258.)<0 THEN UI(5)=R(10258.);
ELSE UI(5)=-3;
IF R(10261.)=-4 THEN MILS(5)=0;
ELSE MILS(5)=R(10261.);
IF R(10262.)=-4 THEN WPSS(5)=0;
ELSE WPSS(5)=R(10262.);
IF R(10265.)=-4 THEN SEIS(5)=0;
ELSE SEIS(5)=R(10265.);
IF R(10279.)=-4 & R(10280.)=-4 THEN UIS(5)=0;
ELSE IF R(10279.)>0 & R(10280.)>0 THEN UIS(5)=R(10279.) * R(10280.);
ELSE IF R(10280.)<0 THEN UIS(5)=R(10280.);
ELSE UIS(5)=-3;
IF R(10283.)=-4 THEN ALIM(5)=0;
ELSE ALIM(5)=R(10283.);
IF R(10288.)=-4 THEN CHSP(5)=0;
ELSE CHSP(5)=R(10288.);
IF R(10304.)=-4 THEN AFDC(5)=0;
ELSE DO;
B=0;
DO J=10292. TO 10303.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(10304.)<0 THEN AFDC(5)=R(10304.);
ELSE IF B<=0 THEN AFDC(5)=-3;
ELSE AFDC(5)=R(10304.) * B;
END;
IF R(10318.)=-4 THEN FOOD(5)=0;
ELSE DO;
B=0;
DO J=10306. TO 10317.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(10318.)<0 THEN FOOD(5)=R(10318.);
ELSE IF B<=0 THEN FOOD(5)=-3;
ELSE FOOD(5)=R(10318.) * B;
END;
IF R(10332.)=-4 THEN WELF(5)=0;
ELSE DO;
B=0;
DO J=10320. TO 10331.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(10332.)<0 THEN WELF(5)=R(10332.);
ELSE IF B<=0 THEN WELF(5)=-3;
ELSE WELF(5)=R(10332.) * B;
END;
IF R(10346.)=-4 THEN PUBLIC(5)=0;
ELSE DO;
B=0;
DO J=10334. TO 10345.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(10346.)<0 THEN PUBLIC(5)=R(10346.);
ELSE IF B<=0 THEN PUBLIC(5)=-3;
ELSE PUBLIC(5)=R(10346.) * B;
END;
IF R(10351.)=-4 THEN ED(5)=0;
ELSE ED(5)=R(10351.);
IF R(10352.)=-4 THEN EDSS(5)=0;
ELSE EDSS(5)=R(10352.);
IF R(10354.)=-4 THEN VET(5)=0;
ELSE VET(5)=R(10354.);
IF R(10358.)=-4 THEN GIFT(5)=0;
ELSE GIFT(5)=R(10358.);
IF R(10360.)=-4 THEN OTHER(5)=0;
ELSE OTHER(5)=R(10360.);
IF R(10368.)=-4 THEN RELWEL(5)=0;
ELSE RELWEL(5)=R(10368.);
IF R(10375.)=-4 THEN RELREG(5)=0;
ELSE RELREG(5)=R(10375.);
IF R(10779.)=-4 THEN POVERTY(5)=0;
ELSE POVERTY(5)=R(10779.);
FAMILY(5)=0;
DO J=10556. TO 10654. BY 7;
IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !
(R(J)>=50 & R(J)<=54) THEN A=1;
ELSE FAMILY(5)=FAMILY(5)+1;
END;
DO I=1 TO 5;
MN=0;
FAMINC(I)=0;
DO K=MIL(I),MILS(I),WPS(I),WPSS(I),SEI(I),SEIS(I),UI(I),
UIS(I),ALIM(I),CHSP(I),AFDC(I),FOOD(I),WELF(I),
PUBLIC(I),ED(I),EDSS(I) VET(I),GIFT(I),OTHER(I),
RELWEL(I),RELREG(I);
IF K<0 THEN MN(I,ABS(K))=MN(I,ABS(K))+1;
ELSE FAMINC(I)=FAMINC(I) + K;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
INCOME(I)=-3;
IF INC(I)=-5 THEN DO;
INCOME(I),CPS(I)=-5;
END;
ELSE INC(I)^=-4 THEN INCOME(I)=INC(I);
ELSE DO;
IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);
ELSE DO J=1 TO 3;
IF MN(I,J)>0 THEN INCOME(I)=-J;
END;
END;
IF I>2 THEN DO;
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FARM(I),FAMILY(I));
IF INC(I)>LEVEL(I) ! FAMINC(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INC(I)>=0 ! (SUMN(I)=0 & INC(I)=-4) THEN CPS(I)=1;
ELSE IF POVERTY(I)>0 THEN CPS(I)=POVERTY(I)-1;
ELSE CPS(I)=-3;
END;
ELSE DO;
IF INC(I)>TABLE(I,S(I),FARM(I),15) !
FAMINC(I)>TABLE(I,S(I),FARM(I),15) THEN CPS(I)=0;
ELSE IF (INC(I)>=0 & INC(I)<=TABLE(I,S(I),FARM(I),1)) !
(SUMN(I)=0 & INC(I)=-4 & FAMINC(I)<=
TABLE(I,S(I),FARM(I),1)) THEN CPS(I)=1;
ELSE IF POVERTY(I)>0 THEN CPS(I)=POVERTY(I)-1;
ELSE CPS(I)=-3;
END;
IF CPS(I)=-3 & FAMILY(I)>0 & YOUTH(I)>
TABLE(I,S(I),FARM(I),FAMILY(I)) THEN CPS(I)=0;
END;
IF I=2 THEN DO;
IF INCOME(2)=-5 THEN CPS(2)=-5;
ELSE DO;
IF FAMILY(2)=1 & INCOME(2)>3778 THEN CPS(2)=0;
ELSE IF FAMILY(2)=2 & INCOME(2)>4878 THEN CPS(2)=0;
ELSE IF FAMILY(2)=3 & INCOME(2)>5784 THEN CPS(2)=0;
ELSE IF FAMILY(2)=4 & INCOME(2)>7412 THEN CPS(2)=0;
ELSE IF FAMILY(2)=5 & INCOME(2)>8775 THEN CPS(2)=0;
ELSE IF FAMILY(2)=6 & INCOME(2)>9914 THEN CPS(2)=0;
ELSE IF FAMILY(2)>6 & INCOME(2)>12280 THEN CPS(2)=0;
ELSE IF INCOME(2)>12280 THEN CPS(2)=0;
ELSE DO;
IF INC(2)>=0 & FAMILY(2)>0 THEN CPS(2)=1;
ELSE DO;
IF SUMN(2)=0 & (R(4027.)=3 ! R(4029.)>1) & FAMILY(2)>0
THEN CPS(2)=1;
ELSE IF POVERTY(2)>0 THEN CPS(2)=POVERTY(2)-1;
ELSE CPS(2)=-3;
END;
END;
END;
END;
R(2179.)=INCOME(1);
R(4060.)=INCOME(2);
R(4061.)=POVERTY(2);
R(6184.10)=INCOME(3);
R(6185.)=POVERTY(3);
R(8986.)=INCOME(4);
R(8987.)=POVERTY(4);
R(11445.10)=INCOME(5);
R(11448.)=POVERTY(5);
VARIABLE CREATION: TOTAL NET FAMILY INCOME 1984-86
DCL
1 FAMILY_INCOME (6:8),
5 AFDC,
5 ALIM,
5 CHSP,
5 CPS,
5 ED,
5 EDSS,
5 FAMILY,
5 FAMINC,
5 FARM,
5 FOOD,
5 GIFT,
5 INC,
5 INCOME,
5 LEVEL,
5 MIL,
5 MILS,
5 MN (3),
5 OTHER,
5 POVERTY,
5 PUBLIC,
5 RELREG,
5 RELWEL,
5 S,
5 SEI,
5 SEIS,
5 SUMN,
5 TABLE(3,15),
5 UI,
5 UIS,
5 VET,
5 WELF,
5 WPS,
5 WPSS;
1984 VARIABLES
FAMILY_INCOME=-4;
IF R(15196.)=0 THEN INC(6)=-5;
ELSE INC(6)=R(14534.);
TABLE(6,1,1)=5010;
TABLE(6,2,1)=6280;
TABLE(6,3,1)=6790;
DO J=2 TO 15;
TABLE(6,1,J)=TABLE(6,1,J-1)+1740;
TABLE(6,2,J)=TABLE(6,2,J-1)+2170;
TABLE(6,3,J)=TABLE(6,3,J-1)+1990;
END;
FARM(6)=1;
IF R(14521.)>4 THEN FARM(6)=2;
S(6)=1;
IF STATE84=2 THEN S(6)=2;
ELSE IF STATE84=15 THEN S(6)=3;
LEVEL(6)=-4;
IF R(14106.)=-4 THEN MIL(6)=0;
ELSE MIL(6)=R(14106.);
IF R(14107.)=-4 THEN WPS(6)=0;
ELSE WPS(6)=R(14107.);
IF R(14110.)=-4 THEN SEI(6)=0;
ELSE SEI(6)=R(14110.);
IF R(14124.)=-4 & R(14125.)=-4 THEN UI(6)=0;
ELSE IF R(14124.)>0 & R(14125.)>0 THEN UI(6)=R(14124.) * R(14125.);
ELSE IF R(14125.)<0 THEN UI(6)=R(14125.);
ELSE UI(6)=-3;
IF R(14128.)=-4 THEN MILS(6)=0;
ELSE MILS(6)=R(14128.);
IF R(14129.)=-4 THEN WPSS(6)=0;
ELSE WPSS(6)=R(14129.);
IF R(14132.)=-4 THEN SEIS(6)=0;
ELSE SEIS(6)=R(14132.);
IF R(14146.)=-4 & R(14147.)=-4 THEN UIS(6)=0;
ELSE IF R(14146.)>0 & R(14147.)>0 THEN UIS(6)=R(14146.) * R(14147.);
ELSE IF R(14147.)<0 THEN UIS(6)=R(14147.);
ELSE UIS(6)=-3;
IF R(14150.)=-4 THEN ALIM(6)=0;
ELSE ALIM(6)=R(14150.);
IF R(14155.)=-4 THEN CHSP(6)=0;
ELSE CHSP(6)=R(14155.);
IF R(14171.)=-4 THEN AFDC(6)=0;
ELSE DO;
B=0;
DO J=14159. TO 14170.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(14171.)<0 THEN AFDC(6)=R(14171.);
ELSE IF B<=0 THEN AFDC(6)=-3;
ELSE AFDC(6)=R(14171.) * B;
END;
IF R(14185.)=-4 THEN FOOD(6)=0;
ELSE DO;
B=0;
DO J=14173. TO 14184.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(14185.)<0 THEN FOOD(6)=R(14185.);
ELSE IF B<=0 THEN FOOD(6)=-3;
ELSE FOOD(6)=R(14185.) * B;
END;
IF R(14199.)=-4 THEN WELF(6)=0;
ELSE DO;
B=0;
DO J=14187. TO 14198.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(14199.)<0 THEN WELF(6)=R(14199.);
ELSE IF B<=0 THEN WELF(6)=-3;
ELSE WELF(6)=R(14199.) * B;
END;
IF R(14213.)=-4 THEN PUBLIC(6)=0;
ELSE DO;
B=0;
DO J=14201. TO 14212.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(14213.)<0 THEN PUBLIC(6)=R(14213.);
ELSE IF B<=0 THEN PUBLIC(6)=-3;
ELSE PUBLIC(6)=R(14213.) * B;
END;
IF R(14218.)=-4 THEN ED(6)=0;
ELSE ED(6)=R(14218.);
IF R(14219.)=-4 THEN EDSS(6)=0;
ELSE EDSS(6)=R(14219.);
IF R(14221.)=-4 THEN VET(6)=0;
ELSE VET(6)=R(14221.);
IF R(14225.)=-4 THEN GIFT(6)=0;
ELSE GIFT(6)=R(14225.);
IF R(14227.)=-4 THEN OTHER(6)=0;
ELSE OTHER(6)=R(14227.);
IF R(14235.)=-4 THEN RELWEL(6)=0;
ELSE RELWEL(6)=R(14235.);
IF R(14242.)=-4 THEN RELREG(6)=0;
ELSE RELREG(6)=R(14242.);
IF R(14536.)=-4 THEN POVERTY(6)=0;
ELSE POVERTY(6)=R(14536.);
FAMILY(6)=FAMSIZE; /* TO CREATE FAMILY SIZE (I.E. FAMSIZE)
SEARCH THRU THE HOUSEHOLD ENUMERATION
INCREMENT FAMILY SIZE, IF THE
RELATIONSHIP TO THE YOUTH IS A RELATIVE.
DO NOT INCREASE FAMILY SIZE, IF THE CODE
IS <0 OR (>=33 & <=36) OR =45 OR =46 OR
(>=50 & <=54) */
1985 VARIABLES
IF R(18902.)=0 THEN INC(7)=-5;
ELSE INC(7)=R(18006.);
TABLE(7,1,1)=5180;
TABLE(7,2,1)=6500;
TABLE(7,3,1)=5970;
DO J=2 TO 15;
TABLE(7,1,J)=TABLE(7,1,J-1)+1810;
TABLE(7,2,J)=TABLE(7,2,J-1)+2260;
TABLE(7,3,J)=TABLE(7,3,J-1)+2080;
END;
FARM(7)=1;
IF R(17993.)>4 THEN FARM(7)=2;
S(7)=1;
IF STATE85=2 THEN S(7)=2;
ELSE IF STATE85=15 THEN S(7)=3;
LEVEL(7)=-4;
IF R(17784.)=-4 THEN MIL(7)=0;
ELSE MIL(7)=R(17784.);
IF R(17785.)=-4 THEN WPS(7)=0;
ELSE WPS(7)=R(17785.);
IF R(17788.)=-4 THEN SEI(7)=0;
ELSE SEI(7)=R(17788.);
IF R(17802.)=-4 & R(17803.)=-4 THEN UI(7)=0;
ELSE IF R(17802.)>0 & R(17803.)>0 THEN UI(7)=R(17802.) * R(17803.);
ELSE IF R(17803.)<0 THEN UI(7)=R(17803.);
ELSE UI(7)=-3;
IF R(17806.)=-4 THEN MILS(7)=0;
ELSE MILS(7)=R(17806.);
IF R(17807.)=-4 THEN WPSS(7)=0;
ELSE WPSS(7)=R(17807.);
IF R(17810.)=-4 THEN SEIS(7)=0;
ELSE SEIS(7)=R(17810.);
IF R(17824.)=-4 & R(17825.)=-4 THEN UIS(7)=0;
ELSE IF R(17824.)>0 & R(17825.)>0 THEN UIS(7)=R(17824.) * R(17825.);
ELSE IF R(17825.)<0 THEN UIS(7)=R(17825.);
ELSE UIS(7)=-3;
IF R(17828.)=-4 THEN ALIM(7)=0;
ELSE ALIM(7)=R(17828.);
IF R(17833.)=-4 THEN CHSP(7)=0;
ELSE CHSP(7)=R(17833.);
IF R(17849.)=-4 THEN AFDC(7)=0;
ELSE DO;
B=0;
DO J=17837. TO 17848.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(17849.)<0 THEN AFDC(7)=R(17849.);
ELSE IF B<=0 THEN AFDC(7)=-3;
ELSE AFDC(7)=R(17849.) * B;
END;
IF R(17863.)=-4 THEN FOOD(7)=0;
ELSE DO;
B=0;
DO J=17851. TO 17862.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(17863.)<0 THEN FOOD(7)=R(17863.);
ELSE IF B<=0 THEN FOOD(7)=-3;
ELSE FOOD(7)=R(17863.) * B;
END;
IF R(17877.)=-4 THEN PUBLIC(7)=0;
ELSE DO;
B=0;
DO J=17865. TO 17876.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(17877.)<0 THEN PUBLIC(7)=R(17877.);
ELSE IF B<=0 THEN PUBLIC(7)=-3;
ELSE PUBLIC(7)=R(17877.) * B;
END;
IF R(17882.)=-4 THEN ED(7)=0;
ELSE ED(7)=R(17882.);
IF R(17883.)=-4 THEN EDSS(7)=0;
ELSE EDSS(7)=R(17883.);
IF R(17885.)=-4 THEN VET(7)=0;
ELSE VET(7)=R(17885.);
IF R(17887.)=-4 THEN OTHER(7)=0;
ELSE OTHER(7)=R(17887.);
IF R(17895.)=-4 THEN RELWEL(7)=0;
ELSE RELWEL(7)=R(17895.);
IF R(17897.)=-4 THEN RELREG(7)=0;
ELSE RELREG(7)=R(17897.);
IF R(18008.)=-4 THEN POVERTY(7)=0;
ELSE POVERTY(7)=R(18008.);
FAMILY(7)=FAMSZ85; /* TO CREATE FAMILY SIZE (I.E. FAMSZ85)
SEARCH THRU THE HOUSEHOLD ENUMERATION
INCREMENT FAMILY SIZE, IF THE
RELATIONSHIP TO THE YOUTH IS A RELATIVE.
DO NOT INCREASE FAMILY SIZE, IF THE CODE
IS <0 OR (>=33 & <=36) OR =45 OR =46 OR
(>=50 & <=54) */
1986 VARIABLES
IF R(22573.)=0 THEN INC(8)=-5;
ELSE INC(8)=R(21622.);
TABLE(8,1,1)=5430;
TABLE(8,2,1)=6790;
TABLE(8,3,1)=6250;
DO J=2 TO 15;
TABLE(8,1,J)=TABLE(8,1,J-1)+1860;
TABLE(8,2,J)=TABLE(8,2,J-1)+2330;
TABLE(8,3,J)=TABLE(8,3,J-1)+2140;
END;
FARM(8)=1;
IF R(21609.)>4 THEN FARM(8)=2;
S(8)=1;
IF STATE86=2 THEN S(8)=2;
ELSE IF STATE86=15 THEN S(8)=3;
LEVEL(8)=-4;
IF R(21415.)=-4 THEN MIL(8)=0;
ELSE MIL(8)=R(21415.);
IF R(21416.)=-4 THEN WPS(8)=0;
ELSE WPS(8)=R(21416.);
IF R(21419.)=-4 THEN SEI(8)=0;
ELSE SEI(8)=R(21419.);
IF R(21433.)=-4 & R(21434.)=-4 THEN UI(8)=0;
ELSE IF R(21433.)>0 & R(21434.)>0 THEN UI(8)=R(21433.) * R(21434.);
ELSE IF R(21434.)<0 THEN UI(8)=R(21434.);
ELSE UI(8)=-3;
IF R(21437.)=-4 THEN MILS(8)=0;
ELSE MILS(8)=R(21437.);
IF R(21438.)=-4 THEN WPSS(8)=0;
ELSE WPSS(8)=R(21438.);
IF R(21441.)=-4 THEN SEIS(8)=0;
ELSE SEIS(8)=R(21441.);
IF R(21455.)=-4 & R(21456.)=-4 THEN UIS(8)=0;
ELSE IF R(21455.)>0 & R(21456.)>0 THEN UIS(8)=R(21455.) * R(21456.);
ELSE IF R(21456.)<0 THEN UIS(8)=R(21456.);
ELSE UIS(8)=-3;
IF R(21459.)=-4 THEN ALIM(8)=0;
ELSE ALIM(8)=R(21459.);
IF R(21464.)=-4 THEN CHSP(8)=0;
ELSE CHSP(8)=R(21464.);
IF R(21480.)=-4 THEN AFDC(8)=0;
ELSE DO;
B=0;
DO J=21468. TO 21479.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(21480.)<0 THEN AFDC(8)=R(21480.);
ELSE IF B<=0 THEN AFDC(8)=-3;
ELSE AFDC(8)=R(21480.) * B;
END;
IF R(21494.)=-4 THEN FOOD(8)=0;
ELSE DO;
B=0;
DO J=21482. TO 21493.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(21494.)<0 THEN FOOD(8)=R(21494.);
ELSE IF B<=0 THEN FOOD(8)=-3;
ELSE FOOD(8)=R(21494.) * B;
END;
IF R(21508.)=-4 THEN PUBLIC(8)=0;
ELSE DO;
B=0;
DO J=21496. TO 21507.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(21508.)<0 THEN PUBLIC(8)=R(21508.);
ELSE IF B<=0 THEN PUBLIC(8)=-3;
ELSE PUBLIC(8)=R(21508.) * B;
END;
IF R(21513.)=-4 THEN ED(8)=0;
ELSE ED(8)=R(21513.);
IF R(21514.)=-4 THEN EDSS(8)=0;
ELSE EDSS(8)=R(21514.);
IF R(21516.)=-4 THEN VET(8)=0;
ELSE VET(8)=R(21516.);
IF R(21518.)=-4 THEN OTHER(8)=0;
ELSE OTHER(8)=R(21518.);
IF R(21526.)=-4 THEN RELWEL(8)=0;
ELSE RELWEL(8)=R(21526.);
IF R(21528.)=-4 THEN RELREG(8)=0;
ELSE RELREG(8)=R(21528.);
IF R(21624.)=-4 THEN POVERTY(8)=0;
ELSE POVERTY(8)=R(21624.);
FAMILY(8)=FAMSZ86; /* TO CREATE FAMILY SIZE (I.E. FAMSZ86)
SEARCH THRU THE HOUSEHOLD ENUMERATION
INCREMENT FAMILY SIZE, IF THE
RELATIONSHIP TO THE YOUTH IS A RELATIVE.
DO NOT INCREASE FAMILY SIZE, IF THE CODE
IS <0 OR (>=33 & <=36) OR =45 OR =46 OR
(>=50 & <=54) */
DO I=6 TO 8;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
FAMINC(I)=0;
DO K=MIL(I),MILS(I),WPS(I),WPSS(I),SEI(I),SEIS(I),UI(I),
UIS(I),ALIM(I),CHSP(I),AFDC(I),FOOD(I),WELF(I),
PUBLIC(I),ED(I),EDSS(I),VET(I),GIFT(I),OTHER(I),
RELWEL(I),RELREG(I);
IF K>-4 THEN DO;
IF K<0 THEN MN(I,ABS(K))=MN(I,ABS(K))+1;
ELSE FAMINC(I)=FAMINC(I) + K;
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
INCOME(I)=-3;
IF INC(I)=-5 THEN DO;
INCOME(I)=-5; CPS(I)=-5;
END;
ELSE IF INC(I)^=-4 THEN DO;
INCOME(I)=INC(I);
IF INC(I)<0 THEN DO;
MN(I,ABS(INC(I)))=1;
SUMN(I)=1;
END;
END;
ELSE DO;
IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);
ELSE DO J=1 TO 3;
IF MN(I,J)>0 THEN INCOME(I)=-J;
END;
END;
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INC(I)>LEVEL(I) ! FAMINC(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INC(I)>=0 ! (SUMN(I)=0 & INC(I)=-4)
THEN CPS(I)=1;
ELSE IF POVERTY(I)>0 THEN CPS(I)=POVERTY(I)-1;
ELSE CPS(I)=-3;
END;
ELSE IF CPS(I)^=-5 THEN DO;
IF INC(I)>TABLE(I,S(I),15) !
FAMINC(I)>TABLE(I,S(I),15) THEN CPS(I)=0;
ELSE IF (INC(I)>=0 & INC(I)<=TABLE(I,S(I),1)) !
(SUMN(I)=0 & INC(I)=-4 & FAMINC(I)<=
TABLE(I,S(I),1)) THEN CPS(I)=1;
ELSE IF POVERTY(I)>0 THEN CPS(I)=POVERTY(I)-1;
ELSE CPS(I)=-3;
END;
END;
INCOME(6)=R(15197.);
CPS(6)=R(15198.);
INCOME(7)=R(18904.);
CPS(7)=R(18905.);
INCOME(8)=R(22575.);
CPS(8)=R(22576.);
