Appendix 5: Income and Assets Variable Creation

• Household Income and Assets
  • Section 1: Gross Household Income
  • Section 2: Household Net Worth
  • Section 3: Household Poverty Status
  • Section 4: Topcoding Income, Net Worth, and Poverty Ratio
• Participation in Government Programs
  • Section 1: Unemployment Compensation
  • Section 2: Workers Compensation
  • Section 3: Other Government Assistance

Return to Table of Contents

Household Income and Assets

Variables Created:

• CV_HH_NET_WORTH_Y

• CV_INCOME_GROSS_YR

• CV_HH_POV_RATIO

Variables Used

This program creates the household net worth and gross household income variables. The household net worth variable is an actual number that results from adding the values of all assets and subtracting liabilities of the household.  The gross household income variable includes total annual cash receipts before taxes from all sources.  The program then creates a ratio comparing the household's total income to federal poverty guidelines based on the number of household residents and the number of members under age 18.

Researchers should note that, like many income and asset variables in the data set, these three variables are topcoded to protect respondent privacy.  More information about topcoding is available in the NLSY97 User's Guide.

/******************* SECTION 1:  GROSS HOUSEHOLD INCOME *********************/

/** In income section, I flag three items involving most of the respondents:

I. nonfarm employment income -- flag1400

II. father's income -- flag8700

III. mother's income -- flag9200

flag=0 indicating accurate income reported

flag=1 indicating estimated income reported    **/

/*Create the following components of the hh net worth and gross income, such as income from wages and salaries, interests, etc.  **/

/** Income from non-farm employment (nfarmwgY) **/

nfarmwgY=-4; flag1400=0;

if (YI_1400=1 and (YI_1700 ne -1 and YI_1700 ne -2 and YI_1700 ne -3)) or (YI_1400=-1 and YI_1600=1 and (YI_1700 ne -1 and YI_1700 ne -2 and YI_1700 ne -3)) or (YI_1400=-2 and YI_1500=1 and (YI_1700 ne -1 and YI_1700 ne -2 and YI_1700 ne -3)) or (YI_1400=-2 and YI_1500=-1 and YI_1600=1 and (YI_1700 ne -1 and YI_1700 ne -2 and YI_1700 ne -3))

then nfarmwgY=YI_1700;

if (YI_1400=1 or (YI_1400=-1 and YI_1600=1) or (YI_1400=-2 and YI_1500=1) or (YI_1400=-2 and YI_1500=-1 and YI_1600=1) or (YI_1400=-2 and YI_1500=-3 and YI_1600=1) or (YI_1400=-3 and YI_1600=1) or (YI_1400=-3 and YI_1500=1)) and (YI_1700 eq -1 or YI_1700 eq -2 or YI_1700 eq -3) then do;

    if YI_1800=1 then do; nfarmwgY=2500; flag1400=1; end;

    if YI_1800=2 then do; nfarmwgY=7500; flag1400=1; end;

    if YI_1800=3 then do; nfarmwgY=17500; flag1400=1; end;

    if YI_1800=4 then do; nfarmwgY=37500; flag1400=1; end;

    if YI_1800=5 then do; nfarmwgY=75000; flag1400=1; end;

    if YI_1800=6 then do; nfarmwgY=175000; flag1400=1; end;

    if YI_1800=7 then do; nfarmwgY=250001; flag1400=1; end;

end;

if YI_1400=0 or YI_1500=0 or YI_1600=0 then nfarmwgY=0;

if YI_1600=-1 or YI_1800=-1 then nfarmwgY=-1;

if YI_1500=-2 or YI_1800=-2 then nfarmwgY=-2;

if YI_1600=-3 or YI_1500=-3 or YI_1800=-3 then nfarmwgY=-3;

/** For all the questions below, the youth must be INDEPENDENT (YI_1900=1)   **/

/** Income from farm and self-employment (farmwgY)       **/

farmwgY=-4;

if YI_2000=1 and YI_2100 ne -1 and YI_2100 ne -2 and YI_2100 ne -3 then farmwgY=YI_2100;

if YI_2000=1 and (YI_2100 eq -1 or YI_2100 eq -2 or YI_2100 eq -3) then do;

   if YI_2200=1 then do; farmwgY=-2; end;

   if YI_2200=2 then do; farmwgY=2500; end;

   if YI_2200=3 then do; farmwgY=7500; end;

   if YI_2200=4 then do; farmwgY=17500; end;

   if YI_2200=5 then do; farmwgY=37500; end;

   if YI_2200=6 then do; farmwgY=75000; end;

   if YI_2200=7 then do; farmwgY=175000; end;

   if YI_2200=8 then do; farmwgY=250001; end;

end;

if YI_2000=0 then farmwgY=0;

if YI_2000=-1 or YI_2200=-1 then farmwgY=-1;

if YI_2000=-2 or YI_2200=-2 then farmwgY=-2;

if YI_2000=-3 or YI_2200=-3 then farmwgY=-3;

/** Non-farm income from the spouse/partner (nfarmwgP and farmwgP) **/

nfarmwgP=-4;

if YI_2300=1 then do;

   if (YI_2400=1 and YI_2600 ne -1 and YI_2600 ne -2 and YI_2600 ne -3) or (YI_2400=-1 and YI_2500=1 and YI_2600 ne -1 and YI_2600 ne -2 and YI_2600 ne -3)

   then nfarmwgP=YI_2600;

   if (YI_2400=1 and (YI_2600 eq -1 or YI_2600 eq -2 or YI_2600 eq -3)) or (YI_2400=-1 and YI_2500=1 and (YI_2600 eq -1 or YI_2600 eq -2 or YI_2600 eq -3)) then do;

      if YI_2700=1 then do; nfarmwgP=2500; end;

      if YI_2700=2 then do; nfarmwgP=7500; end;

      if YI_2700=3 then do; nfarmwgP=17500; end;

      if YI_2700=4 then do; nfarmwgP=37500; end;

      if YI_2700=5 then do; nfarmwgP=75000; end;

      if YI_2700=6 then do; nfarmwgP=175000; end;

      if YI_2700=7 then do; nfarmwgP=250001; end;

   end;

end;

if YI_2300=0 or YI_2400=0 or YI_2500=0 then nfarmwgP=0;

if YI_2300=-1 or YI_2500=-1 or YI_2700=-1 then nfarmwgP=-1;

if YI_2300=-2 or YI_2400=-2 or YI_2500=-2 or YI_2700=-2 then nfarmwgP=-2;

if YI_2300=-3 or YI_2400=-3 or YI_2500=-3 or YI_2700=-3 then nfarmwgP=-3;

/** Farm-related income from the spouse/partner          **/

farmwgP=-4;

if YI_2300=1 then do;

   if YI_2900=1 and YI_3000 ne -1 and YI_3000 ne -2 and YI_3000 ne -3 then farmwgP=YI_3000;

   if YI_2900=1 and (YI_3000 eq -1 or YI_3000 eq -2 or YI_3000 eq -3) then do;

      if YI_3100=1 then do; farmwgP=-2; end;

      if YI_3100=2 then do; farmwgP=2500; end;

      if YI_3100=3 then do; farmwgP=7500; end;

      if YI_3100=4 then do; farmwgP=17500; end;

      if YI_3100=5 then do; farmwgP=37500; end;

      if YI_3100=6 then do; farmwgP=75000; end;

      if YI_3100=7 then do; farmwgP=175000; end;

      if YI_3100=8 then do; farmwgP=250001; end;

   end;

end;

if YI_2300=0  or YI_2900=0      then farmwgP=0;

if YI_2300=-1 or YI_2900=-1 or YI_3100=-1 then farmwgP=-1;

if YI_2300=-2 or YI_2900=-2 or YI_3100=-2 then farmwgP=-2;

if YI_2300=-3 or YI_2900=-3 or YI_3100=-3 then farmwgP=-3;

/** Child support payment (childsuY) **/

childsuY=-4;

if YI_3300=1 then do;

   if (YI_3900=1 and YI_4000=1 and (YI_4100 ne -1 and YI_4100 ne -2 and YI_4100 ne -3)) then childsuY=YI_4100;

   if (YI_3900=1 and YI_4000=1 and (YI_4100 eq -1 or YI_4100 eq -2 or YI_4100 eq -3)) then do;

      if YI_4200=1 then do; childsuY=500; end;

      if YI_4200=2 then do; childsuY=1750; end;

      if YI_4200=3 then do; childsuY=3750; end;

      if YI_4200=4 then do; childsuY=7500; end;

      if YI_4200=5 then do; childsuY=17500; end;

      if YI_4200=6 then do; childsuY=37500; end;

      if YI_4200=7 then do; childsuY=50001; end;

   end;

end;

if YI_3300=0 or YI_3900=0 or YI_4000=0 then childsuY=0;

if YI_3300=-1 or YI_3900=-1 or YI_4000=-1 or YI_4200=-1 then childsuY=-1;

if YI_3300=-2 or YI_3900=-2 or YI_4000=-2 or YI_4200=-2 then childsuY=-2;

if YI_3300=-1 or YI_3900=-1 or YI_4000=-3 or yI_4100=-3 or YI_4200=-3 then childsuY=-3;

/** Interest payments received by the youth (Y) and his/her partner/spouse.  **/

interesY=-4;

if YI_4300=1 then do;

   if (YI_4400 ne -1 and YI_4400 ne -2 and YI_4400 ne -3) then interesY=YI_4400;

   if (YI_4400 eq -1 or YI_4400 eq -2 or YI_4400 eq -3) then do;

      if YI_4500=1 then do; interesY=250; end;

      if YI_4500=2 then do; interesY=750; end;

      if YI_4500=3 then do; interesY=1750; end;

      if YI_4500=4 then do; interesY=3750; end;

      if YI_4500=5 then do; interesY=6250; end;

      if YI_4500=6 then do; interesY=8750; end;

      if YI_4500=7 then do; interesY=10001; end;

   end;

end;

if YI_4300=0 then interesY=0;

if YI_4300=-1 or YI_4500=-1 then interesY=-1;

if YI_4300=-2 or YI_4500=-2 then interesY=-2;

if YI_4300=-3 or YI_4400=-3 or YI_4500=-3 then interesY=-3;

/** Dividends from stocks and mutual funds.    **/

dividend=-4;

if YI_4600=1 then do;

   if (YI_4700 ne -1 and YI_4700 ne -2 and YI_4700 ne -3) then dividend=YI_4700;

   if (YI_4700 eq -1 or YI_4700 eq -2 or YI_4700 eq -3) then do;

      if YI_4800=1 then do; dividend=250; end;

      if YI_4800=2 then do; dividend=750; end;

      if YI_4800=3 then do; dividend=1750; end;

      if YI_4800=4 then do; dividend=3750; end;

      if YI_4800=5 then do; dividend=6250; end;

      if YI_4800=6 then do; dividend=8750; end;

      if YI_4800=7 then do; dividend=10001; end;

   end;

end;

if YI_4600=0 then dividend=0;

if YI_4600=-1 or YI_4800=-1 then dividend=-1;

if YI_4600=-2 or YI_4800=-2 then dividend=-2;

if YI_4600=-3 or YI_4700=-3 or YI_4800=-3 then dividend=-3;

/** Rental income.         **/

rentalIY=-4;

if YI_4900=1 then do;

   if (YI_5000 ne -1 and YI_5000 ne -2 and YI_5000 ne -3) then rentalIY=YI_5000;

   if (YI_5000 eq -1 or YI_5000 eq -2 or YI_5000 eq -3) then do;

      if YI_5100=1 then do; rentalIY=500; end;

      if YI_5100=2 then do; rentalIY=1750; end;

      if YI_5100=3 then do; rentalIY=3750; end;

      if YI_5100=4 then do; rentalIY=7500; end;

      if YI_5100=5 then do; rentalIY=17500; end;

      if YI_5100=6 then do; rentalIY=37500; end;

       if YI_5100=7 then do; rentalIY=50001; end;

   end;

end;

if YI_4900=0 then rentalIY=0;

if YI_4900=-1 or YI_5100=-1 then rentalIY=-1;

if YI_4900=-2 or YI_5100=-2 then rentalIY=-2;

if YI_4900=-3 or YI_5000=-3 or YI_5100=-3 then rentalIY=-3;

/** Property or money from estates, trusts, annuities or inheritances.       **/

estatesY=-4;

if YI_5200=1 then do;

   if (YI_5300 ne -1 and YI_5300 ne -2 and YI_5300 ne -3) then estatesY=YI_5300;

   if (YI_5300 eq -1 or YI_5300 eq -2 or YI_5300 eq -3) then do;

      if YI_5400=1 then do; estatesY=2500; end;

      if YI_5400=2 then do; estatesY=7500; end;

      if YI_5400=3 then do; estatesY=17500; end;

      if YI_5400=4 then do; estatesY=37500; end;

      if YI_5400=5 then do; estatesY=75000; end;

      if YI_5400=6 then do; estatesY=175000; end;

      if YI_5400=7 then do; estatesY=250001; end;

   end;

end;

if YI_5200=0 then estatesY=0;

if YI_5200=-1 or YI_5400=-1 then estatesY=-1;

if YI_5200=-2 or YI_5400=-2 then estatesY=-2;

if YI_5200=-3 or YI_5300=-3 or YI_5400=-3 then estatesY=-3;

/** Income from other sources: SS payments, pension and retirement income, alimony, payments from insurance policies, etc...       **/

pensionY=-4;

if YI_7600=1 then do;

   if (YI_7700 ne -1 and YI_7700 ne -2 and YI_7700 ne -3) then pensionY=YI_7700;

   if (YI_7700 eq -1 or YI_7700 eq -2 or YI_7700 eq -3) then do;

      if YI_7800=1 then do; pensionY=500; end;

      if YI_7800=2 then do; pensionY=1750; end;

      if YI_7800=3 then do; pensionY=3750; end;

      if YI_7800=4 then do; pensionY=7500; end;

      if YI_7800=5 then do; pensionY=17500; end;

      if YI_7800=6 then do; pensionY=37500; end;

      if YI_7800=7 then do; pensionY=50001; end;

   end;

end;

if YI_7600=0 then pensionY=0;

if YI_7600=-1 or YI_7800=-1 then pensionY=-1;

if YI_7600=-2 or YI_7800=-2 then pensionY=-2;

if YI_7600=-3 or YI_7700=-3 or YI_7800=-3 then pensionY=-3;

/** If the youth lived with the father, the father's income.       **/

flag8700=0; faincome=-4;

/** identifying the father is in the household.          **/

if (HIRELY01=4 or HIRELY02=4 or HIRELY03=4 or HIRELY04=4 or HIRELY05=4 or HIRELY06=4 or HIRELY07=4 or HIRELY08=4 or HIRELY09=4 or HIRELY10=4 or HIRELY11=4 or HIRELY12=4 or HIRELY13=4 or HIRELY14=4) then do;

    if YI_8700=1 then do;

       if (YI_8800 ne -1 and YI_8800 ne -2 and YI_8800 ne -3) then faincome=YI_8800;

       if (YI_8800 eq -1 or YI_8800 eq -2 or YI_8800 eq -3) then do;

          if YI_8900=1 then do; faincome=2500; flag8700=1; end;

          if YI_8900=2 then do; faincome=7500; flag8700=1; end;

          if YI_8900=3 then do; faincome=17500; flag8700=1; end;

          if YI_8900=4 then do; faincome=37500; flag8700=1; end;

          if YI_8900=5 then do; faincome=75000; flag8700=1; end;

          if YI_8900=6 then do; faincome=175000; flag8700=1; end;

          if YI_8900=7 then do; faincome=250001; flag8700=1; end;

       end;

    end;

    if YI_8700=0 then faincome=0;

    if YI_8700=-1 or YI_8900=-1 then faincome=-1;

    if YI_8700=-2 or YI_8900=-2 then faincome=-2;

    if YI_8700=-3 or YI_8800=-3 or YI_8900=-3 then faincome=-3;

end;

/** If the youth lived with the mother, the mother's income.       **/

flag9200=0;

maincome=-4;

/** identify the mother is in the household.   **/

if (HIRELY01=3 or HIRELY02=3 or HIRELY03=3 or HIRELY04=3 or HIRELY05=3 or HIRELY06=3 or HIRELY07=3 or HIRELY08=3 or HIRELY09=3 or HIRELY10=3 or HIRELY11=3 or HIRELY12=3 or HIRELY13=3 or HIRELY14=3) then do;

    if YI_9200=1 then do;

       if (YI_9300 ne -1 and YI_9300 ne -2 and YI_9300 ne -3) then maincome=YI_9300;

       if (YI_9300 eq -1 or YI_9300 eq -2 or YI_9300 eq -3) then do;

          if YI_9400=1 then do;  maincome=2500; flag9200=1; end;

          if YI_9400=2 then do; maincome=7500; flag9200=1; end;

          if YI_9400=3 then do; maincome=17500; flag9200=1; end;

          if YI_9400=4 then do; maincome=37500; flag9200=1; end;

          if YI_9400=5 then do; maincome=75000; flag9200=1; end;

          if YI_9400=6 then do; maincome=175000; flag9200=1; end;

          if YI_9400=7 then do; maincome=250001; flag9200=1; end;

       end;

   end;

   if YI_9200=0 then maincome=0;

   if YI_9200=-1 or YI_9400=-1 then maincome=-1;

   if YI_9200=-2 or YI_9400=-2 then maincome=-2;

   if YI_9200=-3 or YI_9400=-3 then maincome=-3;

end;

/** If the youth lives with the male guardian. **/

mgincome=-4;

if YI_9600=1 then do;

   if (YI_9700=1 and (YI_9800 ne -1 and YI_9800 ne -2 and YI_9800 ne -3)) then mgincome=YI_9800;

   if (YI_9700=1 and (YI_9800 eq -1 or YI_9800 eq -2 or YI_9800 eq -3)) then do;

       if YI_9900=1 then do; mgincome=2500; end;

       if YI_9900=2 then do; mgincome=7500; end;

       if YI_9900=3 then do; mgincome=17500; end;

       if YI_9900=4 then do; mgincome=37500; end;

       if YI_9900=5 then do; mgincome=75000; end;

       if YI_9900=6 then do; mgincome=175000; end;

       if YI_9900=7 then do; mgincome=250001; end;

    end;

end;

if YI_9700=0 then mgincome=0;

if YI_9600=-1 or YI_9700=-1 or YI_9900=-1 then mgincome=-1;

if YI_9600=-2 or YI_9700=-2 or YI_9900=-2 then mgincome=-2;

if YI_9600=-3 or YI_9700=-3 or YI_9800=-3 or YI_9900=-3 then mgincome=-3;

/** If the youth lives with female guardian.   **/

fgincome=-4;

if YI_10100=1 then do;

   if (YI_10200=1 and (YI_10300 ne -1 and YI_10300 ne -2 and YI_10300 ne -3)) then fgincome=YI_10300;

   if (YI_10100=1 and YI_10200=1 and (YI_10300 eq -1 or YI_10300 eq -2 or YI_10300 eq -3)) then do;

       if YI_10400=1 then do; fgincome=2500; end;

       if YI_10400=2 then do; fgincome=7500; end;

       if YI_10400=3 then do; fgincome=17500; end;

       if YI_10400=4 then do; fgincome=37500; end;

       if YI_10400=5 then do; fgincome=75000; end;

       if YI_10400=6 then do; fgincome=175000; end;

       if YI_10400=7 then do; fgincome=250001; end;

    end;

end;

if YI_10200=0 then fgincome=0;

if YI_10100=-1 or YI_10200=-1 or YI_10400=-1 then fgincome=-1;

if YI_10100=-2 or YI_10200=-2 or YI_10400=-2 then fgincome=-2;

if YI_10100=-3 or YI_10200=-3 or YI_10300=-3 or YI_10400=-3 then fgincome=-3;

/** Income from household members of 14 or older other than spouse/partner.  **/

array otfamI otfamI01-otfamI14;

array I11100 I1110001-I1110014;

array I11600 I1160001-I1160014;

array I11700 I1170001-I1170014;

do I=1 to 14;

   otfamI(I)=-4;

   if YI_10800=1 then do;

      if I11100(I)=0 and I11600(I) ne -1 and I11600(I) ne -2 and I11600(I) ne -3 and I11600(I) ne -4 then otfamI(I)=I11600(I);

      if I11100(I)=0 and (I11600(I) eq -1 or I11600(I) eq -2 or I11600(I) eq -3) then do;

                 if I11700(I)=1 then do; otfamI(I)=2500; end;

                 if I11700(I)=2 then do; otfamI(I)=7500; end;

                 if I11700(I)=3 then do; otfamI(I)=17500; end;

                 if I11700(I)=4 then do; otfamI(I)=37500; end;

                 if I11700(I)=5 then do; otfamI(I)=75000; end;

                 if I11700(I)=6 then do; otfamI(I)=175000; end;

                 if I11700(I)=7 then do; otfamI(I)=250001; end;

      end;

      if I11100(I)=-1 or I11700(I)=-1 then otfamI(I)=-1;

      if I11100(I)=-2 or I11700(I)=-2 then otfamI(I)=-2;

      if I11100(I)=-3 or I11600(I)=-3 or I11700(I)=-3 then otfamI(I)=-3;

   end;

end;

/** We now create gross hh income according to the youth.          **/

