Variable Creation: Total Net Family Income 1987-1994

National Longitudinal Survey of Youth - 1979 Cohort

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