# Variable Creation: Total Net Family Income 1987-1994

## Variable Creation: Total Net Family Income 1987-1994

### 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 */`
` `
`          TABLE(9,1,1)=5500;`
`          TABLE(9,2,1)=6860;`
`          TABLE(9,3,1)=6310;`
`          DO J=2 TO 15;`
`             TABLE(9,1,J)=TABLE(9,1,J-1)+1900;`
`             TABLE(9,2,J)=TABLE(9,2,J-1)+2380;`
`             TABLE(9,3,J)=TABLE(9,3,J-1)+2190;`
`          END;`
`          S(9)=1;`
`          IF STATE87=2 THEN S(9)=2;`
`          ELSE IF STATE87=15 THEN S(9)=3;`
`          IF R(23502.)=-4 THEN MIL(9)=0;`
`          ELSE MIL(9)=R(23502.);`
`          IF R(23503.)=-4 THEN WPS(9)=0;`
`          ELSE WPS(9)=R(23503.);`
`          IF R(23506.)=-4 THEN SEI(9)=0;`
`          ELSE SEI(9)=R(23506.);`
`          IF R(23520.)=-4 & R(23521.)=-4 THEN UI(9)=0;`
`          ELSE IF R(23520.)>0 & R(23521.)>0 THEN UI(9)=R(23520.) * R(23521.);`
`          ELSE IF R(23521.)<0 THEN UI(9)=R(23521.);`
`          ELSE UI(9)=-3;`
`          IF R(23524.)=-4 THEN MILS(9)=0;`
`          ELSE MILS(9)=R(23524.);`
`          IF R(23525.)=-4 THEN WPSS(9)=0;`
`          ELSE WPSS(9)=R(23525.);`
`          IF R(23528.)=-4 THEN SEIS(9)=0;`
`          ELSE SEIS(9)=R(23528.);`
`          IF R(23542.)=-4 & R(23543.)=-4 THEN UIS(9)=0;`
`          ELSE IF R(23542.)>0 & R(23543.)>0 THEN UIS(9)=R(23542.) * R(23543.);`
`          ELSE IF R(23543.)<0 THEN UIS(9)=R(23543.);`
`          ELSE UIS(9)=-3;`
`          IF R(23546.)=-4 THEN ALIM(9)=0;`
`          ELSE ALIM(9)=R(23546.);`
`          IF R(23551.)=-4 THEN CHSP(9)=0;`
`          ELSE CHSP(9)=R(23551.);`
`          IF R(23567.)=-4 THEN AFDC(9)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(23555.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23555.)>-4 & R(23555.)<0 THEN B=NA;`
`                IF R(23556.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23556.)>-4 & R(23556.)<0 THEN B=NA;`
`                IF R(23557.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23557.)>-4 & R(23557.)<0 THEN B=NA;`
`                IF R(23558.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23558.)>-4 & R(23558.)<0 THEN B=NA;`
`                IF R(23559.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23559.)>-4 & R(23559.)<0 THEN B=NA;`
`                IF R(23560.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23560.)>-4 & R(23560.)<0 THEN B=NA;`
`                IF R(23561.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23561.)>-4 & R(23561.)<0 THEN B=NA;`
`                IF R(23562.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23562.)>-4 & R(23562.)<0 THEN B=NA;`
`                IF R(23563.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23563.)>-4 & R(23563.)<0 THEN B=NA;`
`                IF R(23564.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23564.)>-4 & R(23564.)<0 THEN B=NA;`
`                IF R(23565.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23565.)>-4 & R(23565.)<0 THEN B=NA;`
`                IF R(23566.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23566.)>-4 & R(23566.)<0 THEN B=NA;`
`             IF R(23567.)<0 THEN AFDC(9)=R(23567.);`
`             ELSE IF B<=0 THEN AFDC(9)=-3;`
`             ELSE AFDC(9)=R(23567.) * B;`
`          END;`
`          IF R(23581.)=-4 THEN FOOD(9)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(23569.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23569.)>-4 & R(23569.)<0 THEN B=NA;`
`                IF R(23570.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23570.)>-4 & R(23570.)<0 THEN B=NA;`
`                IF R(23571.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23571.)>-4 & R(23571.)<0 THEN B=NA;`
`                IF R(23572.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23572.)>-4 & R(23572.)<0 THEN B=NA;`
`                IF R(23573.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23573.)>-4 & R(23573.)<0 THEN B=NA;`
`                IF R(23574.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23574.)>-4 & R(23574.)<0 THEN B=NA;`
`                IF R(23575.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23575.)>-4 & R(23575.)<0 THEN B=NA;`
`                IF R(23576.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23576.)>-4 & R(23576.)<0 THEN B=NA;`
`                IF R(23577.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23577.)>-4 & R(23577.)<0 THEN B=NA;`
`                IF R(23578.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23578.)>-4 & R(23578.)<0 THEN B=NA;`
`                IF R(23579.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23579.)>-4 & R(23579.)<0 THEN B=NA;`
`                IF R(23580.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23580.)>-4 & R(23580.)<0 THEN B=NA;`
`             IF R(23581.)<0 THEN FOOD(9)=R(23581.);`
`             ELSE IF B<=0 THEN FOOD(9)=-3;`
`             ELSE FOOD(9)=R(23581.) * B;`
`          END;`
`          IF R(23595.)=-4 THEN PUBLIC(9)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(23583.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23583.)>-4 & R(23583.)<0 THEN B=NA;`
`                IF R(23584.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23584.)>-4 & R(23584.)<0 THEN B=NA;`
`                IF R(23585.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23585.)>-4 & R(23585.)<0 THEN B=NA;`
`                IF R(23586.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23586.)>-4 & R(23586.)<0 THEN B=NA;`
`                IF R(23587.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23587.)>-4 & R(23587.)<0 THEN B=NA;`
`                IF R(23588.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23588.)>-4 & R(23588.)<0 THEN B=NA;`
`                IF R(23589.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23589.)>-4 & R(23589.)<0 THEN B=NA;`
`                IF R(23590.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23590.)>-4 & R(23590.)<0 THEN B=NA;`
`                IF R(23591.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23591.)>-4 & R(23591.)<0 THEN B=NA;`
`                IF R(23592.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23592.)>-4 & R(23592.)<0 THEN B=NA;`
`                IF R(23593.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23593.)>-4 & R(23593.)<0 THEN B=NA;`
`                IF R(23594.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(23594.)>-4 & R(23594.)<0 THEN B=NA;`
`             IF R(23595.)<0 THEN PUBLIC(9)=R(23595.);`
`             ELSE IF B<=0 THEN PUBLIC(9)=-3;`
`             ELSE PUBLIC(9)=R(23595.) * B;`
`          END;`
`          IF R(23600.)=-4 THEN ED(9)=0;`
`          ELSE ED(9)=R(23600.);`
`          IF R(23601.)=-4 THEN EDSS(9)=0;`
`          ELSE EDSS(9)=R(23601.);`
`          IF R(23603.)=-4 THEN VET(9)=0;`
`          ELSE VET(9)=R(23603.);`
`          IF R(23605.)=-4 THEN OTHER(9)=0;`
`          ELSE OTHER(9)=R(23605.);`
`          IF VET(9)>0 & OTHER(9)=VET(9) THEN OTHER(9)=0;`
`          IF R(23612.)=-4 THEN RELWEL(9)=0;`
`          ELSE RELWEL(9)=R(23612.);`
`          IF R(23614.)=-4 THEN RELREG(9)=0;`
`          ELSE RELREG(9)=R(23614.);`
`          FAMILY(9)=FAMSZ87; /* TO CREATE FAMILY SIZE (I.E. FAMSZ87)`
`                                SEARCH THRU THE HOUSEHOLD ENUMERATION`
`                                INCREMENT FAMILY SIZE, IF THE`
`                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.`
`                                DO NOT INCREASE FAMILY SIZE, IF THE CODE`
`                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR`
`                                (>=50 & <=54) */`
`         DCL COMPONENT(19) FIXED DEC(9);`
`         DO I=9;`
`            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;`
`            MN_CENSUS(I,1)=0; MN_CENSUS(I,2)=0; MN_CENSUS(I,3)=0;`
`            FAMINC(I)=0;`
`            FAMINC_CENSUS(I)=0;`
`            INCOME(I)=-3;`
`            INCOME_CENSUS(I)=-3;`
`            COMPONENT(1)=MIL(I);`
`            COMPONENT(2)=MILS(I);`
`            COMPONENT(3)=WPS(I);`
`            COMPONENT(4)=WPSS(I);`
`            COMPONENT(5)=SEI(I);`
`            COMPONENT(6)=SEIS(I);`
`            COMPONENT(7)=UI(I);`
`            COMPONENT(8)=UIS(I);`
`            COMPONENT(9)=ALIM(I);`
`            COMPONENT(10)=CHSP(I);`
`            COMPONENT(11)=AFDC(I);`
`            COMPONENT(12)=PUBLIC(I);`
`            COMPONENT(13)=ED(I);`
`            COMPONENT(14)=EDSS(I);`
`            COMPONENT(15)=VET(I);`
`            COMPONENT(16)=OTHER(I);`
`            COMPONENT(17)=RELWEL(I);`
`            COMPONENT(18)=RELREG(I);`
`            COMPONENT(19)=FOOD(I);`
`            IF WEIGHT(I)=0 THEN DO;`
`               INCOME(I)=-5;`
`               INCOME_CENSUS(I)=-5;`
`               CPS(I)=-5;`
`               LEVEL(I)=-5;`
`            END;`
`            ELSE DO;`
`                 DO K=1 TO 19;`
`                    IF COMPONENT(K)>-4 THEN DO;`
`                       IF COMPONENT(K)<0 THEN`
`                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;`
`                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);`
`                     END;`
`                 IF K<19 THEN DO;`
`                       IF COMPONENT(K)<0 THEN`
`                          MN_CENSUS(I,ABS(COMPONENT(K)))=`
`                             MN_CENSUS(I,ABS(COMPONENT(K)))+1;`
`                       ELSE FAMINC_CENSUS(I)=FAMINC_CENSUS(I)+COMPONENT(K);`
`                     END;`
`                  END;`
`               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);`
`               SUMN_CENSUS(I)=MN_CENSUS(I,1) + MN_CENSUS(I,2) +`
`                              MN_CENSUS(I,3);`
`               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);`
`               ELSE DO J=1 TO 3;`
`                   IF MN(I,J)>0 THEN INCOME(I)=-J;`
`               END;`
`               IF SUMN_CENSUS(I)=0 THEN INCOME_CENSUS(I)=FAMINC_CENSUS(I);`
`               ELSE DO J=1 TO 3;`
`                   IF MN_CENSUS(I,J)>0 THEN INCOME_CENSUS(I)=-J;`
`               END;`
`            IF FAMILY(I)>0 THEN DO;`
`                LEVEL(I)=TABLE(I,S(I),FAMILY(I));`
`                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;`
`                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;`
`                ELSE CPS(I)=-3;`
`            END;`
`          END;`
`        END;`
` `
`   DO I=1 TO 3;`
`      IF MN(9,I)>0 THEN MN(9,I)=1;`
`      IF MN_CENSUS(9,I)>0 THEN MN_CENSUS(9,I)=1;`
`   END;`
`   IF SUMN(9)>0 THEN SUMN(9)=1;`
`   IF SUMN_CENSUS(9)>0 THEN SUMN_CENSUS(9)=1;`
` `
` INCOME(9)=R(24447.);`
` INCOME_CENSUS(9)=R(24448.);`
` CPS(9)=R(24449.);`
` LEVEL(9)=R(24450.);`

