Skip to main content
National Longitudinal Survey of Youth 1979 (NLSY79)

NLSY79 Appendix 2: Total Net Family Income Variable Creation (1979-2020)

Click a topic below to view details:

VARIABLE CREATION: TOTAL NET FAMILY INCOME 1979-83

          DCL 1 FAMILY_INCOME (5),

               5 AFDC,

               5 ALIM,

               5 CHSP,

               5 CPS,

               5 ED,

               5 EDSS,

               5 FAMILY,

               5 FAMINC,

               5 FARM,

               5 FOOD,

               5 GIFT,

               5 INC,

               5 INCOME,

               5 LEVEL,

               5 MIL,

               5 MILS,

               5 MN (3),

               5 OTHER,

               5 POVERTY,

               5 PUBLIC,

               5 R,

               5 RELREG,

               5 RELWEL,

               5 S,

               5 SEI,

               5 SEIS,

               5 SUMN,

               5 TABLE (3,2,15),

               5 UI,

               5 UIS,

               5 VET,

               5 WELF,

               5 WPS,

               5 WPSS,

               5 YOUTH;

1979 VARIABLES

         INC(1)=R(1903.10);

          IF R(1547.)=-4 THEN MIL(1)=0;

          ELSE MIL=R(1547.);

          IF R(1554.)=-4 THEN WPS(1)=0;

          ELSE WPS(1)=R(1554.);

          IF R(1560.)=-4 THEN SEI(1)=0;

          ELSE SEI(1)=R(1560.);

          IF R(1588.)=-4 & R(1590.)=-4 THEN UI(1)=0;

          ELSE IF R(1588.)>0 & R(1590.)>0 THEN UI(1)=R(1588.) * R(1590.);

          ELSE UI(1)=R(1590.);

          MILS(1)=0;

          IF R(1555.)=-4 THEN WPSS(1)=0;

          ELSE WPSS(1)=R(1555.);

          IF R(1561.)=-4 THEN SEIS(1)=0;

          ELSE SEIS(1)=R(1561.);

          IF R(1589.)=-4 & R(1591.)=-4 THEN UIS(1)=0;

          ELSE IF R(1589.)>0 & R(1591.)>0 THEN UIS(1)=R(1589.) * R(1591.);

          ELSE UIS(1)=R(1591.);

          IF R(1594.)=-4 THEN ALIM(1)=0;

          ELSE ALIM(1)=R(1594.);

          CHSP(1)=0;

          IF R(1608.)=-4 THEN AFDC(1)=0;

          ELSE DO;

             B=0;

             DO J=1596. TO 1607.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(1608.)<0 THEN AFDC(1)=R(1608.);

             ELSE IF B<=0 THEN AFDC(1)=-3;

             ELSE AFDC(1)=R(1608.) * B;

          END;

          IF R(1623.)=-4 THEN FOOD(1)=0;

          ELSE DO;

             B=0;

             DO J=1610. TO 1621.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF B<=0 THEN FOOD(1)=-3;

             ELSE IF R(1622.)>=0 & R(1623.)>0 THEN FOOD(1)=(R(1623.)-R(1622.))

                  * B;

             ELSE FOOD(1)=-3;

          END;

          WELF(1)=0;

          IF R(1640.)=-4 THEN PUBLIC(1)=0;

          ELSE DO;

             B=0;

             DO J=1628. TO 1639.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(1640.)<0 THEN PUBLIC(1)=R(1640.);

             ELSE IF B<=0 THEN PUBLIC(1)=-3;

             ELSE PUBLIC(1)=R(1640.) * B;    END;

          IF R(1645.)=-4 THEN ED(1)=0;

          ELSE ED(1)=R(1645.);

          IF R(1646.)=-4 THEN EDSS(1)=0;

          ELSE EDSS(1)=R(1646.);

          VET(1)=0;

          IF R(1649.)=-4 THEN GIFT(1)=0;

          ELSE GIFT(1)=R(1649.);

          IF R(1651.)=-4 THEN OTHER(1)=0;

          ELSE OTHER(1)=R(1651.);

          RELWEL(1)=0;

          IF R(1664.)=-4 THEN RELREG(1)=0;

          ELSE RELREG(1)=R(1664.);

/*  1979 FAMILY POVERTY STATUS, 1979 FAMILY POVERTY LEVEL, AND 1979 FAMILY POVERTY

     FLAG  */

 DCL PUBID PIC '99999';

 DCL S79            FIXED DEC(9);

     FAMILY79       FIXED DEC(9);

     FARM79         FIXED DEC(9);

     SCREENSZ       FIXED DEC(9);

     FLAG           FIXED DEC(9);

     INCOME79       FLOAT DEC(6);

     CAL_INCOME     FLOAT DEC(6);

     LEVEL79        FLOAT DEC(6);

     STATE79        FLOAT DEC(6);

     CPS79          FLOAT DEC(6);

     R79            FLOAT DEC(6);

     TABLE(3,2,15)  FLOAT DEC(6);

     R(1.10)        FLOAT DEC(6);

     R(2179.)       FLOAT DEC(6);

     R(1691.)       FLOAT DEC(6);

     R(1697.)       FLOAT DEC(6);

     R(1743.)       FLOAT DEC(6);

     R(1916.10)     FLOAT DEC(6);

     R(1921.)       FLOAT DEC(6);

     R(1919.)       FLOAT DEC(6);

     FAMSZ79        FLOAT DEC(6);

     WPS            FLOAT DEC(6);

     WPSS           FLOAT DEC(6);

     SEI            FLOAT DEC(6);

     SEIS           FLOAT DEC(6);

     MIL            FLOAT DEC(6);

     OTHER          FLOAT DEC(6);

     RELINC         FLOAT DEC(6);

     GIFT           FLOAT DEC(6);

 LEVEL79=-4;

 DO I=1 TO 3;

    DO J=1 TO 2;

       DO K=1 TO 15;

          TABLE(I,J,K)=-4;

       END;

    END;

 END;

END;

 FARM79=1;

 IF R(1919.)>4 THEN FARM79=2;

 /* TO CREATE FAMILY SIZE (I.E. FAMSZ79) SEARCH THRU THE

    HOUSEHOLD ENUMERATION INCREMENT FAMILY SIZE, IF THE

    RELATIONSHIP TO THE YOUTH IS A RELATIVE.  DO NOT

    INCREASE FAMILY SIZE, IF THE CODE IS <0 OR (>=33 & <=36) OR

    =45 OR =46 OR *>=50 & <=54) */

 IF FAMSZ79=0 THEN FAMILY79=1;

 ELSE FAMILY79=FAMSZ79;

 INCOME79=R(2179.);

 R79=0;

 IF R(1691.)>=0 THEN R79=R79+R(1691.);

 IF R(1697.)>=0 THEN R79=R79+R(1697.);

 IF FAMILY79>0 THEN DO;

    LEVEL79=TABLE(S79,FARM79,FAMILY79);

    IF INCOME79>LEVEL79 THEN CPS79=0;

    ELSE IF INCOME79>= 0 & INCOME79<=LEVEL79 THEN CPS79=1;

    ELSE IF R79>TABLE(S79,FARM79,FAMILY79) THEN CPS79=0;

    ELSE CPS79=-3;

 END;

FLAG=0;

 CAL_INCOME=0;

 IF CPS79=-3 & INCOME79<0 THEN DO;

    IF WPS>=0 THEN CAL_INCOME=CAL_INCOME + WPS;

    IF WPSS>=0 THEN CAL_INCOME=CAL_INCOME + WPSS;

    IF SEI>=0 THEN CAL_INCOME=CAL_INCOME + SEI;

    IF SEIS>=0 THEN CAL_INCOME=CAL_INCOME + SEIS;

    IF MIL>=0 THEN CAL_INCOME=CAL_INCOME + MIL;

    IF OTHER>=0 THEN CAL_INCOME=CAL_INCOME + OTHER;

    IF RELINC>=0 THEN CAL_INCOME=CAL_INCOME + RELINC;

    IF GIFT>=0 THEN CAL_INCOME=CAL_INCOME + GIFT;

    IF CAL_INCOME>0 THEN DO;

       IF CAL_INCOME>LEVEL79 THEN DO;

          CPS79=0;

          FLAG=1;

       END;

    END;

 END;

 IF CPS79=-3 & R(1916.10)>0 & R(1921.)>0 THEN DO;

    SCREENSZ=R(1921.);

    IF SCREENSZ=-4 THEN FAMILY79=1;

    ELSE FAMILY79=SCREENSZ;

    LEVEL79=TABLE(S79,FARM79,FAMILY79);

    IF R(1916.10)>LEVEL79 THEN DO;

       CPS79=0;

       FLAG=2;

    END;

    ELSE IF R(1916.10)<=LEVEL79 THEN DO;

       CPS79=1;

       FLAG=2;

    END;

 END;

CPS79=R(2179.10);

LEVEL79=R(2179.20);

FLAG79=R(2179.30);

1980 VARIABLES

          IF R(4052.)<=0 THEN INC(2)=-5;

          ELSE INC(2)=R(4045.10);

          IF R(3120.)=-4 THEN MIL(2)=0;

          ELSE MIL(2)=R(3120.);

          IF R(3123.)=-4 THEN WPS(2)=0;

          ELSE WPS(2)=R(3123.);

          IF R(3126.)=-4 THEN SEI(2)=0;

          ELSE SEI(2)=R(3126.);

          IF R(3146.)=-4 & R(3132.)=-4 THEN UI(2)=0;

          ELSE IF R(3146.)>0 & R(3132.)>0 THEN UI(2)=R(3146.) * R(3132.);

          ELSE UI(2)=R(3132.);

          IF R(3122.)=-4 THEN MILS(2)=0;

          ELSE MILS(2)=R(3122.);

          IF R(3127.10)=-4 THEN WPSS(2)=0;

          ELSE WPSS(2)=R(3127.10);

          IF R(3130.)=-4 THEN SEIS(2)=0;

          ELSE SEIS(2)=R(3130.);

          IF R(3160.)=-4 & R(3161.)=-4 THEN UIS(2)=0;

          ELSE IF R(3160.)>0 & R(3161.)>0 THEN UIS(2)=R(3160.) * R(3161.);

          ELSE UIS(2)=R(3161.);

          IF R(3164.)=-4 THEN ALIM(2)=0;

          ELSE ALIM(2)=R(3164.);

          CHSP(2)=0;

          IF R(3178.)=-4 THEN AFDC(2)=0;

          ELSE DO;

             B=0;

             DO J=3166. TO 3177.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(3178.)<0 THEN AFDC(2)=R(3178.);

             ELSE IF B<=0 THEN AFDC(2)=-3;

             ELSE AFDC(2)=R(3178.) * B;

          END;

          IF R(3192.)=-4 THEN FOOD(2)=0;

          ELSE DO;

             B=0;

             DO J=3180. TO 3191.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(3192.)=-4 THEN FOOD(2)=R(3192.);

             ELSE IF B<=0 THEN FOOD(2)=-3;

             ELSE FOOD(2)=R(3192.) * B;

          END;

          IF R(3206.)=-4 THEN WELF(2)=0;

          ELSE DO;

             B=0;

             DO J=3194. TO 3205.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(3206.)<0 THEN WELF(2)=R(3206.);

             ELSE IF B<=0 THEN WELF(2)=-3;

             ELSE WELF(2)=R(3206.) * B;

          END;

          IF R(3220.)=-4 THEN PUBLIC(2)=0;

          ELSE DO;

             B=0;

             DO J=3208. TO 3219.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(3220.)<0 THEN PUBLIC(2)=R(3220.);

             ELSE IF B<=0 THEN PUBLIC(2)=-3;

             ELSE PUBLIC(2)=R(3220.) * B;

          END;

          IF R(3225.)=-4 THEN ED(2)=0;

          ELSE ED(2)=R(3225.);

          IF R(3226.)=-4 THEN EDSS(2)=0;

          ELSE EDSS(2)=R(3226.);

          IF R(3228.)=-4 THEN VET(2)=0;

          ELSE VET(2)=R(3228.);

          IF R(3233.)=-4 THEN GIFT(2)=0;

          ELSE GIFT(2)=R(3233.);

          IF R(3235.)=-4 THEN OTHER(2)=0;

          ELSE OTHER(2)=R(3235.);

          IF R(3244.)=-4 THEN RELWEL(2)=0;

          ELSE RELWEL(2)=R(3244.);

          IF R(3251.10)=-4 THEN RELREG(2)=0;

          ELSE RELREG(2)=R(3251.10);

          IF R(4047.)=-4 THEN POVERTY(2)=0;

          ELSE POVERTY(2)=R(4047.);

          FAMILY(2)=0;

          DO J=3939. TO 4023. BY 6;

             IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !

                (R(J)>=50 & R(J)<=53) THEN A=1;

                ELSE FAMILY(2)=FAMILY(2)+1;

          END;

1981 VARIABLES

          IF R(6146.)<=0 THEN INC(3)=-5;

          ELSE INC(3)=R(6138.10);

          YOUTH(3)=0;

          END;

          FARM(3)=1;

          IF R(6125.)>4 THEN FARM(3)=2;

          LEVEL(3)=-4;

          IF R(4825.)=-4 THEN MIL(3)=0;

          ELSE MIL(3)=R(4825.);

          IF R(4826.)=-4 THEN WPS(3)=0;

          ELSE WPS(3)=R(4826.);

          IF R(4832.)=-4 THEN SEI(3)=0;

          ELSE SEI(3)=R(4832.);

          IF R(4849.)=-4 & R(4850.)=-4 THEN UI(3)=0;

          ELSE IF R(4849.)>0 & R(4850.)>0 THEN UI(3)=R(4849.) * R(4850.);

          ELSE UI(3)=R(4850.);

          IF R(4828.)=-4 THEN MILS(3)=0;

          ELSE MILS(3)=R(4828.);

          IF R(4829.10)=-4 THEN WPSS(3)=0;

          ELSE WPSS(3)=R(4829.10);

          IF R(4835.)=-4 THEN SEIS(3)=0;

          ELSE SEIS(3)=R(4835.);

          IF R(4865.)=-4 & R(4866.)=-4 THEN UIS(3)=0;

          ELSE IF R(4865.)>0 & R(4866.)>0 THEN UIS(3)=R(4865.) * R(4866.);

          ELSE UIS(3)=R(4866.);

          IF R(4869.)=-4 THEN ALIM(3)=0;

          ELSE ALIM(3)=R(4869.);

          CHSP(3)=0;

          IF R(4883.)=-4 THEN AFDC(3)=0;

          ELSE DO;

             B=0;

             DO J=4871. TO 4882.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(4883.)<0 THEN AFDC(3)=R(4883.);

             ELSE IF B<=0 THEN AFDC(3)=-3;

             ELSE AFDC(3)=R(4883.) * B;

          END;

          IF R(4897.)=-4 THEN FOOD(3)=0;

          ELSE DO;

             B=0;

             DO J=4885. TO 4896.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(4897.)<0 THEN FOOD(3)=R(4897.);

             ELSE IF B<=0 THEN FOOD(3)=-3;

             ELSE FOOD(3)=R(4897.) * B;

          END;

          IF R(4911.)=-4 THEN WELF(3)=0;

          ELSE DO;

             B=0;

             DO J=4899. TO 4910.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(4911.)<0 THEN WELF(3)=R(4911.);

             ELSE IF B<=0 THEN WELF(3)=-3;

             ELSE WELF(3)=R(4911.) * B;

          END;

          IF R(4925.)=-4 THEN PUBLIC(3)=0;

          ELSE DO;

             B=0;

             DO J=4913. TO 4924.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(4925.)<0 THEN PUBLIC(3)=R(4925.);

             ELSE IF B<=0 THEN PUBLIC(3)=-3;

             ELSE PUBLIC(3)=R(4925.) * B;

          END;

          IF R(4930.)=-4 THEN ED(3)=0;

          ELSE ED(3)=R(4930.);

          IF R(4931.)=-4 THEN EDSS(3)=0;

          ELSE EDSS(3)=R(4931.);

          IF R(4933.)=-4 THEN VET(3)=0;

          ELSE VET(3)=R(4933.);

          IF R(4938.)=-4 THEN GIFT(3)=0;

          ELSE GIFT(3)=R(4938.);

          IF R(4940.)=-4 THEN OTHER(3)=0;

          ELSE OTHER(3)=R(4940.);

          IF R(4949.)=-4 THEN RELWEL(3)=0;

          ELSE RELWEL(3)=R(4949.);

          IF R(4956.10)=-4 THEN RELREG(3)=0;

          ELSE RELREG(3)=R(4956.10);

          IF R(6140.)=-4 THEN POVERTY(3)=0;

          ELSE POVERTY(3)=R(6140.);

          FAMILY(3)=0;

          DO J=6033. TO 6117. BY 6;

             IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !

                (R(J)>=50 & R(J)<=53) THEN A=1;

             ELSE FAMILY(3)=FAMILY(3)+1;

          END;

1982 VARIABLES

 IF R(8967.)<=0 THEN INC(4)=-5;

          ELSE INC(4)=R(8304.);

          YOUTH(4)=0;

          IF R(7986.)>=0 THEN YOUTH(4)=R(7986.);

          IF R(7988.)>=0 THEN YOUTH(4)=Y(4)+R(7988.);

          IF R(7992.)>=0 THEN YOUTH(4)=Y(4)+R(7992.);

          END;

          FARM(4)=1;

          LEVEL(4)=-4;

          IF R(7820.)=-4 THEN MIL(4)=0;

          ELSE MIL(4)=R(7820.);

          IF R(7821.)=-4 THEN WPS(4)=0;

          ELSE WPS(4)=R(7821.);

          IF R(7824.)=-4 THEN SEI(4)=0;

          ELSE SEI(4)=R(7824.);

          IF R(7838.)=-4 & R(7839.)=-4 THEN UI(4)=0;

          ELSE IF R(7838.)>0 & R(7839.)>0 THEN UI(4)=R(7838.) * R(7839.);

          ELSE UI(4)=R(7839.);

          IF R(7842.)=-4 THEN MILS(4)=0;

          ELSE MILS(4)=R(7842.);

          IF R(7843.)=-4 THEN WPSS(4)=0;

          ELSE WPSS(4)=R(7843.);

          IF R(7846.)=-4 THEN SEIS(4)=0;

          ELSE SEIS(4)=R(7846.);

          IF R(7860.)=-4 & R(7861.)=-4 THEN UIS(4)=0;

          ELSE IF R(7860.)>0 & R(7861.)>0 THEN UIS(4)=R(7860.) * R(7861.);

          ELSE UIS(4)=R(7861.);

          IF R(7864.)=-4 THEN ALIM(4)=0;

          ELSE ALIM(4)=R(7864.);

          IF R(7869.)=-4 THEN CHSP(4)=0;

          ELSE CHSP(4)=R(7869.);

          IF R(7885.)=-4 THEN AFDC(4)=0;

          ELSE DO;

             B=0;

             DO J=7873. TO 7884.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(7885.)<0 THEN AFDC(4)=R(7885.);

             ELSE IF B<=0 THEN AFDC(4)=-3;

             ELSE AFDC(4)=R(7885.) * B;

          END;

          IF R(7899.)=-4 THEN FOOD(4)=0;

          ELSE DO;

             B=0;

             DO J=7887. TO 7898.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(7899.)<0 THEN FOOD(4)=R(7899.);

             ELSE IF B<=0 THEN FOOD(4)=-3;

             ELSE FOOD(4)=R(7899.) * B;

          END;

          IF R(7913.)=-4 THEN WELF(4)=0;

          ELSE DO;

             B=0;

             DO J=7901. TO 7912.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(7913.)<0 THEN WELF(4)=R(7913.);

             ELSE IF B<=0 THEN WELF(4)=-3;

             ELSE WELF(4)=R(7913.) * B;

          END;

          IF R(7927.)=-4 THEN PUBLIC(4)=0;

          ELSE DO;

             DO J=7915. TO 7926.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(7927.)<0 THEN PUBLIC(4)=R(7927.);

             ELSE IF B<=0 THEN PUBLIC(4)=-3;

             ELSE PUBLIC(4)=R(7927.) * B;

          END;

          IF R(7932.)=-4 THEN ED(4)=0;

          ELSE ED(4)=R(7932.);

          IF R(7933.)=-4 THEN EDSS(4)=0;

          ELSE EDSS(4)=R(7933.);

          IF R(7935.)=-4 THEN VET(4)=0;

          ELSE VET(4)=R(7935.);

          IF R(7939.)=-4 THEN GIFT(4)=0;

          ELSE GIFT(4)=R(7939.);

          IF R(7941.)=-4 THEN OTHER(4)=0;

          ELSE OTHER(4)=R(7941.);

          IF R(7949.)=-4 THEN RELWEL(4)=0;

          ELSE RELWEL(4)=R(7949.);

          IF R(7956.)=-4 THEN RELREG(4)=0;

          ELSE RELREG(4)=R(7956.);

          IF R(8306.)=-4 THEN POVERTY(4)=0;

          ELSE POVERTY(4)=R(8306.);

          FAMILY(4)=0;

          DO J=8177. TO 8275. BY 7;

             IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !

                (R(J)>=50 & R(J)<=53) THEN A=1;

                ELSE FAMILY(4)=FAMILY(4)+1;

          END;

1983 VARIABLES

          IF R(11444.)<=0 THEN INC(5)=-5;

          ELSE INC(5)=R(10777.);

          YOUTH(5)=0;

          END;

          FARM(5)=1;

          IF R(10764.)>4 THEN FARM(5)=2;

          LEVEL(5)=-4;

          IF R(10239.)=-4 THEN MIL(5)=0;

          ELSE MIL(5)=R(10239.);

          IF R(10240.)=-4 THEN WPS(5)=0;

          ELSE WPS(5)=R(10240.);

          IF R(10243.)=-4 THEN SEI(5)=0;

          ELSE SEI(5)=R(10243.);

          IF R(10257.)=-4 & R(10258.)=-4 THEN UI(5)=0;

          ELSE IF R(10257.)>0 & R(10258.)>0 THEN UI(5)=R(10257.) * R(10258.);

          ELSE IF R(10258.)<0 THEN UI(5)=R(10258.);

          ELSE UI(5)=-3;

          IF R(10261.)=-4 THEN MILS(5)=0;

          ELSE MILS(5)=R(10261.);

          IF R(10262.)=-4 THEN WPSS(5)=0;

          ELSE WPSS(5)=R(10262.);

          IF R(10265.)=-4 THEN SEIS(5)=0;

          ELSE SEIS(5)=R(10265.);

          IF R(10279.)=-4 & R(10280.)=-4 THEN UIS(5)=0;

          ELSE IF R(10279.)>0 & R(10280.)>0 THEN UIS(5)=R(10279.) * R(10280.);

          ELSE IF R(10280.)<0 THEN UIS(5)=R(10280.);

          ELSE UIS(5)=-3;

          IF R(10283.)=-4 THEN ALIM(5)=0;

          ELSE ALIM(5)=R(10283.);

          IF R(10288.)=-4 THEN CHSP(5)=0;

          ELSE CHSP(5)=R(10288.);

          IF R(10304.)=-4 THEN AFDC(5)=0;

          ELSE DO;

             B=0;

             DO J=10292. TO 10303.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(10304.)<0 THEN AFDC(5)=R(10304.);

             ELSE IF B<=0 THEN AFDC(5)=-3;

             ELSE AFDC(5)=R(10304.) * B;

          END;

          IF R(10318.)=-4 THEN FOOD(5)=0;

          ELSE DO;

             B=0;

             DO J=10306. TO 10317.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(10318.)<0 THEN FOOD(5)=R(10318.);

             ELSE IF B<=0 THEN FOOD(5)=-3;

             ELSE FOOD(5)=R(10318.) * B;

          END;

          IF R(10332.)=-4 THEN WELF(5)=0;

          ELSE DO;

             B=0;

             DO J=10320. TO 10331.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(10332.)<0 THEN WELF(5)=R(10332.);

             ELSE IF B<=0 THEN WELF(5)=-3;

             ELSE WELF(5)=R(10332.) * B;

          END;

          IF R(10346.)=-4 THEN PUBLIC(5)=0;

          ELSE DO;

             B=0;

             DO J=10334. TO 10345.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(10346.)<0 THEN PUBLIC(5)=R(10346.);

             ELSE IF B<=0 THEN PUBLIC(5)=-3;

             ELSE PUBLIC(5)=R(10346.) * B;

          END;

          IF R(10351.)=-4 THEN ED(5)=0;

          ELSE ED(5)=R(10351.);

          IF R(10352.)=-4 THEN EDSS(5)=0;

          ELSE EDSS(5)=R(10352.);

          IF R(10354.)=-4 THEN VET(5)=0;

          ELSE VET(5)=R(10354.);

          IF R(10358.)=-4 THEN GIFT(5)=0;

          ELSE GIFT(5)=R(10358.);

          IF R(10360.)=-4 THEN OTHER(5)=0;

          ELSE OTHER(5)=R(10360.);

          IF R(10368.)=-4 THEN RELWEL(5)=0;

          ELSE RELWEL(5)=R(10368.);

          IF R(10375.)=-4 THEN RELREG(5)=0;

          ELSE RELREG(5)=R(10375.);

          IF R(10779.)=-4 THEN POVERTY(5)=0;

          ELSE POVERTY(5)=R(10779.);

          FAMILY(5)=0;

          DO J=10556. TO 10654. BY 7;

             IF R(J)<0 ! (R(J)>=33 & R(J)<=36) ! R(J)=45 ! R(J)=46 !

                (R(J)>=50 & R(J)<=54) THEN A=1;

                ELSE FAMILY(5)=FAMILY(5)+1;

          END;

          DO I=1 TO 5;

             MN=0;

             FAMINC(I)=0;

             DO K=MIL(I),MILS(I),WPS(I),WPSS(I),SEI(I),SEIS(I),UI(I),

                UIS(I),ALIM(I),CHSP(I),AFDC(I),FOOD(I),WELF(I),

                PUBLIC(I),ED(I),EDSS(I) VET(I),GIFT(I),OTHER(I),

                RELWEL(I),RELREG(I);

                IF K<0 THEN MN(I,ABS(K))=MN(I,ABS(K))+1;

                ELSE FAMINC(I)=FAMINC(I) + K;

             END;

             SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

             INCOME(I)=-3;

             IF INC(I)=-5 THEN DO;

                INCOME(I),CPS(I)=-5;

             END;

             ELSE INC(I)^=-4 THEN INCOME(I)=INC(I);

             ELSE DO;

                IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

                ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

                END;

             END;

             IF I>2 THEN DO;

                IF FAMILY(I)>0 THEN DO;

                   LEVEL(I)=TABLE(I,S(I),FARM(I),FAMILY(I));

                   IF INC(I)>LEVEL(I) ! FAMINC(I)>LEVEL(I) THEN CPS(I)=0;

                   ELSE IF INC(I)>=0 ! (SUMN(I)=0 & INC(I)=-4) THEN CPS(I)=1;

                   ELSE IF POVERTY(I)>0 THEN CPS(I)=POVERTY(I)-1;

                   ELSE CPS(I)=-3;

                END;

                END;

                IF CPS(I)=-3 & FAMILY(I)>0 & YOUTH(I)>

                   TABLE(I,S(I),FARM(I),FAMILY(I)) THEN CPS(I)=0;

             END;

          IF I=2 THEN DO;

             IF INCOME(2)=-5 THEN CPS(2)=-5;

             ELSE DO;

                   IF INC(2)>=0 & FAMILY(2)>0 THEN CPS(2)=1;

                   ELSE DO;

                      IF SUMN(2)=0 & (R(4027.)=3 ! R(4029.)>1) & FAMILY(2)>0

                         THEN CPS(2)=1;

                      ELSE IF POVERTY(2)>0 THEN CPS(2)=POVE RTY(2)-1;

                      ELSE CPS(2)=-3;

                   END;

                END;

             END;

          END;

          R(2179.)=INCOME(1);

          R(4060.)=INCOME(2);

          R(4061.)=POVERTY(2);

          R(6184.10)=INCOME(3);

          R(6185.)=POVERTY(3);

          R(8986.)=INCOME(4);

          R(8987.)=POVERTY(4);

          R(11445.10)=INCOME(5);

          R(11448.)=POVERTY(5);

VARIABLE CREATION: TOTAL NET FAMILY INCOME 1984-86

         DCL

           1 FAMILY_INCOME (6:8),

             5 AFDC,

             5 ALIM,

             5 CHSP,

             5 CPS,

             5 ED,

             5 EDSS,

             5 FAMILY,

             5 FAMINC,

             5 FARM,

             5 FOOD,

             5 GIFT,

             5 INC,

             5 INCOME,

             5 LEVEL,

             5 MIL,

             5 MILS,

             5 MN (3),

             5 OTHER,

             5 POVERTY,

             5 PUBLIC,

             5 RELREG,

             5 RELWEL,

             5 S,

             5 SEI,

             5 SEIS,

             5 SUMN,

             5 TABLE(3,15),

             5 UI,

             5 UIS,

             5 VET,

             5 WELF,

             5 WPS,

             5 WPSS;

