*TEST77.SAS;
*This program output two files, One is unit level;
*  and another is person level(adult and cildren);
* 4/30/99;
********************************************;
FILENAME OUT1 '[afdcqc.sassets]FY77_U.DAT' ;
FILENAME OUT2 '[afdcqc.sassets]FY77_P.DAT' ;
LIBNAME S 'ui_sysda:[afdcqc]';

 x 'gunzip [afdcqc.sassets]fy77_u.dat';
 x 'gunzip [afdcqc.sassets]fy77_p.dat';

options nocenter compress = yes;
*options obs=0;



proc format;

VALUE    FUNIT_ID
    1="Minimum"
    27793="Maximum"
  ;

VALUE    FSTATE
    01="ALABAMA"
    02="ALASKA"
    04="ARIZONA"
    05="ARKANSAS"
    06="CALIFORNIA"
    08="COLORADO"
    09="CONNECTICUT"
    10="DELAWARE"
    11="DIST. OF COL."
    12="FLORIDA"
    13="GEORGIA"
    15="HAWAII"
    16="IDAHO"
    17="ILLINOIS"
    18="INDIANA"
    19="IOWA"
    20="KANSAS"
    21="KENTUCKY"
    22="LOUISIANA"
    23="MAINE"
    24="MARYLAND"
    25="MASSACHUSETTS"
    26="MICHIGAN"
    27="MINNESOTA"
    28="MISSISSIPPI"
    29="MISSOURI"
    30="MONTANA"
    31="NEBRASKA"
    32="NEVADA"
    33="NEW HAMPSHIRE"
    34="NEW JERSEY"
    35="NEW MEXICO"
    36="NEW YORK"
    37="NORTH CAROLINA"
    38="NORTH DAKOTA"
    39="OHIO"
    40="OKLAHOMA"
    41="OREGON"
    42="PENNSYLVANIA"
    44="RHODE ISLAND"
    45="SOUTH CAROLINA"
    46="SOUTH DAKOTA"
    47="TENNESSEE"
    48="TEXAS"
    49="UTAH"
    50="VERMONT"
    51="VIRGINIA"
    53="WASHINGTON"
    54="WEST VIRGINIA"
    55="WISCONSIN"
    56="WYOMING"
    66="GUAM"
    72="PUERTO RICO"
    78="VIRGIN ISLANDS"
  ;

VALUE    FMM
    1="January"
    10="October"
    11="November"
    12="December"
    2="February"
    3="March"
    4="April"
    5="May"
    6="June"
    7="July"
    8="August"
    9="September"
   99="Missing"
  ;

VALUE    FYY
   79="Unknown (=79)"
  ;

VALUE    FMMDLEFT
    0="Never in home"
    1="January"
    10="October"
    11="November"
    12="December"
    2="February"
    3="March"
    4="April"
    5="May"
    6="June"
    7="July"
    8="August"
    9="September"
   99="Unknown"
  ;

VALUE    FYYDLEFT
    0="Never in home"
   79="Unknown (=79)"
;

VALUE    FPRIAFDC
    1="No"
    2="Yes"
    9="Unknown"
  ;

VALUE    FRACE
    1="White"
    2="Black"
    3="American Indian"
    4="Asian(Chinese, Japanese, Asian Indian etc.)"
    5="Other"
    9="Unknown"
  ;

VALUE    FORIGIN
    1="Mexican"
    2="Puerto Rican"
    3="Cuban"
    4="Other Hispanic Origin"
    5="Not Hispanic Origin"
  ;

VALUE    FRESIDE
    01="In SMSA county, within central city of >=1,000,000"
    02="within central city of 500,000 to 1,000,000"
    03="within central city of 250,000 to 500,000"
    04="within central city of 100,000 to 250,000"
    05="within central city of Less than 100,000"
    06="In SMSA, Outside central city  is: Urban(>=2500)"
    07="In SMSA, Outside central city is: rural(<2500)"
    08="Not in SMSA county area is: Urban(>=2500)"
    09="Not in SMSA county area is: rural(<2500)"
    10="Not in this State"
  ;