### 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 */`
` `
`          TABLE(10,1,1)=5700;`
`          TABLE(10,2,1)=7210;`
`          TABLE(10,3,1)=6650;`
`          DO J=2 TO 15;`
`             TABLE(10,1,J)=TABLE(10,1,J-1)+1960;`
`             TABLE(10,2,J)=TABLE(10,2,J-1)+2450;`
`             TABLE(10,3,J)=TABLE(10,3,J-1)+2250;`
`          END;`
`          S(10)=1;`
`          IF STATE88=2 THEN S(10)=2;`
`          ELSE IF STATE88=15 THEN S(10)=3;`
`          IF R(27224.)=-4 THEN MIL(10)=0;`
`          ELSE MIL(10)=R(27224.);`
`          IF R(27225.)=-4 THEN WPS(10)=0;`
`          ELSE WPS(10)=R(27225.);`
`          IF R(27228.)=-4 THEN SEI(10)=0;`
`          ELSE SEI(10)=R(27228.);`
`          IF R(27242.)=-4 & R(27243.)=-4 THEN UI(10)=0;`
`          ELSE IF R(27242.)>0 & R(27243.)>0 THEN UI(10)=R(27242.) * R(27243.);`
`          ELSE IF R(27243.)<0 THEN UI(10)=R(27243.);`
`          ELSE UI(10)=-3;`
`          IF R(27246.)=-4 THEN MILS(10)=0;`
`          ELSE MILS(10)=R(27246.);`
`          IF R(27247.)=-4 THEN WPSS(10)=0;`
`          ELSE WPSS(10)=R(27247.);`
`          IF R(27250.)=-4 THEN SEIS(10)=0;`
`          ELSE SEIS(10)=R(27250.);`
`          IF R(27264.)=-4 & R(27265.)=-4 THEN UIS(10)=0;`
`          ELSE IF R(27264.)>0 & R(27265.)>0 THEN UIS(10)=R(27264.)*R(27265.);`
`          ELSE IF R(27265.)<0 THEN UIS(10)=R(27265.);`
`          ELSE UIS(10)=-3;`
`          IF R(27268.)=-4 THEN ALIM(10)=0;`
`          ELSE ALIM(10)=R(27268.);`
`          IF R(27273.)=-4 THEN CHSP(10)=0;`
`          ELSE CHSP(10)=R(27273.);`
`          IF R(27289.)=-4 THEN AFDC(10)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(27277.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27277.)>-4 & R(27277.)<0 THEN B=NA;`
`                IF R(27278.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27278.)>-4 & R(27278.)<0 THEN B=NA;`
`                IF R(27279.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27279.)>-4 & R(27279.)<0 THEN B=NA;`
`                IF R(27280.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27280.)>-4 & R(27280.)<0 THEN B=NA;`
`                IF R(27281.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27281.)>-4 & R(27281.)<0 THEN B=NA;`
`                IF R(27282.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27282.)>-4 & R(27282.)<0 THEN B=NA;`
`                IF R(27283.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27283.)>-4 & R(27283.)<0 THEN B=NA;`
`                IF R(27284.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27284.)>-4 & R(27284.)<0 THEN B=NA;`
`                IF R(27285.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27285.)>-4 & R(27285.)<0 THEN B=NA;`
`                IF R(27286.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27286.)>-4 & R(27286.)<0 THEN B=NA;`
`                IF R(27287.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27287.)>-4 & R(27287.)<0 THEN B=NA;`
`                IF R(27288.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27288.)>-4 & R(27288.)<0 THEN B=NA;`
`             IF R(27289.)<0 THEN AFDC(10)=R(27289.);`
`             ELSE IF B<=0 THEN AFDC(10)=-3;`
`             ELSE AFDC(10)=R(27289.) * B;`
`          END;`
`          IF R(27303.)=-4 THEN FOOD(10)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(27291.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27291.)>-4 & R(27291.)<0 THEN B=NA;`
`                IF R(27292.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27292.)>-4 & R(27292.)<0 THEN B=NA;`
`                IF R(27293.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27293.)>-4 & R(27293.)<0 THEN B=NA;`
`                IF R(27294.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27294.)>-4 & R(27294.)<0 THEN B=NA;`
`                IF R(27295.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27295.)>-4 & R(27295.)<0 THEN B=NA;`
`                IF R(27296.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27296.)>-4 & R(27296.)<0 THEN B=NA;`
`                IF R(27297.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27297.)>-4 & R(27297.)<0 THEN B=NA;`
`                IF R(27298.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27298.)>-4 & R(27298.)<0 THEN B=NA;`
`                IF R(27299.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27299.)>-4 & R(27299.)<0 THEN B=NA;`
`                IF R(27300.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27300.)>-4 & R(27300.)<0 THEN B=NA;`
`                IF R(27301.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27301.)>-4 & R(27301.)<0 THEN B=NA;`
`                IF R(27302.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27302.)>-4 & R(27302.)<0 THEN B=NA;`
`             IF R(27303.)<0 THEN FOOD(10)=R(27303.);`
`             ELSE IF B<=0 THEN FOOD(10)=-3;`
`             ELSE FOOD(10)=R(27303.) * B;`
`          END;`
`          IF R(27317.)=-4 THEN PUBLIC(10)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(27305.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27305.)>-4 & R(27305.)<0 THEN B=NA;`
`                IF R(27306.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27306.)>-4 & R(27306.)<0 THEN B=NA;`
`                IF R(27307.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27307.)>-4 & R(27307.)<0 THEN B=NA;`
`                IF R(27308.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27308.)>-4 & R(27308.)<0 THEN B=NA;`
`                IF R(27309.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27309.)>-4 & R(27309.)<0 THEN B=NA;`
`                IF R(27310.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27310.)>-4 & R(27310.)<0 THEN B=NA;`
`                IF R(27311.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27311.)>-4 & R(27311.)<0 THEN B=NA;`
`                IF R(27312.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27312.)>-4 & R(27312.)<0 THEN B=NA;`
`                IF R(27313.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27313.)>-4 & R(27313.)<0 THEN B=NA;`
`                IF R(27314.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27314.)>-4 & R(27314.)<0 THEN B=NA;`
`                IF R(27315.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27315.)>-4 & R(27315.)<0 THEN B=NA;`
`                IF R(27316.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(27316.)>-4 & R(27316.)<0 THEN B=NA;`
`             IF R(27317.)<0 THEN PUBLIC(10)=R(27317.);`
`             ELSE IF B<=0 THEN PUBLIC(10)=-3;`
`             ELSE PUBLIC(10)=R(27317.) * B;`
`          END;`
`          IF R(27322.)=-4 THEN ED(10)=0;`
`          ELSE ED(10)=R(27322.);`
`          IF R(27323.)=-4 THEN EDSS(10)=0;`
`          ELSE EDSS(10)=R(27323.);`
`          IF R(27325.)=-4 THEN VET(10)=0;`
`          ELSE VET(10)=R(27325.);`
`          IF R(27332.)=-4 THEN OTHER(10)=0;`
`          ELSE OTHER(10)=R(27332.);`
`          IF VET(10)>0 & OTHER(10)=VET(10) THEN OTHER(10)=0;`
`          IF R(27339.)=-4 THEN RELWEL(10)=0;`
`          ELSE RELWEL(10)=R(27339.);`
`          IF R(27341.)=-4 THEN RELREG(10)=0;`
`          ELSE RELREG(10)=R(27341.);`
`          FAMILY(10)=FAMSZ88; /* TO CREATE FAMILY SIZE (I.E. FAMSZ88)`
`                                SEARCH THRU THE HOUSEHOLD ENUMERATION`
`                                INCREMENT FAMILY SIZE, IF THE`
`                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.`
`                                DO NOT INCREASE FAMILY SIZE, IF THE CODE`
`                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR`
`                                (>=50 & <=54) */`
`         DCL COMPONENT(19) FIXED DEC(9);`
`         DO I=10;`
`            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;`
`            FAMINC(I)=0;`
`            INCOME(I)=-3;`
`            COMPONENT(1)=MIL(I);`
`            COMPONENT(2)=MILS(I);`
`            COMPONENT(3)=WPS(I);`
`            COMPONENT(4)=WPSS(I);`
`            COMPONENT(5)=SEI(I);`
`            COMPONENT(6)=SEIS(I);`
`            COMPONENT(7)=UI(I);`
`            COMPONENT(8)=UIS(I);`
`            COMPONENT(9)=ALIM(I);`
`            COMPONENT(10)=CHSP(I);`
`            COMPONENT(11)=AFDC(I);`
`            COMPONENT(12)=PUBLIC(I);`
`            COMPONENT(13)=ED(I);`
`            COMPONENT(14)=EDSS(I);`
`            COMPONENT(15)=VET(I);`
`            COMPONENT(16)=OTHER(I);`
`            COMPONENT(17)=RELWEL(I);`
`            COMPONENT(18)=RELREG(I);`
`            COMPONENT(19)=FOOD(I);`
`            IF WEIGHT(I)=0 THEN DO;`
`               INCOME(I)=-5;`
`               CPS(I)=-5;`
`               LEVEL(I)=-5;`
`            END;`
`            ELSE DO;`
`                 DO K=1 TO 19;`
`                    IF COMPONENT(K)>-4 THEN DO;`
`                       IF COMPONENT(K)<0 THEN`
`                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;`
`                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);`
`                     END;`
`                  END;`
`               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);`
`               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);`
`               ELSE DO J=1 TO 3;`
`                   IF MN(I,J)>0 THEN INCOME(I)=-J;`
`               END;`
`            IF FAMILY(I)>0 THEN DO;`
`                LEVEL(I)=TABLE(I,S(I),FAMILY(I));`
`                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;`
`                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;`
`                ELSE CPS(I)=-3;`
`            END;`
`          END;`
`        END;`
`   DO I=1 TO 3;`
`      IF MN(10,I)>0 THEN MN(10,I)=1;`
`   END;`
`   IF SUMN(10)>0 THEN SUMN(10)=1;`
` `
`INCOME(10)=R(28702.);`
`CPS(10)=R(28704.);`
`LEVEL(10)=R(28705.);`