1984 VARIABLES

          FAMILY_INCOME=-4;

          IF R(15196.)=0 THEN INC(6)=-5;

          ELSE INC(6)=R(14534.);

          END;

          FARM(6)=1;

          LEVEL(6)=-4;

          IF R(14106.)=-4 THEN MIL(6)=0;

          ELSE MIL(6)=R(14106.);

          IF R(14107.)=-4 THEN WPS(6)=0;

          ELSE WPS(6)=R(14107.);

          IF R(14110.)=-4 THEN SEI(6)=0;

          ELSE SEI(6)=R(14110.);

          IF R(14124.)=-4 & R(14125.)=-4 THEN UI(6)=0;

          ELSE IF R(14124.)>0 & R(14125.)>0 THEN UI(6)=R(14124.) * R(14125.);

          ELSE IF R(14125.)<0 THEN UI(6)=R(14125.);

          ELSE UI(6)=-3;

          IF R(14128.)=-4 THEN MILS(6)=0;

          ELSE MILS(6)=R(14128.);

          IF R(14129.)=-4 THEN WPSS(6)=0;

          ELSE WPSS(6)=R(14129.);

          IF R(14132.)=-4 THEN SEIS(6)=0;

          ELSE SEIS(6)=R(14132.);

          IF R(14146.)=-4 & R(14147.)=-4 THEN UIS(6)=0;

          ELSE IF R(14146.)>0 & R(14147.)>0 THEN UIS(6)=R(14146.) * R(14147.);

          ELSE IF R(14147.)<0 THEN UIS(6)=R(14147.);

          ELSE UIS(6)=-3;

          IF R(14150.)=-4 THEN ALIM(6)=0;

          ELSE ALIM(6)=R(14150.);

          IF R(14155.)=-4 THEN CHSP(6)=0;

          ELSE CHSP(6)=R(14155.);

          IF R(14171.)=-4 THEN AFDC(6)=0;

          ELSE DO;

             B=0;

             DO J=14159. TO 14170.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(14171.)<0 THEN AFDC(6)=R(14171.);

             ELSE IF B<=0 THEN AFDC(6)=-3;

             ELSE AFDC(6)=R(14171.) * B;

          END;

          IF R(14185.)=-4 THEN FOOD(6)=0;

          ELSE DO;

             B=0;

             DO J=14173. TO 14184.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(14185.)<0 THEN FOOD(6)=R(14185.);

             ELSE IF B<=0 THEN FOOD(6)=-3;

             ELSE FOOD(6)=R(14185.) * B;

          END;

          IF R(14199.)=-4 THEN WELF(6)=0;

          ELSE DO;

             B=0;

             DO J=14187. TO 14198.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(14199.)<0 THEN WELF(6)=R(14199.);

             ELSE IF B<=0 THEN WELF(6)=-3;

             ELSE WELF(6)=R(14199.) * B;

          END;

          IF R(14213.)=-4 THEN PUBLIC(6)=0;

          ELSE DO;

             B=0;

             DO J=14201. TO 14212.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(14213.)<0 THEN PUBLIC(6)=R(14213.);

             ELSE IF B<=0 THEN PUBLIC(6)=-3;

             ELSE PUBLIC(6)=R(14213.) * B;

          END;

          IF R(14218.)=-4 THEN ED(6)=0;

          ELSE ED(6)=R(14218.);

          IF R(14219.)=-4 THEN EDSS(6)=0;

          ELSE EDSS(6)=R(14219.);

          IF R(14221.)=-4 THEN VET(6)=0;

          ELSE VET(6)=R(14221.);

          IF R(14225.)=-4 THEN GIFT(6)=0;

          ELSE GIFT(6)=R(14225.);

          IF R(14227.)=-4 THEN OTHER(6)=0;

          ELSE OTHER(6)=R(14227.);

          IF R(14235.)=-4 THEN RELWEL(6)=0;

          ELSE RELWEL(6)=R(14235.);

          IF R(14242.)=-4 THEN RELREG(6)=0;

          ELSE RELREG(6)=R(14242.);

          IF R(14536.)=-4 THEN POVERTY(6)=0;

          ELSE POVERTY(6)=R(14536.);

          FAMILY(6)=FAMSIZE; /* TO CREATE FAMILY SIZE (I.E. FAMSIZE)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

1985 VARIABLES

          IF R(18902.)=0 THEN INC(7)=-5;

          ELSE INC(7)=R(18006.);

          END;

          FARM(7)=1;

          LEVEL(7)=-4;

          IF R(17784.)=-4 THEN MIL(7)=0;

          ELSE MIL(7)=R(17784.);

          IF R(17785.)=-4 THEN WPS(7)=0;

          ELSE WPS(7)=R(17785.);

          IF R(17788.)=-4 THEN SEI(7)=0;

          ELSE SEI(7)=R(17788.);

          IF R(17802.)=-4 & R(17803.)=-4 THEN UI(7)=0;

          ELSE IF R(17802.)>0 & R(17803.)>0 THEN UI(7)=R(17802.) * R(17803.);

          ELSE IF R(17803.)<0 THEN UI(7)=R(17803.);

          ELSE UI(7)=-3;

          IF R(17806.)=-4 THEN MILS(7)=0;

          ELSE MILS(7)=R(17806.);

          IF R(17807.)=-4 THEN WPSS(7)=0;

          ELSE WPSS(7)=R(17807.);

          IF R(17810.)=-4 THEN SEIS(7)=0;

          ELSE SEIS(7)=R(17810.);

          IF R(17824.)=-4 & R(17825.)=-4 THEN UIS(7)=0;

          ELSE IF R(17824.)>0 & R(17825.)>0 THEN UIS(7)=R(17824.) * R(17825.);

          ELSE IF R(17825.)<0 THEN UIS(7)=R(17825.);

          ELSE UIS(7)=-3;

          IF R(17828.)=-4 THEN ALIM(7)=0;

          ELSE ALIM(7)=R(17828.);

          IF R(17833.)=-4 THEN CHSP(7)=0;

          ELSE CHSP(7)=R(17833.);

          IF R(17849.)=-4 THEN AFDC(7)=0;

          ELSE DO;

             B=0;

             DO J=17837. TO 17848.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(17849.)<0 THEN AFDC(7)=R(17849.);

             ELSE IF B<=0 THEN AFDC(7)=-3;

             ELSE AFDC(7)=R(17849.) * B;

          END;

          IF R(17863.)=-4 THEN FOOD(7)=0;

          ELSE DO;

             B=0;

             DO J=17851. TO 17862.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(17863.)<0 THEN FOOD(7)=R(17863.);

             ELSE IF B<=0 THEN FOOD(7)=-3;

             ELSE FOOD(7)=R(17863.) * B;

          END;

          IF R(17877.)=-4 THEN PUBLIC(7)=0;

          ELSE DO;

             B=0;

             DO J=17865. TO 17876.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(17877.)<0 THEN PUBLIC(7)=R(17877.);

             ELSE IF B<=0 THEN PUBLIC(7)=-3;

             ELSE PUBLIC(7)=R(17877.) * B;

          END;

          IF R(17882.)=-4 THEN ED(7)=0;

          ELSE ED(7)=R(17882.);

          IF R(17883.)=-4 THEN EDSS(7)=0;

          ELSE EDSS(7)=R(17883.);

          IF R(17885.)=-4 THEN VET(7)=0;

          ELSE VET(7)=R(17885.);

          IF R(17887.)=-4 THEN OTHER(7)=0;

          ELSE OTHER(7)=R(17887.);

          IF R(17895.)=-4 THEN RELWEL(7)=0;

          ELSE RELWEL(7)=R(17895.);

          IF R(17897.)=-4 THEN RELREG(7)=0;

          ELSE RELREG(7)=R(17897.);

          IF R(18008.)=-4 THEN POVERTY(7)=0;

          ELSE POVERTY(7)=R(18008.);

          FAMILY(7)=FAMSZ85; /* TO CREATE FAMILY SIZE (I.E. FAMSZ85)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

1986 VARIABLES

          IF R(22573.)=0 THEN INC(8)=-5;

          ELSE INC(8)=R(21622.);

          END;

          FARM(8)=1;

          LEVEL(8)=-4;

          IF R(21415.)=-4 THEN MIL(8)=0;

          ELSE MIL(8)=R(21415.);

          IF R(21416.)=-4 THEN WPS(8)=0;

          ELSE WPS(8)=R(21416.);

          IF R(21419.)=-4 THEN SEI(8)=0;

          ELSE SEI(8)=R(21419.);

          IF R(21433.)=-4 & R(21434.)=-4 THEN UI(8)=0;

          ELSE IF R(21433.)>0 & R(21434.)>0 THEN UI(8)=R(21433.) * R(21434.);

          ELSE IF R(21434.)<0 THEN UI(8)=R(21434.);

          ELSE UI(8)=-3;

          IF R(21437.)=-4 THEN MILS(8)=0;

          ELSE MILS(8)=R(21437.);

          IF R(21438.)=-4 THEN WPSS(8)=0;

          ELSE WPSS(8)=R(21438.);

          IF R(21441.)=-4 THEN SEIS(8)=0;

          ELSE SEIS(8)=R(21441.);

          IF R(21455.)=-4 & R(21456.)=-4 THEN UIS(8)=0;

          ELSE IF R(21455.)>0 & R(21456.)>0 THEN UIS(8)=R(21455.) * R(21456.);

          ELSE IF R(21456.)<0 THEN UIS(8)=R(21456.);

          ELSE UIS(8)=-3;

          IF R(21459.)=-4 THEN ALIM(8)=0;

          ELSE ALIM(8)=R(21459.);

          IF R(21464.)=-4 THEN CHSP(8)=0;

          ELSE CHSP(8)=R(21464.);

          IF R(21480.)=-4 THEN AFDC(8)=0;

          ELSE DO;

             B=0;

             DO J=21468. TO 21479.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(21480.)<0 THEN AFDC(8)=R(21480.);

             ELSE IF B<=0 THEN AFDC(8)=-3;

             ELSE AFDC(8)=R(21480.) * B;

          END;

          IF R(21494.)=-4 THEN FOOD(8)=0;

          ELSE DO;

             B=0;

             DO J=21482. TO 21493.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(21494.)<0 THEN FOOD(8)=R(21494.);

             ELSE IF B<=0 THEN FOOD(8)=-3;

             ELSE FOOD(8)=R(21494.) * B;

          END;

          IF R(21508.)=-4 THEN PUBLIC(8)=0;

          ELSE DO;

             B=0;

             DO J=21496. TO 21507.;

                IF R(J)>0 & B^=NA THEN B=B+1;

                ELSE IF R(J)>-4 & R(J)<0 THEN B=NA;

             END;

             IF R(21508.)<0 THEN PUBLIC(8)=R(21508.);

             ELSE IF B<=0 THEN PUBLIC(8)=-3;

             ELSE PUBLIC(8)=R(21508.) * B;

          END;

          IF R(21513.)=-4 THEN ED(8)=0;

          ELSE ED(8)=R(21513.);

          IF R(21514.)=-4 THEN EDSS(8)=0;

          ELSE EDSS(8)=R(21514.);

          IF R(21516.)=-4 THEN VET(8)=0;

          ELSE VET(8)=R(21516.);

          IF R(21518.)=-4 THEN OTHER(8)=0;

          ELSE OTHER(8)=R(21518.);

          IF R(21526.)=-4 THEN RELWEL(8)=0;

          ELSE RELWEL(8)=R(21526.);

          IF R(21528.)=-4 THEN RELREG(8)=0;

          ELSE RELREG(8)=R(21528.);

          IF R(21624.)=-4 THEN POVERTY(8)=0;

          ELSE POVERTY(8)=R(21624.);

          FAMILY(8)=FAMSZ86; /* TO CREATE FAMILY SIZE (I.E. FAMSZ86)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DO I=6 TO 8;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            FAMINC(I)=0;

            DO K=MIL(I),MILS(I),WPS(I),WPSS(I),SEI(I),SEIS(I),UI(I),

                 UIS(I),ALIM(I),CHSP(I),AFDC(I),FOOD(I),WELF(I),

                 PUBLIC(I),ED(I),EDSS(I),VET(I),GIFT(I),OTHER(I),

                 RELWEL(I),RELREG(I);

                 IF K>-4 THEN DO;

                    IF K<0 THEN MN(I,ABS(K))=MN(I,ABS(K))+1;

                    ELSE FAMINC(I)=FAMINC(I) + K;

                 END;

            END;

            SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

            INCOME(I)=-3;

            IF INC(I)=-5 THEN DO;

               INCOME(I)=-5; CPS(I)=-5;

            END;

            ELSE IF INC(I)^=-4 THEN DO;

               INCOME(I)=INC(I);

               IF INC(I)<0 THEN DO;

                   MN(I,ABS(INC(I)))=1;

                   SUMN(I)=1;

               END;

            END;

            ELSE DO;

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

            END;

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INC(I)>LEVEL(I) ! FAMINC(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INC(I)>=0 ! (SUMN(I)=0 & INC(I)=-4)

                     THEN CPS(I)=1;

                ELSE IF POVERTY(I)>0 THEN CPS(I)=POVERTY(I)-1;

                ELSE CPS(I)=-3;

            END;

            ELSE IF CPS(I)^=-5 THEN DO;

                ELSE IF POVERTY(I)>0 THEN CPS(I)=POVERTY(I)-1;

                ELSE CPS(I)=-3;

            END;

        END;

 INCOME(6)=R(15197.);

 CPS(6)=R(15198.);

 INCOME(7)=R(18904.);

 CPS(7)=R(18905.);

 INCOME(8)=R(22575.);

 CPS(8)=R(22576.);

1987 VARIABLES

          DCL

           1 FAMILY_INCOME (9),

             5 AFDC,

             5 ALIM,

             5 CHSP,

             5 CPS,

             5 ED,

             5 EDSS,

             5 FAMILY,

             5 FAMINC,

             5 FAMINC_CENSUS,

             5 FARM,

             5 FOOD,

             5 GIFT,

             5 INC,

             5 INCOME,

             5 INCOME_CENSUS,

             5 LEVEL,

             5 MIL,

             5 MILS,

             5 MN (3),

             5 MN_CENSUS (3),

             5 OTHER,

             5 POVERTY,

             5 PUBLIC,

             5 RELREG,

             5 RELWEL,

             5 S,

             5 SEI,

             5 SEIS,

             5 SUMN,

             5 SUMN_CENSUS,

             5 TABLE(3,15),

             5 UI,

             5 UIS,

             5 VET,

             5 WELF,

             5 WPS,

             5 WPSS;

          /* 1987 POVERTY INCOME GUIDELINES TABLE */

          IF R(23502.)=-4 THEN MIL(9)=0;

          ELSE MIL(9)=R(23502.);

          IF R(23503.)=-4 THEN WPS(9)=0;

          ELSE WPS(9)=R(23503.);

          IF R(23506.)=-4 THEN SEI(9)=0;

          ELSE SEI(9)=R(23506.);

          IF R(23520.)=-4 & R(23521.)=-4 THEN UI(9)=0;

          ELSE IF R(23520.)>0 & R(23521.)>0 THEN UI(9)=R(23520.) * R(23521.);

          ELSE IF R(23521.)<0 THEN UI(9)=R(23521.);

          ELSE UI(9)=-3;

          IF R(23524.)=-4 THEN MILS(9)=0;

          ELSE MILS(9)=R(23524.);

          IF R(23525.)=-4 THEN WPSS(9)=0;

          ELSE WPSS(9)=R(23525.);

          IF R(23528.)=-4 THEN SEIS(9)=0;

          ELSE SEIS(9)=R(23528.);

          IF R(23542.)=-4 & R(23543.)=-4 THEN UIS(9)=0;

          ELSE IF R(23542.)>0 & R(23543.)>0 THEN UIS(9)=R(23542.) * R(23543.);

          ELSE IF R(23543.)<0 THEN UIS(9)=R(23543.);

          ELSE UIS(9)=-3;

          IF R(23546.)=-4 THEN ALIM(9)=0;

          ELSE ALIM(9)=R(23546.);

          IF R(23551.)=-4 THEN CHSP(9)=0;

          ELSE CHSP(9)=R(23551.);

          IF R(23567.)=-4 THEN AFDC(9)=0;

          ELSE DO;

             B=0;

                IF R(23555.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23555.)>-4 & R(23555.)<0 THEN B=NA;

                IF R(23556.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23556.)>-4 & R(23556.)<0 THEN B=NA;

                IF R(23557.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23557.)>-4 & R(23557.)<0 THEN B=NA;

                IF R(23558.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23558.)>-4 & R(23558.)<0 THEN B=NA;

                IF R(23559.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23559.)>-4 & R(23559.)<0 THEN B=NA;

                IF R(23560.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23560.)>-4 & R(23560.)<0 THEN B=NA;

                IF R(23561.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23561.)>-4 & R(23561.)<0 THEN B=NA;

                IF R(23562.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23562.)>-4 & R(23562.)<0 THEN B=NA;

                IF R(23563.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23563.)>-4 & R(23563.)<0 THEN B=NA;

                IF R(23564.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23564.)>-4 & R(23564.)<0 THEN B=NA;

                IF R(23565.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23565.)>-4 & R(23565.)<0 THEN B=NA;

                IF R(23566.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23566.)>-4 & R(23566.)<0 THEN B=NA;

             IF R(23567.)<0 THEN AFDC(9)=R(23567.);

             ELSE IF B<=0 THEN AFDC(9)=-3;

             ELSE AFDC(9)=R(23567.) * B;

          END;

          IF R(23581.)=-4 THEN FOOD(9)=0;

          ELSE DO;

             B=0;

                IF R(23569.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23569.)>-4 & R(23569.)<0 THEN B=NA;

                IF R(23570.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23570.)>-4 & R(23570.)<0 THEN B=NA;

                IF R(23571.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23571.)>-4 & R(23571.)<0 THEN B=NA;

                IF R(23572.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23572.)>-4 & R(23572.)<0 THEN B=NA;

                IF R(23573.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23573.)>-4 & R(23573.)<0 THEN B=NA;

                IF R(23574.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23574.)>-4 & R(23574.)<0 THEN B=NA;

                IF R(23575.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23575.)>-4 & R(23575.)<0 THEN B=NA;

                IF R(23576.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23576.)>-4 & R(23576.)<0 THEN B=NA;

                IF R(23577.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23577.)>-4 & R(23577.)<0 THEN B=NA;

                IF R(23578.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23578.)>-4 & R(23578.)<0 THEN B=NA;

                IF R(23579.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23579.)>-4 & R(23579.)<0 THEN B=NA;

                IF R(23580.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23580.)>-4 & R(23580.)<0 THEN B=NA;

             IF R(23581.)<0 THEN FOOD(9)=R(23581.);

             ELSE IF B<=0 THEN FOOD(9)=-3;

             ELSE FOOD(9)=R(23581.) * B;

          END;

          IF R(23595.)=-4 THEN PUBLIC(9)=0;

          ELSE DO;

             B=0;

                IF R(23583.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23583.)>-4 & R(23583.)<0 THEN B=NA;

                IF R(23584.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23584.)>-4 & R(23584.)<0 THEN B=NA;

                IF R(23585.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23585.)>-4 & R(23585.)<0 THEN B=NA;

                IF R(23586.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23586.)>-4 & R(23586.)<0 THEN B=NA;

                IF R(23587.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23587.)>-4 & R(23587.)<0 THEN B=NA;

                IF R(23588.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23588.)>-4 & R(23588.)<0 THEN B=NA;

                IF R(23589.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23589.)>-4 & R(23589.)<0 THEN B=NA;

                IF R(23590.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23590.)>-4 & R(23590.)<0 THEN B=NA;

                IF R(23591.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23591.)>-4 & R(23591.)<0 THEN B=NA;

                IF R(23592.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23592.)>-4 & R(23592.)<0 THEN B=NA;

                IF R(23593.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23593.)>-4 & R(23593.)<0 THEN B=NA;

                IF R(23594.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(23594.)>-4 & R(23594.)<0 THEN B=NA;

             IF R(23595.)<0 THEN PUBLIC(9)=R(23595.);

             ELSE IF B<=0 THEN PUBLIC(9)=-3;

             ELSE PUBLIC(9)=R(23595.) * B;

          END;

          IF R(23600.)=-4 THEN ED(9)=0;

          ELSE ED(9)=R(23600.);

          IF R(23601.)=-4 THEN EDSS(9)=0;

          ELSE EDSS(9)=R(23601.);

          IF R(23603.)=-4 THEN VET(9)=0;

          ELSE VET(9)=R(23603.);

          IF R(23605.)=-4 THEN OTHER(9)=0;

          ELSE OTHER(9)=R(23605.);

          IF VET(9)>0 & OTHER(9)=VET(9) THEN OTHER(9)=0;

          IF R(23612.)=-4 THEN RELWEL(9)=0;

          ELSE RELWEL(9)=R(23612.);

          IF R(23614.)=-4 THEN RELREG(9)=0;

          ELSE RELREG(9)=R(23614.);

          FAMILY(9)=FAMSZ87; /* TO CREATE FAMILY SIZE (I.E. FAMSZ87)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DCL COMPONENT(19) FIXED DEC(9);

         DO I=9;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            MN_CENSUS(I,1)=0; MN_CENSUS(I,2)=0; MN_CENSUS(I,3)=0;

            FAMINC(I)=0;

            FAMINC_CENSUS(I)=0;

            INCOME(I)=-3;

            INCOME_CENSUS(I)=-3;

            COMPONENT(1)=MIL(I);

            COMPONENT(2)=MILS(I);

            COMPONENT(3)=WPS(I);

            COMPONENT(4)=WPSS(I);

            COMPONENT(5)=SEI(I);

            COMPONENT(6)=SEIS(I);

            COMPONENT(7)=UI(I);

            COMPONENT(8)=UIS(I);

            COMPONENT(9)=ALIM(I);

            COMPONENT(10)=CHSP(I);

            COMPONENT(11)=AFDC(I);

            COMPONENT(12)=PUBLIC(I);

            COMPONENT(13)=ED(I);

            COMPONENT(14)=EDSS(I);

            COMPONENT(15)=VET(I);

            COMPONENT(16)=OTHER(I);

            COMPONENT(17)=RELWEL(I);

            COMPONENT(18)=RELREG(I);

            COMPONENT(19)=FOOD(I);

            IF WEIGHT(I)=0 THEN DO;

               INCOME(I)=-5;

               INCOME_CENSUS(I)=-5;

               CPS(I)=-5;

               LEVEL(I)=-5;

            END;

            ELSE DO;

                 DO K=1 TO 19;

                    IF COMPONENT(K)>-4 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);

                     END;

                 IF K<19 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN_CENSUS(I,ABS(COMPONENT(K)))=

                             MN_CENSUS(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC_CENSUS(I)=FAMINC_CENSUS(I)+COMPONENT(K);

                     END;

                  END;

               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

               SUMN_CENSUS(I)=MN_CENSUS(I,1) + MN_CENSUS(I,2) +

                              MN_CENSUS(I,3);

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

               IF SUMN_CENSUS(I)=0 THEN INCOME_CENSUS(I)=FAMINC_CENSUS(I);

               ELSE DO J=1 TO 3;

                   IF MN_CENSUS(I,J)>0 THEN INCOME_CENSUS(I)=-J;

               END;

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;

                ELSE CPS(I)=-3;

            END;

          END;

        END;

   DO I=1 TO 3;

      IF MN(9,I)>0 THEN MN(9,I)=1;

      IF MN_CENSUS(9,I)>0 THEN MN_CENSUS(9,I)=1;

   END;

   IF SUMN(9)>0 THEN SUMN(9)=1;

   IF SUMN_CENSUS(9)>0 THEN SUMN_CENSUS(9)=1;

 INCOME(9)=R(24447.);

 INCOME_CENSUS(9)=R(24448.);

 CPS(9)=R(24449.);

 LEVEL(9)=R(24450.);

1988 VARIABLES

         DCL

           1 FAMILY_INCOME (10),

             5 (AFDC,

                ALIM,

                CHSP,

                CPS,

                ED,

                EDSS,

                FAMILY,

                FAMINC,

                FOOD,

                INCOME,

                LEVEL,

                MIL,

                MILS,

                MN (3),

                OTHER,

                PUBLIC,

                RELREG,

                RELWEL,

                S,

                SEI,

                SEIS,

                SUMN,

                TABLE(3,15),

                UI,

                UIS,

                VET,

                WPS,

                WPSS) FIXED DEC(9);

    /* 1988 POVERTY INCOME GUIDELINES TABLE */

 

          IF R(27224.)=-4 THEN MIL(10)=0;

          ELSE MIL(10)=R(27224.);

          IF R(27225.)=-4 THEN WPS(10)=0;

          ELSE WPS(10)=R(27225.);

          IF R(27228.)=-4 THEN SEI(10)=0;

          ELSE SEI(10)=R(27228.);

          IF R(27242.)=-4 & R(27243.)=-4 THEN UI(10)=0;

          ELSE IF R(27242.)>0 & R(27243.)>0 THEN UI(10)=R(27242.) * R(27243.);

          ELSE IF R(27243.)<0 THEN UI(10)=R(27243.);

          ELSE UI(10)=-3;

          IF R(27246.)=-4 THEN MILS(10)=0;

          ELSE MILS(10)=R(27246.);

          IF R(27247.)=-4 THEN WPSS(10)=0;

          ELSE WPSS(10)=R(27247.);

          IF R(27250.)=-4 THEN SEIS(10)=0;

          ELSE SEIS(10)=R(27250.);

          IF R(27264.)=-4 & R(27265.)=-4 THEN UIS(10)=0;

          ELSE IF R(27264.)>0 & R(27265.)>0 THEN UIS(10)=R(27264.)*R(27265.);

          ELSE IF R(27265.)<0 THEN UIS(10)=R(27265.);

          ELSE UIS(10)=-3;

          IF R(27268.)=-4 THEN ALIM(10)=0;

          ELSE ALIM(10)=R(27268.);

          IF R(27273.)=-4 THEN CHSP(10)=0;

          ELSE CHSP(10)=R(27273.);

          IF R(27289.)=-4 THEN AFDC(10)=0;

          ELSE DO;

             B=0;

                IF R(27277.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27277.)>-4 & R(27277.)<0 THEN B=NA;

                IF R(27278.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27278.)>-4 & R(27278.)<0 THEN B=NA;

                IF R(27279.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27279.)>-4 & R(27279.)<0 THEN B=NA;

                IF R(27280.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27280.)>-4 & R(27280.)<0 THEN B=NA;

                IF R(27281.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27281.)>-4 & R(27281.)<0 THEN B=NA;

                IF R(27282.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27282.)>-4 & R(27282.)<0 THEN B=NA;

                IF R(27283.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27283.)>-4 & R(27283.)<0 THEN B=NA;

                IF R(27284.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27284.)>-4 & R(27284.)<0 THEN B=NA;

                IF R(27285.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27285.)>-4 & R(27285.)<0 THEN B=NA;

                IF R(27286.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27286.)>-4 & R(27286.)<0 THEN B=NA;

                IF R(27287.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27287.)>-4 & R(27287.)<0 THEN B=NA;

                IF R(27288.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27288.)>-4 & R(27288.)<0 THEN B=NA;

             IF R(27289.)<0 THEN AFDC(10)=R(27289.);

             ELSE IF B<=0 THEN AFDC(10)=-3;

             ELSE AFDC(10)=R(27289.) * B;

          END;

          IF R(27303.)=-4 THEN FOOD(10)=0;

          ELSE DO;

             B=0;

                IF R(27291.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27291.)>-4 & R(27291.)<0 THEN B=NA;

                IF R(27292.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27292.)>-4 & R(27292.)<0 THEN B=NA;

                IF R(27293.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27293.)>-4 & R(27293.)<0 THEN B=NA;

                IF R(27294.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27294.)>-4 & R(27294.)<0 THEN B=NA;

                IF R(27295.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27295.)>-4 & R(27295.)<0 THEN B=NA;

                IF R(27296.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27296.)>-4 & R(27296.)<0 THEN B=NA;

                IF R(27297.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27297.)>-4 & R(27297.)<0 THEN B=NA;

                IF R(27298.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27298.)>-4 & R(27298.)<0 THEN B=NA;

                IF R(27299.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27299.)>-4 & R(27299.)<0 THEN B=NA;

                IF R(27300.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27300.)>-4 & R(27300.)<0 THEN B=NA;

                IF R(27301.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27301.)>-4 & R(27301.)<0 THEN B=NA;

                IF R(27302.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27302.)>-4 & R(27302.)<0 THEN B=NA;

             IF R(27303.)<0 THEN FOOD(10)=R(27303.);

             ELSE IF B<=0 THEN FOOD(10)=-3;

             ELSE FOOD(10)=R(27303.) * B;

          END;

          IF R(27317.)=-4 THEN PUBLIC(10)=0;

          ELSE DO;

             B=0;

                IF R(27305.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27305.)>-4 & R(27305.)<0 THEN B=NA;

                IF R(27306.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27306.)>-4 & R(27306.)<0 THEN B=NA;

                IF R(27307.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27307.)>-4 & R(27307.)<0 THEN B=NA;

                IF R(27308.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27308.)>-4 & R(27308.)<0 THEN B=NA;

                IF R(27309.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27309.)>-4 & R(27309.)<0 THEN B=NA;

                IF R(27310.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27310.)>-4 & R(27310.)<0 THEN B=NA;

                IF R(27311.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27311.)>-4 & R(27311.)<0 THEN B=NA;

                IF R(27312.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27312.)>-4 & R(27312.)<0 THEN B=NA;

                IF R(27313.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27313.)>-4 & R(27313.)<0 THEN B=NA;

                IF R(27314.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27314.)>-4 & R(27314.)<0 THEN B=NA;

                IF R(27315.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27315.)>-4 & R(27315.)<0 THEN B=NA;

                IF R(27316.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(27316.)>-4 & R(27316.)<0 THEN B=NA;

             IF R(27317.)<0 THEN PUBLIC(10)=R(27317.);

             ELSE IF B<=0 THEN PUBLIC(10)=-3;

             ELSE PUBLIC(10)=R(27317.) * B;

          END;

          IF R(27322.)=-4 THEN ED(10)=0;

          ELSE ED(10)=R(27322.);

          IF R(27323.)=-4 THEN EDSS(10)=0;

          ELSE EDSS(10)=R(27323.);

          IF R(27325.)=-4 THEN VET(10)=0;

          ELSE VET(10)=R(27325.);

          IF R(27332.)=-4 THEN OTHER(10)=0;

          ELSE OTHER(10)=R(27332.);

          IF VET(10)>0 & OTHER(10)=VET(10) THEN OTHER(10)=0;

          IF R(27339.)=-4 THEN RELWEL(10)=0;

          ELSE RELWEL(10)=R(27339.);

          IF R(27341.)=-4 THEN RELREG(10)=0;

          ELSE RELREG(10)=R(27341.);

          FAMILY(10)=FAMSZ88; /* TO CREATE FAMILY SIZE (I.E. FAMSZ88)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DCL COMPONENT(19) FIXED DEC(9);

         DO I=10;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            FAMINC(I)=0;

            INCOME(I)=-3;

            COMPONENT(1)=MIL(I);

            COMPONENT(2)=MILS(I);

            COMPONENT(3)=WPS(I);

            COMPONENT(4)=WPSS(I);

            COMPONENT(5)=SEI(I);

            COMPONENT(6)=SEIS(I);

            COMPONENT(7)=UI(I);

            COMPONENT(8)=UIS(I);

            COMPONENT(9)=ALIM(I);

            COMPONENT(10)=CHSP(I);

            COMPONENT(11)=AFDC(I);

            COMPONENT(12)=PUBLIC(I);

            COMPONENT(13)=ED(I);

            COMPONENT(14)=EDSS(I);

            COMPONENT(15)=VET(I);

            COMPONENT(16)=OTHER(I);

            COMPONENT(17)=RELWEL(I);

            COMPONENT(18)=RELREG(I);

            COMPONENT(19)=FOOD(I);

            IF WEIGHT(I)=0 THEN DO;

               INCOME(I)=-5;

               CPS(I)=-5;

               LEVEL(I)=-5;

            END;

            ELSE DO;

                 DO K=1 TO 19;

                    IF COMPONENT(K)>-4 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);

                     END;

                  END;

               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;

                ELSE CPS(I)=-3;

            END;

          END;

        END;

   DO I=1 TO 3;

      IF MN(10,I)>0 THEN MN(10,I)=1;

   END;

   IF SUMN(10)>0 THEN SUMN(10)=1;

INCOME(10)=R(28702.);

CPS(10)=R(28704.);

LEVEL(10)=R(28705.);

1989 VARIABLES

         DCL

           1 FAMILY_INCOME (11),

             5 (AFDC,

                ALIM,

                CHSP,

                CPS,

                ED,

                EDSS,

                FAMILY,

                FAMINC,

                FOOD,

                INCOME,

                LEVEL,

                MIL,

                MILS,

                MN (3),

                OTHER,

                PUBLIC,

                RELREG,

                RELWEL,

                S,

                SEI,

                SEIS,

                SUMN,

                TABLE(3,15),

                UI,

                UIS,

                VET,

                WPS,

                WPSS) FIXED DEC(9);

    /* 1989 POVERTY INCOME GUIDELINES TABLE */

 

          IF R(29713.)=-4 THEN MIL(11)=0;

          ELSE MIL(11)=R(29713.);

          IF R(29714.)=-4 THEN WPS(11)=0;

          ELSE WPS(11)=R(29714.);

          IF R(29717.)=-4 THEN SEI(11)=0;

          ELSE SEI(11)=R(29717.);

          IF R(29731.)=-4 & R(29732.)=-4 THEN UI(11)=0;

          ELSE IF R(29731.)>0 & R(29732.)>0 THEN UI(11)=R(29731.) * R(29732.);

          ELSE IF R(29732.)<0 THEN UI(11)=R(29732.);

          ELSE UI(11)=-3;

          IF R(29735.)=-4 THEN MILS(11)=0;

          ELSE MILS(11)=R(29735.);

          IF R(29736.)=-4 THEN WPSS(11)=0;

          ELSE WPSS(11)=R(29736.);

          IF R(29739.)=-4 THEN SEIS(11)=0;

          ELSE SEIS(11)=R(29739.);

          IF R(29753.)=-4 & R(29754.)=-4 THEN UIS(11)=0;

          ELSE IF R(29753.)>0 & R(29754.)>0 THEN UIS(11)=R(29753.) * R(29754.);

          ELSE IF R(29754.)<0 THEN UIS(11)=R(29754.);

          ELSE UIS(11)=-3;

          IF R(29757.)=-4 THEN ALIM(11)=0;

          ELSE ALIM(11)=R(29757.);

          IF R(29759.)=-4 THEN CHSP(11)=0;

          ELSE CHSP(11)=R(29759.);

          IF R(29773.)=-4 THEN AFDC(11)=0;

          ELSE DO;

             B=0;

                IF R(29761.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29761.)>-4 & R(29761.)<0 THEN B=NA;

                IF R(29762.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29762.)>-4 & R(29762.)<0 THEN B=NA;

                IF R(29763.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29763.)>-4 & R(29763.)<0 THEN B=NA;

                IF R(29764.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29764.)>-4 & R(29764.)<0 THEN B=NA;

                IF R(29765.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29765.)>-4 & R(29765.)<0 THEN B=NA;

                IF R(29766.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29766.)>-4 & R(29766.)<0 THEN B=NA;

                IF R(29767.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29767.)>-4 & R(29767.)<0 THEN B=NA;

                IF R(29768.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29768.)>-4 & R(29768.)<0 THEN B=NA;

                IF R(29769.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29769.)>-4 & R(29769.)<0 THEN B=NA;

                IF R(29770.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29770.)>-4 & R(29770.)<0 THEN B=NA;

                IF R(29771.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29771.)>-4 & R(29771.)<0 THEN B=NA;

                IF R(29772.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29772.)>-4 & R(29772.)<0 THEN B=NA;

             IF R(29773.)<0 THEN AFDC(11)=R(29773.);

             ELSE IF B<=0 THEN AFDC(11)=-3;

             ELSE AFDC(11)=R(29773.) * B;

          END;

          IF R(29787.)=-4 THEN FOOD(11)=0;

          ELSE DO;

             B=0;

                IF R(29775.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29775.)>-4 & R(29775.)<0 THEN B=NA;

                IF R(29776.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29776.)>-4 & R(29776.)<0 THEN B=NA;

                IF R(29777.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29777.)>-4 & R(29777.)<0 THEN B=NA;

                IF R(29778.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29778.)>-4 & R(29778.)<0 THEN B=NA;

                IF R(29779.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29779.)>-4 & R(29779.)<0 THEN B=NA;

                IF R(29780.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29780.)>-4 & R(29780.)<0 THEN B=NA;

                IF R(29781.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29781.)>-4 & R(29781.)<0 THEN B=NA;

                IF R(29782.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29782.)>-4 & R(29782.)<0 THEN B=NA;

                IF R(29783.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29783.)>-4 & R(29783.)<0 THEN B=NA;

                IF R(29784.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29784.)>-4 & R(29784.)<0 THEN B=NA;

                IF R(29785.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29785.)>-4 & R(29785.)<0 THEN B=NA;

                IF R(29786.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29786.)>-4 & R(29786.)<0 THEN B=NA;

             IF R(29787.)<0 THEN FOOD(11)=R(29787.);

             ELSE IF B<=0 THEN FOOD(11)=-3;

             ELSE FOOD(11)=R(29787.) * B;

          END;

          IF R(29801.)=-4 THEN PUBLIC(11)=0;

          ELSE DO;

             B=0;

                IF R(29789.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29789.)>-4 & R(29789.)<0 THEN B=NA;

                IF R(29790.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29790.)>-4 & R(29790.)<0 THEN B=NA;

                IF R(29791.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29791.)>-4 & R(29791.)<0 THEN B=NA;

                IF R(29792.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29792.)>-4 & R(29792.)<0 THEN B=NA;

                IF R(29793.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29793.)>-4 & R(29793.)<0 THEN B=NA;

                IF R(29794.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29794.)>-4 & R(29794.)<0 THEN B=NA;

                IF R(29795.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29795.)>-4 & R(29795.)<0 THEN B=NA;

                IF R(29796.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29796.)>-4 & R(29796.)<0 THEN B=NA;

                IF R(29797.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29797.)>-4 & R(29797.)<0 THEN B=NA;

                IF R(29798.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29798.)>-4 & R(29798.)<0 THEN B=NA;

                IF R(29799.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29799.)>-4 & R(29799.)<0 THEN B=NA;

                IF R(29800.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(29800.)>-4 & R(29800.)<0 THEN B=NA;

             IF R(29801.)<0 THEN PUBLIC(11)=R(29801.);

             ELSE IF B<=0 THEN PUBLIC(11)=-3;

             ELSE PUBLIC(11)=R(29801.) * B;

          END;

          IF R(29806.)=-4 THEN ED(11)=0;

          ELSE ED(11)=R(29806.);

          IF R(29807.)=-4 THEN EDSS(11)=0;

          ELSE EDSS(11)=R(29807.);

          IF R(29809.)=-4 THEN VET(11)=0;

          ELSE VET(11)=R(29809.);

          IF R(29813.)=-4 THEN OTHER(11)=0;

          ELSE OTHER(11)=R(29813.);

          IF VET(11)>0 & OTHER(11)=VET(11) THEN OTHER(11)=0;

          IF R(29820.)=-4 THEN RELWEL(11)=0;

          ELSE RELWEL(11)=R(29820.);

          IF R(29822.)=-4 THEN RELREG(11)=0;

          ELSE RELREG(11)=R(29822.);

          FAMILY(11)=FAMSZ89; /* TO CREATE FAMILY SIZE (I.E. FAMSZ89)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DCL COMPONENT(19) FIXED DEC(9);

         DO I=11;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            FAMINC(I)=0;

            INCOME(I)=-3;

            COMPONENT(1)=MIL(I);

            COMPONENT(2)=MILS(I);

            COMPONENT(3)=WPS(I);

            COMPONENT(4)=WPSS(I);

            COMPONENT(5)=SEI(I);

            COMPONENT(6)=SEIS(I);

            COMPONENT(7)=UI(I);

            COMPONENT(8)=UIS(I);

            COMPONENT(9)=ALIM(I);

            COMPONENT(10)=CHSP(I);

            COMPONENT(11)=AFDC(I);

            COMPONENT(12)=PUBLIC(I);

            COMPONENT(13)=ED(I);

            COMPONENT(14)=EDSS(I);

            COMPONENT(15)=VET(I);

            COMPONENT(16)=OTHER(I);

            COMPONENT(17)=RELWEL(I);

            COMPONENT(18)=RELREG(I);

            COMPONENT(19)=FOOD(I);

            IF WEIGHT(I)=0 THEN DO;

               INCOME(I)=-5;

               CPS(I)=-5;

               LEVEL(I)=-5;

            END;

            ELSE DO;

                 DO K=1 TO 19;

                    IF COMPONENT(K)>-4 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);

                     END;

                  END;

               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;

                ELSE CPS(I)=-3;

            END;

          END;

        END;

   DO I=1 TO 3;

      IF MN(11,I)>0 THEN MN(11,I)=1;

   END;

   IF SUMN(11)>0 THEN SUMN(11)=1;

 INCOME(11)=R(30740);

 CPS(11)=R(30741);

 LEVEL(11)=R(30742);

1990 VARIABLES

           DO I=12;

                AFDC(I)=-4;

                ALIM(I)=-4;

                CHSP(I)=-4;

                CPS(I)=-4;

                ED(I)=-4;

                EDSS(I)=-4;

                FAMILY(I)=-4;

                FAMINC(I)=-4;

                FOOD(I)=-4;

                INCOME(I)=-4;

                LEVEL(I)=-4;

                MIL(I)=-4;

                MILS(I)=-4;

                DO J=1 TO 3;

                   MN(I,J)=-4;

                END;

                OTHER(I)=-4;

                PUBLIC(I)=-4;

                RELREG(I)=-4;

                RELWEL(I)=-4;

                S(I)=-4;

                SEI(I)=-4;

                SEIS(I)=-4;

                SUMN(I)=-4;

                DO J=1 TO 3;

                   DO K=1 TO 15;

                     TABLE(I,J,K)=-4;

                   END;

                END;

                UI(I)=-4;

                UIS(I)=-4;

                VET(I)=-4;

                WPS(I)=-4;

                WPSS(I)=-4;

          END;

          IF R(32793.)=-4 THEN MIL(12)=0;

          ELSE MIL(12)=R(32793.);

          IF R(32794.)=-4 THEN WPS(12)=0;

          ELSE WPS(12)=R(32794.);

          IF R(32797.)=-4 THEN SEI(12)=0;

          ELSE SEI(12)=R(32797.);

          IF R(32811.)=-4 & R(32812.)=-4 THEN UI(12)=0;

          ELSE IF R(32811.)>0 & R(32812.)>0 THEN UI(12)=R(32811.) * R(32812.);

          ELSE IF R(32812.)<0 THEN UI(12)=R(32812.);

          ELSE UI(12)=-3;

          IF R(32815.)=-4 THEN MILS(12)=0;

          ELSE MILS(12)=R(32815.);

          IF R(32816.)=-4 THEN WPSS(12)=0;

          ELSE WPSS(12)=R(32816.);

          IF R(32819.)=-4 THEN SEIS(12)=0;

          ELSE SEIS(12)=R(32819.);

          IF R(32833.)=-4 & R(32834.)=-4 THEN UIS(12)=0;

          ELSE IF R(32833.)>0 & R(32834.)>0 THEN UIS(12)=R(32833.) * R(32834.);

          ELSE IF R(32834.)<0 THEN UIS(12)=R(32834.);

          ELSE UIS(12)=-3;

          IF R(32837.)=-4 THEN ALIM(12)=0;

          ELSE ALIM(12)=R(32837.);

          IF R(32839.)=-4 THEN CHSP(12)=0;

          ELSE CHSP(12)=R(32839.);

          IF R(32853.)=-4 THEN AFDC(12)=0;

          ELSE DO;

             B=0;

                IF R(32841.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32841.)>-4 & R(32841.)<0 THEN B=NA;

                IF R(32842.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32842.)>-4 & R(32842.)<0 THEN B=NA;

                IF R(32843.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32843.)>-4 & R(32843.)<0 THEN B=NA;

                IF R(32844.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32844.)>-4 & R(32844.)<0 THEN B=NA;

                IF R(32845.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32845.)>-4 & R(32845.)<0 THEN B=NA;

                IF R(32846.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32846.)>-4 & R(32846.)<0 THEN B=NA;

                IF R(32847.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32847.)>-4 & R(32847.)<0 THEN B=NA;

                IF R(32848.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32848.)>-4 & R(32848.)<0 THEN B=NA;

                IF R(32849.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32849.)>-4 & R(32849.)<0 THEN B=NA;

                IF R(32850.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32850.)>-4 & R(32850.)<0 THEN B=NA;

                IF R(32851.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32851.)>-4 & R(32851.)<0 THEN B=NA;

                IF R(32852.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32852.)>-4 & R(32852.)<0 THEN B=NA;

             IF R(32853.)<0 THEN AFDC(12)=R(32853.);

             ELSE IF B<=0 THEN AFDC(12)=-3;

             ELSE AFDC(12)=R(32853.) * B;

          END;

          IF R(32867.)=-4 THEN FOOD(12)=0;

          ELSE DO;

             B=0;

                IF R(32855.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32855.)>-4 & R(32855.)<0 THEN B=NA;

                IF R(32856.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32856.)>-4 & R(32856.)<0 THEN B=NA;

                IF R(32857.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32857.)>-4 & R(32857.)<0 THEN B=NA;

                IF R(32858.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32858.)>-4 & R(32858.)<0 THEN B=NA;

                IF R(32859.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32859.)>-4 & R(32859.)<0 THEN B=NA;

                IF R(32860.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32860.)>-4 & R(32860.)<0 THEN B=NA;

                IF R(32861.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32861.)>-4 & R(32861.)<0 THEN B=NA;

                IF R(32862.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32862.)>-4 & R(32862.)<0 THEN B=NA;

                IF R(32863.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32863.)>-4 & R(32863.)<0 THEN B=NA;

                IF R(32864.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32864.)>-4 & R(32864.)<0 THEN B=NA;

                IF R(32865.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32865.)>-4 & R(32865.)<0 THEN B=NA;

                IF R(32866.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32866.)>-4 & R(32866.)<0 THEN B=NA;

             IF R(32867.)<0 THEN FOOD(12)=R(32867.);

             ELSE IF B<=0 THEN FOOD(12)=-3;

             ELSE FOOD(12)=R(32867.) * B;

          END;

          IF R(32893.)=-4 THEN PUBLIC(12)=0;

          ELSE DO;

             B=0;

                IF R(32881.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32881.)>-4 & R(32881.)<0 THEN B=NA;

                IF R(32882.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32882.)>-4 & R(32882.)<0 THEN B=NA;

                IF R(32883.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32883.)>-4 & R(32883.)<0 THEN B=NA;

                IF R(32884.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32884.)>-4 & R(32884.)<0 THEN B=NA;

                IF R(32885.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32885.)>-4 & R(32885.)<0 THEN B=NA;

                IF R(32886.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32886.)>-4 & R(32886.)<0 THEN B=NA;

                IF R(32887.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32887.)>-4 & R(32887.)<0 THEN B=NA;

                IF R(32888.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32888.)>-4 & R(32888.)<0 THEN B=NA;

                IF R(32889.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32889.)>-4 & R(32889.)<0 THEN B=NA;

                IF R(32890.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32890.)>-4 & R(32890.)<0 THEN B=NA;

                IF R(32891.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32891.)>-4 & R(32891.)<0 THEN B=NA;

                IF R(32892.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(32892.)>-4 & R(32892.)<0 THEN B=NA;

             IF R(32893.)<0 THEN PUBLIC(12)=R(32893.);

             ELSE IF B<=0 THEN PUBLIC(12)=-3;

             ELSE PUBLIC(12)=R(32893.) * B;

          END;

          IF R(32900.)=-4 THEN ED(12)=0;

          ELSE ED(12)=R(32900.);

          IF R(32901.)=-4 THEN EDSS(12)=0;

          ELSE EDSS(12)=R(32901.);

          IF R(32902.)=-4 THEN VET(12)=0;

          ELSE VET(12)=R(32902.);

          IF R(32906.)=-4 THEN OTHER(12)=0;

          ELSE OTHER(12)=R(32906.);

          IF VET(12)>0 & OTHER(12)=VET(12) THEN OTHER(12)=0;

          IF R(32916.)=-4 THEN RELWEL(12)=0;

          ELSE RELWEL(12)=R(32916.);

          IF R(32918.)=-4 THEN RELREG(12)=0;

          ELSE RELREG(12)=R(32918.);

          FAMILY(12)=FAMSZ90; /* TO CREATE FAMILY SIZE (I.E. FAMSZ90)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DCL COMPONENT(19) FIXED DEC(9);

         DO I=12;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            FAMINC(I)=0;

            INCOME(I)=-3;

            COMPONENT(1)=MIL(I);  

            COMPONENT(2)=MILS(I);  

            COMPONENT(3)=WPS(I);   

            COMPONENT(4)=WPSS(I);  

            COMPONENT(5)=SEI(I);

            COMPONENT(6)=SEIS(I);  

            COMPONENT(7)=UI(I);    

            COMPONENT(8)=UIS(I);   

            COMPONENT(9)=ALIM(I);  

            COMPONENT(10)=CHSP(I); 

            COMPONENT(11)=AFDC(I); 

            COMPONENT(12)=PUBLIC(I);

            COMPONENT(13)=ED(I);   

            COMPONENT(14)=EDSS(I); 

            COMPONENT(15)=VET(I);  

            COMPONENT(16)=OTHER(I);

            COMPONENT(17)=RELWEL(I);

            COMPONENT(18)=RELREG(I);

            COMPONENT(19)=FOOD(I); 

            IF WEIGHT(I)=0 THEN DO;

               INCOME(I)=-5;

               CPS(I)=-5;

               LEVEL(I)=-5;

            END;

            ELSE DO;

                 DO K=1 TO 19;

                    IF COMPONENT(K)>-4 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);

                     END;

                  END;  

               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;

                ELSE CPS(I)=-3;

            END;

          END;

        END;

   DO I=1 TO 3;

      IF MN(12,I)>0 THEN MN(12,I)=1;

   END;

   IF SUMN(12)>0 THEN SUMN(12)=1;

INCOME(12)=R(34007.)

   CPS(12)=R(34008.)

   LEVEL(12)=R(34009.)

1991 VARIABLES

           DO I=13;

                AFDC(I)=-4;

                ALIM(I)=-4;

                CHSP(I)=-4;

                CPS(I)=-4;

                ED(I)=-4;

                EDSS(I)=-4;

                FAMILY(I)=-4;

                FAMINC(I)=-4;

                FOOD(I)=-4;

                INCOME(I)=-4;

                LEVEL(I)=-4;

                MIL(I)=-4;

                MILS(I)=-4;

                DO J=1 TO 3;

                   MN(I,J)=-4;

                END;

                OTHER(I)=-4;

                PUBLIC(I)=-4;

                RELREG(I)=-4;

                RELWEL(I)=-4;

                S(I)=-4;

                SEI(I)=-4;

                SEIS(I)=-4;

                SUMN(I)=-4;

                DO J=1 TO 3;

                   DO K=1 TO 15;

                     TABLE(I,J,K)=-4;

                   END;

                END;

                UI(I)=-4;

                UIS(I)=-4;

                VET(I)=-4;

                WPS(I)=-4;

                WPSS(I)=-4;

          END;

          IF R(35589.)=-4 THEN MIL(13)=0;

          ELSE MIL(13)=R(35589.);

          IF R(35590.)=-4 THEN WPS(13)=0;

          ELSE WPS(13)=R(35590.);

          IF R(35593.)=-4 THEN SEI(13)=0;

          ELSE SEI(13)=R(35593.);

          IF R(35607.)=-4 & R(35608.)=-4 THEN UI(13)=0;

          ELSE IF R(35607.)>0 & R(35608.)>0 THEN UI(13)=R(35607.) * R(35608.);

          ELSE IF R(35608.)<0 THEN UI(13)=R(35608.);

          ELSE UI(13)=-3;

          IF R(35611.)=-4 THEN MILS(13)=0;

          ELSE MILS(13)=R(35611.);

          IF R(35612.)=-4 THEN WPSS(13)=0;

          ELSE WPSS(13)=R(35612.);

          IF R(35615.)=-4 THEN SEIS(13)=0;

          ELSE SEIS(13)=R(35615.);

          IF R(35629.)=-4 & R(35630.)=-4 THEN UIS(13)=0;

          ELSE IF R(35629.)>0 & R(35630.)>0 THEN UIS(13)=R(35629.) * R(35630.);

          ELSE IF R(35630.)<0 THEN UIS(13)=R(35630.);

          ELSE UIS(13)=-3;

          IF R(35633.)=-4 THEN ALIM(13)=0;

          ELSE ALIM(13)=R(35633.);

          IF R(35635.)=-4 THEN CHSP(13)=0;

          ELSE CHSP(13)=R(35635.);

          IF R(35649.)=-4 THEN AFDC(13)=0;

          ELSE DO;

             B=0;

                IF R(35637.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35637.)>-4 & R(35637.)<0 THEN B=NA;

                IF R(35638.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35638.)>-4 & R(35638.)<0 THEN B=NA;

                IF R(35639.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35639.)>-4 & R(35639.)<0 THEN B=NA;

                IF R(35640.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35640.)>-4 & R(35640.)<0 THEN B=NA;

                IF R(35641.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35641.)>-4 & R(35641.)<0 THEN B=NA;

                IF R(35642.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35642.)>-4 & R(35642.)<0 THEN B=NA;

                IF R(35643.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35643.)>-4 & R(35643.)<0 THEN B=NA;

                IF R(35644.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35644.)>-4 & R(35644.)<0 THEN B=NA;

                IF R(35645.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35645.)>-4 & R(35645.)<0 THEN B=NA;

                IF R(35646.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35646.)>-4 & R(35646.)<0 THEN B=NA;

                IF R(35647.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35647.)>-4 & R(35647.)<0 THEN B=NA;

                IF R(35648.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35648.)>-4 & R(35648.)<0 THEN B=NA;

             IF R(35649.)<0 THEN AFDC(13)=R(35649.);

             ELSE IF B<=0 THEN AFDC(13)=-3;

             ELSE AFDC(13)=R(35649.) * B;

          END;

          IF R(35663.)=-4 THEN FOOD(13)=0;

          ELSE DO;

             B=0;

                IF R(35651.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35651.)>-4 & R(35651.)<0 THEN B=NA;

                IF R(35652.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35652.)>-4 & R(35652.)<0 THEN B=NA;

                IF R(35653.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35653.)>-4 & R(35653.)<0 THEN B=NA;

                IF R(35654.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35654.)>-4 & R(35654.)<0 THEN B=NA;

                IF R(35655.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35655.)>-4 & R(35655.)<0 THEN B=NA;

                IF R(35656.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35656.)>-4 & R(35656.)<0 THEN B=NA;

                IF R(35657.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35657.)>-4 & R(35657.)<0 THEN B=NA;

                IF R(35658.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35658.)>-4 & R(35658.)<0 THEN B=NA;

                IF R(35659.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35659.)>-4 & R(35659.)<0 THEN B=NA;

                IF R(35660.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35660.)>-4 & R(35660.)<0 THEN B=NA;

                IF R(35661.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35661.)>-4 & R(35661.)<0 THEN B=NA;

                IF R(35662.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35662.)>-4 & R(35662.)<0 THEN B=NA;

             IF R(35663.)<0 THEN FOOD(13)=R(35663.);

             ELSE IF B<=0 THEN FOOD(13)=-3;

             ELSE FOOD(13)=R(35663.) * B;

          END;

          IF R(35689.)=-4 THEN PUBLIC(13)=0;

          ELSE DO;

             B=0;

                IF R(35677.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35677.)>-4 & R(35677.)<0 THEN B=NA;

                IF R(35678.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35678.)>-4 & R(35678.)<0 THEN B=NA;

                IF R(35679.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35679.)>-4 & R(35679.)<0 THEN B=NA;

                IF R(35680.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35680.)>-4 & R(35680.)<0 THEN B=NA;

                IF R(35681.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35681.)>-4 & R(35681.)<0 THEN B=NA;

                IF R(35682.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35682.)>-4 & R(35682.)<0 THEN B=NA;

                IF R(35683.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35683.)>-4 & R(35683.)<0 THEN B=NA;

                IF R(35684.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35684.)>-4 & R(35684.)<0 THEN B=NA;

                IF R(35685.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35685.)>-4 & R(35685.)<0 THEN B=NA;

                IF R(35686.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35686.)>-4 & R(35686.)<0 THEN B=NA;

                IF R(35687.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35687.)>-4 & R(35687.)<0 THEN B=NA;

                IF R(35688.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(35688.)>-4 & R(35688.)<0 THEN B=NA;

             IF R(35689.)<0 THEN PUBLIC(13)=R(35689.);

             ELSE IF B<=0 THEN PUBLIC(13)=-3;

             ELSE PUBLIC(13)=R(35689.) * B;

          END;

          IF R(35695.)=-4 THEN ED(13)=0;

          ELSE ED(13)=R(35695.);

          IF R(35696.)=-4 THEN EDSS(13)=0;

          ELSE EDSS(13)=R(35696.);

          IF R(35698.)=-4 THEN VET(13)=0;

          ELSE VET(13)=R(35698.);

          IF R(35702.)=-4 THEN OTHER(13)=0;

          ELSE OTHER(13)=R(35702.);

          IF VET(13)>0 & OTHER(13)=VET(13) THEN OTHER(13)=0;

          IF R(35712.)=-4 THEN RELWEL(13)=0;

          ELSE RELWEL(13)=R(35712.);

          IF R(35714.)=-4 THEN RELREG(13)=0;

          ELSE RELREG(13)=R(35714.);

          FAMILY(13)=FAMSZ91; /* TO CREATE FAMILY SIZE (I.E. FAMSZ91)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DCL COMPONENT(19) FIXED DEC(9);

         DO I=13;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            FAMINC(I)=0;

            INCOME(I)=-3;

            COMPONENT(1)=MIL(I);  

            COMPONENT(2)=MILS(I);  

            COMPONENT(3)=WPS(I);   

            COMPONENT(4)=WPSS(I);  

            COMPONENT(5)=SEI(I);

            COMPONENT(6)=SEIS(I);  

            COMPONENT(7)=UI(I);    

            COMPONENT(8)=UIS(I);   

            COMPONENT(9)=ALIM(I);  

            COMPONENT(10)=CHSP(I); 

            COMPONENT(11)=AFDC(I); 

            COMPONENT(13)=PUBLIC(I);

            COMPONENT(13)=ED(I);   

            COMPONENT(14)=EDSS(I); 

            COMPONENT(15)=VET(I);  

            COMPONENT(16)=OTHER(I);

            COMPONENT(17)=RELWEL(I);

            COMPONENT(18)=RELREG(I);

            COMPONENT(19)=FOOD(I); 

            IF WEIGHT(I)=0 THEN DO;

               INCOME(I)=-5;

               CPS(I)=-5;

               LEVEL(I)=-5;

            END;

            ELSE DO;

                 DO K=1 TO 19;

                    IF COMPONENT(K)>-4 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);

                     END;

                  END;  

               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;

                ELSE CPS(I)=-3;

            END;

          END;

        END;

   DO I=1 TO 3;

      IF MN(13,I)>0 THEN MN(13,I)=1;

   END;

   IF SUMN(13)>0 THEN SUMN(13)=1;

   INCOME(13)=R(36561.)

   CPS(13)=R(36562.)

   LEVEL(13)=R(36563.)

1992 VARIABLES

           DO I=14;

                AFDC(I)=-4;

                ALIM(I)=-4;

                CHSP(I)=-4;

                CPS(I)=-4;

                ED(I)=-4;

                EDSS(I)=-4;

                FAMILY(I)=-4;

                FAMINC(I)=-4;

                FOOD(I)=-4;

                INCOME(I)=-4;

                LEVEL(I)=-4;

                MIL(I)=-4;

                MILS(I)=-4;

                DO J=1 TO 3;

                   MN(I,J)=-4;

                END;

                OTHER(I)=-4;

                PUBLIC(I)=-4;

                RELREG(I)=-4;

                RELWEL(I)=-4;

                S(I)=-4;

                SEI(I)=-4;

                SEIS(I)=-4;

                SUMN(I)=-4;

                DO J=1 TO 3;

                   DO K=1 TO 15;

                     TABLE(I,J,K)=-4;

                   END;

                END;

                UI(I)=-4;

                UIS(I)=-4;

                VET(I)=-4;

                WPS(I)=-4;

                WPSS(I)=-4;

          END;

          IF R(38970.)=-4 THEN MIL(14)=0;

          ELSE MIL(14)=R(38970.);

          IF R(38971.)=-4 THEN WPS(14)=0;

          ELSE WPS(14)=R(38971.);

          IF R(38974.)=-4 THEN SEI(14)=0;

          ELSE SEI(14)=R(38974.);

          IF R(38988.)=-4 & R(38989.)=-4 THEN UI(14)=0;

          ELSE IF R(38988.)>0 & R(38989.)>0 THEN UI(14)=R(38988.) * R(38989.);

          ELSE IF R(38989.)<0 THEN UI(14)=R(38989.);

          ELSE UI(14)=-3;

          IF R(38992.)=-4 THEN MILS(14)=0;

          ELSE MILS(14)=R(38992.);

          IF R(38993.)=-4 THEN WPSS(14)=0;

          ELSE WPSS(14)=R(38993.);

          IF R(38996.)=-4 THEN SEIS(14)=0;

          ELSE SEIS(14)=R(38996.);

          IF R(39010.)=-4 & R(39011.)=-4 THEN UIS(14)=0;

          ELSE IF R(39010.)>0 & R(39011.)>0 THEN UIS(14)=R(39010.) * R(39011.);

          ELSE IF R(39011.)<0 THEN UIS(14)=R(39011.);

          ELSE UIS(14)=-3;

          IF R(39014.)=-4 THEN ALIM(14)=0;

          ELSE ALIM(14)=R(39014.);

          IF R(39016.)=-4 THEN CHSP(14)=0;

          ELSE CHSP(14)=R(39016.);

          IF R(39030.)=-4 THEN AFDC(14)=0;

          ELSE DO;

             B=0;

                IF R(39018.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39018.)>-4 & R(39018.)<0 THEN B=NA;

                IF R(39019.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39019.)>-4 & R(39019.)<0 THEN B=NA;

                IF R(39020.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39020.)>-4 & R(39020.)<0 THEN B=NA;

                IF R(39021.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39021.)>-4 & R(39021.)<0 THEN B=NA;

                IF R(39022.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39022.)>-4 & R(39022.)<0 THEN B=NA;

                IF R(39023.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39023.)>-4 & R(39023.)<0 THEN B=NA;

                IF R(39024.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39024.)>-4 & R(39024.)<0 THEN B=NA;

                IF R(39025.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39025.)>-4 & R(39025.)<0 THEN B=NA;

                IF R(39026.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39026.)>-4 & R(39026.)<0 THEN B=NA;

                IF R(39027.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39027.)>-4 & R(39027.)<0 THEN B=NA;

                IF R(39028.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39028.)>-4 & R(39028.)<0 THEN B=NA;

                IF R(39029.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39029.)>-4 & R(39029.)<0 THEN B=NA;

             IF R(39030.)<0 THEN AFDC(14)=R(39030.);

             ELSE IF B<=0 THEN AFDC(14)=-3;

             ELSE AFDC(14)=R(39030.) * B;

          END;

          IF R(39044.)=-4 THEN FOOD(14)=0;

          ELSE DO;

             B=0;

                IF R(39032.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39032.)>-4 & R(39032.)<0 THEN B=NA;

                IF R(39033.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39033.)>-4 & R(39033.)<0 THEN B=NA;

                IF R(39034.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39034.)>-4 & R(39034.)<0 THEN B=NA;

                IF R(39035.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39035.)>-4 & R(39035.)<0 THEN B=NA;

                IF R(39036.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39036.)>-4 & R(39036.)<0 THEN B=NA;

                IF R(39037.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39037.)>-4 & R(39037.)<0 THEN B=NA;

                IF R(39038.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39038.)>-4 & R(39038.)<0 THEN B=NA;

                IF R(39039.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39039.)>-4 & R(39039.)<0 THEN B=NA;

                IF R(39040.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39040.)>-4 & R(39040.)<0 THEN B=NA;

                IF R(39041.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39041.)>-4 & R(39041.)<0 THEN B=NA;

                IF R(39042.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39042.)>-4 & R(39042.)<0 THEN B=NA;

                IF R(39043.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39043.)>-4 & R(39043.)<0 THEN B=NA;

             IF R(39044.)<0 THEN FOOD(14)=R(39044.);

             ELSE IF B<=0 THEN FOOD(14)=-3;

             ELSE FOOD(14)=R(39044.) * B;

          END;

          IF R(39070.)=-4 THEN PUBLIC(14)=0;

          ELSE DO;

             B=0;

                IF R(39058.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39058.)>-4 & R(39058.)<0 THEN B=NA;

                IF R(39059.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39059.)>-4 & R(39059.)<0 THEN B=NA;

                IF R(39060.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39060.)>-4 & R(39060.)<0 THEN B=NA;

                IF R(39061.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39061.)>-4 & R(39061.)<0 THEN B=NA;

                IF R(39062.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39062.)>-4 & R(39062.)<0 THEN B=NA;

                IF R(39063.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39063.)>-4 & R(39063.)<0 THEN B=NA;

                IF R(39064.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39064.)>-4 & R(39064.)<0 THEN B=NA;

                IF R(39065.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39065.)>-4 & R(39065.)<0 THEN B=NA;

                IF R(39066.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39066.)>-4 & R(39066.)<0 THEN B=NA;

                IF R(39067.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39067.)>-4 & R(39067.)<0 THEN B=NA;

                IF R(39068.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39068.)>-4 & R(39068.)<0 THEN B=NA;

                IF R(39069.)>0 & B^=NA THEN B=B+1;

                ELSE IF R(39069.)>-4 & R(39069.)<0 THEN B=NA;

             IF R(39070.)<0 THEN PUBLIC(14)=R(39070.);

             ELSE IF B<=0 THEN PUBLIC(14)=-3;

             ELSE PUBLIC(14)=R(39070.) * B;

          END;

          IF R(39076.)=-4 THEN ED(14)=0;

          ELSE ED(14)=R(39076.);

          IF R(39077.)=-4 THEN EDSS(14)=0;

          ELSE EDSS(14)=R(39077.);

          IF R(39079.)=-4 THEN VET(14)=0;

          ELSE VET(14)=R(39079.);

          IF R(39083.)=-4 THEN OTHER(14)=0;

          ELSE OTHER(14)=R(39083.);

          IF VET(14)>0 & OTHER(14)=VET(14) THEN OTHER(14)=0;

          IF R(39093.)=-4 THEN RELWEL(14)=0;

          ELSE RELWEL(14)=R(39093.);

          IF R(39095.)=-4 THEN RELREG(14)=0;

          ELSE RELREG(14)=R(39095.);

          FAMILY(14)=FAMSZ92; /* TO CREATE FAMILY SIZE (I.E. FAMSZ92)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DCL COMPONENT(19) FIXED DEC(9);

         DO I=13;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            FAMINC(I)=0;

            INCOME(I)=-3;

            COMPONENT(1)=MIL(I);  

            COMPONENT(2)=MILS(I);  

            COMPONENT(3)=WPS(I);   

            COMPONENT(4)=WPSS(I);  

            COMPONENT(5)=SEI(I);

            COMPONENT(6)=SEIS(I);  

            COMPONENT(7)=UI(I);    

            COMPONENT(8)=UIS(I);   

            COMPONENT(9)=ALIM(I);  

            COMPONENT(10)=CHSP(I); 

            COMPONENT(11)=AFDC(I); 

            COMPONENT(12)=PUBLIC(I);

            COMPONENT(13)=ED(I);   

            COMPONENT(14)=EDSS(I); 

            COMPONENT(15)=VET(I);  

            COMPONENT(16)=OTHER(I);

            COMPONENT(17)=RELWEL(I);

            COMPONENT(18)=RELREG(I);

            COMPONENT(19)=FOOD(I); 

            IF WEIGHT(I)=0 THEN DO;

               INCOME(I)=-5;

               CPS(I)=-5;

               LEVEL(I)=-5;

            END;

            ELSE DO;

                 DO K=1 TO 19;

                    IF COMPONENT(K)>-4 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);

                     END;

                  END;  

               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

    /* income trunc */

      IF INCOME(I) > 100000 THEN INCOME(I) = 833745;

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;

                ELSE CPS(I)=-3;

            END;

          END;

        END;

   DO I=1 TO 3;

      IF MN(14,I)>0 THEN MN(14,I)=1;

   END;

   IF SUMN(14)>0 THEN SUMN(14)=1;

   INCOME(14)=R(40066.)

   CPS(14)=R(40067.)

   LEVEL(14)=R(40068.)

1993 Variables

          DO I=15;

                AFDC(I)=-4;

                ALIM(I)=-4;

                CHSP(I)=-4;

                CPS(I)=-4;

                ED(I)=-4;

                EDSS(I)=-4;

                FAMILY(I)=-4;

                FAMINC(I)=-4;

                FOOD(I)=-4;

                INCOME(I)=-4;

                LEVEL(I)=-4;

                MIL(I)=-4;

                MILS(I)=-4;

                DO J=1 TO 3;

                   MN(I,J)=-4;

                END;

                OTHER(I)=-4;

                PUBLIC(I)=-4;

                RELREG(I)=-4;

                RELWEL(I)=-4;

                S(I)=-4;

                SEI(I)=-4;

                SEIS(I)=-4;

                SUMN(I)=-4;

                DO J=1 TO 3;

                   DO K=1 TO 15;

                     TABLE(I,J,K)=-4;

                   END;

                END;

                UI(I)=-4;

                UIS(I)=-4;

                VET(I)=-4;

                WPS(I)=-4;

                WPSS(I)=-4;

          END;

/* Several variables pertaining to recipiency from various government income programs were computed from            */

/* a number of different variables in 1993, due to the change to an event history format for data collection.                 */

/* these variables are as follows:                                                                                                                              */

/* WKTOT92U = Total number of weeks R received unemployment compensation in calendar year 1992                     */

/* RCTOT92U = Total amount of unemployment compensation R received in calendar year 1992              */

/* WKTOT92S = Total number of weeks R's spouse received unemployment compensation in calendar year    */

/*                         1992                                                                                                                              */

/* RCTOT92U = Total amount of unemployment compensation R's spouse received in calendar year 1992                  */

/* MOTOT92A = Total number of months R or spouse received AFDC payments in calendar year 1992  */

/* RCTOT92A = Total amount of AFDC R or spouse received in calendar year 1992                                    */

/* MOTOT92F = Total number of months R or spouse received government food stamps in calendar year                  */

/*                         1992                                                                                                                              */

/* RCTOT92F = Total amount of government food stamps R or spouse received in calendar year 1992    */

/* MOTOT92W = Total number of months R or spouse received other welfare or public assistance payments           */

/*                           in calendar year 1992                                                                                               */

/* RCTOT92W = Total amount of other welfare or public assistance payemnts R or spouse received in   */

/*                         calendar year 1992                                                                                                                          */

          IF R(42949.)=-4 THEN MIL(15)=0;

          ELSE MIL(15)=R(42949.);

          IF R(42951.)=-4 THEN WPS(15)=0;

          ELSE WPS(15)=R(42951.);

          IF R(42955.)=-4 THEN SEI(15)=0;

          ELSE SEI(15)=R(42955.);

          IF WKTOT92U=-4 & RCTOT92U=-4 THEN UI(15)=0;

          ELSE IF WKTOT92U>0 & RCTOT92U>0 THEN UI(15)=WKTOT92U * RCTOT92U;

          ELSE IF RCTOT92U<0 THEN UI(15)=RCTOT92U;

          ELSE UI(15)=-3;

          IF R(43142.)=-4 THEN MILS(15)=0;

          ELSE MILS(15)=R(43142.);

          IF R(43144.)=-4 THEN WPSS(15)=0;

          ELSE WPSS(15)=R(43144.);

          IF R(43149.)=-4 THEN SEIS(15)=0;

          ELSE SEIS(15)=R(43149.);

          IF WKTOT92S=-4 & RCTOT92S=-4 THEN UIS(15)=0;

          ELSE IF WKTOT92S>0 & RCTOT92S>0 THEN UIS(15)=WKTOT92S * RCTOT92S;

          ELSE IF RCTOT92S<0 THEN UIS(15)=RCTOT92S;

          ELSE UIS(15)=-3;

          IF R(43325.)=-4 THEN ALIM(15)=0;

          ELSE ALIM(15)=R(43325.);

          IF R(43341.)=-4 THEN CHSP(15)=0;

          ELSE CHSP(15)=R(43341.);

          IF R(43351.)=-4 THEN CHSP(15)=0;

          ELSE CHSP(15)=R(43351.);

          IF RCTOT92A=-4 THEN AFDC(15)=0;

          ELSE DO;

             IF RCTOT92A<0 THEN AFDC(15)=RCTOT92A;

             ELSE IF MOTOT92A<=0 THEN AFDC(15)=-3;

             ELSE AFDC(15)=RCTOT92A * MOTOT92A;

          END;

          IF RCTOT92F=-4 THEN FOOD(15)=0;

          ELSE DO;

             IF RCTOT92F<0 THEN FOOD(15)=RCTOT92F;

             ELSE IF MOTOT92F<=0 THEN FOOD(15)=-3;

             ELSE FOOD(15)=RCTOT92F * MOTOT92F;

          END;

          IF RCTOT92W=-4 THEN PUBLIC(15)=0;

          ELSE DO;

             IF RCTOT92W<0 THEN PUBLIC(15)=RCTOT92W;

             ELSE IF MOTOT92W<=0 THEN PUBLIC(15)=-3;

             ELSE PUBLIC(15)=RCTOT92W * MOTOT92W;

          END;

          IF R(43879.)=-4 THEN ED(15)=0;

          ELSE ED(15)=R(43879.);

          IF R(43881.)=-4 THEN EDSS(15)=0;

          ELSE EDSS(15)=R(43881.);

          IF R(43883.)=-4 THEN VET(15)=0;

          ELSE VET(15)=R(43883.);

          IF R(43888.)=-4 THEN OTHER(15)=0;

          ELSE OTHER(15)=R(43888.);

          IF VET(15)>0 & OTHER(15)=VET(15) THEN OTHER(15)=0;

          IF R(43900.)=-4 THEN RELWEL(15)=0;

          ELSE RELWEL(15)=R(43900.);

          IF R(43903.)=-4 THEN RELREG(15)=0;

          ELSE RELREG(15)=R(43903.);

          FAMILY(15)=R(44176.); /* TO CREATE FAMILY SIZE (I.E. R(44176.))

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DCL COMPONENT(19) FIXED DEC(9);

         DO I=15;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            FAMINC(I)=0;

            INCOME(I)=-3;

            COMPONENT(1)=MIL(I);  

            COMPONENT(2)=MILS(I);  

            COMPONENT(3)=WPS(I);   

            COMPONENT(4)=WPSS(I);  

            COMPONENT(5)=SEI(I);

            COMPONENT(6)=SEIS(I);  

            COMPONENT(7)=UI(I);    

            COMPONENT(8)=UIS(I);   

            COMPONENT(9)=ALIM(I);  

            COMPONENT(10)=CHSP(I); 

            COMPONENT(11)=AFDC(I); 

            COMPONENT(12)=PUBLIC(I);

            COMPONENT(13)=ED(I);   

            COMPONENT(14)=EDSS(I); 

            COMPONENT(15)=VET(I);  

            COMPONENT(16)=OTHER(I);

            COMPONENT(17)=RELWEL(I);

            COMPONENT(18)=RELREG(I);

            COMPONENT(19)=FOOD(I); 

            IF WEIGHT(I)=0 THEN DO;

               INCOME(I)=-5;

               CPS(I)=-5;

               LEVEL(I)=-5;

            END;

            ELSE DO;

                 DO K=1 TO 19;

                    IF COMPONENT(K)>-4 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);

                     END;

                  END;  

               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

    /* imcome trunc  */

      IF INCOME(I) > 100000 THEN INCOME(I) = 160097;

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;

                ELSE CPS(I)=-3;

            END;

          END;

        END;

   DO I=1 TO 3;

      IF MN(15,I)>0 THEN MN(15,I)=1;

   END;

   IF SUMN(15)>0 THEN SUMN(15)=1;

INCOME(15)=R(44177.)

CPS(15)=R(44178.)

LEVEL(15)=R(44179.)

1994 Variables

            DO I=16;

                AFDC(I)=-4;

                ALIM(I)=-4;

                CHSP(I)=-4;

                CPS(I)=-4;

                ED(I)=-4;

                EDSS(I)=-4;

                FAMILY(I)=-4;

                FAMINC(I)=-4;

                FOOD(I)=-4;

                INCOME(I)=-4;

                LEVEL(I)=-4;

                MIL(I)=-4;

                MILS(I)=-4;

                DO J=1 TO 3;

                   MN(I,J)=-4;

                END;

                OTHER(I)=-4;

                PUBLIC(I)=-4;

                RELREG(I)=-4;

                RELWEL(I)=-4;

                S(I)=-4;

                SEI(I)=-4;

                SEIS(I)=-4;

                SUMN(I)=-4;

                DO J=1 TO 3;

                   DO K=1 TO 15;

                     TABLE(I,J,K)=-4;

                   END;

                END;

                UI(I)=-4;

                UIS(I)=-4;

                VET(I)=-4;

                WPS(I)=-4;

                WPSS(I)=-4;

          END;

/* Several variables pertaining to recipiency from various government income programs were computed from            */

/* a number of different variables in 1994, due to the change to an event history format for data collection.                 */

/* these variables are as follows:                                                                                                                              */

/* WKTOT93U = Total number of weeks R received unemployment compensation in calendar year 1993                     */

/* RCTOT93U = Total amount of unemployment compensation R received in calendar year 1993              */

/* WKTOT93S = Total number of weeks R's spouse received unemployment compensation in calendar year    */

/*                         1993                                                                                                                              */

/* RCTOT93U = Total amount of unemployment compensation R's spouse received in calendar year 1993                  */

/* MOTOT93A = Total number of months R or spouse received AFDC payments in calendar year 1993  */

/* RCTOT93A = Total amount of AFDC R or spouse received in calendar year 1993                                    */

/* MOTOT93F = Total number of months R or spouse received government food stamps in calendar year                  */

/*                         1993                                                                                                                              */

/* RCTOT93F = Total amount of government food stamps R or spouse received in calendar year 1993    */

/* MOTOT93W = Total number of months R or spouse received other welfare or public assistance payments           */

/*                           in calendar year 1993                                                                                               */

/* RCTOT93W = Total amount of other welfare or public assistance payemnts R or spouse received in   */

/*                         calendar year 1993                                                                                                                          */

          IF R(49826)=-4 THEN MIL(16)=0;

          ELSE MIL(16)=R(49826.);

          IF R(49828.)=-4 THEN WPS(16)=0;

          ELSE WPS(16)=R(49828.);

          IF R(49832.)=-4 THEN SEI(16)=0;

          ELSE SEI(16)=R(49832.);

          IF WKTOT93U=-4 & RCTOT93U=-4 THEN UI(16)=0;

          ELSE IF WKTOT93U>0 & RCTOT93U>0 THEN UI(16)=WKTOT93U * RCTOT93U;

          ELSE IF RCTOT93U<0 THEN UI(16)=RCTOT93U;

          ELSE UI(16)=-3;

          IF R(49958.)=-4 THEN MILS(16)=0;

          ELSE MILS(16)=R(49958.);

          IF R(49960.)=-4 THEN WPSS(16)=0;

          ELSE WPSS(16)=R(49960.);

          IF R(49966.)=-4 THEN SEIS(16)=0;

          ELSE SEIS(16)=R(49966.);

          IF WKTOT93S=-4 & RCTOT93S=-4 THEN UIS(16)=0;

          ELSE IF WKTOT93S>0 & RCTOT93S>0 THEN UIS(16)=WKTOT93S * RCTOT93S;

          ELSE IF RCTOT93S<0 THEN UIS(16)=RCTOT93S;

          ELSE UIS(16)=-3;

          IF R(50096.)=-4 THEN ALIM(16)=0;

          ELSE ALIM(16)=R(50096.);

          IF R(50119.)=-4 THEN CHSP(16)=0;

          ELSE CHSP(16)=R(50119.);

          IF R(50130.)=-4 THEN CHSP(16)=0;

          ELSE CHSP(16)=R(50130.);

          IF RCTOT93A=-4 THEN AFDC(16)=0;

          ELSE DO;

             IF RCTOT93A<0 THEN AFDC(16)=RCTOT93A;

             ELSE IF MOTOT93A<=0 THEN AFDC(16)=-3;

             ELSE AFDC(16)=RCTOT93A * MOTOT93A;

          END;

          IF RCTOT93F=-4 THEN FOOD(16)=0;

          ELSE DO;

             IF RCTOT93F<0 THEN FOOD(16)=RCTOT93F;

             ELSE IF MOTOT93F<=0 THEN FOOD(16)=-3;

             ELSE FOOD(16)=RCTOT93F * MOTOT93F;

          END;

          IF RCTOT93W=-4 THEN PUBLIC(16)=0;

          ELSE DO;

             IF RCTOT93W<0 THEN PUBLIC(16)=RCTOT93W;

             ELSE IF MOTOT93W<=0 THEN PUBLIC(16)=-3;

             ELSE PUBLIC(16)=RCTOT93W * MOTOT93W;

          END;

          IF R(50441.)=-4 THEN ED(16)=0;

          ELSE ED(16)=R(50441.);

          IF R(50443.)=-4 THEN EDSS(16)=0;

          ELSE EDSS(16)=R(50443.);

          IF R(50445.)=-4 THEN VET(16)=0;

          ELSE VET(16)=R(50445.);

          IF R(50450.)=-4 THEN OTHER(16)=0;

          ELSE OTHER(16)=R(50450.);

          IF VET(16)>0 & OTHER(16)=VET(16) THEN OTHER(16)=0;

          IF R(50462.)=-4 THEN RELWEL(16)=0;

          ELSE RELWEL(16)=R(50462.);

          IF R(50465.)=-4 THEN RELREG(16)=0;

          ELSE RELREG(16)=R(50465.);

          FAMILY(16)=FAMSZ94; /* TO CREATE FAMILY SIZE (I.E. FAMSZ94)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DCL COMPONENT(19) FIXED DEC(9);

         DO I=16;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            FAMINC(I)=0;

            INCOME(I)=-3;

            COMPONENT(1)=MIL(I);  

            COMPONENT(2)=MILS(I);  

            COMPONENT(3)=WPS(I);   

            COMPONENT(4)=WPSS(I);  

            COMPONENT(5)=SEI(I);

            COMPONENT(6)=SEIS(I);  

            COMPONENT(7)=UI(I);    

            COMPONENT(8)=UIS(I);   

            COMPONENT(9)=ALIM(I);  

            COMPONENT(10)=CHSP(I); 

            COMPONENT(11)=AFDC(I); 

            COMPONENT(12)=PUBLIC(I);

            COMPONENT(13)=ED(I);   

            COMPONENT(14)=EDSS(I); 

            COMPONENT(15)=VET(I);  

            COMPONENT(16)=OTHER(I);

            COMPONENT(17)=RELWEL(I);

            COMPONENT(18)=RELREG(I);

            COMPONENT(19)=FOOD(I); 

            IF WEIGHT(I)=0 THEN DO;

               INCOME(I)=-5;

               CPS(I)=-5;

               LEVEL(I)=-5;

            END;

            ELSE DO;

                 DO K=1 TO 19;

                    IF COMPONENT(K)>-4 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);

                     END;

                  END;  

               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

    /* income trunc  */

     /*   IF INCOME(I) > 100000 THEN INCOME(I) = 500000; */

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;

                ELSE CPS(I)=-3;

            END;

          END;

        END;

   DO I=1 TO 3;

      IF MN(16,I)>0 THEN MN(16,I)=1;

   END;

   IF SUMN(16)>0 THEN SUMN(16)=1;

INCOME(16)=R(50807.)

CPS(16)=R(50808.)

LEVEL(16)=R(50809.)

1996 Variables

           DO I=17;

                AFDC(I)=-4;

                ALIM(I)=-4;

                CHSP(I)=-4;

                CPS(I)=-4;

                ED(I)=-4;

                EDSS(I)=-4;

                FAMILY(I)=-4;

                FAMINC(I)=-4;

                FOOD(I)=-4;

                INCOME(I)=-4;

                LEVEL(I)=-4;

                MIL(I)=-4;

                MILS(I)=-4;

                DO J=1 TO 3;

                   MN(I,J)=-4;

                END;

                OTHER(I)=-4;

                PUBLIC(I)=-4;

                RELREG(I)=-4;

                RELWEL(I)=-4;

                S(I)=-4;

                SEI(I)=-4;

                SEIS(I)=-4;

                SUMN(I)=-4;

                DO J=1 TO 3;

                   DO K=1 TO 15;

                     TABLE(I,J,K)=-4;

                   END;

                END;

                UI(I)=-4;

                UIS(I)=-4;

                VET(I)=-4;

                WPS(I)=-4;

                WPSS(I)=-4;

          END;

/* Several variables pertaining to recipiency from various government income programs were computed from            */

/* a number of different variables in 1994, due to the change to an event history format for data collection.                 */

/* these variables are as follows:                                                                                                                              */

/* WKTOT95U = Total number of weeks R received unemployment compensation in calendar year 1995                     */

/* RCTOT95U = Total amount of unemployment compensation R received in calendar year 1995              */

/* WKTOT95S = Total number of weeks R's spouse received unemployment compensation in calendar year    */

/*                         1995                                                                                                                              */

/* RCTOT95U = Total amount of unemployment compensation R's spouse received in calendar year 1995                  */

/* MOTOT95A = Total number of months R or spouse received AFDC payments in calendar year 1995  */

/* RCTOT95A = Total amount of AFDC R or spouse received in calendar year 1995                                    */

/* MOTOT95F = Total number of months R or spouse received government food stamps in calendar year                  */

/*                         1995                                                                                                                              */

/* RCTOT95F = Total amount of government food stamps R or spouse received in calendar year 1995    */

/* MOTOT95W = Total number of months R or spouse received other welfare or public assistance payments           */

/*                           in calendar year 1995                                                                                               */

/* RCTOT95W = Total amount of other welfare or public assistance payments R or spouse received in   */

/*                         calendar year 1995                                                                                                                          */

          IF R(56260.)=-4 THEN MIL(17)=0;

          ELSE MIL(17)=R(56260.);

          IF R(56262.)=-4 THEN WPS(17)=0;

          ELSE WPS(17)=R(56262.);

          IF R(56266.)=-4 THEN SEI(17)=0;

          ELSE SEI(17)=R(56266.);

          IF WKTOT95U=-4 & RCTOT95U=-4 THEN UI(17)=0;

          ELSE IF WKTOT95U>0 & RCTOT95U>0 THEN UI(17)=WKTOT95U * RCTOT95U;

          ELSE IF RCTOT95U<0 THEN UI(17)=RCTOT95U;

          ELSE UI(17)=-3;

          IF Q13_16=-4 THEN MILS(17)=0;

          ELSE MILS(17)= Q13_16;

          IF R(56508.)=-4 THEN WPSS(17)=0;

          ELSE WPSS(17)=R(56508.);

          IF R(56514.)=-4 THEN SEIS(17)=0;

          ELSE SEIS(17)=R(56514.);

          IF WKTOT95S=-4 & RCTOT95S=-4 THEN UIS(17)=0;

          ELSE IF WKTOT95S>0 & RCTOT95S>0 THEN UIS(17)=WKTOT95S * RCTOT95S;

          ELSE IF RCTOT95S<0 THEN UIS(17)=RCTOT95S;

          ELSE UIS(17)=-3;

          IF Q13_32=-4 THEN ALIM(17)=0;

          ELSE ALIM(17)= Q13_32;

          IF Q13_33I=-4 THEN CHSP(17)=0;

          ELSE CHSP(17)= Q13_33I;

          IF Q13_33M=-4 THEN CHSP(17)=0;

          ELSE CHSP(17)= Q13_33M;

          IF RCTOT95A=-4 THEN AFDC(17)=0;

          ELSE DO;

             IF RCTOT95A<0 THEN AFDC(17)=RCTOT95A;

             ELSE IF MOTOT95A<=0 THEN AFDC(17)=-3;

             ELSE AFDC(17)=RCTOT95A * MOTOT95A;

          END;

          IF RCTOT95F=-4 THEN FOOD(17)=0;

          ELSE DO;

             IF RCTOT95F<0 THEN FOOD(17)=RCTOT95F;

             ELSE IF MOTOT95F<=0 THEN FOOD(17)=-3;

             ELSE FOOD(17)=RCTOT95F * MOTOT95F;

          END;

          IF RCTOT95W=-4 THEN PUBLIC(17)=0;

          ELSE DO;

             IF RCTOT95W<0 THEN PUBLIC(17)=RCTOT95W;

             ELSE IF MOTOT95W<=0 THEN PUBLIC(17)=-3;

             ELSE PUBLIC(17)=RCTOT95W * MOTOT95W;

          END;

          IF R(57255.)=-4 THEN ED(17)=0;

          ELSE ED(17)=R(57255.);

          IF R(57257.)=-4 THEN EDSS(17)=0;

          ELSE EDSS(17)=R(57257.);

          IF Q13_70=-4 THEN VET(17)=0;

          ELSE VET(17)= Q13_70;

          IF R(57264.)=-4 THEN OTHER(17)=0;

          ELSE OTHER(17)=R(57264.);

          IF VET(17)>0 & OTHER(17)=VET(17) THEN OTHER(17)=0;

          IF Q13_92=-4 THEN RELWEL(17)=0;

          ELSE RELWEL(17)= Q13_92;

          IF Q13_92C=-4 THEN RELREG(17)=0;

          ELSE RELREG(17)= Q13_92C;

          FAMILY(17)=FAMSZ96; /* TO CREATE FAMILY SIZE (I.E. FAMSZ96)

                                SEARCH THRU THE HOUSEHOLD ENUMERATION

                                INCREMENT FAMILY SIZE, IF THE

                                RELATIONSHIP TO THE YOUTH IS A RELATIVE.

                                DO NOT INCREASE FAMILY SIZE, IF THE CODE

                                IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

                                (>=50 & <=54) */

         DCL COMPONENT(19) FIXED DEC(9);

         DO I=17;

            MN(I,1)=0; MN(I,2)=0; MN(I,3)=0;

            FAMINC(I)=0;

            INCOME(I)=-3;

            COMPONENT(1)=MIL(I);  

            COMPONENT(2)=MILS(I);  

            COMPONENT(3)=WPS(I);   

            COMPONENT(4)=WPSS(I);  

            COMPONENT(5)=SEI(I);

            COMPONENT(6)=SEIS(I);  

            COMPONENT(7)=UI(I);    

            COMPONENT(8)=UIS(I);   

            COMPONENT(9)=ALIM(I);  

            COMPONENT(10)=CHSP(I); 

            COMPONENT(11)=AFDC(I); 

            COMPONENT(12)=PUBLIC(I);

            COMPONENT(13)=ED(I);   

            COMPONENT(14)=EDSS(I); 

            COMPONENT(15)=VET(I);  

            COMPONENT(16)=OTHER(I);

            COMPONENT(17)=RELWEL(I);

            COMPONENT(18)=RELREG(I);

            COMPONENT(19)=FOOD(I); 

            IF WEIGHT(I)=0 THEN DO;

               INCOME(I)=-5;

               CPS(I)=-5;

               LEVEL(I)=-5;

            END;

            ELSE DO;

                 DO K=1 TO 19;

                    IF COMPONENT(K)>-4 THEN DO;

                       IF COMPONENT(K)<0 THEN

                          MN(I,ABS(COMPONENT(K)))=MN(I,ABS(COMPONENT(K)))+1;

                       ELSE FAMINC(I)=FAMINC(I)+COMPONENT(K);

                     END;

                  END;  

               SUMN(I)=MN(I,1) + MN(I,2) + MN(I,3);

               IF SUMN(I)=0 THEN INCOME(I)=FAMINC(I);

               ELSE DO J=1 TO 3;

                   IF MN(I,J)>0 THEN INCOME(I)=-J;

               END;

    /* income trunc  */

     /*   IF INCOME(I) > 100000 THEN INCOME(I) = 500000; */

            IF FAMILY(I)>0 THEN DO;

                LEVEL(I)=TABLE(I,S(I),FAMILY(I));

                IF INCOME(I)>LEVEL(I) THEN CPS(I)=0;

                ELSE IF INCOME(I)>= 0 & INCOME(I)<=LEVEL(I) THEN CPS(I)=1;

                ELSE CPS(I)=-3;

            END;

          END;

        END;

   DO I=1 TO 3;

      IF MN(17,I)>0 THEN MN(17,I)=1;

   END;

   IF SUMN(17)>0 THEN SUMN(17)=1;

INCOME(17)=R(51660.)

CPS(17)=R(51661.)

LEVEL(17)=R(51662.)

1998 Variables

/*programming for the 1998 variable TNFI is done in SPSS.   Only question numbers are listed.*/

COMPUTE AFDC_CUR=-4

COMPUTE CHSP_CUR=-4

COMPUTE CHSPS_C=-4

COMPUTE CPS_CUR=-4

COMPUTE ED_CUR=-4

COMPUTE EDSS_CUR=-4

COMPUTE FAMILY_C=-4 

COMPUTE FAMINC_C=-4

COMPUTE FOOD_CUR=-4

COMPUTE INCOME_C=-4

COMPUTE LEVEL_C=-4

COMPUTE MIL_CUR=-4

COMPUTE MILS_CUR=-4

COMPUTE MN1701=-4

COMPUTE MN1702=-4

COMPUTE MN1703=-4

COMPUTE OTHER_C=-4

COMPUTE SSI_CUR=-4

COMPUTE RELREG_C=-4

COMPUTE RELWEL_C=-4

COMPUTE S_CUR=-4

COMPUTE SEI_CUR=-4

COMPUTE SEIS_CUR=-4

COMPUTE SUMN_CUR=-4

COMPUTE UI_CUR=-4

COMPUTE UIS_CUR=-4

COMPUTE VET_CUR=-4

COMPUTE WPS_CUR=-4

COMPUTE WPSS_CUR=-4

/* Several variables pertaining to recipiency from various government income programs were computed from */

/* a number of different variables in 1997, due to the change to an event history format for data collection.*/

/* these variables are as follows:  */

/* WKTOT97U = Total number of weeks R received unemployment compensation in calendar year 1997*/

/* RCTOT97U = Total amount of unemployment compensation R received in calendar year 1997*/

/* WKTOT97S = Total number of weeks R's spouse received unemployment compensation in calendar year 1997*/

/* RCTOT97U = Total amount of unemployment compensation R's spouse received in calendar year 1997*/

/* MOTOT97A = Total number of months R or spouse received AFDC payments in calendar year 1997*/

/* RCTOT97A = Total amount of AFDC R or spouse received in calendar year 1997*/

/* MOTOT97F = Total number of months R or spouse received government food stamps in calendar year 1997*/

/* RCTOT97F = Total amount of government food stamps R or spouse received in calendar year 1997*/

/* MOTOT97W = Total number of months R or spouse received other welfare or public assistance payments*/

/*                           in calendar year 1997*/

/* RCTOT97W = Total amount of other welfare or public assistance payments R or spouse received in*/

/*                         calendar year 1997*/

DO IF (Q13_3 = -4)

COMPUTE MIL_CUR=0

ELSE

COMPUTE MIL_CUR=Q13_3

END IF

DO IF (Q13_5 = -4)

COMPUTE WPS_CUR=0

ELSE

COMPUTE WPS_CUR=Q13_5

END IF

DO IF (Q13_9 = -4)

COMPUTE SEI_CUR=0

ELSE

COMPUTE SEI_CUR=Q13_9

END IF

DO IF (WKTOT97U = -4 AND RCTOT97U = -4)

COMPUTE UI_CUR=0

ELSE IF (WKTOT97U = -4 AND RCTOT97U = 0)

COMPUTE UI_CUR=0

ELSE IF (WKTOT97U > 0 AND RCTOT97U > 0)

COMPUTE UI_CUR=(WKTOT97U * RCTOT97U)

ELSE IF (WKTOT97U < 0)

COMPUTE UI_CUR=WKTOT97U

ELSE IF (RCTOT97U < 0)

COMPUTE UI_CUR=RCTOT97U

ELSE

COMPUTE UI_CUR=-3

END IF

DO IF (PAFLAGA EQ 1 OR Q13_16 = -4)

COMPUTE MILS_CUR=0

ELSE

COMPUTE MILS_CUR=Q13_16

END IF

DO IF (PAFLAGA EQ 1 OR Q13_18 = -4)

COMPUTE WPSS_CUR=0

ELSE

COMPUTE WPSS_CUR=Q13_18

END IF

DO IF (PAFLAGA EQ 1 OR Q13_24 = -4)

COMPUTE SEIS_CUR=0

ELSE

COMPUTE SEIS_CUR=Q13_24

END IF

DO IF (PAFLAGA EQ 1 OR (WKTOT97S = -4 AND RCTOT97S = -4))

COMPUTE UIS_CUR=0

ELSE IF (PAFLAGA EQ 1 OR (WKTOT97S = -4 AND RCTOT97S = 0))

COMPUTE UIS_CUR=0

ELSE IF (WKTOT97S > 0 AND RCTOT97S > 0)

COMPUTE UIS_CUR=(WKTOT97S * RCTOT97S)

ELSE IF (WKTOT97S < 0)

COMPUTE UIS_CUR=WKTOT97S

ELSE IF (RCTOT97S < 0)

COMPUTE UIS_CUR=RCTOT97S 

ELSE

COMPUTE UIS_CUR=-3

END IF

DO IF (Q13_33I = -4)

COMPUTE CHSP_CUR=0

ELSE

COMPUTE CHSP_CUR=Q13_33I

END IF

DO IF (PAFLAGA EQ 1 OR Q13_33M = -4)

COMPUTE CHSPS_C=0

ELSE

COMPUTE CHSPS_C=Q13_33M

END IF

DO IF (RCTOT97A EQ -4 OR RCTOT97A EQ 0)

COMPUTE AFDC_CUR=0

ELSE IF (MOTOT97A EQ -4 OR MOTOT97A EQ 0)

COMPUTE AFDC_CUR=0

ELSE IF (RCTOT97A < 0)

COMPUTE AFDC_CUR=RCTOT97A

ELSE IF (MOTOT97A < 0)

COMPUTE AFDC_CUR=MOTOT97A

ELSE IF (MOTOT97A <= 0)

COMPUTE AFDC_CUR=-3

ELSE

COMPUTE AFDC_CUR=(RCTOT97A * MOTOT97A)

END IF

DO IF (RCTOT97F EQ -4 OR RCTOT97F EQ 0)

COMPUTE FOOD_CUR=0

ELSE IF (MOTOT97F EQ -4 OR MOTOT97F EQ 0)

COMPUTE FOOD_CUR=0

ELSE IF (RCTOT97F < 0)

COMPUTE FOOD_CUR=RCTOT97F 

ELSE IF (MOTOT97F < 0)

COMPUTE FOOD_CUR=MOTOT97F 

ELSE IF (MOTOT97F <= 0)

COMPUTE FOOD_CUR=-3

ELSE

COMPUTE FOOD_CUR=(RCTOT97F * MOTOT97F)

END IF

DO IF (RCTOT97W EQ -4 OR RCTOT97W EQ 0)

COMPUTE SSI_CUR=0

ELSE IF (MOTOT97W EQ -4 OR MOTOT97W EQ 0)

COMPUTE SSI_CUR=0

ELSE IF (RCTOT97W < 0)

COMPUTE SSI_CUR=RCTOT97W 

ELSE IF (MOTOT97W < 0)

COMPUTE SSI_CUR=MOTOT97W 

ELSE IF (MOTOT97W <= 0)

COMPUTE SSI_CUR=-3

ELSE

COMPUTE SSI_CUR=(RCTOT97W * MOTOT97W)

END IF

DO IF (Q13_66 = -4)

COMPUTE ED_CUR=0

ELSE

COMPUTE ED_CUR=Q13_66

END IF

DO IF (PAFLAGA EQ 1 OR Q13_68 = -4)

COMPUTE EDSS_CUR=0

ELSE 

COMPUTE EDSS_CUR=Q13_68

END IF

DO IF (Q13_70A = -4) 

COMPUTE VET_CUR=0

ELSE 

COMPUTE VET_CUR=Q13_70A

END IF

DO IF (Q13_75 = -4) 

COMPUTE OTHER_C=0

ELSE 

COMPUTE OTHER_C=Q13_75

END IF

IF (VET_CUR > 0 AND OTHER_C = VET_CUR) OTHER_C=0

DO IF (Q13_92 = -4)

COMPUTE RELWEL_C=0

ELSE

COMPUTE RELWEL_C=Q13_92

END IF

DO IF (Q13_92C = -4)

COMPUTE RELREG_C=0

ELSE 

COMPUTE RELREG_C=Q13_92C

END IF

COMPUTE FAMILY_C=FAMSZ98 /* TO CREATE FAMILY SIZE (I.E. FAMSZ98) */

                            /*  SEARCH THRU THE HOUSEHOLD ENUMERATION */

                            /*  INCREMENT FAMILY SIZE, IF THE     */

                            /*  RELATIONSHIP TO THE YOUTH IS A RELATIVE. */

                            /*  DO NOT INCREASE FAMILY SIZE, IF THE CODE */

                            /*  IS <0 OR (>=33 & <=36) OR =45 OR =46 OR */

                            /*  (>=50 & <=54) */

COMPUTE MN1701=0 

COMPUTE MN1702=0 

COMPUTE MN1703=0

COMPUTE FAMINC_C=0

COMPUTE INCOME_C=-3

COMPUTE COMPO1=MIL_CUR   

COMPUTE COMPO2=MILS_CUR   

COMPUTE COMPO3=WPS_CUR    

COMPUTE COMPO4=WPSS_CUR   

COMPUTE COMPO5=SEI_CUR

COMPUTE COMPO6=SEIS_CUR   

COMPUTE COMPO7=UI_CUR     

COMPUTE COMPO8=UIS_CUR    

COMPUTE COMPO9=CHSP_CUR  

COMPUTE COMPO10=AFDC_CUR  

COMPUTE COMPO11=SSI_CUR

COMPUTE COMPO12=ED_CUR    

COMPUTE COMPO13=EDSS_CUR  

COMPUTE COMPO14=VET_CUR   

COMPUTE COMPO15=OTHER_C 

COMPUTE COMPO16=RELWEL_C

COMPUTE COMPO17=RELREG_C

COMPUTE COMPO18=FOOD_CUR

COMPUTE COMPO19=CHSPS_C

DO IF (WKTOT97U EQ -4 AND RCTOT97U GT 0)

COMPUTE UI_CUR=-3

COMPUTE COMPO7=-3

ELSE IF (WKTOT97U LT 0 AND WKTOT97U GT -4)

COMPUTE UI_CUR=-3

COMPUTE COMPO7=-3

END IF

DO IF (WKTOT97S EQ -4 AND RCTOT97S GT 0)

COMPUTE UIS_CUR=-3

COMPUTE COMPO8=-3

ELSE IF (WKTOT97S LT 0 AND WKTOT97S GT -4)

COMPUTE UIS_CUR=-3

COMPUTE COMPO8=-3

END IF

DO IF (MOTOT97A EQ -4 AND RCTOT97A GT 0)

COMPUTE AFDC_CUR=-3

COMPUTE COMPO10=-3

ELSE IF (MOTOT97A LT 0 AND MOTOT97A GT -4)

COMPUTE AFDC_CUR=-3

COMPUTE COMPO10=-3

END IF

DO IF (MOTOT97F EQ -4 AND RCTOT97F GT 0)

COMPUTE FOOD_CUR=-3

COMPUTE COMPO18=-3

ELSE IF (MOTOT97F LT 0 AND MOTOT97F GT -4)

COMPUTE FOOD_CUR=-3

COMPUTE COMPO18=-3

END IF

DO IF (MOTOT97W EQ -4 AND RCTOT97W GT 0)

COMPUTE SSI_CUR=-3

COMPUTE COMPO11=-3

ELSE IF (MOTOT97W LT 0 AND MOTOT97W GT -4)

COMPUTE SSI_CUR=-3

COMPUTE COMPO11=-3

END IF

DO REPEAT COMPO=COMPO1 TO COMPO19

DO IF (COMPO > -4)

DO IF (COMPO < 0 AND COMPO EQ -1)

COMPUTE MN1701=(MN1701+1)

ELSE IF (COMPO < 0 AND COMPO EQ -2)

COMPUTE MN1702=(MN1702+1)

ELSE IF (COMPO < 0 AND COMPO EQ -3)

COMPUTE MN1703=(MN1703+1)

ELSE

COMPUTE FAMINC_C=(FAMINC_C + COMPO)

END IF

END IF

END REPEAT 

DO IF (SUMN_CUR = 0)

COMPUTE INCOME_C=FAMINC_C

ELSE

DO IF (MN1703 > 0)

COMPUTE INCOME_C=-3

ELSE IF (MN1702 > 0)

COMPUTE INCOME_C=-2

ELSE IF (MN1701 > 0)

COMPUTE INCOME_C=-1

END IF

END IF

IF (PAFLAGA EQ -5) INCOME_C=-5

    /* INCOME TRUNC  */

/* IF (INCOME_C >= 161400) INCOME_C=1022003 */

END IF

DO IF (INCOME_C > LEVEL_C)

COMPUTE CPS_CUR=0

ELSE IF (INCOME_C >= 0 AND INCOME_C <= LEVEL_C)

COMPUTE CPS_CUR=1

ELSE

COMPUTE CPS_CUR=-3

END IF

DO REPEAT MN=MN1701 TO MN1703

IF (MN > 0) MN=1

END REPEAT PRINT

IF (SUMN_CUR > 0) SUMN_CUR=1

IF (PAFLAGA EQ -5) LEVEL_C=-5

IF (PAFLAGA EQ -5) CPS_CUR=-5

2000 Variables

/*programming for the 2000 variable TNFI is done in SPSS.   Only question numbers are listed.*/

COMPUTE afdc_cur=-4

COMPUTE chsp_cur=-4

COMPUTE chsps_c=-4

COMPUTE cps_cur=-4

COMPUTE ed_cur=-4

COMPUTE edss_cur=-4

COMPUTE family_c=-4

COMPUTE faminc_c=-4

COMPUTE food_cur=-4

COMPUTE income_c=-4

COMPUTE level_c=-4

COMPUTE mil_cur=-4

COMPUTE mils_cur=-4

COMPUTE mn1701=-4

COMPUTE mn1702=-4

COMPUTE mn1703=-4

COMPUTE other_c=-4

COMPUTE ssi_cur=-4

COMPUTE relreg_c=-4

COMPUTE relwel_c=-4

COMPUTE s_cur=-4

COMPUTE sei_cur=-4

COMPUTE seis_cur=-4

 COMPUTE sumn_cur=-4

COMPUTE ui_cur=-4

COMPUTE uis_cur=-4

COMPUTE vet_cur=-4

COMPUTE wps_cur=-4

COMPUTE wpss_cur=-4

COMPUTE wkcmp_c=-4

/* Several variables pertaining to recipiency from various government income programs were computed from                 */

/* a number of different variables in 1999, due to the change to an event history format for data collection.                   */

/* these variables are as follows:                                                                                                                                                 */

/* WKTOT99U = Total number of weeks R received unemployment compensation in calendar year 1999                   */

/* RCTOT99U = Total amount of unemployment compensation R received in calendar year 1999                               */

/* WKTOT99S = Total number of weeks R's spouse received unemployment compensation in calendar year 1999      */

/* RCTOT99U = Total amount of unemployment compensation R's spouse received in calendar year 1999                 */

/* MOTOT99A = Total number of months R or spouse received AFDC payments in calendar year 1999                     */

/* RCTOT99A = Total amount of AFDC R or spouse received in calendar year 1999                                                      */

/* MOTOT99F = Total number of months R or spouse received government food stamps in calendar year 1999         */

/* RCTOT99F = Total amount of government food stamps R or spouse received in calendar year 1999                        */

/* MOTOT99W = Total number of months R or spouse received other welfare or public assistance payments              */

/*                           in calendar year 1999                                                                                                                                 */

/* RCTOT99W = Total amount of other welfare or public assistance payments R or spouse received in                          */

                                                

do if (Q13_3 = -4)

COMPUTE mil_cur=0                               

else

COMPUTE mil_cur=Q13_3        

end if                                          

do if (Q13_5 = -4)

COMPUTE wps_cur=0                               

else

COMPUTE wps_cur=Q13_5

end if                                          

/* new series to incorporate new farm & bus income qs */ COMPUTE fjt_inc=fjt_141

do if (fjt_inc eq -4)

COMPUTE farm_cur=0

else

COMPUTE farm_cur=fjt_inc

end if

COMPUTE bpjt_inc=bp_141

do if (bpjt_inc eq -4)

COMPUTE bus_cur=0

else

COMPUTE bus_cur=bpjt_inc

end if

COMPUTE fbr_inc=q13_132d

do if (fbr_inc eq -4)

COMPUTE fbr_cur=0

else

COMPUTE fbr_cur=fbr_inc

end if

do if (Q13_9 = -4)

COMPUTE sei_cur=0                               

else

COMPUTE sei_cur=Q13_9

end if

if (farm_cur gt 0) sei_cur=(sei_cur+farm_cur)

if (bus_cur gt 0) sei_cur=(sei_cur+bus_cur)

if (fbr_cur gt 0) sei_cur=(sei_cur+fbr_cur)

do if (wktot99u = -4 and rctot99u = -4)

COMPUTE ui_cur=0

else if (wktot99u = -4 and rctot99u = 0)

COMPUTE ui_cur=0

else if (wktot99u > 0 and rctot99u > 0)

COMPUTE ui_cur=rctot99u

else if (wktot99u < 0)

COMPUTE ui_cur=wktot99u

else if (rctot99u < 0)

COMPUTE ui_cur=rctot99u

else

COMPUTE ui_cur=-3

end if

do if (paflaga eq 1 or Q13_16 = -4)

COMPUTE mils_cur=0

else

COMPUTE mils_cur=Q13_16

end if

do if (paflaga eq 1 or Q13_18 = -4)

COMPUTE wpss_cur=0

else

COMPUTE wpss_cur=Q13_18                            end if

do if (paflaga eq 1 or Q13_24 = -4)

COMPUTE seis_cur=0

else

COMPUTE seis_cur=Q13_24

end if

do if (paflaga eq 1 or (wktot99s = -4 and rctot99s = -4))   

COMPUTE uis_cur=0

else if 

(paflaga eq 1 or (wktot99s = -4 and rctot99s = 0))   

COMPUTE uis_cur=0

else if 

(wktot99s > 0 and rctot99s > 0)

COMPUTE uis_cur=rctot99s

else if 

(wktot99s < 0)

COMPUTE uis_cur=wktot99s

else if (rctot99s < 0)

COMPUTE uis_cur=rctot99s

else

COMPUTE uis_cur=-3

end if

do if (q13_31b = -4)

COMPUTE wkcmp_c=0

else

COMPUTE wkcmp_c=q13_31b

end if

do if (Q13_33I = -4)

COMPUTE chsp_cur=0

else

COMPUTE chsp_cur=Q13_33I

end if

do if (paflaga eq 1 or Q13_33M = -4)

COMPUTE chsps_c=0

else

COMPUTE chsps_c=Q13_33M

end if

do if (rctot99a eq -4 or rctot99a eq 0)

COMPUTE afdc_cur=0

else if (motot99a eq -4 or motot99a eq 0)

COMPUTE afdc_cur=0

else if (rctot99a < 0)

COMPUTE afdc_cur=rctot99a

else if (motot99a < 0)     

COMPUTE afdc_cur=motot99a

else if (motot99a <= 0)

COMPUTE afdc_cur=-3

else                                                     

COMPUTE afdc_cur=rctot99a

end if

do if (rctot99f eq -4 or rctot99f eq 0)       

COMPUTE food_cur=0

else if (motot99f eq -4 or motot99f eq 0)   

COMPUTE food_cur=0

else if (rctot99f < 0)     

COMPUTE food_cur=rctot99f

else if (motot99f < 0)            

 COMPUTE food_cur=motot99f

else if (motot99f <= 0)            

COMPUTE food_cur=-3

else                

COMPUTE food_cur=rctot99f                              end if

do if (rctot99w eq -4 or rctot99w eq 0) 

COMPUTE ssi_cur=0

else if (motot99w eq -4 or motot99w eq 0)  

COMPUTE ssi_cur=0

else if (rctot99w < 0)    

COMPUTE ssi_cur=rctot99w

else if (motot99w < 0)  

COMPUTE ssi_cur=motot99w

else if (motot99w <= 0)     

COMPUTE ssi_cur=-3

else

COMPUTE ssi_cur=rctot99w 

   end if

do if (Q13_66 = -4)

COMPUTE ed_cur=0

else  

COMPUTE ed_cur=Q13_66                

end if

do if (paflaga eq 1 or Q13_68 = -4) 

COMPUTE edss_cur=0

else           

COMPUTE edss_cur=Q13_68   

end if

do if (q13_70 = -4)  

COMPUTE vet_cur=0

else      

COMPUTE vet_cur=q13_70    

end if

do if (Q13_75 = -4)

COMPUTE other_c=0

else      

COMPUTE other_c=Q13_75      

end if

 if (vet_cur > 0 and other_c = vet_cur) other_c=0

do if (Q13_92 = -4) 

COMPUTE relwel_c=0

else    

COMPUTE relwel_c=Q13_92  

end if

 do if (Q13_92C = -4) 

COMPUTE relreg_c=0

else    

COMPUTE relreg_c=Q13_92C  

end if

compute family_c=famsz00 /* To create family size (i.e. famsz00) search thru the household enumeration.  Increment family size, if the relationship to the youth is a relative.  Do not increase family size, if the code is <0 or (>=33 & <=36) or =45 or =46 or (>=50 & <=54) */

COMPUTE mn1701=0

COMPUTE mn1702=0

COMPUTE mn1703=0 

COMPUTE faminc_c=0

COMPUTE income_c=-3       

COMPUTE compo1=mil_cur  

COMPUTE compo2=mils_cur       

COMPUTE compo3=wps_cur   

COMPUTE compo4=wpss_cur      

COMPUTE compo5=sei_cur

COMPUTE compo6=seis_cur          

COMPUTE compo7=ui_cur    

COMPUTE compo8=uis_cur                    

COMPUTE compo9=chsp_cur 

COMPUTE compo10=afdc_cur 

COMPUTE compo11=ssi_cur

COMPUTE compo12=ed_cur       

COMPUTE compo13=edss_cur 

COMPUTE compo14=vet_cur     

COMPUTE compo15=other_c

COMPUTE compo16=relwel_c 

COMPUTE compo17=relreg_c

COMPUTE compo18=food_cur 

COMPUTE compo19=chsps_c

COMPUTE compo20=wkcmp_c

do if (wktot99u eq -4 and rctot99u gt 0)     

COMPUTE ui_cur=-3

COMPUTE compo7=-3

else if (wktot99u lt 0 and wktot99u gt -4)     

COMPUTE ui_cur=-3    

COMPUTE compo7=-3

end if

do if (wktot99s eq -4 and rctot99s gt 0)

COMPUTE uis_cur=-3   

COMPUTE compo8=-3

else if (wktot99s lt 0 and wktot99s gt -4)   

COMPUTE uis_cur=-3         

COMPUTE compo8=-3

end if

do if (motot99a eq -4 and rctot99a gt 0)   

COMPUTE afdc_cur=-3        

COMPUTE compo10=-3

else if (motot99a lt 0 and motot99a gt -4)   

COMPUTE afdc_cur=-3  

COMPUTE compo10=-3

end if

do if (motot99f eq -4 and rctot99f gt 0) 

COMPUTE food_cur=-3  

COMPUTE compo18=-3

else if (motot99f lt 0 and motot99f gt -4) 

COMPUTE food_cur=-3 

COMPUTE compo18=-3

end if

do if (motot99w eq -4 and rctot99w gt 0)

COMPUTE ssi_cur=-3   

COMPUTE compo11=-3

else if (motot99w lt 0 and motot99w gt -4)     

COMPUTE ssi_cur=-3  

COMPUTE compo11=-3

end if 

do repeat compo=compo1 to compo20

do if (compo > -4)

do if (compo < 0 and compo eq -1)

COMPUTE mn1701=(mn1701+1)

else if (compo < 0 and compo eq -2) 

COMPUTE mn1702=(mn1702+1)

else if (compo < 0 and compo eq -3) 

COMPUTE mn1703=(mn1703+1)

else   

COMPUTE faminc_c=(faminc_c + compo)     .    end if

end if

end repeat print

COMPUTE sumn_cur=mn1701 + mn1702 + mn1703

do if (sumn_cur = 0) 

COMPUTE income_c=faminc_c

else

do if (mn1703 > 0)

COMPUTE income_c=-3

else if (mn1702 > 0)  

COMPUTE income_c=-2

else if (mn1701 > 0)   

COMPUTE income_c=-1   

end if

end if

if (paflaga eq -5) income_c=-5

  /* poverty status and level */

do if (income_c > level_c)   

COMPUTE cps_cur=0

else if (income_c >= 0 and income_c <= level_c)

COMPUTE cps_cur=1

else    

COMPUTE cps_cur=-3  

end if

do repeat mn=mn1701 to mn1703

if (mn > 0) mn=1

end repeat print

if (sumn_cur > 0) sumn_cur=1

if (paflaga eq -5) level_c=-5

if (paflaga eq -5) cps_cur=-5

2002 Variables

* SAS PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2002;

afdc_cur=-4;

chsp_cur=-4;

chsps_c=-4;

cps_cur=-4;

ed_cur=-4;

edss_cur=-4;

family_c=-4;

faminc_c=-4;

food_cur=-4;

income_c=-4;

level_c=-4;

mil_cur=-4;

mils_cur=-4;

mn1701=-4;

mn1702=-4;

mn1703=-4;

other_c=-4;

ssi_cur=-4;

relreg_c=-4;

relwel_c=-4;

s_cur=-4;

sei_cur=-4;

seis_cur=-4;

sumn_cur=-4;

target_c=-4;

ui_cur=-4;

uis_cur=-4;

vet_cur=-4;

wps_cur=-4;

wpss_cur=-4;

wkcmp_c=-4;

dis_cur=-4;

ss_cur=-4;

/* Several variables pertaining to recipiency from various government income programs were computed from                 */

/* a number of different variables in 2001, due to the change to an event history format for data collection.                   */

/* these variables are as follows:                                                                                                                                                 */

/* WKTOT01U = Total number of weeks R received unemployment compensation in calendar year 2001                   */

/* RCTOT01U = Total amount of unemployment compensation R received in calendar year 2001                               */

/* WKTOT01S = Total number of weeks R's spouse received unemployment compensation in calendar year 2001      */

/* RCTOT01U = Total amount of unemployment compensation R's spouse received in calendar year 2001                 */

/* MOTOT01A = Total number of months R or spouse received AFDC payments in calendar year 2001                     */

/* RCTOT01A = Total amount of AFDC R or spouse received in calendar year 2001                                                      */

/* MOTOT01F = Total number of months R or spouse received government food stamps in calendar year 2001         */

/* RCTOT01F = Total amount of government food stamps R or spouse received in calendar year 2001                        */

/* MOTOT01W = Total number of months R or spouse received other welfare or public assistance payments              */

/*                           in calendar year 2001                                                                                                                                 */

/* RCTOT01W = Total amount of other welfare or public assistance payments R or spouse received in                          */

/*                         calendar year 2001                                                                                                                                        */

if (Q13_3 = -4) then mil_cur=0;

else mil_cur=Q13_3;

if (Q13_5 = -4) then wps_cur=0;

else wps_cur=Q13_5;

if (Q13_9 = -4) then sei_cur=0;

else sei_cur=Q13_9;

data compute1;

set compute;

if (wktot01u = -4 & rctot01u = -4) then ui_cur=0;

else if (wktot01u = -4 & rctot01u = 0) then ui_cur=0;

else if (wktot01u > 0 & rctot01u > 0) then ui_cur=rctot01u;

else if (wktot01u < 0) then ui_cur=wktot01u;

else if (rctot01u < 0) then ui_cur=rctot01u;

else ui_cur=-3;

if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;

else mils_cur=Q13_16;

if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;

else wpss_cur=Q13_18;

if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;

else seis_cur=Q13_24;

if (paflaga = 1 | (wktot01s = -4 & rctot01s = -4)) then uis_cur=0;

else if (paflaga = 1 | (wktot01s = -4 & rctot01s = 0)) then uis_cur=0;

else if (wktot01s > 0 & rctot01s > 0) then uis_cur=rctot01s;

else if (wktot01s < 0) then uis_cur=wktot01s;

else if (rctot01s < 0) then uis_cur=rctot01s;

else uis_cur=-3;

if (q13_31b = -4) then wkcmp_c=0;

else wkcmp_c=q13_31b;

if (Q13_33i = -4) then chsp_cur=0;

else chsp_cur=Q13_33i;

if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;

else chsps_c=Q13_33m;

if (rctot01a = -4 | rctot01a = 0) then afdc_cur=0;

else if (motot01a = -4 | motot01a = 0) then afdc_cur=0;

else if (rctot01a < 0) then afdc_cur=rctot01a;

else if (motot01a < 0) then afdc_cur=motot01a;

else if (motot01a <= 0) then afdc_cur=-3;

else afdc_cur=rctot01a;

if (rctot01f = -4 | rctot01f = 0) then food_cur=0;

else if (motot01f = -4 | motot01f = 0) then food_cur=0;

else if (rctot01f < 0) then food_cur=rctot01f;

else if (motot01f < 0) then food_cur=motot01f;

else if (motot01f <= 0) then food_cur=-3;

else food_cur=rctot01f;

if (rctot01w = -4 | rctot01w = 0) then ssi_cur=0;

else if (motot01w = -4 | motot01w = 0) then ssi_cur=0;

else if (rctot01w < 0) then ssi_cur=rctot01w;

else if (motot01w < 0) then ssi_cur=motot01w;

else if (motot01w <= 0) then ssi_cur=-3;

else ssi_cur=rctot01w;

if (Q13_66 = -4) then ed_cur=0;

else ed_cur=Q13_66;

if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;

else edss_cur=Q13_68;

if (q13_70_v = -4) then vet_cur=0;

else if (q13_70_v = -2) then vet_cur=q13_70_v;

else if (q13_70_v = -1) then vet_cur=q13_70_v;

else vet_cur=(q13_70_v * 12);

if (q13_70_d = -4) then dis_cur=0;

else if (q13_70_d = -2) then dis_cur=q13_70_d;

else if (q13_70_d = -1) then dis_cur=q13_70_d;

else dis_cur=(q13_70_d * 12);

if (q13_70_s = -4) then ss_cur=0;

else if (q13_70_s = -2) then ss_cur=q13_70_s;

else if (q13_70_s = -1) then ss_cur=q13_70_s;

else ss_cur=(q13_70_s * 12);

if (Q13_75 = -4) then other_c=0;

else other_c=Q13_75;

data compute2;

set compute1;

if (vet_cur > 0 & other_c = vet_cur) then other_c=0;

if (Q13_92 = -4) then relwel_c=0;

else relwel_c=Q13_92;

if (Q13_92c = -4) then relreg_c=0;

else relreg_c=Q13_92c;

family_c=famsz02;

/* TO CREATE FAMILY SIZE (I.E. FAMSZ02) SEARCH THRU THE HOUSEHOLD ENUMERATION

INCREMENT FAMILY SIZE, IF THE RELATIONSHIP TO THE YOUTH IS A RELATIVE.

DO NOT INCREASE FAMILY SIZE, IF THE CODE IS <0 OR (>=33 & <=36) OR =45 OR =46

OR (>=50 & <=54)*/

mn1701=0;

mn1702=0;

mn1703=0;

faminc_c=0;

income_c=-3;

compo1=mil_cur;

compo2=mils_cur;

compo3=wps_cur;

compo4=wpss_cur;

compo5=sei_cur;

compo6=seis_cur;

compo7=ui_cur;

compo8=uis_cur;

compo9=chsp_cur;

compo10=afdc_cur;

compo11=ssi_cur;

compo12=ed_cur;

compo13=edss_cur;

compo14=vet_cur;

compo15=other_c;

compo16=relwel_c;

compo17=relreg_c;

compo18=food_cur;

compo19=chsps_c;

compo20=wkcmp_c;

compo21=dis_cur;

compo22=ss_cur;

if (wktot01u = -4 & rctot01u > 0) then do;

ui_cur=-3;

compo7=-3;

end;

else if (wktot01u < 0 & wktot01u > -4) then do;

ui_cur=-3;

compo7=-3;

end;

if (wktot01s = -4 & rctot01s > 0) then do;

uis_cur=-3;

compo8=-3;

end;

else if (wktot01s < 0 & wktot01s > -4) then do;

uis_cur=-3;

compo8=-3;

end;

if (motot01a = -4 & rctot01a > 0) then do;

afdc_cur=-3;

compo10=-3;

end;

else if (motot01a < 0 & motot01a > -4) then do;

afdc_cur=-3;

compo10=-3;

end;

if (motot01f = -4 & rctot01f > 0) then do;

food_cur=-3;

compo18=-3;

end;

else if (motot01f < 0 & motot01f > -4) then do;

food_cur=-3;

compo18=-3;

end;

if (motot01w = -4 & rctot01w > 0) then do;

ssi_cur=-3;

compo11=-3;

end;

else if (motot01w < 0 & motot01w > -4) then do;

ssi_cur=-3;

compo11=-3;

end;

array compo (j) compo1 compo2 compo3 compo4 compo5 compo6 compo7

compo8 compo9 compo10 compo11 compo12 compo13 compo14

compo15 compo16 compo17 compo18 compo19 compo20

compo21 compo22;

do j=1 to 22;

if (compo > -4) then do;

if (compo < 0 & compo = -1) then mn1701=(mn1701+1);

else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);

else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);

else faminc_c=(faminc_c + compo);

end;

end;

sumn_cur=mn1701 + mn1702 + mn1703;

if (sumn_cur = 0) then income_c=faminc_c;

else do;

if (mn1703 > 0) then income_c=-3;

else if (mn1702 > 0) then income_c=-2;

else if (mn1701 > 0) then income_c=-1;

end;

if (paflaga = -5) then income_c=-5;

proc freq;

tables mn1701 mn1702 mn1703 sumn_cur;

if (income_c > level_c) then cps_cur=0;

else if (income_c >= 0 & income_c <= level_c) then cps_cur=1;

else cps_cur=-3;

array mn (k) mn1701 mn1702 mn1703;

do k=1 to 3;

if (mn > 0) then mn=1;

end;

if (sumn_cur > 0) then sumn_cur=1;

if (paflaga = -5) then level_c=-5;

if (paflaga = -5) then cps_cur=-5;  

  

2004 Variables

* SAS PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2004;

afdc_cur=-4;

chsp_cur=-4;

chsps_c=-4;

cps_cur=-4;

ed_cur=-4;

edss_cur=-4;

family_c=-4;

faminc_c=-4;

food_cur=-4;

income_c=-4;

level_c=-4;

mil_cur=-4;

mils_cur=-4;

mn1701=-4;

mn1702=-4;

mn1703=-4;

other_c=-4;

ssi_cur=-4;

relreg_c=-4;

relwel_c=-4;

s_cur=-4;

sei_cur=-4;

seis_cur=-4;

sumn_cur=-4;

target_c=-4;

ui_cur=-4;

uis_cur=-4;

vet_cur=-4;

wps_cur=-4;

wpss_cur=-4;

wkcmp_c=-4;

dis_cur=-4;

ss_cur=-4;

* Federal Poverty Guidelines used in 2003 program apply to calendar year;

if (Q13_3 = -4) then mil_cur=0;

else mil_cur=Q13_3;

if (Q13_5 = -4) then wps_cur=0;

else wps_cur=Q13_5;

* new series to incorporate new farm & bus income qs;

fjt_inc=fjt_141;

if (fjt_inc = -4) then farm_cur=0;

else farm_cur=fjt_inc;

bpjt_inc=bp_141;

if (bpjt_inc = -4) then bus_cur=0;

else bus_cur=bpjt_inc;

fbr_inc=q13_132d;

if (fbr_inc = -4) then fbr_cur=0;

else fbr_cur=fbr_inc;

if (Q13_9 = -4) then sei_cur=0;

else sei_cur=Q13_9;

if (farm_cur > 0) then sei_cur=(sei_cur+farm_cur);

if (bus_cur > 0) then sei_cur=(sei_cur+bus_cur);

if (fbr_cur > 0) then sei_cur=(sei_cur+fbr_cur);

data compute1;

set compute;

if (wktot03u = -4 & rctot03u = -4) then ui_cur=0;

else if (wktot03u = -4 & rctot03u = 0) then ui_cur=0;

else if (wktot03u > 0 & rctot03u > 0) then ui_cur=rctot03u;

else if (wktot03u < 0) then ui_cur=wktot03u;

else if (rctot03u < 0) then ui_cur=rctot03u;

else ui_cur=-3;

if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;

else mils_cur=Q13_16;

if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;

else wpss_cur=Q13_18;

if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;

else seis_cur=Q13_24;

if (paflaga = 1 | (wktot03s = -4 & rctot03s = -4)) then uis_cur=0;

else if (paflaga = 1 | (wktot03s = -4 & rctot03s = 0)) then uis_cur=0;

else if (wktot03s > 0 & rctot03s > 0) then uis_cur=rctot03s;

else if (wktot03s < 0) then uis_cur=wktot03s;

else if (rctot03s < 0) then uis_cur=rctot03s;

else uis_cur=-3;

if (q13_31b = -4) then wkcmp_c=0;

else wkcmp_c=q13_31b;

if (Q13_33i = -4) then chsp_cur=0;

else chsp_cur=Q13_33i;

if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;

else chsps_c=Q13_33m;

if (rctot03a = -4 | rctot03a = 0) then afdc_cur=0;

else if (motot03a = -4 | motot03a = 0) then afdc_cur=0;

else if (rctot03a < 0) then afdc_cur=rctot03a;

else if (motot03a < 0) then afdc_cur=motot03a;

else if (motot03a <= 0) then afdc_cur=-3;

else afdc_cur=rctot03a;

if (rctot03f = -4 | rctot03f = 0) then food_cur=0;

else if (motot03f = -4 | motot03f = 0) then food_cur=0;

else if (rctot03f < 0) then food_cur=rctot03f;

else if (motot03f < 0) then food_cur=motot03f;

else if (motot03f <= 0) then food_cur=-3;

else food_cur=rctot03f;

if (rctot03w = -4 | rctot03w = 0) then ssi_cur=0;

else if (motot03w = -4 | motot03w = 0) then ssi_cur=0;

else if (rctot03w < 0) then ssi_cur=rctot03w;

else if (motot03w < 0) then ssi_cur=motot03w;

else if (motot03w <= 0) then ssi_cur=-3;

else ssi_cur=rctot03w;

if (Q13_66 = -4) then ed_cur=0;

else ed_cur=Q13_66;

if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;

else edss_cur=Q13_68;

if (q13_70_v = -4) then vet_cur=0;

else if (q13_70_v = -2) then vet_cur=q13_70_v;

else if (q13_70_v = -1) then vet_cur=q13_70_v;

else vet_cur=(q13_70_v * 12);

if (q13_70_d = -4) then dis_cur=0;

else if (q13_70_d = -2) then dis_cur=q13_70_d;

else if (q13_70_d = -1) then dis_cur=q13_70_d;

else dis_cur=(q13_70_d * 12);

if (q13_70_s = -4) then ss_cur=0;

else if (q13_70_s = -2) then ss_cur=q13_70_s;

else if (q13_70_s = -1) then ss_cur=q13_70_s;

else ss_cur=(q13_70_s * 12);

if (Q13_75 = -4) then other_c=0;

else other_c=Q13_75;

data compute2;

set compute1;

if (vet_cur > 0 & other_c = vet_cur) then other_c=0;

if (Q13_92 = -4) then relwel_c=0;

else relwel_c=Q13_92;

if (Q13_92c = -4) then relreg_c=0;

else relreg_c=Q13_92c;

family_c=famsz04;

/* TO CREATE FAMILY SIZE (I.E. FAMSZ04) SEARCH THRU THE HOUSEHOLD ENUMERATION

INCREMENT FAMILY SIZE, IF THE RELATIONSHIP TO THE YOUTH IS A RELATIVE.

DO NOT INCREASE FAMILY SIZE, IF THE CODE IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

(>=50 & <=54)*/

mn1701=0;

mn1702=0;

mn1703=0;

faminc_c=0;

income_c=-3;

compo1=mil_cur;

compo2=mils_cur;

compo3=wps_cur;

compo4=wpss_cur;

compo5=sei_cur;

compo6=seis_cur;

compo7=ui_cur;

compo8=uis_cur;

compo9=chsp_cur;

compo10=afdc_cur;

compo11=ssi_cur;

compo12=ed_cur;

compo13=edss_cur;

compo14=vet_cur;

compo15=other_c;

compo16=relwel_c;

compo17=relreg_c;

compo18=food_cur;

compo19=chsps_c;

compo20=wkcmp_c;

compo21=dis_cur;

compo22=ss_cur;

if (wktot03u = -4 & rctot03u > 0) then do;

ui_cur=-3;

compo7=-3;

end;

else if (wktot03u < 0 & wktot03u > -4) then do;

ui_cur=-3;

compo7=-3;

end;

if (wktot03s = -4 & rctot03s > 0) then do;

uis_cur=-3;

compo8=-3;

end;

else if (wktot03s < 0 & wktot03s > -4) then do;

uis_cur=-3;

compo8=-3;

end;

if (motot03a = -4 & rctot03a > 0) then do;

afdc_cur=-3;

compo10=-3;

end;

else if (motot03a < 0 & motot03a > -4) then do;

afdc_cur=-3;

compo10=-3;

end;

if (motot03f = -4 & rctot03f > 0) then do;

food_cur=-3;

compo18=-3;

end;

else if (motot03f < 0 & motot03f > -4) then do;

food_cur=-3;

compo18=-3;

end;

if (motot03w = -4 & rctot03w > 0) then do;

ssi_cur=-3;

compo11=-3;

end;

else if (motot03w < 0 & motot03w > -4) then do;

ssi_cur=-3;

compo11=-3;

end;

array compo (j) compo1 compo2 compo3 compo4 compo5 compo6 compo7

compo8 compo9 compo10 compo11 compo12 compo13 compo14

compo15 compo16 compo17 compo18 compo19 compo20

compo21 compo22;

do j=1 to 22;

if (compo > -4) then do;

if (compo < 0 & compo = -1) then mn1701=(mn1701+1);

else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);

