*SAS PROGRAM;
*TEST73.SAS;
*This program READ IN two files, One is unit level;
*  and another is person level(adult and cildren);
* 5/17/99;
********************************************;
OPTIONS OBS = max NOCENTER COMPRESS = YES;

*options obs=1000;

FILENAME OUT1 '[afdcqc.sassets]FY73_U.DAT' ;
FILENAME OUT2 '[afdcqc.sassets]FY73_P.DAT' ;

 x 'gunzip [afdcqc.sassets]FY73_U.DAT';
 x 'gunzip [afdcqc.sassets]FY73_P.DAT';


proc format;

VALUE    FUNIT_ID
    1="Minimum"
    33829="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    FORIGIN
    0="Mexican"
    1="Puerto Rican"
    2="Cuban"
    3="Other Hispanic Origin"
    4="None of these"
  ;

VALUE    FRACE
    0="White"
    1="Black"
    2="American Indian"
    3="Other"
    9="Unknown"
  ;

VALUE    FREASON
    0000="Inapplicable; no such child"
    0001="Other reason"
    0010="Application for child in process by the agency"
    0020="Includes OASDI"
    0040="Does not include OASDI"
    0100="Over state limit for AFDC"
    0200="No regularly attending school"
    0400="Payee did not apply for AFDC for the child"
    1000="AFDC"
    2000="APTD or AB"
    4000="General assistance"
   other="Combination of reasons (see codebook)" 
  ;


VALUE    FWINYES
    0="Yes, Win project in AFDC grp's area"
    1="No, Win project not in AFDC grp's area"
  ;

VALUE    FWHYEXEM
    000="Inapplicable, none have been exempted"
    001="Moth/oth F care chld-adlt Male nt exmpt"
    002="Other"
    010="WIN projects too far away"
    020="Needed care hsehld memb  ill/incapacit"
    040="Mother/oth rel cares for a child under 6"
    100="Under age 16"
    200="16 and over, attending school full time"
    400="Ill, incapacitated, or of advanced age"
  other="Combination of exemptions (see codebook)"  
;

VALUE    FRCVVR
    0="Inapplicable"
    1="Yes"
    2="No"
  ;

VALUE    FREL
    000="Inapplicable; fam resides  grp quarters"
    001="Other relative"
    002="Nonrelative"
    010="Stepfather"
    020="Brothr/sistr not AFDC  (incl half/step)"
    040="Grandfather or grandmother"
    100="Mother (natural or adoptive)"
    200="Stepmother"
    400="Father (natural or adoptive)"
    999="Relationship unknown"
  other="Combination of relationships (see codebook)"
  ;

VALUE    FHEAD
    0="Inapplicable; fam resides  grp quarters"
    1="Father (natural or adoptive)"
    2="Stepfather"
    3="Other male relative"
    4="Nonrelated male"
    5="Mother (natural or adoptive)"
    6="Stepmother"
    7="Other female relative"
    8="Nonrelated female"
    9="Unknown"
  ;

VALUE    FRESIDE
    0="In SMSA county, within central city of >=1,000,000"
    1="within central city of 500,000 to 1,000,000"
    2="within central city of 250,000 to 500,000"
    3="within central city of 100,000 to 250,000"
    4="within central city of Less than 100,000"
    5="In SMSA, Outside central city  is: Urban(>=2500)"
    6="In SMSA, Outside central city is: rural(<2500)"
    7="Not in SMSA county area is: Urban(>=2500)"
    8="Not in SMSA county area is: rural(<2500)"
    9="Not in this State"
  ;

VALUE    FSHELTER
    0="Owned/bought by memb AFDC unit"
    1="Owned/bought by househld member"
    2="Rented in public housing"
    3="Rented in private housing"
    4="Occupied rent-free"
    5="Other (family is in group quarters,etc.)"
    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="1972-1973"
    1="1971"
    2="1970"
    3="1968-1969"
    4="1963-1967"
    5="1953-1962"
    6="1952 or earlier"
    7="Always livd there(since brth adlt payee)"
    9="Unknown"
  ;