VALUE    FSHELTER
    1="Owns or is buying quarters"
    2="Rent quarters in public housing"
    3="Rent quarters priv  housing(Receives HUD subsidy)"
    4="Rent quarters priv  housing(Receives oth subsidy)"
    5="Rent quarters priv housng(Doesnt receive subsidy)"
    6="Group occupies quarters rent-free"
    7="Family in group quarters"
    9="Unknown"
  ;

VALUE    FFDSTAMP
    1="Yes - group participates in Food Stamp plan"
    2="Yes - group participates in Donated food plan"
    3="No - group does not participates in either plan"
    9="Unknown"
  ;

VALUE    FNUMHH
    88="Family resides in group quarters"
    99="Unknown"
  ;

VALUE    FACTION
    1="Inapplicable, no absent parent associatd with case"
    2="No"
    3="Yes, Support right have been assigned IV-D agency"
    4="Yes, Support right NOT been assignd IV-D agency"
  ;

VALUE    FREFIVD
    1="Inapplicable, no absent parent"
    2="No"
    3="Yes"
  ;

VALUE    FTOAGENC
    1="Yes"
    2="No"
  ;

VALUE    FTOFAMIL
    1="Yes"
    2="No"
   ;

VALUE    FTOOFFIC
    1="Yes"
    2="No"
  ;

VALUE    FRESTRC
    1="No"
    2="Inadequate management of assistance payment"
    3="Refused participation in WIN without good cause"
    4="Refused to assign support right to IV-D agency"
    5="Refused coop w IV-D detrmne paternity for support"
    6="Other"
    7="Vendor payment"
    8="Two party payment"
  ;

VALUE    FCOMBBUD
    1="Yes"
    2="No"
  ;

VALUE    FANYOINC
    1="Yes"
    2="No"
  ;

VALUE    FAFDCRCV
    1="No"
    2="Yes"
  ;

VALUE    FREL
    1="Natural or adoptive mother"
    2="Stepmother"
    3="Natural father"
    4="Adoptive father"
    5="Stepfather (nonadoptive)"
    6="Grandparent"
    7="Other relative"
    8="Nonrelative"
    9="Unknown"
  ;

VALUE    FSEX
    1="Male"
    2="Female"
    9="Unknown"
  ;

VALUE    FPAYSTS
    1="AFDC in this assistant group"
    2="AFDC in other assistant group"
    3="SSI"
    4="SSI state supplement only"
    5="General assistance only"
    6="Does not receive a money payment"
    9="Unknown"
  ;

VALUE    FWORK
    01="Professional technical and kindred worker"
    02="Manager and administrators except farm"
    03="Sales workers"
    04="Clerical and kindred workers"
    05="Craft and kindred workers"
    06="Operative except transport"
    07="transport equipment operative"
    08="Labors except farm"
    09="Farmers and farm manager"
    10="Farm laborers and farm foremen"
    11="Service workers except private household"
    12="Private household workers"
    97="Usual kind of work unknown"
    98="Unknown whether ever employed"
    99="never employed"
  ;

VALUE    FEMPSTS
    1="Full time (>=35 hrs/week)"
    2="Part time (<35 hrs/week)"
    3="Physically or mentally incapacitated"
    4="Needed in the home full time as homemaker"
    5="attending school or receiving training"
    6="Awaiting recall from layoff"
    7="actively seeking work"
    8="Not actively seeking work"
  ;

VALUE    FWINSTS
    01="Registered - Mandatory"
    02="Registered - Voluntary"
    03="Ill"
    04="Incapacitated: referred for voc. rehab"
    05="Incapacitated: NOT referred for voc. rehab"
    06="Incapacitated: Unknown if referred"
    07="Exempted because of advanced age"
    08="WIN project too far away"
    09="Needed  to care another household memb who is ill"
    10="Mother or other relative cares for child under 6"
    11="Fem caretaker if adult Male is home not exempt"
    12="Other exemption"
    13="WIN status pending"
    14="No WIN project in area"
  ;

VALUE    FINAFDC
    1="Yes"
    2="No"
  ;

