*SAS PROGRAM;
*TEST75.SAS;
*This program READ IN two files, One is unit level;
*  and another is person level(adult and cildren);
* 5/7/99;
********************************************;
FILENAME OUT1 '[afdcqc.sassets]FY75_U.DAT' ;
FILENAME OUT2 '[afdcqc.sassets]FY75_P.DAT' ;

 x 'gunzip [afdcqc.sassets]fy75_u.dat';
 x 'gunzip [afdcqc.sassets]fy75_p.dat';

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


proc format;

VALUE    FUNIT_ID
    1="Minimum"
    31063="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
   99="Unknown"
  ;

VALUE    FYYU
   76="Unknown (=76)"
;

VALUE    FREAOPEN
    00="Illness, injury or other impairment"
    01="Layoff, discharge, or other reason"
    02="Death"
    03="Leaving home and stopping/reducing support"
    04="Loss of support from person outside home"
    05="Loss of other income"
    06="Reduction of assets to meet medical care costs"
    07="Reduction of assets to meet other costs"
    08="Other material change in resource"
    09="Change in state law or agency policy"
    10="Increased need for Medicare"
    11="Increased need for other requirements"
    12="Transferred from another assistance program"
    13="Living below agency standard"
    14="Other"
    99="Unknown"
  ;
VALUE   FMONREDE
   997="No redetermination-most recent opening <6mo"
   998="No redetermination for other reason"
   999="Unknown"
;

VALUE    FPRIAFDC
    0="Yes"
    01="No"
    09="Unknown"
  ;

VALUE    FREADISC
    00="Federally aided"
    01="State or local only"
    02="Death"
    03="Employment or increased earnings - AFDC Father"
    04="Employment or increased earnings - AFDC Mother"
    05="Employment or increased earnings - AFDC child"
    06="Employment or increased earnings - Other person"
    07="Incr support  result of - absent parent return"
    08="Incr support result of - remarriage of parent"
    09="Incr supp from pers outside home-absent AFDC fathr"
    10="Incr support from person outside home - oth person"
    11="Incr $ benefits/pensions under gov pgm - OASDI"
    12="Incr $ benefits/pensions under gov pgm - other fed"
    13="Incr $ benefits/pensions under gov pgm - State/loc"
    14="Incr cash benefits/pensions under nongov program"
    15="Other material change in income or resources"
    16="Decrease in requirements"
    17="Other reason with no material change"
    18="No longer blind, disabled or incapacitated"
    19="Become resident of public institution"
    20="AFDC parent returned to home or remarried"
    21="No longer an eligible child in home"
    22="Loss of legal residence"
    23="Change in law or agency policy"
    24="Other no eligibility reason"
    25="Recovery, lien, and/or assignment provisions"
    26="Relative responsibility provisions"
    27="Refused participate on WIN program"
    28="Refused register and seek wrk other than under WIN"
    29="Refused accept employ oth than WIN - security ref"
    30="Refused accept employ oth than WIN - other source"
    31="Refued accept or compl training/educ oth than WIN"
    32="Other refusal reason"
    33="Discontinued at client's request"
    34="Other reason"
    99="Unknown"
  ;

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

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    FOTHRHH
    88="Family resides in group quarters"
    99="Unknown"
  ;

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

VALUE    FYEARMOV
    0="1974-75"
    1="1973"
    2="1972"
    3="1970-71"
    4="1965-69"
    5="1955-64"
    6="1954 or earlier"
    7="Payee has lived there since his or her birth"
    9="Unknown"
  ;

VALUE    FNUMDAD
    1="Yes, same father"
    2="No, Two different fathers"
    3="No, Three different fathers"
    4="No, Four different fathers"
    5="No, Five different fathers"
    6="No, Six or more different fathers"
    9="Unknown"
  ;

VALUE    FNUMMOM
    1="Yes, same mother"
    2="No, Two different mothers"
    3="No, Three or more different mothers"
    9="Unknown"
  ;

VALUE    FACTION
    00="No"
    01="Yes - Absent parent was not located"
    02="Yes - Paternity was established"
    04="Yes - Paternity was not established"
    10="Yes - Obtaning child support"
    20="Yes - Enforcng support oblig owed by absnt parnent"
    40="Yes - Absent parent was located"
 other="Combination of actions (see codebook)"
  ;

VALUE    FNUMORDE
    0="No"
    1="Court ordered supported by one absent parent"
    2="Court ordered supported by two absent parents"
    4="Court ordered supportd by 3 or more absent parents"
  ;