else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);

else faminc_c=(faminc_c + compo);

end;

end;

sumn_cur=mn1701 + mn1702 + mn1703;

if (sumn_cur = 0) then income_c=faminc_c;

else do;

if (mn1703 > 0) then income_c=-3;

else if (mn1702 > 0) then income_c=-2;

else if (mn1701 > 0) then income_c=-1;

end;

if (paflaga = -5) then income_c=-5;

proc freq; tables vet_cur other_c;

proc freq;

tables mn1701 mn1702 mn1703 sumn_cur;

data truncate;

set compute2;

if (income_c >= 250200);

data compute3;

set compute2;

incom_ct=income_c;

if (income_c >= 250200) then incom_ct=408473;

array mn (k) mn1701 mn1702 mn1703;

do k=1 to 3;

if (mn > 0) then mn=1;

end;

if (sumn_cur > 0) then sumn_cur=1;

if (paflaga = -5) then level_c=-5;

if (paflaga = -5) then cps_cur=-5;

2006 Variables

Total Net Family Income and Poverty Status in Calendar Year 2005 Incorporating Estimates

In the 2006 interview, respondents who didn’t know many specific income amounts were asked to estimate those amounts using self-reported ranges and if necessary, unfolding brackets. Respondents who refused to report many specific income amounts were asked unfolding bracket questions as well (see for example T09123.00 - T09131.00). The Total Net Family Income variable for calendar year 2005 (T09878.00) incorporates these estimates. The mid-point of self-reported ranges was used if available. Similarly, the mid-point of unfolding brackets were used where necessary and available. If a respondent reported that an income value was higher than the high bracket, the mean of valid values reported above the high bracket was used. For example, if a respondent reported that an income value was higher than the high bracket, and the high bracket was $50,000, the mean of all valid values reported over $50,000 was assigned.