VALUE    FNOTAFDC
    01="Member of another assistance group-AFDC"
    02="Member of another assistance group-SSI"
    03="Memb anoth assistance grp-SSI state supplemnt only"
    04="Memb anoth assistnce group-General assistnce only"
    05="Not deprived of parental support or care"
    06="Over state age limit for AFDC"
    07="Age 18-20 not attending school at least half time"
    08="Application for child in process by agency"
    09="Payee did not apply for AFDC for the child"
    10="Other reason"
    99="Unknown"
  ;

VALUE    FC_REL
    1="Brother or sister (including half or step)"
    2="Other relative"
    3="Nonrelative"
    9="Unknown"
  ;

VALUE    FINSCHOO
    1="No"
    2="Yes"
  ;

VALUE    FC_EMPST
    1="Yes, full time"
    2="Yes, part time"
    3="Not employed"
  ;

VALUE    FC_WIN
    01="Registered - Mandatory"
    02="Registered - Voluntary"
    03="Under age 16"
    04="Age 16 and over"
    05="Ill"
    06="Incapacitated: Yes referred"
    07="Incapacitated: Not referred"
    08="Incapacitated: Unknown if referred"
    09="WIN projects too far away"
    10="Other exemption"
    11="WIN status pending"
    12="No WIN project in area"
  ;

VALUE    FELIGIB
    01="Deceased"
    02="Physically or mentally incapacitated"
    03="Unemployed"
    04="Absent from home: in armed forces"
    05="Absent from home: divorced"
    06="Absent from home: legally separated"
    07="Absent from home: Not legally separated"
    08="Absent from home: Not married to mother"
    09="Absent for another reason"
    10="Mother's, but not father's support or care"
  ;

VALUE    FMOMRES
    1="Inapplicable: deceased"
    2="In the home"
    3="In the institution: correctional(prison, jail etc)"
    4="In the institution: other(metal and medical)"
    5="same county"
    6="Different county, same state"
    7="Different state"
    8="A foreign country"
    9="Unknown"
  ;

VALUE    FDADRES
    1="Inapplicable: deceased"
    2="In the home"
    3="In the institution: correctional(prison, jail etc)"
    4="In the institution: other(metal and medical)"
    5="same county"
    6="Different county, same state"
    7="Different state"
    8="A foreign country"
    9="Unknown"
  ;

VALUE    FORDER
    1="No"
    2="Yes, court order"
    3="Yes, other support"
  ;

VALUE    FACTEST
    1="No"
    2="Yes, paternity was established"
    3="Yes, paternity not established"
  ;

VALUE    FACTLOC
    1="No"
    2="Yes, absent parent located"
    3="Yes, absent parent NOT located"
  ;

VALUE    FACTENF
    1="No"
    2="Yes, Obligation enforced"
    3="Yes, Obligation NOT enforced"
  ;

 
*UNIT LEVEL;
DATA  UNIT;
 INFILE OUT1 LRECL =194 MISSOVER;
 
INPUT
@1 UNIT_ID 6.
 STATE     2.
 S_CODE    4.
 MMOPEN    2.
 YYOPEN    2.
 MMREDET   2.
 YYREDET   2.
 PRIAFDC   1.
 RACE      1.
 ORIGIN    1.
 RESIDE    2.
 SHELTER   1.
 FDSTAMP   1.
 AMTFOOD   3.
 AMTPUR    3.
 AMTOTHR   3.
 AMTWIN    3.
 NUMHH     2.
 ACTION    1.
 REFIVD    1.
 NUMORD    1.
 NUMOBLIG  1.
 AMTORDER  3.
 AMTOBLIG  3.
 AMTSUPC   3.
 AMTSUPP   3.
 AMTSUPCF  3.
 AMTSUPPF  3.
 TOAGENCY  1.
 TOFAMILY  1.
 TOOFFIC1  1.
 TOOFFIC2  1.
 RESTRC    1.
 COMBBUDG  1.
 FULSTD    4.
 PAYSTD    4.
 ANYOINC   1.
 MOMINC    4.
 DADINC    4.
 CHDINC    4.
 OTRINC    4.
 WIN       4.
 OASDIRR   4.
 VA        4.
 OTHPEN    4.
 UCOMP     4.
 WCOMP     4.
 CONSTEP   4.
 CONOTHR   4.
 CASH      4.
 INKIND    4.
 DDLT5     3.
 DD3010    3.
 DDCHLD    3.
 DDWORK    3.
 NETINC    3.
 OUTAFDC   3.
 DDINC     3.
 AFDC      4.
 GENAST    4. 
 EMGAMT    3.
 AFDCRCV   1.
 NUMMON    2.
 TOTNEED   5.
 TOTEINC   5.
 TOTOINC   5.
 TOTDINC   5.
 TOTAFDC   5.
 ;


