Variable Creation: Total Net Family Income 1979-1986

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;

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