Variable Creation: Total Net Family Income 1996-2012

National Longitudinal Survey of Youth - 1979 Cohort

Variable Creation: Total Net Family Income 1996-2012

 

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;
 
/* The 1996 Poverty Income Guidelines are applicable for income received in calendar 1995.  Contact the                    */
/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation,                 */ 
/* (202) 690-6141, to receive a fax for the Poverty Income Guidelines.  Talk to Gordan Fisher or Joan         */ 
/* Turek-Brezina.  Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8.               */
 
 
/* Several variables pertaining to recipiency from various government income programs were computed from            */
/* a number of different variables in 1994, due to the change to an event history format for data collection.                 */
/* these variables are as follows:                                                                                                                              */
/* 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                                                                                                                          */
 
          TABLE(17,1,1)=7470;
          TABLE(17,2,1)=9340;
          TABLE(17,3,1)=8610;
          DO J=2 TO 15;
             TABLE(17,1,J)=TABLE(17,1,J-1)+2560;
             TABLE(17,2,J)=TABLE(17,2,J-1)+3200;
             TABLE(17,3,J)=TABLE(17,3,J-1)+2940;
          END;
          S(17)=1;
          IF STATE96=2 THEN S(17)=2;
          ELSE IF STATE96=15 THEN S(17)=3;
          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

/* The 1997 Poverty Income Guidelines are applicable for income received in calendar 1997.  Contact the */
/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation,*/ 
/* (202) 690-6141, to receive a fax for the Poverty Income Guidelines.  Talk to Gordan Fisher or Joan*/ 
/* Turek-Brezina.  Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8.*/

/* Several variables pertaining to recipiency from various government income programs were computed from */
/* a number of different variables in 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*/

COMPUTE TABLE1=7890
COMPUTE TBL1_INC=2720
COMPUTE TABLE2=9870
COMPUTE TBL2_INC=3400
COMPUTE TABLE3=9070
COMPUTE TBL3_INC=3130

COMPUTE S_CUR=1
DO IF (STATE98N = ' 2')
COMPUTE S_CUR=2
ELSE IF (STATE98N = '15')
COMPUTE S_CUR=3
END IF

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

  /* POVERTY STATUS AND LEVEL */
DO IF (FAMILY_C > 0 AND S_CUR EQ 1)
COMPUTE LEVEL_C=(TABLE1 + (TBL1_INC * (FAMILY_C-1)))
ELSE IF (FAMILY_C > 0 AND S_CUR EQ 2)
COMPUTE LEVEL_C=(TABLE2 + (TBL2_INC * (FAMILY_C-1)))
ELSE IF (FAMILY_C > 0 AND S_CUR EQ 3)
COMPUTE LEVEL_C=(TABLE3 + (TBL3_INC * (FAMILY_C-1)))
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
 
/* The 1999 Poverty Income Guidelines are applicable for income received in calendar 1999.  Contact the                    */
/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation,                     */
/* (202) 690?6141, to receive a fax for the Poverty Income Guidelines.  Talk to Gordan Fisher or Joan                          */
/* Turek?Brezina.  Or see the Social Security Bulletin, Annual Statistical Supplement, table 3.E8.                                    */
/* Several variables pertaining to recipiency from various government income programs were computed from                 */
/* a number of different variables in 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                          */
/*                         calendar year 1999                                                                                                                                        */
 COMPUTE table1=8240
COMPUTE tbl1_inc=2820
COMPUTE table2=10320
COMPUTE tbl2_inc=3520
COMPUTE table3=9490
COMPUTE tbl3_inc=3240
 
 /* set state of residence by hand for HA and Alaska for movers */
/* ste_cd is the original code and public_ids are listed for all who reported */
/* a move to HA or Alaska */ 
 