VALUE    FOTHRRCV
    00="Inapplicable; no others reside in grp quarters"
    01="OAA"
    02="General assistanc"
    10="AFDC"
    20="APDT"
    40="AB"
    88="No public assistance received"
    99="Unknown if public assistance received"
 other="Combination other assistence(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    FTOWHOM
    01="Other agency"
    02="AFDC parent,oth pers/agncy excpt pub welfare"
    04="Public welfare agency"
    10="AFDC parent,oth caretaker,leg appt reprsentative"
    20="Court"
    40="Public welfare agency"
 other="Combination of agencies (see codebook)"
  ;

VALUE    FTOWHAT
    00="Inapplicable, no court ordered support"
    01="Not being met-absent parent"
    02="Not being met-procedings initiated"
    04="Not being met- no procedings"
    10="Court-ordered fully met"
    20="Court-ordered partially,regular"
    40="Court-ordered partially,irregular"
 other="Combination of extents (see codebook)"
  ;

VALUE    FFDSTAMP
    0="No food plan in effect"
    1="food plan-group participates"
    2="food plan-group doesn't participate"
    3="food plan-participation unknown"
    4="food stamp-group participates"
    5="food stamp-group doesn't participate"
    6="food stamp-participation unknown"
    9="unknown whether food plan in effect"
  ;

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

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

VALUE    FSAMEPAR
    0="Yes, same father"
    1="No: two different fathers"
    2="No: three different fathers"
    3="No: four different fahers"
    4="No: five different fahers"
    5="No: six or more different fathers"
  ;

VALUE    FMONLEFT
    996="Month and year unknown"
    997="Inapplicable, father not married to mother"
    998="Inapplicable, father in the home"
  other="Other"
  ;

VALUE    FPAYSTS
    0="Yes, receives AFDC in this assistance group"
    1="Yes, receives APTD"
    2="Yes, receives AB"
    3="Yes, receives OAA"
    4="Yes, receives general assistance only"
    5="No"
  ;

VALUE    FEMPSTS
    0="Full time (35 or more hours per week)"
    1="Part time (less than 35 hours per week)"
    2="Physically or mentally incapacitd for employmnt"
    3="Needed in the home full time as homemaker"
    4="Actively seeking work"
    5="NOT actively seeking work"
  ;

VALUE    FMONJOBS
    997="Month and year unknown"
    998="Not currently employed"
    999="Unknown whether currently employed"
  1-996="1-996";
  ;


VALUE    FMONJOBE
    996="Month and year unknown"
    997="Currently employed"
    998="Never employed"
    999="Unknown whether ever employed"
  1-996="1-996";  ;

VALUE    FWORK
    01="Professional, technical, and kindred workers"
    02="Managers, administrators, except farm"
    03="Sales workers"
    04="Clerical and kindred workers"
    05="Craftsmen and kindred workers"
    06="Operatives, except transport"
    07="Transport, equipment operatives"
    08="Laborers, except farm"
    09="Farmers and farm managers"
    10="Farm laborers and farm foremen"
    11="Service workers except private household"
    12="Private household workers"
    97="Usual work unknown"
    98="Unknown whether ever worked"
    99="Never worked"
  ;

VALUE    FAGE
    00="Unknown"
  ;

VALUE    FEDUC
    0="None, or less than 5th grade"
    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 college, did not graduate"
    8="College graduate"
    9="Unknown"
  ;

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

@1 UNIT_ID 6.
 STATE 2.
 S_CODE 4.
 MONOPEN 3.
 NUMADL 1.	
 NUMCHD 2.	
 NUMOTHR 1.	
 NUMTOT 2.	
 OTHRHH 2.
 NUMHH 2.
 RACE 1.
 ORIGIN   1.
 (INAFDC1 - INAFDC13) (1.)
 INAFDC 2.
 (SCHOOL1 -SCHOOL11) (1.)
 (EMPFULL1 - EMPFULL7) (1.)
 (EMPPART1 - EMPPART7) (1.)
 ILLIGI 2.
 (NOAFDC1-NOAFDC4) (1.)
 NOTAFDC 2.
 REASON 4.
 WINYES 1.
 (MANDAT1-MANDAT4) (1.)
 (VOLUNT1-VOLUNT4) (1.)