VALUE    FNUMOBLI
    0="No"
    1="Par agreemnt  support involving 1 absent parent"
    2="Par agreemnt  support involving 2 absent parents"
    4="Par agreemnt  support involving >2 absent parents"
  ;

VALUE    FTOWHOM
    001="Parent agreement:Other agency"
    010="Court-ordered:Other agency"
    020="Parent agreement:AFDC parent or other person"
    040="Parent agreement:Public welfare agency"
    100="Court-ordered:AFDC parnt/child caretaker/legal rep"
    200="Court-ordered:Court"
    400="Court-ordered:Public welfare agency"
  other="Combination of agencies (see codebook)"
  ;

VALUE    FTOWHAT
    001="Parent agreement:Partially met payments  regular"
    002="Parent agreement:Partially met payments  irregular"
    004="Parent agreement:Not being met"
    010="Court-ordered:Not being met procedings initiated"
    020="Court-ordered:Not being met no procedngs initiated"
    040="Parent agreement:Fully met"
    100="Court-ordered:Fully met"
    200="Court-ordered:Partially met payments are regular"
    400="Court-ordered:Partially met payments are irregular"
  other="Combination of extents (see codebook)"
  ;

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

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

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

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

VALUE    FEDUC
    0="None or less than fifth frade"
    1="5th or 6th grade"
    2="7th grade"
    3="8th grade"
    4="9th grade"
    5="10th or 11th grade"
    6="High school graduate"
    7="Some colledge did not graduate"
    8="College graduate"
    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
    0="Registered - Mandatory"
    1="Registered - Voluntary"
    2="Currently Exempted"
    3="Status pending"
    4="No WIN project in area"
  ;

VALUE    FWINEXE
    0="Inaplicable, not exempted"
    1="Ill, incapacitated, or of advanced age"
    2="WIN project too far away"
    3="needed home care oth memb ill/incapcit"
    4="Mother/oth relative cares for child < 6"
    5="Female cartaker chld,no non-exmpt Male"
    6="Other"
  ;

VALUE    FRCVOTHR
    1="inapplicable"
    2="Yes"
    3="No"
  ;

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

VALUE    FNOTAFDC
    0="Member of another assistance group-AFDC"
    1="Member of another assistance group-SSI"
    2="Memb anoth assist group-Gen assist/SSI suppl only"
    3="Not deprived of parental support or care"
    4="Over state age limit for AFDC"
    5="Age 18-20 not attending school at least half time"
    6="Application for child in process by agency"
    7="Payee did not apply for AFDC for the child"
    8="Other reason"
    9="Unknown"
  ;

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

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

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

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

VALUE    FC_WINEX
    0="Inapplicable, not exempted"
    1="Under age 16"
    2="age 16 and over and attending school full time"
    3="Ill or incapacitated"
    4="WIN project too far away"
    5="Other"
  ;

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

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

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

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

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

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

VALUE    FORIGIN
    0="Mexican"
    1="Puerto Rican"
    2="Cuban"
    3="Other Hispanic Origin"
    4="None of these"
  ;

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

*UNIT LEVEL;
DATA  UNIT;
 INFILE OUT1 LRECL =249 MISSOVER;
 
INPUT

UNIT_ID	6.
STATE	2.
S_CODE	4.
FIPS	3.
STRATUM	1.
MONOPEN	3.
REAOPEN	2.
MONREDET 3.		
PRIAFDC	1.
MMOPEN1	2.
YYOPEN1	2.
MMDISC1	2.
YYDISC1	2.
MMOPEN2	2.
YYOPEN2	2.
MMDISC2	2.
YYDISC2	2.
MMOPEN3	2.
YYOPEN3	2.
MMDISC3	2.
YYDISC3	2.
MMOPEN4	2.
YYOPEN4	2.
MMDISC4	2.
YYDISC4	2.
MMOPEN5	2.
YYOPEN5	2.
MMDISC5	2.
YYDISC5	2.
READISC	2.
NMONPRI	3.
TOTMON	3.
NUMOPEN	1.
INFLAT	3.
NUMADL	1.
NUMCHD	2.
NUMOTHR	1.
NUMTOT	2.
OTHRHH	2.
NUMHH	2.
RACE	1.
ORIGIN	1.
RESIDE	2.
SHELTER	1.
YEARMOV	1.
NUMDAD	1.
NUMMOM	1.
ACTION	2.
NUMORDER	1.
NUMOBLIG 1.
AMTORDER	3.
AMTOBLIG 3.
NUMCHDO	2.
NUMCHDP	2.
TOWHOM	3.
TOWHAT	3.
FDSTAMP	1.
AMTFOOD	3.
AMTPUR	3.
AMTOTHR	4.
AMTWIN	3.
V_PROP	5.
V_CASH	4.
V_DEPO	4.
V_STOCK	4.
V_AUTO	4.
V_LIFE	4.
V_OTHER	4.
PAYSTD	3.
OTHPAY	3.	
COMBBUDG 1.
FULSTD	4.
ANYOINC	1.
MOMINC	3.
DADINC	3.
CHDINC	3.
OTRINC	3.
WIN	3.
OASDIRR	3.
VA	3.
OTHPEN	3.
UCOMP	3.
WCOMP	3.
SUPPAYC	3.
SUPPAYP	3.
CONSTEP	3.
CONOTHR	3.
CASH	3.
INKIND	3.
DDLT5	3.
DD3010	3.
DDCHLD	3.
DDWORK	3.
NETINC	3.
OUTAFDC	3.
DDINC	3.
AFDC	4.
GENAST	3.
EMGAMT	3.
;	