COMPUTE s_cur=1                                                    
do if ((ste_cd=2)
or 
((public_id=5671) 
or (public_id=11881)))   
COMPUTE s_cur=2   
else if 
((ste_cd=15) 
or 
(public_id=1266))                                  
COMPUTE s_cur=3                      
end if                                           
                                                
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 */ /* public_ids are listed for cases with 2 farms or businesses */
COMPUTE fjt_inc=fjt_141
if (public_id eq 3187) fjt_inc=13000
do if (fjt_inc eq -4)
COMPUTE farm_cur=0
else
COMPUTE farm_cur=fjt_inc
end if
 
COMPUTE bpjt_inc=bp_141
if (public_id eq 2410) bpjt_inc=15000
if (public_id eq 6068) bpjt_inc=40000
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
if (public_id eq 9373) income_c=-3
  /* poverty status and level */
do if (family_c > 0 and s_cur eq 1)
COMPUTE level_c=(table1 + (tbl1_inc * (family_c-1)))
else if (family_c > 0 and s_cur eq 2) 
COMPUTE level_c=(table2 + (tbl2_inc * (family_c-1)))
else if (family_c > 0 and s_cur eq 3)     
COMPUTE level_c=(table3 + (tbl3_inc * (family_c-1)))
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

 

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;
 
/* The 2001 Poverty Income Guidelines are applicable for income received in calendar 2001, and were accessed */
/* through the website http://aspe.hhs.gov/poverty/01poverty.htm. Contact the                    */
/* Dept. of Health and Human Services, the Office of the Assistant Secretary for Planning and Evaluation,                     */
/* (202) 690?6141, to receive a fax for the Poverty Income Guidelines.  Or see the Social Security Bulletin, */
/* Annual Statistical Supplement, table 3.E8.                                    */
/* Several variables pertaining to recipiency from various government income programs were computed from                 */
/* a number of different variables in 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                                                                                                                                        */
 
 
table1=8590;
tbl1_inc=3020;
table2=10730;
tbl2_inc=3780;
table3=9890;
tbl3_inc=3470;
 
 
* set state of residence by hand for HA and Alaska for movers;
* ste_cd is the original code and public_ids are listed for all who reported;
* a move to HA or Alaska;
 
s_cur=1;
if (ste_cd=2) then s_cur=2;
else if (ste_cd=15) then s_cur=3;
 
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;
 
* hand edits to recipiency values;
 
if (public_id = 98) then ssi_cur = 4896;
else if (public_id = 7584) then ssi_cur = 7584;
else if (public_id = 744) then ssi_cur = -2;
else if (public_id = 1241) then ssi_cur = 6540;
else if (public_id = 2490) then ssi_cur = 25200;
else if (public_id = 2826) then do;
ssi_cur = 7476;
food_cur = 2496;
afdc_cur = 7800;
end;
else if (public_id = 4899) then ui_cur = 4300;
else if (public_id = 5305) then food_cur = 0;
else if (public_id = 7191) then ssi_cur = 4548;
else if (public_id = 7377) then food_cur = 100;
else if (public_id = 9036) then ssi_cur = 6552;
else if (public_id = 9199) then food_cur = 3000;
else if (public_id = 10211) then ssi_cur = 6780;
 
 
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;
 
proc print; var public_id vet_cur other_c;
where (vet_cur > 0 & other_c = vet_cur);
title 'freq vet benefits';
 
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;
 
 
* poverty status and level;
 
if (family_c > 0 & s_cur = 1) then
level_c=(table1 + (tbl1_inc * (family_c-1)));
else if (family_c > 0 & s_cur eq 2) then
level_c=(table2 + (tbl2_inc * (family_c-1)));
else if (family_c > 0 and s_cur eq 3) then
level_c=(table3 + (tbl3_inc * (family_c-1)));
 
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;
* 2003. Access the websites found in bookmarks for information on;
* current PIG tables. http://aspe.hhs.gov/poverty/03poverty.htm;

table1=8980;
tbl1_inc=3140;
table2=11210;
tbl2_inc=3930;
table3=10330;
tbl3_inc=3610;