(CUREXEM1-CUREXEM5) (1.)
 (PENDING1-PENDING5) (1.)
 WHYEXEM 3.
 RCVVR 1.
 AMTWIN 3.
 REL 3.
 HEAD 1.
 RESIDE 1.
 SHELTER 1.
 YEARMOV 1.
 OTHRRCV 2.
 AMTOTHR 4.
 NUMORDER 1.	
 NUMOBLIG 1.	
 AMTORDER 3.
 AMTOBLIG 3.
 NUMCHDO 1.
 NUMCHDP 1.
 TOWHOM 2.
 TOWHAT 2.
 FDSTAMP 1.
 AMTFOOD 3.
 AMTPUR 3.
 RELPRP 5.
 LIQUAST 5.
 OTHER 5.
 PAYSTD1 3.
 PAYSTD2 3.
COMBBUDG  1.
(FULSTD1-FULSTD6) (3.)
 FULSTD 3.
 NUMSPL 1.
 ANYOINC 1.
 MOMINC 3.
 DADINC 3.
 CHDINC 3.
 OTRINC 3.
 WIN    3.
 OASDIRR 3.
 VA 3.
 OTHPEN 3.
 UCOMP 3.
 SUPPAYC 3.
 SUPPAYP 3.
 CONSTEP 3.
 CONOTHR 3.
 CASH    3.
 INKIND  3.
 TOTINC  3.
 DDLT5  3.
 DDWIN 3.
 DDCHDINC 3.
 DD3010 3.
 DDCHLD 3.
 DDWORK 3.
 OUTAFDC 3.
 CHDNEED 3.
 DDINC   3.
 NETINC73   3.
 AFDC    3.
 GENAST 3.
 UNMET 3.
;	

* recode missing VALUEs;
 
array array3
 AMTWIN 
 AMTORDER 
 AMTOBLIG 
 AMTFOOD 
 AMTPUR 
 PAYSTD1 
 PAYSTD2 
 FULSTD1-FULSTD6
 FULSTD 
 MOMINC 
 DADINC 
 CHDINC 
 OTRINC 
 WIN    
 OASDIRR 
 VA 
 OTHPEN 
 UCOMP 
 SUPPAYC 
 SUPPAYP 
 CONSTEP 
 CONOTHR 
 CASH    
 INKIND  
 TOTINC  
 DDLT5  
 DDWIN 
 DDCHDINC 
 DD3010 
 DDCHLD 
 DDWORK 
 OUTAFDC 
 CHDNEED 
 DDINC   
 NETINC73   
 AFDC    
 GENAST 
 UNMET 
;

array array4
AMTOTHR 
;
  
