Variable Creation: Total Net Family Income 1979-1986

National Longitudinal Survey of Youth - 1979 Cohort

Variable Creation: Total Net Family Income 1979-1986

 

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;
 TABLE(1,1,1)=3400;
 TABLE(2,1,1)=4270;
 TABLE(3,1,1)=3930;
 TABLE(1,2,1)=2910;
 TABLE(2,2,1)=3650;
 TABLE(3,2,1)=3350;
DO J=2 TO 15;
    TABLE(1,1,J)=TABLE(1,1,J-1)+1100;
    TABLE(2,1,J)=TABLE(2,1,J-1)+1370;
    TABLE(3,1,J)=TABLE(3,1,J-1)+1260;
    TABLE(1,2,J)=TABLE(1,2,J-1)+930;
    TABLE(2,2,J)=TABLE(2,2,J-1)+1160;
    TABLE(3,2,J)=TABLE(3,2,J-1)+1070;
 END;
 
 FARM79=1;
 IF R(1919.)>4 THEN FARM79=2;
 IF R(1743.)>0 THEN STATE79=MOD(R(1743.),100);
 ELSE STATE79=R(1743.);
 S79=1;
 IF STATE79=2 THEN S79=2;
 ELSE IF STATE79=15 THEN S79=3;
 
 /* 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;
 ELSE DO;
    IF INCOME79>TABLE(S79,FARM79,15) THEN CPS79=0;
    ELSE IF INCOME79>=0 & INCOME79<=TABLE(S79,FARM79,1) THEN CPS79=1;
    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;
          TABLE(3,1,1,1)=4320;
          TABLE(3,2,1,1)=5400;
          TABLE(3,3,1,1)=4970;
          TABLE(3,1,2,1)=3690;
          TABLE(3,2,2,1)=4660;
          TABLE(3,3,2,1)=4270;
          DO J=2 TO 15;
             TABLE(3,1,1,J)=TABLE(3,1,1,J-1) + 1380;
             TABLE(3,2,1,J)=TABLE(3,2,1,J-1) + 1730;
             TABLE(3,3,1,J)=TABLE(3,3,1,J-1) + 1590;
             TABLE(3,1,2,J)=TABLE(3,1,2,J-1) + 1170;
             TABLE(3,2,2,J)=TABLE(3,2,2,J-1) + 1450;
             TABLE(3,3,2,J)=TABLE(3,3,2,J-1) + 1340;
          END;
          FARM(3)=1;
          IF R(6125.)>4 THEN FARM(3)=2;
          S(3)=1;
          IF R(6028.)>0 THEN DO;
             IF MOD(R(6028.),100)=2 THEN S(3)=2;
             IF MOD(R(6028.),100)=15 THEN S(3)=3;
          END;
          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.);
          TABLE(4,1,1,1)=4760;
          TABLE(4,2,1,1)=5990;
          TABLE(4,3,1,1)=5500;
          TABLE(4,1,2,1)=4080;
          TABLE(4,2,2,1)=5110;
          TABLE(4,3,2,1)=4700;
          DO J=2 TO 15;
             TABLE(4,1,1,J)=TABLE(4,1,1,J-1)+1530;
             TABLE(4,2,1,J)=TABLE(4,2,1,J-1)+1900;
             TABLE(4,3,1,J)=TABLE(4,3,1,J-1)+1750;
             TABLE(4,1,2,J)=TABLE(4,1,2,J-1)+1290;
             TABLE(4,2,2,J)=TABLE(4,2,2,J-1)+1610;
             TABLE(4,3,2,J)=TABLE(4,3,2,J-1)+1480;
          END;
          FARM(4)=1;
          IF R(8291.)>4 THEN FARM(4)=2;
          S(4)=1;
          IF R(8169.)=2 THEN S(4)=2;
          ELSE IF R(8169.)=15 THEN S(4)=3;
          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;
          TABLE(5,1,1,1)=4910;
          TABLE(5,2,1,1)=6160;
          TABLE(5,3,1,1)=5670;
          TABLE(5,1,2,1)=4200;
          TABLE(5,2,2,1)=5290;
          TABLE(5,3,2,1)=4850;
          DO J=2 TO 15;
             TABLE(5,1,1,J)=TABLE(5,1,1,J-1)+1620;
             TABLE(5,2,1,J)=TABLE(5,2,1,J-1)+2020;
             TABLE(5,3,1,J)=TABLE(5,3,1,J-1)+1860;
             TABLE(5,1,2,J)=TABLE(5,1,2,J-1)+1370;
             TABLE(5,2,2,J)=TABLE(5,2,2,J-1)+1700;
             TABLE(5,3,2,J)=TABLE(5,3,2,J-1)+1570;
          END;
          FARM(5)=1;
          IF R(10764.)>4 THEN FARM(5)=2;
          S(5)=1;
          IF R(10548.)=2 THEN S(5)=2;
          ELSE IF R(10548.)=15 THEN S(5)=3;
          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;
                ELSE DO;
                   IF INC(I)>TABLE(I,S(I),FARM(I),15) !
                      FAMINC(I)>TABLE(I,S(I),FARM(I),15) THEN CPS(I)=0;
                   ELSE IF (INC(I)>=0 & INC(I)<=TABLE(I,S(I),FARM(I),1)) !
                     (SUMN(I)=0 & INC(I)=-4 & FAMINC(I)<=
                      TABLE(I,S(I),FARM(I),1)) THEN CPS(I)=1;
                   ELSE IF POVERTY(I)>0 THEN CPS(I)=POVERTY(I)-1;
                   ELSE CPS(I)=-3;
                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 FAMILY(2)=1 & INCOME(2)>3778 THEN CPS(2)=0;
                ELSE IF FAMILY(2)=2 & INCOME(2)>4878 THEN CPS(2)=0;
                ELSE IF FAMILY(2)=3 & INCOME(2)>5784 THEN CPS(2)=0;
                ELSE IF FAMILY(2)=4 & INCOME(2)>7412 THEN CPS(2)=0;
                ELSE IF FAMILY(2)=5 & INCOME(2)>8775 THEN CPS(2)=0;
                ELSE IF FAMILY(2)=6 & INCOME(2)>9914 THEN CPS(2)=0;
                ELSE IF FAMILY(2)>6 & INCOME(2)>12280 THEN CPS(2)=0;
                ELSE IF INCOME(2)>12280 THEN CPS(2)=0;
                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)=POVERTY(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.);
          TABLE(6,1,1)=5010;
          TABLE(6,2,1)=6280;
          TABLE(6,3,1)=6790;
          DO J=2 TO 15;
             TABLE(6,1,J)=TABLE(6,1,J-1)+1740;
             TABLE(6,2,J)=TABLE(6,2,J-1)+2170;
             TABLE(6,3,J)=TABLE(6,3,J-1)+1990;
          END;
          FARM(6)=1;
          IF R(14521.)>4 THEN FARM(6)=2;
          S(6)=1;
          IF STATE84=2 THEN S(6)=2;
          ELSE IF STATE84=15 THEN S(6)=3;
          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.);
          TABLE(7,1,1)=5180;
          TABLE(7,2,1)=6500;
          TABLE(7,3,1)=5970;
          DO J=2 TO 15;
             TABLE(7,1,J)=TABLE(7,1,J-1)+1810;
             TABLE(7,2,J)=TABLE(7,2,J-1)+2260;
             TABLE(7,3,J)=TABLE(7,3,J-1)+2080;
          END;
          FARM(7)=1;
          IF R(17993.)>4 THEN FARM(7)=2;
          S(7)=1;
          IF STATE85=2 THEN S(7)=2;
          ELSE IF STATE85=15 THEN S(7)=3;
          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.);
          TABLE(8,1,1)=5430;
          TABLE(8,2,1)=6790;
          TABLE(8,3,1)=6250;
          DO J=2 TO 15;
             TABLE(8,1,J)=TABLE(8,1,J-1)+1860;
             TABLE(8,2,J)=TABLE(8,2,J-1)+2330;
             TABLE(8,3,J)=TABLE(8,3,J-1)+2140;
          END;
          FARM(8)=1;
          IF R(21609.)>4 THEN FARM(8)=2;
          S(8)=1;
          IF STATE86=2 THEN S(8)=2;
          ELSE IF STATE86=15 THEN S(8)=3;
          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;
                IF INC(I)>TABLE(I,S(I),15) !
                   FAMINC(I)>TABLE(I,S(I),15) THEN CPS(I)=0;
                ELSE IF (INC(I)>=0 & INC(I)<=TABLE(I,S(I),1)) !
                  (SUMN(I)=0 & INC(I)=-4 & FAMINC(I)<=
                   TABLE(I,S(I),1)) THEN CPS(I)=1;
                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.);