* set state of residence by hand for HA and Alaska for movers;
* ste_cd is the original code and public_ids are listed for all who reported;
* a move to HA or Alaska;
* replaced ste_cd with state_fips (cleaned state fips code) for 2004;

s_cur=1;
if (state_fips=2) then s_cur=2;
else if (state_fips=15) then s_cur=3;

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;
* public_ids are listed for cases with 2 farms or businesses;

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 _NULL_;
* set Compute;
* where sei_cur > 0;
* file print; 
* if (_N_ = 1) then put "sei_cur > 0";
* put public_id fjt_141 fjt_inc farm_cur;
* put public_id bp_141 bpjt_inc bus_cur;
* put public_id q13_132d fbr_inc fbr_cur;
* put public_id q13_9 farm_cur bus_cur fbr_cur sei_cur;
* put ' ';


* data _NULL_;
* set Compute;
* where public_id in (2496,2739,5390);
* file print;
* if (_N_ = 1) then put "public_id in (2496 2739 5390)";
* put public_id fjt_141 fjt_inc farm_cur;
* put public_id bp_141 bpjt_inc bus_cur;
* put public_id q13_132d fbr_inc fbr_cur;
* put public_id q13_9 farm_cur bus_cur fbr_cur sei_cur;
* put ' ';


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;

proc freq; tables vet_cur other_c;

proc print; var public_id vet_cur other_c;
where (vet_cur > 0 & other_c = vet_cur);
title 'freq vet benefits';

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;


* income trunc;

proc freq; tables income_c;

proc print; var public_id income_c ste_cd state_fips;
where (income_c >= 250200);
title 'frequencies top coded';

data truncate;
set compute2;
if (income_c >= 250200 & public_id ~= 1142 & public_id ~= 2503);
proc freq; tables income_c;
proc means mean min max n sum; var income_c;
title 'calculate truncated value';

data compute3;
set compute2;
incom_ct=income_c;
if (income_c >= 250200 & public_id ~= 1142 & public_id ~= 2503) then incom_ct=408473;
if (public_id = 1142 | public_id = 2503) then incom_ct = -3;


* poverty status and level;

if (family_c > 0 & s_cur = 1) then 
level_c=(table1 + (tbl1_inc * (family_c-1)));
else if (family_c > 0 & s_cur eq 2) then 
level_c=(table2 + (tbl2_inc * (family_c-1)));
else if (family_c > 0 and s_cur eq 3) then 
level_c=(table3 + (tbl3_inc * (family_c-1)));

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;



 

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;

* Federal Poverty Guidelines used in 2006 program apply to calendar year;
* 2006. Access the websites found in bookmarks for information on;
* current PIG tables. http://aspe.hhs.gov/poverty/06poverty.shtml for 06 tables;

table1=9570;
tbl1_inc=3260;
table2=11950;
tbl2_inc=4080;
table3=11010;
tbl3_inc=3750;

* set state of residence by hand for HA and Alaska for movers;
* ste_cd is the original code and ids are listed for all who reported;
* a move to HA or Alaska;
* replaced ste_cd with state_fips (cleaned state fips code) for 2006;

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;

* poverty status and level;

if (family_c > 0 & s_cur = 1) then
level_c=(table1 + (tbl1_inc * (family_c-1)));
else if (family_c > 0 & s_cur eq 2) then
level_c=(table2 + (tbl2_inc * (family_c-1)));
else if (family_c > 0 and s_cur eq 3) then
level_c=(table3 + (tbl3_inc * (family_c-1)));

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;

* Federal Poverty Guidelines used in 2008 program apply to calendar year;
* 2007. Access the websites found in bookmarks for information on;
* current PIG tables. http://aspe.hhs.gov/poverty/07poverty.shtml for 07 tables;

 

table1=10210;
tbl1_inc=3480;
table2=12770;
tbl2_inc=4350;
table3=11750;
tbl3_inc=4000;

 