The Poverty Status variable for calendar year 2005 (T09879.00) is created using the enhanced Total Net Family Income variable described above. Using these estimates where available significantly reduces the magnitude of non-response in both the Total Net Family Income and Poverty Status variables.

The decision rules for using estimates in individual income items are as follows:

If self-reported ranges are given and (example T09126.00, T09128.00):

upper/lower values are in proper order, midpoint is used;

ranges are given backwards, the values are reversed and midpoint is used;

the same value is given for upper/lower self-reported range value, that single value is used;

If unfolding brackets are answered (low bracket < entry value < high bracket) and (example T09129.00-T09131.00):

r reports less than entry value and less than low bracket, then half of low bracket value is used (midpoint between low bracket and 0)

r reports less than entry value but greater than low bracket value, midpoint between low bracket and entry value is used;

r reports greater than entry value but less than high bracket value, midpoint between entry value and high bracket is used;

r reports greater than entry value and greater than high bracket value, the mean of valid responses above the high bracket value is used.

weight06=1;
if curyr=-4 then weight06=0;

* add to paflag for any missed;

paflaga = paflag;
if (rel01 = 33 | rel02 = 33 | rel03 = 33 | rel04 = 33 | rel05 = 33
| rel06 = 33 | rel07 = 33 | rel08 = 33 | rel09 = 33 | rel10 = 33
| rel11 = 33 | rel12 = 33 | rel13 = 33 | rel14 = 33
| rel15 = 33) then paflaga=1;
if (paflaga = .) then paflaga=-5;