groshhIY=0;

if YI_1900=1 then do;

   if nfarmwgY NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+nfarmwgY;

   if farmwgY  NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+farmwgY;          

   if nfarmwgP NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+nfarmwgP;        

   if farmwgP  NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+farmwgP;          

   if childsuY NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+childsuY;           

   if interesY NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+interesY;            

   if dividend NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+dividend;          

   if rentalIY NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+rentalIY;            

   if estatesY NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+estatesY;             

   if pensionY NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+pensionY;

   if faincome NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+faincome;          

   if maincome NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+maincome;        

   if mgincome NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+mgincome;        

   if fgincome NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+fgincome;          

   if prgamt   NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+prgamt;

   do I=1 to 14;

      if otfamI[I] NOT in (-1,-2,-3,-4) then groshhIY=groshhIY+otfamI[I];          

   end;

end;

if YI_1900=-1 or YI_8500=-1 or (nfarmwgY=-1 or farmwgY=-1 or nfarmwgP=-1 or farmwgP=-1  or childsuY=-1 or interesY=-1 or dividend=-1 or rentalIY=-1 or estatesY=-1 or pensionY=-1 or faincome=-1 or maincome=-1 or mgincome=-1 or fgincome=-1 or prgamt=-1 or otfamI01=-1 or otfamI02=-1 or otfamI03=-1 or otfamI04=-1 or otfamI05=-1 or otfamI06=-1 or otfamI07=-1 or otfamI08=-1 or otfamI09=-1 or otfamI10=-1 or otfamI11=-1 or otfamI12=-1 or otfamI13=-1 or otfamI14=-1) then do;

   groshhIY=-1;

   invskpGIY=1;

end;

if YI_1900=-2 or YI_8500=-2 or (nfarmwgY=-2 or farmwgY=-2  or nfarmwgP=-2 or farmwgP=-2  or childsuY=-2 or interesY=-2 or dividend=-2 or rentalIY=-2 or pensionY=-2 or estatesY=-2 or faincome=-2 or maincome=-2 or mgincome=-2 or fgincome=-2 or prgamt=-2 or otfamI01=-2 or otfamI02=-2 or otfamI03=-2 or otfamI04=-2 or otfamI05=-2 or otfamI06=-2 or otfamI07=-2 or otfamI08=-2 or otfamI09=-2 or otfamI10=-2 or otfamI11=-2 or otfamI12=-2 or otfamI13=-2 or otfamI14=-2) then do;

   groshhIY=-2;

   invskpGIY=2;

end;

if YI_1900=-3 or YI_8500=-3 or (nfarmwgY=-3 or farmwgY=-3 or nfarmwgP=-3 or farmwgP=-3 or childsuY=-3 or interesY=-3 or dividend=-3 or rentalIY=-3 or pensionY=-3 or estatesY=-3 or faincome=-3 or maincome=-3 or mgincome=-3 or fgincome=-3 or prgamt=-3 or otfamI01=-3 or otfamI02=-3 or otfamI03=-3 or otfamI04=-3 or otfamI05=-3 or otfamI06=-3 or otfamI07=-3 or otfamI08=-3 or otfamI09=-3 or otfamI10=-3 or otfamI11=-3 or otfamI12=-3 or otfamI13=-3 or otfamI14=-3) then do;

   groshhIY=-3;

   invskpGIY=3;

end;

if YI_1900=0 or YI_1900=-4  then do; groshhIY=-4; vskpGIY=1; end;

/** give the people who were not interviewed in round 5 value -5.  **/

if YAS50=-5 then do; groshhIY=-5; nonintGIY=1; end;

/***************** SECTION 2:  HOUSEHOLD NET WORTH ****************/

/** In asset section, I flag top three items involved the most respondents:

    I. savings -- flag4400

    II. present value of vehicles owned -- flag4790  III. money still owed on these vehicles   -- flag4840

    flag=0 indicating accurate income reported flag=1 indicating estimated income reported.      **/

/** If the youth OWNS some land, ITS PRESENT VLAUE.      **/

pvranch=0;

if YAS1400=1 then do;

/** If the youth reported owning all of it.    **/

   if YAS1610=1 or YAS1610=2 then do;

      if YAS1860=1 then pvranch=YAS1862;

      if YAS1860=2 then pvranch=YAS1864L+(YAS1864U-YAS1864L)/2;

      if ((YAS1860 ne 1 and YAS1860 ne 2) or (YAS1862=-1 or YAS1862=-2)) then do;

         if YAS1866=1 then do; pvranch=12500; end;

         if YAS1866=2 then do; pvranch=37500; end;

         if YAS1866=3 then do; pvranch=75000; end;

         if YAS1866=4 then do; pvranch=175000; end;

         if YAS1866=5 then do; pvranch=375000; end;

         if YAS1866=6 then do; pvranch=750000; end;

         if YAS1866=7 then do; pvranch=1000001; end;

      end;

   end;

/** If the youth reported owning only part of it         **/

   if (YAS1610=3 or YAS1610=4) and YAS2120=100 then do;

      if YAS2140=1 then pvranch=YAS2142;

      if YAS2140=2 then pvranch=(YAS2144L+(YAS2144U-YAS2144L)/2);

      if ((YAS2140 ne 1 and YAS2140 ne 2) or (YAS2142=-1 or YAS2142=-2)) then do;

         if YAS2146=1 then do; pvranch=12500; end;

         if YAS2146=2 then do; pvranch=37500; end;

         if YAS2146=3 then do; pvranch=75000; end;

         if YAS2146=4 then do; pvranch=175000; end;

         if YAS2146=5 then do; pvranch=375000; end;

         if YAS2146=6 then do; pvranch=750000; end;

         if YAS2146=7 then do; pvranch=1000001; end;

      end;

   end;

   if (YAS1610=3 or YAS1610=4) and YAS2120 ne 100 then do;

      if YAS2170=1 then pvranch=YAS2172;

      if YAS2170=2 then pvranch=(YAS2174L+(YAS2174U-YAS2174L)/2);

      if ((YAS2170 ne 1 and YAS2170 ne 2) or (YAS2172=-1 or YAS2172=-2)) then do;

         if YAS2176=1 then do; pvranch=12500; end;

         if YAS2176=2 then do; pvranch=37500; end;

         if YAS2176=3 then do; pvranch=75000; end;

         if YAS2176=4 then do; pvranch=175000; end;

         if YAS2176=5 then do; pvranch=375000; end;

         if YAS2176=6 then do; pvranch=750000; end;

         if YAS2176=7 then do; pvranch=1000001; end;

      end;

   end;

end;

if YAS1400=-1 or YAS1610=-1 or YAS1864L=-1 or YAS1864U=-1 or YAS1866=-1 or YAS2144L=-1 or YAS2144U=-1 or YAS2146=-1 or YAS2174L=-1 or YAS2174U=-1 or YAS2176=-1

then pvranch=-1;

if YAS1400=-2 or YAS1610=-2 or YAS1864L=-2 or YAS1864U=-2 or YAS1866=-2 or YAS2144L=-2 or YAS2144U=-2 or YAS2146=-2 or YAS2174L=-2 or YAS2174U=-2 or YAS2176=-2

then pvranch=-2;

if YAS1400=-3 or YAS1610=-3 or YAS1864L=-3 or YAS1864U=-3 or YAS1866=-3 or YAS2144L=-3 or YAS2144U=-3 or YAS2146=-3 or YAS2174L=-3 or YAS2174U=-3 or YAS2176=-3

then pvranch=-3;

/** If the youth OWNS the mobile home and the site, ITS PRESENT VALUE.      **/

pvmbst=0;

if YAS1500=1 then do;

   if (YAS2520=1 or YAS2520=2) and YAS2550=1 then pvmbst=YAS2552;

   if (YAS2520=1 or YAS2520=2) and YAS2550=2 then pvmbst=YAS2554L+(YAS2554U-YAS2554L)/2;

   if (YAS2520=1 or YAS2520=2) and ((YAS2550 ne 1 and YAS2550 ne 2) or (YAS2552=-1 or YAS2552=-2)) then do;

      if YAS2556=1 then do; pvmbst=500; end;

      if YAS2556=2 then do; pvmbst=1750; end;

      if YAS2556=3 then do; pvmbst=3750; end;

      if YAS2556=4 then do; pvmbst=7500; end;

      if YAS2556=5 then do; pvmbst=17500; end;

      if YAS2556=6 then do; pvmbst=37500; end;

      if YAS2556=7 then do; pvmbst=50001; end;

   end;

end;

if YAS1500=-1 or YAS2520=-1 or YAS2554L=-1 or YAS2554U=-1 or YAS2556=-1 then pvmbst=-1;

if YAS1500=-2 or YAS2520=-2 or YAS2554L=-2 or YAS2554U=-2 or YAS2556=-2 then pvmbst=-2;

if YAS1500=-3 or YAS2520=-3 or YAS2552=-3 or YAS2554L=-3 or YAS2554U=-3 or YAS2556=-3 then pvmbst=-3;

/** If the youth owns only the mobile home, IT'S PRESENT VALUE.    **/

pvmb=0;

if YAS1500=1 then do;

   if (YAS2520=3 or YAS2520=4) and YAS2760=1 then pvmb=YAS2762;

   if (YAS2520=3 or YAS2520=4) and YAS2760=2 then pvmb=(YAS2764L+(YAS2764U-YAS2764L)/2);

   if (YAS2520=3 or YAS2520=4) and ((YAS2760 ne 1 and YAS2760 ne 2) or (YAS2762=-1 or YAS2762=-2)) then do;

      if YAS2766=1 then do; pvmb=12500; end;

      if YAS2766=2 then do; pvmb=37500; end;

      if YAS2766=3 then do; pvmb=75000; end;

      if YAS2766=4 then do; pvmb=175000; end;

      if YAS2766=5 then do; pvmb=375000; end;

      if YAS2766=6 then do; pvmb=750000; end;

      if YAS2766=7 then do; pvmb=1000001; end;

   end;

end;

if YAS1500=-1 or YAS2520=-1 or YAS2764L=-1 or YAS2764U=-1 or YAS2766=-1 then pvmb=-1;

if YAS1500=-2 or YAS2520=-2 or YAS2764L=-2 or YAS2764U=-2 or YAS2766=-2 then pvmb=-2;

if YAS1500=-3 or YAS2520=-3 or YAS2762=-3 or YAS2764L=-3 or YAS2764U=-3 or YAS2766=-3 then pvmb=-3;

/** If the youth owns only the mobile home site, ITS PRESENT VALUE.          **/

pvst=0;

if YAS1500=1 then do;

   if (YAS2520=5 or YAS2520=6) and YAS3010=1 then pvst=YAS3012;

   if (YAS2520=5 or YAS2520=6) and YAS3010=2 then pvst=(YAS3014L+(YAS3014U-YAS3014L)/2);

   if (YAS2520=5 or YAS2520=6) and ((YAS3010 ne 1 and YAS3010 ne 2) or (YAS3012=-1 or YAS3012=-2)) then do;

      if YAS3016=1 then do; pvst=12500; end;

      if YAS3016=2 then do; pvst=57500; end;

      if YAS3016=3 then do;pvst=75000; end;

      if YAS3016=4 then do; pvst=175000; end;

      if YAS3016=5 then do; pvst=575000; end;

      if YAS3016=6 then do; pvst=750000; end;

      if YAS3016=7 then do; pvst=1000001; end;

   end;

end;

if YAS2520=-1 or YAS3014L=-1 or YAS3014U=-1 or YAS3016=-1 or YAS1500=-1 then pvst=-1;

if YAS2520=-2 or YAS3014L=-2 or YAS3014U=-2 or YAS3016=-2 or YAS1500=-2 then pvst=-2;

if YAS2520=-3 or YAS3012=-3 or YAS3014L=-3 or YAS3014U=-3 or YAS3016=-3 or YAS1500=-3 then pvst=-3;

/** If the respondent owns the apartment, its value.     **/

pvapthm=0;

if YAS3310=1 or YAS3310=2 then do;

   if YAS3380=1 then pvapthm=YAS3382;

   if YAS3380=2 then pvapthm=(YAS3384L+(YAS3384U-YAS3384L)/2);

   if ((YAS3380 ne 1 and YAS3380 ne 2) or (YAS3382=-1 or YAS3382=-2)) then do;

      if YAS3386=1 then do; pvapthm=500; end;

      if YAS3386=2 then do; pvapthm=1750; end;

      if YAS3386=3 then do; pvapthm=3750; end;

      if YAS3386=4 then do; pvapthm=7500; end;

      if YAS3386=5 then do; pvapthm=17500; end;

      if YAS3386=6 then do; pvapthm=37500; end;

      if YAS3386=7 then do; pvapthm=50001; end;

   end;

end;

if YAS3310=-1 or YAS3384L=-1 or YAS3384U=-1 or YAS3386=-1 then pvapthm=-1;

if YAS3310=-2 or YAS3384L=-2 or YAS3384U=-2 or YAS3386=-2 then pvapthm=-2;

if YAS3310=-3 or YAS3382=-3 or YAS3384L=-3 or YAS3384U=-3 or YAS3386=-3 then pvapthm=-3;

/** Mortgage or land contract on land or property.       **/

mortgagY=0;

if YAS3740=1 or YAS3740=2 then do;

   if YAS3750=1 and YAS3752 ge 0 then mortgagY=YAS3752;

   if YAS3750=2 and YAS3754U ge 0 and YAS3754L ge 0 then mortgagY=(YAS3754L+(YAS3754U-YAS3754L)/2);

   if ((YAS3750 ne 1 and YAS3750 ne 2) or (YAS3752=-1 or YAS3752=-2)) then do;

      if YAS3756=1 then do; mortgagY=500; end;

      if YAS3756=2 then do; mortgagY=1750; end;

      if YAS3756=3 then do; mortgagY=3750; end;

      if YAS3756=4 then do; mortgagY=7500; end;

      if YAS3756=5 then do; mortgagY=17500; end;

      if YAS3756=6 then do; mortgagY=37500; end;

      if YAS3756=7 then do; mortgagY=50001; end;

   end;

end;

if YAS3740=-1 or YAS3754L=-1 or YAS3754U=-1 or YAS3756=-1 then mortgagY=-1;

if YAS3740=-2 or YAS3754L=-2 or YAS3754U=-2 or YAS3756=-2 then mortgagY=-2;

if YAS3740=-3 or YAS3752=-3 or YAS3754L=-3 or YAS3754U=-3 or YAS3756=-3 then mortgagY=-3;

/** Loans from relatives or friends when respondent bought or remodeled the residence. **/

loanowed=0;

if YAS3790=1 then do;

   if YAS3810=1 and YAS3812 ge 0 then loanowed=YAS3812;

   if YAS3810=2 and YAS3814U ge 0 and YAS3814L ge 0 then loanowed=(YAS3814L+(YAS3814U-YAS3814L)/2);

   if ((YAS3810 ne 1 and YAS3810 ne 2) or (YAS3812=-1 or YAS3812=-2)) then do;

      if YAS3816=1 then do; loanowed=12500; end;

      if YAS3816=2 then do; loanowed=37500; end;

      if YAS3816=3 then do; loanowed=75000;  end;

      if YAS3816=4 then do; loanowed=175000; end;

      if YAS3816=5 then do; loanowed=375000; end;

      if YAS3816=6 then do; loanowed=750000; end;

      if YAS3816=7 then do; loanowed=1000001; end;

   end;

end;

if YAS3810=-1 or YAS3790=-1 or YAS3814L=-1 or YAS3814U=-1 or YAS3816=-1 then loanowed=-1;

if YAS3810=-2 or YAS3790=-2 or YAS3814L=-2 or YAS3814U=-2 or YAS3816=-2 then loanowed=-2;

if YAS3810=-3 or YAS3790=-3 or YAS3812=-3  or YAS3814L=-3 or YAS3814U=-3 or YAS3816=-3 then loanowed=-3;

/** Remaining loans from round 4 still unpaid, total amount owed   **/

stilowed=0;

if (YAS3840=1 and YAS3850=1) or YAS3860=1 then do;

   if YAS3880=1 and YAS3882 ge 0 then stilowed=YAS3882;

   if YAS3880=2 and YAS3884U ge 0 and YAS3884L ge 0 then stilowed=(YAS3884L+(YAS3884U-YAS3884L)/2);

   if ((YAS3880 ne 1 and YAS3880 ne 2) or (YAS3882=-1 or YAS3882=-2)) then do;

      if YAS3886=1 then do; stilowed=500; end;

      if YAS3886=2 then do; stilowed=1750; end;

      if YAS3886=3 then do; stilowed=3750; end;

      if YAS3886=4 then do; stilowed=7500; end;

      if YAS3886=5 then do; stilowed=17500; end;

      if YAS3886=6 then do; stilowed=37500; end;

      if YAS3886=7 then do;stilowed=50001; end;

   end;

end;

if YAS3860=-1 or YAS3884L=-1 or YAS3884U=-1 or YAS3886=-1 then stilowed=-1;

if YAS3860=-2 or YAS3884L=-2 or YAS3884U=-2 or YAS3886=-2 then stilowed=-2;

if YAS3860=-3 or YAS3882=-3 or YAS3884L=-3 or YAS3884U=-3 or YAS3886=-3 then stilowed=-3;

/** Second mortgages.      **/

secmortY=0;

if YAS3910=1 then do;

   if YAS3920=1 and YAS3922 ge 0 then secmortY=YAS3922;

   if YAS3920=2 and YAS3924U ge 0 and YAS3924L ge 0 then secmortY=(YAS3924L+(YAS3924U-YAS3924L)/2);

   if ((YAS3920 ne 1 and YAS3920 ne 2) or (YAS3922=-1 or YAS3922=-2)) then do;

      if YAS3926=1 then do; secmortY=500; end;

      if YAS3926=2 then do; secmortY=1750; end;

      if YAS3926=3 then do; secmortY=3750; end;

      if YAS3926=4 then do; secmortY=7500; end;

      if YAS3926=5 then do; secmortY=17500; end;

      if YAS3926=6 then do; secmortY=37500; end;

      if YAS3926=7 then do; secmortY=50001; end;

   end;

end;

if YAS3910=-1 or YAS3924L=-1 or YAS3924U=-1 or YAS3926=-1 then secmortY=-1;

if YAS3910=-2 or YAS3924L=-2 or YAS3924U=-2 or YAS3926=-2 then secmortY=-2;

if YAS3910=-3 or YAS3922=-3 or YAS3924L=-3 or YAS3924U=-3 or YAS3926=-3 then secmortY=-3;

/** Taxes on the property to be paid.          **/

proptaxY=0;

if YAS3950=1 then do;

   if YAS3960=1 and YAS3962 ge 0 then proptaxY=YAS3962;

   if YAS3960=2 and YAS3964U ge 0 and YAS3964L ge 0 then proptaxY=(YAS3964L+(YAS3964U-YAS3964L)/2);

   if ((YAS3960 ne 1 and YAS3960 ne 2) or (YAS3962=-1 or YAS3962=-2)) then do;

      if YAS3966=1 then do; proptaxY=500; end;

      if YAS3966=2 then do; proptaxY=1750; end;

      if YAS3966=3 then do; proptaxY=3750; end;

      if YAS3966=4 then do; proptaxY=7500; end;

      if YAS3966=5 then do; proptaxY=17500; end;

      if YAS3966=6 then do; proptaxY=37500; end;

      if YAS3966=7 then do; proptaxY=50001; end;

   end;

end;

if YAS3950=-1 or YAS3964L=-1 or YAS3964U=-1 or YAS3966=-1 then proptaxY=-1;

if YAS3950=-2 or YAS3964L=-2 or YAS3964U=-2 or YAS3966=-2 then proptaxY=-2;

if YAS3950=-3 or YAS3962=-3 or YAS3964L=-3 or YAS3964U=-3 or YAS3966=-3 then proptaxY=-3;

/** Own a business, partnership or professional practice.          **/

pvbuss=0;

if YAS4010=1 or YAS4010=2 then do;

   if YAS4030=1 then pvbuss=YAS4032;

   if YAS4030=2 then pvbuss=(YAS4034L+(YAS4034U-YAS4034L)/2);

   if ((YAS4030 ne 1 and YAS4030 ne 2) or (YAS4032=-1 or YAS4032=-2)) then do;

      if YAS4036=1 then do; pvbuss=12500; end;

      if YAS4036=2 then do; pvbuss=37500; end;

      if YAS4036=3 then do; pvbuss=75000; end;

      if YAS4036=4 then do; pvbuss=175000; end;

      if YAS4036=5 then do; pvbuss=375000; end;

      if YAS4036=6 then do; pvbuss=750000; end;

      if YAS4036=7 then do; pvbuss=1000001; end;

   end;

end;

if YAS4010=-1 or YAS4034L=-1 or YAS4034U=-1 or YAS4036=-1 then pvbuss=-1;

if YAS4010=-2 or YAS4034L=-2 or YAS4034U=-2 or YAS4036=-2 then pvbuss=-2;

if YAS4010=-3 or YAS4032=-3 or YAS4034L=-3 or YAS4034U=-3 or YAS4036=-3 then pvbuss=-3;

/** Second real estate owned.        **/

secrestY=0;