array array5 
 RELPRP
 LIQUAST 
 OTHER 
 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 MONOPEN="# Mos from  most recnt opening AFDC case";
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 ORIGIN="Origin or descent of payee";
label RACE="Race of payee";
label INAFDC1="# child AFDC assistance grp: unborn";
label INAFDC2="# child AFDC assistance grp: under 3 yrs";
label INAFDC3="# child AFDC assistance grp: 3-5 yrs";
label INAFDC4="# child AFDC assistance grp: 6-8 yrs";
label INAFDC5="# child AFDC assistance grp: 9-11 yrs";
label INAFDC6="# child AFDC assistance grp: 12-13 yrs";
label INAFDC7="# child AFDC assistance grp: 14 yrs";
label INAFDC8="# child AFDC assistance grp: 15 yrs";
label INAFDC9="# child AFDC assistance grp: 16 yrs";
label INAFDC10="# child AFDC assistance grp: 17 yrs";
label INAFDC11="# child AFDC assistance grp: 18 yrs";
label INAFDC12="# child AFDC assistance grp: 19 yrs";
label INAFDC13="# child AFDC assistance grp: 20 yrs";
label INAFDC="Total AFDC recipient children";
label SCHOOL1="Enrolled in school - age 3-5";
label SCHOOL2="Enrolled in school - age 6-8";
label  SCHOOL3="Enrolled in school - age 9-11";
label  SCHOOL4="Enrolled in school - age 12-13";
label  SCHOOL5="Enrolled in school - age 14";
label  SCHOOL6="Enrolled in school - age 15";
label  SCHOOL7="Enrolled in school - age 16";
label  SCHOOL8="Enrolled in school - age 17";
label SCHOOL9="Enrolled in school - age 18";
label SCHOOL10="Enrolled in school - age 19";
label SCHOOL11="Enrolled in school - age 20";
label  EMPFULL1="Employed full time - age 14";
label EMPFULL2="Employed full time - age 15";
label EMPFULL3="Employed full time - age 16";
label EMPFULL4="Employed full time - age 17";
label EMPFULL5="Employed full time - age 18";
label EMPFULL6="Employed full time - age 19";
label EMPFULL7="Employed full time - age 20";
label EMPPART1="Employed part time - age 14";
label EMPPART2="Employed part time - age 15";
label EMPPART3="Employed part time - age 16";
label EMPPART4="Employed part time - age 17";
label EMPPART5="Employed part time - age 18";
label EMPPART6="Employed part time - age 19";
label EMPPART7="Employed part time - age 20";
label ILLIGI="How many AFDC children are illigitimate?";
label NOAFDC1="How many not AFDC recipients under 6 yrs";
label NOAFDC2="How many not AFDC recipients 6-15 yrs";
label NOAFDC3="How many not AFDC recipients 16-17  yrs";
label NOAFDC4="How many not AFDC recipients  18-20 yrs";
label NOTAFDC="Tot chldrn not AFDC recipnts(summation)";
label REASON="Why children not AFDC?(summation)";
label WINYES="WIN  where AFDC assistance group lives?";
label MANDAT1="Registered manditory: Mother";
label MANDAT2="Registered manditory: Father";
label MANDAT3="Registered manditory: Chldrn 16 and over";
label MANDAT4="Registered manditory: Other adults";
label VOLUNT1="Registered voluntary: Mother";
label VOLUNT2="Registered voluntary: Father";
label VOLUNT3="Registered voluntary: Chldrn 16 and over";
label VOLUNT4="Registered voluntary: Other adults";
label CUREXEM1="Currently exempt: Mother";
label CUREXEM2="Currently exempt: Father";
label CUREXEM3="Currently exempt: Chldrn 16 and over";
label CUREXEM4="Currently exempt: Chldrn under 16 years";
label CUREXEM5="Currently exempt: Other adults";
label PENDING1="Status pending: Mother";
label PENDING2="Status pending: Father";
label PENDING3="Status pending: Chldrn 16 and over";
label PENDING4="Status pending: Chldrn under 16 years";
label PENDING5="Status pending: Other adults";
label WHYEXEM="Why AFDC  grp exmpt wrk pgm?(summmation)";
label RCVVR="AFDC w incapacity receivng Voc Rehab?";
label AMTWIN="Tot WIN incntive pymnts recvd during mo?";
label REL="Who in hous wth  AFDC chldrn?(summation)";
label HEAD="Who is the head of the household?";
label RESIDE="Where does the AFDC unit currently live?";
label SHELTER="What is shelter arrangement of  AFDC grp";
label YEARMOV="What yr AFDC group move current quarters";
label OTHRRCV="Oth not AFDC grp wth assist?(summation)";
label AMTOTHR="Money payments to others in household";
label NUMORDER="# absnt parents w court ord(summation)";
label NUMOBLIG="Court ord/voluntary agrmnt chld support";
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 chldrn AFDC supp pymnt(summation)";
label TOWHAT="To what extent supp pymts met(summation)";
label FDSTAMP="Food program participation";
label AMTFOOD="Food stamps authorized";
label AMTPUR="Food Stamp Purchased";
label RELPRP="Real property NOT used as home";
label LIQUAST="Liquid assets";
label OTHER="Other personal property";
label PAYSTD1="Amount AFDC group paid for shelter";
label PAYSTD2="Amount AFDC group paid fuel/utitlities";
label COMBBUDG="Does budget combine needs & income?";
label FULSTD1="Gen budgetd requirements:shelter";
label FULSTD2="Gen budgetd requirements:othr (food etc)";
label FULSTD3="Gen budgetd requirements:fuel,utitlities";
label FULSTD4="Special need recurring monthly";
label FULSTD5="Special need recurring othr than monthly";
label FULSTD6="Special need - emergency";
label FULSTD="Total monthly budget requirement";
label NUMSPL="Total special circumstance/need reqrmnts";
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 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 TOTINC="Total monthly nonassistance income";
label DDLT5="Optnl Disregard not more than $5 income";
label DDWIN="WIN dsregards pub service emp work expns";
label DDCHDINC="Disregards child's income if student";
label DD3010="Disregard 1st $30 +1/3 remaining earned ";
label DDCHLD="Allowed emply expense: Childcare";
label DDWORK="Allowed emply expense: Other";
label OUTAFDC="Alloc support depends outside AFDC grp";
label CHDNEED="Set aside for future needs dpndnt chldrn";
label DDINC="Additional disregard income";
label NETINC73="Net remaining income in the AFDC budget";
label AFDC="Monthly assistant Inc: AFDC payment";
label GENAST="Monthly assistant Income: Gen assist";
label UNMET="Recognize unmet need";