spflaga = 0;
if (rel01 = 1 | rel02 = 1 | rel03 = 1 | rel04 = 1 | rel05 = 1
| rel06 = 1 | rel07 = 1 | rel08 = 1 | rel09 = 1 | rel10 = 1
| rel11 = 1 | rel12 = 1 | rel13 = 1 | rel14 = 1
| rel15 = 1) then spflaga=1;

if (spflag = .) then spflag=-5;
if (spflag = -5) then spflaga=-5;

* compute recipiency variables;

rctot05u = ucdol105;
if (paflaga = -5) then rctot05u=-5;

if (ucdol105 = .) then rctot05u=-4;
if (ucdol105 = .) then wktot05u=-4;

wktot05u = 0;
if (dujn0605 > 0) then wktot05u=4.3;
if (dufb0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dumr0605 > 0) then wktot05u=(wktot05u + 4.3);
if (duar0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dumy0605 > 0) then wktot05u=(wktot05u + 4.3);
if (duju0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dujl0605 > 0) then wktot05u=(wktot05u + 4.3);
if (duag0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dusp0605 > 0) then wktot05u=(wktot05u + 4.3);
if (duot0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dunv0605 > 0) then wktot05u=(wktot05u + 4.3);
if (dudc0605 > 0) then wktot05u=(wktot05u + 4.3);
if (wktot05u = 0) then wktot05u=-4;
if (paflaga = -5) then wktot05u=-5;