### 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 */`
` `
`          TABLE(11,1,1)=5980;`
`          TABLE(11,2,1)=7480;`
`          TABLE(11,3,1)=6870;`
`          DO J=2 TO 15;`
`             TABLE(11,1,J)=TABLE(11,1,J-1)+2040;`
`             TABLE(11,2,J)=TABLE(11,2,J-1)+2550;`
`             TABLE(11,3,J)=TABLE(11,3,J-1)+2350;`
`          END;`
`          S(11)=1;`
`          IF R(29922.)=2 THEN S(11)=2;`
`          ELSE IF R(29922.)=15 THEN S(11)=3;`
`          IF R(29713.)=-4 THEN MIL(11)=0;`
`          ELSE MIL(11)=R(29713.);`
`          IF R(29714.)=-4 THEN WPS(11)=0;`
`          ELSE WPS(11)=R(29714.);`
`          IF R(29717.)=-4 THEN SEI(11)=0;`
`          ELSE SEI(11)=R(29717.);`
`          IF R(29731.)=-4 & R(29732.)=-4 THEN UI(11)=0;`
`          ELSE IF R(29731.)>0 & R(29732.)>0 THEN UI(11)=R(29731.) * R(29732.);`
`          ELSE IF R(29732.)<0 THEN UI(11)=R(29732.);`
`          ELSE UI(11)=-3;`
`          IF R(29735.)=-4 THEN MILS(11)=0;`
`          ELSE MILS(11)=R(29735.);`
`          IF R(29736.)=-4 THEN WPSS(11)=0;`
`          ELSE WPSS(11)=R(29736.);`
`          IF R(29739.)=-4 THEN SEIS(11)=0;`
`          ELSE SEIS(11)=R(29739.);`
`          IF R(29753.)=-4 & R(29754.)=-4 THEN UIS(11)=0;`
`          ELSE IF R(29753.)>0 & R(29754.)>0 THEN UIS(11)=R(29753.) * R(29754.);`
`          ELSE IF R(29754.)<0 THEN UIS(11)=R(29754.);`
`          ELSE UIS(11)=-3;`
`          IF R(29757.)=-4 THEN ALIM(11)=0;`
`          ELSE ALIM(11)=R(29757.);`
`          IF R(29759.)=-4 THEN CHSP(11)=0;`
`          ELSE CHSP(11)=R(29759.);`
`          IF R(29773.)=-4 THEN AFDC(11)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(29761.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29761.)>-4 & R(29761.)<0 THEN B=NA;`
`                IF R(29762.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29762.)>-4 & R(29762.)<0 THEN B=NA;`
`                IF R(29763.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29763.)>-4 & R(29763.)<0 THEN B=NA;`
`                IF R(29764.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29764.)>-4 & R(29764.)<0 THEN B=NA;`
`                IF R(29765.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29765.)>-4 & R(29765.)<0 THEN B=NA;`
`                IF R(29766.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29766.)>-4 & R(29766.)<0 THEN B=NA;`
`                IF R(29767.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29767.)>-4 & R(29767.)<0 THEN B=NA;`
`                IF R(29768.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29768.)>-4 & R(29768.)<0 THEN B=NA;`
`                IF R(29769.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29769.)>-4 & R(29769.)<0 THEN B=NA;`
`                IF R(29770.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29770.)>-4 & R(29770.)<0 THEN B=NA;`
`                IF R(29771.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29771.)>-4 & R(29771.)<0 THEN B=NA;`
`                IF R(29772.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29772.)>-4 & R(29772.)<0 THEN B=NA;`
`             IF R(29773.)<0 THEN AFDC(11)=R(29773.);`
`             ELSE IF B<=0 THEN AFDC(11)=-3;`
`             ELSE AFDC(11)=R(29773.) * B;`
`          END;`
`          IF R(29787.)=-4 THEN FOOD(11)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(29775.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29775.)>-4 & R(29775.)<0 THEN B=NA;`
`                IF R(29776.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29776.)>-4 & R(29776.)<0 THEN B=NA;`
`                IF R(29777.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29777.)>-4 & R(29777.)<0 THEN B=NA;`
`                IF R(29778.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29778.)>-4 & R(29778.)<0 THEN B=NA;`
`                IF R(29779.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29779.)>-4 & R(29779.)<0 THEN B=NA;`
`                IF R(29780.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29780.)>-4 & R(29780.)<0 THEN B=NA;`
`                IF R(29781.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29781.)>-4 & R(29781.)<0 THEN B=NA;`
`                IF R(29782.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29782.)>-4 & R(29782.)<0 THEN B=NA;`
`                IF R(29783.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29783.)>-4 & R(29783.)<0 THEN B=NA;`
`                IF R(29784.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29784.)>-4 & R(29784.)<0 THEN B=NA;`
`                IF R(29785.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29785.)>-4 & R(29785.)<0 THEN B=NA;`
`                IF R(29786.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29786.)>-4 & R(29786.)<0 THEN B=NA;`
`             IF R(29787.)<0 THEN FOOD(11)=R(29787.);`
`             ELSE IF B<=0 THEN FOOD(11)=-3;`
`             ELSE FOOD(11)=R(29787.) * B;`
`          END;`
`          IF R(29801.)=-4 THEN PUBLIC(11)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(29789.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29789.)>-4 & R(29789.)<0 THEN B=NA;`
`                IF R(29790.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29790.)>-4 & R(29790.)<0 THEN B=NA;`
`                IF R(29791.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29791.)>-4 & R(29791.)<0 THEN B=NA;`
`                IF R(29792.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29792.)>-4 & R(29792.)<0 THEN B=NA;`
`                IF R(29793.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29793.)>-4 & R(29793.)<0 THEN B=NA;`
`                IF R(29794.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29794.)>-4 & R(29794.)<0 THEN B=NA;`
`                IF R(29795.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29795.)>-4 & R(29795.)<0 THEN B=NA;`
`                IF R(29796.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29796.)>-4 & R(29796.)<0 THEN B=NA;`
`                IF R(29797.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29797.)>-4 & R(29797.)<0 THEN B=NA;`
`                IF R(29798.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29798.)>-4 & R(29798.)<0 THEN B=NA;`
`                IF R(29799.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29799.)>-4 & R(29799.)<0 THEN B=NA;`
`                IF R(29800.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(29800.)>-4 & R(29800.)<0 THEN B=NA;`
`             IF R(29801.)<0 THEN PUBLIC(11)=R(29801.);`
`             ELSE IF B<=0 THEN PUBLIC(11)=-3;`
`             ELSE PUBLIC(11)=R(29801.) * B;`
`          END;`
`          IF R(29806.)=-4 THEN ED(11)=0;`
`          ELSE ED(11)=R(29806.);`
`          IF R(29807.)=-4 THEN EDSS(11)=0;`
`          ELSE EDSS(11)=R(29807.);`
`          IF R(29809.)=-4 THEN VET(11)=0;`
`          ELSE VET(11)=R(29809.);`
`          IF R(29813.)=-4 THEN OTHER(11)=0;`
`          ELSE OTHER(11)=R(29813.);`
`          IF VET(11)>0 & OTHER(11)=VET(11) THEN OTHER(11)=0;`
`          IF R(29820.)=-4 THEN RELWEL(11)=0;`
`          ELSE RELWEL(11)=R(29820.);`
`          IF R(29822.)=-4 THEN RELREG(11)=0;`
`          ELSE RELREG(11)=R(29822.);`
`          FAMILY(11)=FAMSZ89; /* TO CREATE FAMILY SIZE (I.E. FAMSZ89)`
`                                SEARCH THRU THE HOUSEHOLD ENUMERATION`
`                                INCREMENT FAMILY SIZE, IF THE`
`                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.`
`                                DO NOT INCREASE FAMILY SIZE, IF THE CODE`
`                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR`
`                                (>=50 & <=54) */`
`         DCL COMPONENT(19) FIXED DEC(9);`
`         DO I=11;`
`            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;`
`            FAMINC(I)=0;`
`            INCOME(I)=-3;`
`            COMPONENT(1)=MIL(I);`
`            COMPONENT(2)=MILS(I);`
`            COMPONENT(3)=WPS(I);`
`            COMPONENT(4)=WPSS(I);`
`            COMPONENT(5)=SEI(I);`
`            COMPONENT(6)=SEIS(I);`
`            COMPONENT(7)=UI(I);`
`            COMPONENT(8)=UIS(I);`
`            COMPONENT(9)=ALIM(I);`
`            COMPONENT(10)=CHSP(I);`
`            COMPONENT(11)=AFDC(I);`
`            COMPONENT(12)=PUBLIC(I);`
`            COMPONENT(13)=ED(I);`
`            COMPONENT(14)=EDSS(I);`
`            COMPONENT(15)=VET(I);`
`            COMPONENT(16)=OTHER(I);`
`            COMPONENT(17)=RELWEL(I);`
`            COMPONENT(18)=RELREG(I);`
`            COMPONENT(19)=FOOD(I);`
`            IF WEIGHT(I)=0 THEN DO;`
`               INCOME(I)=-5;`
`               CPS(I)=-5;`
`               LEVEL(I)=-5;`
`            END;`
`            ELSE DO;`
`                 DO K=1 TO 19;`
`                    IF COMPONENT(K)>-4 THEN DO;`
`                       IF COMPONENT(K)<0 THEN`
`                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;`
`                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);`
`                     END;`
`                  END;`
`               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);`
`               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);`
`               ELSE DO J=1 TO 3;`
`                   IF MN(I,J)>0 THEN INCOME(I)=-J;`
`               END;`
`            IF FAMILY(I)>0 THEN DO;`
`                LEVEL(I)=TABLE(I,S(I),FAMILY(I));`
`                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;`
`                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;`
`                ELSE CPS(I)=-3;`
`            END;`
`          END;`
`        END;`
`   DO I=1 TO 3;`
`      IF MN(11,I)>0 THEN MN(11,I)=1;`
`   END;`
`   IF SUMN(11)>0 THEN SUMN(11)=1;`
` `
` INCOME(11)=R(30740);`
` CPS(11)=R(30741);`
` LEVEL(11)=R(30742);`