* recode missing VALUEs;
 
array array3
INFLAT	
MONOPEN
AMTORDER 
AMTOBLIG 
AMTFOOD	
AMTPUR	
AMTWIN	
PAYSTD	
OTHPAY		
MOMINC	
DADINC	
CHDINC	
OTRINC	
WIN	
OASDIRR	
VA	
OTHPEN	
UCOMP	
WCOMP	
SUPPAYC	
SUPPAYP	
CONSTEP	
CONOTHR	
CASH	
INKIND	
DDLT5	
DD3010	
DDCHLD	
DDWORK	
NETINC	
OUTAFDC	
DDINC	
GENAST	
EMGAMT	
;

array array4
AMTOTHR	
V_CASH	
V_DEPO	
V_STOCK	
V_AUTO	
V_LIFE	
V_OTHER	
FULSTD	
AFDC	
;

array array5 V_PROP	;

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";
label STATE="State code";
label S_CODE="Study code";
label FIPS="County (FIPS code)";
label STRATUM="Stratum";
label MONOPEN="Month most recent opening AFDC case";
label REAOPEN="Reason most recent opening AFDC case";
label MONREDET="Most recent redetermination AFDC eligib";
label PRIAFDC="Whether prior AFDC";
label MMOPEN1="mo 1st opening bfore  mst recent opening";
label YYOPEN1="yr 1st opening bfore mst recent opening";
label MMDISC1="mo 1st discont bfore mst recent opening";
label YYDISC1="yr  1st discont bfore mst recent opening";
label MMOPEN2="mo 2nd opening bfore mst recent opening";
label YYOPEN2="yr 2nd opening bfore mst recent opening";
label MMDISC2="mo 2nd discont bfore mst recent opening";
label YYDISC2="yr 2nd discontbfore mst recent opening";
label MMOPEN3="mo 3rd opening bfore mst recent opening";
label YYOPEN3="yr 3rd opening bfore mst recent opening";
label MMDISC3="mo 3rd discont bfore mst recent opening";
label YYDISC3="yr 3rd discont bfore mst recent opening";
label MMOPEN4="mo 4th opening bfore mst recent opening";
label YYOPEN4="yr 4th opening bfore mst recent opening";
label MMDISC4="mo 4th discont bfore mst recent opening";
label YYDISC4="yr 4th discont bfore mst recent opening";
label MMOPEN5="mo 5th opening bfore mst recent opening";
label YYOPEN5="yr 5th opening bfore mst recent opening";
label MMDISC5="mo 5th discont bfore mst recent opening";
label YYDISC5="yr 5th discont bfore mst recent opening";
label READISC="Reason last discont AFDC payments";
label NMONPRI="# mos receiving AFDC  prior most recent";
label TOTMON="Total months AFDC received";
label NUMOPEN="Number of prior opening";
label INFLAT="Inflation (Weighting factor)";
label NUMADL="Adult receiving AFDC with fed matching";
label NUMCHD="Childrn receiving AFDC with fed matching";
label NUMOTHR="Oth not included  recip count  fed match";
label NUMTOT="Total in AFDC assistant group";
label OTHRHH="Other persons in household";
label NUMHH="Number  in household";
label RACE="Race of payee";
label ORIGIN="Origin or descent of payee";
label RESIDE="Current residence";
label SHELTER="Shelter arrangement";
label YEARMOV="Yr  payee AFDC group move curr quarters";
label NUMDAD="All childrn AFDC grp have same nat fath";
label NUMMOM="All childrn AFDC grp have same nat moth";
label ACTION="Action to Assign support rights";
label NUMORDER="Number of absent parents with court ord";
label NUMOBLIG="Number of absent parents with oth obligt";
label AMTORDER="Amount of court order";
label AMTOBLIG="Amount of other obligation";
label NUMCHDO="# childrn AFDC support paymnts ordered";
label NUMCHDP="# childrn AFDC support paymnts agreed";
label TOWHOM="To whm supp pymnt mde for chldrn AFDC";
label TOWHAT="To what extent supp pymts current  met";
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 V_PROP="val rsrces AFDC - Real property";
label V_CASH="val rsrces AFDC - Cash";
label V_DEPO="val rsrces AFDC - Bank deposit";
label V_STOCK="val rsrces AFDC - Stock / bonds";
label V_AUTO="val rsrces AFDC - Auto/other vehicle";
label V_LIFE="val rsrces AFDC - $ val of life insuranc";
label V_OTHER="val rsrces AFDC - oth personal property";
label PAYSTD="Payment standard";
label OTHPAY="Addtl amt  pers in hsehld not AFDC pays";
label COMBBUDG="Whether combined budget";
label FULSTD="Full standard of need";
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 SUPPAYC="Court-Ord supp paymnts from absnt pars";
label SUPPAYP="Par's agrmnt supp paymnts frm absnt pars";
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";