rctot05s = spdol105;
if (paflaga = -5) then rctot05s=-5;

if (spdol105 = .) then rctot05s=-4;
if (spdol105 = .) then wktot05s=-4;

wktot05s = 0;
if (tsjn0605 > 0) then wktot05s=4.3;
if (tsfb0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsmr0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsar0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsmy0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsju0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsjl0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsag0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tssp0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsot0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsnv0605 > 0) then wktot05s=(wktot05s + 4.3);
if (tsdc0605 > 0) then wktot05s=(wktot05s + 4.3);
if (wktot05s = 0) then wktot05s=-4;
if (paflaga = -5) then wktot05s=-5;

rctot05w = ssdol105;
if (paflaga = -5) then rctot05w=-5;

if (ssdol105 = .) then rctot05w=-4;
if (ssdol105 = .) then wktot05w=-4;

motot05w = 0;
if (dsjn0605 > 0) then motot05w=1;
if (dsfb0605 > 0) then motot05w=(motot05w + 1);
if (dsmr0605 > 0) then motot05w=(motot05w + 1);
if (dsar0605 > 0) then motot05w=(motot05w + 1);
if (dsmy0605 > 0) then motot05w=(motot05w + 1);
if (dsju0605 > 0) then motot05w=(motot05w + 1);
if (dsjl0605 > 0) then motot05w=(motot05w + 1);
if (dsag0605 > 0) then motot05w=(motot05w + 1);
if (dssp0605 > 0) then motot05w=(motot05w + 1);
if (dsot0605 > 0) then motot05w=(motot05w + 1);
if (dsnv0605 > 0) then motot05w=(motot05w + 1);
if (dsdc0605 > 0) then motot05w=(motot05w + 1);
if (motot05w = 0) then motot05w=-4;
if (paflaga = -5) then motot05w=-5;

rctot05a = adol105;
if (paflaga = -5) then rctot05a=-5;

if (adol105 = .) then rctot05a=-4;
if (adol105 = .) then wktot05a=-4;

motot05a = 0;
if (dajn0605 > 0) then motot05a=1;
if (dafb0605 > 0) then motot05a=(motot05a + 1);
if (damr0605 > 0) then motot05a=(motot05a + 1);
if (daar0605 > 0) then motot05a=(motot05a + 1);
if (damy0605 > 0) then motot05a=(motot05a + 1);
if (daju0605 > 0) then motot05a=(motot05a + 1);
if (dajl0605 > 0) then motot05a=(motot05a + 1);
if (daag0605 > 0) then motot05a=(motot05a + 1);
if (dasp0605 > 0) then motot05a=(motot05a + 1);
if (daot0605 > 0) then motot05a=(motot05a + 1);
if (danv0605 > 0) then motot05a=(motot05a + 1);
if (dadc0605 > 0) then motot05a=(motot05a + 1);
if (motot05a = 0) then motot05a=-4;
if (paflaga = -5) then motot05a=-5;

rctot05f = fsdol105;
if (paflaga = -5) then rctot05f=-5;

if (fsdol105 = .) then rctot05f=-4;
if (fsdol105 = .) then wktot05f=-4;

motot05f = 0;
if (dfjn0605 > 0) then motot05f=1 ;
if (dffb0605 > 0) then motot05f=(motot05f + 1);
if (dfmr0605 > 0) then motot05f=(motot05f + 1);
if (dfar0605 > 0) then motot05f=(motot05f + 1);
if (dfmy0605 > 0) then motot05f=(motot05f + 1);
if (dfju0605 > 0) then motot05f=(motot05f + 1);
if (dfjl0605 > 0) then motot05f=(motot05f + 1);
if (dfag0605 > 0) then motot05f=(motot05f + 1);
if (dfsp0605 > 0) then motot05f=(motot05f + 1);
if (dfot0605 > 0) then motot05f=(motot05f + 1);
if (dfnv0605 > 0) then motot05f=(motot05f + 1);
if (dfdc0605 > 0) then motot05f=(motot05f + 1);
if (motot05f = 0) then motot05f=-4;
if (paflaga = -5) then motot05f=-5;

* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2005;

afdc_cur=-4;
chsp_cur=-4;
chsps_c=-4;
cps_cur=-4;
ed_cur=-4;
edss_cur=-4;
family_c=-4;
faminc_c=-4;
food_cur=-4;
income_c=-4;
level_c=-4;
mil_cur=-4;
mils_cur=-4;
mn1701=-4;
mn1702=-4;
mn1703=-4;
other_c=-4;
ssi_cur=-4;
relreg_c=-4;
relwel_c=-4;
s_cur=-4;
sei_cur=-4;
seis_cur=-4;
sumn_cur=-4;
target_c=-4;
ui_cur=-4;
uis_cur=-4;
vet_cur=-4;
wps_cur=-4;
wpss_cur=-4;
wkcmp_c=-4;
dis_cur=-4;
ss_cur=-4;

* Poverty status and level

s_cur=1;

if (Q13_3 = -4) then mil_cur=0;
else mil_cur=Q13_3;

if (Q13_5 = -4) then wps_cur=0;
else wps_cur=Q13_5;

if (Q13_9 = -4) then sei_cur=0;
else sei_cur=Q13_9;

proc sort; by id;

data compute1;
set compute;
if (wktot05u = -4 & rctot05u = -4) then ui_cur=0;
else if (wktot05u = -4 & rctot05u = 0) then ui_cur=0;
else if (wktot05u > 0 & rctot05u > 0) then ui_cur=rctot05u;
else if (wktot05u < 0) then ui_cur=wktot05u;
else if (rctot05u < 0) then ui_cur=rctot05u;
else ui_cur=-3;

if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;
else mils_cur=Q13_16;

if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;
else wpss_cur=Q13_18;

if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;
else seis_cur=Q13_24;

if (paflaga = 1 | (wktot05s = -4 & rctot05s = -4)) then uis_cur=0;
else if (paflaga = 1 | (wktot05s = -4 & rctot05s = 0)) then uis_cur=0;
else if (wktot05s > 0 & rctot05s > 0) then uis_cur=rctot05s;
else if (wktot05s < 0) then uis_cur=wktot05s;
else if (rctot05s < 0) then uis_cur=rctot05s;
else uis_cur=-3;

if (q13_31b = -4) then wkcmp_c=0;
else wkcmp_c=q13_31b;

if (Q13_33i = -4) then chsp_cur=0;
else chsp_cur=Q13_33i;

if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;
else chsps_c=Q13_33m;

if (rctot05a = -4 | rctot05a = 0) then afdc_cur=0;
else if (motot05a = -4 | motot05a = 0) then afdc_cur=0;
else if (rctot05a < 0) then afdc_cur=rctot05a;
else if (motot05a < 0) then afdc_cur=motot05a;
else if (motot05a <= 0) then afdc_cur=-3;
else afdc_cur=rctot05a;

if (rctot05f = -4 | rctot05f = 0) then food_cur=0;
else if (motot05f = -4 | motot05f = 0) then food_cur=0;
else if (rctot05f < 0) then food_cur=rctot05f;
else if (motot05f < 0) then food_cur=motot05f;
else if (motot05f <= 0) then food_cur=-3;
else food_cur=rctot05f;

if (rctot05w = -4 | rctot05w = 0) then ssi_cur=0;
else if (motot05w = -4 | motot05w = 0) then ssi_cur=0;
else if (rctot05w < 0) then ssi_cur=rctot05w;
else if (motot05w < 0) then ssi_cur=motot05w;
else if (motot05w <= 0) then ssi_cur=-3;
else ssi_cur=rctot05w;

if (Q13_66 = -4) then ed_cur=0;
else ed_cur=Q13_66;

if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;
else edss_cur=Q13_68;

if (q13_70_v = -4) then vet_cur=0;
else if (q13_70_v = -2) then vet_cur=q13_70_v;
else if (q13_70_v = -1) then vet_cur=q13_70_v;
else vet_cur=(q13_70_v * 12);

if (q13_70_d = -4) then dis_cur=0;
else if (q13_70_d = -2) then dis_cur=q13_70_d;
else if (q13_70_d = -1) then dis_cur=q13_70_d;
else dis_cur=(q13_70_d * 12);

if (q13_70_s = -4) then ss_cur=0;
else if (q13_70_s = -2) then ss_cur=q13_70_s;
else if (q13_70_s = -1) then ss_cur=q13_70_s;
else ss_cur=(q13_70_s * 12);

if (Q13_75 = -4) then other_c=0;
else other_c=Q13_75;

data compute2;
set compute1;

if (vet_cur > 0 & other_c = vet_cur) then other_c=0;

if (Q13_92 = -4) then relwel_c=0;
else relwel_c=Q13_92;

if (Q13_92c = -4) then relreg_c=0;
else relreg_c=Q13_92c;

family_c=famsz06;

/* TO CREATE FAMILY SIZE (I.E. FAMSZ04) SEARCH THRU THE HOUSEHOLD ENUMERATION
INCREMENT FAMILY SIZE, IF THE RELATIONSHIP TO THE YOUTH IS A RELATIVE.
DO NOT INCREASE FAMILY SIZE, IF THE CODE IS <0 OR (>=33 & <=36) OR =45 OR =46 OR
(>=50 & <=54)*/

mn1701=0;
mn1702=0;
mn1703=0;
faminc_c=0;
income_c=-3;
compo1=mil_cur;
compo2=mils_cur;
compo3=wps_cur;
compo4=wpss_cur;
compo5=sei_cur;
compo6=seis_cur;
compo7=ui_cur;
compo8=uis_cur;
compo9=chsp_cur;
compo10=afdc_cur;
compo11=ssi_cur;
compo12=ed_cur;
compo13=edss_cur;
compo14=vet_cur;
compo15=other_c;
compo16=relwel_c;
compo17=relreg_c;
compo18=food_cur;
compo19=chsps_c;
compo20=wkcmp_c;
compo21=dis_cur;
compo22=ss_cur;

if (wktot05u = -4 & rctot05u > 0) then do;
ui_cur=-3;
compo7=-3;
end;
else if (wktot05u < 0 & wktot05u > -4) then do;
ui_cur=-3;
compo7=-3;
end;

if (wktot05s = -4 & rctot05s > 0) then do;
uis_cur=-3;
compo8=-3;
end;
else if (wktot05s < 0 & wktot05s > -4) then do;
uis_cur=-3;
compo8=-3;
end;

if (motot05a = -4 & rctot05a > 0) then do;
afdc_cur=-3;
compo10=-3;
end;
else if (motot05a < 0 & motot05a > -4) then do;
afdc_cur=-3;
compo10=-3;
end;

if (motot05f = -4 & rctot05f > 0) then do;
food_cur=-3;
compo18=-3;
end;
else if (motot05f < 0 & motot05f > -4) then do;
food_cur=-3;
compo18=-3;
end;

if (motot05w = -4 & rctot05w > 0) then do;
ssi_cur=-3;
compo11=-3;
end;
else if (motot05w < 0 & motot05w > -4) then do;
ssi_cur=-3;
compo11=-3;
end;

array compo (j) compo1 compo2 compo3 compo4 compo5 compo6 compo7
compo8 compo9 compo10 compo11 compo12 compo13 compo14
compo15 compo16 compo17 compo18 compo19 compo20
compo21 compo22;

do j=1 to 22;
if (compo > -4) then do;
if (compo < 0 & compo = -1) then mn1701=(mn1701+1);
else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);
else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);
else faminc_c=(faminc_c + compo);
end;
end;

sumn_cur=mn1701 + mn1702 + mn1703;

if (sumn_cur = 0) then income_c=faminc_c;
else do;
if (mn1703 > 0) then income_c=-3;
else if (mn1702 > 0) then income_c=-2;
else if (mn1701 > 0) then income_c=-1;
end;

if (paflaga = -5) then income_c=-5;

data compute3;
set compute2;
incom_ct=income_c;
if (income_c >= 279000) then incom_ct=527631;

if (income_c > level_c) then cps_cur=0;
else if (income_c >= 0 & income_c <= level_c) then cps_cur=1;
else cps_cur=-3;

array mn (k) mn1701 mn1702 mn1703;

do k=1 to 3;
if (mn > 0) then mn=1;
end;

if (sumn_cur > 0) then sumn_cur=1;

if (paflaga = -5) then level_c=-5;
if (paflaga = -5) then cps_cur=-5;

2008 Variables

* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2007;
 

afdc_cur=-4;
chsp_cur=-4;
chsps_c=-4;
cps_cur=-4;
ed_cur=-4;
edss_cur=-4;
family_c=-4;
faminc_c=-4;
food_cur=-4;
income_c=-4;
level_c=-4;
mil_cur=-4;
mils_cur=-4;
mn1701=-4;
mn1702=-4;
mn1703=-4;
other_c=-4;
ssi_cur=-4;
relreg_c=-4;
relwel_c=-4;
s_cur=-4;
sei_cur=-4;
seis_cur=-4;
sumn_cur=-4;
target_c=-4;
ui_cur=-4;
uis_cur=-4;
vet_cur=-4;
wps_cur=-4;
wpss_cur=-4;
wkcmp_c=-4;
dis_cur=-4;
ss_cur=-4;

if (Q13_3 = -4) then mil_cur=0;
else mil_cur=Q13_3;

if (Q13_5 = -4) then wps_cur=0;
else wps_cur=Q13_5;

fjt_inc=fjt_141;

if (fjt_inc = -4) then farm_cur=0;

                    else farm_cur=fjt_inc;

bpjt_inc=bp_141;
if (bpjt_inc = -4) then bus_cur=0;

                    else bus_cur=bpjt_inc;

fbr_inc=q13_132d;
if (fbr_inc = -4) then fbr_cur=0;

                    else fbr_cur=fbr_inc;

if (Q13_9 = -4) then sei_cur=0;
                    else sei_cur=Q13_9;

if (farm_cur > 0) then sei_cur=(sei_cur+farm_cur);
if (bus_cur > 0)  then sei_cur=(sei_cur+bus_cur);
if (fbr_cur > 0)  then sei_cur=(sei_cur+fbr_cur);

proc sort; by id;

data compute1;
set compute;

if (wktot07u = -4 & rctot07u = -4) then ui_cur=0;
else if (wktot07u = -4 & rctot07u = 0) then ui_cur=0;
else if (wktot07u > 0 & rctot07u > 0) then ui_cur=rctot07u;
else if (wktot07u < 0) then ui_cur=wktot07u;
else if (rctot07u < 0) then ui_cur=rctot07u;
else ui_cur=-3;

if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;
else mils_cur=Q13_16;

if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;
else wpss_cur=Q13_18;

if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;
else seis_cur=Q13_24;

if (paflaga = 1 | (wktot07s = -4 & rctot07s = -4)) then uis_cur=0;
else if (paflaga = 1 | (wktot07s = -4 & rctot07s = 0)) then uis_cur=0;
else if (wktot07s > 0 & rctot07s > 0) then uis_cur=rctot07s;
else if (wktot07s < 0) then uis_cur=wktot07s;
else if (rctot07s < 0) then uis_cur=rctot07s;
else uis_cur=-3;

if (q13_31b = -4) then wkcmp_c=0;
else wkcmp_c=q13_31b;

if (Q13_33i = -4) then chsp_cur=0;
else chsp_cur=Q13_33i;

if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;
else chsps_c=Q13_33m;

if (rctot07a = -4 | rctot07a = 0) then afdc_cur=0;
else if (motot07a = -4 | motot07a = 0) then afdc_cur=0;
else if (rctot07a < 0) then afdc_cur=rctot07a;
else if (motot07a < 0) then afdc_cur=motot07a;
else if (motot07a <= 0) then afdc_cur=-3;
else afdc_cur=rctot07a;

if (rctot07f = -4 | rctot07f = 0) then food_cur=0;
else if (motot07f = -4 | motot07f = 0) then food_cur=0;
else if (rctot07f < 0) then food_cur=rctot07f;
else if (motot07f < 0) then food_cur=motot07f;
else if (motot07f <= 0) then food_cur=-3;
else food_cur=rctot07f;

if (rctot07w = -4 | rctot07w = 0) then ssi_cur=0;
else if (motot07w = -4 | motot07w = 0) then ssi_cur=0;
else if (rctot07w < 0) then ssi_cur=rctot07w;
else if (motot07w < 0) then ssi_cur=motot07w;
else if (motot07w <= 0) then ssi_cur=-3;
else ssi_cur=rctot07w;

if (Q13_66 = -4) then ed_cur=0;
else ed_cur=Q13_66;

if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;
else edss_cur=Q13_68;

if (q13_70_v = -4) then vet_cur=0;
else if (q13_70_v = -2) then vet_cur=q13_70_v;
else if (q13_70_v = -1) then vet_cur=q13_70_v;
else vet_cur=(q13_70_v * q13_70a_v);*replaced 12 by q13_70a_v;

if (q13_70_d = -4) then dis_cur=0;
else if (q13_70_d = -2) then dis_cur=q13_70_d;
else if (q13_70_d = -1) then dis_cur=q13_70_d;
else dis_cur=(q13_70_d * q13_70a_d);*replaced 12 by q13_70a_d;

 if (q13_70_s = -4) then ss_cur=0;
else if (q13_70_s = -2) then ss_cur=q13_70_s;
else if (q13_70_s = -1) then ss_cur=q13_70_s;
else ss_cur=(q13_70_s * q13_70a_s);*replaced 12 by q13_70a_s;

 if (Q13_75 = -4) then other_c=0;
else other_c=Q13_75;

data compute2;
set compute1;

 if (vet_cur > 0 & other_c = vet_cur) then other_c=0;

 if (Q13_92 = -4) then relwel_c=0;
else relwel_c=Q13_92;

 if (Q13_92c = -4) then relreg_c=0;
else relreg_c=Q13_92c;

 family_c=famsz08;

 /* TO CREATE FAMILY SIZE (I.E. FAMSZ08) SEARCH THRU THE HOUSEHOLD ENUMERATION INCREMENT FAMILY SIZE, IF THE RELATIONSHIP TO THE YOUTH IS A RELATIVE.  DO NOT INCREASE FAMILY SIZE, IF THE CODE IS <0 OR (>=33 & <=36) OR =45 OR =46 OR (>=50 & <=54)*/

mn1701=0;
mn1702=0;
mn1703=0;
faminc_c=0;
income_c=-3;
compo1=mil_cur;
compo2=mils_cur;
compo3=wps_cur;
compo4=wpss_cur;
compo5=sei_cur;
compo6=seis_cur;
compo7=ui_cur;
compo8=uis_cur;
compo9=chsp_cur;
compo10=afdc_cur;
compo11=ssi_cur;
compo12=ed_cur;
compo13=edss_cur;
compo14=vet_cur;
compo15=other_c;
compo16=relwel_c;
compo17=relreg_c;
compo18=food_cur;
compo19=chsps_c;
compo20=wkcmp_c;
compo21=dis_cur;
compo22=ss_cur;
 

if (wktot07u = -4 & rctot07u > 0) then do;

        ui_cur=-3;

        compo7=-3;

        end;

else if (wktot07u < 0 & wktot07u > -4) then do;

        ui_cur=-3;

        compo7=-3;

        end;

if (wktot07s = -4 & rctot07s > 0) then do;

        uis_cur=-3;

        compo8=-3;

        end;

else if (wktot07s < 0 & wktot07s > -4) then do;

        uis_cur=-3;

        compo8=-3;

        end;

if (motot07a = -4 & rctot07a > 0) then do;

        afdc_cur=-3;

        compo10=-3;

        end;

else if (motot07a < 0 & motot07a > -4) then do;

        afdc_cur=-3;

        compo10=-3;

        end;

 if (motot07f = -4 & rctot07f > 0) then do;

        food_cur=-3;

        compo18=-3;

        end;

else if (motot07f < 0 & motot07f > -4) then do;

        food_cur=-3;

        compo18=-3;

        end;

 if (motot07w = -4 & rctot07w > 0) then do;

        ssi_cur=-3;

        compo11=-3;

        end;

else if (motot07w < 0 & motot07w > -4) then do;

        ssi_cur=-3;

        compo11=-3;

        end;

 array compo (j) compo1  compo2  compo3  compo4  compo5  compo6  compo7

                compo8  compo9  compo10 compo11 compo12 compo13 compo14

                compo15 compo16 compo17 compo18 compo19 compo20

                compo21 compo22;

 do j=1 to 22;

  if (compo > -4) then do;

    if (compo < 0 & compo = -1) then mn1701=(mn1701+1);

    else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);

    else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);

    else faminc_c=(faminc_c + compo);

  end;

end;

 sumn_cur=mn1701 + mn1702 + mn1703;

 if (sumn_cur = 0) then income_c=faminc_c;

else do;

  if (mn1703 > 0) then income_c=-3;

   else if (mn1702 > 0) then income_c=-2;

   else if (mn1701 > 0) then income_c=-1;

end;

if (paflaga = -5) then income_c=-5;

data compute3;

set compute2;

incom_ct=income_c;

if (income_c >= 278000) then incom_ct=454737;

if (income_c > level_c) then cps_cur=0;

else if (income_c >= 0 & income_c <= level_c) then cps_cur=1;

else cps_cur=-3;

array mn (k) mn1701 mn1702 mn1703;

do k=1 to 3;

if (mn > 0) then mn=1;

end;

if (sumn_cur > 0) then sumn_cur=1;

if (paflaga = -5) then level_c=-5;

if (paflaga = -5) then cps_cur=-5;

2010 Variables

* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2009;

afdc_cur=-4;
chsp_cur=-4;
chsps_c=-4;
povstatus=-4;
ed_cur=-4;
edss_cur=-4;
family_c=-4;
faminc_c=-4;
food_cur=-4;
tnfi=-4;
povlevel=-4;
mil_cur=-4;
mils_cur=-4;
mn1701=-4;
mn1702=-4;
mn1703=-4;
other_c=-4;
ssi_cur=-4;
relreg_c=-4;
relwel_c=-4;
s_cur=-4;
sei_cur=-4;
seis_cur=-4;
sumn_cur=-4;
target_c=-4;
ui_cur=-4;
uis_cur=-4;
vet_cur=-4;
wps_cur=-4;
wpss_cur=-4;
wkcmp_c=-4;
dis_cur=-4;
ss_cur=-4;

if (Q13_5 = -4) then wps_cur=0;

else wps_cur=Q13_5;

if (Q13_9 = -4) then sei_cur=0;

               else sei_cur=Q13_9;

proc sort; by public_id;

data compute1;

set compute;

if (wktot09u = -4 & rctot09u = -4) then ui_cur=0;

else if (wktot09u = -4 & rctot09u = 0) then ui_cur=0;

else if (wktot09u > 0 & rctot09u > 0) then ui_cur=rctot09u;

else if (wktot09u < 0) then ui_cur=wktot09u;

else if (rctot09u < 0) then ui_cur=rctot09u;

else ui_cur=-3;

if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;

else mils_cur=Q13_16;

if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;

else wpss_cur=Q13_18;

if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;

else seis_cur=Q13_24;

if (paflaga = 1 | (wktot09s = -4 & rctot09s = -4)) then uis_cur=0;

else if (paflaga = 1 | (wktot09s = -4 & rctot09s = 0)) then uis_cur=0;

else if (wktot09s > 0 & rctot09s > 0) then uis_cur=rctot09s;

else if (wktot09s < 0) then uis_cur=wktot09s;

else if (rctot09s < 0) then uis_cur=rctot09s;

else uis_cur=-3;

if (q13_31b = -4) then wkcmp_c=0;

else wkcmp_c=q13_31b;

if (Q13_33i = -4) then chsp_cur=0;

else chsp_cur=Q13_33i;

if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;

else chsps_c=Q13_33m;

if (rctot09a = -4 | rctot09a = 0) then afdc_cur=0;

else if (motot09a = -4 | motot09a = 0) then afdc_cur=0;