*Person level   ;
DATA  PERSON;
  INFILE OUT2 LRECL =46 MISSOVER ;
  
INPUT
@1 UNIT_ID 6.
@7 PER_ID 2.
 PLINENO 2.
 SAMEPAR 1.
 (ELIGIB1-ELIGIB10) (1.)
 (RESIDEN1-RESIDEN9) (1.)
 MONLEFT 3.
 PAYSTS 1.
 EMPSTS 1.
 MONJOBS 3.
 MONJOBE 3.
 WORK 2.
 AGE  2.
 EDUC 1.
;

label PER_ID="Person identifier";
label PLINENO="Adult/child ident (within adult/child gr";
label SAMEPAR="All children  AFDC grp have same father?";
label ELIGIB1="Unemployed father case";
label ELIGIB2="Deprived support father is deceased";
label ELIGIB3="Deprived support father incapcit/disabld";
label ELIGIB4="Father absent from home:armed forces";
label ELIGIB5="Father absent from home: divorced";
label ELIGIB6="Father absent home: legally separated";
label ELIGIB7="Father absnt :seprated wo court decree";
label ELIGIB8="Father absent home:not married mother";
label ELIGIB9="Father absent home: for another reason";
label ELIGIB10="Deprived of supprt/care of moth,not fath";
label RESIDEN1="Dad's residence inapplicable - deceased";
label RESIDEN2="Dad in the home";
label RESIDEN3="Dad in correctional institution";
label RESIDEN4="Dad in oth instit: (incl mental/med)";
label RESIDEN5="Dad not home/instit-same county";
label RESIDEN6="Dad not home/instit-diff county,same St";
label RESIDEN7="Dad not home/instit-diff state US";
label RESIDEN8="Dad not home/instit-foreign country";
label RESIDEN9="Dad's whereabouts unknown";
label MONLEFT="# months since father was last in home";
label PAYSTS="Is father receivng public assist paymnt?";
label EMPSTS="What is current employmnt status father?";
label MONJOBS="If dad employd, # months since began job";
label MONJOBE="If dad not employed # mos since left job";
label WORK="What is the usual occup group father?";
label AGE="Father's age";
label EDUC="Highest grade/lvl sch completd by dad";