* set state of residence by hand for HA and Alaska for movers;
* ste_cd is the original code and ids are listed for all who reported;
* a move to HI or Alaska;

 

s_cur=1;
if (ste_cd2=2) then s_cur=2;*Alaska;
else if (ste_cd2=15) then s_cur=3;*HI;

 

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 & public_id ~= 4076 & public_id ~= 4565) then incom_ct=454737;

 

* poverty status and level;

 

if (family_c > 0 & s_cur = 1) then

              level_c=(table1 + (tbl1_inc * (family_c-1)));

else if (family_c > 0 & s_cur eq 2) then

              level_c=(table2 + (tbl2_inc * (family_c-1)));

else if (family_c > 0 and s_cur eq 3) then

              level_c=(table3 + (tbl3_inc * (family_c-1)));

 

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;

 

* Federal Poverty Guidelines used in 2010 program apply to calendar year 2009;

* Access the websites found in bookmarks for information on;

* current PIG tables. http://aspe.hhs.gov/poverty/09poverty.shtml for 09 tables;

 

table1=10830;*for 1 person in family for 48 states;

tbl1_inc=3740;*for each additional person for 48 states;

table2=13530;*for 1 person in family for Alaska;

tbl2_inc=4680;*for each additional person for Alaska;

table3=12460;*for 1 person in family for Hawaii;

tbl3_inc=4300;*for each additional person for Hawaii;

 

* set state of residence by hand for HI and Alaska for movers;

* ste_cd is the original code and ids are listed for all who reported;

* a move to HI or Alaska;

 

s_cur=1;

if (ste_cd=2) then s_cur=2;*Alaska;

else if (ste_cd=15) then s_cur=3;*HI;

 

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

 

proc freq; tables vet_cur other_c afdc_cur food_cur ssi_cur uis_cur ui_cur;

run;

 

proc print; var public_id vet_cur other_c;

where (vet_cur > 0 & other_c = vet_cur);

title 'freq vet benefits';

 

proc print; var public_id vet_cur other_c;

where (0<vet_cur <100 or 0<other_c <100);

title 'freq vet < $100';

 

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 & public_id ~= 7852) then tnfi_trunc=440692;

if (public_id = 7852) then tnfi_trunc = -3;

* poverty status and level;

if (family_c > 0 & s_cur = 1) then

              povlevel=(table1 + (tbl1_inc * (family_c-1)));

else if (family_c > 0 & s_cur eq 2) then

              povlevel=(table2 + (tbl2_inc * (family_c-1)));

else if (family_c > 0 and s_cur eq 3) then

              povlevel=(table3 + (tbl3_inc * (family_c-1)));

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;

* Federal Poverty Guidelines used in 2012 program apply to calendar year 2011;
* Access the websites found in bookmarks for information on;
* current PIG tables. http://aspe.hhs.gov/poverty/11poverty.shtml for 11 tables;

table1=10890;*for 1 person in family for 48 states;
tbl1_inc=3820;*for each additional person for 48 states;
table2=13600;*for 1 person in family for Alaska;
tbl2_inc=4780;*for each additional person for Alaska;
table3=12540;*for 1 person in family for Hawaii;
tbl3_inc=4390;*for each additional person for Hawaii;

* set state of residence by hand for HA and Alaska for movers;
* ste_cd is the original code and norcids are listed for all who reported;
* a move to HA or Alaska;

s_cur=1;
if (ste_cd=2) then s_cur=2;*Alaska;
else if (ste_cd=15) then s_cur=3;*HI;

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 norcid;

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;

* poverty status and level;

if (family_c > 0 & s_cur = 1) then
level_c=(table1 + (tbl1_inc * (family_c-1)));
else if (family_c > 0 & s_cur eq 2) then
level_c=(table2 + (tbl2_inc * (family_c-1)));
else if (family_c > 0 and s_cur eq 3) then
level_c=(table3 + (tbl3_inc * (family_c-1)));

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;