else if (rctot09a < 0) then afdc_cur=rctot09a;

else if (motot09a < 0) then afdc_cur=motot09a;

else if (motot09a <= 0) then afdc_cur=-3;

else afdc_cur=rctot09a;

if (rctot09f = -4 | rctot09f = 0) then food_cur=0;

else if (motot09f = -4 | motot09f = 0) then food_cur=0;

else if (rctot09f < 0) then food_cur=rctot09f;

else if (motot09f < 0) then food_cur=motot09f;

else if (motot09f <= 0) then food_cur=-3;

else food_cur=rctot09f;

if (rctot09w = -4 | rctot09w = 0) then ssi_cur=0;

else if (motot09w = -4 | motot09w = 0) then ssi_cur=0;

else if (rctot09w < 0) then ssi_cur=rctot09w;

else if (motot09w < 0) then ssi_cur=motot09w;

else if (motot09w <= 0) then ssi_cur=-3;

else ssi_cur=rctot09w;

if (Q13_66 = -4) then ed_cur=0;

else ed_cur=Q13_66;

if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;

else edss_cur=Q13_68;

if (q13_70_v = -4) then vet_cur=0;

else if (q13_70_v = -2) then vet_cur=q13_70_v;

else if (q13_70_v = -1) then vet_cur=q13_70_v;

else vet_cur=(q13_70_v * q13_70a_v);*replaced 12 by q13_70a_v;

if (q13_70_d = -4) then dis_cur=0;

else if (q13_70_d = -2) then dis_cur=q13_70_d;

else if (q13_70_d = -1) then dis_cur=q13_70_d;

else dis_cur=(q13_70_d * q13_70a_d);*replaced 12 by q13_70a_d;

if (q13_70_s = -4) then ss_cur=0;

else if (q13_70_s = -2) then ss_cur=q13_70_s;

else if (q13_70_s = -1) then ss_cur=q13_70_s;

else ss_cur=(q13_70_s * q13_70a_s);*replaced 12 by q13_70a_s;

if (Q13_75 = -4) then other_c=0;

else other_c=Q13_75;

data compute2;

set compute1;

if (vet_cur > 0 & other_c = vet_cur) then other_c=0;

if (Q13_92 = -4) then relwel_c=0;

else relwel_c=Q13_92;

if (Q13_92c = -4) then relreg_c=0;

else relreg_c=Q13_92c;

family_c=famsz10;

/* TO CREATE FAMILY SIZE (I.E. FAMSZ04) SEARCH THRU THE HOUSEHOLD ENUMERATION

  INCREMENT FAMILY SIZE, IF THE RELATIONSHIP TO THE YOUTH IS A RELATIVE.

  DO NOT INCREASE FAMILY SIZE, IF THE CODE IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

  (>=50 & <=54)*/

mn1701=0;
mn1702=0;
mn1703=0;
faminc_c=0;
tnfi=-3;
compo1=mil_cur;
compo2=mils_cur;
compo3=wps_cur;
compo4=wpss_cur;
compo5=sei_cur;
compo6=seis_cur;
compo7=ui_cur;
compo8=uis_cur;
compo9=chsp_cur;
compo10=afdc_cur;
compo11=ssi_cur;
compo12=ed_cur;
compo13=edss_cur;
compo14=vet_cur;
compo15=other_c;
compo16=relwel_c;
compo17=relreg_c;
compo18=food_cur;
compo19=chsps_c;
compo20=wkcmp_c;
compo21=dis_cur;
compo22=ss_cur;
 

if (wktot09u = -4 & rctot09u > 0) then do;

        ui_cur=-3;

        compo7=-3;

        end;

else if (wktot09u < 0 & wktot09u > -4) then do;

        ui_cur=-3;

        compo7=-3;

        end;

if (wktot09s = -4 & rctot09s > 0) then do;

        uis_cur=-3;

        compo8=-3;

        end;

else if (wktot09s < 0 & wktot09s > -4) then do;

        uis_cur=-3;

        compo8=-3;

        end;

if (motot09a = -4 & rctot09a > 0) then do;

        afdc_cur=-3;

        compo10=-3;

        end;

else if (motot09a < 0 & motot09a > -4) then do;

        afdc_cur=-3;

        compo10=-3;

        end;

if (motot09f = -4 & rctot09f > 0) then do;

        food_cur=-3;

        compo18=-3;

        end;

else if (motot09f < 0 & motot09f > -4) then do;

        food_cur=-3;

        compo18=-3;

        end;

if (motot09w = -4 & rctot09w > 0) then do;

        ssi_cur=-3;

        compo11=-3;

        end;

else if (motot09w < 0 & motot09w > -4) then do;

        ssi_cur=-3;

        compo11=-3;

        end;

array compo (j) compo1  compo2  compo3  compo4  compo5  compo6  compo7

                compo8  compo9  compo10 compo11 compo12 compo13 compo14

                compo15 compo16 compo17 compo18 compo19 compo20

                compo21 compo22;

do j=1 to 22;

  if (compo > -4) then do;

    if (compo < 0 & compo = -1) then mn1701=(mn1701+1);

    else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);

    else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);

    else faminc_c=(faminc_c + compo);

  end;

end;

sumn_cur=mn1701 + mn1702 + mn1703;

if (sumn_cur = 0) then tnfi=faminc_c;

else do;

  if (mn1703 > 0) then tnfi=-3;

   else if (mn1702 > 0) then tnfi=-2;

   else if (mn1701 > 0) then tnfi=-1;

end;

if (paflaga = -5) then tnfi=-5;

proc freq; tables sei_cur seis_cur;

run;

proc print; var public_id sei_cur seis_cur;

where (0<sei_cur<100 or 0<seis_cur<100);

title 'sei_cur and seis_cur <100';

title;

proc freq;  

tables mn1701 mn1702 mn1703 sumn_cur;

* income trunc;

data compute3;

set compute2;

tnfi_trunc=tnfi;

if (tnfi >= 270200) then tnfi_trunc=440692;

if (tnfi > povlevel) then povstatus=0;

else if (tnfi >= 0 & tnfi <= povlevel) then povstatus=1;

else povstatus=-3;

array mn (k) mn1701 mn1702 mn1703;

do k=1 to 3;

if (mn > 0) then mn=1;

end;

if (sumn_cur > 0) then sumn_cur=1;

if (paflaga = -5) then povlevel=-5;

if (paflaga = -5) then povstatus=-5;

 

2012 Variables

* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2011;

afdc_cur=-4;
chsp_cur=-4;
chsps_c=-4;
cps_cur=-4;
ed_cur=-4;
edss_cur=-4;
family_c=-4;
faminc_c=-4;
food_cur=-4;
tnfi=-4;
level_c=-4;
mil_cur=-4;
mils_cur=-4;
mn1701=-4;
mn1702=-4;
mn1703=-4;
other_c=-4;
ssi_cur=-4;
relreg_c=-4;
relwel_c=-4;
s_cur=-4;
sei_cur=-4;
seis_cur=-4;
sumn_cur=-4;
target_c=-4;
ui_cur=-4;
uis_cur=-4;
vet_cur=-4;
wps_cur=-4;
wpss_cur=-4;
wkcmp_c=-4;
dis_cur=-4;
ss_cur=-4;

if (Q13_3 = -4) then mil_cur=0;
else mil_cur=Q13_3;

if (Q13_5 = -4) then wps_cur=0;
else wps_cur=Q13_5;

fjt_inc=fjt_141;

if (fjt_inc = -4) then farm_cur=0;
    else farm_cur=fjt_inc;

bpjt_inc=bp_141;

if (bpjt_inc = -4) then bus_cur=0;
    else bus_cur=bpjt_inc;

fbr_inc=q13_132d;
if (fbr_inc = -4) then fbr_cur=0;
    else fbr_cur=fbr_inc;

if (Q13_9 = -4) then sei_cur=0;
    else sei_cur=Q13_9;

if (farm_cur > 0) then sei_cur=(sei_cur+farm_cur);
if (bus_cur > 0) then sei_cur=(sei_cur+bus_cur);
if (fbr_cur > 0) then sei_cur=(sei_cur+fbr_cur);

data compute1;
set compute;
if (wktot11u = -4 & rctot11u = -4) then ui_cur=0;
else if (wktot11u = -4 & rctot11u = 0) then ui_cur=0;
else if (wktot11u > 0 & rctot11u > 0) then ui_cur=rctot11u;
else if (wktot11u < 0) then ui_cur=wktot11u;
else if (rctot11u < 0) then ui_cur=rctot11u;
else ui_cur=-3;

if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;
else mils_cur=Q13_16;

if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;
else wpss_cur=Q13_18;

if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;
else seis_cur=Q13_24;

if (paflaga = 1 | (wktot11s = -4 & rctot11s = -4)) then uis_cur=0;
else if (paflaga = 1 | (wktot11s = -4 & rctot11s = 0)) then uis_cur=0;
else if (wktot11s > 0 & rctot11s > 0) then uis_cur=rctot11s;
else if (wktot11s < 0) then uis_cur=wktot11s;
else if (rctot11s < 0) then uis_cur=rctot11s;
else uis_cur=-3;

if (q13_31b = -4) then wkcmp_c=0;
else wkcmp_c=q13_31b;

if (Q13_33i = -4) then chsp_cur=0;
else chsp_cur=Q13_33i;

if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;
else chsps_c=Q13_33m;

if (rctot11a = -4 | rctot11a = 0) then afdc_cur=0;
else if (motot11a = -4 | motot11a = 0) then afdc_cur=0;
else if (rctot11a < 0) then afdc_cur=rctot11a;
else if (motot11a < 0) then afdc_cur=motot11a;
else if (motot11a <= 0) then afdc_cur=-3;
else afdc_cur=rctot11a;

if (rctot11f = -4 | rctot11f = 0) then food_cur=0;
else if (motot11f = -4 | motot11f = 0) then food_cur=0;
else if (rctot11f < 0) then food_cur=rctot11f;
else if (motot11f < 0) then food_cur=motot11f;
else if (motot11f <= 0) then food_cur=-3;
else food_cur=rctot11f;

if (rctot11w = -4 | rctot11w = 0) then ssi_cur=0;
else if (motot11w = -4 | motot11w = 0) then ssi_cur=0;
else if (rctot11w < 0) then ssi_cur=rctot11w;
else if (motot11w < 0) then ssi_cur=motot11w;
else if (motot11w <= 0) then ssi_cur=-3;
else ssi_cur=rctot11w;

if (Q13_66 = -4) then ed_cur=0;
else ed_cur=Q13_66;

if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;
else edss_cur=Q13_68;

if (q13_70_v = -4) then vet_cur=0;
else if (q13_70_v = -2|q13_70a_v=-2) then vet_cur=-2;
else if (q13_70_v = -1|q13_70a_v=-1) then vet_cur=-1;
else vet_cur=(q13_70_v * q13_70a_v);

if (q13_70_d = -4) then dis_cur=0;
else if (q13_70_d = -2|q13_70a_d=-2) then dis_cur=-2;
else if (q13_70_d = -1|q13_70a_d=-1) then dis_cur=-1;
else dis_cur=(q13_70_d * q13_70a_d);

if (q13_70_s = -4) then ss_cur=0;
else if (q13_70_s = -2|q13_70a_s=-2) then ss_cur=-2;
else if (q13_70_s = -1|q13_70a_s=-1) then ss_cur=-1;
else ss_cur=(q13_70_s * q13_70a_s);*replaced 12 by q13_70a_s;

if (Q13_75 = -4) then other_c=0;
else other_c=Q13_75;

data compute2;
set compute1;

if (vet_cur > 0 & other_c = vet_cur) then other_c=0;

if (Q13_92 = -4) then relwel_c=0;
else relwel_c=Q13_92;

if (Q13_92c = -4) then relreg_c=0;
else relreg_c=Q13_92c;

family_c=famsz12;

/* TO CREATE FAMILY SIZE (I.E. FAMSZ12) SEARCH THRU THE HOUSEHOLD ENUMERATION
INCREMENT FAMILY SIZE, IF THE RELATIONSHIP TO THE YOUTH IS A RELATIVE.
DO NOT INCREASE FAMILY SIZE, IF THE CODE IS <0 OR (>=33 & <=36) OR =45 OR =46 OR
(>=50 & <=54)*/

mn1701=0;
mn1702=0;
mn1703=0;
faminc_c=0;
tnfi=-3;
compo1=mil_cur;
compo2=mils_cur;
compo3=wps_cur;
compo4=wpss_cur;
compo5=sei_cur;
compo6=seis_cur;
compo7=ui_cur;
compo8=uis_cur;
compo9=chsp_cur;
compo10=afdc_cur;
compo11=ssi_cur;
compo12=ed_cur;
compo13=edss_cur;
compo14=vet_cur;
compo15=other_c;
compo16=relwel_c;
compo17=relreg_c;
compo18=food_cur;
compo19=chsps_c;
compo20=wkcmp_c;
compo21=dis_cur;
compo22=ss_cur;

if (wktot11u = -4 & rctot11u > 0) then do;
ui_cur=-3;
compo7=-3;
end;
else if (wktot11u < 0 & wktot11u > -4) then do;
ui_cur=-3;
compo7=-3;
end;

if (wktot11s = -4 & rctot11s > 0) then do;
uis_cur=-3;
compo8=-3;
end;
else if (wktot11s < 0 & wktot11s > -4) then do;
uis_cur=-3;
compo8=-3;
end;

if (motot11a = -4 & rctot11a > 0) then do;
afdc_cur=-3;
compo10=-3;
end;
else if (motot11a < 0 & motot11a > -4) then do;
afdc_cur=-3;
compo10=-3;
end;

if (motot11f = -4 & rctot11f > 0) then do;
food_cur=-3;
compo18=-3;
end;
else if (motot11f < 0 & motot11f > -4) then do;
food_cur=-3;
compo18=-3;
end;

if (motot11w = -4 & rctot11w > 0) then do;
ssi_cur=-3;
compo11=-3;
end;

else if (motot11w < 0 & motot11w > -4) then do;
ssi_cur=-3;
compo11=-3;
end;

array compo (j) compo1 compo2 compo3 compo4 compo5 compo6 compo7
compo8 compo9 compo10 compo11 compo12 compo13 compo14
compo15 compo16 compo17 compo18 compo19 compo20
compo21 compo22;

do j=1 to 22;
if (compo > -4) then do;
if (compo < 0 & compo = -1) then mn1701=(mn1701+1);
else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);
else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);
else faminc_c=(faminc_c + compo);
end;
end;

sumn_cur=mn1701 + mn1702 + mn1703;

if (sumn_cur = 0) then tnfi=faminc_c;
else do;
if (mn1703 > 0) then tnfi=-3;
else if (mn1702 > 0) then tnfi=-2;
else if (mn1701 > 0) then tnfi=-1;
end;

if (paflaga = -5) then tnfi=-5;

* income trunc;

data compute3;
set compute2;

tnfi_trunc=tnfi;
if (tnfi >= 290500) then tnfi_trunc=497763;

if (tnfi > level_c) then cps_cur=0;
else if (tnfi >= 0 & tnfi <= level_c) then cps_cur=1;
else cps_cur=-3;

array mn (k) mn1701 mn1702 mn1703;

do k=1 to 3;
    if (mn > 0) then mn=1;
end;

if (sumn_cur > 0) then sumn_cur=1;

if (paflaga = -5) then level_c=-5;
if (paflaga = -5) then cps_cur=-5;

2014 Variables

* PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2013;

afdc_cur=-4;

chsp_cur=-4;

chsps_c=-4;

cps_cur=-4;

ed_cur=-4;

edss_cur=-4;

family_c=-4;

faminc_c=-4;

food_cur=-4;

tnfi=-4;

level_c=-4;

mil_cur=-4;

mils_cur=-4;

mn1701=-4;

mn1702=-4;

mn1703=-4;

other_c=-4;

ssi_cur=-4;

relreg_c=-4;

relwel_c=-4;

s_cur=-4;

sei_cur=-4;

seis_cur=-4;

sumn_cur=-4;

target_c=-4;

ui_cur=-4;

uis_cur=-4;

vet_cur=-4;

wps_cur=-4;

wpss_cur=-4;

wkcmp_c=-4;

dis_cur=-4;

ss_cur=-4;

if (Q13_3 = -4) then mil_cur=0;

else mil_cur=Q13_3;

if (Q13_5 = -4) then wps_cur=0;

else wps_cur=Q13_5;

/* comment out business/farm income collected with assets for 2014 - put back in 2016;

* series to incorporate new farm & bus income qs; 

fjt_inc=fjt_141;

if (fjt_inc = -4) then farm_cur=0;

       else farm_cur=fjt_inc;

bpjt_inc=bp_141;

if (bpjt_inc = -4) then bus_cur=0;

               else bus_cur=bpjt_inc;

fbr_inc=q13_132d;

if (fbr_inc = -4) then fbr_cur=0;

               else fbr_cur=fbr_inc;

*/

if (Q13_9 = -4) then sei_cur=0;

               else sei_cur=Q13_9;

/*if (farm_cur > 0) then sei_cur=(sei_cur+farm_cur);

if (bus_cur > 0)  then sei_cur=(sei_cur+bus_cur);

if (fbr_cur > 0)  then sei_cur=(sei_cur+fbr_cur);

*/

run;

data compute1;set compute;

if (wktot13u = -4 & rctot13u = -4) then ui_cur=0;/*unemp comp dol*/

else if (wktot13u = -4 & rctot13u = 0) then ui_cur=0;

else if (wktot13u > 0 & rctot13u > 0) then ui_cur=rctot13u;

else if (wktot13u < 0) then ui_cur=wktot13u;

else if (rctot13u < 0) then ui_cur=rctot13u;

else ui_cur=-3;

if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;

else mils_cur=Q13_16;

if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;

else wpss_cur=Q13_18;

 if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;

else seis_cur=Q13_24;

 if (paflaga = 1 | (wktot13s = -4 & rctot13s = -4)) then uis_cur=0;/*spuc dol*/

else if (paflaga = 1 | (wktot13s = -4 & rctot13s = 0)) then uis_cur=0;

else if (wktot13s > 0 & rctot13s > 0) then uis_cur=rctot13s;

else if (wktot13s < 0) then uis_cur=wktot13s;

else if (rctot13s < 0) then uis_cur=rctot13s;

else uis_cur=-3;

if (q13_31b = -4) then wkcmp_c=0;*spouse worker's compensation;

else wkcmp_c=q13_31b;

if (Q13_33i = -4) then chsp_cur=0;

else chsp_cur=Q13_33i;

if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;

else chsps_c=Q13_33m;

if (rctot13a = -4 | rctot13a = 0) then afdc_cur=0;

else if (motot13a = -4 | motot13a = 0) then afdc_cur=0;

else if (rctot13a < 0) then afdc_cur=rctot13a;

else if (motot13a < 0) then afdc_cur=motot13a;

else if (motot13a <= 0) then afdc_cur=-3;

else afdc_cur=rctot13a;

if (rctot13f = -4 | rctot13f = 0) then food_cur=0;

else if (motot13f = -4 | motot13f = 0) then food_cur=0;

else if (rctot13f < 0) then food_cur=rctot13f;

else if (motot13f < 0) then food_cur=motot13f;

else if (motot13f <= 0) then food_cur=-3;

else food_cur=rctot13f;

if (rctot13w = -4 | rctot13w = 0) then ssi_cur=0;

else if (motot13w = -4 | motot13w = 0) then ssi_cur=0;

else if (rctot13w < 0) then ssi_cur=rctot13w;

else if (motot13w < 0) then ssi_cur=motot13w;

else if (motot13w <= 0) then ssi_cur=-3;

else ssi_cur=rctot13w;

if (Q13_66 = -4) then ed_cur=0;

else ed_cur=Q13_66;

if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;

else edss_cur=Q13_68;

if (q13_70_v = -4) then vet_cur=0;

else if (q13_70_v = -2|q13_70a_v=-2) then vet_cur=-2;

else if (q13_70_v = -1|q13_70a_v=-1) then vet_cur=-1;

else if q13_70_v >=0 & q13_70a_v>=0 then vet_cur=(q13_70_v * q13_70a_v);

if (q13_70_d = -4) then dis_cur=0;

else if (q13_70_d = -2|q13_70a_d=-2) then dis_cur=-2;

else if (q13_70_d = -1|q13_70a_d=-1) then dis_cur=-1;

else if q13_70_d>=0 & q13_70a_d>=0 then dis_cur=(q13_70_d * q13_70a_d);*replaced 12 by q13_70a_d;

if (q13_70_s = -4) then ss_cur=0;

else if (q13_70_s = -2|q13_70a_s=-2) then ss_cur=-2;

else if (q13_70_s = -1|q13_70a_s=-1) then ss_cur=-1;

else if q13_70_s>=0 & q13_70a_s>=0 then ss_cur=(q13_70_s * q13_70a_s);

if (Q13_75 = -4) then other_c=0;

else other_c=Q13_75;

data compute2;set compute1;

if (vet_cur > 0 & other_c = vet_cur) then other_c=0;

if (Q13_92 = -4) then relwel_c=0;

else relwel_c=Q13_92;

if (Q13_92c = -4) then relreg_c=0;

else relreg_c=Q13_92c;

family_c=famsize;

/* TO CREATE FAMILY SIZE (I.E. FAMSZ12) SEARCH THRU THE HOUSEHOLD ENUMERATION

  INCREMENT FAMILY SIZE, IF THE RELATIONSHIP TO THE YOUTH IS A RELATIVE.

  DO NOT INCREASE FAMILY SIZE, IF THE CODE IS <0 OR (>=33 & <=36) OR =45 OR =46 OR

  (>=50 & <=54)*/

mn1701=0;

mn1702=0;

mn1703=0;

faminc_c=0;

tnfi=-3;

compo1=mil_cur;

compo2=mils_cur;

compo3=wps_cur;

compo4=wpss_cur;

compo5=sei_cur;

compo6=seis_cur;

compo7=ui_cur;

compo8=uis_cur;

compo9=chsp_cur;

compo10=afdc_cur;

compo11=ssi_cur;

compo12=ed_cur;

compo13=edss_cur;

compo14=vet_cur;

compo15=other_c;

compo16=relwel_c;

compo17=relreg_c;

compo18=food_cur;

compo19=chsps_c;

compo20=wkcmp_c;

compo21=dis_cur;

compo22=ss_cur;

if (wktot13u = -4 & rctot13u > 0) then do;

        ui_cur=-3;

        compo7=-3;

end;

else if (wktot13u < 0 & wktot13u > -4) then do;

        ui_cur=-3;

        compo7=-3;

end;

if (wktot13s = -4 & rctot13s > 0) then do;

        uis_cur=-3;

        compo8=-3;

end;

else if (wktot13s < 0 & wktot13s > -4) then do;

        uis_cur=-3;

        compo8=-3;

end;

if (motot13a = -4 & rctot13a > 0) then do;

        afdc_cur=-3;

        compo10=-3;

end;

else if (motot13a < 0 & motot13a > -4) then do;

        afdc_cur=-3;

        compo10=-3;

end;

if (motot13f = -4 & rctot13f > 0) then do;

        food_cur=-3;

        compo18=-3;

end;

else if (motot13f < 0 & motot13f > -4) then do;

        food_cur=-3;

        compo18=-3;

end;

if (motot13w = -4 & rctot13w > 0) then do;

        ssi_cur=-3;

        compo11=-3;

end;

else if (motot13w < 0 & motot13w > -4) then do;

        ssi_cur=-3;

        compo11=-3;

end;

array compo (j) compo1  compo2  compo3  compo4  compo5  compo6  compo7

                compo8  compo9  compo10 compo11 compo12 compo13 compo14

                compo15 compo16 compo17 compo18 compo19 compo20

                compo21 compo22;

do j=1 to 22;

  if (compo > -4) then do;

    if (compo < 0 & compo = -1) then mn1701=(mn1701+1);

    else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);

    else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);

    else faminc_c=(faminc_c + compo);

  end;

end;

sumn_cur=mn1701 + mn1702 + mn1703;

if (sumn_cur = 0) then tnfi=faminc_c;

else do;

  if (mn1703 > 0) then tnfi=-3;

   else if (mn1702 > 0) then tnfi=-2;

   else if (mn1701 > 0) then tnfi=-1;

end;

if (paflaga = -5) then tnfi=-5;

*income trunc;

data compute3;set compute2;

tnfi_trunc=tnfi;

if (tnfi >= 310000) then tnfi_trunc=595986;

* poverty status and level;

if year_pcy14=2013 then do;

               if family_c > 0 then level_c=(table13 + (tbl13_inc * (family_c-1)));*interviewed in 2014 using 2013 guideline;

end;

else if year_pcy14=2014 then do;

               if family_c > 0 then level_c=(table14 + (tbl14_inc * (family_c-1)));*interviewed in 2015 using 2014 guideline;

end;

if (tnfi > level_c) then cps_cur=0;

else if (tnfi >= 0 & tnfi <= level_c) then cps_cur=1;

else cps_cur=-3;

array mn (k) mn1701 mn1702 mn1703;

do k=1 to 3;

               if (mn > 0) then mn=1;

end;

if (sumn_cur > 0) then sumn_cur=1;

if (paflaga = -5) then level_c=-5;

if (paflaga = -5) then cps_cur=-5;

 

2016 Variables

*PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2015 & 2016 (ROUND 27)

 /****  QNAME in the Gator      Variable name in the program
------------------------------------------------------------------------------   
       UNEMPR-TOTAL-2015            rctot15u
       UNEMPSP-TOTAL-2015           rctot15s
       AFDC-TOTAL-2015                rctot15a
       FDSTMPS-TOTAL-2015          rctot15f
       SSI-TOTAL-2015                  rctot15w
       WELFARE-AMT-2015             rctot15t
       UNEMPR-TOTAL-2016           rctot16u
       UNEMPSP-TOTAL-2016          rctot16s
       AFDC-TOTAL-2016               rctot16a
       FDSTMPS-TOTAL-2016          rctot16f
       SSI-TOTAL-2016                 rctot16w
       WELFARE-AMT-2016            rctot16t
       Q13-3                              Q13_3         
       Q13-5                              Q13_5       
       Q13-9                              Q13_9       
       Q13-16                            Q13_16      
       Q13-18                            Q13_18      
       Q13-24                            Q13_24      
       Q13-31B                          Q13_31B     
       Q13-33I                          Q13_33I     
       Q13-33M                         Q13_33M     
       Q13-66                           Q13_66      
       Q13-68                           Q13_68      
       Q13-70_VET                    Q13_70_V    
       Q13-70A_VET                  Q13_70A_V   
       Q13-70_DIS                    Q13_70_D    
       Q13-70A_DIS                  Q13_70A_D   
       Q13-70_SS                     Q13_70_S    
       Q13-70A_SS                   Q13_70A_S   
       Q13-75                          Q13_75      
       Q13-81-NEW                   Q13_81_N    
       Q13-FJT-13.01                FJT_131     
       Q13-FJT-13.02                FJT_132     
       Q13-FJT-14.01                FJT_141     
       Q13-FJT-15.01                FJT_151     
       Q13-FJT-15.02                FJT_152     
       Q13-BPPJT-13.01                BP_131      
       Q13-BPPJT-13.02                BP_132      
       Q13-BPPJT-13.03                BP_133      
       Q13-BPPJT-13.04                BP_134      
       Q13-BPPJT-14.01                BP_141      
       Q13-BPPJT-14.02                BP_142      
       Q13-BPPJT-14.03                BP_143      
       Q13-BPPJT-14.04                BP_144      
       Q13-BPPJT-15.01                BP_151      
       Q13-132D                         Q13_132D    
       FAMSIZE                            FAMSIZE     
       SYMBOL_CURDATE~D            curday      
       SYMBOL_CURDATE~M            curmo       
       SYMBOL_CURDATE~Y            curyr       
       SYMBOL_SPFLAG                  SPFLAG      
       SYMBOL_PAFLAG                  paflag      
       HHI_FINAL_RELCODE.01            rel01       
       HHI_FINAL_RELCODE.02            rel02       
       HHI_FINAL_RELCODE.03            rel03       
       HHI_FINAL_RELCODE.04            rel04       
       HHI_FINAL_RELCODE.05            rel05       
       HHI_FINAL_RELCODE.06            rel06       
       HHI_FINAL_RELCODE.07            rel07       
       HHI_FINAL_RELCODE.08            rel08       
       HHI_FINAL_RELCODE.09            rel09       
       HHI_FINAL_RELCODE.10            rel10       
       HHI_FINAL_RELCODE.11            rel11       
       HHI_FINAL_RELCODE.12            rel12     
*/  

* add to paflag for any missed;
paflaga = paflag;
if (rel01 = 33 | rel02 = 33 | rel03 = 33 | rel04 = 33 | rel05 = 33
    | rel06 = 33 | rel07 = 33 | rel08 = 33 | rel09 = 33 | rel10 = 33
    | rel11 = 33 | rel12 = 33 )
    then paflaga=1;

spflaga = 0;
if (rel01 = 1 | rel02 = 1 | rel03 = 1 | rel04 = 1 | rel05 = 1
    | rel06 = 1 | rel07 = 1 | rel08 = 1 | rel09 = 1 | rel10 = 1
    | rel11 = 1 | rel12 = 1)
    then spflaga=1;
                                                   
*INITIALIZE;
afdc_cur=-4;
chsp_cur=-4;
chsps_c=-4;
cps_cur=-4;
ed_cur=-4;
edss_cur=-4;
family_c=-4;
faminc_c=-4;
food_cur=-4;
income_c=-4;
level_c=-4;
mil_cur=-4;
mils_cur=-4;
mn1701=-4;
mn1702=-4;
mn1703=-4;
other_c=-4;
ssi_cur=-4;
rel_cur=-4;
sei_cur=-4;
seis_cur=-4;
sumn_cur=-4;
ui_cur=-4;
uis_cur=-4;
vet_cur=-4;
wps_cur=-4;
wpss_cur=-4;
wkcmp_c=-4;
dis_cur=-4;
ss_cur=-4;

if (Q13_3 = -4) then mil_cur=0;
else mil_cur=Q13_3;

if (Q13_5 = -4) then wps_cur=0;
else wps_cur=Q13_5;

fjt_inc=fjt_141;  
if (fjt_inc = -4) then farm_cur=0;
    else farm_cur=fjt_inc;

array bp14 (*) bp_141-bp_144;
bus_cur=0;
do i=1 to dim(bp14);
  if bp14(i) in (-1 -2 -3) then bus_cur=-3;
  else if bp14(i) in (0 -4) & bus_cur>=0 then bus_cur=bus_cur;
  else if bp14(i)>0 & bus_cur>=0 then bus_cur=bus_cur + bp14(i);
end;

fbr_inc=q13_132d;
if (fbr_inc = -4) then fbr_cur=0;
    else fbr_cur=fbr_inc;

if (Q13_9 = -4) then sei_cur=0;
    else sei_cur=Q13_9;

  if sei_cur>=0 & farm_cur >0 then sei_cur=(sei_cur+farm_cur);
  else if farm_cur in (-1 -2 -3) then sei_cur=-3;
  if sei_cur>=0 & bus_cur > 0  then sei_cur=(sei_cur+bus_cur);
  else if bus_cur in (-1 -2 -3) then sei_cur=-3;
  if sei_cur>=0 & fbr_cur > 0  then sei_cur=(sei_cur+fbr_cur);
  else if fbr_cur in (-1 -2 -3) then sei_cur=-3;

 if curyr=2016 then do;
  rctotu  =   rctot15u;
  rctots  =   rctot15s;
  rctota  =   rctot15a;
  rctotf  =   rctot15f;
  rctotw  =   rctot15w;
  rctott  =   rctot15t;
 end;
 else if curyr=2017 then do;
  rctotu  =   rctot16u;
  rctots  =   rctot16s;
  rctota  =   rctot16a;
  rctotf  =   rctot16f;
  rctotw  =   rctot16w;
  rctott  =   rctot16t;
 end;
 
if rctotu = -4 then ui_cur=0;
 else ui_cur= rctotu;

if (paflaga = 1 | Q13_16 = -4) then mils_cur=0;  
else mils_cur=Q13_16;

if (paflaga = 1 | Q13_18 = -4) then wpss_cur=0;
else wpss_cur=Q13_18;