*Person level   ;
DATA  PERSON;
  INFILE OUT2 LRECL =71 MISSOVER ;
  
INPUT
UNIT_ID 6.
PER_ID  2.
PLINENO	2.
SEX	1.
HEAD	1.
REL	1.		
PAYSTS	1.
EDUC	1.
WORK	2.
EMPSTS	1.
MMJOB	2.
YYJOB	2.
MMLEFT	2.
YYLEFT	2.
MMDOB	2.
YYDOB	2.
WINSTS	1.
WINEXE	1.
RCVOTHR	1.
P_OASDI	3.
P_VA	3.
P_UNCOMP 3.
P_WCOMP	3.
P_OTHER	3.
INAFDC	1.
NOTAFDC	1.
C_REL	1.
ILLEGI	1.
INSCHOOL 1.
C_EMPSTS 1.
C_WINEXE 1.
ELIGIB	2.
MOMRES	1.
DADRES	1.
MMDLEFT	2.
YYDLEFT	2.	
ACTEST	1.	
ACTENF	1.
ORDER	1.
C_AGE	2.
MONDLEFT 3.
;	

* recode missing VALUEs;

array array3
P_OASDI
P_VA
P_UNCOMP
P_WCOMP
P_OTHER
;


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

label PER_ID="Person identifier";
label PLINENO="Adult/child ident (within adult/child gr";
label SEX="Sex";
label HEAD="Household head";
label REL="Relationship to youngest child (adult)";
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 last Job";
label YYJOB="Year last Job";
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 WINEXE="Reason for WIN exemption";
label RCVOTHR="If WIN receiving Voc. Reliab. Service?";
label P_OASDI="OASDI and/or Railroad retirement";
label P_VA="Veteran's benefits";
label P_UNCOMP="Unemployment compensation";
label P_WCOMP="Workmen's compensation";
label P_OTHER="Other benefits or pensions";
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 ILLEGI="Illegitimate";
label INSCHOOL="School enrollment";
label C_EMPSTS="Employment status (Children)";
label C_WINEXE="The Reason for WIN exemption";
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 ACTEST="Past yr st/local attempted estab patrnty";
label ACTENF="Past yr st/local attempted obtain supprt";
label ORDER="Order or obligation for child support";
label C_AGE="Age - Children";
label MONDLEFT="Months since father last left home";

	
*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     
 STRATUM
 REAOPEN
 MONREDET
 PRIAFDC
 MMOPEN1    
 YYOPEN1 
 MMDISC1
 YYDISC1
 MMOPEN2    
 YYOPEN2 
 MMDISC2
 YYDISC2
 MMOPEN3    
 YYOPEN3 
 MMDISC3
 YYDISC3
 MMOPEN4    
 YYOPEN4 
 MMDISC4
 YYDISC4
 MMOPEN5    
 YYOPEN5 
 MMDISC5
 YYDISC5
 READISC
 NMONPRI
 NUMOPEN
 NUMADL
 NUMCHD
 NUMOTHR
 NUMTOT
 OTHRHH
 NUMHH   
 RACE      
 ORIGIN    
 RESIDE    
 SHELTER   
 FDSTAMP   
 YEARMOV
 NUMDAD
 NUMMOM   
 ACTION    
 NUMORDER    
 NUMOBLIG  
 NUMCHDO
 NUMCHDP
 TOWHOM
 TOWHAT      
 COMBBUDG 
 ANYOINC