if YAS4140=1 or YAS4140=2 then do;

   if YAS4160=1 then secrestY=YAS4162;

   if YAS4160=2 then secrestY=(YAS4164L+(YAS4164U-YAS4164L)/2);

   if ((YAS4160 ne 1 and YAS4160 ne 2) or (YAS4162=-1 or YAS4162=-2)) then do;

      if YAS4166=1 then do; secrestY=12500; end;

      if YAS4166=2 then do; secrestY=37500; end;

      if YAS4166=3 then do; secrestY=75000; end;

      if YAS4166=4 then do; secrestY=175000; end;

      if YAS4166=5 then do; secrestY=375000; end;

      if YAS4166=6 then do; secrestY=750000; end;

      if YAS4166=7 then do; secrestY=1000001; end;

   end;

end;

if YAS4140=-1 or YAS4164L=-1 or YAS4164U=-1 or YAS4166=-1 then secrestY=-1;

if YAS4140=-2 or YAS4164L=-2 or YAS4164U=-2 or YAS4166=-2 then secrestY=-2;

if YAS4140=-3 or YAS4162=-3 or YAS4164L=-3 or YAS4164U=-3 or YAS4166=-3 then secrestY=-3;

/* Retirement plans or pensions */

retireY=0;

if YAS4270=1 or YAS4270=2 or YAS4270=3 then do;

   if YAS4290=1 and YAS4292 ge 0 then retireY=YAS4292;

   if YAS4290=2 and YAS4294U ge 0 and YAS4294L ge 0 then retireY=(YAS4294L+(YAS4294U-YAS4294L)/2);

   if ((YAS4290 ne 1 and YAS4290 ne 2) or (YAS4292=-1 or YAS4292=-2)) then do;

      if YAS4296=1 then do; retireY=2500; end;

      if YAS4296=2 then do; retireY=7500; end;

      if YAS4296=3 then do; retireY=17500; end;

      if YAS4296=4 then do; retireY=37500; end;

      if YAS4296=5 then do; retireY=75000; end;

      if YAS4296=6 then do; retireY=175000; end;

      if YAS4296=7 then do; retireY=250001; end;

   end;

end;

if YAS4270=-1 or YAS4294L=-1 or YAS4294U=-1 or YAS4296=-1 then retireY=-1;

if YAS4270=-2 or YAS4294L=-2 or YAS4294U=-2 or YAS4296=-2 then retireY=-2;

if YAS4270=-3 or YAS4292=-3 or YAS4294L=-3 or YAS4294U=-3 or YAS4296=-3 then retireY=-3;

/** Savings in saving accounts, money market, funds, trusts,...    **/

savingsY=0; flag4400=0;

if YAS4400=1 or YAS4400=2 or YAS4400=3 then do;

   if YAS4420=1 and YAS4422 ge 0 then savingsY=YAS4422;

   if YAS4420=2 and YAS4424U ge 0 and YAS4424L ge 0 then savingsY=(YAS4424L+(YAS4424U-YAS4424L)/2);

   if ((YAS4420 ne 1 and YAS4420 ne 2) or (YAS4422=-1 or YAS4422=-2)) then do;

      if YAS4426=1 then do; savingsY=500; flag4400=1; end;

      if YAS4426=2 then do; savingsY=1750; flag4400=1; end;

      if YAS4426=3 then do; savingsY=3750; flag4400=1; end;

      if YAS4426=4 then do; savingsY=7500; flag4400=1; end;

      if YAS4426=5 then do; savingsY=17500; flag4400=1; end;

      if YAS4426=6 then do; savingsY=37500; flag4400=1; end;

      if YAS4426=7 then do; savingsY=50001; flag4400=1; end;

   end;

end;

if YAS4400=-1 or YAS4424L=-1 or YAS4424U=-2 or YAS4426=-1 then savingsY=-1;

if YAS4400=-2 or YAS4424L=-2 or YAS4424U=-2 or YAS4426=-2 then savingsY=-2;

if YAS4400=-3 or YAS4422=-3 or YAS4424L=-3 or YAS4424U=-3 or YAS4426=-3 then savingsY=-3;

/** Other savings in bonds or CDs.   **/

othsavY=0;

if YAS4530=1 or YAS4530=2 or YAS4530=3 then do;

   if YAS4550=1 and YAS4552 ge 0 then othsavY=YAS4552;

   if YAS4550=2 and YAS4554U ge 0 and YAS4554L ge 0 then othsavY=(YAS4554L+(YAS4554U-YAS4554L)/2);

   if ((YAS4550 ne 1 and YAS4550 ne 2) or (YAS4552=-1 or YAS4552=-2)) then do;

      if YAS4556=1 then do; othsavY=500; end;

      if YAS4556=2 then do; othsavY=1750; end;

      if YAS4556=3 then do; othsavY=3750; end;

      if YAS4556=4 then do; othsavY=7500; end;

      if YAS4556=5 then do; othsavY=17500; end;

      if YAS4556=6 then do; othsavY=37500; end;

      if YAS4556=7 then do; othsavY=50001; end;

   end;

end;

if YAS4530=-1 or YAS4554L=-1 or YAS4554U=-1 or YAS4556=-1 then othsavY=-1;

if YAS4530=-2 or YAS4554L=-2 or YAS4554U=-2 or YAS4556=-2 then othsavY=-2;

if YAS4530=-3 or YAS4552=-3 or YAS4554L=-3 or YAS4554U=-3 or YAS4556=-3 then othsavY=-3;

/** Stocks, mutual funds.  **/

stockY=0;

if YAS4660=1 or YAS4660=2 or YAS4660=3 then do;

   if YAS4680=1 then stockY=YAS4682;

   if YAS4680=2 then stockY=(YAS4684L+(YAS4684U-YAS4684L)/2);

   if ((YAS4680 ne 1 and YAS4680 ne 2) or (YAS4682=-1 or YAS4682=-2)) then do;

      if YAS4686=1 then do; stockY=500; end;

      if YAS4686=2 then do; stockY=1750; end;

      if YAS4686=3 then do; stockY=3750; end;

      if YAS4686=4 then do; stockY=7500; end;

      if YAS4686=5 then do; stockY=17500; end;

      if YAS4686=6 then do; stockY=37500; end;

      if YAS4686=7 then do; stockY=50001; end;

   end;

end;

if YAS4660=-1     or YAS4684L=-1 or YAS4684U=-1 or YAS4686=-1 then stockY=-1;

if YAS4660=-2     or YAS4684L=-2 or YAS4684U=-2 or YAS4686=-2 then stockY=-2;

if YAS4660=-3 or YAS4682=-3 or YAS4684L=-3 or YAS4684U=-3 or YAS4686=-3 then stockY=-3;

/** Present value of vehicles owned. **/

pvcarsY=0;

flag4790=0;

if YAS4790=1 or YAS4790=2 or YAS4790=3 then do;

   if YAS4810=1 then pvcarsY=YAS4812;

   if YAS4810=2 then pvcarsY=(YAS4814L+(YAS4814U-YAS4814L)/2);

   if ((YAS4810 ne 1 and YAS4810 ne 2) or (YAS4812=-1 or YAS4812=-2)) then do;

      if YAS4816=1 then do; pvcarsY=2500; flag4790=1; end;

      if YAS4816=2 then do; pvcarsY=7500; flag4790=1; end;

      if YAS4816=3 then do; pvcarsY=17500; flag4790=1;end;

      if YAS4816=4 then do; pvcarsY=37500; flag4790=1; end;

      if YAS4816=5 then do; pvcarsY=75000; flag4790=1; end;

      if YAS4816=6 then do; pvcarsY=175000; flag4790=1; end;

      if YAS4816=7 then do; pvcarsY=250001; flag4790=1; end;

   end;

end;

if YAS4790=-1     or YAS4814L=-1 or YAS4814U=-1 or YAS4816=-1 then pvcarsY=-1;

if YAS4790=-2     or YAS4814L=-2 or YAS4814U=-2 or YAS4816=-2 then pvcarsY=-2;

if YAS4790=-3 or YAS4812=-3 or YAS4814L=-3 or YAS4814U=-3 or YAS4816=-3 then pvcarsY=-3;

/** Money still owed on these vehicles.        **/

cardebt=0;

flag4840=0;

if YAS4840=1 then cardebt=YAS4842;

if YAS4840=2 then cardebt=(YAS4844L+(YAS4844U-YAS4844L)/2);

if ((YAS4840 ne 1 and YAS4840 ne 2) or (YAS4842=-1 or YAS4842=-2)) then do;

   if YAS4846=1 then do; cardebt=2500; flag4840=1; end;

   if YAS4846=2 then do; cardebt=7500; flag4840=1; end;

   if YAS4846=3 then do; cardebt=17500; flag4840=1; end;

   if YAS4846=4 then do; cardebt=37500; flag4840=1; end;

   if YAS4846=5 then do; cardebt=75000; flag4840=1; end;

   if YAS4846=6 then do; cardebt=175000; flag4840=1; end;

   if YAS4846=7 then do; cardebt=250001; flag4840=1; end;

end;

if YAS4790=-1     or YAS4844L=-1 or YAS4844U=-1 or YAS4846=-1 then cardebt=-1;

if YAS4790=-2     or YAS4844L=-2 or YAS4844U=-2 or YAS4846=-2 then cardebt=-2;

if YAS4790=-3 or YAS4842=-3 or YAS4844L=-3 or YAS4844U=-3 or YAS4846=-3 then cardebt=-3;

/** Present value of owned furniture **/

pvfurntY=0;

if YAS4870=1 then do; pvfurntY=2500; end;

if YAS4870=2 then do; pvfurntY=7500; end;

if YAS4870=3 then do; pvfurntY=17500; end;

if YAS4870=4 then do; pvfurntY=37500; end;

if YAS4870=5 then do; pvfurntY=75000; end;

if YAS4870=6 then do; pvfurntY=175000; end;

if YAS4870=7 then do; pvfurntY=250001; end;

if YAS4870=-1 then pvfurntY=-1;

if YAS4870=-2 then pvfurntY=-2;

if YAS4870=-3 then pvfurntY=-3;

/** Other assets not being mentioned before.   **/

otassetY=0;

if YAS4880=1 or YAS4880=2 or YAS4880=3 then do;

   if YAS4900=1 then otassetY=YAS4902;

   if YAS4900=2 then otassetY=(YAS4904L+(YAS4904U-YAS4904L)/2);

   if ((YAS4900 ne 1 and YAS4900 ne 2) or (YAS4902=-1 or YAS4902=-2)) then do;

       if YAS4906=1 then do; otassetY=2500; end;

       if YAS4906=2 then do; otassetY=7500; end;

       if YAS4906=3 then do; otassetY=17500; end;

       if YAS4906=4 then do; otassetY=37500; end;

       if YAS4906=5 then do; otassetY=75000; end;

       if YAS4906=6 then do; otassetY=175000; end;

       if YAS4906=7 then do; otassetY=250001; end;

   end;

end;

if YAS4880=-1     or YAS4904L=-1 or YAS4904U=-1 or YAS4906=-1 then otassetY=-1;

if YAS4880=-2     or YAS4904L=-2 or YAS4904U=-2 or YAS4906=-2 then otassetY=-2;

if YAS4880=-3 or YAS4902=-3 or YAS4904L=-3 or YAS4904U=-3 or YAS4906=-3 then otassetY=-3;

/* Loans still owed to family or relatives */

array rloan rloan01 rloan02 rloan03 rloan04 rloan05 rloan06 rloan07 rloan08 rloan09 rloan10 rloan11 rloan12 rloan13 rloan14 rloan15 rloan16 rloan17 rloan18  rloan19 rloan20;

array A5080 A508001 A508002 A508003 A508004 A508005 A508006 A508007 A508008 A508009 A508010 A508011 A508012 A508013 A508014 A508015 A508016 A508017 A508018 A508019 A508020;

array A5082 A508201 A508202 A508203 A508204 A508205 A508206 A508207 A508208 A508209 A508210 A508211 A508212 A508213 A508214 A508215 A508216 A508217 A508218 A508219 A508220;

array A5084L A5084L01 A5084L02 A5084L03 A5084L04 A5084L05 A5084L06 A5084L07 A5084L08 A5084L09 A5084L10 A5084L11 A5084L12 A5084L13 A5084L14 A5084L15 A5084L16 A5084L17 A5084L18 A5084L19 A5084L20;

array A5084U A5084U01 A5084U02 A5084U03 A5084U04 A5084U05 A5084U06 A5084U07 A5084U08 A5084U09 A5084U10 A5084U11 A5084U12 A5084U13 A5084U14 A5084U15 A5084U16 A5084U17 A5084U18 A5084U19 A5084U20;

array A5086 A508601 A508602 A508603 A508604 A508605 A508606 A508607 A508608 A508609 A508610 A508611 A508612 A508613 A508614 A508615 A508616 A508617 A508618 A508619 A508620;

array A5170 A517001 A517002 A517003 A517004 A517005 A517006 A517007 A517008 A517009 A517010 A517011 A517012 A517013 A517014 A517015 A517016 A517017 A517018 A517019 A517020;

array A5172 A517201 A517202 A517203 A517204 A517205 A517206 A517207 A517208 A517209 A517210 A517211 A517212 A517213 A517214 A517215 A517216 A517217 A517218 A517219 A517220;

array A5174L A5174L01 A5174L02 A5174L03 A5174L04 A5174L05 A5174L06 A5174L07 A5174L08 A5174L09 A5174L10 A5174L11 A5174L12 A5174L13 A5174L14 A5174L15 A5174L16 A5174L17 A5174L18 A5174L19 A5174L20;

array A5174U A5174U01 A5174U02 A5174U03 A5174U04 A5174U05 A5174U06 A5174U07 A5174U08 A5174U09 A5174U10 A5174U11 A5174U12 A5174U13 A5174U14 A5174U15 A5174U16 A5174U17 A5174U18 A5174U19 A5174U20;

array A5176 A517601 A517602 A517603 A517604 A517605 A517606 A517607 A517608 A517609 A517610 A517611 A517612 A517613 A517614 A517615 A517616 A517617 A517618 A517619 A517620;

array A5074 A507401-A507420;

array A5066 A506601-A506620;

array A5164 A516401-A516420;

do I=1 to 20;

   rloan(I)=0;

   if YAS5040=1 and YAS5060 ne 1 and YAS5062 ne 1 then do;

      if A5080(I)=1 then rloan(I)=A5082(I);

      if A5080(I)=2 then rloan(I)=(A5084L(I)+(A5084U(I)-A5084L(I))/2);

      if ((A5080(I) ne 1 and A5080(I) ne 2) or (A5082(I)=-1 or A5082(I)=-2)) then do;

         if A5086(I)=1 then do; rloan(I)=500; end;

                 if A5086(I)=2 then do; rloan(I)=1750; end;

                 if A5086(I)=3 then do; rloan(I)=3750; end;

                 if A5086(I)=4 then do; rloan(I)=7500; end;

                 if A5086(I)=5 then do; rloan(I)=17500; end;

                 if A5086(I)=6 then do; rloan(I)=37500; end;

                 if A5086(I)=7 then do; rloan(I)=50001; end;

      end;

   end;

   if YAS5040=-1 or A5074(I)=-1 or A5086(I)=-1 or A5084L[I]=-1 or A5084U[I]=-1 then rloan(I)=-1;

   if YAS5040=-2 or A5074(I)=-2 or A5086(I)=-2 or A5084L[I]=-2 or A5084U[I]=-2 then rloan(I)=-2;

   if YAS5040=-3 or A5082(I)=-3 or A5086(I)=-3 or A5084L[I]=-3 or A5084U[I]=-3 then rloan(I)=-3;

   if YAS5130=1 and YAS5150 ne 1 and YAS5152 ne 1 then do;

      if A5170(I)=1 then rloan(I)=A5172(I);

      if A5170(I)=2 then rloan(I)=(A5174L(I)+(A5174U(I)-A5174L(I))/2);

      if ((A5170(I) ne 1 and A5170(I) ne 2) or (A5172(I)=-1 or A5172(I)=-2)) then do;

                 if A5176(I)=1 then do; rloan(I)=500; end;

                 if A5176(I)=2 then do; rloan(I)=1750; end;

                 if A5176(I)=3 then do; rloan(I)=3750; end;

                 if A5176(I)=4 then do; rloan(I)=7500; end;

                 if A5176(I)=5 then do; rloan(I)=17500; end;

                 if A5176(I)=6 then do; rloan(I)=37500; end;

                 if A5176(I)=7 then do; rloan(I)=50001; end;

      end;

   end;

   if YAS5130=-1 or A5164(I)=-1 or A5176(I)=-1 or A5174L[I]=-1 or A5174U[I]=-1 then rloan(I)=-1;

   if YAS5130=-2 or A5164(I)=-2 or A5176(I)=-2 or A5174L[I]=-2 or A5174U[I]=-2 then rloan(I)=-2;

   if YAS5130=-3 or A5172(I)=-3 or A5176(I)=-3 or A5174L[I]=-3 or A5174U[I]=-3 then rloan(I)=-3;

end;

/** Other debts from loans, credit cards, etc...         **/

othdebtY=0;

if YAS5210=1 then do;

   if YAS5220=1 then othdebtY=YAS5222;

   if YAS5220=2 then othdebtY=(YAS5224L+(YAS5224U-YAS5224L)/2);

   if ((YAS5220 ne 1 and YAS5220 ne 2) or (YAS5222=-1 or YAS5222=-2)) then do;

      if YAS5226=1 then do; othdebtY=500; end;

      if YAS5226=2 then do; othdebtY=1750; end;

      if YAS5226=3 then do; othdebtY=3750; end;

      if YAS5226=4 then do; othdebtY=7500; end;

      if YAS5226=5 then do; othdebtY=17500; end;

      if YAS5226=6 then do; othdebtY=37500; end;

      if YAS5226=7 then do; othdebtY=50001; end;

   end;

end;

if YAS5210=-1 or YAS5224L=-1 or YAS5224U=-1 or YAS5226=-1 then othdebtY=-1;

if YAS5210=-2 or YAS5224L=-2 or YAS5224U=-2 or YAS5226=-2 then othdebtY=-2;

if YAS5210=-3 or YAS5222=-3 or YAS5224L=-3 or YAS5224U=-3 or YAS5226=-3 then othdebtY=-3;

/** We now calculate the household net worth according to the youth: hhworthY=assets-liabilities.          **/

/**  Till Round 3 we have used YAST-050 as the question determining whether respondents are asked the assets question but in this round YAST-105 does that. So we switched to using YAST-105 instead of YAST-050 as well.  **/

if (YAS105=0 or YAS105=1) then do;

   hhworthY=0;

   if pvranch  NOT in (-1, -2, -3) then hhworthY=hhworthY+pvranch;

   if pvmbst   NOT in (-1, -2, -3) then hhworthY=hhworthY+pvmbst;

   if pvmb     NOT in (-1, -2, -3) then hhworthY=hhworthY+pvmb;

   if pvst     NOT in (-1, -2, -3) then hhworthY=hhworthY+pvst;

   if pvapthm  NOT in (-1, -2, -3) then hhworthY=hhworthY+pvapthm;

   if pvbuss   NOT in (-1, -2, -3) then hhworthY=hhworthY+pvbuss;

   if secrestY NOT in (-1, -2, -3) then hhworthY=hhworthY+secrestY;

   if retireY  NOT in (-1, -2, -3) then hhworthY=hhworthY+retireY;

   if savingsY NOT in (-1, -2, -3) then hhworthY=hhworthY+savingsY;

   if othsavY  NOT in (-1, -2, -3) then hhworthY=hhworthY+othsavY;

   if stockY   NOT in (-1, -2, -3) then hhworthY=hhworthY+stockY;

   if pvcarsY  NOT in (-1, -2, -3) then hhworthY=hhworthY+pvcarsY;

   if pvfurntY NOT in (-1, -2, -3) then hhworthY=hhworthY+pvfurntY;

   if otassetY NOT in (-1, -2, -3) then hhworthY=hhworthY+otassetY;

   if mortgagY NOT in (-1, -2, -3) then hhworthY=hhworthY-mortgagY;

   if loanowed NOT in (-1, -2, -3) then hhworthY=hhworthY-loanowed;

   if stilowed NOT in (-1, -2, -3) then hhworthY=hhworthY-stilowed;

   if secmortY NOT in (-1, -2, -3) then hhworthY=hhworthY-secmortY;

   if cardebt  NOT in (-1, -2, -3) then hhworthY=hhworthY-cardebt;

   if othdebtY NOT in (-1, -2, -3) then hhworthY=hhworthY-othdebtY;

   do I=1 to 20; if rloan[I] NOT in (-1, -2, -3) then hhworthY=hhworthY-rloan[I]; end;

end;

if YAS105=-4 then do; hhworthY=-4; VskpHHY=1; end;