if (paflaga = 1 | Q13_24 = -4) then seis_cur=0;
else seis_cur=Q13_24;

if (paflaga = 1 | rctots = -4) then uis_cur=0;
  else uis_cur=rctots;

if (q13_31b = -4) then wkcmp_c=0;  
else wkcmp_c=q13_31b;

if (Q13_33i = -4) then chsp_cur=0;
else chsp_cur=Q13_33i;

if (paflaga = 1 | Q13_33m = -4) then chsps_c=0;
else chsps_c=Q13_33m;

if rctota = -4 then afdc_cur=0;
 else afdc_cur= rctota;

if rctotf = -4 then food_cur=0;
 else food_cur= rctotf;

if rctotw = -4 then ssi_cur=0;
 else ssi_cur= rctotw;

if (Q13_66 = -4) then ed_cur=0;
else ed_cur=Q13_66;

if (paflaga = 1 | Q13_68 = -4) then edss_cur=0;
else edss_cur=Q13_68;

if (q13_70_v = -4) then vet_cur=0;         
else if (q13_70_v = -2|q13_70a_v=-2) then vet_cur=-2;
else if (q13_70_v = -1|q13_70a_v=-1) then vet_cur=-1;
else if q13_70_v >=0 & q13_70a_v>=0 then vet_cur=(q13_70_v * q13_70a_v);

if (q13_70_d = -4) then dis_cur=0;
else if (q13_70_d = -2|q13_70a_d=-2) then dis_cur=-2;
else if (q13_70_d = -1|q13_70a_d=-1) then dis_cur=-1;
else if q13_70_d>=0 & q13_70a_d>=0 then dis_cur=(q13_70_d * q13_70a_d);

if (q13_70_s = -4) then ss_cur=0;
else if (q13_70_s = -2|q13_70a_s=-2) then ss_cur=-2;
else if (q13_70_s = -1|q13_70a_s=-1) then ss_cur=-1;
else if q13_70_s>=0 & q13_70a_s>=0 then ss_cur=(q13_70_s * q13_70a_s);

if (Q13_75 = -4) then other_c=0;
else other_c=Q13_75;

if (Q13_81_N = -4) then rel_cur=0;
else rel_cur=Q13_81_N;
 
family_c=famsize;

mn1701=0;
mn1702=0;
mn1703=0;
faminc_c=0;
income_c=-3;
compo1=mil_cur;
compo2=mils_cur;
compo3=wps_cur;
compo4=wpss_cur;
compo5=sei_cur;
compo6=seis_cur;
compo7=ui_cur;
compo8=uis_cur;
compo9=chsp_cur;
compo10=afdc_cur;
compo11=ssi_cur;
compo12=ed_cur;
compo13=edss_cur;
compo14=vet_cur;
compo15=other_c;
compo16=rel_cur;
compo17=food_cur;
compo18=chsps_c;
compo19=wkcmp_c;
compo20=dis_cur;
compo21=ss_cur;

array compo (j) compo1  compo2  compo3  compo4  compo5  compo6  compo7
                compo8  compo9  compo10 compo11 compo12 compo13 compo14
                compo15 compo16 compo17 compo18 compo19 compo20
                compo21;

do j=1 to 21;
  if (compo > -4) then do;
    if (compo < 0 & compo = -1) then mn1701=(mn1701+1);
    else if (compo < 0 & compo = -2) then mn1702=(mn1702+1);
    else if (compo < 0 & compo = -3) then mn1703=(mn1703+1);
    else faminc_c=(faminc_c + compo);
  end;
end;

sumn_cur=mn1701 + mn1702 + mn1703;

if (sumn_cur = 0) then income_c=faminc_c;
else do;
  if (mn1703 > 0) then income_c=-3;
   else if (mn1702 > 0) then income_c=-2;
   else if (mn1701 > 0) then income_c=-1;
end;

* poverty status and level;
if curyr=2016 then do;
    if family_c > 0 then level_c=(table15 + (tbl15_inc * (family_c-1)));*interviewed in 2016 using 2015 guideline;
end;
else if curyr=2017 then do;
    if family_c > 0 then level_c=(table16 + (tbl16_inc * (family_c-1)));*interviewed in 2017 using 2016 guideline;
end;
if (income_c > level_c) then cps_cur=0;
else if (income_c >= 0 & income_c <= level_c) then cps_cur=1;
else cps_cur=-3;

***** top coding;
data two;set one;
incom_ct=income_c;
if (income_c >= 352000) then incom_ct=922631;  

2018 Variables

*PROGRAM STATEMENTS FOR TOTAL NET FAMILY INCOME 2018 (ROUND 28)

 /****  QNAME in the Gator      Variable name in the program
------------------------------------------------------------------------------   
       UNEMPR-TOTAL-2017            rctot17u
       UNEMPSP-TOTAL-2017           rctot17s
       AFDC-TOTAL-2017               rctot17a
       FDSTMPS-TOTAL-2017          rctot17f
       SSI-TOTAL-2017                  rctot17w
       WELFARE-AMT-2017             rctot17t
       UNEMPR-TOTAL-2018           rctot18u
       UNEMPSP-TOTAL-2018          rctot18s

AFDC-TOTAL-2018               rctot18a
       FDSTMPS-TOTAL-2018          rctot18f
       SSI-TOTAL-2018                 rctot18w
       WELFARE-AMT-2018            rctot18t
       Q13-5                                  Q13_5

       Q13-9                                  q13_9

       RR-PENSIONS-1                          RR_pen1

       RR-PENSIONS-2                          RR_pen2

       RR-ANNUITIES-1                         RR_anu1

       RR-ANNUITIES-2                         RR_anu2

RR-IRA-1                               RR_ira1

       RR-IRA-3                               RR_ira3

       RR-IRA-4                               RR_ira4

       RR-SOCSEC-1                            RR_SS

       Q13-69_SS                              Q69_SS

       Q13-70A_SS                             q70a_ss

       Q13-70_SS                              q70_ss

       Q13-70A_DIS.01                         q70a_dis1

Q13-70A_DIS.02                         q70a_dis2

       Q13-70_DIS.01                          q70_dis1

       Q13-70_DIS.02                          q70_dis2

       Q13-31A                                q13_31a

       Q13-31B                                q13_31b

       Q13-70A_VET                            q70a_vet

       Q13-70_VET                             q70_vet

Q13-18                                 q13_18

       Q13-24                                 q13_24

       RSP-PENSIONS-1                         RS_pen1

       RSP-PENSIONS-2                         RS_pen2

       RSP-ANNUITIES-1                        RS_anu1

       RSP-ANNUITIES-2                        RS_anu2

       RSP-IRA-1                              RS_ira1

       RSP-IRA-3                              RS_ira3

       RSP-IRA-4                              RS_ira4

       RSP-SOCSEC-1                           RS_SS

       Q13-69_SS-SP                           q69_SS_SP

       Q13-70A_SS-SP                          q70a_ss_sp

       Q13-70_SS-SP                           q70_ss_sp

       Q13-70A_DIS-SP.01                      q70a_dis1_sp

       Q13-70A_DIS-SP.02                      q70a_dis2_sp

       Q13-70_DIS-SP.01                       q70_dis1_sp

       Q13-70_DIS-SP.02                       q70_dis2_sp

       Q13-31A-SP                             q13_31a_sp

       Q13-31B-SP                             q13_31b_sp

       Q13-70A-SP_VET                         q70a_vet_sp

       Q13-70_VET-SP                          q70_vet_sp

       Q13-71                                 q13_71

       Q13-73A                                q13_73a

       Q13-74                                 q13_74

       Q13-75                                 q13_75

       Q13-80-NEW                             q13_80

  Q13-81-NEW                             q13_81

       CURDATE~D                              curday

       CURDATE~M                              curmo

       CURDATE~Y                              curyr

       Q13-10                                 q10

       FAMSIZE                            FAMSIZE     

       SYMBOL_SPFLAG                  SPFLAG      
       SYMBOL_PAFLAG                  paflag      
       HHI_FINAL_RELCODE.01            rel01       
       HHI_FINAL_RELCODE.02            rel02       
       HHI_FINAL_RELCODE.03            rel03       
       HHI_FINAL_RELCODE.04            rel04       
       HHI_FINAL_RELCODE.05            rel05       
       HHI_FINAL_RELCODE.06            rel06       
       HHI_FINAL_RELCODE.07            rel07       
       HHI_FINAL_RELCODE.08            rel08       
       HHI_FINAL_RELCODE.09            rel09       
       HHI_FINAL_RELCODE.10            rel10       

       HHI_FINAL_RELCODE.11            rel11       
       HHI_FINAL_RELCODE.12            rel12     
*/

* add to paflag for any missed;

paflaga = paflag;
       HHI_FINAL_RELCODE.11            rel11       
       HHI_FINAL_RELCODE.12            rel12     
*/

* add to paflag for any missed;

paflaga = paflag;

if (rel01 = 33 | rel02 = 33 | rel03 

spflaga = spflag;

if (rel01 = 1 | rel02 = 1 | rel03 = 1 | rel04 = 1 | rel05 = 1

    | rel06 = 1 | rel07 = 1 | rel08 = 1 | rel09 = 1 | rel10 = 1

    | rel11 = 1 )

    then spflaga=1;

***** respondent (and dependent children) income;

* wager--wage;

wager=-3;

if q13_5>=0 then wager=q13_5;

* farmr--income from farm or business;

farmr=-3;

if q13_9=-4 then farmr=0;

else if q13_9>=0 then farmr=q13_9;

* penr--income from retirement pension;

penr=-3;

if RR_pen1 in (-4 0) then penr=0;

else if RR_pen2>=0 then penr=RR_pen2;

* anur--income from retirement annuity;

anur=-3;

if RR_anu1 in (-4 0) then anur=0;

else if RR_anu2>=0 then anur=RR_anu2;

* irar--withdraw from IRA;

irar=-3;

if RR_ira1 in (-4 0) or RR_ira3=0 then irar=0;

else if RR_ira4>=0 then irar=RR_ira4;

* ssr--income from social security;

ssr=-3;

if RR_SS in (-4 0) or q69_ss=0 then ssr=0;

else if q70a_ss>=0 and q70_ss>=0 then ssr=q70a_ss * q70_ss;

* dis1r--veteran disability;

dis1r=-3;

if q70a_dis1=-4 then dis1r=0;

else if q70a_dis1>=0 and q70_dis1>=0 then dis1r=q70a_dis1 * q70_dis1;

* dis2r--other disability;

dis2r=-3;

if q70a_dis2=-4 then dis2r=0;

else if q70a_dis2>=0 and q70_dis2>=0 then dis2r=q70a_dis2 * q70_dis2;

* wcmpr--worker comp;

wcmpr=-3;

if q13_31a in (-4, 0) then wcmpr=0;

else if q13_31b>=0 then wcmpr=q13_31b;     

* vetr--other veteran benefit;

vetr=-3;

if q70a_vet=-4 then vetr=0;

else if q70a_vet>=0 and q70_vet>=0 then vetr=q70a_vet * q70_vet;

* respondent UC;

ucr=-3;

if curyr=2018 then ucr=ucr117;

else if curyr=2019 then ucr=ucr118;

if ucr in (. -4) then ucr=0;

if ucr in (-1 -2) then ucr=-3;

***** Spouse/partner;

* wages--spouse wage;

wages=-3;

if paflaga=1 or q13_18=-4 then wages=0;

else if q13_18>=0 then wages=q13_18;

* farms--spouse income from farm or business;

farms=-3;

if paflaga=1 or q13_24=-4 then farms=0;

else if q13_24>=0 then farms=q13_24;

* pensp--spouse/partner income from retirement pension;

pensp=-3;

if RS_pen1 in (-4 0) then pensp=0;

else if RS_pen2>=0 then pensp=RS_pen2;

* anusp--spouse/partner income from retirement annuity;

anusp=-3;

if RS_anu1 in (-4 0) then anusp=0;

else if RS_anu2>=0 then anusp=RS_anu2;

* irasp--spouse/partner withdraw from IRA;

irasp=-3;

if RS_ira1 in (-4 0) or RS_ira3=0 then irasp=0;

else if RS_ira4>=0 then irasp=RS_ira4;

* sssp--spouse/partner income from social security;

sssp=-3;

if RS_ss in (-4 0) or q69_ss_sp=0 then sssp=0;

else if q70a_ss_sp>=0 and q70_ss_sp>=0 then sssp=q70a_ss_sp * q70_ss_sp;

* dis1sp--spouse/partner veteran disability;

dis1sp=-3;

if q70a_dis1_sp=-4 then dis1sp=0;

else if q70a_dis1_sp>=0 and q70_dis1_sp>=0 then dis1sp=q70a_dis1_sp * q70_dis1_sp;

* dis2sp--spouse/partner other disability;

dis2sp=-3;

if q70a_dis2_sp=-4 then dis2sp=0;

else if q70a_dis2_sp>=0 and q70_dis2_sp>=0 then dis2sp=q70a_dis2_sp * q70_dis2_sp;

* wcmpsp--spouse/partner worker comp;

wcmpsp=-3;

if q13_31a_sp in (-4, 0) then wcmpsp=0;

else if q13_31b_sp>=0 then wcmpsp=q13_31b_sp;

* vetsp--spouse/partner other veteran benefit;

vetsp=-3;

if q70a_vet_sp=-4 then vetsp=0;

else if q70a_vet_sp>=0 and q70_vet_sp>=0 then vetsp=q70a_vet_sp * q70_vet_sp;

* spouse UC;

ucs=-3;

if curyr=2018 then ucs=ucsp117;

else if curyr=2019 then ucs=ucsp118;

if paflaga=1 or ucs in (. -4) then ucs=0;

if ucs in (-1 -2) then ucs=-3;

***** R and spouse/partner;

* afdc, food stamps, ssi and ssdi;

wel=-3;

if curyr=2018 then wel=wel117;

else if curyr=2019 then wel=wel118;

if wel in (-4 .) then wel=0;

*estates/trusts/inheritances;

trst=-3;

if q13_71 in (-4 0) then trst=0;

else if q13_73a>=0 then trst=q13_73a;

*income from other sources;

othrs=-3; *s refers to sources;

if q13_74 in (-4 0) then othrs=0;

else if q13_75>=0 then othrs=q13_75;

*income from other family memeber in the house;

othrp=-3; *p refers to people;

if q13_80 in (-4 0) then othrp=0;

else if q13_81>=0 then othrp=q13_81;

***** total family income;

array comp (*) wager farmr penr anur irar ssr dis1r dis2r wcmpr vetr ucr

         wages farms pensp anusp irasp sssp dis1sp dis2sp wcmpsp vetsp ucs

         wel trst othrs othrp;

faminc=0;

do j=1 to 26;

 if comp(j)=-3 then do; faminc=-3; j=26; end;

 else if faminc>=0 & comp(j)>=0 then faminc=faminc + comp(j);

end;

***** Poverty level;

curyr=2018 then do;

  if famsize > 0 then level=(table17 + (tbl17_inc * (famsize-1)));*interviewed in 2018 using 2017 guideline;

end;

else if curyr=2019 then do;

  if famsize > 0 then level=(table18 + (tbl18_inc * (famsize-1)));*interviewed in 2019 using 2018 guideline;

end;

if (faminc > level) then cps_cur=0;

else if (faminc >= 0 & faminc <= level) then cps_cur=1;

else cps_cur=-3;

if

***** topcode;

faminc_t=faminc;      if faminc>405500 then faminc_t=766958;

2020 Variables

Options pagesize=12686 linesize=100 nocenter nodate nolabel validvarname=any formchar="|----|+|---+=|-/\<>*";;
*respondent UC;
data UCr;
infile UCry dlm=',' lrecl=500;
input norcid UCr87-UCr121;
keep norcid UCr119 UCr120;
*spouse/partner UC;
data UCsp;
infile UCspy dlm=',' lrecl=300;
input norcid UCsp89-UCsp121;
keep norcid UCsp119 UCsp120;
*respondent and spouse/partner afdc,food stamps, ssdi, and ssi;
data wel; *b refer to both SSI and SSDI;
infile wby dlm=',' lrecl=50;
input norcid wel117-wel121;
keep norcid wel119 wel120;

data Q13;
set prg2020.in_inc_2020;
keep 
'Q13-5_2020'n 
'Q13-9_2020'n 
'RR-PENSIONS-1_2020'n 
'RR-PENSIONS-2_2020'n 
'RR-ANNUITIES-1_2020'n 
'RR-ANNUITIES-2_2020'n 
'RR-IRA-1_2020'n 
'RR-IRA-3_2020'n 
'RR-IRA-4_2020'n 
'RR-SOCSEC-1_2020'n 
'Q13-69_SS_2020'n 
'Q13-70A_SS_2020'n 
'Q13-70_SS_2020'n 
'Q13-70A_DIS.01_2020'n 
'Q13-70A_DIS.02_2020'n 
'Q13-70_DIS.01_2020'n 
'Q13-70_DIS.02_2020'n 
'Q13-31A_2020'n 
'Q13-31B_2020'n 
'Q13-70A_VET_2020'n 
'Q13-70_VET_2020'n 
'Q13-18_2020'n 
'Q13-24_2020'n 
'RSP-PENSIONS-1_2020'n 
'RSP-PENSIONS-2_2020'n 
'RSP-ANNUITIES-1_2020'n 
'RSP-ANNUITIES-2_2020'n 
'RSP-IRA-1_2020'n 
'RSP-IRA-3_2020'n 
'RSP-IRA-4_2020'n 
'RSP-SOCSEC-1_2020'n 
'Q13-69_SS-SP_2020'n 
'Q13-70A_SS-SP_2020'n 
'Q13-70_SS-SP_2020'n 
'Q13-70A_DIS-SP.01_2020'n 
'Q13-70A_DIS-SP.02_2020'n 
'Q13-70_DIS-SP.01_2020'n 
'Q13-70_DIS-SP.02_2020'n 
'Q13-31A-SP_2020'n 
'Q13-31B-SP_2020'n 
'Q13-70A-SP_VET_2020'n 
'Q13-70_VET-SP_2020'n 
'Q13-71_2020'n 
'Q13-73A_2020'n 
'Q13-74_2020'n 
'Q13-75_2020'n 
'Q13-80-NEW_2020'n 
'Q13-81-NEW_2020'n 
'CURDATE~D_2020'n 
'CURDATE~M_2020'n 
'CURDATE~Y_2020'n 
norcid 
'Q13-10_2020'n 
;

rename 
'Q13-5_2020'n = Q13_5
'Q13-9_2020'n = q13_9
'RR-PENSIONS-1_2020'n = RR_pen1
'RR-PENSIONS-2_2020'n = RR_pen2
'RR-ANNUITIES-1_2020'n = RR_anu1
'RR-ANNUITIES-2_2020'n = RR_anu2
'RR-IRA-1_2020'n = RR_ira1
'RR-IRA-3_2020'n = RR_ira3
'RR-IRA-4_2020'n = RR_ira4
'RR-SOCSEC-1_2020'n = RR_SS
'Q13-69_SS_2020'n = Q69_SS
'Q13-70A_SS_2020'n = q70a_ss
'Q13-70_SS_2020'n = q70_ss
'Q13-70A_DIS.01_2020'n = q70a_dis1
'Q13-70A_DIS.02_2020'n = q70a_dis2
'Q13-70_DIS.01_2020'n = q70_dis1
'Q13-70_DIS.02_2020'n = q70_dis2
'Q13-31A_2020'n = q13_31a
'Q13-31B_2020'n = q13_31b
'Q13-70A_VET_2020'n = q70a_vet
'Q13-70_VET_2020'n = q70_vet
'Q13-18_2020'n = q13_18
'Q13-24_2020'n = q13_24
'RSP-PENSIONS-1_2020'n = RS_pen1
'RSP-PENSIONS-2_2020'n = RS_pen2
'RSP-ANNUITIES-1_2020'n = RS_anu1
'RSP-ANNUITIES-2_2020'n = RS_anu2
'RSP-IRA-1_2020'n = RS_ira1
'RSP-IRA-3_2020'n = RS_ira3
'RSP-IRA-4_2020'n = RS_ira4
'RSP-SOCSEC-1_2020'n = RS_SS 
'Q13-69_SS-SP_2020'n = q69_SS_SP
'Q13-70A_SS-SP_2020'n = q70a_ss_sp
'Q13-70_SS-SP_2020'n = q70_ss_sp
'Q13-70A_DIS-SP.01_2020'n = q70a_dis1_sp
'Q13-70A_DIS-SP.02_2020'n = q70a_dis2_sp
'Q13-70_DIS-SP.01_2020'n = q70_dis1_sp
'Q13-70_DIS-SP.02_2020'n = q70_dis2_sp
'Q13-31A-SP_2020'n = q13_31a_sp
'Q13-31B-SP_2020'n = q13_31b_sp
'Q13-70A-SP_VET_2020'n = q70a_vet_sp
'Q13-70_VET-SP_2020'n = q70_vet_sp
'Q13-71_2020'n = q13_71
'Q13-73A_2020'n = q13_73a
'Q13-74_2020'n = q13_74
'Q13-75_2020'n = q13_75
'Q13-80-NEW_2020'n = q13_80
'Q13-81-NEW_2020'n = q13_81
'CURDATE~D_2020'n = curday 
'CURDATE~M_2020'n = curmo 
'CURDATE~Y_2020'n = curyr 
'Q13-10_2020'n = q10
;

data one; 
merge inc2020.in_fam2020 Q13 UCr UCsp Wel;
by norcid;
if FAMSIZE ~= -5;

paflaga = paflag;
if (rel01 = 33 | rel02 = 33 | rel03 = 33 | rel04 = 33 | rel05 = 33
| rel06 = 33 | rel07 = 33 | rel08 = 33 | rel09 = 33 | rel10 = 33
| rel11 = 33 )
then paflaga=1;

spflaga = spflag; 
if (rel01 = 1 | rel02 = 1 | rel03 = 1 | rel04 = 1 | rel05 = 1
| rel06 = 1 | rel07 = 1 | rel08 = 1 | rel09 = 1 | rel10 = 1
| rel11 = 1 )
then spflaga=1;

***** respondent (and dependent children) income;
* wager--wage;
wager=-4;
if q13_5=-4 then wager=0;
else wager=q13_5;

* farmr--income from farm or business;
farmr=-4;
if q13_9=-4 then farmr=0;
else farmr=q13_9;

* penr--income from retirement pension; 
penr=-4;
if RR_pen2 in (-4 0) then penr=0;
else penr=RR_pen2;

* anur--income from retirement annuity; 
anur=-4;
if RR_anu2 in (-4 0) then anur=0;
else anur=RR_anu2;

* irar--withdraw from IRA;
irar=-4;
if RR_ira4 in (-4 0) then irar=0;
else irar=RR_ira4;

* ssr--income from social security;
ssr=-4;
if q70_ss=-4 then ssr=0;
else if q70a_ss in (-1 -2 -3) or q70_ss in (-1 -2 -3) then ssr=-3;
else if q70a_ss>=0 and q70_ss>=0 then ssr=q70a_ss * q70_ss;

* dis1r--veteran disability;
dis1r=-4;
if q70_dis1=-4 then dis1r=0;
else if q70a_dis1 in (-1 -2 -3) or q70_dis1 in (-1 -2 -3) then dis1r=-3;
else if q70a_dis1>=0 and q70_dis1>=0 then dis1r=q70a_dis1 * q70_dis1;

* dis2r--other disability;
dis2r=-4;
if q70_dis2=-4 then dis2r=0;
else if q70a_dis2 in (-1 -2 -3) or q70_dis2 in (-1 -2 -3) then dis2r=-3;
else if q70a_dis2>=0 and q70_dis2>=0 then dis2r=q70a_dis2 * q70_dis2;

* wcmpr--worker comp;
wcmpr=-4;
if q13_31b in (-4, 0) then wcmpr=0;
else wcmpr=q13_31b;

* vetr--other veteran benefit;
vetr=-4;
if q70_vet=-4 then vetr=0;
else if q70a_vet in (-1 -2 -3) or q70_vet in (-1 -2 -3) then vetr=-3;
else if q70a_vet>=0 and q70_vet>=0 then vetr=q70a_vet * q70_vet;

* respondent UC;
ucr=-3;
if curyr=2020 then ucr=ucr119;
else if curyr=2021 then ucr=ucr120;
if ucr in (. -4) then ucr=0;
if ucr in (-1 -2) then ucr=-3;

***** Spouse/partner;
* wages--spouse wage;
wages=-4;
if paflaga=1 or q13_18=-4 then wages=0;
else wages=q13_18;

* farms--spouse income from farm or business;
farms=-4;
if paflaga=1 or q13_24=-4 then farms=0;
else farms=q13_24;

* pensp--spouse/partner income from retirement pension; 
pensp=-4;
if RS_pen2 in (-4 0) then pensp=0;
else pensp=RS_pen2;

* anusp--spouse/partner income from retirement annuity; 
anusp=-4;
if RS_anu2 in (-4 0) then anusp=0;
else anusp=RS_anu2;

* irasp--spouse/partner withdraw from IRA;
irasp=-4;
if RS_ira4 in (-4 0) then irasp=0;
else irasp=RS_ira4;

* sssp--spouse/partner income from social security;
sssp=-4;
if q70_ss_sp=-4 then sssp=0;
else if q70a_ss_sp in (-1 -2 -3) or q70_ss_sp in (-1 -2 -3) then sssp=-3;
else if q70a_ss_sp>=0 and q70_ss_sp>=0 then sssp=q70a_ss_sp * q70_ss_sp;

* dis1sp--spouse/partner veteran disability;
dis1sp=-4;
if q70_dis1_sp=-4 then dis1sp=0;
else if q70a_dis1_sp in (-1 -2 -3) or q70_dis1_sp in (-1 -2 -3) then dis1sp=-3;
else if q70a_dis1_sp>=0 and q70_dis1_sp>=0 then dis1sp=q70a_dis1_sp * q70_dis1_sp;

* dis2sp--spouse/partner other disability;
dis2sp=-4;
if q70_dis2_sp=-4 then dis2sp=0;
else if q70a_dis2_sp in (-1 -2 -3) or q70_dis2_sp in (-1 -2 -3) then dis2sp=-3;
else if q70a_dis2_sp>=0 and q70_dis2_sp>=0 then dis2sp=q70a_dis2_sp * q70_dis2_sp;

* wcmpsp--spouse/partner worker comp;
wcmpsp=-4;
if q13_31b_sp in (-4, 0) then wcmpsp=0;
else wcmpsp=q13_31b_sp;

* vetsp--spouse/partner other veteran benefit;
vetsp=-4;
if q70_vet_sp=-4 then vetsp=0;
else if q70a_vet_sp in (-1 -2 -3) or q70_vet_sp in (-1 -2 -3) then vetsp=-3;
else if q70a_vet_sp>=0 and q70_vet_sp>=0 then vetsp=q70a_vet_sp * q70_vet_sp;

* spouse UC;
ucs=-3;
if curyr=2020 then ucs=ucsp119;
else if curyr=2021 then ucs=ucsp120;
if paflaga=1 or ucs in (. -4) then ucs=0;
else if ucs in (-1 -2) then ucs=-3;

***** R and spouse/partner;
* afdc, food stamps, ssi and ssdi;
wel=-3;
if curyr=2020 then wel=wel119;
else if curyr=2021 then wel=wel120;
if wel in (-4 .) then wel=0;

*estates/trusts/inheritances;
trst=-4;
if q13_73a in (-4 0) then trst=0;
else trst=q13_73a;

*income from other sources;
othrs=-4; *s refers to sources;
if q13_75 in (-4 0) then othrs=0;
else othrs=q13_75;

*income from other family memeber in the house;
othrp=-4; *p refers to people;
if q13_81 in (-4 0) then othrp=0;
else othrp=q13_81;

***** total family income;
array comp (*) wager farmr penr anur irar ssr dis1r dis2r wcmpr vetr ucr
wages farms pensp anusp irasp sssp dis1sp dis2sp wcmpsp vetsp ucs
wel othrs othrp; *removed trst; 
faminc=0;
do j=1 to dim(comp);
if comp(j) in (-1 -2 -3) then do; faminc=-3; j=dim(comp); end;
else if faminc>=0 & comp(j)>=0 then faminc=faminc + comp(j);
end;

***** Poverty level;
* Federal Poverty Guidelines;
* https://aspe.hhs.gov/2019-poverty-guidelines;
* https://aspe.hhs.gov/2020-poverty-guidelines;
table19 = 12490;*for 1 person in family for 48 states and DC for 2019;
tbl19_inc=4420;*for each additional person for 48 states and DC for 2019;
table20=12760;*for 1 person in family for 48 states and DC for 2020;
tbl20_inc=4480;*for each additional person for 48 states and DC for 2020;

if curyr=2020 then do;
if famsize > 0 then level= table19 + (tbl19_inc * (famsize-1));*interviewed in 2020 using 2019 guideline;
end;
else if curyr=2021 then do;
if famsize > 0 then level= table20 + (tbl20_inc * (famsize-1));*interviewed in 2021 using 2020 guideline;
end;
if (faminc > level) then cps_cur=0;
else if (faminc >= 0 & faminc <= level) then cps_cur=1;
else cps_cur=-3;

***** topcode;
faminc_t=faminc;
if faminc>365000 then faminc_t=803437;

Introduction

The Family Poverty Status variable is calculated using a combination of reported family income, the number of family members in the respondent's household, and the national Poverty Income Guidelines, which are updated yearly by the U.S. Department of Health and Human Services. The Poverty Income Guidelines are based on family size; the poverty guidelines set a base amount for smallest family size of one person and increases by a standard amount for each additional family member living in the household.

An NLSY79 respondent is determined to be in poverty if total net family income for the last calendar year is below the Poverty Income Guidelines given their family size.

Poverty Income Guideline Tables

The national Poverty Income Guidelines used in creating the family poverty status variable are shown below.

Questions about the use of the poverty guidelines in one of the outlying jurisdictions (Puerto Rico, the U.S. Virgin Islands, American Samoa, Guam, the Marshall Islands, the Federated States of Micronesia, the Commonwealth of the North Marianas, and Palau) by a Federal program serving any of those jurisdictions should be referred to the Federal office responsible for the individual program involved.

Table 1. Poverty Income Guidelines by NLSY79 Survey Year
Survey Year Poverty Income Guidelines Year First Person Each Additional Person Four-person Family
1979 1978 $3,140 $1,020 $6,200
1980 1979 $3,400 $1,100 $6,700
1981 1980 $3,790 $1,220 $7,450
1982 1981 $4,310 $1,380 $8,450
1983 1982 $4,680 $1,540 $9,300
1984 1983 $4,860 $1,680 $9,900
1985 1984 $4,980 $1,740 $10,200
1986 1985 $5,250 $1,800 $10,650
1987 1986 $5,360 $1,880 $11,000
1988 1987 $5,500 $1,900 $11,200
1989 1988 $5,770 $1,960 $11,650
1990 1989 $5,980 $2,040 $12,100
1991 1990 $6,280 $2,140 $12,700
1992 1991 $6,620 $2,260 $13,400
1993 1992 $6,810 $2,380 $13,950
1994 1993 $6,970 $2,460 $14,350
1996 1995 $7,470 $2,560 $15,150
1998 1997 $7,890 $2,720 $16,050
2000 1999 $8,240 $2,820 $16,700
2002 2001 $8,590 $3,020 $17,650
2004 2003 $8,980 $3,140 $18,400
2006 2005 $9,570 $3,260 $19,350
2008 2007 $10,210 $3,480 $20,650
2010 2009 $10,830 $3,740 $22,050
2012 2011 $10,890 $3,820 $22,350
2014 2013 $11,670 $4,060 $23,850
2016 2015 (2016 interview date) $11,770 $4,160 $24,250
2016 2016 (2017 interview date) $11,880 $4,140 $24,300
2018 2017 (2018 interview date) $12,060 $4,180 $24,600
2018 2018 (2019 interview date) $12,140 $4,320 $25,100
2020 2019 (2020 interview date) $12,490 $4,420 $25,750
2020 2020 (2021 interview date) $12,760 $4,480 $26,200

Users interested in information on the variables created using the old poverty guideline standards should download the Family Poverty Status and Family Poverty Level Historical Variables (PDF).