/list missing ;

format
UNIT_ID  FUNIT_ID.
STATE    FSTATE.
MMOPEN1-MMOPEN5 MMDISC1-MMDISC1 FMM.
YYOPEN1-YYOPEN5 YYDISC1-YYDISC1 FYY.
REAOPEN  FREAOPEN.
MONREDE  FMONREDE.
PRIAFDC  FPRIAFDC.
READISC  FREADISC.
RACE     FRACE.
ORIGIN   FORIGIN.
RESIDE   FRESIDE.
SHELTER  FSHELTER.
OTHRHH   FOTHRHH.
NUMHH    FNUMHH.
YEARMOV  FYEARMOV.
NUMDAD   FNUMDAD.
NUMMOM   FNUMMOM.
ACTION   FACTION.
NUMORDER FNUMORDE.
NUMOBLIG FNUMOBLI.
TOWHOM   FTOWHOM.
TOWHAT   FTOWHAT.
FDSTAMP  FFDSTAMP.
COMBBUDG FCOMBBUD.
ANYOINC  FANYOINC.
;

title '******** 1975 ******** Unit level variables';

proc means data = unit;
 var 
  unit_id
  S_CODE
  FIPS
  INFLAT
  MONOPEN
  AMTFOOD
  AMTPUR   
  AMTOTHR   
  AMTWIN
  V_PROP
  V_CASH
  V_DEPO
  V_STOCK
  V_AUTO
  V_LIFE
  V_OTHER  
  AMTORDER    
  AMTOBLIG  
  FULSTD    
  PAYSTD    
  MOMINC    
  DADINC    
  CHDINC    
  OTRINC    
  WIN       
  OASDIRR   
  VA        
  OTHPEN    
  UCOMP     
  WCOMP
  SUPPAYC
  SUPPAYP     
  CONSTEP   
  CONOTHR   
  CASH      
  INKIND    
  DDLT5     
  DD3010    
  DDCHLD    
  DDWORK    
  NETINC    
  OUTAFDC   
  DDINC     
  AFDC      
  GENAST    
  EMGAMT    
; 

proc freq data = person;
  tables   
 PER_ID    
 PLINENO   
 SEX       
 HEAD      
 REL       
 PAYSTS         
 EDUC      
 WORK      
 EMPSTS    
 MMJOB     
 YYJOB     
 MMLEFT    
 YYLEFT    
 MMDOB     
 YYDOB     
 WINSTS    
 WINEXE
 RCVOTHR
 INAFDC    
 NOTAFDC   
 C_REL
 ILLEGI     
 INSCHOOL  
 C_EMPSTS  
 C_WINEXE
 ELIGIB    
 MOMRES    
 DADRES    
 MMDLEFT   
 YYDLEFT   
 ORDER     
 ACTEST       
 ACTENF    
 C_AGE 
/list missing;

format
SEX      FSEX.
REL      FREL.
PAYSTS   FPAYSTS.
EDUC     FEDUC.
WORK     FWORK.
EMPSTS   FEMPSTS.
WINSTS   FWINSTS.
WINEXE   FWINEXE.
RCVOTHR  FRCVOTHR.
INAFDC   FINAFDC.
NOTAFDC  FNOTAFDC.
C_REL    FC_REL.
ILLEGI   FILLEGI.
INSCHOOL FINSCHOO.
C_EMPSTS FC_EMPST.
C_WINEXE FC_WINEX.
ELIGIB   FELIGIB.
MOMRES   FMOMRES.
DADRES   FDADRES.
ACTEST   FACTEST.
ACTENF   FACTENF.
ORDER    FORDER.
MMJOB MMLEFT MMDOB MMDLEFT fMM.
YYDOB YYJOB YYLEFT FYYU.
;
TITLE '******** 1975 ******** PERSON VARIABLES';

PROC MEANS DATA = PERSON;
  VAR P_OASDI
P_VA
P_UNCOMP
P_WCOMP
P_OTHER
MONDLEFT;

title '******** 1975 ******** Person Level variables';

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

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

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

* check;
proc print data = anotb(obs=100);
  var unit_id s_code;
proc print data = bnota(obs=100);
  var unit_id per_id;
RUN;

 x 'gzip [afdcqc.sassets]fy75_u.dat';
 x 'gzip [afdcqc.sassets]fy75_p.dat';