if YAS105=-1 or (pvranch=-1 or pvmbst=-1 or pvmb=-1 or pvst=-1 or pvapthm=-1 or pvbuss=-1 or secrestY=-1 or retireY=-1 or savingsY=-1 or othsavY=-1 or stockY=-1 or pvcarsY=-1 or pvfurntY=-1 or otassetY=-1 or mortgagY=-1 or loanowed=-1 or stilowed=-1 or secmortY=-1 or cardebt=-1 or rloan01=-1 or rloan02=-1 or rloan03=-1 or rloan04=-1 or rloan05=-1 or rloan06=-1 or rloan07=-1 or rloan08=-1 or rloan09=-1 or rloan10=-1 or rloan11=-1 or rloan12=-1 or rloan13=-1 or rloan14=-1 or rloan15=-1 or rloan16=-1 or rloan17=-1 or rloan18=-1 or rloan19=-1 or rloan20=-1 or othdebtY=-1) then do;

   hhworthY=-1;

   InvskpHHY=1;

end;

if YAS105=-2 or (pvranch=-2 or pvmbst=-2 or pvmb=-2 or pvst=-2 or pvapthm=-2 or pvbuss=-2 or secrestY=-2 or retireY=-2 or savingsY=-2 or othsavY=-2 or stockY=-2 or pvcarsY=-2 or pvfurntY=-2 or otassetY=-2 or  mortgagY=-2 or loanowed=-2 or stilowed=-2 or secmortY=-2 or cardebt=-2 or rloan01=-2 or rloan02=-2 or rloan03=-2 or rloan04=-2 or rloan05=-2 or rloan06=-2 or rloan07=-2 or rloan08=-2 or rloan09=-2 or rloan10=-2 or rloan11=-2 or rloan12=-2 or rloan13=-2 or rloan14=-2 or rloan15=-2 or rloan16=-2 or rloan17=-2 or rloan18=-2 or rloan19=-2 or rloan20=-2 or othdebtY=-2) then do;

   hhworthY=-2;

   InvskpHHY=2;

end;

if YAS105=-3 or (pvranch=-3 or pvmbst=-3 or pvmb=-3 or pvst=-3 or pvapthm=-3 or pvbuss=-3 or secrestY=-3 or retireY=-3 or savingsY=-3 or othsavY=-3 or stockY=-3 or pvcarsY=-3 or pvfurntY=-3 or otassetY=-3 or mortgagY=-3 or loanowed=-3 or stilowed=-3 or secmortY=-3 or cardebt=-3 or rloan01=-3 or rloan02=-3 or rloan03=-3 or rloan04=-3 or rloan05=-3 or rloan06=-3 or rloan07=-3 or rloan08=-3 or rloan09=-3 or rloan10=-3 or rloan11=-3 or rloan12=-3 or rloan13=-3 or rloan14=-3 or rloan15=-3 or rloan16=-3 or rloan17=-3 or rloan18=-3 or rloan19=-3 or rloan20=-3 or othdebtY=-3) then do;

   hhworthY=-3;

   InvskpHHY=3;

end;

/** HANDEDIT: These respondents give a positive value for the lower limit but ZERO for the upper limit for certain assets. So we give them a -3.      **/

if pubid=430 or pubid=432 or pubid=614 or pubid=1829 or pubid=3065 or pubid=7785 or pubid=7983 or pubid=8164 or pubid=8441 then do;

   hhworthY=-3; FLAG_RANGE=1; InvskpHHY=3; end;

/** give the people who were not interviewed in round 5 value -5.  **/

if YAS105=-5 then do; hhworthY=-5; nonintHHY=1; end;

hhworthY=ROUND(hhworthY,1);

/******************* SECTION 3:  HOUSEHOLD POVERTY STATUS *********************/

/** Create the poverty thresholds    (taken from U.S.Census' website - http://www.census.gov/hhes/poverty/threshld/thresh00.html) **/

povert=-4;

if HHSIZE=-1 or under18=-1 then povert=-1;

if HHSIZE=-2 or under18=-2 then povert=-2;

if HHSIZE=-3 or under18=-3 then povert=-3;

if HHSIZE=1 then povert=8959;

if HHSIZE=2 then do;

   if under18=0 then povert=11531;

   if under18=1 then povert=11869;

   if under18=2 then povert=11869;

end;

if HHSIZE=3 then do;

   if under18=0 then povert=13470;

   if under18=1 then povert=13861;

   if under18=2 then povert=13874;

   if under18=3 then povert=13874;

end;

if HHSIZE=4 then do;

   if under18=0 then povert=17761;

   if under18=1 then povert=18052;

   if under18=2 then povert=17463;

   if under18=3 then povert=17524;

   if under18=4 then povert=17524;

end;

if HHSIZE=5 then do;

   if under18=0 then povert=21419;

   if under18=1 then povert=21731;

   if under18=2 then povert=21065;

   if under18=3 then povert=20550;

   if under18=4 then povert=20236;

   if under18=5 then povert=20236;

end;

if HHSIZE=6 then do;

   if under18=0 then povert=24636;

   if under18=1 then povert=24734;

   if under18=2 then povert=24224;

   if under18=3 then povert=23736;

   if under18=4 then povert=23009;

   if under18=5 then povert=22579;

   if under18=6 then povert=22579;

end;

if HHSIZE=7 then do;

   if under18=0 then povert=28347;

   if under18=1 then povert=28524;

   if under18=2 then povert=27914;

   if under18=3 then povert=27489;

   if under18=4 then povert=26696;

   if under18=5 then povert=25772;

   if under18=6 then povert=24758;

   if under18=7 then povert=24758;

end;

if HHSIZE=8 then do;

   if under18=0 then povert=31704;

   if under18=1 then povert=31984;

   if under18=2 then povert=31408;

   if under18=3 then povert=30904;

   if under18=4 then povert=30188;

   if under18=5 then povert=29279;

   if under18=6 then povert=28334;

   if under18=7 then povert=28093;

   if under18=8 then povert=28093;

end;

if HHSIZE>=9 then do;

   if under18= 0 then povert=38138;

   if under18= 1 then povert=38322;

   if under18= 2 then povert=37813;

   if under18= 3 then povert=37385;

   if under18= 4 then povert=36682;

   if under18= 5 then povert=35716;

   if under18= 6 then povert=34841;

   if under18= 7 then povert=34625;

   if under18 ge 8 then povert=33291;

end;

povthr=-4;

if groshhIY ge 0 and povert gt 0 then povthr=ROUND(((groshhIY*100)/povert),1);

if groshhIY eq -1 or povert=-1 then do; povthr=-1; invskpPOV=1; end;

if groshhIY eq -2 or povert=-2 then do; povthr=-2; invskpPOV=2; end;

if groshhIY eq -3 or povert=-3 then do; povthr=-3; invskpPOV=3; end;

if groshhIY eq -4 then do; povthr=-4; vskpPOV=1; end;

/** Repondents who were not interviewed in round 5       **/

if YAS50=-5 then do; povthr=-5; nonintPOV=1; end;

/** Changing all invalid skips to -3.          **/

if groshhIY=-1 then groshhIY=-3; if groshhIY=-2 then groshhIY=-3;

if hhworthY=-1 then hhworthY=-3; if hhworthY=-2 then hhworthY=-3;

if povthr=-1 then povthr=-3; if povthr=-2 then povthr=-3;

pvcomb=0;

if pvcarsy>0 and pvfurntY>0 then pvcomb=(pvcarsy+pvfurntY);

/******* SECTION 4:  TOPCODING INCOME, NET WORTH, AND POVERTY RATIO *******/

/** Topcoding the groshhIY, hhworthY and povthr variables.         **/

topcode_GIY=191001;

topcode_HHY=183900;

topcode_POV=1151;

mean_topcode_GIY=285805;

mean_topcode_HHY=1111342;

mean_topcode_POV=1720;

if groshhIY ge topcode_GIY then do; groshhIY=mean_topcode_GIY; topcode1=1; end;

if hhworthY ge topcode_HHY then do; hhworthY=mean_topcode_HHY; topcode2=1; end;

if povthr ge topcode_POV then do; povthr=mean_topcode_POV; topcode3=1; end;

if topcode1=1 and topcode2=. and topcode3=. then topcode=1;

if topcode1=. and topcode2=1 and topcode3=. then topcode=2;

if topcode1=. and topcode2=. and topcode3=1 then topcode=3;

if topcode1=1 and topcode2=1 and topcode3=. then topcode=12;

if topcode1=1 and topcode2=. and topcode3=1 then topcode=13;

if topcode1=. and topcode2=1 and topcode3=1 then topcode=23;

if topcode1=1 and topcode2=1 and topcode3=1 then topcode=123;

endsas;

Return to top

Participation in Government Programs

Variables Created:

• CV_AMT_GOVNT_PGM_PCY.80 - CV_AMT_GOVNT_PGM_PCY.00

• CV_GOVNT_PGM_EVER

• CV_GOVNT_PGM_YR.80 - CV_GOVNT_PGM_YR.00

Variables Used

This program creates several variables describing the respondent's participation in government programs for the economically disadvantaged.  During the interview, respondents report amounts received and months of participation in Aid to Families with Dependent Children (AFDC); food stamps; and Women, Infants, and Children (WIC).  There is also an "other assistance" question to capture information about any other government program from which respondents may have received assistance.  The interview also records amounts received from unemployment compensation and worker's compensation in separate question series; this program also creates variables describing respondents' participation in unemployment or worker's compensation.

