Click a topic below to view details:
- Variable Creation: Total Net Family Income 1979-83
- Variable Creation: Total Net Family Income 1984-86
VARIABLE CREATION: TOTAL NET FAMILY INCOME 1979-83
DCL 1 FAMILY_INCOME (5),
5 AFDC,
5 ALIM,
5 CHSP,
5 CPS,
5 ED,
5 EDSS,
5 FAMILY,
5 FAMINC,
5 FARM,
5 FOOD,
5 GIFT,
5 INC,
5 INCOME,
5 LEVEL,
5 MIL,
5 MILS,
5 MN (3),
5 OTHER,
5 POVERTY,
5 PUBLIC,
5 R,
5 RELREG,
5 RELWEL,
5 S,
5 SEI,
5 SEIS,
5 SUMN,
5 TABLE (3,2,15),
5 UI,
5 UIS,
5 VET,
5 WELF,
5 WPS,
5 WPSS,
5 YOUTH;
1979 VARIABLES
INC(1)=R(1903.10);
IF R(1547.)=-4 THEN MIL(1)=0;
ELSE MIL=R(1547.);
IF R(1554.)=-4 THEN WPS(1)=0;
ELSE WPS(1)=R(1554.);
IF R(1560.)=-4 THEN SEI(1)=0;
ELSE SEI(1)=R(1560.);
IF R(1588.)=-4 & R(1590.)=-4 THEN UI(1)=0;
ELSE IF R(1588.)>0 & R(1590.)>0 THEN UI(1)=R(1588.) * R(1590.);
ELSE UI(1)=R(1590.);
MILS(1)=0;
IF R(1555.)=-4 THEN WPSS(1)=0;
ELSE WPSS(1)=R(1555.);
IF R(1561.)=-4 THEN SEIS(1)=0;
ELSE SEIS(1)=R(1561.);
IF R(1589.)=-4 & R(1591.)=-4 THEN UIS(1)=0;
ELSE IF R(1589.)>0 & R(1591.)>0 THEN UIS(1)=R(1589.) * R(1591.);
ELSE UIS(1)=R(1591.);
IF R(1594.)=-4 THEN ALIM(1)=0;
ELSE ALIM(1)=R(1594.);
CHSP(1)=0;
IF R(1608.)=-4 THEN AFDC(1)=0;
ELSE DO;
B=0;
DO J=1596. TO 1607.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(1608.)<0 THEN AFDC(1)=R(1608.);
ELSE IF B<=0 THEN AFDC(1)=-3;
ELSE AFDC(1)=R(1608.) * B;
END;
IF R(1623.)=-4 THEN FOOD(1)=0;
ELSE DO;
B=0;
DO J=1610. TO 1621.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF B<=0 THEN FOOD(1)=-3;
ELSE IF R(1622.)>=0 & R(1623.)>0 THEN FOOD(1)=(R(1623.)-R(1622.))
* B;
ELSE FOOD(1)=-3;
END;
WELF(1)=0;
IF R(1640.)=-4 THEN PUBLIC(1)=0;
ELSE DO;
B=0;
DO J=1628. TO 1639.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(1640.)<0 THEN PUBLIC(1)=R(1640.);
ELSE IF B<=0 THEN PUBLIC(1)=-3;
ELSE PUBLIC(1)=R(1640.) * B; END;
IF R(1645.)=-4 THEN ED(1)=0;
ELSE ED(1)=R(1645.);
IF R(1646.)=-4 THEN EDSS(1)=0;
ELSE EDSS(1)=R(1646.);
VET(1)=0;
IF R(1649.)=-4 THEN GIFT(1)=0;
ELSE GIFT(1)=R(1649.);
IF R(1651.)=-4 THEN OTHER(1)=0;
ELSE OTHER(1)=R(1651.);
RELWEL(1)=0;
IF R(1664.)=-4 THEN RELREG(1)=0;
ELSE RELREG(1)=R(1664.);
/* 1979 FAMILY POVERTY STATUS, 1979 FAMILY POVERTY LEVEL, AND 1979 FAMILY POVERTY
FLAG */
DCL PUBID PIC '99999';
DCL S79 FIXED DEC(9);
FAMILY79 FIXED DEC(9);
FARM79 FIXED DEC(9);
SCREENSZ FIXED DEC(9);
FLAG FIXED DEC(9);
INCOME79 FLOAT DEC(6);
CAL_INCOME FLOAT DEC(6);
LEVEL79 FLOAT DEC(6);
STATE79 FLOAT DEC(6);
CPS79 FLOAT DEC(6);
R79 FLOAT DEC(6);
TABLE(3,2,15) FLOAT DEC(6);
R(1.10) FLOAT DEC(6);
R(2179.) FLOAT DEC(6);
R(1691.) FLOAT DEC(6);
R(1697.) FLOAT DEC(6);
R(1743.) FLOAT DEC(6);
R(1916.10) FLOAT DEC(6);
R(1921.) FLOAT DEC(6);
R(1919.) FLOAT DEC(6);
FAMSZ79 FLOAT DEC(6);
WPS FLOAT DEC(6);
WPSS FLOAT DEC(6);
SEI FLOAT DEC(6);
SEIS FLOAT DEC(6);
MIL FLOAT DEC(6);
OTHER FLOAT DEC(6);
RELINC FLOAT DEC(6);
GIFT FLOAT DEC(6);
LEVEL79=-4;
DO I=1 TO 3;
DO J=1 TO 2;
DO K=1 TO 15;
TABLE(I,J,K)=-4;
END;
END;
END;
END;
FARM79=1;
IF R(1919.)>4 THEN FARM79=2;
/* 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;
FLAG=0;
CAL_INCOME=0;
IF CPS79=-3 & INCOME79<0 THEN DO;
IF WPS>=0 THEN CAL_INCOME=CAL_INCOME + WPS;
IF WPSS>=0 THEN CAL_INCOME=CAL_INCOME + WPSS;
IF SEI>=0 THEN CAL_INCOME=CAL_INCOME + SEI;
IF SEIS>=0 THEN CAL_INCOME=CAL_INCOME + SEIS;
IF MIL>=0 THEN CAL_INCOME=CAL_INCOME + MIL;
IF OTHER>=0 THEN CAL_INCOME=CAL_INCOME + OTHER;
IF RELINC>=0 THEN CAL_INCOME=CAL_INCOME + RELINC;
IF GIFT>=0 THEN CAL_INCOME=CAL_INCOME + GIFT;
IF CAL_INCOME>0 THEN DO;
IF CAL_INCOME>LEVEL79 THEN DO;
CPS79=0;
FLAG=1;
END;
END;
END;
IF CPS79=-3 & R(1916.10)>0 & R(1921.)>0 THEN DO;
SCREENSZ=R(1921.);
IF SCREENSZ=-4 THEN FAMILY79=1;
ELSE FAMILY79=SCREENSZ;
LEVEL79=TABLE(S79,FARM79,FAMILY79);
IF R(1916.10)>LEVEL79 THEN DO;
CPS79=0;
FLAG=2;
END;
ELSE IF R(1916.10)<=LEVEL79 THEN DO;
CPS79=1;
FLAG=2;
END;
END;
CPS79=R(2179.10);
LEVEL79=R(2179.20);
FLAG79=R(2179.30);
1980 VARIABLES
IF R(4052.)<=0 THEN INC(2)=-5;
ELSE INC(2)=R(4045.10);
IF R(3120.)=-4 THEN MIL(2)=0;
ELSE MIL(2)=R(3120.);
IF R(3123.)=-4 THEN WPS(2)=0;
ELSE WPS(2)=R(3123.);
IF R(3126.)=-4 THEN SEI(2)=0;
ELSE SEI(2)=R(3126.);
IF R(3146.)=-4 & R(3132.)=-4 THEN UI(2)=0;
ELSE IF R(3146.)>0 & R(3132.)>0 THEN UI(2)=R(3146.) * R(3132.);
ELSE UI(2)=R(3132.);
IF R(3122.)=-4 THEN MILS(2)=0;
ELSE MILS(2)=R(3122.);
IF R(3127.10)=-4 THEN WPSS(2)=0;
ELSE WPSS(2)=R(3127.10);
IF R(3130.)=-4 THEN SEIS(2)=0;
ELSE SEIS(2)=R(3130.);
IF R(3160.)=-4 & R(3161.)=-4 THEN UIS(2)=0;
ELSE IF R(3160.)>0 & R(3161.)>0 THEN UIS(2)=R(3160.) * R(3161.);
ELSE UIS(2)=R(3161.);
IF R(3164.)=-4 THEN ALIM(2)=0;
ELSE ALIM(2)=R(3164.);
CHSP(2)=0;
IF R(3178.)=-4 THEN AFDC(2)=0;
ELSE DO;
B=0;
DO J=3166. TO 3177.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(3178.)<0 THEN AFDC(2)=R(3178.);
ELSE IF B<=0 THEN AFDC(2)=-3;
ELSE AFDC(2)=R(3178.) * B;
END;
IF R(3192.)=-4 THEN FOOD(2)=0;
ELSE DO;
B=0;
DO J=3180. TO 3191.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(3192.)=-4 THEN FOOD(2)=R(3192.);
ELSE IF B<=0 THEN FOOD(2)=-3;
ELSE FOOD(2)=R(3192.) * B;
END;
IF R(3206.)=-4 THEN WELF(2)=0;
ELSE DO;
B=0;
DO J=3194. TO 3205.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(3206.)<0 THEN WELF(2)=R(3206.);
ELSE IF B<=0 THEN WELF(2)=-3;
ELSE WELF(2)=R(3206.) * B;
END;
IF R(3220.)=-4 THEN PUBLIC(2)=0;
ELSE DO;
B=0;
DO J=3208. TO 3219.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(3220.)<0 THEN PUBLIC(2)=R(3220.);
ELSE IF B<=0 THEN PUBLIC(2)=-3;
ELSE PUBLIC(2)=R(3220.) * B;
END;
IF R(3225.)=-4 THEN ED(2)=0;
ELSE ED(2)=R(3225.);
IF R(3226.)=-4 THEN EDSS(2)=0;
ELSE EDSS(2)=R(3226.);
IF R(3228.)=-4 THEN VET(2)=0;
ELSE VET(2)=R(3228.);
IF R(3233.)=-4 THEN GIFT(2)=0;
ELSE GIFT(2)=R(3233.);
IF R(3235.)=-4 THEN OTHER(2)=0;
ELSE OTHER(2)=R(3235.);
IF R(3244.)=-4 THEN RELWEL(2)=0;
ELSE RELWEL(2)=R(3244.);
IF R(3251.10)=-4 THEN RELREG(2)=0;
ELSE RELREG(2)=R(3251.10);
IF R(4047.)=-4 THEN POVERTY(2)=0;
ELSE POVERTY(2)=R(4047.);
FAMILY(2)=0;
DO J=3939. TO 4023. BY 6;
IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !
(R(J)>=50 & R(J)<=53) THEN A=1;
ELSE FAMILY(2)=FAMILY(2)+1;
END;
1981 VARIABLES
IF R(6146.)<=0 THEN INC(3)=-5;
ELSE INC(3)=R(6138.10);
YOUTH(3)=0;
END;
FARM(3)=1;
IF R(6125.)>4 THEN FARM(3)=2;
LEVEL(3)=-4;
IF R(4825.)=-4 THEN MIL(3)=0;
ELSE MIL(3)=R(4825.);
IF R(4826.)=-4 THEN WPS(3)=0;
ELSE WPS(3)=R(4826.);
IF R(4832.)=-4 THEN SEI(3)=0;
ELSE SEI(3)=R(4832.);
IF R(4849.)=-4 & R(4850.)=-4 THEN UI(3)=0;
ELSE IF R(4849.)>0 & R(4850.)>0 THEN UI(3)=R(4849.) * R(4850.);
ELSE UI(3)=R(4850.);
IF R(4828.)=-4 THEN MILS(3)=0;
ELSE MILS(3)=R(4828.);
IF R(4829.10)=-4 THEN WPSS(3)=0;
ELSE WPSS(3)=R(4829.10);
IF R(4835.)=-4 THEN SEIS(3)=0;
ELSE SEIS(3)=R(4835.);
IF R(4865.)=-4 & R(4866.)=-4 THEN UIS(3)=0;
ELSE IF R(4865.)>0 & R(4866.)>0 THEN UIS(3)=R(4865.) * R(4866.);
ELSE UIS(3)=R(4866.);
IF R(4869.)=-4 THEN ALIM(3)=0;
ELSE ALIM(3)=R(4869.);
CHSP(3)=0;
IF R(4883.)=-4 THEN AFDC(3)=0;
ELSE DO;
B=0;
DO J=4871. TO 4882.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(4883.)<0 THEN AFDC(3)=R(4883.);
ELSE IF B<=0 THEN AFDC(3)=-3;
ELSE AFDC(3)=R(4883.) * B;
END;
IF R(4897.)=-4 THEN FOOD(3)=0;
ELSE DO;
B=0;
DO J=4885. TO 4896.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(4897.)<0 THEN FOOD(3)=R(4897.);
ELSE IF B<=0 THEN FOOD(3)=-3;
ELSE FOOD(3)=R(4897.) * B;
END;
IF R(4911.)=-4 THEN WELF(3)=0;
ELSE DO;
B=0;
DO J=4899. TO 4910.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(4911.)<0 THEN WELF(3)=R(4911.);
ELSE IF B<=0 THEN WELF(3)=-3;
ELSE WELF(3)=R(4911.) * B;
END;
IF R(4925.)=-4 THEN PUBLIC(3)=0;
ELSE DO;
B=0;
DO J=4913. TO 4924.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(4925.)<0 THEN PUBLIC(3)=R(4925.);
ELSE IF B<=0 THEN PUBLIC(3)=-3;
ELSE PUBLIC(3)=R(4925.) * B;
END;
IF R(4930.)=-4 THEN ED(3)=0;
ELSE ED(3)=R(4930.);
IF R(4931.)=-4 THEN EDSS(3)=0;
ELSE EDSS(3)=R(4931.);
IF R(4933.)=-4 THEN VET(3)=0;
ELSE VET(3)=R(4933.);
IF R(4938.)=-4 THEN GIFT(3)=0;
ELSE GIFT(3)=R(4938.);
IF R(4940.)=-4 THEN OTHER(3)=0;
ELSE OTHER(3)=R(4940.);
IF R(4949.)=-4 THEN RELWEL(3)=0;
ELSE RELWEL(3)=R(4949.);
IF R(4956.10)=-4 THEN RELREG(3)=0;
ELSE RELREG(3)=R(4956.10);
IF R(6140.)=-4 THEN POVERTY(3)=0;
ELSE POVERTY(3)=R(6140.);
FAMILY(3)=0;
DO J=6033. TO 6117. BY 6;
IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !
(R(J)>=50 & R(J)<=53) THEN A=1;
ELSE FAMILY(3)=FAMILY(3)+1;
END;
1982 VARIABLES
IF R(8967.)<=0 THEN INC(4)=-5;
ELSE INC(4)=R(8304.);
YOUTH(4)=0;
IF R(7986.)>=0 THEN YOUTH(4)=R(7986.);
IF R(7988.)>=0 THEN YOUTH(4)=Y(4)+R(7988.);
IF R(7992.)>=0 THEN YOUTH(4)=Y(4)+R(7992.);
END;
FARM(4)=1;
LEVEL(4)=-4;
IF R(7820.)=-4 THEN MIL(4)=0;
ELSE MIL(4)=R(7820.);
IF R(7821.)=-4 THEN WPS(4)=0;
ELSE WPS(4)=R(7821.);
IF R(7824.)=-4 THEN SEI(4)=0;
ELSE SEI(4)=R(7824.);
IF R(7838.)=-4 & R(7839.)=-4 THEN UI(4)=0;
ELSE IF R(7838.)>0 & R(7839.)>0 THEN UI(4)=R(7838.) * R(7839.);
ELSE UI(4)=R(7839.);
IF R(7842.)=-4 THEN MILS(4)=0;
ELSE MILS(4)=R(7842.);
IF R(7843.)=-4 THEN WPSS(4)=0;
ELSE WPSS(4)=R(7843.);
IF R(7846.)=-4 THEN SEIS(4)=0;
ELSE SEIS(4)=R(7846.);
IF R(7860.)=-4 & R(7861.)=-4 THEN UIS(4)=0;
ELSE IF R(7860.)>0 & R(7861.)>0 THEN UIS(4)=R(7860.) * R(7861.);
ELSE UIS(4)=R(7861.);
IF R(7864.)=-4 THEN ALIM(4)=0;
ELSE ALIM(4)=R(7864.);
IF R(7869.)=-4 THEN CHSP(4)=0;
ELSE CHSP(4)=R(7869.);
IF R(7885.)=-4 THEN AFDC(4)=0;
ELSE DO;
B=0;
DO J=7873. TO 7884.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(7885.)<0 THEN AFDC(4)=R(7885.);
ELSE IF B<=0 THEN AFDC(4)=-3;
ELSE AFDC(4)=R(7885.) * B;
END;
IF R(7899.)=-4 THEN FOOD(4)=0;
ELSE DO;
B=0;
DO J=7887. TO 7898.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(7899.)<0 THEN FOOD(4)=R(7899.);
ELSE IF B<=0 THEN FOOD(4)=-3;
ELSE FOOD(4)=R(7899.) * B;
END;
IF R(7913.)=-4 THEN WELF(4)=0;
ELSE DO;
B=0;
DO J=7901. TO 7912.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(7913.)<0 THEN WELF(4)=R(7913.);
ELSE IF B<=0 THEN WELF(4)=-3;
ELSE WELF(4)=R(7913.) * B;
END;
IF R(7927.)=-4 THEN PUBLIC(4)=0;
ELSE DO;
DO J=7915. TO 7926.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(7927.)<0 THEN PUBLIC(4)=R(7927.);
ELSE IF B<=0 THEN PUBLIC(4)=-3;
ELSE PUBLIC(4)=R(7927.) * B;
END;
IF R(7932.)=-4 THEN ED(4)=0;
ELSE ED(4)=R(7932.);
IF R(7933.)=-4 THEN EDSS(4)=0;
ELSE EDSS(4)=R(7933.);
IF R(7935.)=-4 THEN VET(4)=0;
ELSE VET(4)=R(7935.);
IF R(7939.)=-4 THEN GIFT(4)=0;
ELSE GIFT(4)=R(7939.);
IF R(7941.)=-4 THEN OTHER(4)=0;
ELSE OTHER(4)=R(7941.);
IF R(7949.)=-4 THEN RELWEL(4)=0;
ELSE RELWEL(4)=R(7949.);
IF R(7956.)=-4 THEN RELREG(4)=0;
ELSE RELREG(4)=R(7956.);
IF R(8306.)=-4 THEN POVERTY(4)=0;
ELSE POVERTY(4)=R(8306.);
FAMILY(4)=0;
DO J=8177. TO 8275. BY 7;
IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !
(R(J)>=50 & R(J)<=53) THEN A=1;
ELSE FAMILY(4)=FAMILY(4)+1;
END;
1983 VARIABLES
IF R(11444.)<=0 THEN INC(5)=-5;
ELSE INC(5)=R(10777.);
YOUTH(5)=0;
END;
FARM(5)=1;
IF R(10764.)>4 THEN FARM(5)=2;
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;
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 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)=POVE RTY(2)-1;
ELSE CPS(2)=-3;
END;
END;
END;
END;
R(2179.)=INCOME(1);
R(4060.)=INCOME(2);
R(4061.)=POVERTY(2);
R(6184.10)=INCOME(3);
R(6185.)=POVERTY(3);
R(8986.)=INCOME(4);
R(8987.)=POVERTY(4);
R(11445.10)=INCOME(5);
R(11448.)=POVERTY(5);
VARIABLE CREATION: TOTAL NET FAMILY INCOME 1984-86
DCL
1 FAMILY_INCOME (6:8),
5 AFDC,
5 ALIM,
5 CHSP,
5 CPS,
5 ED,
5 EDSS,
5 FAMILY,
5 FAMINC,
5 FARM,
5 FOOD,
5 GIFT,
5 INC,
5 INCOME,
5 LEVEL,
5 MIL,
5 MILS,
5 MN (3),
5 OTHER,
5 POVERTY,
5 PUBLIC,
5 RELREG,
5 RELWEL,
5 S,
5 SEI,
5 SEIS,
5 SUMN,
5 TABLE(3,15),
5 UI,
5 UIS,
5 VET,
5 WELF,
5 WPS,
5 WPSS;
1984 VARIABLES
FAMILY_INCOME=-4;
IF R(15196.)=0 THEN INC(6)=-5;
ELSE INC(6)=R(14534.);
END;
FARM(6)=1;
LEVEL(6)=-4;
IF R(14106.)=-4 THEN MIL(6)=0;
ELSE MIL(6)=R(14106.);
IF R(14107.)=-4 THEN WPS(6)=0;
ELSE WPS(6)=R(14107.);
IF R(14110.)=-4 THEN SEI(6)=0;
ELSE SEI(6)=R(14110.);
IF R(14124.)=-4 & R(14125.)=-4 THEN UI(6)=0;
ELSE IF R(14124.)>0 & R(14125.)>0 THEN UI(6)=R(14124.) * R(14125.);
ELSE IF R(14125.)<0 THEN UI(6)=R(14125.);
ELSE UI(6)=-3;
IF R(14128.)=-4 THEN MILS(6)=0;
ELSE MILS(6)=R(14128.);
IF R(14129.)=-4 THEN WPSS(6)=0;
ELSE WPSS(6)=R(14129.);
IF R(14132.)=-4 THEN SEIS(6)=0;
ELSE SEIS(6)=R(14132.);
IF R(14146.)=-4 & R(14147.)=-4 THEN UIS(6)=0;
ELSE IF R(14146.)>0 & R(14147.)>0 THEN UIS(6)=R(14146.) * R(14147.);
ELSE IF R(14147.)<0 THEN UIS(6)=R(14147.);
ELSE UIS(6)=-3;
IF R(14150.)=-4 THEN ALIM(6)=0;
ELSE ALIM(6)=R(14150.);
IF R(14155.)=-4 THEN CHSP(6)=0;
ELSE CHSP(6)=R(14155.);
IF R(14171.)=-4 THEN AFDC(6)=0;
ELSE DO;
B=0;
DO J=14159. TO 14170.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(14171.)<0 THEN AFDC(6)=R(14171.);
ELSE IF B<=0 THEN AFDC(6)=-3;
ELSE AFDC(6)=R(14171.) * B;
END;
IF R(14185.)=-4 THEN FOOD(6)=0;
ELSE DO;
B=0;
DO J=14173. TO 14184.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(14185.)<0 THEN FOOD(6)=R(14185.);
ELSE IF B<=0 THEN FOOD(6)=-3;
ELSE FOOD(6)=R(14185.) * B;
END;
IF R(14199.)=-4 THEN WELF(6)=0;
ELSE DO;
B=0;
DO J=14187. TO 14198.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(14199.)<0 THEN WELF(6)=R(14199.);
ELSE IF B<=0 THEN WELF(6)=-3;
ELSE WELF(6)=R(14199.) * B;
END;
IF R(14213.)=-4 THEN PUBLIC(6)=0;
ELSE DO;
B=0;
DO J=14201. TO 14212.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(14213.)<0 THEN PUBLIC(6)=R(14213.);
ELSE IF B<=0 THEN PUBLIC(6)=-3;
ELSE PUBLIC(6)=R(14213.) * B;
END;
IF R(14218.)=-4 THEN ED(6)=0;
ELSE ED(6)=R(14218.);
IF R(14219.)=-4 THEN EDSS(6)=0;
ELSE EDSS(6)=R(14219.);
IF R(14221.)=-4 THEN VET(6)=0;
ELSE VET(6)=R(14221.);
IF R(14225.)=-4 THEN GIFT(6)=0;
ELSE GIFT(6)=R(14225.);
IF R(14227.)=-4 THEN OTHER(6)=0;
ELSE OTHER(6)=R(14227.);
IF R(14235.)=-4 THEN RELWEL(6)=0;
ELSE RELWEL(6)=R(14235.);
IF R(14242.)=-4 THEN RELREG(6)=0;
ELSE RELREG(6)=R(14242.);
IF R(14536.)=-4 THEN POVERTY(6)=0;
ELSE POVERTY(6)=R(14536.);
FAMILY(6)=FAMSIZE; /* TO CREATE FAMILY SIZE (I.E. FAMSIZE)
SEARCH THRU THE HOUSEHOLD ENUMERATION
INCREMENT FAMILY SIZE, IF THE
RELATIONSHIP TO THE YOUTH IS A RELATIVE.
DO NOT INCREASE FAMILY SIZE, IF THE CODE
IS <0 OR (>=33 & <=36) OR =45 OR =46 OR
(>=50 & <=54) */
1985 VARIABLES
IF R(18902.)=0 THEN INC(7)=-5;
ELSE INC(7)=R(18006.);
END;
FARM(7)=1;
LEVEL(7)=-4;
IF R(17784.)=-4 THEN MIL(7)=0;
ELSE MIL(7)=R(17784.);
IF R(17785.)=-4 THEN WPS(7)=0;
ELSE WPS(7)=R(17785.);
IF R(17788.)=-4 THEN SEI(7)=0;
ELSE SEI(7)=R(17788.);
IF R(17802.)=-4 & R(17803.)=-4 THEN UI(7)=0;
ELSE IF R(17802.)>0 & R(17803.)>0 THEN UI(7)=R(17802.) * R(17803.);
ELSE IF R(17803.)<0 THEN UI(7)=R(17803.);
ELSE UI(7)=-3;
IF R(17806.)=-4 THEN MILS(7)=0;
ELSE MILS(7)=R(17806.);
IF R(17807.)=-4 THEN WPSS(7)=0;
ELSE WPSS(7)=R(17807.);
IF R(17810.)=-4 THEN SEIS(7)=0;
ELSE SEIS(7)=R(17810.);
IF R(17824.)=-4 & R(17825.)=-4 THEN UIS(7)=0;
ELSE IF R(17824.)>0 & R(17825.)>0 THEN UIS(7)=R(17824.) * R(17825.);
ELSE IF R(17825.)<0 THEN UIS(7)=R(17825.);
ELSE UIS(7)=-3;
IF R(17828.)=-4 THEN ALIM(7)=0;
ELSE ALIM(7)=R(17828.);
IF R(17833.)=-4 THEN CHSP(7)=0;
ELSE CHSP(7)=R(17833.);
IF R(17849.)=-4 THEN AFDC(7)=0;
ELSE DO;
B=0;
DO J=17837. TO 17848.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(17849.)<0 THEN AFDC(7)=R(17849.);
ELSE IF B<=0 THEN AFDC(7)=-3;
ELSE AFDC(7)=R(17849.) * B;
END;
IF R(17863.)=-4 THEN FOOD(7)=0;
ELSE DO;
B=0;
DO J=17851. TO 17862.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(17863.)<0 THEN FOOD(7)=R(17863.);
ELSE IF B<=0 THEN FOOD(7)=-3;
ELSE FOOD(7)=R(17863.) * B;
END;
IF R(17877.)=-4 THEN PUBLIC(7)=0;
ELSE DO;
B=0;
DO J=17865. TO 17876.;
IF R(J)>0 & B^=NA THEN B=B+1;
ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;
END;
IF R(17877.)<0 THEN PUBLIC(7)=R(17877.);
ELSE IF B<=0 THEN PUBLIC(7)=-3;
ELSE PUBLIC(7)=R(17877.) * B;
END;
IF R(17882.)=-4 THEN ED(7)=0;
ELSE ED(7)=R(17882.);
IF R(17883.)=-4 THEN EDSS(7)=0;
ELSE EDSS(7)=R(17883.);
IF R(17885.)=-4 THEN VET(7)=0;
ELSE VET(7)=R(17885.);
IF R(17887.)=-4 THEN OTHER(7)=0;
ELSE OTHER(7)=R(17887.);
IF R(17895.)=-4 THEN RELWEL(7)=0;
ELSE RELWEL(7)=R(17895.);
IF R(17897.)=-4 THEN RELREG(7)=0;
ELSE RELREG(7)=R(17897.);
IF R(18008.)=-4 THEN POVERTY(7)=0;
ELSE POVERTY(7)=R(18008.);
FAMILY(7)=FAMSZ85; /* TO CREATE FAMILY SIZE (I.E. FAMSZ85)
SEARCH THRU THE HOUSEHOLD ENUMERATION
INCREMENT FAMILY SIZE, IF THE
RELATIONSHIP TO THE YOUTH IS A RELATIVE.
DO NOT INCREASE FAMILY SIZE, IF THE CODE
IS <0 OR (>=33 & <=36) OR =45 OR =46 OR
(>=50 & <=54) */
1986 VARIABLES
IF R(22573.)=0 THEN INC(8)=-5;
ELSE INC(8)=R(21622.);
END;
FARM(8)=1;
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;
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.);
- 1987 Variables
- 1988 Variables
- 1989 Variables
- 1990 Variables
- 1991 Variables
- 1992 Variables
- 1993 Variables
- 1994 Variables
1987 VARIABLES
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 */
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.);
1988 VARIABLES
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 */
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.);
1989 VARIABLES
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 */
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);
1990 VARIABLES
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;
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.);
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.)
1991 VARIABLES
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;
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.)
1992 VARIABLES
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;
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.)
1993 Variables
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;
/* 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 */
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.)
1994 Variables
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;
/* 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 */
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.)
- 1996 Variables
- 1998 Variables
- 2000 Variables
- 2002 Variables
- 2004 Variables
- 2006 Variables
- 2008 Variables
- 2010 Variables
- 2012 Variables
- 2014 Variables
- 2016 Variables
- 2018 Variables
- 2020 Variables
1996 Variables
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;
/* 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 */
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.)
1998 Variables
/*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
/* 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*/
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 */
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
2000 Variables
/*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
/* 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 */
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 */ COMPUTE fjt_inc=fjt_141
do if (fjt_inc eq -4)
COMPUTE farm_cur=0
else
COMPUTE farm_cur=fjt_inc
end if
COMPUTE bpjt_inc=bp_141
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
/* poverty status and level */
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
2002 Variables
* 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;
/* 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 */
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;
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=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;
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;
2004 Variables
* 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;
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;
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 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;
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;
data truncate;
set compute2;
if (income_c >= 250200);
data compute3;
set compute2;
incom_ct=income_c;
if (income_c >= 250200) then incom_ct=408473;
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;
2006 Variables
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):
upper/lower values are in proper order, midpoint is used;
ranges are given backwards, the values are reversed and midpoint is used;
the same value is given for upper/lower self-reported range value, that single value is used;
If unfolding brackets are answered (low bracket < entry value < high bracket) and (example T09129.00-T09131.00):
r reports less than entry value and less than low bracket, then half of low bracket value is used (midpoint between low bracket and 0)
r reports less than entry value but greater than low bracket value, midpoint between low bracket and entry value is used;
r reports greater than entry value but less than high bracket value, midpoint between entry value and high bracket is used;
r reports greater than entry value and greater than high bracket value, the mean of valid responses above the high bracket value is used.
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;
* Poverty status and level
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;
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;
2008 Variables
* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2007;
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;
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;
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);
proc sort; by id;
data compute1;
set compute;
if (wktot07u = -4 & rctot07u = -4) then ui_cur=0;
else if (wktot07u = -4 & rctot07u = 0) then ui_cur=0;
else if (wktot07u > 0 & rctot07u > 0) then ui_cur=rctot07u;
else if (wktot07u < 0) then ui_cur=wktot07u;
else if (rctot07u < 0) then ui_cur=rctot07u;
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 | (wktot07s = -4 & rctot07s = -4)) then uis_cur=0;
else if (paflaga = 1 | (wktot07s = -4 & rctot07s = 0)) then uis_cur=0;
else if (wktot07s > 0 & rctot07s > 0) then uis_cur=rctot07s;
else if (wktot07s < 0) then uis_cur=wktot07s;
else if (rctot07s < 0) then uis_cur=rctot07s;
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 (rctot07a = -4 | rctot07a = 0) then afdc_cur=0;
else if (motot07a = -4 | motot07a = 0) then afdc_cur=0;
else if (rctot07a < 0) then afdc_cur=rctot07a;
else if (motot07a < 0) then afdc_cur=motot07a;
else if (motot07a <= 0) then afdc_cur=-3;
else afdc_cur=rctot07a;
if (rctot07f = -4 | rctot07f = 0) then food_cur=0;
else if (motot07f = -4 | motot07f = 0) then food_cur=0;
else if (rctot07f < 0) then food_cur=rctot07f;
else if (motot07f < 0) then food_cur=motot07f;
else if (motot07f <= 0) then food_cur=-3;
else food_cur=rctot07f;
if (rctot07w = -4 | rctot07w = 0) then ssi_cur=0;
else if (motot07w = -4 | motot07w = 0) then ssi_cur=0;
else if (rctot07w < 0) then ssi_cur=rctot07w;
else if (motot07w < 0) then ssi_cur=motot07w;
else if (motot07w <= 0) then ssi_cur=-3;
else ssi_cur=rctot07w;
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 * q13_70a_v);*replaced 12 by q13_70a_v;
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 * q13_70a_d);*replaced 12 by q13_70a_d;
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 * q13_70a_s);*replaced 12 by q13_70a_s;
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=famsz08;
/* TO CREATE FAMILY SIZE (I.E. FAMSZ08) 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 (wktot07u = -4 & rctot07u > 0) then do;
ui_cur=-3;
compo7=-3;
end;
else if (wktot07u < 0 & wktot07u > -4) then do;
ui_cur=-3;
compo7=-3;
end;
if (wktot07s = -4 & rctot07s > 0) then do;
uis_cur=-3;
compo8=-3;
end;
else if (wktot07s < 0 & wktot07s > -4) then do;
uis_cur=-3;
compo8=-3;
end;
if (motot07a = -4 & rctot07a > 0) then do;
afdc_cur=-3;
compo10=-3;
end;
else if (motot07a < 0 & motot07a > -4) then do;
afdc_cur=-3;
compo10=-3;
end;
if (motot07f = -4 & rctot07f > 0) then do;
food_cur=-3;
compo18=-3;
end;
else if (motot07f < 0 & motot07f > -4) then do;
food_cur=-3;
compo18=-3;
end;
if (motot07w = -4 & rctot07w > 0) then do;
ssi_cur=-3;
compo11=-3;
end;
else if (motot07w < 0 & motot07w > -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 >= 278000) then incom_ct=454737;
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;
2010 Variables
* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2009;
afdc_cur=-4;
chsp_cur=-4;
chsps_c=-4;
povstatus=-4;
ed_cur=-4;
edss_cur=-4;
family_c=-4;
faminc_c=-4;
food_cur=-4;
tnfi=-4;
povlevel=-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;
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 public_id;
data compute1;
set compute;
if (wktot09u = -4 & rctot09u = -4) then ui_cur=0;
else if (wktot09u = -4 & rctot09u = 0) then ui_cur=0;
else if (wktot09u > 0 & rctot09u > 0) then ui_cur=rctot09u;
else if (wktot09u < 0) then ui_cur=wktot09u;
else if (rctot09u < 0) then ui_cur=rctot09u;
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 | (wktot09s = -4 & rctot09s = -4)) then uis_cur=0;
else if (paflaga = 1 | (wktot09s = -4 & rctot09s = 0)) then uis_cur=0;
else if (wktot09s > 0 & rctot09s > 0) then uis_cur=rctot09s;
else if (wktot09s < 0) then uis_cur=wktot09s;
else if (rctot09s < 0) then uis_cur=rctot09s;
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 (rctot09a = -4 | rctot09a = 0) then afdc_cur=0;
else if (motot09a = -4 | motot09a = 0) then afdc_cur=0;
else if (rctot09a < 0) then afdc_cur=rctot09a;
else if (motot09a < 0) then afdc_cur=motot09a;
else if (motot09a <= 0) then afdc_cur=-3;
else afdc_cur=rctot09a;
if (rctot09f = -4 | rctot09f = 0) then food_cur=0;
else if (motot09f = -4 | motot09f = 0) then food_cur=0;
else if (rctot09f < 0) then food_cur=rctot09f;
else if (motot09f < 0) then food_cur=motot09f;
else if (motot09f <= 0) then food_cur=-3;
else food_cur=rctot09f;
if (rctot09w = -4 | rctot09w = 0) then ssi_cur=0;
else if (motot09w = -4 | motot09w = 0) then ssi_cur=0;
else if (rctot09w < 0) then ssi_cur=rctot09w;
else if (motot09w < 0) then ssi_cur=motot09w;
else if (motot09w <= 0) then ssi_cur=-3;
else ssi_cur=rctot09w;
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 * q13_70a_v);*replaced 12 by q13_70a_v;
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 * q13_70a_d);*replaced 12 by q13_70a_d;
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 * q13_70a_s);*replaced 12 by q13_70a_s;
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=famsz10;
/* 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;
tnfi=-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 (wktot09u = -4 & rctot09u > 0) then do;
ui_cur=-3;
compo7=-3;
end;
else if (wktot09u < 0 & wktot09u > -4) then do;
ui_cur=-3;
compo7=-3;
end;
if (wktot09s = -4 & rctot09s > 0) then do;
uis_cur=-3;
compo8=-3;
end;
else if (wktot09s < 0 & wktot09s > -4) then do;
uis_cur=-3;
compo8=-3;
end;
if (motot09a = -4 & rctot09a > 0) then do;
afdc_cur=-3;
compo10=-3;
end;
else if (motot09a < 0 & motot09a > -4) then do;
afdc_cur=-3;
compo10=-3;
end;
if (motot09f = -4 & rctot09f > 0) then do;
food_cur=-3;
compo18=-3;
end;
else if (motot09f < 0 & motot09f > -4) then do;
food_cur=-3;
compo18=-3;
end;
if (motot09w = -4 & rctot09w > 0) then do;
ssi_cur=-3;
compo11=-3;
end;
else if (motot09w < 0 & motot09w > -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 tnfi=faminc_c;
else do;
if (mn1703 > 0) then tnfi=-3;
else if (mn1702 > 0) then tnfi=-2;
else if (mn1701 > 0) then tnfi=-1;
end;
if (paflaga = -5) then tnfi=-5;
proc freq; tables sei_cur seis_cur;
run;
proc print; var public_id sei_cur seis_cur;
where (0<sei_cur<100 or 0<seis_cur<100);
title 'sei_cur and seis_cur <100';
title;
proc freq;
tables mn1701 mn1702 mn1703 sumn_cur;
* income trunc;
data compute3;
set compute2;
tnfi_trunc=tnfi;
if (tnfi >= 270200) then tnfi_trunc=440692;
if (tnfi > povlevel) then povstatus=0;
else if (tnfi >= 0 & tnfi <= povlevel) then povstatus=1;
else povstatus=-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 povlevel=-5;
if (paflaga = -5) then povstatus=-5;
2012 Variables
* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2011;
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;
tnfi=-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;
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;
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 compute1;
set compute;
if (wktot11u = -4 & rctot11u = -4) then ui_cur=0;
else if (wktot11u = -4 & rctot11u = 0) then ui_cur=0;
else if (wktot11u > 0 & rctot11u > 0) then ui_cur=rctot11u;
else if (wktot11u < 0) then ui_cur=wktot11u;
else if (rctot11u < 0) then ui_cur=rctot11u;
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 | (wktot11s = -4 & rctot11s = -4)) then uis_cur=0;
else if (paflaga = 1 | (wktot11s = -4 & rctot11s = 0)) then uis_cur=0;
else if (wktot11s > 0 & rctot11s > 0) then uis_cur=rctot11s;
else if (wktot11s < 0) then uis_cur=wktot11s;
else if (rctot11s < 0) then uis_cur=rctot11s;
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 (rctot11a = -4 | rctot11a = 0) then afdc_cur=0;
else if (motot11a = -4 | motot11a = 0) then afdc_cur=0;
else if (rctot11a < 0) then afdc_cur=rctot11a;
else if (motot11a < 0) then afdc_cur=motot11a;
else if (motot11a <= 0) then afdc_cur=-3;
else afdc_cur=rctot11a;
if (rctot11f = -4 | rctot11f = 0) then food_cur=0;
else if (motot11f = -4 | motot11f = 0) then food_cur=0;
else if (rctot11f < 0) then food_cur=rctot11f;
else if (motot11f < 0) then food_cur=motot11f;
else if (motot11f <= 0) then food_cur=-3;
else food_cur=rctot11f;
if (rctot11w = -4 | rctot11w = 0) then ssi_cur=0;
else if (motot11w = -4 | motot11w = 0) then ssi_cur=0;
else if (rctot11w < 0) then ssi_cur=rctot11w;
else if (motot11w < 0) then ssi_cur=motot11w;
else if (motot11w <= 0) then ssi_cur=-3;
else ssi_cur=rctot11w;
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|q13_70a_v=-2) then vet_cur=-2;
else if (q13_70_v = -1|q13_70a_v=-1) then vet_cur=-1;
else vet_cur=(q13_70_v * q13_70a_v);
if (q13_70_d = -4) then dis_cur=0;
else if (q13_70_d = -2|q13_70a_d=-2) then dis_cur=-2;
else if (q13_70_d = -1|q13_70a_d=-1) then dis_cur=-1;
else dis_cur=(q13_70_d * q13_70a_d);
if (q13_70_s = -4) then ss_cur=0;
else if (q13_70_s = -2|q13_70a_s=-2) then ss_cur=-2;
else if (q13_70_s = -1|q13_70a_s=-1) then ss_cur=-1;
else ss_cur=(q13_70_s * q13_70a_s);*replaced 12 by q13_70a_s;
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=famsz12;
/* TO CREATE FAMILY SIZE (I.E. FAMSZ12) 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;
tnfi=-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 (wktot11u = -4 & rctot11u > 0) then do;
ui_cur=-3;
compo7=-3;
end;
else if (wktot11u < 0 & wktot11u > -4) then do;
ui_cur=-3;
compo7=-3;
end;
if (wktot11s = -4 & rctot11s > 0) then do;
uis_cur=-3;
compo8=-3;
end;
else if (wktot11s < 0 & wktot11s > -4) then do;
uis_cur=-3;
compo8=-3;
end;
if (motot11a = -4 & rctot11a > 0) then do;
afdc_cur=-3;
compo10=-3;
end;
else if (motot11a < 0 & motot11a > -4) then do;
afdc_cur=-3;
compo10=-3;
end;
if (motot11f = -4 & rctot11f > 0) then do;
food_cur=-3;
compo18=-3;
end;
else if (motot11f < 0 & motot11f > -4) then do;
food_cur=-3;
compo18=-3;
end;
if (motot11w = -4 & rctot11w > 0) then do;
ssi_cur=-3;
compo11=-3;
end;
else if (motot11w < 0 & motot11w > -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 tnfi=faminc_c;
else do;
if (mn1703 > 0) then tnfi=-3;
else if (mn1702 > 0) then tnfi=-2;
else if (mn1701 > 0) then tnfi=-1;
end;
if (paflaga = -5) then tnfi=-5;
* income trunc;
data compute3;
set compute2;
tnfi_trunc=tnfi;
if (tnfi >= 290500) then tnfi_trunc=497763;
if (tnfi > level_c) then cps_cur=0;
else if (tnfi >= 0 & tnfi <= 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;
2014 Variables
* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2013;
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;
tnfi=-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;
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;
/* comment out business/farm income collected with assets for 2014 - put back in 2016;
* series to incorporate new farm & bus income qs;
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);
*/
run;
data compute1;set compute;
if (wktot13u = -4 & rctot13u = -4) then ui_cur=0;/*unemp comp dol*/
else if (wktot13u = -4 & rctot13u = 0) then ui_cur=0;
else if (wktot13u > 0 & rctot13u > 0) then ui_cur=rctot13u;
else if (wktot13u < 0) then ui_cur=wktot13u;
else if (rctot13u < 0) then ui_cur=rctot13u;
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 | (wktot13s = -4 & rctot13s = -4)) then uis_cur=0;/*spuc dol*/
else if (paflaga = 1 | (wktot13s = -4 & rctot13s = 0)) then uis_cur=0;
else if (wktot13s > 0 & rctot13s > 0) then uis_cur=rctot13s;
else if (wktot13s < 0) then uis_cur=wktot13s;
else if (rctot13s < 0) then uis_cur=rctot13s;
else uis_cur=-3;
if (q13_31b = -4) then wkcmp_c=0;*spouse worker's compensation;
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 (rctot13a = -4 | rctot13a = 0) then afdc_cur=0;
else if (motot13a = -4 | motot13a = 0) then afdc_cur=0;
else if (rctot13a < 0) then afdc_cur=rctot13a;
else if (motot13a < 0) then afdc_cur=motot13a;
else if (motot13a <= 0) then afdc_cur=-3;
else afdc_cur=rctot13a;
if (rctot13f = -4 | rctot13f = 0) then food_cur=0;
else if (motot13f = -4 | motot13f = 0) then food_cur=0;
else if (rctot13f < 0) then food_cur=rctot13f;
else if (motot13f < 0) then food_cur=motot13f;
else if (motot13f <= 0) then food_cur=-3;
else food_cur=rctot13f;
if (rctot13w = -4 | rctot13w = 0) then ssi_cur=0;
else if (motot13w = -4 | motot13w = 0) then ssi_cur=0;
else if (rctot13w < 0) then ssi_cur=rctot13w;
else if (motot13w < 0) then ssi_cur=motot13w;
else if (motot13w <= 0) then ssi_cur=-3;
else ssi_cur=rctot13w;
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|q13_70a_v=-2) then vet_cur=-2;
else if (q13_70_v = -1|q13_70a_v=-1) then vet_cur=-1;
else if q13_70_v >=0 & q13_70a_v>=0 then vet_cur=(q13_70_v * q13_70a_v);
if (q13_70_d = -4) then dis_cur=0;
else if (q13_70_d = -2|q13_70a_d=-2) then dis_cur=-2;
else if (q13_70_d = -1|q13_70a_d=-1) then dis_cur=-1;
else if q13_70_d>=0 & q13_70a_d>=0 then dis_cur=(q13_70_d * q13_70a_d);*replaced 12 by q13_70a_d;
if (q13_70_s = -4) then ss_cur=0;
else if (q13_70_s = -2|q13_70a_s=-2) then ss_cur=-2;
else if (q13_70_s = -1|q13_70a_s=-1) then ss_cur=-1;
else if q13_70_s>=0 & q13_70a_s>=0 then ss_cur=(q13_70_s * q13_70a_s);
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=famsize;
/* TO CREATE FAMILY SIZE (I.E. FAMSZ12) 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;
tnfi=-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 (wktot13u = -4 & rctot13u > 0) then do;
ui_cur=-3;
compo7=-3;
end;
else if (wktot13u < 0 & wktot13u > -4) then do;
ui_cur=-3;
compo7=-3;
end;
if (wktot13s = -4 & rctot13s > 0) then do;
uis_cur=-3;
compo8=-3;
end;
else if (wktot13s < 0 & wktot13s > -4) then do;
uis_cur=-3;
compo8=-3;
end;
if (motot13a = -4 & rctot13a > 0) then do;
afdc_cur=-3;
compo10=-3;
end;
else if (motot13a < 0 & motot13a > -4) then do;
afdc_cur=-3;
compo10=-3;
end;
if (motot13f = -4 & rctot13f > 0) then do;
food_cur=-3;
compo18=-3;
end;
else if (motot13f < 0 & motot13f > -4) then do;
food_cur=-3;
compo18=-3;
end;
if (motot13w = -4 & rctot13w > 0) then do;
ssi_cur=-3;
compo11=-3;
end;
else if (motot13w < 0 & motot13w > -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 tnfi=faminc_c;
else do;
if (mn1703 > 0) then tnfi=-3;
else if (mn1702 > 0) then tnfi=-2;
else if (mn1701 > 0) then tnfi=-1;
end;
if (paflaga = -5) then tnfi=-5;
*income trunc;
data compute3;set compute2;
tnfi_trunc=tnfi;
if (tnfi >= 310000) then tnfi_trunc=595986;
* poverty status and level;
if year_pcy14=2013 then do;
if family_c > 0 then level_c=(table13 + (tbl13_inc * (family_c-1)));*interviewed in 2014 using 2013 guideline;
end;
else if year_pcy14=2014 then do;
if family_c > 0 then level_c=(table14 + (tbl14_inc * (family_c-1)));*interviewed in 2015 using 2014 guideline;
end;
if (tnfi > level_c) then cps_cur=0;
else if (tnfi >= 0 & tnfi <= 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;
2016 Variables
*PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2015 & 2016 (ROUND 27)
/**** QNAME in the Gator Variable name in the program
------------------------------------------------------------------------------
UNEMPR-TOTAL-2015 rctot15u
UNEMPSP-TOTAL-2015 rctot15s
AFDC-TOTAL-2015 rctot15a
FDSTMPS-TOTAL-2015 rctot15f
SSI-TOTAL-2015 rctot15w
WELFARE-AMT-2015 rctot15t
UNEMPR-TOTAL-2016 rctot16u
UNEMPSP-TOTAL-2016 rctot16s
AFDC-TOTAL-2016 rctot16a
FDSTMPS-TOTAL-2016 rctot16f
SSI-TOTAL-2016 rctot16w
WELFARE-AMT-2016 rctot16t
Q13-3 Q13_3
Q13-5 Q13_5
Q13-9 Q13_9
Q13-16 Q13_16
Q13-18 Q13_18
Q13-24 Q13_24
Q13-31B Q13_31B
Q13-33I Q13_33I
Q13-33M Q13_33M
Q13-66 Q13_66
Q13-68 Q13_68
Q13-70_VET Q13_70_V
Q13-70A_VET Q13_70A_V
Q13-70_DIS Q13_70_D
Q13-70A_DIS Q13_70A_D
Q13-70_SS Q13_70_S
Q13-70A_SS Q13_70A_S
Q13-75 Q13_75
Q13-81-NEW Q13_81_N
Q13-FJT-13.01 FJT_131
Q13-FJT-13.02 FJT_132
Q13-FJT-14.01 FJT_141
Q13-FJT-15.01 FJT_151
Q13-FJT-15.02 FJT_152
Q13-BPPJT-13.01 BP_131
Q13-BPPJT-13.02 BP_132
Q13-BPPJT-13.03 BP_133
Q13-BPPJT-13.04 BP_134
Q13-BPPJT-14.01 BP_141
Q13-BPPJT-14.02 BP_142
Q13-BPPJT-14.03 BP_143
Q13-BPPJT-14.04 BP_144
Q13-BPPJT-15.01 BP_151
Q13-132D Q13_132D
FAMSIZE FAMSIZE
SYMBOL_CURDATE~D curday
SYMBOL_CURDATE~M curmo
SYMBOL_CURDATE~Y curyr
SYMBOL_SPFLAG SPFLAG
SYMBOL_PAFLAG paflag
HHI_FINAL_RELCODE.01 rel01
HHI_FINAL_RELCODE.02 rel02
HHI_FINAL_RELCODE.03 rel03
HHI_FINAL_RELCODE.04 rel04
HHI_FINAL_RELCODE.05 rel05
HHI_FINAL_RELCODE.06 rel06
HHI_FINAL_RELCODE.07 rel07
HHI_FINAL_RELCODE.08 rel08
HHI_FINAL_RELCODE.09 rel09
HHI_FINAL_RELCODE.10 rel10
HHI_FINAL_RELCODE.11 rel11
HHI_FINAL_RELCODE.12 rel12
*/
* 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 )
then paflaga=1;
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)
then spflaga=1;
*INITIALIZE;
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;
rel_cur=-4;
sei_cur=-4;
seis_cur=-4;
sumn_cur=-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;
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;
fjt_inc=fjt_141;
if (fjt_inc = -4) then farm_cur=0;
else farm_cur=fjt_inc;
array bp14 (*) bp_141-bp_144;
bus_cur=0;
do i=1 to dim(bp14);
if bp14(i) in (-1 -2 -3) then bus_cur=-3;
else if bp14(i) in (0 -4) & bus_cur>=0 then bus_cur=bus_cur;
else if bp14(i)>0 & bus_cur>=0 then bus_cur=bus_cur + bp14(i);
end;
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 sei_cur>=0 & farm_cur >0 then sei_cur=(sei_cur+farm_cur);
else if farm_cur in (-1 -2 -3) then sei_cur=-3;
if sei_cur>=0 & bus_cur > 0 then sei_cur=(sei_cur+bus_cur);
else if bus_cur in (-1 -2 -3) then sei_cur=-3;
if sei_cur>=0 & fbr_cur > 0 then sei_cur=(sei_cur+fbr_cur);
else if fbr_cur in (-1 -2 -3) then sei_cur=-3;
if curyr=2016 then do;
rctotu = rctot15u;
rctots = rctot15s;
rctota = rctot15a;
rctotf = rctot15f;
rctotw = rctot15w;
rctott = rctot15t;
end;
else if curyr=2017 then do;
rctotu = rctot16u;
rctots = rctot16s;
rctota = rctot16a;
rctotf = rctot16f;
rctotw = rctot16w;
rctott = rctot16t;
end;
if rctotu = -4 then ui_cur=0;
else ui_cur= rctotu;
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 | rctots = -4) then uis_cur=0;
else uis_cur=rctots;
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 rctota = -4 then afdc_cur=0;
else afdc_cur= rctota;
if rctotf = -4 then food_cur=0;
else food_cur= rctotf;
if rctotw = -4 then ssi_cur=0;
else ssi_cur= rctotw;
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|q13_70a_v=-2) then vet_cur=-2;
else if (q13_70_v = -1|q13_70a_v=-1) then vet_cur=-1;
else if q13_70_v >=0 & q13_70a_v>=0 then vet_cur=(q13_70_v * q13_70a_v);
if (q13_70_d = -4) then dis_cur=0;
else if (q13_70_d = -2|q13_70a_d=-2) then dis_cur=-2;
else if (q13_70_d = -1|q13_70a_d=-1) then dis_cur=-1;
else if q13_70_d>=0 & q13_70a_d>=0 then dis_cur=(q13_70_d * q13_70a_d);
if (q13_70_s = -4) then ss_cur=0;
else if (q13_70_s = -2|q13_70a_s=-2) then ss_cur=-2;
else if (q13_70_s = -1|q13_70a_s=-1) then ss_cur=-1;
else if q13_70_s>=0 & q13_70a_s>=0 then ss_cur=(q13_70_s * q13_70a_s);
if (Q13_75 = -4) then other_c=0;
else other_c=Q13_75;
if (Q13_81_N = -4) then rel_cur=0;
else rel_cur=Q13_81_N;
family_c=famsize;
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=rel_cur;
compo17=food_cur;
compo18=chsps_c;
compo19=wkcmp_c;
compo20=dis_cur;
compo21=ss_cur;
array compo (j) compo1 compo2 compo3 compo4 compo5 compo6 compo7
compo8 compo9 compo10 compo11 compo12 compo13 compo14
compo15 compo16 compo17 compo18 compo19 compo20
compo21;
do j=1 to 21;
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;
* poverty status and level;
if curyr=2016 then do;
if family_c > 0 then level_c=(table15 + (tbl15_inc * (family_c-1)));*interviewed in 2016 using 2015 guideline;
end;
else if curyr=2017 then do;
if family_c > 0 then level_c=(table16 + (tbl16_inc * (family_c-1)));*interviewed in 2017 using 2016 guideline;
end;
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;
***** top coding;
data two;set one;
incom_ct=income_c;
if (income_c >= 352000) then incom_ct=922631;
2018 Variables
*PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2018 (ROUND 28)
/**** QNAME in the Gator Variable name in the program
------------------------------------------------------------------------------
UNEMPR-TOTAL-2017 rctot17u
UNEMPSP-TOTAL-2017 rctot17s
AFDC-TOTAL-2017 rctot17a
FDSTMPS-TOTAL-2017 rctot17f
SSI-TOTAL-2017 rctot17w
WELFARE-AMT-2017 rctot17t
UNEMPR-TOTAL-2018 rctot18u
UNEMPSP-TOTAL-2018 rctot18s
AFDC-TOTAL-2018 rctot18a
FDSTMPS-TOTAL-2018 rctot18f
SSI-TOTAL-2018 rctot18w
WELFARE-AMT-2018 rctot18t
Q13-5 Q13_5
Q13-9 q13_9
RR-PENSIONS-1 RR_pen1
RR-PENSIONS-2 RR_pen2
RR-ANNUITIES-1 RR_anu1
RR-ANNUITIES-2 RR_anu2
RR-IRA-1 RR_ira1
RR-IRA-3 RR_ira3
RR-IRA-4 RR_ira4
RR-SOCSEC-1 RR_SS
Q13-69_SS Q69_SS
Q13-70A_SS q70a_ss
Q13-70_SS q70_ss
Q13-70A_DIS.01 q70a_dis1
Q13-70A_DIS.02 q70a_dis2
Q13-70_DIS.01 q70_dis1
Q13-70_DIS.02 q70_dis2
Q13-31A q13_31a
Q13-31B q13_31b
Q13-70A_VET q70a_vet
Q13-70_VET q70_vet
Q13-18 q13_18
Q13-24 q13_24
RSP-PENSIONS-1 RS_pen1
RSP-PENSIONS-2 RS_pen2
RSP-ANNUITIES-1 RS_anu1
RSP-ANNUITIES-2 RS_anu2
RSP-IRA-1 RS_ira1
RSP-IRA-3 RS_ira3
RSP-IRA-4 RS_ira4
RSP-SOCSEC-1 RS_SS
Q13-69_SS-SP q69_SS_SP
Q13-70A_SS-SP q70a_ss_sp
Q13-70_SS-SP q70_ss_sp
Q13-70A_DIS-SP.01 q70a_dis1_sp
Q13-70A_DIS-SP.02 q70a_dis2_sp
Q13-70_DIS-SP.01 q70_dis1_sp
Q13-70_DIS-SP.02 q70_dis2_sp
Q13-31A-SP q13_31a_sp
Q13-31B-SP q13_31b_sp
Q13-70A-SP_VET q70a_vet_sp
Q13-70_VET-SP q70_vet_sp
Q13-71 q13_71
Q13-73A q13_73a
Q13-74 q13_74
Q13-75 q13_75
Q13-80-NEW q13_80
Q13-81-NEW q13_81
CURDATE~D curday
CURDATE~M curmo
CURDATE~Y curyr
Q13-10 q10
FAMSIZE FAMSIZE
SYMBOL_SPFLAG SPFLAG
SYMBOL_PAFLAG paflag
HHI_FINAL_RELCODE.01 rel01
HHI_FINAL_RELCODE.02 rel02
HHI_FINAL_RELCODE.03 rel03
HHI_FINAL_RELCODE.04 rel04
HHI_FINAL_RELCODE.05 rel05
HHI_FINAL_RELCODE.06 rel06
HHI_FINAL_RELCODE.07 rel07
HHI_FINAL_RELCODE.08 rel08
HHI_FINAL_RELCODE.09 rel09
HHI_FINAL_RELCODE.10 rel10
HHI_FINAL_RELCODE.11 rel11
HHI_FINAL_RELCODE.12 rel12
*/
* add to paflag for any missed;
paflaga = paflag;
HHI_FINAL_RELCODE.11 rel11
HHI_FINAL_RELCODE.12 rel12
*/
* add to paflag for any missed;
paflaga = paflag;
if (rel01 = 33 | rel02 = 33 | rel03
spflaga = spflag;
if (rel01 = 1 | rel02 = 1 | rel03 = 1 | rel04 = 1 | rel05 = 1
| rel06 = 1 | rel07 = 1 | rel08 = 1 | rel09 = 1 | rel10 = 1
| rel11 = 1 )
then spflaga=1;
***** respondent (and dependent children) income;
* wager--wage;
wager=-3;
if q13_5>=0 then wager=q13_5;
* farmr--income from farm or business;
farmr=-3;
if q13_9=-4 then farmr=0;
else if q13_9>=0 then farmr=q13_9;
* penr--income from retirement pension;
penr=-3;
if RR_pen1 in (-4 0) then penr=0;
else if RR_pen2>=0 then penr=RR_pen2;
* anur--income from retirement annuity;
anur=-3;
if RR_anu1 in (-4 0) then anur=0;
else if RR_anu2>=0 then anur=RR_anu2;
* irar--withdraw from IRA;
irar=-3;
if RR_ira1 in (-4 0) or RR_ira3=0 then irar=0;
else if RR_ira4>=0 then irar=RR_ira4;
* ssr--income from social security;
ssr=-3;
if RR_SS in (-4 0) or q69_ss=0 then ssr=0;
else if q70a_ss>=0 and q70_ss>=0 then ssr=q70a_ss * q70_ss;
* dis1r--veteran disability;
dis1r=-3;
if q70a_dis1=-4 then dis1r=0;
else if q70a_dis1>=0 and q70_dis1>=0 then dis1r=q70a_dis1 * q70_dis1;
* dis2r--other disability;
dis2r=-3;
if q70a_dis2=-4 then dis2r=0;
else if q70a_dis2>=0 and q70_dis2>=0 then dis2r=q70a_dis2 * q70_dis2;
* wcmpr--worker comp;
wcmpr=-3;
if q13_31a in (-4, 0) then wcmpr=0;
else if q13_31b>=0 then wcmpr=q13_31b;
* vetr--other veteran benefit;
vetr=-3;
if q70a_vet=-4 then vetr=0;
else if q70a_vet>=0 and q70_vet>=0 then vetr=q70a_vet * q70_vet;
* respondent UC;
ucr=-3;
if curyr=2018 then ucr=ucr117;
else if curyr=2019 then ucr=ucr118;
if ucr in (. -4) then ucr=0;
if ucr in (-1 -2) then ucr=-3;
***** Spouse/partner;
* wages--spouse wage;
wages=-3;
if paflaga=1 or q13_18=-4 then wages=0;
else if q13_18>=0 then wages=q13_18;
* farms--spouse income from farm or business;
farms=-3;
if paflaga=1 or q13_24=-4 then farms=0;
else if q13_24>=0 then farms=q13_24;
* pensp--spouse/partner income from retirement pension;
pensp=-3;
if RS_pen1 in (-4 0) then pensp=0;
else if RS_pen2>=0 then pensp=RS_pen2;
* anusp--spouse/partner income from retirement annuity;
anusp=-3;
if RS_anu1 in (-4 0) then anusp=0;
else if RS_anu2>=0 then anusp=RS_anu2;
* irasp--spouse/partner withdraw from IRA;
irasp=-3;
if RS_ira1 in (-4 0) or RS_ira3=0 then irasp=0;
else if RS_ira4>=0 then irasp=RS_ira4;
* sssp--spouse/partner income from social security;
sssp=-3;
if RS_ss in (-4 0) or q69_ss_sp=0 then sssp=0;
else if q70a_ss_sp>=0 and q70_ss_sp>=0 then sssp=q70a_ss_sp * q70_ss_sp;
* dis1sp--spouse/partner veteran disability;
dis1sp=-3;
if q70a_dis1_sp=-4 then dis1sp=0;
else if q70a_dis1_sp>=0 and q70_dis1_sp>=0 then dis1sp=q70a_dis1_sp * q70_dis1_sp;
* dis2sp--spouse/partner other disability;
dis2sp=-3;
if q70a_dis2_sp=-4 then dis2sp=0;
else if q70a_dis2_sp>=0 and q70_dis2_sp>=0 then dis2sp=q70a_dis2_sp * q70_dis2_sp;
* wcmpsp--spouse/partner worker comp;
wcmpsp=-3;
if q13_31a_sp in (-4, 0) then wcmpsp=0;
else if q13_31b_sp>=0 then wcmpsp=q13_31b_sp;
* vetsp--spouse/partner other veteran benefit;
vetsp=-3;
if q70a_vet_sp=-4 then vetsp=0;
else if q70a_vet_sp>=0 and q70_vet_sp>=0 then vetsp=q70a_vet_sp * q70_vet_sp;
* spouse UC;
ucs=-3;
if curyr=2018 then ucs=ucsp117;
else if curyr=2019 then ucs=ucsp118;
if paflaga=1 or ucs in (. -4) then ucs=0;
if ucs in (-1 -2) then ucs=-3;
***** R and spouse/partner;
* afdc, food stamps, ssi and ssdi;
wel=-3;
if curyr=2018 then wel=wel117;
else if curyr=2019 then wel=wel118;
if wel in (-4 .) then wel=0;
*estates/trusts/inheritances;
trst=-3;
if q13_71 in (-4 0) then trst=0;
else if q13_73a>=0 then trst=q13_73a;
*income from other sources;
othrs=-3; *s refers to sources;
if q13_74 in (-4 0) then othrs=0;
else if q13_75>=0 then othrs=q13_75;
*income from other family memeber in the house;
othrp=-3; *p refers to people;
if q13_80 in (-4 0) then othrp=0;
else if q13_81>=0 then othrp=q13_81;
***** total family income;
array comp (*) wager farmr penr anur irar ssr dis1r dis2r wcmpr vetr ucr
wages farms pensp anusp irasp sssp dis1sp dis2sp wcmpsp vetsp ucs
wel trst othrs othrp;
faminc=0;
do j=1 to 26;
if comp(j)=-3 then do; faminc=-3; j=26; end;
else if faminc>=0 & comp(j)>=0 then faminc=faminc + comp(j);
end;
***** Poverty level;
curyr=2018 then do;
if famsize > 0 then level=(table17 + (tbl17_inc * (famsize-1)));*interviewed in 2018 using 2017 guideline;
end;
else if curyr=2019 then do;
if famsize > 0 then level=(table18 + (tbl18_inc * (famsize-1)));*interviewed in 2019 using 2018 guideline;
end;
if (faminc > level) then cps_cur=0;
else if (faminc >= 0 & faminc <= level) then cps_cur=1;
else cps_cur=-3;
if
***** topcode;
faminc_t=faminc; if faminc>405500 then faminc_t=766958;
2020 Variables
Options pagesize=12686 linesize=100 nocenter nodate nolabel validvarname=any formchar="|----|+|---+=|-/\<>*";;
*respondent UC;
data UCr;
infile UCry dlm=',' lrecl=500;
input norcid UCr87-UCr121;
keep norcid UCr119 UCr120;
*spouse/partner UC;
data UCsp;
infile UCspy dlm=',' lrecl=300;
input norcid UCsp89-UCsp121;
keep norcid UCsp119 UCsp120;
*respondent and spouse/partner afdc,food stamps, ssdi, and ssi;
data wel; *b refer to both SSI and SSDI;
infile wby dlm=',' lrecl=50;
input norcid wel117-wel121;
keep norcid wel119 wel120;
data Q13;
set prg2020.in_inc_2020;
keep
'Q13-5_2020'n
'Q13-9_2020'n
'RR-PENSIONS-1_2020'n
'RR-PENSIONS-2_2020'n
'RR-ANNUITIES-1_2020'n
'RR-ANNUITIES-2_2020'n
'RR-IRA-1_2020'n
'RR-IRA-3_2020'n
'RR-IRA-4_2020'n
'RR-SOCSEC-1_2020'n
'Q13-69_SS_2020'n
'Q13-70A_SS_2020'n
'Q13-70_SS_2020'n
'Q13-70A_DIS.01_2020'n
'Q13-70A_DIS.02_2020'n
'Q13-70_DIS.01_2020'n
'Q13-70_DIS.02_2020'n
'Q13-31A_2020'n
'Q13-31B_2020'n
'Q13-70A_VET_2020'n
'Q13-70_VET_2020'n
'Q13-18_2020'n
'Q13-24_2020'n
'RSP-PENSIONS-1_2020'n
'RSP-PENSIONS-2_2020'n
'RSP-ANNUITIES-1_2020'n
'RSP-ANNUITIES-2_2020'n
'RSP-IRA-1_2020'n
'RSP-IRA-3_2020'n
'RSP-IRA-4_2020'n
'RSP-SOCSEC-1_2020'n
'Q13-69_SS-SP_2020'n
'Q13-70A_SS-SP_2020'n
'Q13-70_SS-SP_2020'n
'Q13-70A_DIS-SP.01_2020'n
'Q13-70A_DIS-SP.02_2020'n
'Q13-70_DIS-SP.01_2020'n
'Q13-70_DIS-SP.02_2020'n
'Q13-31A-SP_2020'n
'Q13-31B-SP_2020'n
'Q13-70A-SP_VET_2020'n
'Q13-70_VET-SP_2020'n
'Q13-71_2020'n
'Q13-73A_2020'n
'Q13-74_2020'n
'Q13-75_2020'n
'Q13-80-NEW_2020'n
'Q13-81-NEW_2020'n
'CURDATE~D_2020'n
'CURDATE~M_2020'n
'CURDATE~Y_2020'n
norcid
'Q13-10_2020'n
;
rename
'Q13-5_2020'n = Q13_5
'Q13-9_2020'n = q13_9
'RR-PENSIONS-1_2020'n = RR_pen1
'RR-PENSIONS-2_2020'n = RR_pen2
'RR-ANNUITIES-1_2020'n = RR_anu1
'RR-ANNUITIES-2_2020'n = RR_anu2
'RR-IRA-1_2020'n = RR_ira1
'RR-IRA-3_2020'n = RR_ira3
'RR-IRA-4_2020'n = RR_ira4
'RR-SOCSEC-1_2020'n = RR_SS
'Q13-69_SS_2020'n = Q69_SS
'Q13-70A_SS_2020'n = q70a_ss
'Q13-70_SS_2020'n = q70_ss
'Q13-70A_DIS.01_2020'n = q70a_dis1
'Q13-70A_DIS.02_2020'n = q70a_dis2
'Q13-70_DIS.01_2020'n = q70_dis1
'Q13-70_DIS.02_2020'n = q70_dis2
'Q13-31A_2020'n = q13_31a
'Q13-31B_2020'n = q13_31b
'Q13-70A_VET_2020'n = q70a_vet
'Q13-70_VET_2020'n = q70_vet
'Q13-18_2020'n = q13_18
'Q13-24_2020'n = q13_24
'RSP-PENSIONS-1_2020'n = RS_pen1
'RSP-PENSIONS-2_2020'n = RS_pen2
'RSP-ANNUITIES-1_2020'n = RS_anu1
'RSP-ANNUITIES-2_2020'n = RS_anu2
'RSP-IRA-1_2020'n = RS_ira1
'RSP-IRA-3_2020'n = RS_ira3
'RSP-IRA-4_2020'n = RS_ira4
'RSP-SOCSEC-1_2020'n = RS_SS
'Q13-69_SS-SP_2020'n = q69_SS_SP
'Q13-70A_SS-SP_2020'n = q70a_ss_sp
'Q13-70_SS-SP_2020'n = q70_ss_sp
'Q13-70A_DIS-SP.01_2020'n = q70a_dis1_sp
'Q13-70A_DIS-SP.02_2020'n = q70a_dis2_sp
'Q13-70_DIS-SP.01_2020'n = q70_dis1_sp
'Q13-70_DIS-SP.02_2020'n = q70_dis2_sp
'Q13-31A-SP_2020'n = q13_31a_sp
'Q13-31B-SP_2020'n = q13_31b_sp
'Q13-70A-SP_VET_2020'n = q70a_vet_sp
'Q13-70_VET-SP_2020'n = q70_vet_sp
'Q13-71_2020'n = q13_71
'Q13-73A_2020'n = q13_73a
'Q13-74_2020'n = q13_74
'Q13-75_2020'n = q13_75
'Q13-80-NEW_2020'n = q13_80
'Q13-81-NEW_2020'n = q13_81
'CURDATE~D_2020'n = curday
'CURDATE~M_2020'n = curmo
'CURDATE~Y_2020'n = curyr
'Q13-10_2020'n = q10
;
data one;
merge inc2020.in_fam2020 Q13 UCr UCsp Wel;
by norcid;
if FAMSIZE ~= -5;
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 )
then paflaga=1;
spflaga = spflag;
if (rel01 = 1 | rel02 = 1 | rel03 = 1 | rel04 = 1 | rel05 = 1
| rel06 = 1 | rel07 = 1 | rel08 = 1 | rel09 = 1 | rel10 = 1
| rel11 = 1 )
then spflaga=1;
***** respondent (and dependent children) income;
* wager--wage;
wager=-4;
if q13_5=-4 then wager=0;
else wager=q13_5;
* farmr--income from farm or business;
farmr=-4;
if q13_9=-4 then farmr=0;
else farmr=q13_9;
* penr--income from retirement pension;
penr=-4;
if RR_pen2 in (-4 0) then penr=0;
else penr=RR_pen2;
* anur--income from retirement annuity;
anur=-4;
if RR_anu2 in (-4 0) then anur=0;
else anur=RR_anu2;
* irar--withdraw from IRA;
irar=-4;
if RR_ira4 in (-4 0) then irar=0;
else irar=RR_ira4;
* ssr--income from social security;
ssr=-4;
if q70_ss=-4 then ssr=0;
else if q70a_ss in (-1 -2 -3) or q70_ss in (-1 -2 -3) then ssr=-3;
else if q70a_ss>=0 and q70_ss>=0 then ssr=q70a_ss * q70_ss;
* dis1r--veteran disability;
dis1r=-4;
if q70_dis1=-4 then dis1r=0;
else if q70a_dis1 in (-1 -2 -3) or q70_dis1 in (-1 -2 -3) then dis1r=-3;
else if q70a_dis1>=0 and q70_dis1>=0 then dis1r=q70a_dis1 * q70_dis1;
* dis2r--other disability;
dis2r=-4;
if q70_dis2=-4 then dis2r=0;
else if q70a_dis2 in (-1 -2 -3) or q70_dis2 in (-1 -2 -3) then dis2r=-3;
else if q70a_dis2>=0 and q70_dis2>=0 then dis2r=q70a_dis2 * q70_dis2;
* wcmpr--worker comp;
wcmpr=-4;
if q13_31b in (-4, 0) then wcmpr=0;
else wcmpr=q13_31b;
* vetr--other veteran benefit;
vetr=-4;
if q70_vet=-4 then vetr=0;
else if q70a_vet in (-1 -2 -3) or q70_vet in (-1 -2 -3) then vetr=-3;
else if q70a_vet>=0 and q70_vet>=0 then vetr=q70a_vet * q70_vet;
* respondent UC;
ucr=-3;
if curyr=2020 then ucr=ucr119;
else if curyr=2021 then ucr=ucr120;
if ucr in (. -4) then ucr=0;
if ucr in (-1 -2) then ucr=-3;
***** Spouse/partner;
* wages--spouse wage;
wages=-4;
if paflaga=1 or q13_18=-4 then wages=0;
else wages=q13_18;
* farms--spouse income from farm or business;
farms=-4;
if paflaga=1 or q13_24=-4 then farms=0;
else farms=q13_24;
* pensp--spouse/partner income from retirement pension;
pensp=-4;
if RS_pen2 in (-4 0) then pensp=0;
else pensp=RS_pen2;
* anusp--spouse/partner income from retirement annuity;
anusp=-4;
if RS_anu2 in (-4 0) then anusp=0;
else anusp=RS_anu2;
* irasp--spouse/partner withdraw from IRA;
irasp=-4;
if RS_ira4 in (-4 0) then irasp=0;
else irasp=RS_ira4;
* sssp--spouse/partner income from social security;
sssp=-4;
if q70_ss_sp=-4 then sssp=0;
else if q70a_ss_sp in (-1 -2 -3) or q70_ss_sp in (-1 -2 -3) then sssp=-3;
else if q70a_ss_sp>=0 and q70_ss_sp>=0 then sssp=q70a_ss_sp * q70_ss_sp;
* dis1sp--spouse/partner veteran disability;
dis1sp=-4;
if q70_dis1_sp=-4 then dis1sp=0;
else if q70a_dis1_sp in (-1 -2 -3) or q70_dis1_sp in (-1 -2 -3) then dis1sp=-3;
else if q70a_dis1_sp>=0 and q70_dis1_sp>=0 then dis1sp=q70a_dis1_sp * q70_dis1_sp;
* dis2sp--spouse/partner other disability;
dis2sp=-4;
if q70_dis2_sp=-4 then dis2sp=0;
else if q70a_dis2_sp in (-1 -2 -3) or q70_dis2_sp in (-1 -2 -3) then dis2sp=-3;
else if q70a_dis2_sp>=0 and q70_dis2_sp>=0 then dis2sp=q70a_dis2_sp * q70_dis2_sp;
* wcmpsp--spouse/partner worker comp;
wcmpsp=-4;
if q13_31b_sp in (-4, 0) then wcmpsp=0;
else wcmpsp=q13_31b_sp;
* vetsp--spouse/partner other veteran benefit;
vetsp=-4;
if q70_vet_sp=-4 then vetsp=0;
else if q70a_vet_sp in (-1 -2 -3) or q70_vet_sp in (-1 -2 -3) then vetsp=-3;
else if q70a_vet_sp>=0 and q70_vet_sp>=0 then vetsp=q70a_vet_sp * q70_vet_sp;
* spouse UC;
ucs=-3;
if curyr=2020 then ucs=ucsp119;
else if curyr=2021 then ucs=ucsp120;
if paflaga=1 or ucs in (. -4) then ucs=0;
else if ucs in (-1 -2) then ucs=-3;
***** R and spouse/partner;
* afdc, food stamps, ssi and ssdi;
wel=-3;
if curyr=2020 then wel=wel119;
else if curyr=2021 then wel=wel120;
if wel in (-4 .) then wel=0;
*estates/trusts/inheritances;
trst=-4;
if q13_73a in (-4 0) then trst=0;
else trst=q13_73a;
*income from other sources;
othrs=-4; *s refers to sources;
if q13_75 in (-4 0) then othrs=0;
else othrs=q13_75;
*income from other family memeber in the house;
othrp=-4; *p refers to people;
if q13_81 in (-4 0) then othrp=0;
else othrp=q13_81;
***** total family income;
array comp (*) wager farmr penr anur irar ssr dis1r dis2r wcmpr vetr ucr
wages farms pensp anusp irasp sssp dis1sp dis2sp wcmpsp vetsp ucs
wel othrs othrp; *removed trst;
faminc=0;
do j=1 to dim(comp);
if comp(j) in (-1 -2 -3) then do; faminc=-3; j=dim(comp); end;
else if faminc>=0 & comp(j)>=0 then faminc=faminc + comp(j);
end;
***** Poverty level;
* Federal Poverty Guidelines;
* https://aspe.hhs.gov/2019-poverty-guidelines;
* https://aspe.hhs.gov/2020-poverty-guidelines;
table19 = 12490;*for 1 person in family for 48 states and DC for 2019;
tbl19_inc=4420;*for each additional person for 48 states and DC for 2019;
table20=12760;*for 1 person in family for 48 states and DC for 2020;
tbl20_inc=4480;*for each additional person for 48 states and DC for 2020;
if curyr=2020 then do;
if famsize > 0 then level= table19 + (tbl19_inc * (famsize-1));*interviewed in 2020 using 2019 guideline;
end;
else if curyr=2021 then do;
if famsize > 0 then level= table20 + (tbl20_inc * (famsize-1));*interviewed in 2021 using 2020 guideline;
end;
if (faminc > level) then cps_cur=0;
else if (faminc >= 0 & faminc <= level) then cps_cur=1;
else cps_cur=-3;
***** topcode;
faminc_t=faminc;
if faminc>365000 then faminc_t=803437;
Introduction
The Family Poverty Status variable is calculated using a combination of reported family income, the number of family members in the respondent's household, and the national Poverty Income Guidelines, which are updated yearly by the U.S. Department of Health and Human Services. The Poverty Income Guidelines are based on family size; the poverty guidelines set a base amount for smallest family size of one person and increases by a standard amount for each additional family member living in the household.
An NLSY79 respondent is determined to be in poverty if total net family income for the last calendar year is below the Poverty Income Guidelines given their family size.
Poverty Income Guideline Tables
The national Poverty Income Guidelines used in creating the family poverty status variable are shown below.
Questions about the use of the poverty guidelines in one of the outlying jurisdictions (Puerto Rico, the U.S. Virgin Islands, American Samoa, Guam, the Marshall Islands, the Federated States of Micronesia, the Commonwealth of the North Marianas, and Palau) by a Federal program serving any of those jurisdictions should be referred to the Federal office responsible for the individual program involved.
| Survey Year | Poverty Income Guidelines Year | First Person | Each Additional Person | Four-person Family |
|---|---|---|---|---|
| 1979 | 1978 | $3,140 | $1,020 | $6,200 |
| 1980 | 1979 | $3,400 | $1,100 | $6,700 |
| 1981 | 1980 | $3,790 | $1,220 | $7,450 |
| 1982 | 1981 | $4,310 | $1,380 | $8,450 |
| 1983 | 1982 | $4,680 | $1,540 | $9,300 |
| 1984 | 1983 | $4,860 | $1,680 | $9,900 |
| 1985 | 1984 | $4,980 | $1,740 | $10,200 |
| 1986 | 1985 | $5,250 | $1,800 | $10,650 |
| 1987 | 1986 | $5,360 | $1,880 | $11,000 |
| 1988 | 1987 | $5,500 | $1,900 | $11,200 |
| 1989 | 1988 | $5,770 | $1,960 | $11,650 |
| 1990 | 1989 | $5,980 | $2,040 | $12,100 |
| 1991 | 1990 | $6,280 | $2,140 | $12,700 |
| 1992 | 1991 | $6,620 | $2,260 | $13,400 |
| 1993 | 1992 | $6,810 | $2,380 | $13,950 |
| 1994 | 1993 | $6,970 | $2,460 | $14,350 |
| 1996 | 1995 | $7,470 | $2,560 | $15,150 |
| 1998 | 1997 | $7,890 | $2,720 | $16,050 |
| 2000 | 1999 | $8,240 | $2,820 | $16,700 |
| 2002 | 2001 | $8,590 | $3,020 | $17,650 |
| 2004 | 2003 | $8,980 | $3,140 | $18,400 |
| 2006 | 2005 | $9,570 | $3,260 | $19,350 |
| 2008 | 2007 | $10,210 | $3,480 | $20,650 |
| 2010 | 2009 | $10,830 | $3,740 | $22,050 |
| 2012 | 2011 | $10,890 | $3,820 | $22,350 |
| 2014 | 2013 | $11,670 | $4,060 | $23,850 |
| 2016 | 2015 (2016 interview date) | $11,770 | $4,160 | $24,250 |
| 2016 | 2016 (2017 interview date) | $11,880 | $4,140 | $24,300 |
| 2018 | 2017 (2018 interview date) | $12,060 | $4,180 | $24,600 |
| 2018 | 2018 (2019 interview date) | $12,140 | $4,320 | $25,100 |
| 2020 | 2019 (2020 interview date) | $12,490 | $4,420 | $25,750 |
| 2020 | 2020 (2021 interview date) | $12,760 | $4,480 | $26,200 |
Users interested in information on the variables created using the old poverty guideline standards should download the Family Poverty Status and Family Poverty Level Historical Variables (PDF).