* recode missing VALUEs;
 
array array3
 AMTFOOD   
 AMTPUR
 AMTOTHR   
 AMTWIN    
 AMTORDER  
 AMTOBLIG  
 AMTSUPC   
 AMTSUPP   
 AMTSUPCF   
 AMTSUPPF   
 DDLT5     
 DD3010    
 DDCHLD    
 DDWORK    
 NETINC    
 OUTAFDC   
 DDINC     
 EMGAMT    
;
array array4
 AMTSUPO   
 FULSTD    
 PAYSTD    
 MOMINC    
 DADINC    
 CHDINC    
 OTRINC    
 WIN       
 OASDIRR   
 VA        
 OTHPEN    
 UCOMP     
 WCOMP     
 CONSTEP   
 CONOTHR   
 CASH      
 INKIND    
 AFDC      
 GENAST    
;

array array5
 TOTNEED   
 TOTEINC   
 TOTOINC   
 TOTDINC   
 TOTAFDC   
;


do over array3;
if (array3 eq 999) then array3=.U;
else if (array3 eq 0) then array3=.Z;
end;

do over array4;
if (array4 eq 9999) then array4=.U;
else if (array4 eq 0) then array4=.Z;
end;

do over array5;
if (array5 eq 99999) then array5=.U;
else if (array5 eq 0) then array5=.Z;
end;

label UNIT_ID="Unit Identifier(Sequential number)";
label STATE="State code";
label S_CODE="Study code";
label MMOPEN="Month case opened";
label YYOPEN="Year case opened";
label MMREDET="Month eligibility redetermined";
label YYREDET="Year eligibility redetermined";
label PRIAFDC="Whether prior AFDC";
label RACE="Race of payee";
label ORIGIN="Origin or descent of payee";
label RESIDE="Current residence";
label SHELTER="Shelter arrangement";
label FDSTAMP="Food program participation";
label AMTFOOD="Food stamps authorized";
label AMTPUR="Food Stamp Purchased";
label AMTOTHR="Money payments to others in household";
label AMTWIN="Amount  of WIN and CETA incentives";
label NUMHH="Number  in household";
label ACTION="Action to Assign support rights";
label REFIVD="IV-D Agency referral";
label NUMORD="# absent parents with court order";
label NUMOBLIG="# absent parents with other obligations";
label AMTORDER="Amount of court order";
label AMTOBLIG="Amount of other obligation";
label AMTSUPC="Child support paid to IV-D 3/77 oblgtn";
label AMTSUPP="Child support paid to IV-D prior 3/77";
label AMTSUPPF="Child support paid IV-D  for prior 3/77";
label TOAGENCY="To IV-D support payments made";
label TOFAMILY="To family support payments made";
label TOOFFIC1="To pursuant support payments made";
label TOOFFIC2="To not pursuant support payments made";
label RESTRC="Whether restrictive payment case";
label COMBBUDG="Whether combined budget";
label FULSTD="Full standard of need";
label PAYSTD="Payment standard";
label ANYOINC="Whether other income";
label MOMINC="Nonassistance income (mother)";
label DADINC="Nonassistance income(Father)";
label CHDINC="Nonassistance income(Child)";
label OTRINC="Nonassistance income(Other)";
label WIN="Earning public service employment(WIN)";
label OASDIRR="OASDI and/or railroad Retirement benefit";
label VA="Veterans' benefits";
label OTHPEN="Other pensions or benefits";
label UCOMP="Unemployment compensation";
label WCOMP="Workmen's compensation";
label CONSTEP="Contribs stepparent in the household";
label CONOTHR="Contribs other persons in the household";
label CASH="Other cash income";
label INKIND="Other income inkind $ VALUE is given";
label DDLT5="Optnl Disregard not more than $5 income";
label DD3010="Disregard 1st $30 +1/3 remaining earned ";
label DDCHLD="Allowed emply expense: Childcare";
label DDWORK="Allowed emply expense: Other";
label NETINC="Total allowed employment expense";
label OUTAFDC="Alloc support depends outside AFDC grp";
label DDINC="Additional disregard income";
label AFDC="Monthly assistant Inc: AFDC payment";
label GENAST="Monthly assistant Income: Gen assist";
label EMGAMT="Emerg assist paid during the study mo";
label AFDCRCV="Whether AFDC received during 1976";
label NUMMON="Number of months AFDC received";
label TOTNEED="Amts budgeted 1976:Full standard need";
label TOTEINC="Amts budgeted 1976:Earned inc considered";
label TOTOINC="Amts budgeted 1976:Other inc considered";
label TOTDINC="Amts budgeted 1976:Income disregarded";
label TOTAFDC="Amts budgeted 1976:AFDC payment";


