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 */

          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.)