### 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;`
`          TABLE(12,1,1)=6280;`
`          TABLE(12,2,1)=7840;`
`          TABLE(12,3,1)=7230;`
`          DO J=2 TO 15;`
`             TABLE(12,1,J)=TABLE(12,1,J-1)+2140;`
`             TABLE(12,2,J)=TABLE(12,2,J-1)+2680;`
`             TABLE(12,3,J)=TABLE(12,3,J-1)+2460;`
`          END;`
`          S(12)=1;`
`          IF STATE90=2 THEN S(12)=2;`
`          ELSE IF STATE90=15 THEN S(12)=3;`
`          IF R(32793.)=-4 THEN MIL(12)=0;`
`          ELSE MIL(12)=R(32793.);`
`          IF R(32794.)=-4 THEN WPS(12)=0;`
`          ELSE WPS(12)=R(32794.);`
`          IF R(32797.)=-4 THEN SEI(12)=0;`
`          ELSE SEI(12)=R(32797.);`
`          IF R(32811.)=-4 & R(32812.)=-4 THEN UI(12)=0;`
`          ELSE IF R(32811.)>0 & R(32812.)>0 THEN UI(12)=R(32811.) * R(32812.);`
`          ELSE IF R(32812.)<0 THEN UI(12)=R(32812.);`
`          ELSE UI(12)=-3;`
`          IF R(32815.)=-4 THEN MILS(12)=0;`
`          ELSE MILS(12)=R(32815.);`
`          IF R(32816.)=-4 THEN WPSS(12)=0;`
`          ELSE WPSS(12)=R(32816.);`
`          IF R(32819.)=-4 THEN SEIS(12)=0;`
`          ELSE SEIS(12)=R(32819.);`
`          IF R(32833.)=-4 & R(32834.)=-4 THEN UIS(12)=0;`
`          ELSE IF R(32833.)>0 & R(32834.)>0 THEN UIS(12)=R(32833.) * R(32834.);`
`          ELSE IF R(32834.)<0 THEN UIS(12)=R(32834.);`
`          ELSE UIS(12)=-3;`
`          IF R(32837.)=-4 THEN ALIM(12)=0;`
`          ELSE ALIM(12)=R(32837.);`
`          IF R(32839.)=-4 THEN CHSP(12)=0;`
`          ELSE CHSP(12)=R(32839.);`
`          IF R(32853.)=-4 THEN AFDC(12)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(32841.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32841.)>-4 & R(32841.)<0 THEN B=NA;`
`                IF R(32842.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32842.)>-4 & R(32842.)<0 THEN B=NA;`
`                IF R(32843.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32843.)>-4 & R(32843.)<0 THEN B=NA;`
`                IF R(32844.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32844.)>-4 & R(32844.)<0 THEN B=NA;`
`                IF R(32845.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32845.)>-4 & R(32845.)<0 THEN B=NA;`
`                IF R(32846.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32846.)>-4 & R(32846.)<0 THEN B=NA;`
`                IF R(32847.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32847.)>-4 & R(32847.)<0 THEN B=NA;`
`                IF R(32848.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32848.)>-4 & R(32848.)<0 THEN B=NA;`
`                IF R(32849.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32849.)>-4 & R(32849.)<0 THEN B=NA;`
`                IF R(32850.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32850.)>-4 & R(32850.)<0 THEN B=NA;`
`                IF R(32851.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32851.)>-4 & R(32851.)<0 THEN B=NA;`
`                IF R(32852.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32852.)>-4 & R(32852.)<0 THEN B=NA;`
`             IF R(32853.)<0 THEN AFDC(12)=R(32853.);`
`             ELSE IF B<=0 THEN AFDC(12)=-3;`
`             ELSE AFDC(12)=R(32853.) * B;`
`          END;`
`          IF R(32867.)=-4 THEN FOOD(12)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(32855.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32855.)>-4 & R(32855.)<0 THEN B=NA;`
`                IF R(32856.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32856.)>-4 & R(32856.)<0 THEN B=NA;`
`                IF R(32857.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32857.)>-4 & R(32857.)<0 THEN B=NA;`
`                IF R(32858.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32858.)>-4 & R(32858.)<0 THEN B=NA;`
`                IF R(32859.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32859.)>-4 & R(32859.)<0 THEN B=NA;`
`                IF R(32860.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32860.)>-4 & R(32860.)<0 THEN B=NA;`
`                IF R(32861.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32861.)>-4 & R(32861.)<0 THEN B=NA;`
`                IF R(32862.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32862.)>-4 & R(32862.)<0 THEN B=NA;`
`                IF R(32863.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32863.)>-4 & R(32863.)<0 THEN B=NA;`
`                IF R(32864.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32864.)>-4 & R(32864.)<0 THEN B=NA;`
`                IF R(32865.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32865.)>-4 & R(32865.)<0 THEN B=NA;`
`                IF R(32866.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32866.)>-4 & R(32866.)<0 THEN B=NA;`
`             IF R(32867.)<0 THEN FOOD(12)=R(32867.);`
`             ELSE IF B<=0 THEN FOOD(12)=-3;`
`             ELSE FOOD(12)=R(32867.) * B;`
`          END;`
`          IF R(32893.)=-4 THEN PUBLIC(12)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(32881.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32881.)>-4 & R(32881.)<0 THEN B=NA;`
`                IF R(32882.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32882.)>-4 & R(32882.)<0 THEN B=NA;`
`                IF R(32883.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32883.)>-4 & R(32883.)<0 THEN B=NA;`
`                IF R(32884.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32884.)>-4 & R(32884.)<0 THEN B=NA;`
`                IF R(32885.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32885.)>-4 & R(32885.)<0 THEN B=NA;`
`                IF R(32886.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32886.)>-4 & R(32886.)<0 THEN B=NA;`
`                IF R(32887.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32887.)>-4 & R(32887.)<0 THEN B=NA;`
`                IF R(32888.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32888.)>-4 & R(32888.)<0 THEN B=NA;`
`                IF R(32889.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32889.)>-4 & R(32889.)<0 THEN B=NA;`
`                IF R(32890.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32890.)>-4 & R(32890.)<0 THEN B=NA;`
`                IF R(32891.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32891.)>-4 & R(32891.)<0 THEN B=NA;`
`                IF R(32892.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(32892.)>-4 & R(32892.)<0 THEN B=NA;`
`             IF R(32893.)<0 THEN PUBLIC(12)=R(32893.);`
`             ELSE IF B<=0 THEN PUBLIC(12)=-3;`
`             ELSE PUBLIC(12)=R(32893.) * B;`
`          END;`
`          IF R(32900.)=-4 THEN ED(12)=0;`
`          ELSE ED(12)=R(32900.);`
`          IF R(32901.)=-4 THEN EDSS(12)=0;`
`          ELSE EDSS(12)=R(32901.);`
`          IF R(32902.)=-4 THEN VET(12)=0;`
`          ELSE VET(12)=R(32902.);`
`          IF R(32906.)=-4 THEN OTHER(12)=0;`
`          ELSE OTHER(12)=R(32906.);`
`          IF VET(12)>0 & OTHER(12)=VET(12) THEN OTHER(12)=0;`
`          IF R(32916.)=-4 THEN RELWEL(12)=0;`
`          ELSE RELWEL(12)=R(32916.);`
`          IF R(32918.)=-4 THEN RELREG(12)=0;`
`          ELSE RELREG(12)=R(32918.);`
` `
`      /*  HAND EDITS FOR FAMSZ90 */`
` `
`          IF ID=2033 THEN FAMSZ90=1;`
`          IF ID=3617 THEN FAMSZ90=1;`
` `
`          FAMILY(12)=FAMSZ90; /* TO CREATE FAMILY SIZE (I.E. FAMSZ90)`
`                                SEARCH THRU THE HOUSEHOLD ENUMERATION`
`                                INCREMENT FAMILY SIZE, IF THE `
`                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.`
`                                DO NOT INCREASE FAMILY SIZE, IF THE CODE`
`                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR`
`                                (>=50 & <=54) */`
`         DCL COMPONENT(19) FIXED DEC(9);`
`         DO I=12;`
`            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0; `
`            FAMINC(I)=0;`
`            INCOME(I)=-3;`
`            COMPONENT(1)=MIL(I);   `
`            COMPONENT(2)=MILS(I);   `
`            COMPONENT(3)=WPS(I);    `
`            COMPONENT(4)=WPSS(I);   `
`            COMPONENT(5)=SEI(I);`
`            COMPONENT(6)=SEIS(I);   `
`            COMPONENT(7)=UI(I);     `
`            COMPONENT(8)=UIS(I);    `
`            COMPONENT(9)=ALIM(I);   `
`            COMPONENT(10)=CHSP(I);  `
`            COMPONENT(11)=AFDC(I);  `
`            COMPONENT(12)=PUBLIC(I);`
`            COMPONENT(13)=ED(I);    `
`            COMPONENT(14)=EDSS(I);  `
`            COMPONENT(15)=VET(I);   `
`            COMPONENT(16)=OTHER(I);`
`            COMPONENT(17)=RELWEL(I);`
`            COMPONENT(18)=RELREG(I);`
`            COMPONENT(19)=FOOD(I);  `
`            IF WEIGHT(I)=0 THEN DO;`
`               INCOME(I)=-5;`
`               CPS(I)=-5;`
`               LEVEL(I)=-5;`
`            END;`
`            ELSE DO;`
`                 DO K=1 TO 19;`
`                    IF COMPONENT(K)>-4 THEN DO;`
`                       IF COMPONENT(K)<0 THEN `
`                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;`
`                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);`
`                     END;`
`                  END;   `
`               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);`
`               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);`
`               ELSE DO J=1 TO 3;`
`                   IF MN(I,J)>0 THEN INCOME(I)=-J;`
`               END;`
`            IF FAMILY(I)>0 THEN DO;`
`                LEVEL(I)=TABLE(I,S(I),FAMILY(I));`
`                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;`
`                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;`
`                ELSE CPS(I)=-3;`
`            END;`
`          END; `
`        END;`
`   DO I=1 TO 3;`
`      IF MN(12,I)>0 THEN MN(12,I)=1;`
`   END;`
`   IF SUMN(12)>0 THEN SUMN(12)=1;`
` `
`INCOME(12)=R(34007.)`
`   CPS(12)=R(34008.)`
`   LEVEL(12)=R(34009.)`