*Person level;
DATA  PERSON;
  INFILE OUT2 LRECL =57 MISSOVER ;
  
INPUT
@1 UNIT_ID 6.
 PER_ID    2.
 PLINENO   2.
 HEAD      1.
 REL       1.
 SEX       1.
 PAYSTS    1.
 EDUC      2.
 WORK      2.
 EMPSTS    1.
 MMJOB     2.
 YYJOB     2.
 MMLEFT    2.
 YYLEFT    2.
 MMDOB     2.
 YYDOB     2.
 WINSTS    2.
 AGE       2.
 INAFDC    1.
 NOTAFDC   2.
 C_REL     1.
 INSCHOOL  1.
 C_EMPSTS  1.
 C_WIN     2.
 ELIGIB    2.
 MOMRES    1.
 DADRES    1.
 MMDLEFT   2.
 YYDLEFT   2.
 ORDER     1.
 ACTEST    1.
 ACTLOC    1.
 ACTENF    1.
 C_AGE     2.
;



label PER_ID="Person identifier";
label PLINENO="Adult/child ident (within adult/child gr";
label HEAD="Household head";
label REL="Relationship to youngest child (adult)";
label SEX="Sex";
label PAYSTS="Money payment status";
label EDUC="Highest grade of school completed";
label WORK="Usual kind of work";
label EMPSTS="Current employment status";
label MMJOB="Month of Job began";
label YYJOB="Year of Job began";
label MMLEFT="Month left last Job";
label YYLEFT="Year left last Job";
label MMDOB="Month of birth";
label YYDOB="Year of birth";
label WINSTS="WIN status";
label AGE="Age of adult";
label INAFDC="Is child a recipient in this AFDC group";
label NOTAFDC="Reason not in AFDC group";
label C_REL="Relationship youngest child (Children)";
label INSCHOOL="School enrollment";
label C_EMPSTS="Employment status (Children)";
label C_WIN="WIN status  (children)";
label ELIGIB="Reason for eligibility";
label MOMRES="Mother's residence";
label DADRES="Father's residence";
label MMDLEFT="Month father left home";
label YYDLEFT="Year father left home";
label ORDER="Order or obligation for child support";
label ACTEST="Action to establish paternity";
label ACTLOC="Action to locate absent parent";
label ACTENF="Action to enforce obligation";
label C_AGE="Age - Children";

*MERGE SETS ;
data all anotb bnota;
  merge unit(in=a) person(in=b);
by unit_id;
if a and b then output all;
else if a and not b then output anotb;
else if b and not a then output bnota;

RUN;
*STATISTICS;

