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;
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);
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;
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;
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;
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;
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) */
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) */
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.);
DCL
1 FAMILY_INCOME (9),
5 AFDC,
5 ALIM,
5 CHSP,
5 CPS,
5 ED,
5 EDSS,
5 FAMILY,
5 FAMINC,
5 FAMINC_CENSUS,
5 FARM,
5 FOOD,
5 GIFT,
5 INC,
5 INCOME,
5 INCOME_CENSUS,
5 LEVEL,
5 MIL,
5 MILS,
5 MN (3),
5 MN_CENSUS (3),
5 OTHER,
5 POVERTY,
5 PUBLIC,
5 RELREG,
5 RELWEL,
5 S,
5 SEI,
5 SEIS,
5 SUMN,
5 SUMN_CENSUS,
5 TABLE(3,15),
5 UI,
5 UIS,
5 VET,
5 WELF,
5 WPS,
5 WPSS;
/* 1987 POVERTY INCOME GUIDELINES TABLE */
TABLE(9,1,1)=5500;
TABLE(9,2,1)=6860;
TABLE(9,3,1)=6310;
DO J=2 TO 15;
TABLE(9,1,J)=TABLE(9,1,J-1)+1900;
TABLE(9,2,J)=TABLE(9,2,J-1)+2380;
TABLE(9,3,J)=TABLE(9,3,J-1)+2190;
END;
S(9)=1;
IF STATE87=2 THEN S(9)=2;
ELSE IF STATE87=15 THEN S(9)=3;
IF R(23502.)=-4 THEN MIL(9)=0;
ELSE MIL(9)=R(23502.);
IF R(23503.)=-4 THEN WPS(9)=0;
ELSE WPS(9)=R(23503.);
IF R(23506.)=-4 THEN SEI(9)=0;
ELSE SEI(9)=R(23506.);
IF R(23520.)=-4 & R(23521.)=-4 THEN UI(9)=0;
ELSE IF R(23520.)>0 & R(23521.)>0 THEN UI(9)=R(23520.) * R(23521.);
ELSE IF R(23521.)<0 THEN UI(9)=R(23521.);
ELSE UI(9)=-3;
IF R(23524.)=-4 THEN MILS(9)=0;
ELSE MILS(9)=R(23524.);
IF R(23525.)=-4 THEN WPSS(9)=0;
ELSE WPSS(9)=R(23525.);
IF R(23528.)=-4 THEN SEIS(9)=0;
ELSE SEIS(9)=R(23528.);
IF R(23542.)=-4 & R(23543.)=-4 THEN UIS(9)=0;
ELSE IF R(23542.)>0 & R(23543.)>0 THEN UIS(9)=R(23542.) * R(23543.);
ELSE IF R(23543.)<0 THEN UIS(9)=R(23543.);
ELSE UIS(9)=-3;
IF R(23546.)=-4 THEN ALIM(9)=0;
ELSE ALIM(9)=R(23546.);
IF R(23551.)=-4 THEN CHSP(9)=0;
ELSE CHSP(9)=R(23551.);
IF R(23567.)=-4 THEN AFDC(9)=0;
ELSE DO;
B=0;
IF R(23555.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23555.)>-4 & R(23555.)<0 THEN B=NA;
IF R(23556.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23556.)>-4 & R(23556.)<0 THEN B=NA;
IF R(23557.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23557.)>-4 & R(23557.)<0 THEN B=NA;
IF R(23558.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23558.)>-4 & R(23558.)<0 THEN B=NA;
IF R(23559.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23559.)>-4 & R(23559.)<0 THEN B=NA;
IF R(23560.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23560.)>-4 & R(23560.)<0 THEN B=NA;
IF R(23561.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23561.)>-4 & R(23561.)<0 THEN B=NA;
IF R(23562.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23562.)>-4 & R(23562.)<0 THEN B=NA;
IF R(23563.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23563.)>-4 & R(23563.)<0 THEN B=NA;
IF R(23564.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23564.)>-4 & R(23564.)<0 THEN B=NA;
IF R(23565.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23565.)>-4 & R(23565.)<0 THEN B=NA;
IF R(23566.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23566.)>-4 & R(23566.)<0 THEN B=NA;
IF R(23567.)<0 THEN AFDC(9)=R(23567.);
ELSE IF B<=0 THEN AFDC(9)=-3;
ELSE AFDC(9)=R(23567.) * B;
END;
IF R(23581.)=-4 THEN FOOD(9)=0;
ELSE DO;
B=0;
IF R(23569.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23569.)>-4 & R(23569.)<0 THEN B=NA;
IF R(23570.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23570.)>-4 & R(23570.)<0 THEN B=NA;
IF R(23571.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23571.)>-4 & R(23571.)<0 THEN B=NA;
IF R(23572.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23572.)>-4 & R(23572.)<0 THEN B=NA;
IF R(23573.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23573.)>-4 & R(23573.)<0 THEN B=NA;
IF R(23574.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23574.)>-4 & R(23574.)<0 THEN B=NA;
IF R(23575.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23575.)>-4 & R(23575.)<0 THEN B=NA;
IF R(23576.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23576.)>-4 & R(23576.)<0 THEN B=NA;
IF R(23577.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23577.)>-4 & R(23577.)<0 THEN B=NA;
IF R(23578.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23578.)>-4 & R(23578.)<0 THEN B=NA;
IF R(23579.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23579.)>-4 & R(23579.)<0 THEN B=NA;
IF R(23580.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23580.)>-4 & R(23580.)<0 THEN B=NA;
IF R(23581.)<0 THEN FOOD(9)=R(23581.);
ELSE IF B<=0 THEN FOOD(9)=-3;
ELSE FOOD(9)=R(23581.) * B;
END;
IF R(23595.)=-4 THEN PUBLIC(9)=0;
ELSE DO;
B=0;
IF R(23583.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23583.)>-4 & R(23583.)<0 THEN B=NA;
IF R(23584.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23584.)>-4 & R(23584.)<0 THEN B=NA;
IF R(23585.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23585.)>-4 & R(23585.)<0 THEN B=NA;
IF R(23586.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23586.)>-4 & R(23586.)<0 THEN B=NA;
IF R(23587.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23587.)>-4 & R(23587.)<0 THEN B=NA;
IF R(23588.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23588.)>-4 & R(23588.)<0 THEN B=NA;
IF R(23589.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23589.)>-4 & R(23589.)<0 THEN B=NA;
IF R(23590.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23590.)>-4 & R(23590.)<0 THEN B=NA;
IF R(23591.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23591.)>-4 & R(23591.)<0 THEN B=NA;
IF R(23592.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23592.)>-4 & R(23592.)<0 THEN B=NA;
IF R(23593.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23593.)>-4 & R(23593.)<0 THEN B=NA;
IF R(23594.)>0 & B^=NA THEN B=B+1;
ELSE IF R(23594.)>-4 & R(23594.)<0 THEN B=NA;
IF R(23595.)<0 THEN PUBLIC(9)=R(23595.);
ELSE IF B<=0 THEN PUBLIC(9)=-3;
ELSE PUBLIC(9)=R(23595.) * B;
END;
IF R(23600.)=-4 THEN ED(9)=0;
ELSE ED(9)=R(23600.);
IF R(23601.)=-4 THEN EDSS(9)=0;
ELSE EDSS(9)=R(23601.);
IF R(23603.)=-4 THEN VET(9)=0;
ELSE VET(9)=R(23603.);
IF R(23605.)=-4 THEN OTHER(9)=0;
ELSE OTHER(9)=R(23605.);
IF VET(9)>0 & OTHER(9)=VET(9) THEN OTHER(9)=0;
IF R(23612.)=-4 THEN RELWEL(9)=0;
ELSE RELWEL(9)=R(23612.);
IF R(23614.)=-4 THEN RELREG(9)=0;
ELSE RELREG(9)=R(23614.);
FAMILY(9)=FAMSZ87; /* TO CREATE FAMILY SIZE (I.E. FAMSZ87)
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) */
DCL COMPONENT(19) FIXED DEC(9);
DO I=9;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
MN_CENSUS(I,1)=0; MN_CENSUS(I,2)=0; MN_CENSUS(I,3)=0;
FAMINC(I)=0;
FAMINC_CENSUS(I)=0;
INCOME(I)=-3;
INCOME_CENSUS(I)=-3;
COMPONENT(1)=MIL(I);
COMPONENT(2)=MILS(I);
COMPONENT(3)=WPS(I);
COMPONENT(4)=WPSS(I);
COMPONENT(5)=SEI(I);
COMPONENT(6)=SEIS(I);
COMPONENT(7)=UI(I);
COMPONENT(8)=UIS(I);
COMPONENT(9)=ALIM(I);
COMPONENT(10)=CHSP(I);
COMPONENT(11)=AFDC(I);
COMPONENT(12)=PUBLIC(I);
COMPONENT(13)=ED(I);
COMPONENT(14)=EDSS(I);
COMPONENT(15)=VET(I);
COMPONENT(16)=OTHER(I);
COMPONENT(17)=RELWEL(I);
COMPONENT(18)=RELREG(I);
COMPONENT(19)=FOOD(I);
IF WEIGHT(I)=0 THEN DO;
INCOME(I)=-5;
INCOME_CENSUS(I)=-5;
CPS(I)=-5;
LEVEL(I)=-5;
END;
ELSE DO;
DO K=1 TO 19;
IF COMPONENT(K)>-4 THEN DO;
IF COMPONENT(K)<0 THEN
MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);
END;
IF K<19 THEN DO;
IF COMPONENT(K)<0 THEN
MN_CENSUS(I,ABS(COMPONENT(K)))=
MN_CENSUS(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC_CENSUS(I)=FAMINC_CENSUS(I)+COMPONENT(K);
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
SUMN_CENSUS(I)=MN_CENSUS(I,1) + MN_CENSUS(I,2) +
MN_CENSUS(I,3);
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;
IF SUMN_CENSUS(I)=0 THEN INCOME_CENSUS(I)=FAMINC_CENSUS(I);
ELSE DO J=1 TO 3;
IF MN_CENSUS(I,J)>0 THEN INCOME_CENSUS(I)=-J;
END;
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;
ELSE CPS(I)=-3;
END;
END;
END;
DO I=1 TO 3;
IF MN(9,I)>0 THEN MN(9,I)=1;
IF MN_CENSUS(9,I)>0 THEN MN_CENSUS(9,I)=1;
END;
IF SUMN(9)>0 THEN SUMN(9)=1;
IF SUMN_CENSUS(9)>0 THEN SUMN_CENSUS(9)=1;
INCOME(9)=R(24447.);
INCOME_CENSUS(9)=R(24448.);
CPS(9)=R(24449.);
LEVEL(9)=R(24450.);
DCL
1 FAMILY_INCOME (10),
5 (AFDC,
ALIM,
CHSP,
CPS,
ED,
EDSS,
FAMILY,
FAMINC,
FOOD,
INCOME,
LEVEL,
MIL,
MILS,
MN (3),
OTHER,
PUBLIC,
RELREG,
RELWEL,
S,
SEI,
SEIS,
SUMN,
TABLE(3,15),
UI,
UIS,
VET,
WPS,
WPSS) FIXED DEC(9);
/* 1988 POVERTY INCOME GUIDELINES TABLE */
TABLE(10,1,1)=5700;
TABLE(10,2,1)=7210;
TABLE(10,3,1)=6650;
DO J=2 TO 15;
TABLE(10,1,J)=TABLE(10,1,J-1)+1960;
TABLE(10,2,J)=TABLE(10,2,J-1)+2450;
TABLE(10,3,J)=TABLE(10,3,J-1)+2250;
END;
S(10)=1;
IF STATE88=2 THEN S(10)=2;
ELSE IF STATE88=15 THEN S(10)=3;
IF R(27224.)=-4 THEN MIL(10)=0;
ELSE MIL(10)=R(27224.);
IF R(27225.)=-4 THEN WPS(10)=0;
ELSE WPS(10)=R(27225.);
IF R(27228.)=-4 THEN SEI(10)=0;
ELSE SEI(10)=R(27228.);
IF R(27242.)=-4 & R(27243.)=-4 THEN UI(10)=0;
ELSE IF R(27242.)>0 & R(27243.)>0 THEN UI(10)=R(27242.) * R(27243.);
ELSE IF R(27243.)<0 THEN UI(10)=R(27243.);
ELSE UI(10)=-3;
IF R(27246.)=-4 THEN MILS(10)=0;
ELSE MILS(10)=R(27246.);
IF R(27247.)=-4 THEN WPSS(10)=0;
ELSE WPSS(10)=R(27247.);
IF R(27250.)=-4 THEN SEIS(10)=0;
ELSE SEIS(10)=R(27250.);
IF R(27264.)=-4 & R(27265.)=-4 THEN UIS(10)=0;
ELSE IF R(27264.)>0 & R(27265.)>0 THEN UIS(10)=R(27264.)*R(27265.);
ELSE IF R(27265.)<0 THEN UIS(10)=R(27265.);
ELSE UIS(10)=-3;
IF R(27268.)=-4 THEN ALIM(10)=0;
ELSE ALIM(10)=R(27268.);
IF R(27273.)=-4 THEN CHSP(10)=0;
ELSE CHSP(10)=R(27273.);
IF R(27289.)=-4 THEN AFDC(10)=0;
ELSE DO;
B=0;
IF R(27277.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27277.)>-4 & R(27277.)<0 THEN B=NA;
IF R(27278.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27278.)>-4 & R(27278.)<0 THEN B=NA;
IF R(27279.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27279.)>-4 & R(27279.)<0 THEN B=NA;
IF R(27280.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27280.)>-4 & R(27280.)<0 THEN B=NA;
IF R(27281.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27281.)>-4 & R(27281.)<0 THEN B=NA;
IF R(27282.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27282.)>-4 & R(27282.)<0 THEN B=NA;
IF R(27283.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27283.)>-4 & R(27283.)<0 THEN B=NA;
IF R(27284.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27284.)>-4 & R(27284.)<0 THEN B=NA;
IF R(27285.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27285.)>-4 & R(27285.)<0 THEN B=NA;
IF R(27286.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27286.)>-4 & R(27286.)<0 THEN B=NA;
IF R(27287.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27287.)>-4 & R(27287.)<0 THEN B=NA;
IF R(27288.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27288.)>-4 & R(27288.)<0 THEN B=NA;
IF R(27289.)<0 THEN AFDC(10)=R(27289.);
ELSE IF B<=0 THEN AFDC(10)=-3;
ELSE AFDC(10)=R(27289.) * B;
END;
IF R(27303.)=-4 THEN FOOD(10)=0;
ELSE DO;
B=0;
IF R(27291.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27291.)>-4 & R(27291.)<0 THEN B=NA;
IF R(27292.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27292.)>-4 & R(27292.)<0 THEN B=NA;
IF R(27293.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27293.)>-4 & R(27293.)<0 THEN B=NA;
IF R(27294.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27294.)>-4 & R(27294.)<0 THEN B=NA;
IF R(27295.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27295.)>-4 & R(27295.)<0 THEN B=NA;
IF R(27296.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27296.)>-4 & R(27296.)<0 THEN B=NA;
IF R(27297.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27297.)>-4 & R(27297.)<0 THEN B=NA;
IF R(27298.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27298.)>-4 & R(27298.)<0 THEN B=NA;
IF R(27299.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27299.)>-4 & R(27299.)<0 THEN B=NA;
IF R(27300.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27300.)>-4 & R(27300.)<0 THEN B=NA;
IF R(27301.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27301.)>-4 & R(27301.)<0 THEN B=NA;
IF R(27302.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27302.)>-4 & R(27302.)<0 THEN B=NA;
IF R(27303.)<0 THEN FOOD(10)=R(27303.);
ELSE IF B<=0 THEN FOOD(10)=-3;
ELSE FOOD(10)=R(27303.) * B;
END;
IF R(27317.)=-4 THEN PUBLIC(10)=0;
ELSE DO;
B=0;
IF R(27305.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27305.)>-4 & R(27305.)<0 THEN B=NA;
IF R(27306.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27306.)>-4 & R(27306.)<0 THEN B=NA;
IF R(27307.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27307.)>-4 & R(27307.)<0 THEN B=NA;
IF R(27308.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27308.)>-4 & R(27308.)<0 THEN B=NA;
IF R(27309.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27309.)>-4 & R(27309.)<0 THEN B=NA;
IF R(27310.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27310.)>-4 & R(27310.)<0 THEN B=NA;
IF R(27311.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27311.)>-4 & R(27311.)<0 THEN B=NA;
IF R(27312.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27312.)>-4 & R(27312.)<0 THEN B=NA;
IF R(27313.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27313.)>-4 & R(27313.)<0 THEN B=NA;
IF R(27314.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27314.)>-4 & R(27314.)<0 THEN B=NA;
IF R(27315.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27315.)>-4 & R(27315.)<0 THEN B=NA;
IF R(27316.)>0 & B^=NA THEN B=B+1;
ELSE IF R(27316.)>-4 & R(27316.)<0 THEN B=NA;
IF R(27317.)<0 THEN PUBLIC(10)=R(27317.);
ELSE IF B<=0 THEN PUBLIC(10)=-3;
ELSE PUBLIC(10)=R(27317.) * B;
END;
IF R(27322.)=-4 THEN ED(10)=0;
ELSE ED(10)=R(27322.);
IF R(27323.)=-4 THEN EDSS(10)=0;
ELSE EDSS(10)=R(27323.);
IF R(27325.)=-4 THEN VET(10)=0;
ELSE VET(10)=R(27325.);
IF R(27332.)=-4 THEN OTHER(10)=0;
ELSE OTHER(10)=R(27332.);
IF VET(10)>0 & OTHER(10)=VET(10) THEN OTHER(10)=0;
IF R(27339.)=-4 THEN RELWEL(10)=0;
ELSE RELWEL(10)=R(27339.);
IF R(27341.)=-4 THEN RELREG(10)=0;
ELSE RELREG(10)=R(27341.);
FAMILY(10)=FAMSZ88; /* TO CREATE FAMILY SIZE (I.E. FAMSZ88)
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) */
DCL COMPONENT(19) FIXED DEC(9);
DO I=10;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
FAMINC(I)=0;
INCOME(I)=-3;
COMPONENT(1)=MIL(I);
COMPONENT(2)=MILS(I);
COMPONENT(3)=WPS(I);
COMPONENT(4)=WPSS(I);
COMPONENT(5)=SEI(I);
COMPONENT(6)=SEIS(I);
COMPONENT(7)=UI(I);
COMPONENT(8)=UIS(I);
COMPONENT(9)=ALIM(I);
COMPONENT(10)=CHSP(I);
COMPONENT(11)=AFDC(I);
COMPONENT(12)=PUBLIC(I);
COMPONENT(13)=ED(I);
COMPONENT(14)=EDSS(I);
COMPONENT(15)=VET(I);
COMPONENT(16)=OTHER(I);
COMPONENT(17)=RELWEL(I);
COMPONENT(18)=RELREG(I);
COMPONENT(19)=FOOD(I);
IF WEIGHT(I)=0 THEN DO;
INCOME(I)=-5;
CPS(I)=-5;
LEVEL(I)=-5;
END;
ELSE DO;
DO K=1 TO 19;
IF COMPONENT(K)>-4 THEN DO;
IF COMPONENT(K)<0 THEN
MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
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;
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;
ELSE CPS(I)=-3;
END;
END;
END;
DO I=1 TO 3;
IF MN(10,I)>0 THEN MN(10,I)=1;
END;
IF SUMN(10)>0 THEN SUMN(10)=1;
INCOME(10)=R(28702.);
CPS(10)=R(28704.);
LEVEL(10)=R(28705.);
DCL
1 FAMILY_INCOME (11),
5 (AFDC,
ALIM,
CHSP,
CPS,
ED,
EDSS,
FAMILY,
FAMINC,
FOOD,
INCOME,
LEVEL,
MIL,
MILS,
MN (3),
OTHER,
PUBLIC,
RELREG,
RELWEL,
S,
SEI,
SEIS,
SUMN,
TABLE(3,15),
UI,
UIS,
VET,
WPS,
WPSS) FIXED DEC(9);
/* 1989 POVERTY INCOME GUIDELINES TABLE */
TABLE(11,1,1)=5980;
TABLE(11,2,1)=7480;
TABLE(11,3,1)=6870;
DO J=2 TO 15;
TABLE(11,1,J)=TABLE(11,1,J-1)+2040;
TABLE(11,2,J)=TABLE(11,2,J-1)+2550;
TABLE(11,3,J)=TABLE(11,3,J-1)+2350;
END;
S(11)=1;
IF R(29922.)=2 THEN S(11)=2;
ELSE IF R(29922.)=15 THEN S(11)=3;
IF R(29713.)=-4 THEN MIL(11)=0;
ELSE MIL(11)=R(29713.);
IF R(29714.)=-4 THEN WPS(11)=0;
ELSE WPS(11)=R(29714.);
IF R(29717.)=-4 THEN SEI(11)=0;
ELSE SEI(11)=R(29717.);
IF R(29731.)=-4 & R(29732.)=-4 THEN UI(11)=0;
ELSE IF R(29731.)>0 & R(29732.)>0 THEN UI(11)=R(29731.) * R(29732.);
ELSE IF R(29732.)<0 THEN UI(11)=R(29732.);
ELSE UI(11)=-3;
IF R(29735.)=-4 THEN MILS(11)=0;
ELSE MILS(11)=R(29735.);
IF R(29736.)=-4 THEN WPSS(11)=0;
ELSE WPSS(11)=R(29736.);
IF R(29739.)=-4 THEN SEIS(11)=0;
ELSE SEIS(11)=R(29739.);
IF R(29753.)=-4 & R(29754.)=-4 THEN UIS(11)=0;
ELSE IF R(29753.)>0 & R(29754.)>0 THEN UIS(11)=R(29753.) * R(29754.);
ELSE IF R(29754.)<0 THEN UIS(11)=R(29754.);
ELSE UIS(11)=-3;
IF R(29757.)=-4 THEN ALIM(11)=0;
ELSE ALIM(11)=R(29757.);
IF R(29759.)=-4 THEN CHSP(11)=0;
ELSE CHSP(11)=R(29759.);
IF R(29773.)=-4 THEN AFDC(11)=0;
ELSE DO;
B=0;
IF R(29761.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29761.)>-4 & R(29761.)<0 THEN B=NA;
IF R(29762.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29762.)>-4 & R(29762.)<0 THEN B=NA;
IF R(29763.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29763.)>-4 & R(29763.)<0 THEN B=NA;
IF R(29764.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29764.)>-4 & R(29764.)<0 THEN B=NA;
IF R(29765.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29765.)>-4 & R(29765.)<0 THEN B=NA;
IF R(29766.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29766.)>-4 & R(29766.)<0 THEN B=NA;
IF R(29767.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29767.)>-4 & R(29767.)<0 THEN B=NA;
IF R(29768.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29768.)>-4 & R(29768.)<0 THEN B=NA;
IF R(29769.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29769.)>-4 & R(29769.)<0 THEN B=NA;
IF R(29770.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29770.)>-4 & R(29770.)<0 THEN B=NA;
IF R(29771.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29771.)>-4 & R(29771.)<0 THEN B=NA;
IF R(29772.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29772.)>-4 & R(29772.)<0 THEN B=NA;
IF R(29773.)<0 THEN AFDC(11)=R(29773.);
ELSE IF B<=0 THEN AFDC(11)=-3;
ELSE AFDC(11)=R(29773.) * B;
END;
IF R(29787.)=-4 THEN FOOD(11)=0;
ELSE DO;
B=0;
IF R(29775.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29775.)>-4 & R(29775.)<0 THEN B=NA;
IF R(29776.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29776.)>-4 & R(29776.)<0 THEN B=NA;
IF R(29777.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29777.)>-4 & R(29777.)<0 THEN B=NA;
IF R(29778.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29778.)>-4 & R(29778.)<0 THEN B=NA;
IF R(29779.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29779.)>-4 & R(29779.)<0 THEN B=NA;
IF R(29780.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29780.)>-4 & R(29780.)<0 THEN B=NA;
IF R(29781.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29781.)>-4 & R(29781.)<0 THEN B=NA;
IF R(29782.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29782.)>-4 & R(29782.)<0 THEN B=NA;
IF R(29783.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29783.)>-4 & R(29783.)<0 THEN B=NA;
IF R(29784.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29784.)>-4 & R(29784.)<0 THEN B=NA;
IF R(29785.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29785.)>-4 & R(29785.)<0 THEN B=NA;
IF R(29786.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29786.)>-4 & R(29786.)<0 THEN B=NA;
IF R(29787.)<0 THEN FOOD(11)=R(29787.);
ELSE IF B<=0 THEN FOOD(11)=-3;
ELSE FOOD(11)=R(29787.) * B;
END;
IF R(29801.)=-4 THEN PUBLIC(11)=0;
ELSE DO;
B=0;
IF R(29789.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29789.)>-4 & R(29789.)<0 THEN B=NA;
IF R(29790.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29790.)>-4 & R(29790.)<0 THEN B=NA;
IF R(29791.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29791.)>-4 & R(29791.)<0 THEN B=NA;
IF R(29792.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29792.)>-4 & R(29792.)<0 THEN B=NA;
IF R(29793.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29793.)>-4 & R(29793.)<0 THEN B=NA;
IF R(29794.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29794.)>-4 & R(29794.)<0 THEN B=NA;
IF R(29795.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29795.)>-4 & R(29795.)<0 THEN B=NA;
IF R(29796.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29796.)>-4 & R(29796.)<0 THEN B=NA;
IF R(29797.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29797.)>-4 & R(29797.)<0 THEN B=NA;
IF R(29798.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29798.)>-4 & R(29798.)<0 THEN B=NA;
IF R(29799.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29799.)>-4 & R(29799.)<0 THEN B=NA;
IF R(29800.)>0 & B^=NA THEN B=B+1;
ELSE IF R(29800.)>-4 & R(29800.)<0 THEN B=NA;
IF R(29801.)<0 THEN PUBLIC(11)=R(29801.);
ELSE IF B<=0 THEN PUBLIC(11)=-3;
ELSE PUBLIC(11)=R(29801.) * B;
END;
IF R(29806.)=-4 THEN ED(11)=0;
ELSE ED(11)=R(29806.);
IF R(29807.)=-4 THEN EDSS(11)=0;
ELSE EDSS(11)=R(29807.);
IF R(29809.)=-4 THEN VET(11)=0;
ELSE VET(11)=R(29809.);
IF R(29813.)=-4 THEN OTHER(11)=0;
ELSE OTHER(11)=R(29813.);
IF VET(11)>0 & OTHER(11)=VET(11) THEN OTHER(11)=0;
IF R(29820.)=-4 THEN RELWEL(11)=0;
ELSE RELWEL(11)=R(29820.);
IF R(29822.)=-4 THEN RELREG(11)=0;
ELSE RELREG(11)=R(29822.);
FAMILY(11)=FAMSZ89; /* TO CREATE FAMILY SIZE (I.E. FAMSZ89)
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) */
DCL COMPONENT(19) FIXED DEC(9);
DO I=11;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
FAMINC(I)=0;
INCOME(I)=-3;
COMPONENT(1)=MIL(I);
COMPONENT(2)=MILS(I);
COMPONENT(3)=WPS(I);
COMPONENT(4)=WPSS(I);
COMPONENT(5)=SEI(I);
COMPONENT(6)=SEIS(I);
COMPONENT(7)=UI(I);
COMPONENT(8)=UIS(I);
COMPONENT(9)=ALIM(I);
COMPONENT(10)=CHSP(I);
COMPONENT(11)=AFDC(I);
COMPONENT(12)=PUBLIC(I);
COMPONENT(13)=ED(I);
COMPONENT(14)=EDSS(I);
COMPONENT(15)=VET(I);
COMPONENT(16)=OTHER(I);
COMPONENT(17)=RELWEL(I);
COMPONENT(18)=RELREG(I);
COMPONENT(19)=FOOD(I);
IF WEIGHT(I)=0 THEN DO;
INCOME(I)=-5;
CPS(I)=-5;
LEVEL(I)=-5;
END;
ELSE DO;
DO K=1 TO 19;
IF COMPONENT(K)>-4 THEN DO;
IF COMPONENT(K)<0 THEN
MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
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;
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;
ELSE CPS(I)=-3;
END;
END;
END;
DO I=1 TO 3;
IF MN(11,I)>0 THEN MN(11,I)=1;
END;
IF SUMN(11)>0 THEN SUMN(11)=1;
INCOME(11)=R(30740);
CPS(11)=R(30741);
LEVEL(11)=R(30742);
DO I=12;
AFDC(I)=-4;
ALIM(I)=-4;
CHSP(I)=-4;
CPS(I)=-4;
ED(I)=-4;
EDSS(I)=-4;
FAMILY(I)=-4;
FAMINC(I)=-4;
FOOD(I)=-4;
INCOME(I)=-4;
LEVEL(I)=-4;
MIL(I)=-4;
MILS(I)=-4;
DO J=1 TO 3;
MN(I,J)=-4;
END;
OTHER(I)=-4;
PUBLIC(I)=-4;
RELREG(I)=-4;
RELWEL(I)=-4;
S(I)=-4;
SEI(I)=-4;
SEIS(I)=-4;
SUMN(I)=-4;
DO J=1 TO 3;
DO K=1 TO 15;
TABLE(I,J,K)=-4;
END;
END;
UI(I)=-4;
UIS(I)=-4;
VET(I)=-4;
WPS(I)=-4;
WPSS(I)=-4;
END;
TABLE(12,1,1)=6280;
TABLE(12,2,1)=7840;
TABLE(12,3,1)=7230;
DO J=2 TO 15;
TABLE(12,1,J)=TABLE(12,1,J-1)+2140;
TABLE(12,2,J)=TABLE(12,2,J-1)+2680;
TABLE(12,3,J)=TABLE(12,3,J-1)+2460;
END;
S(12)=1;
IF STATE90=2 THEN S(12)=2;
ELSE IF STATE90=15 THEN S(12)=3;
IF R(32793.)=-4 THEN MIL(12)=0;
ELSE MIL(12)=R(32793.);
IF R(32794.)=-4 THEN WPS(12)=0;
ELSE WPS(12)=R(32794.);
IF R(32797.)=-4 THEN SEI(12)=0;
ELSE SEI(12)=R(32797.);
IF R(32811.)=-4 & R(32812.)=-4 THEN UI(12)=0;
ELSE IF R(32811.)>0 & R(32812.)>0 THEN UI(12)=R(32811.) * R(32812.);
ELSE IF R(32812.)<0 THEN UI(12)=R(32812.);
ELSE UI(12)=-3;
IF R(32815.)=-4 THEN MILS(12)=0;
ELSE MILS(12)=R(32815.);
IF R(32816.)=-4 THEN WPSS(12)=0;
ELSE WPSS(12)=R(32816.);
IF R(32819.)=-4 THEN SEIS(12)=0;
ELSE SEIS(12)=R(32819.);
IF R(32833.)=-4 & R(32834.)=-4 THEN UIS(12)=0;
ELSE IF R(32833.)>0 & R(32834.)>0 THEN UIS(12)=R(32833.) * R(32834.);
ELSE IF R(32834.)<0 THEN UIS(12)=R(32834.);
ELSE UIS(12)=-3;
IF R(32837.)=-4 THEN ALIM(12)=0;
ELSE ALIM(12)=R(32837.);
IF R(32839.)=-4 THEN CHSP(12)=0;
ELSE CHSP(12)=R(32839.);
IF R(32853.)=-4 THEN AFDC(12)=0;
ELSE DO;
B=0;
IF R(32841.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32841.)>-4 & R(32841.)<0 THEN B=NA;
IF R(32842.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32842.)>-4 & R(32842.)<0 THEN B=NA;
IF R(32843.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32843.)>-4 & R(32843.)<0 THEN B=NA;
IF R(32844.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32844.)>-4 & R(32844.)<0 THEN B=NA;
IF R(32845.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32845.)>-4 & R(32845.)<0 THEN B=NA;
IF R(32846.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32846.)>-4 & R(32846.)<0 THEN B=NA;
IF R(32847.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32847.)>-4 & R(32847.)<0 THEN B=NA;
IF R(32848.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32848.)>-4 & R(32848.)<0 THEN B=NA;
IF R(32849.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32849.)>-4 & R(32849.)<0 THEN B=NA;
IF R(32850.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32850.)>-4 & R(32850.)<0 THEN B=NA;
IF R(32851.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32851.)>-4 & R(32851.)<0 THEN B=NA;
IF R(32852.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32852.)>-4 & R(32852.)<0 THEN B=NA;
IF R(32853.)<0 THEN AFDC(12)=R(32853.);
ELSE IF B<=0 THEN AFDC(12)=-3;
ELSE AFDC(12)=R(32853.) * B;
END;
IF R(32867.)=-4 THEN FOOD(12)=0;
ELSE DO;
B=0;
IF R(32855.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32855.)>-4 & R(32855.)<0 THEN B=NA;
IF R(32856.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32856.)>-4 & R(32856.)<0 THEN B=NA;
IF R(32857.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32857.)>-4 & R(32857.)<0 THEN B=NA;
IF R(32858.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32858.)>-4 & R(32858.)<0 THEN B=NA;
IF R(32859.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32859.)>-4 & R(32859.)<0 THEN B=NA;
IF R(32860.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32860.)>-4 & R(32860.)<0 THEN B=NA;
IF R(32861.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32861.)>-4 & R(32861.)<0 THEN B=NA;
IF R(32862.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32862.)>-4 & R(32862.)<0 THEN B=NA;
IF R(32863.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32863.)>-4 & R(32863.)<0 THEN B=NA;
IF R(32864.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32864.)>-4 & R(32864.)<0 THEN B=NA;
IF R(32865.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32865.)>-4 & R(32865.)<0 THEN B=NA;
IF R(32866.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32866.)>-4 & R(32866.)<0 THEN B=NA;
IF R(32867.)<0 THEN FOOD(12)=R(32867.);
ELSE IF B<=0 THEN FOOD(12)=-3;
ELSE FOOD(12)=R(32867.) * B;
END;
IF R(32893.)=-4 THEN PUBLIC(12)=0;
ELSE DO;
B=0;
IF R(32881.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32881.)>-4 & R(32881.)<0 THEN B=NA;
IF R(32882.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32882.)>-4 & R(32882.)<0 THEN B=NA;
IF R(32883.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32883.)>-4 & R(32883.)<0 THEN B=NA;
IF R(32884.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32884.)>-4 & R(32884.)<0 THEN B=NA;
IF R(32885.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32885.)>-4 & R(32885.)<0 THEN B=NA;
IF R(32886.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32886.)>-4 & R(32886.)<0 THEN B=NA;
IF R(32887.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32887.)>-4 & R(32887.)<0 THEN B=NA;
IF R(32888.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32888.)>-4 & R(32888.)<0 THEN B=NA;
IF R(32889.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32889.)>-4 & R(32889.)<0 THEN B=NA;
IF R(32890.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32890.)>-4 & R(32890.)<0 THEN B=NA;
IF R(32891.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32891.)>-4 & R(32891.)<0 THEN B=NA;
IF R(32892.)>0 & B^=NA THEN B=B+1;
ELSE IF R(32892.)>-4 & R(32892.)<0 THEN B=NA;
IF R(32893.)<0 THEN PUBLIC(12)=R(32893.);
ELSE IF B<=0 THEN PUBLIC(12)=-3;
ELSE PUBLIC(12)=R(32893.) * B;
END;
IF R(32900.)=-4 THEN ED(12)=0;
ELSE ED(12)=R(32900.);
IF R(32901.)=-4 THEN EDSS(12)=0;
ELSE EDSS(12)=R(32901.);
IF R(32902.)=-4 THEN VET(12)=0;
ELSE VET(12)=R(32902.);
IF R(32906.)=-4 THEN OTHER(12)=0;
ELSE OTHER(12)=R(32906.);
IF VET(12)>0 & OTHER(12)=VET(12) THEN OTHER(12)=0;
IF R(32916.)=-4 THEN RELWEL(12)=0;
ELSE RELWEL(12)=R(32916.);
IF R(32918.)=-4 THEN RELREG(12)=0;
ELSE RELREG(12)=R(32918.);
/* HAND EDITS FOR FAMSZ90 */
IF ID=2033 THEN FAMSZ90=1;
IF ID=3617 THEN FAMSZ90=1;
FAMILY(12)=FAMSZ90; /* TO CREATE FAMILY SIZE (I.E. FAMSZ90)
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) */
DCL COMPONENT(19) FIXED DEC(9);
DO I=12;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
FAMINC(I)=0;
INCOME(I)=-3;
COMPONENT(1)=MIL(I);
COMPONENT(2)=MILS(I);
COMPONENT(3)=WPS(I);
COMPONENT(4)=WPSS(I);
COMPONENT(5)=SEI(I);
COMPONENT(6)=SEIS(I);
COMPONENT(7)=UI(I);
COMPONENT(8)=UIS(I);
COMPONENT(9)=ALIM(I);
COMPONENT(10)=CHSP(I);
COMPONENT(11)=AFDC(I);
COMPONENT(12)=PUBLIC(I);
COMPONENT(13)=ED(I);
COMPONENT(14)=EDSS(I);
COMPONENT(15)=VET(I);
COMPONENT(16)=OTHER(I);
COMPONENT(17)=RELWEL(I);
COMPONENT(18)=RELREG(I);
COMPONENT(19)=FOOD(I);
IF WEIGHT(I)=0 THEN DO;
INCOME(I)=-5;
CPS(I)=-5;
LEVEL(I)=-5;
END;
ELSE DO;
DO K=1 TO 19;
IF COMPONENT(K)>-4 THEN DO;
IF COMPONENT(K)<0 THEN
MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
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;
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;
ELSE CPS(I)=-3;
END;
END;
END;
DO I=1 TO 3;
IF MN(12,I)>0 THEN MN(12,I)=1;
END;
IF SUMN(12)>0 THEN SUMN(12)=1;
INCOME(12)=R(34007.)
CPS(12)=R(34008.)
LEVEL(12)=R(34009.)
DO I=13;
AFDC(I)=-4;
ALIM(I)=-4;
CHSP(I)=-4;
CPS(I)=-4;
ED(I)=-4;
EDSS(I)=-4;
FAMILY(I)=-4;
FAMINC(I)=-4;
FOOD(I)=-4;
INCOME(I)=-4;
LEVEL(I)=-4;
MIL(I)=-4;
MILS(I)=-4;
DO J=1 TO 3;
MN(I,J)=-4;
END;
OTHER(I)=-4;
PUBLIC(I)=-4;
RELREG(I)=-4;
RELWEL(I)=-4;
S(I)=-4;
SEI(I)=-4;
SEIS(I)=-4;
SUMN(I)=-4;
DO J=1 TO 3;
DO K=1 TO 15;
TABLE(I,J,K)=-4;
END;
END;
UI(I)=-4;
UIS(I)=-4;
VET(I)=-4;
WPS(I)=-4;
WPSS(I)=-4;
END;
TABLE(13,1,1)=6620;
TABLE(13,2,1)=8290;
TABLE(13,3,1)=7610;
DO J=2 TO 15;
TABLE(13,1,J)=TABLE(13,1,J-1)+2260;
TABLE(13,2,J)=TABLE(13,2,J-1)+2820;
TABLE(13,3,J)=TABLE(13,3,J-1)+2600;
END;
S(13)=1;
IF STATE91=2 THEN S(13)=2;
ELSE IF STATE91=15 THEN S(13)=3;
IF R(35589.)=-4 THEN MIL(13)=0;
ELSE MIL(13)=R(35589.);
IF R(35590.)=-4 THEN WPS(13)=0;
ELSE WPS(13)=R(35590.);
IF R(35593.)=-4 THEN SEI(13)=0;
ELSE SEI(13)=R(35593.);
IF R(35607.)=-4 & R(35608.)=-4 THEN UI(13)=0;
ELSE IF R(35607.)>0 & R(35608.)>0 THEN UI(13)=R(35607.) * R(35608.);
ELSE IF R(35608.)<0 THEN UI(13)=R(35608.);
ELSE UI(13)=-3;
IF R(35611.)=-4 THEN MILS(13)=0;
ELSE MILS(13)=R(35611.);
IF R(35612.)=-4 THEN WPSS(13)=0;
ELSE WPSS(13)=R(35612.);
IF R(35615.)=-4 THEN SEIS(13)=0;
ELSE SEIS(13)=R(35615.);
IF R(35629.)=-4 & R(35630.)=-4 THEN UIS(13)=0;
ELSE IF R(35629.)>0 & R(35630.)>0 THEN UIS(13)=R(35629.) * R(35630.);
ELSE IF R(35630.)<0 THEN UIS(13)=R(35630.);
ELSE UIS(13)=-3;
IF R(35633.)=-4 THEN ALIM(13)=0;
ELSE ALIM(13)=R(35633.);
IF R(35635.)=-4 THEN CHSP(13)=0;
ELSE CHSP(13)=R(35635.);
IF R(35649.)=-4 THEN AFDC(13)=0;
ELSE DO;
B=0;
IF R(35637.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35637.)>-4 & R(35637.)<0 THEN B=NA;
IF R(35638.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35638.)>-4 & R(35638.)<0 THEN B=NA;
IF R(35639.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35639.)>-4 & R(35639.)<0 THEN B=NA;
IF R(35640.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35640.)>-4 & R(35640.)<0 THEN B=NA;
IF R(35641.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35641.)>-4 & R(35641.)<0 THEN B=NA;
IF R(35642.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35642.)>-4 & R(35642.)<0 THEN B=NA;
IF R(35643.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35643.)>-4 & R(35643.)<0 THEN B=NA;
IF R(35644.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35644.)>-4 & R(35644.)<0 THEN B=NA;
IF R(35645.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35645.)>-4 & R(35645.)<0 THEN B=NA;
IF R(35646.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35646.)>-4 & R(35646.)<0 THEN B=NA;
IF R(35647.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35647.)>-4 & R(35647.)<0 THEN B=NA;
IF R(35648.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35648.)>-4 & R(35648.)<0 THEN B=NA;
IF R(35649.)<0 THEN AFDC(13)=R(35649.);
ELSE IF B<=0 THEN AFDC(13)=-3;
ELSE AFDC(13)=R(35649.) * B;
END;
IF R(35663.)=-4 THEN FOOD(13)=0;
ELSE DO;
B=0;
IF R(35651.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35651.)>-4 & R(35651.)<0 THEN B=NA;
IF R(35652.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35652.)>-4 & R(35652.)<0 THEN B=NA;
IF R(35653.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35653.)>-4 & R(35653.)<0 THEN B=NA;
IF R(35654.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35654.)>-4 & R(35654.)<0 THEN B=NA;
IF R(35655.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35655.)>-4 & R(35655.)<0 THEN B=NA;
IF R(35656.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35656.)>-4 & R(35656.)<0 THEN B=NA;
IF R(35657.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35657.)>-4 & R(35657.)<0 THEN B=NA;
IF R(35658.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35658.)>-4 & R(35658.)<0 THEN B=NA;
IF R(35659.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35659.)>-4 & R(35659.)<0 THEN B=NA;
IF R(35660.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35660.)>-4 & R(35660.)<0 THEN B=NA;
IF R(35661.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35661.)>-4 & R(35661.)<0 THEN B=NA;
IF R(35662.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35662.)>-4 & R(35662.)<0 THEN B=NA;
IF R(35663.)<0 THEN FOOD(13)=R(35663.);
ELSE IF B<=0 THEN FOOD(13)=-3;
ELSE FOOD(13)=R(35663.) * B;
END;
IF R(35689.)=-4 THEN PUBLIC(13)=0;
ELSE DO;
B=0;
IF R(35677.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35677.)>-4 & R(35677.)<0 THEN B=NA;
IF R(35678.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35678.)>-4 & R(35678.)<0 THEN B=NA;
IF R(35679.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35679.)>-4 & R(35679.)<0 THEN B=NA;
IF R(35680.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35680.)>-4 & R(35680.)<0 THEN B=NA;
IF R(35681.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35681.)>-4 & R(35681.)<0 THEN B=NA;
IF R(35682.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35682.)>-4 & R(35682.)<0 THEN B=NA;
IF R(35683.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35683.)>-4 & R(35683.)<0 THEN B=NA;
IF R(35684.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35684.)>-4 & R(35684.)<0 THEN B=NA;
IF R(35685.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35685.)>-4 & R(35685.)<0 THEN B=NA;
IF R(35686.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35686.)>-4 & R(35686.)<0 THEN B=NA;
IF R(35687.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35687.)>-4 & R(35687.)<0 THEN B=NA;
IF R(35688.)>0 & B^=NA THEN B=B+1;
ELSE IF R(35688.)>-4 & R(35688.)<0 THEN B=NA;
IF R(35689.)<0 THEN PUBLIC(13)=R(35689.);
ELSE IF B<=0 THEN PUBLIC(13)=-3;
ELSE PUBLIC(13)=R(35689.) * B;
END;
IF R(35695.)=-4 THEN ED(13)=0;
ELSE ED(13)=R(35695.);
IF R(35696.)=-4 THEN EDSS(13)=0;
ELSE EDSS(13)=R(35696.);
IF R(35698.)=-4 THEN VET(13)=0;
ELSE VET(13)=R(35698.);
IF R(35702.)=-4 THEN OTHER(13)=0;
ELSE OTHER(13)=R(35702.);
IF VET(13)>0 & OTHER(13)=VET(13) THEN OTHER(13)=0;
IF R(35712.)=-4 THEN RELWEL(13)=0;
ELSE RELWEL(13)=R(35712.);
IF R(35714.)=-4 THEN RELREG(13)=0;
ELSE RELREG(13)=R(35714.);
FAMILY(13)=FAMSZ91; /* TO CREATE FAMILY SIZE (I.E. FAMSZ91)
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) */
DCL COMPONENT(19) FIXED DEC(9);
DO I=13;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
FAMINC(I)=0;
INCOME(I)=-3;
COMPONENT(1)=MIL(I);
COMPONENT(2)=MILS(I);
COMPONENT(3)=WPS(I);
COMPONENT(4)=WPSS(I);
COMPONENT(5)=SEI(I);
COMPONENT(6)=SEIS(I);
COMPONENT(7)=UI(I);
COMPONENT(8)=UIS(I);
COMPONENT(9)=ALIM(I);
COMPONENT(10)=CHSP(I);
COMPONENT(11)=AFDC(I);
COMPONENT(13)=PUBLIC(I);
COMPONENT(13)=ED(I);
COMPONENT(14)=EDSS(I);
COMPONENT(15)=VET(I);
COMPONENT(16)=OTHER(I);
COMPONENT(17)=RELWEL(I);
COMPONENT(18)=RELREG(I);
COMPONENT(19)=FOOD(I);
IF WEIGHT(I)=0 THEN DO;
INCOME(I)=-5;
CPS(I)=-5;
LEVEL(I)=-5;
END;
ELSE DO;
DO K=1 TO 19;
IF COMPONENT(K)>-4 THEN DO;
IF COMPONENT(K)<0 THEN
MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
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;
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;
ELSE CPS(I)=-3;
END;
END;
END;
DO I=1 TO 3;
IF MN(13,I)>0 THEN MN(13,I)=1;
END;
IF SUMN(13)>0 THEN SUMN(13)=1;
INCOME(13)=R(36561.)
CPS(13)=R(36562.)
LEVEL(13)=R(36563.)
DO I=14;
AFDC(I)=-4;
ALIM(I)=-4;
CHSP(I)=-4;
CPS(I)=-4;
ED(I)=-4;
EDSS(I)=-4;
FAMILY(I)=-4;
FAMINC(I)=-4;
FOOD(I)=-4;
INCOME(I)=-4;
LEVEL(I)=-4;
MIL(I)=-4;
MILS(I)=-4;
DO J=1 TO 3;
MN(I,J)=-4;
END;
OTHER(I)=-4;
PUBLIC(I)=-4;
RELREG(I)=-4;
RELWEL(I)=-4;
S(I)=-4;
SEI(I)=-4;
SEIS(I)=-4;
SUMN(I)=-4;
DO J=1 TO 3;
DO K=1 TO 15;
TABLE(I,J,K)=-4;
END;
END;
UI(I)=-4;
UIS(I)=-4;
VET(I)=-4;
WPS(I)=-4;
WPSS(I)=-4;
END;
TABLE(14,1,1)=6810;
TABLE(14,2,1)=8500;
TABLE(14,3,1)=7830;
DO J=2 TO 15;
TABLE(14,1,J)=TABLE(14,1,J-1)+2380;
TABLE(14,2,J)=TABLE(14,2,J-1)+2980;
TABLE(14,3,J)=TABLE(14,3,J-1)+2740;
END;
S(14)=1;
IF STATE92=2 THEN S(14)=2;
ELSE IF STATE92=15 THEN S(14)=3;
IF R(38970.)=-4 THEN MIL(14)=0;
ELSE MIL(14)=R(38970.);
IF R(38971.)=-4 THEN WPS(14)=0;
ELSE WPS(14)=R(38971.);
IF R(38974.)=-4 THEN SEI(14)=0;
ELSE SEI(14)=R(38974.);
IF R(38988.)=-4 & R(38989.)=-4 THEN UI(14)=0;
ELSE IF R(38988.)>0 & R(38989.)>0 THEN UI(14)=R(38988.) * R(38989.);
ELSE IF R(38989.)<0 THEN UI(14)=R(38989.);
ELSE UI(14)=-3;
IF R(38992.)=-4 THEN MILS(14)=0;
ELSE MILS(14)=R(38992.);
IF R(38993.)=-4 THEN WPSS(14)=0;
ELSE WPSS(14)=R(38993.);
IF R(38996.)=-4 THEN SEIS(14)=0;
ELSE SEIS(14)=R(38996.);
IF R(39010.)=-4 & R(39011.)=-4 THEN UIS(14)=0;
ELSE IF R(39010.)>0 & R(39011.)>0 THEN UIS(14)=R(39010.) * R(39011.);
ELSE IF R(39011.)<0 THEN UIS(14)=R(39011.);
ELSE UIS(14)=-3;
IF R(39014.)=-4 THEN ALIM(14)=0;
ELSE ALIM(14)=R(39014.);
IF R(39016.)=-4 THEN CHSP(14)=0;
ELSE CHSP(14)=R(39016.);
IF R(39030.)=-4 THEN AFDC(14)=0;
ELSE DO;
B=0;
IF R(39018.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39018.)>-4 & R(39018.)<0 THEN B=NA;
IF R(39019.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39019.)>-4 & R(39019.)<0 THEN B=NA;
IF R(39020.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39020.)>-4 & R(39020.)<0 THEN B=NA;
IF R(39021.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39021.)>-4 & R(39021.)<0 THEN B=NA;
IF R(39022.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39022.)>-4 & R(39022.)<0 THEN B=NA;
IF R(39023.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39023.)>-4 & R(39023.)<0 THEN B=NA;
IF R(39024.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39024.)>-4 & R(39024.)<0 THEN B=NA;
IF R(39025.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39025.)>-4 & R(39025.)<0 THEN B=NA;
IF R(39026.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39026.)>-4 & R(39026.)<0 THEN B=NA;
IF R(39027.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39027.)>-4 & R(39027.)<0 THEN B=NA;
IF R(39028.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39028.)>-4 & R(39028.)<0 THEN B=NA;
IF R(39029.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39029.)>-4 & R(39029.)<0 THEN B=NA;
IF R(39030.)<0 THEN AFDC(14)=R(39030.);
ELSE IF B<=0 THEN AFDC(14)=-3;
ELSE AFDC(14)=R(39030.) * B;
END;
IF R(39044.)=-4 THEN FOOD(14)=0;
ELSE DO;
B=0;
IF R(39032.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39032.)>-4 & R(39032.)<0 THEN B=NA;
IF R(39033.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39033.)>-4 & R(39033.)<0 THEN B=NA;
IF R(39034.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39034.)>-4 & R(39034.)<0 THEN B=NA;
IF R(39035.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39035.)>-4 & R(39035.)<0 THEN B=NA;
IF R(39036.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39036.)>-4 & R(39036.)<0 THEN B=NA;
IF R(39037.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39037.)>-4 & R(39037.)<0 THEN B=NA;
IF R(39038.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39038.)>-4 & R(39038.)<0 THEN B=NA;
IF R(39039.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39039.)>-4 & R(39039.)<0 THEN B=NA;
IF R(39040.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39040.)>-4 & R(39040.)<0 THEN B=NA;
IF R(39041.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39041.)>-4 & R(39041.)<0 THEN B=NA;
IF R(39042.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39042.)>-4 & R(39042.)<0 THEN B=NA;
IF R(39043.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39043.)>-4 & R(39043.)<0 THEN B=NA;
IF R(39044.)<0 THEN FOOD(14)=R(39044.);
ELSE IF B<=0 THEN FOOD(14)=-3;
ELSE FOOD(14)=R(39044.) * B;
END;
IF R(39070.)=-4 THEN PUBLIC(14)=0;
ELSE DO;
B=0;
IF R(39058.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39058.)>-4 & R(39058.)<0 THEN B=NA;
IF R(39059.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39059.)>-4 & R(39059.)<0 THEN B=NA;
IF R(39060.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39060.)>-4 & R(39060.)<0 THEN B=NA;
IF R(39061.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39061.)>-4 & R(39061.)<0 THEN B=NA;
IF R(39062.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39062.)>-4 & R(39062.)<0 THEN B=NA;
IF R(39063.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39063.)>-4 & R(39063.)<0 THEN B=NA;
IF R(39064.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39064.)>-4 & R(39064.)<0 THEN B=NA;
IF R(39065.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39065.)>-4 & R(39065.)<0 THEN B=NA;
IF R(39066.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39066.)>-4 & R(39066.)<0 THEN B=NA;
IF R(39067.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39067.)>-4 & R(39067.)<0 THEN B=NA;
IF R(39068.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39068.)>-4 & R(39068.)<0 THEN B=NA;
IF R(39069.)>0 & B^=NA THEN B=B+1;
ELSE IF R(39069.)>-4 & R(39069.)<0 THEN B=NA;
IF R(39070.)<0 THEN PUBLIC(14)=R(39070.);
ELSE IF B<=0 THEN PUBLIC(14)=-3;
ELSE PUBLIC(14)=R(39070.) * B;
END;
IF R(39076.)=-4 THEN ED(14)=0;
ELSE ED(14)=R(39076.);
IF R(39077.)=-4 THEN EDSS(14)=0;
ELSE EDSS(14)=R(39077.);
IF R(39079.)=-4 THEN VET(14)=0;
ELSE VET(14)=R(39079.);
IF R(39083.)=-4 THEN OTHER(14)=0;
ELSE OTHER(14)=R(39083.);
IF VET(14)>0 & OTHER(14)=VET(14) THEN OTHER(14)=0;
IF R(39093.)=-4 THEN RELWEL(14)=0;
ELSE RELWEL(14)=R(39093.);
IF R(39095.)=-4 THEN RELREG(14)=0;
ELSE RELREG(14)=R(39095.);
FAMILY(14)=FAMSZ92; /* TO CREATE FAMILY SIZE (I.E. FAMSZ92)
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) */
DCL COMPONENT(19) FIXED DEC(9);
DO I=13;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
FAMINC(I)=0;
INCOME(I)=-3;
COMPONENT(1)=MIL(I);
COMPONENT(2)=MILS(I);
COMPONENT(3)=WPS(I);
COMPONENT(4)=WPSS(I);
COMPONENT(5)=SEI(I);
COMPONENT(6)=SEIS(I);
COMPONENT(7)=UI(I);
COMPONENT(8)=UIS(I);
COMPONENT(9)=ALIM(I);
COMPONENT(10)=CHSP(I);
COMPONENT(11)=AFDC(I);
COMPONENT(12)=PUBLIC(I);
COMPONENT(13)=ED(I);
COMPONENT(14)=EDSS(I);
COMPONENT(15)=VET(I);
COMPONENT(16)=OTHER(I);
COMPONENT(17)=RELWEL(I);
COMPONENT(18)=RELREG(I);
COMPONENT(19)=FOOD(I);
IF WEIGHT(I)=0 THEN DO;
INCOME(I)=-5;
CPS(I)=-5;
LEVEL(I)=-5;
END;
ELSE DO;
DO K=1 TO 19;
IF COMPONENT(K)>-4 THEN DO;
IF COMPONENT(K)<0 THEN
MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
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;
/* income trunc */
IF INCOME(I) > 100000 THEN INCOME(I) = 833745;
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;
ELSE CPS(I)=-3;
END;
END;
END;
DO I=1 TO 3;
IF MN(14,I)>0 THEN MN(14,I)=1;
END;
IF SUMN(14)>0 THEN SUMN(14)=1;
INCOME(14)=R(40066.)
CPS(14)=R(40067.)
LEVEL(14)=R(40068.)
DO I=15;
AFDC(I)=-4;
ALIM(I)=-4;
CHSP(I)=-4;
CPS(I)=-4;
ED(I)=-4;
EDSS(I)=-4;
FAMILY(I)=-4;
FAMINC(I)=-4;
FOOD(I)=-4;
INCOME(I)=-4;
LEVEL(I)=-4;
MIL(I)=-4;
MILS(I)=-4;
DO J=1 TO 3;
MN(I,J)=-4;
END;
OTHER(I)=-4;
PUBLIC(I)=-4;
RELREG(I)=-4;
RELWEL(I)=-4;
S(I)=-4;
SEI(I)=-4;
SEIS(I)=-4;
SUMN(I)=-4;
DO J=1 TO 3;
DO K=1 TO 15;
TABLE(I,J,K)=-4;
END;
END;
UI(I)=-4;
UIS(I)=-4;
VET(I)=-4;
WPS(I)=-4;
WPSS(I)=-4;
END;
/* The 1993 Poverty Income Guidelines are applicable for income received in calendar 1992. Contact the */
/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation, */
/* (202) 690-6141, to receive a fax for the Poverty Income Guidelines. Talk to Gordan Fisher or Joan */
/* Turek-Brezina. Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8. */
/* Several variables pertaining to recipiency from various government income programs were computed from */
/* a number of different variables in 1993, due to the change to an event history format for data collection. */
/* these variables are as follows: */
/* WKTOT92U = Total number of weeks R received unemployment compensation in calendar year 1992 */
/* RCTOT92U = Total amount of unemployment compensation R received in calendar year 1992 */
/* WKTOT92S = Total number of weeks R's spouse received unemployment compensation in calendar year */
/* 1992 */
/* RCTOT92U = Total amount of unemployment compensation R's spouse received in calendar year 1992 */
/* MOTOT92A = Total number of months R or spouse received AFDC payments in calendar year 1992 */
/* RCTOT92A = Total amount of AFDC R or spouse received in calendar year 1992 */
/* MOTOT92F = Total number of months R or spouse received government food stamps in calendar year */
/* 1992 */
/* RCTOT92F = Total amount of government food stamps R or spouse received in calendar year 1992 */
/* MOTOT92W = Total number of months R or spouse received other welfare or public assistance payments */
/* in calendar year 1992 */
/* RCTOT92W = Total amount of other welfare or public assistance payemnts R or spouse received in */
/* calendar year 1992 */
TABLE(15,1,1)=7360;
TABLE(15,2,1)=9200;
TABLE(15,3,1)=8470;
DO J=2 TO 15;
TABLE(15,1,J)=TABLE(15,1,J-1)+2480;
TABLE(15,2,J)=TABLE(15,2,J-1)+3100;
TABLE(15,3,J)=TABLE(15,3,J-1)+2850;
END;
S(15)=1;
IF STATE93=2 THEN S(15)=2;
ELSE IF STATE93=15 THEN S(15)=3;
IF R(42949.)=-4 THEN MIL(15)=0;
ELSE MIL(15)=R(42949.);
IF R(42951.)=-4 THEN WPS(15)=0;
ELSE WPS(15)=R(42951.);
IF R(42955.)=-4 THEN SEI(15)=0;
ELSE SEI(15)=R(42955.);
IF WKTOT92U=-4 & RCTOT92U=-4 THEN UI(15)=0;
ELSE IF WKTOT92U>0 & RCTOT92U>0 THEN UI(15)=WKTOT92U * RCTOT92U;
ELSE IF RCTOT92U<0 THEN UI(15)=RCTOT92U;
ELSE UI(15)=-3;
IF R(43142.)=-4 THEN MILS(15)=0;
ELSE MILS(15)=R(43142.);
IF R(43144.)=-4 THEN WPSS(15)=0;
ELSE WPSS(15)=R(43144.);
IF R(43149.)=-4 THEN SEIS(15)=0;
ELSE SEIS(15)=R(43149.);
IF WKTOT92S=-4 & RCTOT92S=-4 THEN UIS(15)=0;
ELSE IF WKTOT92S>0 & RCTOT92S>0 THEN UIS(15)=WKTOT92S * RCTOT92S;
ELSE IF RCTOT92S<0 THEN UIS(15)=RCTOT92S;
ELSE UIS(15)=-3;
IF R(43325.)=-4 THEN ALIM(15)=0;
ELSE ALIM(15)=R(43325.);
IF R(43341.)=-4 THEN CHSP(15)=0;
ELSE CHSP(15)=R(43341.);
IF R(43351.)=-4 THEN CHSP(15)=0;
ELSE CHSP(15)=R(43351.);
IF RCTOT92A=-4 THEN AFDC(15)=0;
ELSE DO;
IF RCTOT92A<0 THEN AFDC(15)=RCTOT92A;
ELSE IF MOTOT92A<=0 THEN AFDC(15)=-3;
ELSE AFDC(15)=RCTOT92A * MOTOT92A;
END;
IF RCTOT92F=-4 THEN FOOD(15)=0;
ELSE DO;
IF RCTOT92F<0 THEN FOOD(15)=RCTOT92F;
ELSE IF MOTOT92F<=0 THEN FOOD(15)=-3;
ELSE FOOD(15)=RCTOT92F * MOTOT92F;
END;
IF RCTOT92W=-4 THEN PUBLIC(15)=0;
ELSE DO;
IF RCTOT92W<0 THEN PUBLIC(15)=RCTOT92W;
ELSE IF MOTOT92W<=0 THEN PUBLIC(15)=-3;
ELSE PUBLIC(15)=RCTOT92W * MOTOT92W;
END;
IF R(43879.)=-4 THEN ED(15)=0;
ELSE ED(15)=R(43879.);
IF R(43881.)=-4 THEN EDSS(15)=0;
ELSE EDSS(15)=R(43881.);
IF R(43883.)=-4 THEN VET(15)=0;
ELSE VET(15)=R(43883.);
IF R(43888.)=-4 THEN OTHER(15)=0;
ELSE OTHER(15)=R(43888.);
IF VET(15)>0 & OTHER(15)=VET(15) THEN OTHER(15)=0;
IF R(43900.)=-4 THEN RELWEL(15)=0;
ELSE RELWEL(15)=R(43900.);
IF R(43903.)=-4 THEN RELREG(15)=0;
ELSE RELREG(15)=R(43903.);
FAMILY(15)=R(44176.); /* TO CREATE FAMILY SIZE (I.E. R(44176.))
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) */
DCL COMPONENT(19) FIXED DEC(9);
DO I=15;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
FAMINC(I)=0;
INCOME(I)=-3;
COMPONENT(1)=MIL(I);
COMPONENT(2)=MILS(I);
COMPONENT(3)=WPS(I);
COMPONENT(4)=WPSS(I);
COMPONENT(5)=SEI(I);
COMPONENT(6)=SEIS(I);
COMPONENT(7)=UI(I);
COMPONENT(8)=UIS(I);
COMPONENT(9)=ALIM(I);
COMPONENT(10)=CHSP(I);
COMPONENT(11)=AFDC(I);
COMPONENT(12)=PUBLIC(I);
COMPONENT(13)=ED(I);
COMPONENT(14)=EDSS(I);
COMPONENT(15)=VET(I);
COMPONENT(16)=OTHER(I);
COMPONENT(17)=RELWEL(I);
COMPONENT(18)=RELREG(I);
COMPONENT(19)=FOOD(I);
IF WEIGHT(I)=0 THEN DO;
INCOME(I)=-5;
CPS(I)=-5;
LEVEL(I)=-5;
END;
ELSE DO;
DO K=1 TO 19;
IF COMPONENT(K)>-4 THEN DO;
IF COMPONENT(K)<0 THEN
MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
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;
/* imcome trunc */
IF INCOME(I) > 100000 THEN INCOME(I) = 160097;
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;
ELSE CPS(I)=-3;
END;
END;
END;
DO I=1 TO 3;
IF MN(15,I)>0 THEN MN(15,I)=1;
END;
IF SUMN(15)>0 THEN SUMN(15)=1;
INCOME(15)=R(44177.)
CPS(15)=R(44178.)
LEVEL(15)=R(44179.)
DO I=16;
AFDC(I)=-4;
ALIM(I)=-4;
CHSP(I)=-4;
CPS(I)=-4;
ED(I)=-4;
EDSS(I)=-4;
FAMILY(I)=-4;
FAMINC(I)=-4;
FOOD(I)=-4;
INCOME(I)=-4;
LEVEL(I)=-4;
MIL(I)=-4;
MILS(I)=-4;
DO J=1 TO 3;
MN(I,J)=-4;
END;
OTHER(I)=-4;
PUBLIC(I)=-4;
RELREG(I)=-4;
RELWEL(I)=-4;
S(I)=-4;
SEI(I)=-4;
SEIS(I)=-4;
SUMN(I)=-4;
DO J=1 TO 3;
DO K=1 TO 15;
TABLE(I,J,K)=-4;
END;
END;
UI(I)=-4;
UIS(I)=-4;
VET(I)=-4;
WPS(I)=-4;
WPSS(I)=-4;
END;
/* The 1994 Poverty Income Guidelines are applicable for income received in calendar 1993. Contact the */
/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation, */
/* (202) 690-6141, to receive a fax for the Poverty Income Guidelines. Talk to Gordan Fisher or Joan */
/* Turek-Brezina. Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8. */
/* Several variables pertaining to recipiency from various government income programs were computed from */
/* a number of different variables in 1994, due to the change to an event history format for data collection. */
/* these variables are as follows: */
/* WKTOT93U = Total number of weeks R received unemployment compensation in calendar year 1993 */
/* RCTOT93U = Total amount of unemployment compensation R received in calendar year 1993 */
/* WKTOT93S = Total number of weeks R's spouse received unemployment compensation in calendar year */
/* 1993 */
/* RCTOT93U = Total amount of unemployment compensation R's spouse received in calendar year 1993 */
/* MOTOT93A = Total number of months R or spouse received AFDC payments in calendar year 1993 */
/* RCTOT93A = Total amount of AFDC R or spouse received in calendar year 1993 */
/* MOTOT93F = Total number of months R or spouse received government food stamps in calendar year */
/* 1993 */
/* RCTOT93F = Total amount of government food stamps R or spouse received in calendar year 1993 */
/* MOTOT93W = Total number of months R or spouse received other welfare or public assistance payments */
/* in calendar year 1993 */
/* RCTOT93W = Total amount of other welfare or public assistance payemnts R or spouse received in */
/* calendar year 1993 */
TABLE(16,1,1)=7360;
TABLE(16,2,1)=9200;
TABLE(16,3,1)=8470;
DO J=2 TO 15;
TABLE(16,1,J)=TABLE(16,1,J-1)+2480;
TABLE(16,2,J)=TABLE(16,2,J-1)+3100;
TABLE(16,3,J)=TABLE(16,3,J-1)+2850;
END;
S(16)=1;
IF STATE94=2 THEN S(16)=2;
ELSE IF STATE94=15 THEN S(16)=3;
IF R(49826)=-4 THEN MIL(16)=0;
ELSE MIL(16)=R(49826.);
IF R(49828.)=-4 THEN WPS(16)=0;
ELSE WPS(16)=R(49828.);
IF R(49832.)=-4 THEN SEI(16)=0;
ELSE SEI(16)=R(49832.);
IF WKTOT93U=-4 & RCTOT93U=-4 THEN UI(16)=0;
ELSE IF WKTOT93U>0 & RCTOT93U>0 THEN UI(16)=WKTOT93U * RCTOT93U;
ELSE IF RCTOT93U<0 THEN UI(16)=RCTOT93U;
ELSE UI(16)=-3;
IF R(49958.)=-4 THEN MILS(16)=0;
ELSE MILS(16)=R(49958.);
IF R(49960.)=-4 THEN WPSS(16)=0;
ELSE WPSS(16)=R(49960.);
IF R(49966.)=-4 THEN SEIS(16)=0;
ELSE SEIS(16)=R(49966.);
IF WKTOT93S=-4 & RCTOT93S=-4 THEN UIS(16)=0;
ELSE IF WKTOT93S>0 & RCTOT93S>0 THEN UIS(16)=WKTOT93S * RCTOT93S;
ELSE IF RCTOT93S<0 THEN UIS(16)=RCTOT93S;
ELSE UIS(16)=-3;
IF R(50096.)=-4 THEN ALIM(16)=0;
ELSE ALIM(16)=R(50096.);
IF R(50119.)=-4 THEN CHSP(16)=0;
ELSE CHSP(16)=R(50119.);
IF R(50130.)=-4 THEN CHSP(16)=0;
ELSE CHSP(16)=R(50130.);
IF RCTOT93A=-4 THEN AFDC(16)=0;
ELSE DO;
IF RCTOT93A<0 THEN AFDC(16)=RCTOT93A;
ELSE IF MOTOT93A<=0 THEN AFDC(16)=-3;
ELSE AFDC(16)=RCTOT93A * MOTOT93A;
END;
IF RCTOT93F=-4 THEN FOOD(16)=0;
ELSE DO;
IF RCTOT93F<0 THEN FOOD(16)=RCTOT93F;
ELSE IF MOTOT93F<=0 THEN FOOD(16)=-3;
ELSE FOOD(16)=RCTOT93F * MOTOT93F;
END;
IF RCTOT93W=-4 THEN PUBLIC(16)=0;
ELSE DO;
IF RCTOT93W<0 THEN PUBLIC(16)=RCTOT93W;
ELSE IF MOTOT93W<=0 THEN PUBLIC(16)=-3;
ELSE PUBLIC(16)=RCTOT93W * MOTOT93W;
END;
IF R(50441.)=-4 THEN ED(16)=0;
ELSE ED(16)=R(50441.);
IF R(50443.)=-4 THEN EDSS(16)=0;
ELSE EDSS(16)=R(50443.);
IF R(50445.)=-4 THEN VET(16)=0;
ELSE VET(16)=R(50445.);
IF R(50450.)=-4 THEN OTHER(16)=0;
ELSE OTHER(16)=R(50450.);
IF VET(16)>0 & OTHER(16)=VET(16) THEN OTHER(16)=0;
IF R(50462.)=-4 THEN RELWEL(16)=0;
ELSE RELWEL(16)=R(50462.);
IF R(50465.)=-4 THEN RELREG(16)=0;
ELSE RELREG(16)=R(50465.);
FAMILY(16)=FAMSZ94; /* TO CREATE FAMILY SIZE (I.E. FAMSZ94)
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) */
DCL COMPONENT(19) FIXED DEC(9);
DO I=16;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
FAMINC(I)=0;
INCOME(I)=-3;
COMPONENT(1)=MIL(I);
COMPONENT(2)=MILS(I);
COMPONENT(3)=WPS(I);
COMPONENT(4)=WPSS(I);
COMPONENT(5)=SEI(I);
COMPONENT(6)=SEIS(I);
COMPONENT(7)=UI(I);
COMPONENT(8)=UIS(I);
COMPONENT(9)=ALIM(I);
COMPONENT(10)=CHSP(I);
COMPONENT(11)=AFDC(I);
COMPONENT(12)=PUBLIC(I);
COMPONENT(13)=ED(I);
COMPONENT(14)=EDSS(I);
COMPONENT(15)=VET(I);
COMPONENT(16)=OTHER(I);
COMPONENT(17)=RELWEL(I);
COMPONENT(18)=RELREG(I);
COMPONENT(19)=FOOD(I);
IF WEIGHT(I)=0 THEN DO;
INCOME(I)=-5;
CPS(I)=-5;
LEVEL(I)=-5;
END;
ELSE DO;
DO K=1 TO 19;
IF COMPONENT(K)>-4 THEN DO;
IF COMPONENT(K)<0 THEN
MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
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;
/* income trunc */
/* IF INCOME(I) > 100000 THEN INCOME(I) = 500000; */
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;
ELSE CPS(I)=-3;
END;
END;
END;
DO I=1 TO 3;
IF MN(16,I)>0 THEN MN(16,I)=1;
END;
IF SUMN(16)>0 THEN SUMN(16)=1;
INCOME(16)=R(50807.)
CPS(16)=R(50808.)
LEVEL(16)=R(50809.)
DO I=17;
AFDC(I)=-4;
ALIM(I)=-4;
CHSP(I)=-4;
CPS(I)=-4;
ED(I)=-4;
EDSS(I)=-4;
FAMILY(I)=-4;
FAMINC(I)=-4;
FOOD(I)=-4;
INCOME(I)=-4;
LEVEL(I)=-4;
MIL(I)=-4;
MILS(I)=-4;
DO J=1 TO 3;
MN(I,J)=-4;
END;
OTHER(I)=-4;
PUBLIC(I)=-4;
RELREG(I)=-4;
RELWEL(I)=-4;
S(I)=-4;
SEI(I)=-4;
SEIS(I)=-4;
SUMN(I)=-4;
DO J=1 TO 3;
DO K=1 TO 15;
TABLE(I,J,K)=-4;
END;
END;
UI(I)=-4;
UIS(I)=-4;
VET(I)=-4;
WPS(I)=-4;
WPSS(I)=-4;
END;
/* The 1996 Poverty Income Guidelines are applicable for income received in calendar 1995. Contact the */
/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation, */
/* (202) 690-6141, to receive a fax for the Poverty Income Guidelines. Talk to Gordan Fisher or Joan */
/* Turek-Brezina. Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8. */
/* Several variables pertaining to recipiency from various government income programs were computed from */
/* a number of different variables in 1994, due to the change to an event history format for data collection. */
/* these variables are as follows: */
/* WKTOT95U = Total number of weeks R received unemployment compensation in calendar year 1995 */
/* RCTOT95U = Total amount of unemployment compensation R received in calendar year 1995 */
/* WKTOT95S = Total number of weeks R's spouse received unemployment compensation in calendar year */
/* 1995 */
/* RCTOT95U = Total amount of unemployment compensation R's spouse received in calendar year 1995 */
/* MOTOT95A = Total number of months R or spouse received AFDC payments in calendar year 1995 */
/* RCTOT95A = Total amount of AFDC R or spouse received in calendar year 1995 */
/* MOTOT95F = Total number of months R or spouse received government food stamps in calendar year */
/* 1995 */
/* RCTOT95F = Total amount of government food stamps R or spouse received in calendar year 1995 */
/* MOTOT95W = Total number of months R or spouse received other welfare or public assistance payments */
/* in calendar year 1995 */
/* RCTOT95W = Total amount of other welfare or public assistance payments R or spouse received in */
/* calendar year 1995 */
TABLE(17,1,1)=7470;
TABLE(17,2,1)=9340;
TABLE(17,3,1)=8610;
DO J=2 TO 15;
TABLE(17,1,J)=TABLE(17,1,J-1)+2560;
TABLE(17,2,J)=TABLE(17,2,J-1)+3200;
TABLE(17,3,J)=TABLE(17,3,J-1)+2940;
END;
S(17)=1;
IF STATE96=2 THEN S(17)=2;
ELSE IF STATE96=15 THEN S(17)=3;
IF R(56260.)=-4 THEN MIL(17)=0;
ELSE MIL(17)=R(56260.);
IF R(56262.)=-4 THEN WPS(17)=0;
ELSE WPS(17)=R(56262.);
IF R(56266.)=-4 THEN SEI(17)=0;
ELSE SEI(17)=R(56266.);
IF WKTOT95U=-4 & RCTOT95U=-4 THEN UI(17)=0;
ELSE IF WKTOT95U>0 & RCTOT95U>0 THEN UI(17)=WKTOT95U * RCTOT95U;
ELSE IF RCTOT95U<0 THEN UI(17)=RCTOT95U;
ELSE UI(17)=-3;
IF Q13_16=-4 THEN MILS(17)=0;
ELSE MILS(17)= Q13_16;
IF R(56508.)=-4 THEN WPSS(17)=0;
ELSE WPSS(17)=R(56508.);
IF R(56514.)=-4 THEN SEIS(17)=0;
ELSE SEIS(17)=R(56514.);
IF WKTOT95S=-4 & RCTOT95S=-4 THEN UIS(17)=0;
ELSE IF WKTOT95S>0 & RCTOT95S>0 THEN UIS(17)=WKTOT95S * RCTOT95S;
ELSE IF RCTOT95S<0 THEN UIS(17)=RCTOT95S;
ELSE UIS(17)=-3;
IF Q13_32=-4 THEN ALIM(17)=0;
ELSE ALIM(17)= Q13_32;
IF Q13_33I=-4 THEN CHSP(17)=0;
ELSE CHSP(17)= Q13_33I;
IF Q13_33M=-4 THEN CHSP(17)=0;
ELSE CHSP(17)= Q13_33M;
IF RCTOT95A=-4 THEN AFDC(17)=0;
ELSE DO;
IF RCTOT95A<0 THEN AFDC(17)=RCTOT95A;
ELSE IF MOTOT95A<=0 THEN AFDC(17)=-3;
ELSE AFDC(17)=RCTOT95A * MOTOT95A;
END;
IF RCTOT95F=-4 THEN FOOD(17)=0;
ELSE DO;
IF RCTOT95F<0 THEN FOOD(17)=RCTOT95F;
ELSE IF MOTOT95F<=0 THEN FOOD(17)=-3;
ELSE FOOD(17)=RCTOT95F * MOTOT95F;
END;
IF RCTOT95W=-4 THEN PUBLIC(17)=0;
ELSE DO;
IF RCTOT95W<0 THEN PUBLIC(17)=RCTOT95W;
ELSE IF MOTOT95W<=0 THEN PUBLIC(17)=-3;
ELSE PUBLIC(17)=RCTOT95W * MOTOT95W;
END;
IF R(57255.)=-4 THEN ED(17)=0;
ELSE ED(17)=R(57255.);
IF R(57257.)=-4 THEN EDSS(17)=0;
ELSE EDSS(17)=R(57257.);
IF Q13_70=-4 THEN VET(17)=0;
ELSE VET(17)= Q13_70;
IF R(57264.)=-4 THEN OTHER(17)=0;
ELSE OTHER(17)=R(57264.);
IF VET(17)>0 & OTHER(17)=VET(17) THEN OTHER(17)=0;
IF Q13_92=-4 THEN RELWEL(17)=0;
ELSE RELWEL(17)= Q13_92;
IF Q13_92C=-4 THEN RELREG(17)=0;
ELSE RELREG(17)= Q13_92C;
FAMILY(17)=FAMSZ96; /* TO CREATE FAMILY SIZE (I.E. FAMSZ96)
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) */
DCL COMPONENT(19) FIXED DEC(9);
DO I=17;
MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;
FAMINC(I)=0;
INCOME(I)=-3;
COMPONENT(1)=MIL(I);
COMPONENT(2)=MILS(I);
COMPONENT(3)=WPS(I);
COMPONENT(4)=WPSS(I);
COMPONENT(5)=SEI(I);
COMPONENT(6)=SEIS(I);
COMPONENT(7)=UI(I);
COMPONENT(8)=UIS(I);
COMPONENT(9)=ALIM(I);
COMPONENT(10)=CHSP(I);
COMPONENT(11)=AFDC(I);
COMPONENT(12)=PUBLIC(I);
COMPONENT(13)=ED(I);
COMPONENT(14)=EDSS(I);
COMPONENT(15)=VET(I);
COMPONENT(16)=OTHER(I);
COMPONENT(17)=RELWEL(I);
COMPONENT(18)=RELREG(I);
COMPONENT(19)=FOOD(I);
IF WEIGHT(I)=0 THEN DO;
INCOME(I)=-5;
CPS(I)=-5;
LEVEL(I)=-5;
END;
ELSE DO;
DO K=1 TO 19;
IF COMPONENT(K)>-4 THEN DO;
IF COMPONENT(K)<0 THEN
MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;
ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);
END;
END;
SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);
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;
/* income trunc */
/* IF INCOME(I) > 100000 THEN INCOME(I) = 500000; */
IF FAMILY(I)>0 THEN DO;
LEVEL(I)=TABLE(I,S(I),FAMILY(I));
IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;
ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;
ELSE CPS(I)=-3;
END;
END;
END;
DO I=1 TO 3;
IF MN(17,I)>0 THEN MN(17,I)=1;
END;
IF SUMN(17)>0 THEN SUMN(17)=1;
INCOME(17)=R(51660.)
CPS(17)=R(51661.)
LEVEL(17)=R(51662.)
/*programming for the 1998 variable TNFI is done in SPSS. Only question numbers are listed.*/ COMPUTE AFDC_CUR=-4 COMPUTE CHSP_CUR=-4 COMPUTE CHSPS_C=-4 COMPUTE CPS_CUR=-4 COMPUTE ED_CUR=-4 COMPUTE EDSS_CUR=-4 COMPUTE FAMILY_C=-4 COMPUTE FAMINC_C=-4 COMPUTE FOOD_CUR=-4 COMPUTE INCOME_C=-4 COMPUTE LEVEL_C=-4 COMPUTE MIL_CUR=-4 COMPUTE MILS_CUR=-4 COMPUTE MN1701=-4 COMPUTE MN1702=-4 COMPUTE MN1703=-4 COMPUTE OTHER_C=-4 COMPUTE SSI_CUR=-4 COMPUTE RELREG_C=-4 COMPUTE RELWEL_C=-4 COMPUTE S_CUR=-4 COMPUTE SEI_CUR=-4 COMPUTE SEIS_CUR=-4 COMPUTE SUMN_CUR=-4 COMPUTE UI_CUR=-4 COMPUTE UIS_CUR=-4 COMPUTE VET_CUR=-4 COMPUTE WPS_CUR=-4 COMPUTE WPSS_CUR=-4 /* The 1997 Poverty Income Guidelines are applicable for income received in calendar 1997. Contact the */ /* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation,*/ /* (202) 690-6141, to receive a fax for the Poverty Income Guidelines. Talk to Gordan Fisher or Joan*/ /* Turek-Brezina. Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8.*/ /* Several variables pertaining to recipiency from various government income programs were computed from */ /* a number of different variables in 1997, due to the change to an event history format for data collection.*/ /* these variables are as follows: */ /* WKTOT97U = Total number of weeks R received unemployment compensation in calendar year 1997*/ /* RCTOT97U = Total amount of unemployment compensation R received in calendar year 1997*/ /* WKTOT97S = Total number of weeks R's spouse received unemployment compensation in calendar year 1997*/ /* RCTOT97U = Total amount of unemployment compensation R's spouse received in calendar year 1997*/ /* MOTOT97A = Total number of months R or spouse received AFDC payments in calendar year 1997*/ /* RCTOT97A = Total amount of AFDC R or spouse received in calendar year 1997*/ /* MOTOT97F = Total number of months R or spouse received government food stamps in calendar year 1997*/ /* RCTOT97F = Total amount of government food stamps R or spouse received in calendar year 1997*/ /* MOTOT97W = Total number of months R or spouse received other welfare or public assistance payments*/ /* in calendar year 1997*/ /* RCTOT97W = Total amount of other welfare or public assistance payments R or spouse received in*/ /* calendar year 1997*/ COMPUTE TABLE1=7890 COMPUTE TBL1_INC=2720 COMPUTE TABLE2=9870 COMPUTE TBL2_INC=3400 COMPUTE TABLE3=9070 COMPUTE TBL3_INC=3130 COMPUTE S_CUR=1 DO IF (STATE98N = ' 2') COMPUTE S_CUR=2 ELSE IF (STATE98N = '15') COMPUTE S_CUR=3 END IF DO IF (Q13_3 = -4) COMPUTE MIL_CUR=0 ELSE COMPUTE MIL_CUR=Q13_3 END IF DO IF (Q13_5 = -4) COMPUTE WPS_CUR=0 ELSE COMPUTE WPS_CUR=Q13_5 END IF DO IF (Q13_9 = -4) COMPUTE SEI_CUR=0 ELSE COMPUTE SEI_CUR=Q13_9 END IF DO IF (WKTOT97U = -4 AND RCTOT97U = -4) COMPUTE UI_CUR=0 ELSE IF (WKTOT97U = -4 AND RCTOT97U = 0) COMPUTE UI_CUR=0 ELSE IF (WKTOT97U > 0 AND RCTOT97U > 0) COMPUTE UI_CUR=(WKTOT97U * RCTOT97U) ELSE IF (WKTOT97U < 0) COMPUTE UI_CUR=WKTOT97U ELSE IF (RCTOT97U < 0) COMPUTE UI_CUR=RCTOT97U ELSE COMPUTE UI_CUR=-3 END IF DO IF (PAFLAGA EQ 1 OR Q13_16 = -4) COMPUTE MILS_CUR=0 ELSE COMPUTE MILS_CUR=Q13_16 END IF DO IF (PAFLAGA EQ 1 OR Q13_18 = -4) COMPUTE WPSS_CUR=0 ELSE COMPUTE WPSS_CUR=Q13_18 END IF DO IF (PAFLAGA EQ 1 OR Q13_24 = -4) COMPUTE SEIS_CUR=0 ELSE COMPUTE SEIS_CUR=Q13_24 END IF DO IF (PAFLAGA EQ 1 OR (WKTOT97S = -4 AND RCTOT97S = -4)) COMPUTE UIS_CUR=0 ELSE IF (PAFLAGA EQ 1 OR (WKTOT97S = -4 AND RCTOT97S = 0)) COMPUTE UIS_CUR=0 ELSE IF (WKTOT97S > 0 AND RCTOT97S > 0) COMPUTE UIS_CUR=(WKTOT97S * RCTOT97S) ELSE IF (WKTOT97S < 0) COMPUTE UIS_CUR=WKTOT97S ELSE IF (RCTOT97S < 0) COMPUTE UIS_CUR=RCTOT97S ELSE COMPUTE UIS_CUR=-3 END IF DO IF (Q13_33I = -4) COMPUTE CHSP_CUR=0 ELSE COMPUTE CHSP_CUR=Q13_33I END IF DO IF (PAFLAGA EQ 1 OR Q13_33M = -4) COMPUTE CHSPS_C=0 ELSE COMPUTE CHSPS_C=Q13_33M END IF DO IF (RCTOT97A EQ -4 OR RCTOT97A EQ 0) COMPUTE AFDC_CUR=0 ELSE IF (MOTOT97A EQ -4 OR MOTOT97A EQ 0) COMPUTE AFDC_CUR=0 ELSE IF (RCTOT97A < 0) COMPUTE AFDC_CUR=RCTOT97A ELSE IF (MOTOT97A < 0) COMPUTE AFDC_CUR=MOTOT97A ELSE IF (MOTOT97A <= 0) COMPUTE AFDC_CUR=-3 ELSE COMPUTE AFDC_CUR=(RCTOT97A * MOTOT97A) END IF DO IF (RCTOT97F EQ -4 OR RCTOT97F EQ 0) COMPUTE FOOD_CUR=0 ELSE IF (MOTOT97F EQ -4 OR MOTOT97F EQ 0) COMPUTE FOOD_CUR=0 ELSE IF (RCTOT97F < 0) COMPUTE FOOD_CUR=RCTOT97F ELSE IF (MOTOT97F < 0) COMPUTE FOOD_CUR=MOTOT97F ELSE IF (MOTOT97F <= 0) COMPUTE FOOD_CUR=-3 ELSE COMPUTE FOOD_CUR=(RCTOT97F * MOTOT97F) END IF DO IF (RCTOT97W EQ -4 OR RCTOT97W EQ 0) COMPUTE SSI_CUR=0 ELSE IF (MOTOT97W EQ -4 OR MOTOT97W EQ 0) COMPUTE SSI_CUR=0 ELSE IF (RCTOT97W < 0) COMPUTE SSI_CUR=RCTOT97W ELSE IF (MOTOT97W < 0) COMPUTE SSI_CUR=MOTOT97W ELSE IF (MOTOT97W <= 0) COMPUTE SSI_CUR=-3 ELSE COMPUTE SSI_CUR=(RCTOT97W * MOTOT97W) END IF DO IF (Q13_66 = -4) COMPUTE ED_CUR=0 ELSE COMPUTE ED_CUR=Q13_66 END IF DO IF (PAFLAGA EQ 1 OR Q13_68 = -4) COMPUTE EDSS_CUR=0 ELSE COMPUTE EDSS_CUR=Q13_68 END IF DO IF (Q13_70A = -4) COMPUTE VET_CUR=0 ELSE COMPUTE VET_CUR=Q13_70A END IF DO IF (Q13_75 = -4) COMPUTE OTHER_C=0 ELSE COMPUTE OTHER_C=Q13_75 END IF IF (VET_CUR > 0 AND OTHER_C = VET_CUR) OTHER_C=0 DO IF (Q13_92 = -4) COMPUTE RELWEL_C=0 ELSE COMPUTE RELWEL_C=Q13_92 END IF DO IF (Q13_92C = -4) COMPUTE RELREG_C=0 ELSE COMPUTE RELREG_C=Q13_92C END IF COMPUTE FAMILY_C=FAMSZ98 /* TO CREATE FAMILY SIZE (I.E. FAMSZ98) */ /* 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) */ COMPUTE MN1701=0 COMPUTE MN1702=0 COMPUTE MN1703=0 COMPUTE FAMINC_C=0 COMPUTE INCOME_C=-3 COMPUTE COMPO1=MIL_CUR COMPUTE COMPO2=MILS_CUR COMPUTE COMPO3=WPS_CUR COMPUTE COMPO4=WPSS_CUR COMPUTE COMPO5=SEI_CUR COMPUTE COMPO6=SEIS_CUR COMPUTE COMPO7=UI_CUR COMPUTE COMPO8=UIS_CUR COMPUTE COMPO9=CHSP_CUR COMPUTE COMPO10=AFDC_CUR COMPUTE COMPO11=SSI_CUR COMPUTE COMPO12=ED_CUR COMPUTE COMPO13=EDSS_CUR COMPUTE COMPO14=VET_CUR COMPUTE COMPO15=OTHER_C COMPUTE COMPO16=RELWEL_C COMPUTE COMPO17=RELREG_C COMPUTE COMPO18=FOOD_CUR COMPUTE COMPO19=CHSPS_C DO IF (WKTOT97U EQ -4 AND RCTOT97U GT 0) COMPUTE UI_CUR=-3 COMPUTE COMPO7=-3 ELSE IF (WKTOT97U LT 0 AND WKTOT97U GT -4) COMPUTE UI_CUR=-3 COMPUTE COMPO7=-3 END IF DO IF (WKTOT97S EQ -4 AND RCTOT97S GT 0) COMPUTE UIS_CUR=-3 COMPUTE COMPO8=-3 ELSE IF (WKTOT97S LT 0 AND WKTOT97S GT -4) COMPUTE UIS_CUR=-3 COMPUTE COMPO8=-3 END IF DO IF (MOTOT97A EQ -4 AND RCTOT97A GT 0) COMPUTE AFDC_CUR=-3 COMPUTE COMPO10=-3 ELSE IF (MOTOT97A LT 0 AND MOTOT97A GT -4) COMPUTE AFDC_CUR=-3 COMPUTE COMPO10=-3 END IF DO IF (MOTOT97F EQ -4 AND RCTOT97F GT 0) COMPUTE FOOD_CUR=-3 COMPUTE COMPO18=-3 ELSE IF (MOTOT97F LT 0 AND MOTOT97F GT -4) COMPUTE FOOD_CUR=-3 COMPUTE COMPO18=-3 END IF DO IF (MOTOT97W EQ -4 AND RCTOT97W GT 0) COMPUTE SSI_CUR=-3 COMPUTE COMPO11=-3 ELSE IF (MOTOT97W LT 0 AND MOTOT97W GT -4) COMPUTE SSI_CUR=-3 COMPUTE COMPO11=-3 END IF DO REPEAT COMPO=COMPO1 TO COMPO19 DO IF (COMPO > -4) DO IF (COMPO < 0 AND COMPO EQ -1) COMPUTE MN1701=(MN1701+1) ELSE IF (COMPO < 0 AND COMPO EQ -2) COMPUTE MN1702=(MN1702+1) ELSE IF (COMPO < 0 AND COMPO EQ -3) COMPUTE MN1703=(MN1703+1) ELSE COMPUTE FAMINC_C=(FAMINC_C + COMPO) END IF END IF END REPEAT DO IF (SUMN_CUR = 0) COMPUTE INCOME_C=FAMINC_C ELSE DO IF (MN1703 > 0) COMPUTE INCOME_C=-3 ELSE IF (MN1702 > 0) COMPUTE INCOME_C=-2 ELSE IF (MN1701 > 0) COMPUTE INCOME_C=-1 END IF END IF IF (PAFLAGA EQ -5) INCOME_C=-5 /* INCOME TRUNC */ /* IF (INCOME_C >= 161400) INCOME_C=1022003 */ /* POVERTY STATUS AND LEVEL */ DO IF (FAMILY_C > 0 AND S_CUR EQ 1) COMPUTE LEVEL_C=(TABLE1 + (TBL1_INC * (FAMILY_C-1))) ELSE IF (FAMILY_C > 0 AND S_CUR EQ 2) COMPUTE LEVEL_C=(TABLE2 + (TBL2_INC * (FAMILY_C-1))) ELSE IF (FAMILY_C > 0 AND S_CUR EQ 3) COMPUTE LEVEL_C=(TABLE3 + (TBL3_INC * (FAMILY_C-1))) END IF DO IF (INCOME_C > LEVEL_C) COMPUTE CPS_CUR=0 ELSE IF (INCOME_C >= 0 AND INCOME_C <= LEVEL_C) COMPUTE CPS_CUR=1 ELSE COMPUTE CPS_CUR=-3 END IF DO REPEAT MN=MN1701 TO MN1703 IF (MN > 0) MN=1 END REPEAT PRINT IF (SUMN_CUR > 0) SUMN_CUR=1 IF (PAFLAGA EQ -5) LEVEL_C=-5 IF (PAFLAGA EQ -5) CPS_CUR=-5
/*programming for the 2000 variable TNFI is done in SPSS. Only question numbers are listed.*/
COMPUTE afdc_cur=-4
COMPUTE chsp_cur=-4
COMPUTE chsps_c=-4
COMPUTE cps_cur=-4
COMPUTE ed_cur=-4
COMPUTE edss_cur=-4
COMPUTE family_c=-4
COMPUTE faminc_c=-4
COMPUTE food_cur=-4
COMPUTE income_c=-4
COMPUTE level_c=-4
COMPUTE mil_cur=-4
COMPUTE mils_cur=-4
COMPUTE mn1701=-4
COMPUTE mn1702=-4
COMPUTE mn1703=-4
COMPUTE other_c=-4
COMPUTE ssi_cur=-4
COMPUTE relreg_c=-4
COMPUTE relwel_c=-4
COMPUTE s_cur=-4
COMPUTE sei_cur=-4
COMPUTE seis_cur=-4
COMPUTE sumn_cur=-4
COMPUTE ui_cur=-4
COMPUTE uis_cur=-4
COMPUTE vet_cur=-4
COMPUTE wps_cur=-4
COMPUTE wpss_cur=-4
COMPUTE wkcmp_c=-4
/* The 1999 Poverty Income Guidelines are applicable for income received in calendar 1999. Contact the */
/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation, */
/* (202) 690‑6141, to receive a fax for the Poverty Income Guidelines. Talk to Gordan Fisher or Joan */
/* Turek‑Brezina. Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8. */
/* Several variables pertaining to recipiency from various government income programs were computed from */
/* a number of different variables in 1999, due to the change to an event history format for data collection. */
/* these variables are as follows: */
/* WKTOT99U = Total number of weeks R received unemployment compensation in calendar year 1999 */
/* RCTOT99U = Total amount of unemployment compensation R received in calendar year 1999 */
/* WKTOT99S = Total number of weeks R's spouse received unemployment compensation in calendar year 1999 */
/* RCTOT99U = Total amount of unemployment compensation R's spouse received in calendar year 1999 */
/* MOTOT99A = Total number of months R or spouse received AFDC payments in calendar year 1999 */
/* RCTOT99A = Total amount of AFDC R or spouse received in calendar year 1999 */
/* MOTOT99F = Total number of months R or spouse received government food stamps in calendar year 1999 */
/* RCTOT99F = Total amount of government food stamps R or spouse received in calendar year 1999 */
/* MOTOT99W = Total number of months R or spouse received other welfare or public assistance payments */
/* in calendar year 1999 */
/* RCTOT99W = Total amount of other welfare or public assistance payments R or spouse received in */
/* calendar year 1999 */
COMPUTE table1=8240
COMPUTE tbl1_inc=2820
COMPUTE table2=10320
COMPUTE tbl2_inc=3520
COMPUTE table3=9490
COMPUTE tbl3_inc=3240
/* set state of residence by hand for HA and Alaska for movers */
/* ste_cd is the original code and public_ids are listed for all who reported */
/* a move to HA or Alaska */
COMPUTE s_cur=1
do if ((ste_cd=2)
or
((public_id=5671)
or (public_id=11881)))
COMPUTE s_cur=2
else if
((ste_cd=15)
or
(public_id=1266))
COMPUTE s_cur=3
end if
do if (Q13_3 = -4)
COMPUTE mil_cur=0
else
COMPUTE mil_cur=Q13_3
end if
do if (Q13_5 = -4)
COMPUTE wps_cur=0
else
COMPUTE wps_cur=Q13_5
end if
/* new series to incorporate new farm & bus income qs */ /* public_ids are listed for cases with 2 farms or businesses */
COMPUTE fjt_inc=fjt_141
if (public_id eq 3187) fjt_inc=13000
do if (fjt_inc eq -4)
COMPUTE farm_cur=0
else
COMPUTE farm_cur=fjt_inc
end if
COMPUTE bpjt_inc=bp_141
if (public_id eq 2410) bpjt_inc=15000
if (public_id eq 6068) bpjt_inc=40000
do if (bpjt_inc eq -4)
COMPUTE bus_cur=0
else
COMPUTE bus_cur=bpjt_inc
end if
COMPUTE fbr_inc=q13_132d
do if (fbr_inc eq -4)
COMPUTE fbr_cur=0
else
COMPUTE fbr_cur=fbr_inc
end if
do if (Q13_9 = -4)
COMPUTE sei_cur=0
else
COMPUTE sei_cur=Q13_9
end if
if (farm_cur gt 0) sei_cur=(sei_cur+farm_cur)
if (bus_cur gt 0) sei_cur=(sei_cur+bus_cur)
if (fbr_cur gt 0) sei_cur=(sei_cur+fbr_cur)
do if (wktot99u = -4 and rctot99u = -4)
COMPUTE ui_cur=0
else if (wktot99u = -4 and rctot99u = 0)
COMPUTE ui_cur=0
else if (wktot99u > 0 and rctot99u > 0)
COMPUTE ui_cur=rctot99u
else if (wktot99u < 0)
COMPUTE ui_cur=wktot99u
else if (rctot99u < 0)
COMPUTE ui_cur=rctot99u
else
COMPUTE ui_cur=-3
end if
do if (paflaga eq 1 or Q13_16 = -4)
COMPUTE mils_cur=0
else
COMPUTE mils_cur=Q13_16
end if
do if (paflaga eq 1 or Q13_18 = -4)
COMPUTE wpss_cur=0
else
COMPUTE wpss_cur=Q13_18 end if
do if (paflaga eq 1 or Q13_24 = -4)
COMPUTE seis_cur=0
else
COMPUTE seis_cur=Q13_24
end if
do if (paflaga eq 1 or (wktot99s = -4 and rctot99s = -4))
COMPUTE uis_cur=0
else if
(paflaga eq 1 or (wktot99s = -4 and rctot99s = 0))
COMPUTE uis_cur=0
else if
(wktot99s > 0 and rctot99s > 0)
COMPUTE uis_cur=rctot99s
else if
(wktot99s < 0)
COMPUTE uis_cur=wktot99s
else if (rctot99s < 0)
COMPUTE uis_cur=rctot99s
else
COMPUTE uis_cur=-3
end if
do if (q13_31b = -4)
COMPUTE wkcmp_c=0
else
COMPUTE wkcmp_c=q13_31b
end if
do if (Q13_33I = -4)
COMPUTE chsp_cur=0
else
COMPUTE chsp_cur=Q13_33I
end if
do if (paflaga eq 1 or Q13_33M = -4)
COMPUTE chsps_c=0
else
COMPUTE chsps_c=Q13_33M
end if
do if (rctot99a eq -4 or rctot99a eq 0)
COMPUTE afdc_cur=0
else if (motot99a eq -4 or motot99a eq 0)
COMPUTE afdc_cur=0
else if (rctot99a < 0)
COMPUTE afdc_cur=rctot99a
else if (motot99a < 0)
COMPUTE afdc_cur=motot99a
else if (motot99a <= 0)
COMPUTE afdc_cur=-3
else
COMPUTE afdc_cur=rctot99a
end if
do if (rctot99f eq -4 or rctot99f eq 0)
COMPUTE food_cur=0
else if (motot99f eq -4 or motot99f eq 0)
COMPUTE food_cur=0
else if (rctot99f < 0)
COMPUTE food_cur=rctot99f
else if (motot99f < 0)
COMPUTE food_cur=motot99f
else if (motot99f <= 0)
COMPUTE food_cur=-3
else
COMPUTE food_cur=rctot99f end if
do if (rctot99w eq -4 or rctot99w eq 0)
COMPUTE ssi_cur=0
else if (motot99w eq -4 or motot99w eq 0)
COMPUTE ssi_cur=0
else if (rctot99w < 0)
COMPUTE ssi_cur=rctot99w
else if (motot99w < 0)
COMPUTE ssi_cur=motot99w
else if (motot99w <= 0)
COMPUTE ssi_cur=-3
else
COMPUTE ssi_cur=rctot99w
end if
do if (Q13_66 = -4)
COMPUTE ed_cur=0
else
COMPUTE ed_cur=Q13_66
end if
do if (paflaga eq 1 or Q13_68 = -4)
COMPUTE edss_cur=0
else
COMPUTE edss_cur=Q13_68
end if
do if (q13_70 = -4)
COMPUTE vet_cur=0
else
COMPUTE vet_cur=q13_70
end if
do if (Q13_75 = -4)
COMPUTE other_c=0
else
COMPUTE other_c=Q13_75
end if
if (vet_cur > 0 and other_c = vet_cur) other_c=0
do if (Q13_92 = -4)
COMPUTE relwel_c=0
else
COMPUTE relwel_c=Q13_92
end if
do if (Q13_92C = -4)
COMPUTE relreg_c=0
else
COMPUTE relreg_c=Q13_92C
end if
compute family_c=famsz00 /* To create family size (i.e. famsz00) 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) */
COMPUTE mn1701=0
COMPUTE mn1702=0
COMPUTE mn1703=0
COMPUTE faminc_c=0
COMPUTE income_c=-3
COMPUTE compo1=mil_cur
COMPUTE compo2=mils_cur
COMPUTE compo3=wps_cur
COMPUTE compo4=wpss_cur
COMPUTE compo5=sei_cur
COMPUTE compo6=seis_cur
COMPUTE compo7=ui_cur
COMPUTE compo8=uis_cur
COMPUTE compo9=chsp_cur
COMPUTE compo10=afdc_cur
COMPUTE compo11=ssi_cur
COMPUTE compo12=ed_cur
COMPUTE compo13=edss_cur
COMPUTE compo14=vet_cur
COMPUTE compo15=other_c
COMPUTE compo16=relwel_c
COMPUTE compo17=relreg_c
COMPUTE compo18=food_cur
COMPUTE compo19=chsps_c
COMPUTE compo20=wkcmp_c
do if (wktot99u eq -4 and rctot99u gt 0)
COMPUTE ui_cur=-3
COMPUTE compo7=-3
else if (wktot99u lt 0 and wktot99u gt -4)
COMPUTE ui_cur=-3
COMPUTE compo7=-3
end if
do if (wktot99s eq -4 and rctot99s gt 0)
COMPUTE uis_cur=-3
COMPUTE compo8=-3
else if (wktot99s lt 0 and wktot99s gt -4)
COMPUTE uis_cur=-3
COMPUTE compo8=-3
end if
do if (motot99a eq -4 and rctot99a gt 0)
COMPUTE afdc_cur=-3
COMPUTE compo10=-3
else if (motot99a lt 0 and motot99a gt -4)
COMPUTE afdc_cur=-3
COMPUTE compo10=-3
end if
do if (motot99f eq -4 and rctot99f gt 0)
COMPUTE food_cur=-3
COMPUTE compo18=-3
else if (motot99f lt 0 and motot99f gt -4)
COMPUTE food_cur=-3
COMPUTE compo18=-3
end if
do if (motot99w eq -4 and rctot99w gt 0)
COMPUTE ssi_cur=-3
COMPUTE compo11=-3
else if (motot99w lt 0 and motot99w gt -4)
COMPUTE ssi_cur=-3
COMPUTE compo11=-3
end if
do repeat compo=compo1 to compo20
do if (compo > -4)
do if (compo < 0 and compo eq -1)
COMPUTE mn1701=(mn1701+1)
else if (compo < 0 and compo eq -2)
COMPUTE mn1702=(mn1702+1)
else if (compo < 0 and compo eq -3)
COMPUTE mn1703=(mn1703+1)
else
COMPUTE faminc_c=(faminc_c + compo) . end if
end if
end repeat print
COMPUTE sumn_cur=mn1701 + mn1702 + mn1703
do if (sumn_cur = 0)
COMPUTE income_c=faminc_c
else
do if (mn1703 > 0)
COMPUTE income_c=-3
else if (mn1702 > 0)
COMPUTE income_c=-2
else if (mn1701 > 0)
COMPUTE income_c=-1
end if
end if
if (paflaga eq -5) income_c=-5
if (public_id eq 9373) income_c=-3
/* poverty status and level */
do if (family_c > 0 and s_cur eq 1)
COMPUTE level_c=(table1 + (tbl1_inc * (family_c-1)))
else if (family_c > 0 and s_cur eq 2)
COMPUTE level_c=(table2 + (tbl2_inc * (family_c-1)))
else if (family_c > 0 and s_cur eq 3)
COMPUTE level_c=(table3 + (tbl3_inc * (family_c-1)))
end if
do if (income_c > level_c)
COMPUTE cps_cur=0
else if (income_c >= 0 and income_c <= level_c)
COMPUTE cps_cur=1
else
COMPUTE cps_cur=-3
end if
do repeat mn=mn1701 to mn1703
if (mn > 0) mn=1
end repeat print
if (sumn_cur > 0) sumn_cur=1
if (paflaga eq -5) level_c=-5
if (paflaga eq -5) cps_cur=-5
* SAS PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2002;
afdc_cur=-4;
chsp_cur=-4;
chsps_c=-4;
cps_cur=-4;
ed_cur=-4;
edss_cur=-4;
family_c=-4;
faminc_c=-4;
food_cur=-4;
income_c=-4;
level_c=-4;
mil_cur=-4;
mils_cur=-4;
mn1701=-4;
mn1702=-4;
mn1703=-4;
other_c=-4;
ssi_cur=-4;
relreg_c=-4;
relwel_c=-4;
s_cur=-4;
sei_cur=-4;
seis_cur=-4;
sumn_cur=-4;
target_c=-4;
ui_cur=-4;
uis_cur=-4;
vet_cur=-4;
wps_cur=-4;
wpss_cur=-4;
wkcmp_c=-4;
dis_cur=-4;
ss_cur=-4;
/* The 2001 Poverty Income Guidelines are applicable for income received in calendar 2001, and were accessed */
/* through the website http://aspe.hhs.gov/poverty/01poverty.htm. Contact the */
/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation, */
/* (202) 690‑6141, to receive a fax for the Poverty Income Guidelines. Or see the Social Security Bulletin, */
/* Annual Statistical Supplement, table 3.E8. */
/* Several variables pertaining to recipiency from various government income programs were computed from */
/* a number of different variables in 2001, due to the change to an event history format for data collection. */
/* these variables are as follows: */
/* WKTOT01U = Total number of weeks R received unemployment compensation in calendar year 2001 */
/* RCTOT01U = Total amount of unemployment compensation R received in calendar year 2001 */
/* WKTOT01S = Total number of weeks R's spouse received unemployment compensation in calendar year 2001 */
/* RCTOT01U = Total amount of unemployment compensation R's spouse received in calendar year 2001 */
/* MOTOT01A = Total number of months R or spouse received AFDC payments in calendar year 2001 */
/* RCTOT01A = Total amount of AFDC R or spouse received in calendar year 2001 */
/* MOTOT01F = Total number of months R or spouse received government food stamps in calendar year 2001 */
/* RCTOT01F = Total amount of government food stamps R or spouse received in calendar year 2001 */
/* MOTOT01W = Total number of months R or spouse received other welfare or public assistance payments */
/* in calendar year 2001 */
/* RCTOT01W = Total amount of other welfare or public assistance payments R or spouse received in */
/* calendar year 2001 */
table1=8590;
tbl1_inc=3020;
table2=10730;
tbl2_inc=3780;
table3=9890;
tbl3_inc=3470;
* set state of residence by hand for HA and Alaska for movers;
* ste_cd is the original code and public_ids are listed for all who reported;
* a move to HA or Alaska;
s_cur=1;
if (ste_cd=2) then s_cur=2;
else if (ste_cd=15) then s_cur=3;
if (Q13_3 = -4) then mil_cur=0;
else mil_cur=Q13_3;
if (Q13_5 = -4) then wps_cur=0;
else wps_cur=Q13_5;
if (Q13_9 = -4) then sei_cur=0;
else sei_cur=Q13_9;
data compute1;
set compute;
if (wktot01u = -4 & rctot01u = -4) then ui_cur=0;
else if (wktot01u = -4 & rctot01u = 0) then ui_cur=0;
else if (wktot01u > 0 & rctot01u > 0) then ui_cur=rctot01u;
else if (wktot01u < 0) then ui_cur=wktot01u;
else if (rctot01u < 0) then ui_cur=rctot01u;
else ui_cur=-3;
if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;
else mils_cur=Q13_16;
if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;
else wpss_cur=Q13_18;
if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;
else seis_cur=Q13_24;
if (paflaga = 1 | (wktot01s = -4 & rctot01s = -4)) then uis_cur=0;
else if (paflaga = 1 | (wktot01s = -4 & rctot01s = 0)) then uis_cur=0;
else if (wktot01s > 0 & rctot01s > 0) then uis_cur=rctot01s;
else if (wktot01s < 0) then uis_cur=wktot01s;
else if (rctot01s < 0) then uis_cur=rctot01s;
else uis_cur=-3;
if (q13_31b = -4) then wkcmp_c=0;
else wkcmp_c=q13_31b;
if (Q13_33i = -4) then chsp_cur=0;
else chsp_cur=Q13_33i;
if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;
else chsps_c=Q13_33m;
if (rctot01a = -4 | rctot01a = 0) then afdc_cur=0;
else if (motot01a = -4 | motot01a = 0) then afdc_cur=0;
else if (rctot01a < 0) then afdc_cur=rctot01a;
else if (motot01a < 0) then afdc_cur=motot01a;
else if (motot01a <= 0) then afdc_cur=-3;
else afdc_cur=rctot01a;
if (rctot01f = -4 | rctot01f = 0) then food_cur=0;
else if (motot01f = -4 | motot01f = 0) then food_cur=0;
else if (rctot01f < 0) then food_cur=rctot01f;
else if (motot01f < 0) then food_cur=motot01f;
else if (motot01f <= 0) then food_cur=-3;
else food_cur=rctot01f;
if (rctot01w = -4 | rctot01w = 0) then ssi_cur=0;
else if (motot01w = -4 | motot01w = 0) then ssi_cur=0;
else if (rctot01w < 0) then ssi_cur=rctot01w;
else if (motot01w < 0) then ssi_cur=motot01w;
else if (motot01w <= 0) then ssi_cur=-3;
else ssi_cur=rctot01w;
* hand edits to recipiency values;
if (public_id = 98) then ssi_cur = 4896;
else if (public_id = 7584) then ssi_cur = 7584;
else if (public_id = 744) then ssi_cur = -2;
else if (public_id = 1241) then ssi_cur = 6540;
else if (public_id = 2490) then ssi_cur = 25200;
else if (public_id = 2826) then do;
ssi_cur = 7476;
food_cur = 2496;
afdc_cur = 7800;
end;
else if (public_id = 4899) then ui_cur = 4300;
else if (public_id = 5305) then food_cur = 0;
else if (public_id = 7191) then ssi_cur = 4548;
else if (public_id = 7377) then food_cur = 100;
else if (public_id = 9036) then ssi_cur = 6552;
else if (public_id = 9199) then food_cur = 3000;
else if (public_id = 10211) then ssi_cur = 6780;
if (Q13_66 = -4) then ed_cur=0;
else ed_cur=Q13_66;
if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;
else edss_cur=Q13_68;
if (q13_70_v = -4) then vet_cur=0;
else if (q13_70_v = -2) then vet_cur=q13_70_v;
else if (q13_70_v = -1) then vet_cur=q13_70_v;
else vet_cur=(q13_70_v * 12);
if (q13_70_d = -4) then dis_cur=0;
else if (q13_70_d = -2) then dis_cur=q13_70_d;
else if (q13_70_d = -1) then dis_cur=q13_70_d;
else dis_cur=(q13_70_d * 12);
if (q13_70_s = -4) then ss_cur=0;
else if (q13_70_s = -2) then ss_cur=q13_70_s;
else if (q13_70_s = -1) then ss_cur=q13_70_s;
else ss_cur=(q13_70_s * 12);
if (Q13_75 = -4) then other_c=0;
else other_c=Q13_75;
proc print; var public_id vet_cur other_c;
where (vet_cur > 0 & other_c = vet_cur);
title 'freq vet benefits';
data compute2;
set compute1;
if (vet_cur > 0 & other_c = vet_cur) then other_c=0;
if (Q13_92 = -4) then relwel_c=0;
else relwel_c=Q13_92;
if (Q13_92c = -4) then relreg_c=0;
else relreg_c=Q13_92c;
family_c=famsz02;
/* TO CREATE FAMILY SIZE (I.E. FAMSZ02) 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)*/
mn1701=0;
mn1702=0;
mn1703=0;
faminc_c=0;
income_c=-3;
compo1=mil_cur;
compo2=mils_cur;
compo3=wps_cur;
compo4=wpss_cur;
compo5=sei_cur;
compo6=seis_cur;
compo7=ui_cur;
compo8=uis_cur;
compo9=chsp_cur;
compo10=afdc_cur;
compo11=ssi_cur;
compo12=ed_cur;
compo13=edss_cur;
compo14=vet_cur;
compo15=other_c;
compo16=relwel_c;
compo17=relreg_c;
compo18=food_cur;
compo19=chsps_c;
compo20=wkcmp_c;
compo21=dis_cur;
compo22=ss_cur;
if (wktot01u = -4 & rctot01u > 0) then do;
ui_cur=-3;
compo7=-3;
end;
else if (wktot01u < 0 & wktot01u > -4) then do;
ui_cur=-3;
compo7=-3;
end;
if (wktot01s = -4 & rctot01s > 0) then do;
uis_cur=-3;
compo8=-3;
end;
else if (wktot01s < 0 & wktot01s > -4) then do;
uis_cur=-3;
compo8=-3;
end;
if (motot01a = -4 & rctot01a > 0) then do;
afdc_cur=-3;
compo10=-3;
end;
else if (motot01a < 0 & motot01a > -4) then do;
afdc_cur=-3;
compo10=-3;
end;
if (motot01f = -4 & rctot01f > 0) then do;
food_cur=-3;
compo18=-3;
end;
else if (motot01f < 0 & motot01f > -4) then do;
food_cur=-3;
compo18=-3;
end;
if (motot01w = -4 & rctot01w > 0) then do;
ssi_cur=-3;
compo11=-3;
end;
else if (motot01w < 0 & motot01w > -4) then do;
ssi_cur=-3;
compo11=-3;
end;
array compo (j) compo1 compo2 compo3 compo4 compo5 compo6 compo7
compo8 compo9 compo10 compo11 compo12 compo13 compo14
compo15 compo16 compo17 compo18 compo19 compo20
compo21 compo22;
do j=1 to 22;
if (compo > -4) then do;
if (compo < 0 & compo = -1) then mn1701=(mn1701+1);
else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);
else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);
else faminc_c=(faminc_c + compo);
end;
end;
sumn_cur=mn1701 + mn1702 + mn1703;
if (sumn_cur = 0) then income_c=faminc_c;
else do;
if (mn1703 > 0) then income_c=-3;
else if (mn1702 > 0) then income_c=-2;
else if (mn1701 > 0) then income_c=-1;
end;
if (paflaga = -5) then income_c=-5;
proc freq;
tables mn1701 mn1702 mn1703 sumn_cur;
* poverty status and level;
if (family_c > 0 & s_cur = 1) then
level_c=(table1 + (tbl1_inc * (family_c-1)));
else if (family_c > 0 & s_cur eq 2) then
level_c=(table2 + (tbl2_inc * (family_c-1)));
else if (family_c > 0 and s_cur eq 3) then
level_c=(table3 + (tbl3_inc * (family_c-1)));
if (income_c > level_c) then cps_cur=0;
else if (income_c >= 0 & income_c <= level_c) then cps_cur=1;
else cps_cur=-3;
array mn (k) mn1701 mn1702 mn1703;
do k=1 to 3;
if (mn > 0) then mn=1;
end;
if (sumn_cur > 0) then sumn_cur=1;
if (paflaga = -5) then level_c=-5;
if (paflaga = -5) then cps_cur=-5;
* SAS PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2004; afdc_cur=-4; chsp_cur=-4; chsps_c=-4; cps_cur=-4; ed_cur=-4; edss_cur=-4; family_c=-4; faminc_c=-4; food_cur=-4; income_c=-4; level_c=-4; mil_cur=-4; mils_cur=-4; mn1701=-4; mn1702=-4; mn1703=-4; other_c=-4; ssi_cur=-4; relreg_c=-4; relwel_c=-4; s_cur=-4; sei_cur=-4; seis_cur=-4; sumn_cur=-4; target_c=-4; ui_cur=-4; uis_cur=-4; vet_cur=-4; wps_cur=-4; wpss_cur=-4; wkcmp_c=-4; dis_cur=-4; ss_cur=-4; * Federal Poverty Guidelines used in 2003 program apply to calendar year; * 2003. Access the websites found in bookmarks for information on; * current PIG tables. http://aspe.hhs.gov/poverty/03poverty.htm; table1=8980; tbl1_inc=3140; table2=11210; tbl2_inc=3930; table3=10330; tbl3_inc=3610; * set state of residence by hand for HA and Alaska for movers; * ste_cd is the original code and public_ids are listed for all who reported; * a move to HA or Alaska; * replaced ste_cd with state_fips (cleaned state fips code) for 2004; s_cur=1; if (state_fips=2) then s_cur=2; else if (state_fips=15) then s_cur=3; if (Q13_3 = -4) then mil_cur=0; else mil_cur=Q13_3; if (Q13_5 = -4) then wps_cur=0; else wps_cur=Q13_5; * new series to incorporate new farm & bus income qs; * public_ids are listed for cases with 2 farms or businesses; fjt_inc=fjt_141; if (fjt_inc = -4) then farm_cur=0; else farm_cur=fjt_inc; bpjt_inc=bp_141; if (bpjt_inc = -4) then bus_cur=0; else bus_cur=bpjt_inc; fbr_inc=q13_132d; if (fbr_inc = -4) then fbr_cur=0; else fbr_cur=fbr_inc; if (Q13_9 = -4) then sei_cur=0; else sei_cur=Q13_9; if (farm_cur > 0) then sei_cur=(sei_cur+farm_cur); if (bus_cur > 0) then sei_cur=(sei_cur+bus_cur); if (fbr_cur > 0) then sei_cur=(sei_cur+fbr_cur); * data _NULL_; * set Compute; * where sei_cur > 0; * file print; * if (_N_ = 1) then put "sei_cur > 0"; * put public_id fjt_141 fjt_inc farm_cur; * put public_id bp_141 bpjt_inc bus_cur; * put public_id q13_132d fbr_inc fbr_cur; * put public_id q13_9 farm_cur bus_cur fbr_cur sei_cur; * put ' '; * data _NULL_; * set Compute; * where public_id in (2496,2739,5390); * file print; * if (_N_ = 1) then put "public_id in (2496 2739 5390)"; * put public_id fjt_141 fjt_inc farm_cur; * put public_id bp_141 bpjt_inc bus_cur; * put public_id q13_132d fbr_inc fbr_cur; * put public_id q13_9 farm_cur bus_cur fbr_cur sei_cur; * put ' '; data compute1; set compute; if (wktot03u = -4 & rctot03u = -4) then ui_cur=0; else if (wktot03u = -4 & rctot03u = 0) then ui_cur=0; else if (wktot03u > 0 & rctot03u > 0) then ui_cur=rctot03u; else if (wktot03u < 0) then ui_cur=wktot03u; else if (rctot03u < 0) then ui_cur=rctot03u; else ui_cur=-3; if (paflaga = 1 | Q13_16 = -4) then mils_cur=0; else mils_cur=Q13_16; if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0; else wpss_cur=Q13_18; if (paflaga = 1 | Q13_24 = -4) then seis_cur=0; else seis_cur=Q13_24; if (paflaga = 1 | (wktot03s = -4 & rctot03s = -4)) then uis_cur=0; else if (paflaga = 1 | (wktot03s = -4 & rctot03s = 0)) then uis_cur=0; else if (wktot03s > 0 & rctot03s > 0) then uis_cur=rctot03s; else if (wktot03s < 0) then uis_cur=wktot03s; else if (rctot03s < 0) then uis_cur=rctot03s; else uis_cur=-3; if (q13_31b = -4) then wkcmp_c=0; else wkcmp_c=q13_31b; if (Q13_33i = -4) then chsp_cur=0; else chsp_cur=Q13_33i; if (paflaga = 1 | Q13_33m = -4) then chsps_c=0; else chsps_c=Q13_33m; if (rctot03a = -4 | rctot03a = 0) then afdc_cur=0; else if (motot03a = -4 | motot03a = 0) then afdc_cur=0; else if (rctot03a < 0) then afdc_cur=rctot03a; else if (motot03a < 0) then afdc_cur=motot03a; else if (motot03a <= 0) then afdc_cur=-3; else afdc_cur=rctot03a; if (rctot03f = -4 | rctot03f = 0) then food_cur=0; else if (motot03f = -4 | motot03f = 0) then food_cur=0; else if (rctot03f < 0) then food_cur=rctot03f; else if (motot03f < 0) then food_cur=motot03f; else if (motot03f <= 0) then food_cur=-3; else food_cur=rctot03f; if (rctot03w = -4 | rctot03w = 0) then ssi_cur=0; else if (motot03w = -4 | motot03w = 0) then ssi_cur=0; else if (rctot03w < 0) then ssi_cur=rctot03w; else if (motot03w < 0) then ssi_cur=motot03w; else if (motot03w <= 0) then ssi_cur=-3; else ssi_cur=rctot03w; if (Q13_66 = -4) then ed_cur=0; else ed_cur=Q13_66; if (paflaga = 1 | Q13_68 = -4) then edss_cur=0; else edss_cur=Q13_68; if (q13_70_v = -4) then vet_cur=0; else if (q13_70_v = -2) then vet_cur=q13_70_v; else if (q13_70_v = -1) then vet_cur=q13_70_v; else vet_cur=(q13_70_v * 12); if (q13_70_d = -4) then dis_cur=0; else if (q13_70_d = -2) then dis_cur=q13_70_d; else if (q13_70_d = -1) then dis_cur=q13_70_d; else dis_cur=(q13_70_d * 12); if (q13_70_s = -4) then ss_cur=0; else if (q13_70_s = -2) then ss_cur=q13_70_s; else if (q13_70_s = -1) then ss_cur=q13_70_s; else ss_cur=(q13_70_s * 12); if (Q13_75 = -4) then other_c=0; else other_c=Q13_75; proc freq; tables vet_cur other_c; proc print; var public_id vet_cur other_c; where (vet_cur > 0 & other_c = vet_cur); title 'freq vet benefits'; data compute2; set compute1; if (vet_cur > 0 & other_c = vet_cur) then other_c=0; if (Q13_92 = -4) then relwel_c=0; else relwel_c=Q13_92; if (Q13_92c = -4) then relreg_c=0; else relreg_c=Q13_92c; family_c=famsz04; /* TO CREATE FAMILY SIZE (I.E. FAMSZ04) 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)*/ mn1701=0; mn1702=0; mn1703=0; faminc_c=0; income_c=-3; compo1=mil_cur; compo2=mils_cur; compo3=wps_cur; compo4=wpss_cur; compo5=sei_cur; compo6=seis_cur; compo7=ui_cur; compo8=uis_cur; compo9=chsp_cur; compo10=afdc_cur; compo11=ssi_cur; compo12=ed_cur; compo13=edss_cur; compo14=vet_cur; compo15=other_c; compo16=relwel_c; compo17=relreg_c; compo18=food_cur; compo19=chsps_c; compo20=wkcmp_c; compo21=dis_cur; compo22=ss_cur; if (wktot03u = -4 & rctot03u > 0) then do; ui_cur=-3; compo7=-3; end; else if (wktot03u < 0 & wktot03u > -4) then do; ui_cur=-3; compo7=-3; end; if (wktot03s = -4 & rctot03s > 0) then do; uis_cur=-3; compo8=-3; end; else if (wktot03s < 0 & wktot03s > -4) then do; uis_cur=-3; compo8=-3; end; if (motot03a = -4 & rctot03a > 0) then do; afdc_cur=-3; compo10=-3; end; else if (motot03a < 0 & motot03a > -4) then do; afdc_cur=-3; compo10=-3; end; if (motot03f = -4 & rctot03f > 0) then do; food_cur=-3; compo18=-3; end; else if (motot03f < 0 & motot03f > -4) then do; food_cur=-3; compo18=-3; end; if (motot03w = -4 & rctot03w > 0) then do; ssi_cur=-3; compo11=-3; end; else if (motot03w < 0 & motot03w > -4) then do; ssi_cur=-3; compo11=-3; end; array compo (j) compo1 compo2 compo3 compo4 compo5 compo6 compo7 compo8 compo9 compo10 compo11 compo12 compo13 compo14 compo15 compo16 compo17 compo18 compo19 compo20 compo21 compo22; do j=1 to 22; if (compo > -4) then do; if (compo < 0 & compo = -1) then mn1701=(mn1701+1); else if (compo < 0 & compo = -2) then mn1702=(mn1702+1); else if (compo < 0 & compo = -3) then mn1703=(mn1703+1); else faminc_c=(faminc_c + compo); end; end; sumn_cur=mn1701 + mn1702 + mn1703; if (sumn_cur = 0) then income_c=faminc_c; else do; if (mn1703 > 0) then income_c=-3; else if (mn1702 > 0) then income_c=-2; else if (mn1701 > 0) then income_c=-1; end; if (paflaga = -5) then income_c=-5; proc freq; tables vet_cur other_c; proc freq; tables mn1701 mn1702 mn1703 sumn_cur; * income trunc; proc freq; tables income_c; proc print; var public_id income_c ste_cd state_fips; where (income_c >= 250200); title 'frequencies top coded'; data truncate; set compute2; if (income_c >= 250200 & public_id ~= 1142 & public_id ~= 2503); proc freq; tables income_c; proc means mean min max n sum; var income_c; title 'calculate truncated value'; data compute3; set compute2; incom_ct=income_c; if (income_c >= 250200 & public_id ~= 1142 & public_id ~= 2503) then incom_ct=408473; if (public_id = 1142 | public_id = 2503) then incom_ct = -3; * poverty status and level; if (family_c > 0 & s_cur = 1) then level_c=(table1 + (tbl1_inc * (family_c-1))); else if (family_c > 0 & s_cur eq 2) then level_c=(table2 + (tbl2_inc * (family_c-1))); else if (family_c > 0 and s_cur eq 3) then level_c=(table3 + (tbl3_inc * (family_c-1))); if (income_c > level_c) then cps_cur=0; else if (income_c >= 0 & income_c <= level_c) then cps_cur=1; else cps_cur=-3; array mn (k) mn1701 mn1702 mn1703; do k=1 to 3; if (mn > 0) then mn=1; end; if (sumn_cur > 0) then sumn_cur=1; if (paflaga = -5) then level_c=-5; if (paflaga = -5) then cps_cur=-5;
Total Net Family Income and Poverty Status in Calendar Year 2005 Incorporating Estimates
In the 2006 interview, respondents who didn’t know many specific income amounts were asked to estimate those amounts using self-reported ranges and if necessary, unfolding brackets. Respondents who refused to report many specific income amounts were asked unfolding bracket questions as well (see for example T09123.00 – T09131.00). The Total Net Family Income variable for calendar year 2005 (T09878.00) incorporates these estimates. The mid-point of self-reported ranges was used if available. Similarly, the mid-point of unfolding brackets were used where necessary and available. If a respondent reported that an income value was higher than the high bracket, the mean of valid values reported above the high bracket was used. For example, if a respondent reported that an income value was higher than the high bracket, and the high bracket was $50,000, the mean of all valid values reported over $50,000 was assigned.
The Poverty Status variable for calendar year 2005 (T09879.00) is created using the enhanced Total Net Family Income variable described above. Using these estimates where available significantly reduces the magnitude of non-response in both the Total Net Family Income and Poverty Status variables.
The decision rules for using estimates in individual income items are as follows:
If self-reported ranges are given and (example T09126.00, T09128.00):
If unfolding brackets are answered (low bracket < entry value < high bracket) and (example T09129.00-T09131.00):
weight06=1;
if curyr=-4 then weight06=0;
* add to paflag for any missed;
paflaga = paflag;
if (rel01 = 33 | rel02 = 33 | rel03 = 33 | rel04 = 33 | rel05 = 33
| rel06 = 33 | rel07 = 33 | rel08 = 33 | rel09 = 33 | rel10 = 33
| rel11 = 33 | rel12 = 33 | rel13 = 33 | rel14 = 33
| rel15 = 33) then paflaga=1;
if (paflaga = .) then paflaga=-5;
spflaga = 0;
if (rel01 = 1 | rel02 = 1 | rel03 = 1 | rel04 = 1 | rel05 = 1
| rel06 = 1 | rel07 = 1 | rel08 = 1 | rel09 = 1 | rel10 = 1
| rel11 = 1 | rel12 = 1 | rel13 = 1 | rel14 = 1
| rel15 = 1) then spflaga=1;
if (spflag = .) then spflag=-5;
if (spflag = -5) then spflaga=-5;
* compute recipiency variables;
rctot05u = ucdol105;
if (paflaga = -5) then rctot05u=-5;
if (ucdol105 = .) then rctot05u=-4;
if (ucdol105 = .) then wktot05u=-4;
wktot05u = 0;
if (dujn0605 > 0) then wktot05u=4.3;
if (dufb0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dumr0605 > 0) then wktot05u=(wktot05u + 4.3);
if (duar0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dumy0605 > 0) then wktot05u=(wktot05u + 4.3);
if (duju0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dujl0605 > 0) then wktot05u=(wktot05u + 4.3);
if (duag0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dusp0605 > 0) then wktot05u=(wktot05u + 4.3);
if (duot0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dunv0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dudc0605 > 0) then wktot05u=(wktot05u + 4.3);
if (wktot05u = 0) then wktot05u=-4;
if (paflaga = -5) then wktot05u=-5;
rctot05s = spdol105;
if (paflaga = -5) then rctot05s=-5;
if (spdol105 = .) then rctot05s=-4;
if (spdol105 = .) then wktot05s=-4;
wktot05s = 0;
if (tsjn0605 > 0) then wktot05s=4.3;
if (tsfb0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsmr0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsar0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsmy0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsju0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsjl0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsag0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tssp0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsot0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsnv0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsdc0605 > 0) then wktot05s=(wktot05s + 4.3);
if (wktot05s = 0) then wktot05s=-4;
if (paflaga = -5) then wktot05s=-5;
rctot05w = ssdol105;
if (paflaga = -5) then rctot05w=-5;
if (ssdol105 = .) then rctot05w=-4;
if (ssdol105 = .) then wktot05w=-4;
motot05w = 0;
if (dsjn0605 > 0) then motot05w=1;
if (dsfb0605 > 0) then motot05w=(motot05w + 1);
if (dsmr0605 > 0) then motot05w=(motot05w + 1);
if (dsar0605 > 0) then motot05w=(motot05w + 1);
if (dsmy0605 > 0) then motot05w=(motot05w + 1);
if (dsju0605 > 0) then motot05w=(motot05w + 1);
if (dsjl0605 > 0) then motot05w=(motot05w + 1);
if (dsag0605 > 0) then motot05w=(motot05w + 1);
if (dssp0605 > 0) then motot05w=(motot05w + 1);
if (dsot0605 > 0) then motot05w=(motot05w + 1);
if (dsnv0605 > 0) then motot05w=(motot05w + 1);
if (dsdc0605 > 0) then motot05w=(motot05w + 1);
if (motot05w = 0) then motot05w=-4;
if (paflaga = -5) then motot05w=-5;
rctot05a = adol105;
if (paflaga = -5) then rctot05a=-5;
if (adol105 = .) then rctot05a=-4;
if (adol105 = .) then wktot05a=-4;
motot05a = 0;
if (dajn0605 > 0) then motot05a=1;
if (dafb0605 > 0) then motot05a=(motot05a + 1);
if (damr0605 > 0) then motot05a=(motot05a + 1);
if (daar0605 > 0) then motot05a=(motot05a + 1);
if (damy0605 > 0) then motot05a=(motot05a + 1);
if (daju0605 > 0) then motot05a=(motot05a + 1);
if (dajl0605 > 0) then motot05a=(motot05a + 1);
if (daag0605 > 0) then motot05a=(motot05a + 1);
if (dasp0605 > 0) then motot05a=(motot05a + 1);
if (daot0605 > 0) then motot05a=(motot05a + 1);
if (danv0605 > 0) then motot05a=(motot05a + 1);
if (dadc0605 > 0) then motot05a=(motot05a + 1);
if (motot05a = 0) then motot05a=-4;
if (paflaga = -5) then motot05a=-5;
rctot05f = fsdol105;
if (paflaga = -5) then rctot05f=-5;
if (fsdol105 = .) then rctot05f=-4;
if (fsdol105 = .) then wktot05f=-4;
motot05f = 0;
if (dfjn0605 > 0) then motot05f=1 ;
if (dffb0605 > 0) then motot05f=(motot05f + 1);
if (dfmr0605 > 0) then motot05f=(motot05f + 1);
if (dfar0605 > 0) then motot05f=(motot05f + 1);
if (dfmy0605 > 0) then motot05f=(motot05f + 1);
if (dfju0605 > 0) then motot05f=(motot05f + 1);
if (dfjl0605 > 0) then motot05f=(motot05f + 1);
if (dfag0605 > 0) then motot05f=(motot05f + 1);
if (dfsp0605 > 0) then motot05f=(motot05f + 1);
if (dfot0605 > 0) then motot05f=(motot05f + 1);
if (dfnv0605 > 0) then motot05f=(motot05f + 1);
if (dfdc0605 > 0) then motot05f=(motot05f + 1);
if (motot05f = 0) then motot05f=-4;
if (paflaga = -5) then motot05f=-5;
* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2005;
afdc_cur=-4;
chsp_cur=-4;
chsps_c=-4;
cps_cur=-4;
ed_cur=-4;
edss_cur=-4;
family_c=-4;
faminc_c=-4;
food_cur=-4;
income_c=-4;
level_c=-4;
mil_cur=-4;
mils_cur=-4;
mn1701=-4;
mn1702=-4;
mn1703=-4;
other_c=-4;
ssi_cur=-4;
relreg_c=-4;
relwel_c=-4;
s_cur=-4;
sei_cur=-4;
seis_cur=-4;
sumn_cur=-4;
target_c=-4;
ui_cur=-4;
uis_cur=-4;
vet_cur=-4;
wps_cur=-4;
wpss_cur=-4;
wkcmp_c=-4;
dis_cur=-4;
ss_cur=-4;
* Federal Poverty Guidelines used in 2006 program apply to calendar year;
* 2006. Access the websites found in bookmarks for information on;
* current PIG tables. http://aspe.hhs.gov/poverty/06poverty.shtml for 06 tables;
table1=9570;
tbl1_inc=3260;
table2=11950;
tbl2_inc=4080;
table3=11010;
tbl3_inc=3750;
* set state of residence by hand for HA and Alaska for movers;
* ste_cd is the original code and ids are listed for all who reported;
* a move to HA or Alaska;
* replaced ste_cd with state_fips (cleaned state fips code) for 2006;
s_cur=1;
if (Q13_3 = -4) then mil_cur=0;
else mil_cur=Q13_3;
if (Q13_5 = -4) then wps_cur=0;
else wps_cur=Q13_5;
if (Q13_9 = -4) then sei_cur=0;
else sei_cur=Q13_9;
proc sort; by id;
data compute1;
set compute;
if (wktot05u = -4 & rctot05u = -4) then ui_cur=0;
else if (wktot05u = -4 & rctot05u = 0) then ui_cur=0;
else if (wktot05u > 0 & rctot05u > 0) then ui_cur=rctot05u;
else if (wktot05u < 0) then ui_cur=wktot05u;
else if (rctot05u < 0) then ui_cur=rctot05u;
else ui_cur=-3;
if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;
else mils_cur=Q13_16;
if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;
else wpss_cur=Q13_18;
if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;
else seis_cur=Q13_24;
if (paflaga = 1 | (wktot05s = -4 & rctot05s = -4)) then uis_cur=0;
else if (paflaga = 1 | (wktot05s = -4 & rctot05s = 0)) then uis_cur=0;
else if (wktot05s > 0 & rctot05s > 0) then uis_cur=rctot05s;
else if (wktot05s < 0) then uis_cur=wktot05s;
else if (rctot05s < 0) then uis_cur=rctot05s;
else uis_cur=-3;
if (q13_31b = -4) then wkcmp_c=0;
else wkcmp_c=q13_31b;
if (Q13_33i = -4) then chsp_cur=0;
else chsp_cur=Q13_33i;
if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;
else chsps_c=Q13_33m;
if (rctot05a = -4 | rctot05a = 0) then afdc_cur=0;
else if (motot05a = -4 | motot05a = 0) then afdc_cur=0;
else if (rctot05a < 0) then afdc_cur=rctot05a;
else if (motot05a < 0) then afdc_cur=motot05a;
else if (motot05a <= 0) then afdc_cur=-3;
else afdc_cur=rctot05a;
if (rctot05f = -4 | rctot05f = 0) then food_cur=0;
else if (motot05f = -4 | motot05f = 0) then food_cur=0;
else if (rctot05f < 0) then food_cur=rctot05f;
else if (motot05f < 0) then food_cur=motot05f;
else if (motot05f <= 0) then food_cur=-3;
else food_cur=rctot05f;
if (rctot05w = -4 | rctot05w = 0) then ssi_cur=0;
else if (motot05w = -4 | motot05w = 0) then ssi_cur=0;
else if (rctot05w < 0) then ssi_cur=rctot05w;
else if (motot05w < 0) then ssi_cur=motot05w;
else if (motot05w <= 0) then ssi_cur=-3;
else ssi_cur=rctot05w;
if (Q13_66 = -4) then ed_cur=0;
else ed_cur=Q13_66;
if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;
else edss_cur=Q13_68;
if (q13_70_v = -4) then vet_cur=0;
else if (q13_70_v = -2) then vet_cur=q13_70_v;
else if (q13_70_v = -1) then vet_cur=q13_70_v;
else vet_cur=(q13_70_v * 12);
if (q13_70_d = -4) then dis_cur=0;
else if (q13_70_d = -2) then dis_cur=q13_70_d;
else if (q13_70_d = -1) then dis_cur=q13_70_d;
else dis_cur=(q13_70_d * 12);
if (q13_70_s = -4) then ss_cur=0;
else if (q13_70_s = -2) then ss_cur=q13_70_s;
else if (q13_70_s = -1) then ss_cur=q13_70_s;
else ss_cur=(q13_70_s * 12);
if (Q13_75 = -4) then other_c=0;
else other_c=Q13_75;
data compute2;
set compute1;
if (vet_cur > 0 & other_c = vet_cur) then other_c=0;
if (Q13_92 = -4) then relwel_c=0;
else relwel_c=Q13_92;
if (Q13_92c = -4) then relreg_c=0;
else relreg_c=Q13_92c;
family_c=famsz06;
/* TO CREATE FAMILY SIZE (I.E. FAMSZ04) 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)*/
mn1701=0;
mn1702=0;
mn1703=0;
faminc_c=0;
income_c=-3;
compo1=mil_cur;
compo2=mils_cur;
compo3=wps_cur;
compo4=wpss_cur;
compo5=sei_cur;
compo6=seis_cur;
compo7=ui_cur;
compo8=uis_cur;
compo9=chsp_cur;
compo10=afdc_cur;
compo11=ssi_cur;
compo12=ed_cur;
compo13=edss_cur;
compo14=vet_cur;
compo15=other_c;
compo16=relwel_c;
compo17=relreg_c;
compo18=food_cur;
compo19=chsps_c;
compo20=wkcmp_c;
compo21=dis_cur;
compo22=ss_cur;
if (wktot05u = -4 & rctot05u > 0) then do;
ui_cur=-3;
compo7=-3;
end;
else if (wktot05u < 0 & wktot05u > -4) then do;
ui_cur=-3;
compo7=-3;
end;
if (wktot05s = -4 & rctot05s > 0) then do;
uis_cur=-3;
compo8=-3;
end;
else if (wktot05s < 0 & wktot05s > -4) then do;
uis_cur=-3;
compo8=-3;
end;
if (motot05a = -4 & rctot05a > 0) then do;
afdc_cur=-3;
compo10=-3;
end;
else if (motot05a < 0 & motot05a > -4) then do;
afdc_cur=-3;
compo10=-3;
end;
if (motot05f = -4 & rctot05f > 0) then do;
food_cur=-3;
compo18=-3;
end;
else if (motot05f < 0 & motot05f > -4) then do;
food_cur=-3;
compo18=-3;
end;
if (motot05w = -4 & rctot05w > 0) then do;
ssi_cur=-3;
compo11=-3;
end;
else if (motot05w < 0 & motot05w > -4) then do;
ssi_cur=-3;
compo11=-3;
end;
array compo (j) compo1 compo2 compo3 compo4 compo5 compo6 compo7
compo8 compo9 compo10 compo11 compo12 compo13 compo14
compo15 compo16 compo17 compo18 compo19 compo20
compo21 compo22;
do j=1 to 22;
if (compo > -4) then do;
if (compo < 0 & compo = -1) then mn1701=(mn1701+1);
else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);
else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);
else faminc_c=(faminc_c + compo);
end;
end;
sumn_cur=mn1701 + mn1702 + mn1703;
if (sumn_cur = 0) then income_c=faminc_c;
else do;
if (mn1703 > 0) then income_c=-3;
else if (mn1702 > 0) then income_c=-2;
else if (mn1701 > 0) then income_c=-1;
end;
if (paflaga = -5) then income_c=-5;
data compute3;
set compute2;
incom_ct=income_c;
if (income_c >= 279000) then incom_ct=527631;
* poverty status and level;
if (family_c > 0 & s_cur = 1) then
level_c=(table1 + (tbl1_inc * (family_c-1)));
else if (family_c > 0 & s_cur eq 2) then
level_c=(table2 + (tbl2_inc * (family_c-1)));
else if (family_c > 0 and s_cur eq 3) then
level_c=(table3 + (tbl3_inc * (family_c-1)));
if (income_c > level_c) then cps_cur=0;
else if (income_c >= 0 & income_c <= level_c) then cps_cur=1;
else cps_cur=-3;
array mn (k) mn1701 mn1702 mn1703;
do k=1 to 3;
if (mn > 0) then mn=1;
end;
if (sumn_cur > 0) then sumn_cur=1;
if (paflaga = -5) then level_c=-5;
if (paflaga = -5) then cps_cur=-5;