### 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;`
`          TABLE(13,1,1)=6620;`
`          TABLE(13,2,1)=8290;`
`          TABLE(13,3,1)=7610;`
`          DO J=2 TO 15;`
`             TABLE(13,1,J)=TABLE(13,1,J-1)+2260;`
`             TABLE(13,2,J)=TABLE(13,2,J-1)+2820;`
`             TABLE(13,3,J)=TABLE(13,3,J-1)+2600;`
`          END;`
`          S(13)=1;`
`          IF STATE91=2 THEN S(13)=2;`
`          ELSE IF STATE91=15 THEN S(13)=3;`
`          IF R(35589.)=-4 THEN MIL(13)=0;`
`          ELSE MIL(13)=R(35589.);`
`          IF R(35590.)=-4 THEN WPS(13)=0;`
`          ELSE WPS(13)=R(35590.);`
`          IF R(35593.)=-4 THEN SEI(13)=0;`
`          ELSE SEI(13)=R(35593.);`
`          IF R(35607.)=-4 & R(35608.)=-4 THEN UI(13)=0;`
`          ELSE IF R(35607.)>0 & R(35608.)>0 THEN UI(13)=R(35607.) * R(35608.);`
`          ELSE IF R(35608.)<0 THEN UI(13)=R(35608.);`
`          ELSE UI(13)=-3;`
`          IF R(35611.)=-4 THEN MILS(13)=0;`
`          ELSE MILS(13)=R(35611.);`
`          IF R(35612.)=-4 THEN WPSS(13)=0;`
`          ELSE WPSS(13)=R(35612.);`
`          IF R(35615.)=-4 THEN SEIS(13)=0;`
`          ELSE SEIS(13)=R(35615.);`
`          IF R(35629.)=-4 & R(35630.)=-4 THEN UIS(13)=0;`
`          ELSE IF R(35629.)>0 & R(35630.)>0 THEN UIS(13)=R(35629.) * R(35630.);`
`          ELSE IF R(35630.)<0 THEN UIS(13)=R(35630.);`
`          ELSE UIS(13)=-3;`
`          IF R(35633.)=-4 THEN ALIM(13)=0;`
`          ELSE ALIM(13)=R(35633.);`
`          IF R(35635.)=-4 THEN CHSP(13)=0;`
`          ELSE CHSP(13)=R(35635.);`
`          IF R(35649.)=-4 THEN AFDC(13)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(35637.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35637.)>-4 & R(35637.)<0 THEN B=NA;`
`                IF R(35638.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35638.)>-4 & R(35638.)<0 THEN B=NA;`
`                IF R(35639.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35639.)>-4 & R(35639.)<0 THEN B=NA;`
`                IF R(35640.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35640.)>-4 & R(35640.)<0 THEN B=NA;`
`                IF R(35641.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35641.)>-4 & R(35641.)<0 THEN B=NA;`
`                IF R(35642.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35642.)>-4 & R(35642.)<0 THEN B=NA;`
`                IF R(35643.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35643.)>-4 & R(35643.)<0 THEN B=NA;`
`                IF R(35644.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35644.)>-4 & R(35644.)<0 THEN B=NA;`
`                IF R(35645.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35645.)>-4 & R(35645.)<0 THEN B=NA;`
`                IF R(35646.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35646.)>-4 & R(35646.)<0 THEN B=NA;`
`                IF R(35647.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35647.)>-4 & R(35647.)<0 THEN B=NA;`
`                IF R(35648.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35648.)>-4 & R(35648.)<0 THEN B=NA;`
`             IF R(35649.)<0 THEN AFDC(13)=R(35649.);`
`             ELSE IF B<=0 THEN AFDC(13)=-3;`
`             ELSE AFDC(13)=R(35649.) * B;`
`          END;`
`          IF R(35663.)=-4 THEN FOOD(13)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(35651.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35651.)>-4 & R(35651.)<0 THEN B=NA;`
`                IF R(35652.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35652.)>-4 & R(35652.)<0 THEN B=NA;`
`                IF R(35653.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35653.)>-4 & R(35653.)<0 THEN B=NA;`
`                IF R(35654.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35654.)>-4 & R(35654.)<0 THEN B=NA;`
`                IF R(35655.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35655.)>-4 & R(35655.)<0 THEN B=NA;`
`                IF R(35656.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35656.)>-4 & R(35656.)<0 THEN B=NA;`
`                IF R(35657.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35657.)>-4 & R(35657.)<0 THEN B=NA;`
`                IF R(35658.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35658.)>-4 & R(35658.)<0 THEN B=NA;`
`                IF R(35659.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35659.)>-4 & R(35659.)<0 THEN B=NA;`
`                IF R(35660.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35660.)>-4 & R(35660.)<0 THEN B=NA;`
`                IF R(35661.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35661.)>-4 & R(35661.)<0 THEN B=NA;`
`                IF R(35662.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35662.)>-4 & R(35662.)<0 THEN B=NA;`
`             IF R(35663.)<0 THEN FOOD(13)=R(35663.);`
`             ELSE IF B<=0 THEN FOOD(13)=-3;`
`             ELSE FOOD(13)=R(35663.) * B;`
`          END;`
`          IF R(35689.)=-4 THEN PUBLIC(13)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(35677.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35677.)>-4 & R(35677.)<0 THEN B=NA;`
`                IF R(35678.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35678.)>-4 & R(35678.)<0 THEN B=NA;`
`                IF R(35679.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35679.)>-4 & R(35679.)<0 THEN B=NA;`
`                IF R(35680.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35680.)>-4 & R(35680.)<0 THEN B=NA;`
`                IF R(35681.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35681.)>-4 & R(35681.)<0 THEN B=NA;`
`                IF R(35682.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35682.)>-4 & R(35682.)<0 THEN B=NA;`
`                IF R(35683.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35683.)>-4 & R(35683.)<0 THEN B=NA;`
`                IF R(35684.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35684.)>-4 & R(35684.)<0 THEN B=NA;`
`                IF R(35685.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35685.)>-4 & R(35685.)<0 THEN B=NA;`
`                IF R(35686.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35686.)>-4 & R(35686.)<0 THEN B=NA;`
`                IF R(35687.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35687.)>-4 & R(35687.)<0 THEN B=NA;`
`                IF R(35688.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(35688.)>-4 & R(35688.)<0 THEN B=NA;`
`             IF R(35689.)<0 THEN PUBLIC(13)=R(35689.);`
`             ELSE IF B<=0 THEN PUBLIC(13)=-3;`
`             ELSE PUBLIC(13)=R(35689.) * B;`
`          END;`
`          IF R(35695.)=-4 THEN ED(13)=0;`
`          ELSE ED(13)=R(35695.);`
`          IF R(35696.)=-4 THEN EDSS(13)=0;`
`          ELSE EDSS(13)=R(35696.);`
`          IF R(35698.)=-4 THEN VET(13)=0;`
`          ELSE VET(13)=R(35698.);`
`          IF R(35702.)=-4 THEN OTHER(13)=0;`
`          ELSE OTHER(13)=R(35702.);`
`          IF VET(13)>0 & OTHER(13)=VET(13) THEN OTHER(13)=0;`
`          IF R(35712.)=-4 THEN RELWEL(13)=0;`
`          ELSE RELWEL(13)=R(35712.);`
`          IF R(35714.)=-4 THEN RELREG(13)=0;`
`          ELSE RELREG(13)=R(35714.);`
`          FAMILY(13)=FAMSZ91; /* TO CREATE FAMILY SIZE (I.E. FAMSZ91)`
`                                SEARCH THRU THE HOUSEHOLD ENUMERATION`
`                                INCREMENT FAMILY SIZE, IF THE `
`                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.`
`                                DO NOT INCREASE FAMILY SIZE, IF THE CODE`
`                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR`
`                                (>=50 & <=54) */`
`         DCL COMPONENT(19) FIXED DEC(9);`
`         DO I=13;`
`            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0; `
`            FAMINC(I)=0;`
`            INCOME(I)=-3;`
`            COMPONENT(1)=MIL(I);   `
`            COMPONENT(2)=MILS(I);   `
`            COMPONENT(3)=WPS(I);    `
`            COMPONENT(4)=WPSS(I);   `
`            COMPONENT(5)=SEI(I);`
`            COMPONENT(6)=SEIS(I);   `
`            COMPONENT(7)=UI(I);     `
`            COMPONENT(8)=UIS(I);    `
`            COMPONENT(9)=ALIM(I);   `
`            COMPONENT(10)=CHSP(I);  `
`            COMPONENT(11)=AFDC(I);  `
`            COMPONENT(13)=PUBLIC(I);`
`            COMPONENT(13)=ED(I);    `
`            COMPONENT(14)=EDSS(I);  `
`            COMPONENT(15)=VET(I);   `
`            COMPONENT(16)=OTHER(I); `
`            COMPONENT(17)=RELWEL(I);`
`            COMPONENT(18)=RELREG(I);`
`            COMPONENT(19)=FOOD(I);  `
`            IF WEIGHT(I)=0 THEN DO;`
`               INCOME(I)=-5;`
`               CPS(I)=-5;`
`               LEVEL(I)=-5;`
`            END;`
`            ELSE DO;`
`                 DO K=1 TO 19;`
`                    IF COMPONENT(K)>-4 THEN DO;`
`                       IF COMPONENT(K)<0 THEN `
`                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;`
`                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);`
`                     END;`
`                  END;   `
`               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);`
`               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);`
`               ELSE DO J=1 TO 3;`
`                   IF MN(I,J)>0 THEN INCOME(I)=-J;`
`               END;`
`            IF FAMILY(I)>0 THEN DO;`
`                LEVEL(I)=TABLE(I,S(I),FAMILY(I));`
`                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;`
`                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;`
`                ELSE CPS(I)=-3;`
`            END;`
`          END; `
`        END;`
`   DO I=1 TO 3;`
`      IF MN(13,I)>0 THEN MN(13,I)=1;`
`   END;`
`   IF SUMN(13)>0 THEN SUMN(13)=1;`
` `
`   INCOME(13)=R(36561.)`
`   CPS(13)=R(36562.)`
`   LEVEL(13)=R(36563.)`