proc freq data = unit;
  tables   
 STATE     
 MMOPEN    
 YYOPEN    
 MMREDET   
 YYREDET   
 PRIAFDC   
 RACE      
 ORIGIN    
 RESIDE    
 SHELTER   
 FDSTAMP   
 NUMHH     
 ACTION    
 REFIVD    
 NUMORD    
 NUMOBLIG  
 TOAGENCY
 TOFAMILY  
 TOOFFIC1  
 TOOFFIC2  
 RESTRC    
 COMBBUDG 
 ANYOINC        
 AFDCRCV   
 NUMMON    
 /list  missing;

format
UNIT_ID   FUNIT_ID.
MMOPEN MMREDET fmm.
YYOPEN YYREDET FYY.
STATE   FSTATE.
PRIAFDC   FPRIAFDC.
RACE   FRACE.
ORIGIN   FORIGIN.
RESIDE   FRESIDE.
SHELTER   FSHELTER.
FDSTAMP   FFDSTAMP.
ACTION   FACTION.
REFIVD   FREFIVD.
TOAGENCY   FTOAGENC.
/*
TOFAMILY   FTOFAMIL.
*/
TOOFFIC1   FTOOFFIC.
TOOFFIC2   FTOOFFIC.
RESTRC   FRESTRC.
COMBBUDG   FCOMBBUD.
ANYOINC   FANYOINC.
AFDCRCV   FAFDCRCV.
;

title '******** 1977 ******** Unit level variables';

proc means data = unit;
 var unit_id
  S_CODE    
 AMTFOOD
 AMTPUR   
 AMTOTHR   
 AMTWIN    
 AMTORDER  
 AMTOBLIG  
 AMTSUPC   
 AMTSUPP   
 AMTSUPCF
 AMTSUPPF   
 FULSTD    
 PAYSTD    
 MOMINC    
 DADINC    
 CHDINC    
 OTRINC    
 WIN       
 OASDIRR   
 VA        
 OTHPEN    
 UCOMP     
 WCOMP     
 CONSTEP   
 CONOTHR   
 CASH      
 INKIND    
 DDLT5     
 DD3010    
 DDCHLD    
 DDWORK    
 NETINC    
 OUTAFDC   
 DDINC     
 AFDC      
 GENAST    
 EMGAMT    
 TOTNEED   
 TOTEINC   
 TOTOINC   
 TOTDINC   
 TOTAFDC   
;
 
proc freq data = person;
  tables   
 PER_ID    
 PLINENO   
 HEAD      
 REL       
 SEX       
 PAYSTS    
 EDUC      
 WORK      
 EMPSTS    
 MMJOB     
 YYJOB     
 MMLEFT    
 YYLEFT    
 MMDOB     
 YYDOB     
 WINSTS    
 AGE       
 INAFDC    
 NOTAFDC   
 C_REL     
 INSCHOOL  
 C_EMPSTS  
 C_WIN     
 ELIGIB    
 MOMRES    
 DADRES    
 MMDLEFT   
 YYDLEFT   
 ORDER     
 ACTEST    
 ACTLOC    
 ACTENF    
 C_AGE 
/list missing;

format
REL   FREL.
SEX   FSEX.
PAYSTS   FPAYSTS.
WORK   FWORK.
EMPSTS   FEMPSTS.
WINSTS   FWINSTS.
INAFDC   FINAFDC.
NOTAFDC   FNOTAFDC.
C_REL   FC_REL.
INSCHOOL   FINSCHOO.
C_EMPSTS   FC_EMPST.
C_WIN   FC_WIN.
ELIGIB   FELIGIB.
MOMRES   FMOMRES.
DADRES   FDADRES.
ORDER   FORDER.
ACTEST   FACTEST.
ACTLOC   FACTLOC.
ACTENF   FACTENF.
MMJOB MMLEFT MMDOB fmm.
YYJOB YYLEFT YYDOB FYY.
MMDLEFT FMMDLEFT.
YYDLEFT FYYDLEFT.
;
title '******** 1977 ******** Person Level variables';

/*
Proc contents data = all;
title '******** 1977 ******** all variables';

proc contents data = unit position;
title '******** 1977 ******** unit variables';

proc contents data = person position;
title '******** 1977 ******** person variables';
*/

 x 'gzip [afdcqc.sassets]fy77_u.dat';
 x 'gzip [afdcqc.sassets]fy77_p.dat';