*STATISTICS;
proc means data = unit;
title '******** 1973 ******** unit variables';
var
 MONOPEN 
 AMTWIN 
 AMTOTHR 
 AMTORDER 
 AMTOBLIG 
 AMTFOOD 
 AMTPUR 
 PAYSTD1 
 PAYSTD2 
 FULSTD1-FULSTD6 
 FULSTD 
 MOMINC 
 DADINC 
 CHDINC 
 OTRINC 
 WIN    
 OASDIRR 
 VA 
 OTHPEN 
 UCOMP 
 SUPPAYC 
 SUPPAYP 
 CONSTEP 
 CONOTHR 
 CASH    
 INKIND  
 TOTINC  
 DDLT5  
 DDWIN 
 DDCHDINC 
 DD3010 
 DDCHLD 
 DDWORK 
 OUTAFDC 
 CHDNEED 
 DDINC   
 NETINC73   
 AFDC    
 GENAST 
 UNMET
 RELPRP 
 LIQUAST 
 OTHER 
  ;

proc freq data = unit;
*  table reason whyexem rel othrrcv towhom towhat;
tables
 STATE 
 NUMADL 	
 NUMCHD 	
 NUMOTHR 	
 NUMTOT 	
 OTHRHH 
 NUMHH 
 RACE 
 ORIGIN   
 INAFDC1 - INAFDC13
 INAFDC 
 SCHOOL1 -SCHOOL11
 EMPFULL1 - EMPFULL7
 EMPPART1 - EMPPART7
 ILLIGI 
 NOAFDC1-NOAFDC4
 NOTAFDC 
 REASON 
 WINYES 
 MANDAT1-MANDAT4
 VOLUNT1-VOLUNT4
 CUREXEM1-CUREXEM5
 PENDING1-PENDING5
 WHYEXEM 
 RCVVR 
 REL 
 HEAD 
 RESIDE 
 SHELTER 
 YEARMOV 
 OTHRRCV 
 NUMORDER 	
 NUMOBLIG 	
 NUMCHDO 
 NUMCHDP 
 TOWHOM 
 TOWHAT 
 FDSTAMP 
 COMBBUDG  
 NUMSPL 
 ANYOINC /list missing;
format

UNIT_ID   FUNIT_ID.
STATE   FSTATE.
ORIGIN   FORIGIN.
RACE   FRACE.
REASON   FREASON.
RCVVR    FRCVVR.
WINYES   FWINYES.
WHYEXEM   FWHYEXEM.
REL   FREL.
HEAD   FHEAD.
RESIDE   FRESIDE.
SHELTER   FSHELTER.
OTHRHH   FOTHRHH.
NUMHH    FNUMHH.
YEARMOV   FYEARMOV.
OTHRRCV   FOTHRRCV.
NUMORDER   FNUMORDE.
TOWHOM   FTOWHOM.
TOWHAT   FTOWHAT.
FDSTAMP   FFDSTAMP.
COMBBUDG   FCOMBBUD.
ANYOINC   FANYOINC.;

title '******** 1973 ******** unit variables';
run;

PROC freq DATA = PERSON;
title '******** 1973 ******** person variables';
table
 PER_ID 
 PLINENO 
 SAMEPAR 
 ELIGIB1-ELIGIB10
 RESIDEN1-RESIDEN9
 MONLEFT
 PAYSTS 
 EMPSTS 
 MONJOBS 
 MONJOBE 
 WORK 
 AGE  
 EDUC /list missing;

format
SAMEPAR   FSAMEPAR.
MONLEFT  FMONLEFT.
PAYSTS   FPAYSTS.
EMPSTS   FEMPSTS.
MONJOBS   FMONJOBS.
MONJOBE   FMONJOBE.
WORK   FWORK.
AGE   FAGE.
EDUC   FEDUC.
;

 x 'gzip [afdcqc.sassets]FY73_U.DAT';
 x 'gzip [afdcqc.sassets]FY73_P.DAT';