### 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;`
` `
`          TABLE(14,1,1)=6810;`
`          TABLE(14,2,1)=8500;`
`          TABLE(14,3,1)=7830;`
`          DO J=2 TO 15;`
`             TABLE(14,1,J)=TABLE(14,1,J-1)+2380;`
`             TABLE(14,2,J)=TABLE(14,2,J-1)+2980;`
`             TABLE(14,3,J)=TABLE(14,3,J-1)+2740;`
`          END;`
`          S(14)=1;`
`          IF STATE92=2 THEN S(14)=2;`
`          ELSE IF STATE92=15 THEN S(14)=3;`
`          IF R(38970.)=-4 THEN MIL(14)=0;`
`          ELSE MIL(14)=R(38970.);`
`          IF R(38971.)=-4 THEN WPS(14)=0;`
`          ELSE WPS(14)=R(38971.);`
`          IF R(38974.)=-4 THEN SEI(14)=0;`
`          ELSE SEI(14)=R(38974.);`
`          IF R(38988.)=-4 & R(38989.)=-4 THEN UI(14)=0;`
`          ELSE IF R(38988.)>0 & R(38989.)>0 THEN UI(14)=R(38988.) * R(38989.);`
`          ELSE IF R(38989.)<0 THEN UI(14)=R(38989.);`
`          ELSE UI(14)=-3;`
`          IF R(38992.)=-4 THEN MILS(14)=0;`
`          ELSE MILS(14)=R(38992.);`
`          IF R(38993.)=-4 THEN WPSS(14)=0;`
`          ELSE WPSS(14)=R(38993.);`
`          IF R(38996.)=-4 THEN SEIS(14)=0;`
`          ELSE SEIS(14)=R(38996.);`
`          IF R(39010.)=-4 & R(39011.)=-4 THEN UIS(14)=0;`
`          ELSE IF R(39010.)>0 & R(39011.)>0 THEN UIS(14)=R(39010.) * R(39011.);`
`          ELSE IF R(39011.)<0 THEN UIS(14)=R(39011.);`
`          ELSE UIS(14)=-3;`
`          IF R(39014.)=-4 THEN ALIM(14)=0;`
`          ELSE ALIM(14)=R(39014.);`
`          IF R(39016.)=-4 THEN CHSP(14)=0;`
`          ELSE CHSP(14)=R(39016.);`
`          IF R(39030.)=-4 THEN AFDC(14)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(39018.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39018.)>-4 & R(39018.)<0 THEN B=NA;`
`                IF R(39019.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39019.)>-4 & R(39019.)<0 THEN B=NA;`
`                IF R(39020.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39020.)>-4 & R(39020.)<0 THEN B=NA;`
`                IF R(39021.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39021.)>-4 & R(39021.)<0 THEN B=NA;`
`                IF R(39022.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39022.)>-4 & R(39022.)<0 THEN B=NA;`
`                IF R(39023.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39023.)>-4 & R(39023.)<0 THEN B=NA;`
`                IF R(39024.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39024.)>-4 & R(39024.)<0 THEN B=NA;`
`                IF R(39025.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39025.)>-4 & R(39025.)<0 THEN B=NA;`
`                IF R(39026.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39026.)>-4 & R(39026.)<0 THEN B=NA;`
`                IF R(39027.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39027.)>-4 & R(39027.)<0 THEN B=NA;`
`                IF R(39028.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39028.)>-4 & R(39028.)<0 THEN B=NA;`
`                IF R(39029.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39029.)>-4 & R(39029.)<0 THEN B=NA;`
`             IF R(39030.)<0 THEN AFDC(14)=R(39030.);`
`             ELSE IF B<=0 THEN AFDC(14)=-3;`
`             ELSE AFDC(14)=R(39030.) * B;`
`          END;`
`          IF R(39044.)=-4 THEN FOOD(14)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(39032.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39032.)>-4 & R(39032.)<0 THEN B=NA;`
`                IF R(39033.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39033.)>-4 & R(39033.)<0 THEN B=NA;`
`                IF R(39034.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39034.)>-4 & R(39034.)<0 THEN B=NA;`
`                IF R(39035.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39035.)>-4 & R(39035.)<0 THEN B=NA;`
`                IF R(39036.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39036.)>-4 & R(39036.)<0 THEN B=NA;`
`                IF R(39037.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39037.)>-4 & R(39037.)<0 THEN B=NA;`
`                IF R(39038.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39038.)>-4 & R(39038.)<0 THEN B=NA;`
`                IF R(39039.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39039.)>-4 & R(39039.)<0 THEN B=NA;`
`                IF R(39040.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39040.)>-4 & R(39040.)<0 THEN B=NA;`
`                IF R(39041.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39041.)>-4 & R(39041.)<0 THEN B=NA;`
`                IF R(39042.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39042.)>-4 & R(39042.)<0 THEN B=NA;`
`                IF R(39043.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39043.)>-4 & R(39043.)<0 THEN B=NA;`
`             IF R(39044.)<0 THEN FOOD(14)=R(39044.);`
`             ELSE IF B<=0 THEN FOOD(14)=-3;`
`             ELSE FOOD(14)=R(39044.) * B;`
`          END;`
`          IF R(39070.)=-4 THEN PUBLIC(14)=0;`
`          ELSE DO;`
`             B=0;`
`                IF R(39058.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39058.)>-4 & R(39058.)<0 THEN B=NA;`
`                IF R(39059.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39059.)>-4 & R(39059.)<0 THEN B=NA;`
`                IF R(39060.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39060.)>-4 & R(39060.)<0 THEN B=NA;`
`                IF R(39061.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39061.)>-4 & R(39061.)<0 THEN B=NA;`
`                IF R(39062.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39062.)>-4 & R(39062.)<0 THEN B=NA;`
`                IF R(39063.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39063.)>-4 & R(39063.)<0 THEN B=NA;`
`                IF R(39064.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39064.)>-4 & R(39064.)<0 THEN B=NA;`
`                IF R(39065.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39065.)>-4 & R(39065.)<0 THEN B=NA;`
`                IF R(39066.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39066.)>-4 & R(39066.)<0 THEN B=NA;`
`                IF R(39067.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39067.)>-4 & R(39067.)<0 THEN B=NA;`
`                IF R(39068.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39068.)>-4 & R(39068.)<0 THEN B=NA;`
`                IF R(39069.)>0 & B^=NA THEN B=B+1;`
`                ELSE IF R(39069.)>-4 & R(39069.)<0 THEN B=NA;`
`             IF R(39070.)<0 THEN PUBLIC(14)=R(39070.);`
`             ELSE IF B<=0 THEN PUBLIC(14)=-3;`
`             ELSE PUBLIC(14)=R(39070.) * B;`
`          END;`
`          IF R(39076.)=-4 THEN ED(14)=0;`
`          ELSE ED(14)=R(39076.);`
`          IF R(39077.)=-4 THEN EDSS(14)=0;`
`          ELSE EDSS(14)=R(39077.);`
`          IF R(39079.)=-4 THEN VET(14)=0;`
`          ELSE VET(14)=R(39079.);`
`          IF R(39083.)=-4 THEN OTHER(14)=0;`
`          ELSE OTHER(14)=R(39083.);`
`          IF VET(14)>0 & OTHER(14)=VET(14) THEN OTHER(14)=0;`
`          IF R(39093.)=-4 THEN RELWEL(14)=0;`
`          ELSE RELWEL(14)=R(39093.);`
`          IF R(39095.)=-4 THEN RELREG(14)=0;`
`          ELSE RELREG(14)=R(39095.);`
`          FAMILY(14)=FAMSZ92; /* TO CREATE FAMILY SIZE (I.E. FAMSZ92)`
`                                SEARCH THRU THE HOUSEHOLD ENUMERATION`
`                                INCREMENT FAMILY SIZE, IF THE `
`                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.`
`                                DO NOT INCREASE FAMILY SIZE, IF THE CODE`
`                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR`
`                                (>=50 & <=54) */`
`         DCL COMPONENT(19) FIXED DEC(9);`
`         DO I=13;`
`            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0; `
`            FAMINC(I)=0;`
`            INCOME(I)=-3;`
`            COMPONENT(1)=MIL(I);   `
`            COMPONENT(2)=MILS(I);   `
`            COMPONENT(3)=WPS(I);    `
`            COMPONENT(4)=WPSS(I);   `
`            COMPONENT(5)=SEI(I);`
`            COMPONENT(6)=SEIS(I);   `
`            COMPONENT(7)=UI(I);     `
`            COMPONENT(8)=UIS(I);    `
`            COMPONENT(9)=ALIM(I);   `
`            COMPONENT(10)=CHSP(I);  `
`            COMPONENT(11)=AFDC(I);  `
`            COMPONENT(12)=PUBLIC(I);`
`            COMPONENT(13)=ED(I);    `
`            COMPONENT(14)=EDSS(I);  `
`            COMPONENT(15)=VET(I);   `
`            COMPONENT(16)=OTHER(I); `
`            COMPONENT(17)=RELWEL(I);`
`            COMPONENT(18)=RELREG(I);`
`            COMPONENT(19)=FOOD(I);  `
`            IF WEIGHT(I)=0 THEN DO;`
`               INCOME(I)=-5;`
`               CPS(I)=-5;`
`               LEVEL(I)=-5;`
`            END;`
`            ELSE DO;`
`                 DO K=1 TO 19;`
`                    IF COMPONENT(K)>-4 THEN DO;`
`                       IF COMPONENT(K)<0 THEN `
`                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;`
`                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);`
`                     END;`
`                  END;   `
`               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);`
`               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);`
`               ELSE DO J=1 TO 3;`
`                   IF MN(I,J)>0 THEN INCOME(I)=-J;`
`               END;`
` `
`    /* income trunc */`
`      IF INCOME(I) > 100000 THEN INCOME(I) = 833745;`
` `
`            IF FAMILY(I)>0 THEN DO;`
`                LEVEL(I)=TABLE(I,S(I),FAMILY(I));`
`                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;`
`                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;`
`                ELSE CPS(I)=-3;`
`            END;`
`          END; `
`        END;`
`   DO I=1 TO 3;`
`      IF MN(14,I)>0 THEN MN(14,I)=1;`
`   END;`
`   IF SUMN(14)>0 THEN SUMN(14)=1;`
` `
`   INCOME(14)=R(40066.)`
`   CPS(14)=R(40067.)`
`   LEVEL(14)=R(40068.)`