The program to create these variables first creates a month-by-month participation array for five of the six categories (AFDC, food stamps, WIC, other programs, and unemployment compensation; the array is not created for worker's compensation).  These month-by-month variables constitute part of the event history array for program participation; see appendix 7 for more information.  After all five arrays are created, the program merges data to create the summary variables. 

/******* SECTION 1:  UNEMPLOYMENT COMPENSATION *******/

/** HANDEDITS - 1 **/

/** This person reports no stop date or currently receiving (ps19301=1). But in a followup question(ps45001) about whether there was any period of two weeks or more that this person had not received, this person answers no. This implies that this person is currently receiving.**/

if pubid=7523 then do;  ps19301=1;  CURR_REC_PROB=1; end;

/** All the arrays used in this program.                                                                   **/

array intd         (4)    int00_d int99_d int98_d int97_d;

array intm         (4)    int00_m int99_m int98_m int97_m;

array inty         (4)    int00_y int99_y int98_y int97_y;

array uitotalpr    (4,23) ui4total80-ui4total99     ui4total00   ui4total01  ui4total02

                          ui3total80-ui3total99     ui3total00   ui3total01  ui3total02

                          ui2total80-ui2total99     ui2total00   ui2total01  ui2total02

                          ui1total80-ui1total99     ui1total00   ui1total01  ui1total02;

array uiatotalpr   (4,23) uia4total80-uia4total99   uia4total00  uia4total01 uia4total02

                          uia3total80-uia3total99   uia3total00  uia3total01 uia3total02

                          uia2total80-uia2total99   uia2total00  uia2total01 uia2total02

                          uia1total80-uia1total99   uia1total00  uia1total01 uia1total02;

array ui_spellspr  (4,23) ui4_spells80-ui4_spells99 ui4_spells00 ui4_spells01 ui4_spells02

                          ui3_spells80-ui3_spells99 ui3_spells00 ui3_spells01 ui3_spells02

                          ui2_spells80-ui2_spells99 ui2_spells00 ui2_spells01 ui2_spells02

                          ui1_spells80-ui1_spells99 ui1_spells00 ui1_spells01 ui1_spells02;

array uitotal      (23)   uitotal80-uitotal99       uitotal00    uitotal01   uitotal02;

array uiatotal     (23)   uiatotal80-uiatotal99     uiatotal00   uiatotal01  uiatotal02;

array ui_spells    (23)   ui_spells80-ui_spells99   ui_spells00  ui_spells01 ui_spells02;

array nu           (23)   nu80-nu99 nu00 nu01 nu02;

array olduitotal   (23)   olduitotal80-olduitotal99       olduitotal00    olduitotal01   olduitotal02;

array olduiatotal  (23)   olduiatotal80-olduiatotal99     olduiatotal00   olduiatotal01  olduiatotal02;

array oldui_spells (23)   oldui_spells80-oldui_spells99 oldui_spells00 oldui_spells01 old_uispells02;

array CURRnu       (23)   CURRnu80-CURRnu99 CURRnu00 CURRnu01 CURRnu02;

array um           (23)   um80-um99 um00 um01 um02;

array uamt         (23)   uamt80-uamt99 uamt00 uamt01 uamt02;

array ua           (23)   ua80-ua99 ua00 ua01 ua02;

array un           (23)   un80-un99 un00 un01 un02;

array ui           (269)  ui001-ui269;

array uiamt        (269)  uiamt001-uiamt269;

array nms          (2,3)  nmsu11-nmsu13 nmsu21-nmsu23;

array nme          (2,3)  nmeu11-nmeu13 nmeu21-nmeu23;

array yms          (2,3)  ymsu11-ymsu13 ymsu21-ymsu23;

array csm          (2,3)  csmu11-csmu13 csmu21-csmu23;

array yme          (2,3)  ymeu11-ymeu1 ymeu21-ymeu23;

array cem          (2,3)  cemu11-cemu13 cemu21-cemu23;

array s_day        (2,3)  sdayu11-sdayu13 sdayu21-sdayu23;

array e_day        (2,3)  edayu11-edayu13 edayu21-edayu23;

array eflag        (2,3)  eflagu11-eflagu13 eflagu21-eflagu23;

array aflag        (2,3)  aflagu11-aflagu13 aflagu21-aflagu23;

array mos          (2,3)  mosu11-mosu13 mosu21-mosu23;

array agefl        (2,3)  ageflu11-ageflu13 ageflu21-ageflu23;

array ymsmo        (2,3)  ymsmo11-ymsmo13 ymsmo21-ymsmo23;

array ymemo        (2,3)  ymemo11-ymemo13 ymemo21-ymemo23;

array newms        (2,3) newms11-newms13 newms21-newms23;

array newme        (2,3) newme11-newme13 newme21-newme23;

/** start YEAR, MONTH, ACTUAL DAY and ESTIMATED DAY information.                                           **/

array ys          (2,3)  ps40001Y   ps40002Y   ps40003Y p40001Y    p40002Y    p40003Y;

array ms          (2,3)  ps40001M   ps40002M   ps40003M p40001M    p40002M    p40003M;

array ds          (2,3)  ps42001    ps42002    ps42003 p42001     p42002     p42003;

array es          (2,3)  ps43001    ps43002    ps43003 p43001     p43002     p43003;

/** end YEAR, MONTH, ACTUAL DAY and ESTIMATED DAY information.                                             **/

array ye          (2,3)  ps47001Y   ps47002Y   ps47003Y p47001Y    p47002Y    p47003Y;

array me          (2,3)  ps47001M   ps47002M   ps47003M p47001M    p47002M    p47003M;

array de          (2,3)  ps49001    ps49002    ps49003 p49001     p49002     p49003;

array ee          (2,3)  ps50001    ps50002    ps50003 p50001     p50002     p50003;

/** ESTIMATED WEEKS - unable to answer start or stop date questions.                                       **/

array wks          (2,3)  ps52001    ps52002    ps52003    p52001     p52002     p52003;

/** CURRENTLY receiving information:

    For SDLI sections:

    If start data (ps40001m etc.) reported is a valid date then currently receiving information questions (p44001 etc.) are asked. However if the start date is Refused/Dont Know or missing then it is not asked for that LOOP. This is specific to each LOOP. However currently receiving information question ps19301 is asked to all those who say they have received Unemp SDLI.

    For NEVER PRIOR sections:

    Since respondents are routed through different branches some are asked the currently receiving information in PS1897 and others in p35001. (The information from ps1897 and p35001 are collected into p35001 later in the program). Then they all get routed to the start date questions (p40001m etc.) and then if they answer this question with some valid dates they later get routed to the currently receiving information question for that LOOP (p44001 etc.) otherwise not. Again this is also LOOP specific.      **/

array cur          (2,3)  ps44001    ps44002    ps44003    p44001     p44002     p44003;

array cwks         (2,3)  ps19301    ps19302    ps19303    p35001     p35002     p35003;

/** Receiving at DLI - using ps18501 instead of ps18301 as the latter is a computer check from last interview and the former is the follow up qestion that verifies that information.                                **/

array dli          (2,3)  ps18501    ps18502    ps18503    p18501     p18502     p18503;

/** AMOUNT RECEIVED - actual & estimated.                                                                  **/

array inc          (2,3)  ps59001    ps59002    ps59003    p59001     p59002     p59003;

array einc         (2,3)  ps60001    ps60002    ps60003    p60001     p60002     p60003;

**    Part 1. Creating certain basic variables                                                             ****************************;

/** change weekly ui figures to daily amount.                                                              **/

do K=1 to DIM(inc,1);

   do J=1 to DIM(inc,2);

      if inc(K,J) gt 0 then inc(K,J)=inc(K,J)/7;

   end;

end;

/** change previous round variables to account for noninterviews -

    If r4 interview, use r4 created var. If noninterview in r4, then use r3 variable.

    If noninterview in r3, then use r2 variable. If noninterview in r2, then use r1 variable

    If variable not in r1, r2, r3 or r4 then set to 0.                                                     **/

do Q=1 to DIM(inty);

   if inty(Q) ne -5 then do;

      do I=1 to DIM(uitotal);

         uitotal(I)=uitotalpr(Q,I);

         uiatotal(I)=uiatotalpr(Q,I);

         ui_spells(I)=ui_spellspr(Q,I);

      end;

      Q=DIM(inty);

   end;

end;

do I=1 to DIM(uitotal);

   olduitotal(I)=uitotal(I);

   olduiatotal(I)=uiatotal(I);

   oldui_spells(I)=ui_spells(I);

   nu(I)=0;

   if uitotal(I)=. then do;

      olduitotal(I)=-4;

      uitotal(I)=0;

   end;

   if uiatotal(I)=. then do;

      olduiatotal(I)=-4;

      uiatotal(I)=0;

   end;

   if ui_spells(I)=. then do;

      oldui_spells(I)=-4;

      ui_spells(I)=0;

   end;

end;

ui_ever=ui4_ever;

if int00_y=-5 then do;

   ui_ever=ui3_ever;

   if int99_y=-5 then do;

      ui_ever=ui2_ever;

      if int98_y=-5 then do;

         ui_ever=ui1_ever;

      end;

   end;

end;

if ui_ever=-4 then do;

   ui_ever=0;

end;

/** Initialize the following counters to zero.                                                             **/

/** Counter for UIAMT ge 0 (receiving positive amounts) but UI=0 (not receiving).                          **/

/** Counter for UI gt 0 (receiving) but UIAMT is missing (amount receiving info not available)             **/

/** Total number of months ever received.                                                                  **/

/** Month counter for correction of problematic amounts reported.                                          **/

uick=0;

uickm=0;

uickmm=0;

ttlu=0;

uimnths=0;

SAMEMONTH=0;

/** Creating variables relating to date of birth, age, age 14 etc.                                         **/

cm14=((bdate_y+14)-1980)*12+bdate_m;

ym14=(bdate_y*100+bdate_m)+1400;

cmb=((bdate_y)-1980)*12+bdate_m;

doicm=(yint_y-1980)*12+yint_m;

iym=yint_y*100+yint_m;

aaicm=(yint_y-bdate_y)*12+yint_m-bdate_m;

array mon (12) mon1-mon12;

array uiday (12) uiday1-uiday12;

do Z=1 to 12; mon(Z)=Z; end;

do Z=1 to 12;

   if mon(Z)=1 OR mon(Z)=3 OR mon(Z)=5 OR mon(Z)=7 OR mon(Z)=8 OR mon(Z)=10 OR mon(Z)=12 then do;

      uiday(Z)=31;

   end;

   if mon(Z)=2 then do;

      uiday(Z)=28;

   end;

   if mon(Z)=4 OR mon(Z)=6 OR mon(Z)=9 OR mon(Z)=11 then do;

      uiday(Z)=30;

   end;

end;

/** Creating variables pertaining to the date of last interview.                                           **/

if p1210=1 then do;

   do Q=1 to DIM(inty);

      if inty[Q] ne -5 then do;

         if intm[Q] lt 12 then dliym=(inty[Q]*100)+(intm[Q]+1);

         if intm[Q]=12 then dliym=((inty[Q]+1)*100)+1;

         dlicm=((inty[Q]-1980)*12)+(intm[Q]+1);

         dli_d=intd[Q];

         dli_m=dliym-round(dliym,100);

         dli_y=round(dliym,100)/100;

         Q=DIM(inty);

      end;

   end;

end;

if p1210 ne 1 then do;

   dliym=ym14;

   dli_d=bdate_d;

   dli_m=bdate_m;

   dli_y=bdate_y;

   dlicm=cm14;

end;

do Z=1 to 12;

   if yint_m=mon(Z) then intday=uiday(Z)+1-yint_d;

   if dli_m=mon(Z) then ddliday=uiday(Z)+1-dli_d;

end;

if dli_m=1 OR dli_m=8 then do;

   dliday=(31-dli_d+31);

   dliday1=31-dli_d;

   dliday2=31;

end;

if dli_m=3 then do;

   dliday=(28-dli_d+31);

   dliday1=28-dli_d;

   dliday2=31;

end;

if dli_m=5 OR dli_m=7 OR dli_m=10 OR dli_m=12 then do;

   dliday=(30-dli_d+31);

   dliday1=30-dli_d;

   dliday2=31;

end;

if dli_m=4 OR dli_m=6 OR dli_m=9 OR dli_m=11 then do;

   dliday=(31-dli_d+30);

   dliday1=31-dli_d;

   dliday2=30;

end;

if dli_m=2 then do;

   dliday=(31-dli_d+28);

   dliday1=31-dli_d;

   dliday2=28;

end;

ps19302=ps19301;

ps19303=ps19301;

p35002=p35001;

p35003=p35001;

**    Part 2. Creating variables using Round 5 information                                                 *********************;

if p1210>-4 then do;                                                                                             /** [B1] **/

   /** Combining currently receiving information for the NEVER PRIOR sections.                             **/

   if ps1897>-3 then do;

      p35001=ps1897;

      p35002=p35001;

      p35003=p35001;

   end;

   /** Initializing all ui from the month of birth to the date of current interview to zero.               **/

   do L=1 to DIM(ui);

      if cmb le L le doicm then do;

         ui(L)=0;

      end;

   end;

/**  This portion of the SAS program defines the start date and end dates.  If the respondent reports

      still receiving, the interview date is used as the temporary end date for the last loop reported.

      In the next survey round, the respondent will be asked if he or she is still recieving and, if not,

      a permanent end date equivalent to the interview date of the previous round will be assigned. Users

      will be able to tell which method was used by looking at the following participation flag variable

      created during the program.  The categories are the following:

           1=respondent reported participation dates

           2=start month imputed

           3=start month and year imputed

           4=stop month imputed

            5=stop month and year imputed

            6=start and stop dates imputed

            7=error in data due to round 2 programming error ******/

   do K=1 to DIM(csm,1);                                                                         /** [B2] **/

      do J=1 to DIM(csm,2);                                                                                 /** [B3] **/

/** 1.   If start and stop dates are all valid                                                             **/

         if ys(K,J)>0 and ms(K,J)>0 then do;

            yms(K,J)=(ys(K,J)*100)+ms(K,J);

            /** set start day, if given.                                                                   **/

            if ds(K,J)>0 OR es(K,J)>0 then do;

               if ms(K,J)=1 OR ms(K,J)=3 OR ms(K,J)=5 OR ms(K,J)=7 OR ms(K,J)=8 OR ms(K,J)=10 OR ms(K,J)=12

               then do;

                  if ds(K,J)>0 and ds(K,J) ne . then s_day(K,J)=(32-ds(K,J));

                  if es(K,J)=1 then s_day(K,J)=31;

                  if es(K,J)=2 then s_day(K,J)=21;

                  if es(K,J)=3 then s_day(K,J)=11;

               end;

               if ms(K,J)=4 OR ms(K,J)=6 OR ms(K,J)=9 OR ms(K,J)=11 then do;

                  if ds(K,J)>0 and ds(K,J) ne . then s_day(K,J)=(31-ds(K,J));

                  if es(K,J)=1 then s_day(K,J)=30;

                  if es(K,J)=2 then s_day(K,J)=20;

                  if es(K,J)=3 then s_day(K,J)=10;

               end;

               if ms(K,J)=2 then do;

                  if ds(K,J)>0 and ds(K,J) ne . then s_day(K,J)=(29-ds(K,J));

                  if es(K,J)=1 then s_day(K,J)=28;

                  if es(K,J)=2 then s_day(K,J)=18;

                  if es(K,J)=3 then s_day(K,J)=8;

               end;

            end;

         end;

         /** set start date to DLI if receiving at DLI.                                                    **/

         if dli(K,J)=1 then do;

            yms(K,J)=dliym;

            s_day(K,J)=dliday;

            if ps19301=1 then do;

               yme(K,J)=iym;

               e_day(K,J)=yint_d;

               NOGAPS=1;

            end;

         end;

         /** set start date to DLI if start date is before DLI.                                            **/

         if yms(K,J) ne . and yms(K,J)<dliym then do;

            yms(K,J)=dliym;

            s_day(K,J)=ddliday;

         end;

         /** set end date to current int date if receiving now.                                            **/

         if cur(K,J)=1 then do;

            yme(K,J)=iym;

            e_day(K,J)=yint_d;

         end;

         /** set end date if both end month and year are valid.                                            **/

         if ye(K,J)>0 and me(K,J)>0 then do;

            yme(K,J)=(ye(K,J)*100)+me(K,J);

            /** set end day, if given.                                                                     **/

            if de(K,J)>0 and de(K,J) ne . then do;

               e_day(K,J)=de(K,J);

            end;

            /** end day unknown, estimate given.                                                           **/

            if de(K,J)<0 and ee(K,J)>0 and ee(K,J) ne . then do;

               if ee(K,J)=1 then e_day(K,J)=9;

               if ee(K,J)=2 then e_day(K,J)=19;

               if ee(K,J)=3 then e_day(K,J)=28;

            end;

         end;

         /** if end month greater than int month, constrain by int month.                                  **/

         if yme(K,J)>iym then do;

            yme(K,J)=iym;

            e_day(K,J)=yint_d;

         end;

         if yms(K,J)>0 and yme(K,J) ge dliym then eflag(K,J)=1;

         /** determine months from estimated weeks variable.                                               **/

         if wks(K,J) ge 0 and (ys(K,J)<0 OR ms(K,J)<0 OR ye(K,J)<0 OR me(K,J)<0) then do;

             mos(K,J)=floor(wks(K,J)/4.3);

         end;

         agefl(K,J)=0;

         if ys(K,J)>0 and ys(K,J)<1990 then agefl(K,J)=1;

/** 2.   If start year is known and month is unknown

         Note: if wks ge -3 then it means that stop date is not known.                                     **/

         if ys(K,J)>0 and -3 le ms(K,J) le -1 then do;

/** 2.a  If weeks are known and currently receiving, then count backwards by the number of weeks from the

         current interview date.  If the number of weeks falls short of the start year, the start month is

         December of that year. If the number of weeks is past the start year, then the start month is January of that year. **/

            if (wks(K,J) ge 0 and cwks(K,J)=1) then do;

               yme(K,J)=iym;

               e_day(K,J)=yint_d;

               if                 mos(K,J) le  yint_m      then yms(K,J)=yme(K,J)-      mos(K,J)     ;

               if (yint_m+ 0)  le mos(K,J) le (yint_m+ 12) then yms(K,J)=yme(K,J)- 100-(mos(K,J)- 12);

               if (yint_m+12)  le mos(K,J) le (yint_m+ 24) then yms(K,J)=yme(K,J)- 200-(mos(K,J)- 24);

               if (yint_m+24)  le mos(K,J) le (yint_m+ 36) then yms(K,J)=yme(K,J)- 300-(mos(K,J)- 36);

               if (yint_m+36)  le mos(K,J) le (yint_m+ 48) then yms(K,J)=yme(K,J)- 400-(mos(K,J)- 48);

               if (yint_m+48)  le mos(K,J) le (yint_m+ 60) then yms(K,J)=yme(K,J)- 500-(mos(K,J)- 60);

               if (yint_m+60)  le mos(K,J) le (yint_m+ 72) then yms(K,J)=yme(K,J)- 600-(mos(K,J)- 72);

               if (yint_m+72)  le mos(K,J) le (yint_m+ 84) then yms(K,J)=yme(K,J)- 700-(mos(K,J)- 84);

               if (yint_m+84)  le mos(K,J) le (yint_m+ 96) then yms(K,J)=yme(K,J)- 800-(mos(K,J)- 96);

               if (yint_m+96)  le mos(K,J) le (yint_m+108) then yms(K,J)=yme(K,J)- 900-(mos(K,J)-108);

               if (yint_m+108) le mos(K,J) le (yint_m+120) then yms(K,J)=yme(K,J)-1000-(mos(K,J)-120);

               do Z=1 to 12;

                  if (yms(K,J)-(round(yms(K,J), 100)))=mon(Z) then s_day(K,J)=uiday(Z);

               end;

               if yms(K,J)<((ys(K,J)*100)+01) then do;

                  yms(K,J)=((ys(K,J)*100)+01);

                  s_day(K,J)=31;

               end;

               if yms(K,J)<dliym then do;

                  yms(K,J)=dliym;

                  s_day(K,J)=ddliday;

               end;

               if yms(K,J)>((ys(K,J)*100)+12) then do;

                  yms(K,J)=((ys(K,J)*100)+12);

                  s_day(K,J)=31;

               end;

            end;

/** 2.b  weeks missing and currently receiving - set end date to current interivew date and start date

         to December of start year and constrain start date by Current Interview Date and DLI.             **/

            else if (-3 le wks(K,J) lt 0 and cwks(K,J)=1) then do;

                 yme(K,J)=iym;

                 e_day(K,J)=yint_d;

                 yms(K,J)=((ys(K,J)*100)+12);

                 s_day(K,J)=31;

                 if yms(K,J)>iym then do;

                    yms(K,J)=iym;

                    s_day(K,J)=intday;

                 end;

                 if yms(K,J)<dliym then do;

                    yms(K,J)=dliym;

                    s_day(K,J)=ddliday;

                 end;

            end;

/** 2.c  weeks missing and not currently receiving - set start date to January of start year and end date

         to December of start year. Constrain start date by DLI and end date by Current Interview Date.    **/

            else if (-3 le wks(K,J) lt 0 and cwks(K,J)=0) then do;

                 yms(K,J)=((ys(K,J)*100)+01);

                 s_day(K,J)=31;

                 yme(K,J)=((ys(K,J)*100)+12);

                 e_day(K,J)=31;

                 if yms(K,J)<dliym then do;

                    yms(K,J)=dliym;

                    s_day(K,J)=ddliday;

                 end;

                 if yme(K,J)>iym then do;

                    yme(K,J)=iym;

                    e_day(K,J)=yint_d;

                 end;

            end;

/** 2.d  If weeks are known and not currently receiving, then count forward by the number of weeks from January of the start year. Constrain start date by DLI. If the count exceeds the interview date then stop counting at the interview date.                                                              **/

            else if (wks(K,J) ge 0 and cwks(K,J)=0) then do;

                 yms(K,J)=((ys(K,J)*100)+01);

                 s_day(K,J)=31;

                 if yms(K,J)<dliym then do;

                    yms(K,J)=dliym;

                    s_day(K,J)=ddliday;

                 end;

                 ymsmo(K,J)=(yms(K,J)-round(yms(K,J),100))+mos(K,J);

                 if   0 le ymsmo(K,J) le  12 then yme(K,J)=yms(K,J)+  0+mos(K,J)-  0;

                 if  13 le ymsmo(K,J) le  24 then yme(K,J)=yms(K,J)+100+mos(K,J)- 12;

                 if  25 le ymsmo(K,J) le  36 then yme(K,J)=yms(K,J)+200+mos(K,J)- 24;

                 if  37 le ymsmo(K,J) le  48 then yme(K,J)=yms(K,J)+300+mos(K,J)- 36;

                 if  49 le ymsmo(K,J) le  60 then yme(K,J)=yms(K,J)+400+mos(K,J)- 48;

                 if  61 le ymsmo(K,J) le  72 then yme(K,J)=yms(K,J)+500+mos(K,J)- 60;

                 if  73 le ymsmo(K,J) le  84 then yme(K,J)=yms(K,J)+600+mos(K,J)- 72;

                 if  85 le ymsmo(K,J) le  96 then yme(K,J)=yms(K,J)+700+mos(K,J)- 84;

                 if  97 le ymsmo(K,J) le 108 then yme(K,J)=yms(K,J)+800+mos(K,J)- 96;

                 if 109 le ymsmo(K,J) le 120 then yme(K,J)=yms(K,J)+900+mos(K,J)-108;

                 do Z=1 to 12;

                    if (yme(K,J)-(round(yme(K,J), 100)))=mon(Z) then e_day(K,J)=uiday(Z);

                 end;

                 if yme(K,J)>iym then do;

                    yme(K,J)=iym;

                    e_day(K,J)=yint_d;

                 end;

            end;

         if yme(K,J)>0 and CWKS(K,J)=0 then do;

            yms(K,J)=((ys(K,J)*100)+01);

            s_day(K,J)=31;

         end;

         if yms(K,J)<dliym then do;

            yms(K,J)=dliym;

            s_day(K,J)=ddliday;

         end;

         eflag(K,J)=2;

         end;

/** 3.   If start year is unknown.                                                                         **/

         if -3 le ys(K,J) le -1 then do;

/** 3.a  If currently receiving and weeks are known then count back from interview date receiving.         **/

            if (wks(K,J) ge 0 and cwks(K,J)=1) then do;

               if      0       le mos(K,J) le (yint_m+  0) then yms(K,J)=iym-   0-(mos(K,J)-  0);

               if (yint_m+  0) le mos(K,J) le (yint_m+ 12) then yms(K,J)=iym- 100-(mos(K,J)- 12);

               if (yint_m+ 12) le mos(K,J) le (yint_m+ 24) then yms(K,J)=iym- 200-(mos(K,J)- 24);

               if (yint_m+ 24) le mos(K,J) le (yint_m+ 36) then yms(K,J)=iym- 300-(mos(K,J)- 36);

               if (yint_m+ 36) le mos(K,J) le (yint_m+ 48) then yms(K,J)=iym- 400-(mos(K,J)- 48);

               if (yint_m+ 48) le mos(K,J) le (yint_m+ 60) then yms(K,J)=iym- 500-(mos(K,J)- 60);

               if (yint_m+ 60) le mos(K,J) le (yint_m+ 72) then yms(K,J)=iym- 600-(mos(K,J)- 72);

               if (yint_m+ 72) le mos(K,J) le (yint_m+ 84) then yms(K,J)=iym- 700-(mos(K,J)- 84);

               if (yint_m+ 84) le mos(K,J) le (yint_m+ 96) then yms(K,J)=iym- 800-(mos(K,J)- 96);

               if (yint_m+ 96) le mos(K,J) le (yint_m+108) then yms(K,J)=iym- 900-(mos(K,J)-108);

               if (yint_m+108) le mos(K,J) le (yint_m+120) then yms(K,J)=iym-1000-(mos(K,J)-120);

               do Z=1 to 12;

                  if yms(K,J)-(round(yms(K,J),100))=mon(Z) then s_day(K,J)=uiday(Z);

               end;

               yme(K,J)=iym;

               e_day(K,J)=yint_d;

               if yms(K,J)<dliym then do;

                  yms(K,J)=dliym;

                  s_day(K,J)=ddliday;

               end;

            end;

/** 3.a  If currently receiving and weeks are unknown then take DLI as start date and Current Interview Date

         as stop date.                                                                                     **/

            if (-3 le wks(K,J) lt 0 and cwks(K,J)=1) then do;

               yms(K,J)=dliym;

               yme(K,J)=iym;

               s_day(K,J)=ddliday;

               e_day(K,J)=yint_d;

            end;

/** 3.c  If weeks are known, then count back from interview date to find the most recent year the respondent

         could have begun receiving and receive for that number of months. Set start date as January of that

         year. If currently not receiving then count forward the number of months from January of that year

         and set the stop date. If currently receiving then just set the Current Interview date as the stop

         date. Constrain start and stop dates by DLI and Current Interview Date, respectively.             **/

            if (wks(K,J) ge 0 and cwks(K,J)=0) then do;

               if 0 le mos(K,J) le yint_m then do;

                  yms(K,J)=(yint_y*100)+01;

                  yme(K,J)=(yint_y*100)+01+mos(K,J);

               end;

               if (yint_m+01) le mos(K,J) le (yint_m+12) then do;

                  yms(K,J)=((yint_y-1)*100)+01;

                  if mos(K,J) le 12 then yme(K,J)=((yint_y-1)*100)+01+mos(K,J);

                  if mos(K,J) ge 13 then yme(K,J)=(yint_y*100)+01+mos(K,J)-12;

               end;

               if (yint_m+13) le mos(K,J) le (yint_m+24) then do;

                  yms(K,J)=((yint_y-2)*100)+01;

                  if mos(K,J) le 24 then yme(K,J)=((yint_y-1)*100)+01+mos(K,J)-12;

                  if mos(K,J) ge 25 then yme(K,J)=(yint_y*100)+01+mos(K,J)-24;

               end;

               if (yint_m+25) le mos(K,J) le (yint_m+36) then do;

                  yms(K,J)=((yint_y-3)*100)+01;

                  if mos(K,J) le 36 then yme(K,J)=((yint_y-1)*100)+01+mos(K,J)-24;

                  if mos(K,J) ge 37 then yme(K,J)=(yint_y*100)+01+mos(K,J)-36;

               end;

               if (yint_m+37) le mos(K,J) le (yint_m+48) then do;

                  yms(K,J)=((yint_y-4)*100)+01;

                  if mos(K,J) le 48 then yme(K,J)=((yint_y-1)*100)+01+mos(K,J)-36;

                  if mos(K,J) ge 49 then yme(K,J)=(yint_y*100)+01+mos(K,J)-48;

               end;

               s_day(K,J)=31;

               do Z=1 to 12;

                  if (yme(K,J)-(round(yms(K,J),100)))=mon(Z) then e_day(K,J)=uiday(Z);

               end;

               if yme(K,J)>iym then do;

                  yme(K,J)=iym;

                  e_day(K,J)=yint_d;

               end;

            end;

            eflag(K,J)=3;

         end;

        if yme(K,J)>0 and yms(K,J)=. then do;

            yms(K,J)=dliym;

            s_day(K,J)=ddliday;

            if j=1 then eflag(K,J)=3;

            else if j>1 then eflag(K,J)=7;

         end;

/**      Note: If either stop month or year is ge -3 then it implies that this unemp spell has ended. Even if

         the respondent reports currently receiving that would imply another loop.                         **/

/** 4.   If stop year is known and stop month is unknown.                                                  **/

         if yms(K,J)>0 and ye(K,J)>0 and -3 le me(K,J) le -1 then do;

/** 4.a  If weeks are known, then count forward from start year.  If the number of months falls short of the

         stop year, then use January of the end year as the stop date. If the number of months exceeds the

         stop year, then end the array in the December of the stop year. Constrain stop date by Current

         Interview Date. If currently receiving then use interview date as the stop date.                  **/

            if wks(K,J) ge 0 then do;

               ymsmo(K,J)=yms(K,J)- round (yms(K,J),100);

               if 01 le (ymsmo(K,J)+mos(K,J)) le 12 then yme(K,J)=yms(K,J)+mos(K,J);

               if 13 le (ymsmo(K,J)+mos(K,J)) le 24 then yme(K,J)=yms(K,J)+100+mos(K,J)-12;

               if 25 le (ymsmo(K,J)+mos(K,J)) le 36 then yme(K,J)=yms(K,J)+200+mos(K,J)-24;

               if 37 le (ymsmo(K,J)+mos(K,J)) le 48 then yme(K,J)=yms(K,J)+300+mos(K,J)-36;

               if 49 le (ymsmo(K,J)+mos(K,J)) le 60 then yme(K,J)=yms(K,J)+400+mos(K,J)-48;

               if 61 le (ymsmo(K,J)+mos(K,J)) le 72 then yme(K,J)=yms(K,J)+500+mos(K,J)-60;

               if 73 le (ymsmo(K,J)+mos(K,J)) le 84 then yme(K,J)=yms(K,J)+600+mos(K,J)-72;

               do Z=1 to 12;

                  if yme(K,J)-round(yme(K,J),100)=mon(Z) then e_day(K,J)=uiday(Z);

               end;

               if yme(K,J)>((ye(K,J)*100)+12) then do;

                  yme(K,J)=((ye(K,J)*100)+12);

                  e_day(K,J)=31;

               end;

               if yme(K,J)<((ye(K,J)*100)+01) then do;

                  yme(K,J)=((ye(K,J)*100)+01);

                  e_day(K,J)=31;

               end;

               if yme(K,J)>iym then do;

                  yme(K,J)=iym;

                  e_day(K,J)=yint_d;

               end;

            end;

/** 4.b  Ifweeks are unknown, then set December of stop year as the stop month.                            **/

            if -3 le wks(K,J) lt 0 then do;

               yme(K,J)=((ye(K,J)*100)+12);

               e_day(K,J)=31;

            end;

            if yme(K,J)>iym then do;

               yme(K,J)=iym;

               e_day(K,J)=yint_d;

            end;

            eflag(K,J)=4;

         end;

/** 5.   If stop year is unknown.                                                                          **/

         if -3 le ye(K,J) le -1 then do;

/** 5.a  If weeks are known then count forward by the number of weeks from the start date and constrain stop

         date by Current Interview date.                                                                   **/

            if yms(K,J)>0 and wks(K,J) ge 0 then do;

               ymsmo(K,J)=yms(K,J)- round (yms(K,J),100);

               if 01 le (ymsmo(K,J)+mos(K,J)) le 12 then yme(K,J)=yms(K,J)+mos(K,J);

               if 13 lt (ymsmo(K,J)+mos(K,J)) le 24 then yme(K,J)=yms(K,J)+100+mos(K,J)-12;

               if 25 lt (ymsmo(K,J)+mos(K,J)) le 36 then yme(K,J)=yms(K,J)+200+mos(K,J)-24;

               if 37 le (ymsmo(K,J)+mos(K,J)) le 48 then yme(K,J)=yms(K,J)+300+mos(K,J)-36;

               if 49 le (ymsmo(K,J)+mos(K,J)) le 60 then yme(K,J)=yms(K,J)+400+mos(K,J)-48;

               if 61 le (ymsmo(K,J)+mos(K,J)) le 72 then yme(K,J)=yms(K,J)+500+mos(K,J)-60;

               if 73 le (ymsmo(K,J)+mos(K,J)) le 84 then yme(K,J)=yms(K,J)+600+mos(K,J)-72;

               do Z=1 to 12;

                  if yme(K,J)-round(yme(K,J),100)=mon(Z) then e_day(K,J)=uiday(Z);

               end;

               if yme(K,J)>iym then do;

                  yme(K,J)=iym;

                  e_day(K,J)=yint_d;

               end;

            end;

/** 5.b  If weeks are unknown then set stop date as December of start year.                                **/

            if yms(K,J)>0 and -3 le wks(K,J) lt 0 then do;

               yme(K,J)=(round (yms(K,J),100))+12;

               e_day(K,J)=31;

            end;

            if yme(K,J)>iym then do;

               yme(K,J)=iym;

               e_day(K,J)=yint_d;

            end;

            eflag(K,J)=5;

         end;

/** 6.   If the start and stop years are unknown and the weeks are unknown, use current and last interview date.      **/

         if -3 le ys(K,J) le -1 and cwks(K,J)=0 and -3 le wks(K,J) lt 0 then do;

            yme(K,J)=iym;

            e_day(K,J)=yint_d;

            yms(K,J)=dliym;

            s_day(K,J)=ddliday;

            if j=1 then eflag(K,J)=6;

            else if j>1 then eflag(K,J)=7;

         end;

/**    This portion caculates the number of days receiving if start and end year and months are the same   **/

           newms(K,J)=(yms(K,J)- round (yms(K,J),100));

           newme(K,J)=(yme(K,J)- round (yme(K,J),100));

           if (yms(K,J)=yme(K,J) and yms(K,J) gt 0 and yms(K,J) ne . and newms(K,J) gt 0 and newms(K,J) ne .

              and e_day(K,J) ne . and e_day(K,J) ge 0 and s_day(K,J) ne . and s_day(K,J) ge 0) then do;

              SAMEMONTH=1;

              if (newms(K,J)=1 OR newms(K,J)=3 OR newms(K,J)=5 OR newms(K,J)=7

              OR newms(K,J)=8 OR newms(K,J)=10 OR newms(K,J)=12) then do;

                 if e_day(K,J) ge (32-s_day(K,J)) then do;

                    s_day(K,J)=e_day(K,J)-(32-s_day(K,J))+1;

                    e_day(K,J)=0;

                 end;

                 else if e_day(K,J) lt (32-s_day(K,J)) then do;

                      s_day(K,J)=0;

                      e_day(K,J)=0;

                      HANDEDIT=1;

                 end;

              end;

              if (newms(K,J)=4 OR newms(K,J)=6 OR newms(K,J)=9 OR newms(K,J)=11) then do;

                 if e_day(K,J) ge (31-s_day(K,J)) then do;

                    s_day(K,J)=e_day(K,J)-(31-s_day(K,J))+1;

                    e_day(K,J)=0;

                 end;

                 else if e_day(K,J) lt (31-s_day(K,J)) then do;

                      s_day(K,J)=0;

                      e_day(K,J)=0;

                      HANDEDIT=1;

                 end;

              end;

              if newms(K,J)=2 then do;

                 if e_day(K,J) ge (29-s_day(K,J)) then do;

                    s_day(K,J)=e_day(K,J)-(29-s_day(K,J))+1;

                    e_day(K,J)=0;

                 end;

                 else if e_day(K,J) lt (29-s_day(K,J)) then do;

                      s_day(K,J)=0;

                      e_day(K,J)=0;

                      HANDEDIT=1;

                 end;

              end;

           end;

/** This portion of the program uses the category reported by the respondent to create an estimated amount.  The estimated amount is the midpoint rounded down.  Note that the 12th category lists $1251 as the amount.  This amount was chosen since the category is unbounded - the number represents one dollar above the lower bound.**/

         if -3 le inc(K,J) le -1 and einc(K,J)=1 then inc(K,J)=(50/7);

         if -3 le inc(K,J) le -1 and einc(K,J)=2 then inc(K,J)=(125/7);

         if -3 le inc(K,J) le -1 and einc(K,J)=3 then inc(K,J)=(175/7);

         if -3 le inc(K,J) le -1 and einc(K,J)=4 then inc(K,J)=(225/7);

         if -3 le inc(K,J) le -1 and einc(K,J)=5 then inc(K,J)=(275/7);

         if -3 le inc(K,J) le -1 and einc(K,J)=6 then inc(K,J)=(351/7);

         if inc(K,J)>-4 then aflag(K,J)=0;

         csm(K,J)=(round(yms(K,J),100)-198000)*.12+(yms(K,J)-round(yms(K,J),100));

         cem(K,J)=(round(yme(K,J),100)-198000)*.12+(yme(K,J)-round(yme(K,J),100));

         cdli=(round(dliym,100)-198000)*.12+(dliym-round(dliym,100))-1;

         /** added to zero out people who back report.                                                     **/

      end;                                                                                        /** [E3] **/

   end;                                                                                           /** [E2] **/

/**     This portion counts the number of Unemployment Spells in each year                                 **/

      do K=1 to DIM(csm,1);

         do J=1 to DIM(csm,2);

            if (csm(K,J) gt dlicm) OR (csm(K,J) le dlicm and dli(K,J)=0) then do;

               if   1 le csm(K,J) le  12 then nu80=nu80+1;

               if  13 le csm(K,J) le  24 then nu81=nu81+1;

               if  25 le csm(K,J) le  36 then nu82=nu82+1;

               if  37 le csm(K,J) le  48 then nu83=nu83+1;

               if  49 le csm(K,J) le  60 then nu84=nu84+1;

               if  61 le csm(K,J) le  72 then nu85=nu85+1;

               if  73 le csm(K,J) le  84 then nu86=nu86+1;

               if  85 le csm(K,J) le  96 then nu87=nu87+1;

               if  97 le csm(K,J) le 108 then nu88=nu88+1;

               if 109 le csm(K,J) le 120 then nu89=nu89+1;

               if 121 le csm(K,J) le 132 then nu90=nu90+1;

               if 133 le csm(K,J) le 144 then nu91=nu91+1;

               if 145 le csm(K,J) le 156 then nu92=nu92+1;

               if 157 le csm(K,J) le 168 then nu93=nu93+1;

               if 169 le csm(K,J) le 180 then nu94=nu94+1;

               if 181 le csm(K,J) le 192 then nu95=nu95+1;

               if 193 le csm(K,J) le 204 then nu96=nu96+1;

               if 205 le csm(K,J) le 216 then nu97=nu97+1;

               if 217 le csm(K,J) le 228 then nu98=nu98+1;

               if 229 le csm(K,J) le 240 then nu99=nu99+1;

               if 241 le csm(K,J) le 252 then nu00=nu00+1;

               if 253 le csm(K,J) le 264 then nu01=nu01+1;

               if 265 le csm(K,J) le 269 then nu02=nu02+1;

            end;

         end;

      end;

   do I=1 to DIM(nu);

      CURRnu(I)=nu(I);

   end;

/** HANDEDITS - 2 **/

/** This person reports receiving UC from Feb 8, 2002 to Feb 4, 2002. So we switched the start and end dates which makes the number of days this person received UC as 5. **/

if pubid=2126 then do; sdayu22=5; edayu22=0; DAYS_PROB=1; end;

/** This person reports receiving UC from May 11,2001 to May 7,2001 . So we switched the start and end dates which makes the number of days this person received UC as 5.**/

if pubid=2595 then do; sdayu11=5; edayu11=0; DAYS_PROB=1; end;

/**   This portion creates the month receiving indicator (UI) and the amount receiving each month (UIAMT)  **/

   do K=1 to DIM(csm,1);

      do J=1 to DIM(csm,2);

         C=0;

         do L=1 to DIM(ui);

            C=C+1;

            if 0 le L le doicm then do;

               if csm(K,J) le C le cem(K,J) then do;

                  if (C=csm(K,J) and inc(K,J) ge 0) then do;

                      ui(L)=eflag(K,J);

                      if s_day(K,J) ne . then uiamt(L)= round ((inc(K,J)*s_day(K,J)), 1);

                  end;

                  else if (C=cem(K,J) and inc(K,J) ge 0) then do;

                      ui(L)=eflag(K,J);

                      if e_day(K,J) ne . then uiamt(L)= round ((inc(K,J)*e_day(K,J)), 1);

                 end;

                  else if csm(K,J)<C and C<cem(K,J) and inc(K,J) ge 0 then do;

                      ui(L)=eflag(K,J);

                      if C in (169,171,173,175,176,178,180,181,183,185,187,188,

                               190,192,193,195,197,199,200,202,204,205,207,209,

                               211,212,214,216,217,219,221,223,224,226,228,229,

                               231,233,235,236,238,240,241,243,245,247,248,250,

                               252,253,255,257,259,260,262,264,265,267,269) then do;

                          uiamt(L)= round ((inc(K,J)*31),1);

                      end;

                      else if C in (172,174,177,179,184,186,189,191,196,198,201,203,

                                    208,210,213,215,220,222,225,227,232,234,237,239,

                                    244,246,249,251,256,258,261,263,268) then do;

                              uiamt(L)=round ((inc(K,J)*30),1);

                       end;

                       else if C in (194,242) then do;

                              uiamt(L)=round ((inc(K,J)*29),1);

                       end;

                       else if C in (170,182,206,218,230,254,266) then do;

                             uiamt(L)= round ((inc(K,J)*28),1);

                       end;

                  end;

                       else if inc(K,J)<0 then do;

                             ui(L)=eflag(K,J);

                             uiamt(L)=inc(K,J);

                       end;

                  if uiamt(L) le 10000 and (uiodd=0 OR uiodd=.) then do; uiodd=0; end;

                  if uiamt(L)>10000 then do; uiodd=uiamt(L); end;

                  if ui(L)>0 and uiamt(L)=. then do; uick=uick+1; end;

                  if (uiamt(L)>0 OR (-3 le uiamt(L) lt 0)) and ui(L)=0 then do; uickm=uickm+1; end;

                  if ui(L)=-3 and uiamt(L) ne -3 then do; uickmm=uickmm+1; end;

                  if uiamt(L)=0 then dummyui=1;

               end;

            end;

         end;

      end;

   end;

/**     This portion deletes spells that started before DLI                                                **/

   do K=1 to DIM(csm,1);

      do J=1 to DIM(csm,2);

         C=0;

         do L=1 to DIM(ui);

            C=C+1;

            if csm(K,J) le cdli and p010 eq 1 and csm(K,J) ne . then do;

               if csm(K,J) le C le cdli then do;

                  ui(L)=0;

                  uiamt(L)=.;

               end;

            end;

         end;

      end;

   end;

end;                                                                                                                                           /** [E1] **/

/**   This portion creates the months receiving in each year variables (UMXX) and the amount receiving each year variables (UAMTXX).                                                                        **/

do I=1 to DIM(um);

   if ui_ever>-4 OR p1210>-4 OR p1210=-5 then do;

      um(I)=0;

      uamt(I)=0;

      ua(I)=0;

      un(I)=0;

   end;

end;

/** HANDEDITS - 3 **/

/** These persons say that they are currently receiving but give a stop date that is different from the current

    interview date so we give them a -3 for all the months between the DLI and current interview date.**/

if pubid=5547 then do;

   STP_DT_PROB=1;

   do L=1 to 269;

      if cdli le L le doicm then do;

         ui(L)=-3;

         uiamt(L)=-3;

      end;

   end;

   UM01=-3;

   UM02=-3;

end;

if pubid=6921 then do;

   STP_DT_PROB=1;

   do L=1 to 269;

      if cdli le L le doicm then do;

         ui(L)=-3;

         uiamt(L)=-3;

      end;

   end;

   UM01=-3;

end;

if ui_ever>-4 OR p1210>-4 OR p1210=-5 then do;                                                             /** [B4] **/

   /** calculate total no. months to divide the problematic amts over.                                     **/

   do L=1 to DIM(ui);

      if ui(L)>0 and uiamt(L)>10000 and uiodd>0 then do;

         uimnths=uimnths+1;

      end;

   end;

   /** divide the amount by the number of months.                                                          **/

   do L=1 to DIM(ui);

     if uiamt(L)>10000 and uimnths>0 and ui(L)>0 then do;

        uiamt(L)=round(uiamt(L)/uimnths, 1);

     end;

   end;

   do L=1 to DIM(ui);                                                                             /** [B5] **/

      if 1 le L le 12 then do;

         if um80 ge 0 and ui(L)>0 then do;

            um80=um80+1;

         end;

         if ui(L)>1 then um80=-3;

         if -3 le uiamt(L) le -1 then do;

           un80=un80+1;

           uamt80=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

           ua80=ua80+1;

           if ua80=1 and un80=0 then uamt80=uiamt(L);

           if ua80>1 and un80=0 then uamt80=uamt80+uiamt(L);

           if um80=-3 then uamt80=-3;

         end;

      end;

      if 13 le L le 24 then do;

         if um81 ge 0 and ui(L)>0 then do;

            um81=um81+1;

         end;

         if ui(L)>1 then um81=-3;

         if -3 le uiamt(L) le -1 then do;

            un81=un81+1;

            uamt81=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua81=ua81+1;

            if ua81=1 and un81=0 then uamt81=uiamt(L);

            if ua81>1 and un81=0 then uamt81=uamt81+uiamt(L);

            if um81=-3 then uamt81=-3;

         end;

      end;

      if 25 le L le 36 then do;

         if um82 ge 0 and ui(L)>0 then do;

            um82=um82+1;

         end;

         if ui(L)>1 then um82=-3;

         if -3 le uiamt(L) le -1 then do;

            un82=un82+1;

            uamt82=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua82=ua82+1;

            if ua82=1 and un82=0 then uamt82=uiamt(L);

            if ua82>1 and un82=0 then uamt82=uamt82+uiamt(L);

            if um82=-3 then uamt82=-3;

         end;

      end;

      if 37 le L le 48 then do;

         if um83 ge 0 and ui(L)>0 then do;

            um83=um83+1;

         end;

         if ui(L)>1 then um83=-3;

         if -3 le uiamt(L) le -1 then do;

            un83=un83+1;

            uamt83=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua83=ua83+1;

            if ua83=1 and un83=0 then uamt83=uiamt(L);

            if ua83>1 and un83=0 then uamt83=uamt83+uiamt(L);

            if um83=-3 then uamt83=-3;

          end;

      end;

      if 49 le L le 60 then do;

         if um84 ge 0 and ui(L)>0 then do;

            um84=um84+1;

         end;

         if ui(L)>1 then um84=-3;

         if -3 le uiamt(L) le -1 then do;

            un84=un84+1;

            uamt84=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua84=ua84+1;

            if ua84=1 and un84=0 then uamt84=uiamt(L);

            if ua84>1 and un84=0 then uamt84=uamt84+uiamt(L);

            if um84=-3 then uamt84=-3;

         end;

      end;

      if 61 le L le 72 then do;

         if um85 ge 0 and ui(L)>0 then do;

            um85=um85+1;

         end;

         if ui(L)>1 then um85=-3;

         if -3 le uiamt(L) le -1 then do;

            un85=un85+1;

            uamt85=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua85=ua85+1;

            if ua85=1 and un85=0 then uamt85=uiamt(L);

            if ua85>1 and un85=0 then uamt85=uamt85+uiamt(L);

            if um85=-3 then uamt85=-3;

         end;

      end;

      if 73 le L le 84 then do;

         if um86 ge 0 and ui(L)>0 then do;

            um86=um86+1;

         end;

         if ui(L)>1 then um86=-3;

         if -3 le uiamt(L) le -1 then do;

            un86=un86+1;

            uamt86=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua86=ua86+1;

            if ua86=1 and un86=0 then uamt86=uiamt(L);

            if ua86>1 and un86=0 then uamt86=uamt86+uiamt(L);

            if um86=-3 then uamt86=-3;

         end;

      end;

      if 85 le L le 96 then do;

         if um87 ge 0 and ui(L)>0 then do;

            um87=um87+1;

         end;

         if ui(L)>1 then um87=-3;

         if -3 le uiamt(L) le -1 then do;

            un87=un87+1;

            uamt87=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua87=ua87+1;

            if ua87=1 and un87=0 then uamt87=uiamt(L);

            if ua87>1 and un87=0 then uamt87=uamt87+uiamt(L);

            if um87=-3 then uamt87=-3;

         end;

      end;

      if 97 le L le 108 then do;

         if um88 ge 0 and ui(L)>0 then do;

            um88=um88+1;

         end;

         if ui(L)>1 then um88=-3;

         if -3 le uiamt(L) le -1 then do;

            un88=un88+1;

            uamt88=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua88=ua88+1;

            if ua88=1 and un88=0 then uamt88=uiamt(L);

            if ua88>1 and un88=0 then uamt88=uamt88+uiamt(L);

            if um88=-3 then uamt88=-3;

         end;

      end;

      if 109 le L le 120 then do;

         if um89 ge 0 and ui(L)>0 then do;

            um89=um89+1;

         end;

         if ui(L)>1 then um89=-3;

         if -3 le uiamt(L) le -1 then do;

            un89=un89+1;

            uamt89=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua89=ua89+1;

            if ua89=1 and un89=0 then uamt89=uiamt(L);

            if ua89>1 and un89=0 then uamt89=uamt89+uiamt(L);

            if um89=-3 then uamt89=-3;

         end;

      end;

      if 121 le L le 132 then do;

         if um90 ge 0 and ui(L)>0 then do;

            um90=um90+1;

         end;

         if ui(L)>1 then um90=-3;

         if -3 le uiamt(L) le -1 then do;

            un90=un90+1;

            uamt90=uiamt(L);

         end;

          if uiamt(L) ge 0 then do;

            ua90=ua90+1;

            if ua90=1 and un90=0 then uamt90=uiamt(L);

            if ua90>1 and un90=0 then uamt90=uamt90+uiamt(L);

            if um90=-3 then uamt90=-3;

         end;

      end;

      if 133 le L le 144 then do;

         if um91 ge 0 and ui(L)>0 then do;

            um91=um91+1;

         end;

         if ui(L)>1 then um91=-3;

         if -3 le uiamt(L) le -1 then do;

            un91=un91+1;

            uamt91=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua91=ua91+1;

            if ua91=1 and un91=0 then uamt91=uiamt(L);

            if ua91>1 and un91=0 then uamt91=uamt91+uiamt(L);

            if um91=-3 then uamt91=-3;

         end;

      end;

      if 145 le L le 156 then do;

         if um92 ge 0 and ui(L)>0 then do;

            um92=um92+1;

         end;

         if ui(L)>1 then um92=-3;

         if -3 le uiamt(L) le -1 then do;

            un92=un92+1;

            uamt92=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua92=ua92+1;

            if ua92=1 and un92=0 then uamt92=uiamt(L);

            if ua92>1 and un92=0 then uamt92=uamt92+uiamt(L);

            if um92=-3 then uamt92=-3;

         end;

      end;

      if 157 le L le 168 then do;

         if um93 ge 0 and ui(L)>0 then do;

            um93=um93+1;

         end;

         if ui(L)>1 then um93=-3;

         if -3 le uiamt(L) le -1 then do;

            un93=un93+1;

            uamt93=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua93=ua93+1;

            if ua93=1 and un93=0 then uamt93=uiamt(L);

            if ua93>1 and un93=0 then uamt93=uamt93+uiamt(L);

            if um93=-3 then uamt93=-3;

          end;

      end;

      if 169 le L le 180 then do;

         if um94 ge 0 and ui(L)>0 then do;

            um94=um94+1;

         end;

         if ui(L)>1 then um94=-3;

          if -3 le uiamt(L) le -1 then do;

            un94=un94+1;

            uamt94=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

             ua94=ua94+1;

            if ua94=1 and un94=0 then uamt94=uiamt(L);

            if ua94>1 and un94=0 then uamt94=uamt94+uiamt(L);

            if um94=-3 then uamt94=-3;

         end;

      end;

      if 181 le L le 192 then do;

         if um95 ge 0 and ui(L)>0 then do;

            um95=um95+1;

         end;

         if ui(L)>1 then um95=-3;

         if -3 le uiamt(L) le -1 then do;

            un95=un95+1;

            uamt95=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua95=ua99+1;

            if ua95=1 and un95=0 then uamt95=uiamt(L);

            if ua95>1 and un95=0 then uamt95=uamt95+uiamt(L);

            if um95=-3 then uamt95=-3;

         end;

      end;

      if 193 le L le 204 then do;

         if um96 ge 0 and ui(L)>0 then do;

            um96=um96+1;

         end;

         if ui(L)>1 then um96=-3;

         if -3 le uiamt(L) le -1 then do;

            un96=un96+1;

            uamt96=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua96=ua96+1;

            if ua96=1 and un96=0 then uamt96=uiamt(L);

            if ua96>1 and un96=0 then uamt96=uamt96+uiamt(L);

            if um96=-3 then uamt96=-3;

         end;

      end;

      if 205 le L le 216 then do;

         if um97 ge 0 and ui(L)>0 then do;

            um97=um97+1;

         end;

         if ui(L)>1 then um97=-3;

         if -3 le uiamt(L) le -1 then do;

            un97=un97+1;

            uamt97=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua97=ua97+1;

            if ua97=1 and un97=0 then uamt97=uiamt(L);

            if ua97>1 and un97=0 then uamt97=uamt97+uiamt(L);

            if um97=-3 then uamt97=-3;

         end;

      end;

      if 217 le L le 228 then do;

         if um98 ge 0 and ui(L)>0 then do;

            um98=um98+1;

         end;

         if ui(L)>1 then um98=-3;

          if -3 le uiamt(L) le -1 then do;

            un98=un98+1;

            uamt98=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua98=ua98+1;

            if ua98=1 and un98=0 then uamt98=uiamt(L);

            if ua98>1 and un98=0 then uamt98=uamt98+uiamt(L);

            if um98=-3 then uamt98=-3;

         end;

      end;

      if 229 le L le 240 then do;

         if um99 ge 0 and ui(L)>0 then do;

            um99=um99+1;

         end;

         if ui(L)>1 then um99=-3;

         if -3 le uiamt(L) le -1 then do;

            un99=un99+1;

            uamt99=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua99=ua99+1;

            if ua99=1 and un99=0 then uamt99=uiamt(L);

            if ua99>1 and un99=0 then uamt99=uamt99+uiamt(L);

            if um99=-3 then uamt99=-3;

         end;

      end;

      if 241 le L le 252 then do;

         if um00 ge 0 and ui(L)>0 then do;

            um00=um00+1;

         end;

         if ui(L)>1 then um00=-3;

         if -3 le uiamt(L) le -1 then do;

            un00=un00+1;

            uamt00=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua00=ua00+1;

            if ua00=1 and un00=0 then uamt00=uiamt(L);

            if ua00>1 and un00=0 then uamt00=uamt00+uiamt(L);

            if um00=-3 then uamt00=-3;

         end;

      end;

      if 253 le L le 264 then do;

         if um01 ge 0 and ui(L)>0 then do;

            um01=um01+1;

         end;

         if ui(L)>1 then um01=-3;

         if -3 le uiamt(L) le -1 then do;

            un01=un01+1;

            uamt01=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua01=ua01+1;

            if ua01=1 and un01=0 then uamt01=uiamt(L);

            if ua01>1 and un01=0 then uamt01=uamt01+uiamt(L);

            if um01=-3 then uamt01=-3;

         end;

      end;

      if 265 le L le 276 then do;

         if um02 ge 0 and ui(L)>0 then do;

            um02=um02+1;

         end;

         if ui(L)>1 then um02=-3;

         if -3 le uiamt(L) le -1 then do;

            un02=un02+1;

            uamt02=uiamt(L);

         end;

         if uiamt(L) ge 0 then do;

            ua02=ua02+1;

            if ua02=1 and un02=0 then uamt02=uiamt(L);

            if ua02>1 and un02=0 then uamt02=uamt02+uiamt(L);

            if um02=-3 then uamt02=-3;

         end;

      end;

   end;                                                                                           /** [E5] **/

end;                                                                                              /** [E4] **/

/**    Part 3. Combining information from earlier rounds                                                    **/

/** Calculating total months ever received.                                                                **/

do L=1 to DIM(ui);

   if ttlu ge 0 and ui(L)>0 then do;

      ttlu=ttlu+1;

   end;

   if ui(L)>1 then ttlu=-3;

   if -3 le ui(L) lt 0 then ttlu=-3;

end;

if ttlu ge 0 and ui_ever ge 0 then do;

   ttlu=ttlu+ui_ever;

end;

if ttlu<0 OR ui_ever<0 then do;

   ttlu=-3;

end;

/** Calculating the unemployment spells.                                                                   **/

do I=1 to DIM(nu);

   if ui_spells(I)=-4 then ui_spells(I)=0;

   if nu(I) ge 0 and ui_spells(I) ge 0 then do;

      nu(I)=nu(I)+ui_spells(I);

   end;

   if (ui_spells(I) ge -3 and ui_spells(I) le -1) then do;

       nu(I)=-3;

   end;

   if nu(I)=0 and oldui_spells(I)=-4 then do;

      nu(I)=-4;

   end;

end;

/** Calculating the total number of months and total amount receiving in each year.                        **/

do I=1 to DIM(uitotal);

   if uitotal(I)=-4 then uitotal(I)=0;

   if uiatotal(I)=-4 then uiatotal(I)=0;

   if um(I) ge 0 and uitotal(I) ge 0 then do;

      uitotal(I)=um(I)+uitotal(I);

   end;

   if um(I)<0 OR uitotal(I)<0 then do;

      uitotal(I)=-3;

   end;

   if uamt(I) ge 0 and uiatotal(I) ge 0 then do;

      uiatotal(I)=uamt(I)+uiatotal(I);

   end;

   if uamt(I)<0 OR uiatotal(I)<0 OR uitotal(I)<0 then do;

      uiatotal(I)=-3;

   end;

   if uamt(I)=0 and olduiatotal(I)=-4 and uitotal(I)=0 then do;

      uiatotal(I)=-4;

   end;

end;

/** Giving Valid skips (-4) to those not eligible for program participation at DLI and -5 to noninterviews.**/

do I=1 to DIM(uitotal);

   if p1210=-4 then do;

      uitotal(I)=-4;

      nu(I)=-4;

      uiatotal(I)=-4;

      ttlu=-4;

   end;

   if p1210=-5 then do;

      uitotal(I)=-5;

      nu(I)=-5;

      uiatotal(I)=-5;

      ttlu=-5;

   end;

end;

/** To change all invalid skips to -3.                                                                     **/

array vars uitotal80-uitotal99 uitotal00 uitotal01 uitotal02

           uiatotal80-uiatotal99 uiatotal00 uiatotal01 uiatotal02

           nu80-nu99 nu00 nu01 nu02 ttlu;

do over vars;

   if vars=-2 then vars=-3;

   if vars=-1 then vars=-3;

end;

/******* SECTION 2:  WORKERS COMPENSATION *******/

/** All the arrays used in this program.                                                                   **/

array intd        (4)    int00_d int99_d int98_d int97_d;

array intm        (4)    int00_m int99_m int98_m int97_m;

array inty        (4)    int00_y int99_y int98_y int97_y;

array wcatotalpr  (4,23) wca4total80-wca4total99 wca4total00 wca4total01 wca4total02

                         wca3total80-wca3total99 wca3total00 wca3total01 wca3total02

                         wca2total80-wca2total99 wca2total00 wca2total01 wca2total02

                         wca1total80-wca1total99 wca1total00 wca1total01 wca1total02;

array wcatotal    (23)   wcatotal80-wcatotal99   wcatotal00  wcatotal01  wcatotal02;

array oldwcatotal (23)   oldwcatotal80-oldwcatotal99     oldwcatotal00   oldwcatotal01  oldwcatotal02;

array wcm         (23)   wcm80-wcm99      wcm00   wcm01   wcm02;

array camt        (23)   camt80-camt99    camt00  camt01  camt02;

array wca         (23)   wca80-wca99      wca00   wca01   wca02;

array wcn         (23)   wcn80-wcn99      wcn00   wcn01   wcn02;

array wc          (269)  wc001-wc269;

array wcamt       (269)  wcamt001-wcamt269;

array yms         (2)    ymsc11 ymsc21;

array csm         (2)    csmc11 csmc21;

array yme         (2)    ymec11 ymec21;

array cem         (2)    cemc11 cemc21;

array s_day       (2)    sdayc11 sdayc21;

array e_day       (2)    edayc11 edayc21;

array eflag       (2)    eflagc11 eflagc21;

array aflag       (2)    aflagc11 aflagc21;

array mos         (2)    mosc11 mosc21;

array agefl       (2)    ageflc11 ageflc21;

array ymsmo       (2)    ymsmo11 ymsmo21;

array ymemo       (2)    ymemo11 ymemo21;

array newms       (2)    newms11 newms21;

array newme       (2)    newme11 newme21;

/** start YEAR, MONTH, ACTUAL DAY and ESTIMATED DAY information.                                           **/

array ys          (2)    ps102001Y p102001Y;

array ms          (2)    ps102001M p102001M;

array ds          (2)    ps104001 p104001;

array es          (2)    ps105001 p105001;

/** end YEAR, MONTH, ACTUAL DAY and ESTIMATED DAY information.                                             **/

array ye          (2)    ps109001Y p109001Y;

array me          (2)    ps109001M p109001M;

array de          (2)    ps111001 p111001;

array ee          (2)    ps112001 p112001;

/** ESTIMATED WEEKS - if unable to answer start or stop date questions.                                    **/

array wks         (2)    ps114001 p114001;

/** CURRENTLY receiving information:                                                                       **/

array cur         (2)    ps106001 p106001;

array cwks        (2)    ps9900 p9700;

/** Receiving at DLI:                                                                                      **/

array dli         (2)    ps9800 p9800;

/** AMOUNT RECEIVED - actual & estimated.                                                                  **/

array inc         (2)    ps121001 p121001;

array einc        (2)    ps122001 p122001;

/**    Part 1. Creating certain basic variables                                                             **/

/** change weekly wc figures to daily amount.                                                              **/

do J=1 to 2;

   if inc(J) gt 0 then inc(J)=inc(J)/7;

end;

/** change previous round variables to account for noninterviews -

    If r4 interview, use r4 created var. If noninterview in r4, then use r3 variable.

    If noninterview in r3, then use r2 variable. If noninterview in r2, then use r1 variable

    If variable not in r1, r2, r3 or r4 then set to 0.                                                     **/

do Q=1 to 4;

   if inty(Q) ne -5 then do;

      do I=1 to 23;

         wcatotal(I)=wcatotalpr(Q,I);

      end;

      Q=4;

   end;

end;

do I=1 to 23;

   oldwcatotal(I)=wcatotal(I);

   if wcatotal(I)=. then do;

      oldwcatotal(I)=-4;

      wcatotal(I)=0;

   end;

end;

/** Initialize the following counters to zero.                                                             **/

/** Counter for WCAMT ge 0 (receiving positive amounts) but WC=0 (not receiving).                          **/

/** Counter for WC gt 0 (receiving) but WCAMT is missing (amount receiving info not available)             **/

/** Total number of months ever received.                                                                  **/

/** Month counter for correction of problematic amounts reported.                                          **/

wcck=0;

wcckm=0;

wcckmm=0;

wcmnths=0;

SAMEMONTH=0;

/** Creating variables relating to date of birth, age, age 14 etc.                                         **/

cm14=((bdate_y+14)-1980)*12+bdate_m;

ym14=(bdate_y*100+bdate_m)+1400;

cmb=((bdate_y)-1980)*12+bdate_m;

doicm=(yint_y-1980)*12+yint_m;

iym=yint_y*100+yint_m;

aaicm=(yint_y-bdate_y)*12+yint_m-bdate_m;

array mon   (12) mon1-mon12;

array wcday (12) wcday1-wcday12;

do Z=1 to 12;

   mon(Z)=Z;

end;

do Z=1 to 12;

   if mon(Z)=1 OR mon(Z)=3 OR mon(Z)=5 OR mon(Z)=7 OR mon(Z)=8 OR mon(Z)=10 OR mon(Z)=12

   then do;

      wcday(Z)=31;

   end;

   if mon(Z)=2 then do;

      wcday(Z)=28;

   end;

   if mon(Z)=4 OR mon(Z)=6 OR mon(Z)=9 OR mon(Z)=11 then do;

      wcday(Z)=30;

   end;

end;

/** Creating variables pertaining to the date of last interview.                                           **/

if p1210=1 then do;

   do Q=1 to 4;

      if inty[Q] ne -5 then do;

         if intm[Q] lt 12 then dliym=(inty[Q]*100)+(intm[Q]+1);

         if intm[Q]=12 then dliym=((inty[Q]+1)*100)+1;

         dlicm=((inty[Q]-1980)*12)+(intm[Q]+1);

         dli_d=intd[Q];

         dli_m=dliym-round(dliym,100);

         dli_y=round(dliym,100)/100;

         Q=4;

      end;

   end;

end;

if p1210 ne 1 then do;

   dliym=ym14;

   dli_d=bdate_d;

   dli_m=bdate_m;

   dli_y=bdate_y;

   dlicm=cm14;

end;

do Z=1 to 12;

   if yint_m=mon(Z) then intday=wcday(Z)+1-yint_d;

   if dli_m=mon(Z) then ddliday=wcday(Z)+1-dli_d;

end;

if dli_m=1 OR dli_m=8 then do;

   dliday=(31-dli_d+31);

   dliday1=31-dli_d;

   dliday2=31;

end;

if dli_m=3 then do;

   dliday=(28-dli_d+31);

   dliday1=28-dli_d;

   dliday2=31;

end;

if dli_m=5 OR dli_m=7 OR dli_m=10 OR dli_m=12 then do;

   dliday=(30-dli_d+31);

   dliday1=30-dli_d;

   dliday2=31;

end;

if dli_m=4 OR dli_m=6 OR dli_m=9 OR dli_m=11 then do;

   dliday=(31-dli_d+30);

   dliday1=31-dli_d;

   dliday2=30;

end;

if dli_m=2 then do;

   dliday=(31-dli_d+28);

   dliday1=31-dli_d;

   dliday2=28;

end;

/**    Part 2. Creating variables using Round 5 informaiton                                                 **/

if p1210>-4 then do;                                                                                             /** [B1] **/

   /** Combining currently receiving information for the NEVER PRIOR sections.                             **/

   if ps9867>-3 then p9700=ps9867;

   /** Initializing all wc from the month of birth to the date of current interview to zero.               **/

   do L=1 to 269;

      if cmb le L le doicm then do;

         wc(L)=0;

      end;

   end;

/**  This portion of the SAS program defines the start date and end dates.  If the respondent reports still receiving, the interview date is used as the temporary end date for the last loop reported. In the next survey round, the respondent will be asked if he or she is still recieving and, if not, a permanent end date eqwcvalent to the interview date of the previous round will be assigned. Users  will be able to tell which method was used by looking at the following participation flag variable  created during the program.  The categories are the following:

           1=respondent reported participation dates

           2=start month imputed

           3=start month and year imputed

           4=stop month imputed

           5=stop month and year imputed

           6=start and stop dates imputed

           7=error in data due to round 2 programming error   **/

      do J=1 to 2;                                                                                        /** [B2] **/

/** 1.   If start and stop dates are all valid                                                             **/

         if ys(J)>0 and ms(J)>0 then do;

            yms(J)=(ys(J)*100)+ms(J);

            /** set start day, if given.                                                                   **/

            if ds(J)>0 OR es(J)>0 then do;

               if ms(J)=1 OR ms(J)=3 OR ms(J)=5 OR ms(J)=7 OR ms(J)=8 OR ms(J)=10 OR ms(J)=12

               then do;

                  if ds(J)>0 and ds(J) ne . then s_day(J)=(32-ds(J));

                  if es(J)=1 then s_day(J)=31;

                  if es(J)=2 then s_day(J)=21;

                  if es(J)=3 then s_day(J)=11;

               end;

               if ms(J)=4 OR ms(J)=6 OR ms(J)=9 OR ms(J)=11 then do;

                  if ds(J)>0 and ds(J) ne . then s_day(J)=(31-ds(J));

                  if es(J)=1 then s_day(J)=30;

                  if es(J)=2 then s_day(J)=20;

                  if es(J)=3 then s_day(J)=10;

               end;

               if ms(J)=2 then do;

                  if ds(J)>0 and ds(J) ne . then s_day(J)=(29-ds(J));

                  if es(J)=1 then s_day(J)=28;

                  if es(J)=2 then s_day(J)=18;

                  if es(J)=3 then s_day(J)=8;

               end;

            end;

         end;

         /** set start date to DLI if receiving at DLI.                                                    **/

         if dli(J)=1 then do;

            yms(J)=dliym;

            s_day(J)=dliday;

            if ps9900=1 then do;

               yme(J)=iym;

               e_day(J)=yint_d;

               NOGAPS=1;

            end;

         end;

         /** set start date to DLI if start date is before DLI.                                            **/

         if yms(J) ne . and yms(J)<dliym then do;

            yms(J)=dliym;

            s_day(J)=ddliday;

         end;

         /** set end date to current int date if receiving now.                                            **/

         if cur(J)=1 then do;

            yme(J)=iym;

            e_day(J)=yint_d;

         end;

         /** set end date if both end month and year are valid.                                            **/

         if ye(J)>0 and me(J)>0 then do;

            yme(J)=(ye(J)*100)+me(J);

            /** set end day, if given.                                                                     **/

            if de(J)>0 and de(J) ne . then do;

               e_day(J)=de(J);

            end;

            /** end day unknown, estimate given.                                                           **/

            if de(J)<0 and ee(J)>0 and ee(J) ne . then do;

               if ee(J)=1 then e_day(J)=9;

               if ee(J)=2 then e_day(J)=19;

               if ee(J)=3 then e_day(J)=28;

            end;

         end;

         /** if end month greater than int month, constrain by int month.                                  **/

         if yme(J)>iym then do;

            yme(J)=iym;

            e_day(J)=yint_d;

         end;

         if yms(J)>0 and yme(J) ge dliym then eflag(J)=1;

         /** determine months from estimated weeks variable.                                               **/

         if wks(J) ge 0 and (ys(J)<0 OR ms(J)<0 OR ye(J)<0 OR me(J)<0) then do;

            mos(J)=floor(wks(J)/4.3);

         end;

         agefl(J)=0;

         if ys(J)>0 and ys(J)<1990 then agefl(J)=1;

/** 2.   If start year is known and month is unknown

         Note: if wks ge -3 then it means that stop date is not known.                                     **/

         if ys(J)>0 and -3 le ms(J) le -1 then do;

/** 2.a  If weeks are known and currently receiving, then count backwards by the number of weeks from the

         current interview date.  If the number of weeks falls short of the start year, the start month is

         December of that year. If the number of weeks is past the start year, then the start month is January of that year. **/

            if (wks(J) ge 0 and cwks(J)=1) then do;

               yme(J)=iym;

               e_day(J)=yint_d;

               if                 mos(J) le  yint_m      then yms(J)=yme(J)-      mos(J)     ;

               if (yint_m+ 0)  le mos(J) le (yint_m+ 12) then yms(J)=yme(J)- 100-(mos(J)- 12);

               if (yint_m+12)  le mos(J) le (yint_m+ 24) then yms(J)=yme(J)- 200-(mos(J)- 24);

               if (yint_m+24)  le mos(J) le (yint_m+ 36) then yms(J)=yme(J)- 300-(mos(J)- 36);

               if (yint_m+36)  le mos(J) le (yint_m+ 48) then yms(J)=yme(J)- 400-(mos(J)- 48);

               if (yint_m+48)  le mos(J) le (yint_m+ 60) then yms(J)=yme(J)- 500-(mos(J)- 60);

               if (yint_m+60)  le mos(J) le (yint_m+ 72) then yms(J)=yme(J)- 600-(mos(J)- 72);

               if (yint_m+72)  le mos(J) le (yint_m+ 84) then yms(J)=yme(J)- 700-(mos(J)- 84);

               if (yint_m+84)  le mos(J) le (yint_m+ 96) then yms(J)=yme(J)- 800-(mos(J)- 96);

               if (yint_m+96)  le mos(J) le (yint_m+108) then yms(J)=yme(J)- 900-(mos(J)-108);

               if (yint_m+108) le mos(J) le (yint_m+120) then yms(J)=yme(J)-1000-(mos(J)-120);

               do Z=1 to 12;

                  if (yms(J)-(round(yms(J), 100)))=mon(Z) then s_day(J)=wcday(Z);

               end;

               if yms(J)<((ys(J)*100)+01) then do;

                  yms(J)=((ys(J)*100)+01);

                  s_day(J)=31;

               end;

               if yms(J)<dliym then do;

                  yms(J)=dliym;

                  s_day(J)=ddliday;

               end;

               if yms(J)>((ys(J)*100)+12) then do;

                  yms(J)=((ys(J)*100)+12);

                  s_day(J)=31;

               end;

            end;

/** 2.b  weeks missing and currently receiving - set end date to current interivew date and start date

         to December of start year and constrain start date by Current Interview Date and DLI.             **/

            else if (-3 le wks(J) lt 0 and cwks(J)=1) then do;

                 yme(J)=iym;

                 e_day(J)=yint_d;

                 yms(J)=((ys(J)*100)+12);

                 s_day(J)=31;

                 if yms(J)>iym then do;

                    yms(J)=iym;

                    s_day(J)=intday;

                 end;

                 if yms(J)<dliym then do;

                    yms(J)=dliym;

                    s_day(J)=ddliday;

                 end;

            end;

/** 2.c  weeks missing and not currently receiving - set start date to January of start year and end date

         to December of start year. Constrain start date by DLI and end date by Current Interview Date.    **/

            else if (-3 le wks(J) lt 0 and cwks(J)=0) then do;

                 yms(J)=((ys(J)*100)+01);

                 s_day(J)=31;

                 yme(J)=((ys(J)*100)+12);

                 e_day(J)=31;

                 if yms(J)<dliym then do;

                    yms(J)=dliym;

                    s_day(J)=ddliday;

                 end;

                 if yme(J)>iym then do;

                    yme(J)=iym;

                    e_day(J)=yint_d;

                 end;

            end;

/** 2.d  If weeks are known and not currently receiving, then count forward by the number of weeks from

         January of the start year. Constrain start date by DLI. If the count exceeds the interview date then

         stop counting at the interview date.                                                              **/

            else if (wks(J) ge 0 and cwks(J)=0) then do;

                 yms(J)=((ys(J)*100)+01);

                 s_day(J)=31;

                 if yms(J)<dliym then do;

                    yms(J)=dliym;

                    s_day(J)=ddliday;

                 end;

                 ymsmo(J)=(yms(J)-round(yms(J),100))+mos(J);

                 if   0 le ymsmo(J) le  12 then yme(J)=yms(J)+  0+mos(J)-  0;

                 if  13 le ymsmo(J) le  24 then yme(J)=yms(J)+100+mos(J)- 12;

                 if  25 le ymsmo(J) le  36 then yme(J)=yms(J)+200+mos(J)- 24;

                 if  37 le ymsmo(J) le  48 then yme(J)=yms(J)+300+mos(J)- 36;

                 if  49 le ymsmo(J) le  60 then yme(J)=yms(J)+400+mos(J)- 48;

                 if  61 le ymsmo(J) le  72 then yme(J)=yms(J)+500+mos(J)- 60;

                 if  73 le ymsmo(J) le  84 then yme(J)=yms(J)+600+mos(J)- 72;

                 if  85 le ymsmo(J) le  96 then yme(J)=yms(J)+700+mos(J)- 84;

                 if  97 le ymsmo(J) le 108 then yme(J)=yms(J)+800+mos(J)- 96;

                 if 109 le ymsmo(J) le 120 then yme(J)=yms(J)+900+mos(J)-108;

                 do Z=1 to 12;

                    if (yme(J)-(round(yme(J), 100)))=mon(Z) then e_day(J)=wcday(Z);

                 end;

                 if yme(J)>iym then do;

                    yme(J)=iym;

                    e_day(J)=yint_d;

                 end;

            end;

         if yme(J)>0 and CWKS(J)=0 then do;

            yms(J)=((ys(J)*100)+01);

            s_day(J)=31;

         end;

         if yms(J)<dliym then do;

            yms(J)=dliym;

            s_day(J)=ddliday;

         end;

         eflag(J)=2;

         end;

/** 3.   If start year is unknown.                                                                         **/

         if -3 le ys(J) le -1 then do;

/** 3.a  If currently receiving and weeks are known then count back from interview date receiving.         **/

            if (wks(J) ge 0 and cwks(J)=1) then do;

               if      0       le mos(J) le (yint_m+  0) then yms(J)=iym-   0-(mos(J)-  0);

               if (yint_m+  0) le mos(J) le (yint_m+ 12) then yms(J)=iym- 100-(mos(J)- 12);

               if (yint_m+ 12) le mos(J) le (yint_m+ 24) then yms(J)=iym- 200-(mos(J)- 24);

               if (yint_m+ 24) le mos(J) le (yint_m+ 36) then yms(J)=iym- 300-(mos(J)- 36);

               if (yint_m+ 36) le mos(J) le (yint_m+ 48) then yms(J)=iym- 400-(mos(J)- 48);

               if (yint_m+ 48) le mos(J) le (yint_m+ 60) then yms(J)=iym- 500-(mos(J)- 60);

               if (yint_m+ 60) le mos(J) le (yint_m+ 72) then yms(J)=iym- 600-(mos(J)- 72);

               if (yint_m+ 72) le mos(J) le (yint_m+ 84) then yms(J)=iym- 700-(mos(J)- 84);

               if (yint_m+ 84) le mos(J) le (yint_m+ 96) then yms(J)=iym- 800-(mos(J)- 96);

               if (yint_m+ 96) le mos(J) le (yint_m+108) then yms(J)=iym- 900-(mos(J)-108);

               if (yint_m+108) le mos(J) le (yint_m+120) then yms(J)=iym-1000-(mos(J)-120);

               do Z=1 to 12;

                  if yms(J)-(round(yms(J),100))=mon(Z) then s_day(J)=wcday(Z);

               end;

               yme(J)=iym;

               e_day(J)=yint_d;

               if yms(J)<dliym then do;

                  yms(J)=dliym;

                  s_day(J)=ddliday;

               end;

            end;

/** 3.a  If currently receiving and weeks are unknown then take DLI as start date and Current Interview Date

         as stop date.                                                                                     **/

            if (-3 le wks(J) lt 0 and cwks(J)=1) then do;

               yms(J)=dliym;

               yme(J)=iym;

               s_day(J)=ddliday;

               e_day(J)=yint_d;

            end;

/** 3.c  If weeks are known, then count back from interview date to find the most recent year the respondent

         could have begun receiving and receive for that number of months. Set start date as January of that

         year. If currently not receiving then count forward the number of months from January of that year

         and set the stop date. If currently receiving then just set the Current Interview date as the stop

         date. Constrain start and stop dates by DLI and Current Interview Date, respectively.             **/

            if (wks(J) ge 0 and cwks(J)=0) then do;

               if 0 le mos(J) le yint_m then do;

                  yms(J)=(yint_y*100)+01;

                  yme(J)=(yint_y*100)+01+mos(J);

               end;

               if (yint_m+01) le mos(J) le (yint_m+12) then do;

                  yms(J)=((yint_y-1)*100)+01;

                  if mos(J) le 12 then yme(J)=((yint_y-1)*100)+01+mos(J);

                  if mos(J) ge 13 then yme(J)=(yint_y*100)+01+mos(J)-12;

               end;

               if (yint_m+13) le mos(J) le (yint_m+24) then do;

                  yms(J)=((yint_y-2)*100)+01;

                  if mos(J) le 24 then yme(J)=((yint_y-1)*100)+01+mos(J)-12;

                  if mos(J) ge 25 then yme(J)=(yint_y*100)+01+mos(J)-24;

               end;

               if (yint_m+25) le mos(J) le (yint_m+36) then do;

                  yms(J)=((yint_y-3)*100)+01;

                  if mos(J) le 36 then yme(J)=((yint_y-1)*100)+01+mos(J)-24;

                  if mos(J) ge 37 then yme(J)=(yint_y*100)+01+mos(J)-36;

               end;

               if (yint_m+37) le mos(J) le (yint_m+48) then do;

                  yms(J)=((yint_y-4)*100)+01;

                  if mos(J) le 48 then yme(J)=((yint_y-1)*100)+01+mos(J)-36;

                  if mos(J) ge 49 then yme(J)=(yint_y*100)+01+mos(J)-48;

               end;

               s_day(J)=31;

               do Z=1 to 12;

                  if (yme(J)-(round(yms(J),100)))=mon(Z) then e_day(J)=wcday(Z);

               end;

               if yme(J)>iym then do;

                  yme(J)=iym;

                  e_day(J)=yint_d;

               end;

            end;

            eflag(J)=3;

         end;

        if yme(J)>0 and yms(J)=. then do;

            yms(J)=dliym;

            s_day(J)=ddliday;

            if j=1 then eflag(J)=3;

            else if j>1 then eflag(J)=7;

         end;

/**      Note: If either stop month or year is ge -3 then it implies that this unemp spell has ended. Even if

         the respondent reports currently receiving that would imply another loop.                         **/

/** 4.   If stop year is known and stop month is unknown.                                                  **/

         if yms(J)>0 and ye(J)>0 and -3 le me(J) le -1 then do;

/** 4.a  If weeks are known, then count forward from start year.  If the number of months falls short of the

         stop year, then use January of the end year as the stop date. If the number of months exceeds the

         stop year, then end the array in the December of the stop year. Constrain stop date by Current

         Interview Date. If currently receiving then use interview date as the stop date.                  **/

            if wks(J) ge 0 then do;

               ymsmo(J)=yms(J)- round (yms(J),100);

               if 01 le (ymsmo(J)+mos(J)) le 12 then yme(J)=yms(J)+mos(J);

               if 13 le (ymsmo(J)+mos(J)) le 24 then yme(J)=yms(J)+100+mos(J)-12;

               if 25 le (ymsmo(J)+mos(J)) le 36 then yme(J)=yms(J)+200+mos(J)-24;

               if 37 le (ymsmo(J)+mos(J)) le 48 then yme(J)=yms(J)+300+mos(J)-36;

               if 49 le (ymsmo(J)+mos(J)) le 60 then yme(J)=yms(J)+400+mos(J)-48;

               if 61 le (ymsmo(J)+mos(J)) le 72 then yme(J)=yms(J)+500+mos(J)-60;

               if 73 le (ymsmo(J)+mos(J)) le 84 then yme(J)=yms(J)+600+mos(J)-72;

               do Z=1 to 12;

                  if yme(J)-round(yme(J),100)=mon(Z) then e_day(J)=wcday(Z);

               end;

               if yme(J)>((ye(J)*100)+12) then do;

                  yme(J)=((ye(J)*100)+12);

                  e_day(J)=31;

               end;

               if yme(J)<((ye(J)*100)+01) then do;

                  yme(J)=((ye(J)*100)+01);

                  e_day(J)=31;

               end;

               if yme(J)>iym then do;

                  yme(J)=iym;

                  e_day(J)=yint_d;

               end;

            end;

/** 4.b  Ifweeks are unknown, then set December of stop year as the stop month.                            **/

            if -3 le wks(J) lt 0 then do;

               yme(J)=((ye(J)*100)+12);

               e_day(J)=31;

            end;

            if yme(J)>iym then do;

               yme(J)=iym;

               e_day(J)=yint_d;

            end;

            eflag(J)=4;

         end;

/** 5.   If stop year is unknown.                                                                          **/

         if -3 le ye(J) le -1 then do;

/** 5.a  If weeks are known then count forward by the number of weeks from the start date and constrain stop

         date by Current Interview date.                                                                   **/

            if yms(J)>0 and wks(J) ge 0 then do;

               ymsmo(J)=yms(J)- round (yms(J),100);

               if 01 le (ymsmo(J)+mos(J)) le 12 then yme(J)=yms(J)+mos(J);

               if 13 lt (ymsmo(J)+mos(J)) le 24 then yme(J)=yms(J)+100+mos(J)-12;

               if 25 lt (ymsmo(J)+mos(J)) le 36 then yme(J)=yms(J)+200+mos(J)-24;

               if 37 le (ymsmo(J)+mos(J)) le 48 then yme(J)=yms(J)+300+mos(J)-36;

               if 49 le (ymsmo(J)+mos(J)) le 60 then yme(J)=yms(J)+400+mos(J)-48;

               if 61 le (ymsmo(J)+mos(J)) le 72 then yme(J)=yms(J)+500+mos(J)-60;

               if 73 le (ymsmo(J)+mos(J)) le 84 then yme(J)=yms(J)+600+mos(J)-72;

               do Z=1 to 12;

                  if yme(J)-round(yme(J),100)=mon(Z) then e_day(J)=wcday(Z);

               end;

               if yme(J)>iym then do;

                  yme(J)=iym;

                  e_day(J)=yint_d;

               end;

            end;

/** 5.b  If weeks are unknown then set stop date as December of start year.                                **/

            if yms(J)>0 and -3 le wks(J) lt 0 then do;

               yme(J)=(round (yms(J),100))+12;

               e_day(J)=31;

            end;

            if yme(J)>iym then do;

               yme(J)=iym;

               e_day(J)=yint_d;

            end;

            eflag(J)=5;

         end;

/** 6.   If the start and stop years are unknown and the weeks are unknown, use current and last

         interview date.                                                                                   **/

         if -3 le ys(J) le -1 and cwks(J)=0 and -3 le wks(J) lt 0 then do;

            yme(J)=iym;

            e_day(J)=yint_d;

            yms(J)=dliym;

            s_day(J)=ddliday;

            if j=1 then eflag(J)=6;

            else if j>1 then eflag(J)=7;

         end;

/**    This portion caculates the number of days receiving if start and end year and months are the same   **/

           newms(J)=(yms(J)- round (yms(J),100));

           newme(J)=(yme(J)- round (yme(J),100));

           if (yms(J)=yme(J) and yms(J) gt 0 and yms(J) ne . and newms(J) gt 0 and newms(J) ne .

              and e_day(J) ne . and e_day(J) ge 0 and s_day(J) ne . and s_day(J) ge 0) then do;

              SAMEMONTH=1;

              if (newms(J)=1 OR newms(J)=3 OR newms(J)=5 OR newms(J)=7

              OR newms(J)=8 OR newms(J)=10 OR newms(J)=12) then do;

                 if e_day(J) ge (32-s_day(J)) then do;

                    s_day(J)=e_day(J)-(32-s_day(J))+1;

                    e_day(J)=0;

                 end;

                 else if e_day(J) lt (32-s_day(J)) then do;

                      s_day(J)=0;

                      e_day(J)=0;

                      HANDEDIT=1;

                 end;

              end;

              if (newms(J)=4 OR newms(J)=6 OR newms(J)=9 OR newms(J)=11) then do;

                 if e_day(J) ge (31-s_day(J)) then do;

                    s_day(J)=e_day(J)-(31-s_day(J))+1;

                    e_day(J)=0;

                 end;

                 else if e_day(J) lt (31-s_day(J)) then do;

                      s_day(J)=0;

                      e_day(J)=0;

                      HANDEDIT=1;

                 end;

              end;

              if newms(J)=2 then do;

                 if e_day(J) ge (29-s_day(J)) then do;

                    s_day(J)=e_day(J)-(29-s_day(J))+1;

                    e_day(J)=0;

                 end;

                 else if e_day(J) lt (29-s_day(J)) then do;

                      s_day(J)=0;

                      e_day(J)=0;

                      HANDEDIT=1;

                 end;

              end;

           end;

/**  This portion of the program uses the category reported by the respondent to create an estimated amount.  The estimated amount is the midpoint rounded down.  Note that the 12th category lists $1251 as the amount.  This amount was chosen since the category is unbounded - the number represents one dollar above the lower bound.     **/

         if -3 le inc(J) le -1 and einc(J)=1 then inc(J)=(50/7);

         if -3 le inc(J) le -1 and einc(J)=2 then inc(J)=(125/7);

         if -3 le inc(J) le -1 and einc(J)=3 then inc(J)=(175/7);

         if -3 le inc(J) le -1 and einc(J)=4 then inc(J)=(225/7);

         if -3 le inc(J) le -1 and einc(J)=5 then inc(J)=(275/7);

         if -3 le inc(J) le -1 and einc(J)=6 then inc(J)=(351/7);

         if inc(J)>-4 then aflag(J)=0;

         csm(J)=(round(yms(J),100)-198000)*.12+(yms(J)-round(yms(J),100));

         cem(J)=(round(yme(J),100)-198000)*.12+(yme(J)-round(yme(J),100));

         cdli=(round(dliym,100)-198000)*.12+(dliym-round(dliym,100))-1;

         /** added to zero out people who back report.                                                     **/

      end;                                                                                        /** [E2] **/

/** HANDEDITS - 1                                                                                          **/

/** This person reports receiving WC from Nov 9, 2001 to Nov 7, 2001. So we switched the start and end dates

    which makes the number of days this person received WC as 3.                                           **/

if pubid=3225 then do; sdayc21=3; edayc21=0; DAYS_PROB=1; end;

/**   This portion creates the month receiving indicator (WC) and the amount receiving each month (WCAMT)  **/

      do J=1 to 2;

         C=0;

         do L=1 to 269;

            C=C+1;

            if 0 le L le doicm then do;

               if csm(J) le C le cem(J) then do;

                  if (C=csm(J) and inc(J) ge 0) then do;

                      wc(L)=eflag(J);

                      if s_day(J) ne . then wcamt(L)=round((inc(J)*s_day(J)), 1);

                  end;

          else if (C=cem(J) and inc(J) ge 0) then do;

                  wc(L)=eflag(J);

                  if e_day(J) ne . then wcamt(L)=round((inc(J)*e_day(J)), 1);

          end;

          else if csm(J)<C and C<cem(J) and inc(J) ge 0 then do;

               wc(L)=eflag(J);

               if C in (169,171,173,175,176,178,180,181,183,185,187,188,

                        190,192,193,195,197,199,200,202,204,205,207,209,

                        211,212,214,216,217,219,221,223,224,226,228,229,

                        231,233,235,236,238,240,241,243,245,247,248,250,

                        252,253,255,257,259,260,262,264,265,267,269) then do;

                          wcamt(L)=round((inc(J)*31),1);

          end;

          else if C in (172,174,177,179,184,186,189,191,196,198,201,203,

                             208,210,213,215,220,222,225,227,232,234,237,239,

                             244,246,249,251,256,258,261,263,268) then do;

                       wcamt(L)=round((inc(J)*30),1);

           end;

           else if C in (194,242) then do;

                       wcamt(L)=round((inc(J)*29),1);

           end;

           else if C in (170,182,206,218,230,254,266) then do;

                              wcamt(L)=round((inc(J)*28),1);

           end;

           end;

           else if inc(J)<0 then do;

                      wc(L)=eflag(J);

                      wcamt(L)=inc(J);

            end;

            if wcamt(L) le 1000 and (wcodd=0 OR wcodd=.) then do; wcodd=0; end;

            if wcamt(L)>1000 then do; wcodd=wcamt(L); end;

            if wc(L)>0 and wcamt(L)=. then do; wcck=wcck+1; end;

            if (wcamt(L)>0 OR (-3 le wcamt(L) lt 0)) and wc(L)=0 then do; wcckm=wcckm+1; end;

            if wc(L)=-3 and wcamt(L) ne -3 then do; wcckmm=wcckmm+1; end;

            if wcamt(L)=0 then dummywc=1;

           end;

            end;

         end;

      end;

/**     This portion deletes spells that started before DLI                                                **/

      do J=1 to 2;

         C=0;

         do L=1 to 269;

            C=C+1;

            if csm(J) le cdli and p010 eq 1 and csm(J) ne . then do;

               if csm(J) le C le cdli then do;

                  wc(L)=0;

                  wcamt(L)=.;

               end;

            end;

         end;

      end;

end;                                                                                                                                            /** [E1] **/

/**   This portion creates the months receiving in each year variables (WCMXX) and the amount receiving    **

 **   each year variables (CAMTXX).                                                                        **/

do I=1 to 23;

   if p1210>-4 OR p1210=-5 then do;

      wcm(I)=0;

      camt(I)=0;

      wca(I)=0;

      wcn(I)=0;

   end;

end;

if p1210>-4 OR p1210=-5 then do;                                                                     /** [B3] **/

   /** calculate total no. months to divide the problematic amts over.                                     **/

   do L=1 to 269;

      if wc(L)>0 and wcamt(L)>1000 and wcodd>0 then do;

         wcmnths=wcmnths+1;

      end;

   end;

   do L=1 to 269;                                                                                 /** [B4] **/

      if 1 le L le 12 then do;

         if wcm80 ge 0 and wc(L)>0 then do;

            wcm80=wcm80+1;

         end;

         if wc(L)>1 then wcm80=-3;

         if -3 le wcamt(L) le -1 then do;

           wcn80=wcn80+1;

           camt80=wcamt(L);

         end;

         if wcamt(L) ge 0 then do;

           wca80=wca80+1;

           if wca80=1 and wcn80=0 then camt80=wcamt(L);

           if wca80>1 and wcn80=0 then camt80=camt80+wcamt(L);

           if wcm80=-3 then camt80=-3;

         end;

      end;

      if 13 le L le 24 then do;

         if wcm81 ge 0 and wc(L)>0 then do;

            wcm81=wcm81+1;

         end;

         if wc(L)>1 then wcm81=-3;

         if -3 le wcamt(L) le -1 then do;

            wcn81=wcn81+1;

            camt81=wcamt(L);

         end;

         if wcamt(L) ge 0 then do;

            wca81=wca81+1;

            if wca81=1 and wcn81=0 then camt81=wcamt(L);

            if wca81>1 and wcn81=0 then camt81=camt81+wcamt(L);

            if wcm81=-3 then camt81=-3;

         end;

      end;

      if 25 le L le 36 then do;

         if wcm82 ge 0 and wc(L)>0 then do;

            wcm82=wcm82+1;

         end;

         if wc(L)>1 then wcm82=-3;

         if -3 le wcamt(L) le -1 then do;

            wcn82=wcn82+1;

            camt82=wcamt(L);

         end;

         if wcamt(L) ge 0 then do;

            wca82=wca82+1;

            if wca82=1 and wcn82=0 then camt82=wcamt(L);

            if wca82>1 and wcn82=0 then camt82=camt82+wcamt(L);

            if wcm82=-3 then camt82=-3;

         end;

      end;

      if 37 le L le 48 then do;

         if wcm83 ge 0 and wc(L)>0 then do;

            wcm83=wcm83+1;

         end;

         if wc(L)>1 then wcm83=-3;

         if -3 le wcamt(L) le -1 then do;

            wcn83=wcn83+1;

            camt83=wcamt(L);

         end;

         if wcamt(L) ge 0 then do;

            wca83=wca83+1;

            if wca83=1 and wcn83=0 then camt83=wcamt(L);

            if wca83>1 and wcn83=0 then camt83=camt83+wcamt(L);

            if wcm83=-3 then camt83=-3;

          end;

      end;

      if 49 le L le 60 then do;

         if wcm84 ge 0 and wc(L)>0 then do;

            wcm84=wcm84+1;

    &nbs