Variable Creation: Total Net Family Income 1987-1994
Variable Creation: Total Net Family Income 1987-1994
- 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.)