### 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;`
` `
` /* The 1993 Poverty Income Guidelines are applicable for income received in calendar 1992.  Contact the                   */`
`/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation,                 */ `
`/* (202) 690-6141, to receive a fax for the Poverty Income Guidelines.  Talk to Gordan Fisher or Joan         */ `
`/* Turek-Brezina.  Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8.               */`
` `
`/* Several variables pertaining to recipiency from various government income programs were computed from            */`
`/* a number of different variables in 1993, due to the change to an event history format for data collection.                 */`
`/* these variables are as follows:                                                                                                                              */`
`/* WKTOT92U = Total number of weeks R received unemployment compensation in calendar year 1992                     */`
`/* RCTOT92U = Total amount of unemployment compensation R received in calendar year 1992              */`
`/* WKTOT92S = Total number of weeks R's spouse received unemployment compensation in calendar year    */`
`/*                         1992                                                                                                                              */`
`/* RCTOT92U = Total amount of unemployment compensation R's spouse received in calendar year 1992                  */`
`/* MOTOT92A = Total number of months R or spouse received AFDC payments in calendar year 1992  */`
`/* RCTOT92A = Total amount of AFDC R or spouse received in calendar year 1992                                    */`
`/* MOTOT92F = Total number of months R or spouse received government food stamps in calendar year                  */`
`/*                         1992                                                                                                                              */`
`/* RCTOT92F = Total amount of government food stamps R or spouse received in calendar year 1992    */`
`/* MOTOT92W = Total number of months R or spouse received other welfare or public assistance payments           */`
`/*                           in calendar year 1992                                                                                               */`
`/* RCTOT92W = Total amount of other welfare or public assistance payemnts R or spouse received in   */`
`/*                         calendar year 1992                                                                                                                          */`
` `
`          TABLE(15,1,1)=7360;`
`          TABLE(15,2,1)=9200;`
`          TABLE(15,3,1)=8470;`
`          DO J=2 TO 15;`
`             TABLE(15,1,J)=TABLE(15,1,J-1)+2480;`
`             TABLE(15,2,J)=TABLE(15,2,J-1)+3100;`
`             TABLE(15,3,J)=TABLE(15,3,J-1)+2850;`
`          END;`
`          S(15)=1;`
`          IF STATE93=2 THEN S(15)=2;`
`          ELSE IF STATE93=15 THEN S(15)=3;`
`          IF R(42949.)=-4 THEN MIL(15)=0;`
`          ELSE MIL(15)=R(42949.);`
`          IF R(42951.)=-4 THEN WPS(15)=0;`
`          ELSE WPS(15)=R(42951.);`
`          IF R(42955.)=-4 THEN SEI(15)=0;`
`          ELSE SEI(15)=R(42955.);`
`          IF WKTOT92U=-4 & RCTOT92U=-4 THEN UI(15)=0;`
`          ELSE IF WKTOT92U>0 & RCTOT92U>0 THEN UI(15)=WKTOT92U * RCTOT92U;`
`          ELSE IF RCTOT92U<0 THEN UI(15)=RCTOT92U;`
`          ELSE UI(15)=-3;`
`          IF R(43142.)=-4 THEN MILS(15)=0;`
`          ELSE MILS(15)=R(43142.);`
`          IF R(43144.)=-4 THEN WPSS(15)=0;`
`          ELSE WPSS(15)=R(43144.);`
`          IF R(43149.)=-4 THEN SEIS(15)=0;`
`          ELSE SEIS(15)=R(43149.);`
`          IF WKTOT92S=-4 & RCTOT92S=-4 THEN UIS(15)=0;`
`          ELSE IF WKTOT92S>0 & RCTOT92S>0 THEN UIS(15)=WKTOT92S * RCTOT92S;`
`          ELSE IF RCTOT92S<0 THEN UIS(15)=RCTOT92S;`
`          ELSE UIS(15)=-3;`
`          IF R(43325.)=-4 THEN ALIM(15)=0;`
`          ELSE ALIM(15)=R(43325.);`
`          IF R(43341.)=-4 THEN CHSP(15)=0;`
`          ELSE CHSP(15)=R(43341.);`
`          IF R(43351.)=-4 THEN CHSP(15)=0;`
`          ELSE CHSP(15)=R(43351.);`
`          IF RCTOT92A=-4 THEN AFDC(15)=0;`
`          ELSE DO;`
`             IF RCTOT92A<0 THEN AFDC(15)=RCTOT92A;`
`             ELSE IF MOTOT92A<=0 THEN AFDC(15)=-3;`
`             ELSE AFDC(15)=RCTOT92A * MOTOT92A;`
`          END;`
`          IF RCTOT92F=-4 THEN FOOD(15)=0;`
`          ELSE DO;`
`             IF RCTOT92F<0 THEN FOOD(15)=RCTOT92F;`
`             ELSE IF MOTOT92F<=0 THEN FOOD(15)=-3;`
`             ELSE FOOD(15)=RCTOT92F * MOTOT92F;`
`          END;`
`          IF RCTOT92W=-4 THEN PUBLIC(15)=0;`
`          ELSE DO;`
`             IF RCTOT92W<0 THEN PUBLIC(15)=RCTOT92W;`
`             ELSE IF MOTOT92W<=0 THEN PUBLIC(15)=-3;`
`             ELSE PUBLIC(15)=RCTOT92W * MOTOT92W;`
`          END;`
`          IF R(43879.)=-4 THEN ED(15)=0;`
`          ELSE ED(15)=R(43879.);`
`          IF R(43881.)=-4 THEN EDSS(15)=0;`
`          ELSE EDSS(15)=R(43881.);`
`          IF R(43883.)=-4 THEN VET(15)=0;`
`          ELSE VET(15)=R(43883.);`
`          IF R(43888.)=-4 THEN OTHER(15)=0;`
`          ELSE OTHER(15)=R(43888.);`
`          IF VET(15)>0 & OTHER(15)=VET(15) THEN OTHER(15)=0;`
`          IF R(43900.)=-4 THEN RELWEL(15)=0;`
`          ELSE RELWEL(15)=R(43900.);`
`          IF R(43903.)=-4 THEN RELREG(15)=0;`
`          ELSE RELREG(15)=R(43903.);`
`          FAMILY(15)=R(44176.); /* TO CREATE FAMILY SIZE (I.E. R(44176.))`
`                                SEARCH THRU THE HOUSEHOLD ENUMERATION`
`                                INCREMENT FAMILY SIZE, IF THE `
`                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.`
`                                DO NOT INCREASE FAMILY SIZE, IF THE CODE`
`                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR`
`                                (>=50 & <=54) */`
`         DCL COMPONENT(19) FIXED DEC(9);`
`         DO I=15;`
`            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0; `
`            FAMINC(I)=0;`
`            INCOME(I)=-3;`
`            COMPONENT(1)=MIL(I);   `
`            COMPONENT(2)=MILS(I);   `
`            COMPONENT(3)=WPS(I);    `
`            COMPONENT(4)=WPSS(I);   `
`            COMPONENT(5)=SEI(I);`
`            COMPONENT(6)=SEIS(I);   `
`            COMPONENT(7)=UI(I);     `
`            COMPONENT(8)=UIS(I);    `
`            COMPONENT(9)=ALIM(I);   `
`            COMPONENT(10)=CHSP(I);  `
`            COMPONENT(11)=AFDC(I);  `
`            COMPONENT(12)=PUBLIC(I);`
`            COMPONENT(13)=ED(I);    `
`            COMPONENT(14)=EDSS(I);  `
`            COMPONENT(15)=VET(I);   `
`            COMPONENT(16)=OTHER(I); `
`            COMPONENT(17)=RELWEL(I);`
`            COMPONENT(18)=RELREG(I);`
`            COMPONENT(19)=FOOD(I);  `
`            IF WEIGHT(I)=0 THEN DO;`
`               INCOME(I)=-5;`
`               CPS(I)=-5;`
`               LEVEL(I)=-5;`
`            END;`
`            ELSE DO;`
`                 DO K=1 TO 19;`
`                    IF COMPONENT(K)>-4 THEN DO;`
`                       IF COMPONENT(K)<0 THEN `
`                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;`
`                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);`
`                     END;`
`                  END;   `
`               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);`
`               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);`
`               ELSE DO J=1 TO 3;`
`                   IF MN(I,J)>0 THEN INCOME(I)=-J;`
`               END;`
` `
`    /* imcome trunc  */`
`      IF INCOME(I) > 100000 THEN INCOME(I) = 160097; `
` `
`            IF FAMILY(I)>0 THEN DO;`
`                LEVEL(I)=TABLE(I,S(I),FAMILY(I));`
`                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;`
`                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;`
`                ELSE CPS(I)=-3;`
`            END;`
`          END; `
`        END;`
`   DO I=1 TO 3;`
`      IF MN(15,I)>0 THEN MN(15,I)=1;`
`   END;`
`   IF SUMN(15)>0 THEN SUMN(15)=1;`
` `
`INCOME(15)=R(44177.)`
`CPS(15)=R(44178.)`
`LEVEL(15)=R(44179.)`

### 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;`
` `
`/* The 1994 Poverty Income Guidelines are applicable for income received in calendar 1993.  Contact the                    */`
`/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation,                 */ `
`/* (202) 690-6141, to receive a fax for the Poverty Income Guidelines.  Talk to Gordan Fisher or Joan         */ `
`/* Turek-Brezina.  Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8.               */`
` `
`/* Several variables pertaining to recipiency from various government income programs were computed from            */`
`/* a number of different variables in 1994, due to the change to an event history format for data collection.                 */`
`/* these variables are as follows:                                                                                                                              */`
`/* WKTOT93U = Total number of weeks R received unemployment compensation in calendar year 1993                     */`
`/* RCTOT93U = Total amount of unemployment compensation R received in calendar year 1993              */`
`/* WKTOT93S = Total number of weeks R's spouse received unemployment compensation in calendar year    */`
`/*                         1993                                                                                                                              */`
`/* RCTOT93U = Total amount of unemployment compensation R's spouse received in calendar year 1993                  */`
`/* MOTOT93A = Total number of months R or spouse received AFDC payments in calendar year 1993  */`
`/* RCTOT93A = Total amount of AFDC R or spouse received in calendar year 1993                                    */`
`/* MOTOT93F = Total number of months R or spouse received government food stamps in calendar year                  */`
`/*                         1993                                                                                                                              */`
`/* RCTOT93F = Total amount of government food stamps R or spouse received in calendar year 1993    */`
`/* MOTOT93W = Total number of months R or spouse received other welfare or public assistance payments           */`
`/*                           in calendar year 1993                                                                                               */`
`/* RCTOT93W = Total amount of other welfare or public assistance payemnts R or spouse received in   */`
`/*                         calendar year 1993                                                                                                                          */`
` `
`          TABLE(16,1,1)=7360;`
`          TABLE(16,2,1)=9200;`
`          TABLE(16,3,1)=8470;`
`          DO J=2 TO 15;`
`             TABLE(16,1,J)=TABLE(16,1,J-1)+2480;`
`             TABLE(16,2,J)=TABLE(16,2,J-1)+3100;`
`             TABLE(16,3,J)=TABLE(16,3,J-1)+2850;`
`          END;`
`          S(16)=1;`
`          IF STATE94=2 THEN S(16)=2;`
`          ELSE IF STATE94=15 THEN S(16)=3;`
`          IF R(49826)=-4 THEN MIL(16)=0;`
`          ELSE MIL(16)=R(49826.);`
`          IF R(49828.)=-4 THEN WPS(16)=0;`
`          ELSE WPS(16)=R(49828.);`
`          IF R(49832.)=-4 THEN SEI(16)=0;`
`          ELSE SEI(16)=R(49832.);`
`          IF WKTOT93U=-4 & RCTOT93U=-4 THEN UI(16)=0;`
`          ELSE IF WKTOT93U>0 & RCTOT93U>0 THEN UI(16)=WKTOT93U * RCTOT93U;`
`          ELSE IF RCTOT93U<0 THEN UI(16)=RCTOT93U;`
`          ELSE UI(16)=-3;`
`          IF R(49958.)=-4 THEN MILS(16)=0;`
`          ELSE MILS(16)=R(49958.);`
`          IF R(49960.)=-4 THEN WPSS(16)=0;`
`          ELSE WPSS(16)=R(49960.);`
`          IF R(49966.)=-4 THEN SEIS(16)=0;`
`          ELSE SEIS(16)=R(49966.);`
`          IF WKTOT93S=-4 & RCTOT93S=-4 THEN UIS(16)=0;`
`          ELSE IF WKTOT93S>0 & RCTOT93S>0 THEN UIS(16)=WKTOT93S * RCTOT93S;`
`          ELSE IF RCTOT93S<0 THEN UIS(16)=RCTOT93S;`
`          ELSE UIS(16)=-3;`
`          IF R(50096.)=-4 THEN ALIM(16)=0;`
`          ELSE ALIM(16)=R(50096.);`
`          IF R(50119.)=-4 THEN CHSP(16)=0;`
`          ELSE CHSP(16)=R(50119.);`
`          IF R(50130.)=-4 THEN CHSP(16)=0;`
`          ELSE CHSP(16)=R(50130.);`
`          IF RCTOT93A=-4 THEN AFDC(16)=0;`
`          ELSE DO;`
`             IF RCTOT93A<0 THEN AFDC(16)=RCTOT93A;`
`             ELSE IF MOTOT93A<=0 THEN AFDC(16)=-3;`
`             ELSE AFDC(16)=RCTOT93A * MOTOT93A;`
`          END;`
`          IF RCTOT93F=-4 THEN FOOD(16)=0;`
`          ELSE DO;`
`             IF RCTOT93F<0 THEN FOOD(16)=RCTOT93F;`
`             ELSE IF MOTOT93F<=0 THEN FOOD(16)=-3;`
`             ELSE FOOD(16)=RCTOT93F * MOTOT93F;`
`          END;`
`          IF RCTOT93W=-4 THEN PUBLIC(16)=0;`
`          ELSE DO;`
`             IF RCTOT93W<0 THEN PUBLIC(16)=RCTOT93W;`
`             ELSE IF MOTOT93W<=0 THEN PUBLIC(16)=-3;`
`             ELSE PUBLIC(16)=RCTOT93W * MOTOT93W;`
`          END;`
`          IF R(50441.)=-4 THEN ED(16)=0;`
`          ELSE ED(16)=R(50441.);`
`          IF R(50443.)=-4 THEN EDSS(16)=0;`
`          ELSE EDSS(16)=R(50443.);`
`          IF R(50445.)=-4 THEN VET(16)=0;`
`          ELSE VET(16)=R(50445.);`
`          IF R(50450.)=-4 THEN OTHER(16)=0;`
`          ELSE OTHER(16)=R(50450.);`
`          IF VET(16)>0 & OTHER(16)=VET(16) THEN OTHER(16)=0;`
`          IF R(50462.)=-4 THEN RELWEL(16)=0;`
`          ELSE RELWEL(16)=R(50462.);`
`          IF R(50465.)=-4 THEN RELREG(16)=0;`
`          ELSE RELREG(16)=R(50465.);`
`          FAMILY(16)=FAMSZ94; /* TO CREATE FAMILY SIZE (I.E. FAMSZ94)`
`                                SEARCH THRU THE HOUSEHOLD ENUMERATION`
`                                INCREMENT FAMILY SIZE, IF THE `
`                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.`
`                                DO NOT INCREASE FAMILY SIZE, IF THE CODE`
`                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR`
`                                (>=50 & <=54) */`
`         DCL COMPONENT(19) FIXED DEC(9);`
`         DO I=16;`
`            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0; `
`            FAMINC(I)=0;`
`            INCOME(I)=-3;`
`            COMPONENT(1)=MIL(I);   `
`            COMPONENT(2)=MILS(I);   `
`            COMPONENT(3)=WPS(I);    `
`            COMPONENT(4)=WPSS(I);   `
`            COMPONENT(5)=SEI(I);`
`            COMPONENT(6)=SEIS(I);   `
`            COMPONENT(7)=UI(I);     `
`            COMPONENT(8)=UIS(I);    `
`            COMPONENT(9)=ALIM(I);   `
`            COMPONENT(10)=CHSP(I);  `
`            COMPONENT(11)=AFDC(I);  `
`            COMPONENT(12)=PUBLIC(I);`
`            COMPONENT(13)=ED(I);    `
`            COMPONENT(14)=EDSS(I);  `
`            COMPONENT(15)=VET(I);   `
`            COMPONENT(16)=OTHER(I); `
`            COMPONENT(17)=RELWEL(I);`
`            COMPONENT(18)=RELREG(I);`
`            COMPONENT(19)=FOOD(I);  `
`            IF WEIGHT(I)=0 THEN DO;`
`               INCOME(I)=-5;`
`               CPS(I)=-5;`
`               LEVEL(I)=-5;`
`            END;`
`            ELSE DO;`
`                 DO K=1 TO 19;`
`                    IF COMPONENT(K)>-4 THEN DO;`
`                       IF COMPONENT(K)<0 THEN `
`                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;`
`                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);`
`                     END;`
`                  END;   `
`               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);`
`               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);`
`               ELSE DO J=1 TO 3;`
`                   IF MN(I,J)>0 THEN INCOME(I)=-J;`
`               END;`
` `
`    /* income trunc  */`
`     /*   IF INCOME(I) > 100000 THEN INCOME(I) = 500000; */`
` `
`            IF FAMILY(I)>0 THEN DO;`
`                LEVEL(I)=TABLE(I,S(I),FAMILY(I));`
`                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;`
`                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;`
`                ELSE CPS(I)=-3;`
`            END;`
`          END; `
`        END;`
`   DO I=1 TO 3;`
`      IF MN(16,I)>0 THEN MN(16,I)=1;`
`   END;`
`   IF SUMN(16)>0 THEN SUMN(16)=1;`
` `
`INCOME(16)=R(50807.)`
`CPS(16)=R(50808.)`
`LEVEL(16)=R(50809.)`