/* This program will create a SAS data set for the          */
 /* Screening data from the 2001 National Survey of Fishing, */
 /* Hunting, and Wildlife-Associated Recreation              */

 /* Before running this program, you will need to change the  */
 /* libname statement to identify where the SAS data set that */
 /* will be created should be stored on your computer.  You   */
 /* will also need to change the infile statement to specify  */
 /* where the program will find the screening ascii file,     */
 /* fH2.txt.  If you make any changes to this file you will   */
 /* need to save it to your computer first before running the */
 /* program else SAS will try to run the program as it is on  */
 /* the cdrom.                                                */

 /* Do not change the record length statement on the         */
 /* infile statement line.  It should remain "lrecl=112".    */

 /* Given the way the program is written now, a SAS data set    */
 /* with the name "fh2.sas7bdat" (using SAS 8) will be created  */
 /* from the ASCII file "fh2.txt" and stored in the base "C:\"  */
 /* directory. */


libname fhwar 'c:\';
options compress=yes;

data fhwar.fh2;
infile 'd:\fh2.txt' lrecl=112;
input
    cendiv  1-4
    letter_a $5-5
    disability $6-6
    anyhunt01 $7-7
    anyfish01 $8-8
    intyear $9-9
    tripyear $10-10
    hincome $11-12
    GEMSASZ $13-14
    linenum $15-16
    relation $17-17
    sex $18-18
    marital $19-19
    school $20-21
    complete $22-22
    job $23-23
    retire $24-24
    race $25-25
    race1 $26-26
    race2 $27-27
    race3 $28-28
    race4 $29-29
    race5 $30-30
    race6 $31-31
    racemost $32-32
    distype1 $33-33
    distype2 $34-34
    distype3 $35-35
    distype4 $36-36
    hunt00 $37-37
    hfirst00 $38-38
    hday00 $39-39
    hspend00 $40-40
    hunt01 $41-41
    huntyear $42-42
    huntlike01 $43-43
    fish00 $44-44
    ffirst00 $45-45
    fday00 $46-46
    fspend00 $47-47
    fish01 $48-48
    fishyear $49-49
    fishlike01 $50-50
    intlike01 $51-51
    triplike01 $52-52
    househld $53-54
    age $55-57
    mode_a $58-58
    observe00 $59-59
    feed00 $60-60
    photo00 $61-61
    plant00 $62-62
    special01 $63-63
    trip00 $64-64
    trip01 $65-65
    hispanic $66-66
    everhunt $67-67
    everfish $68-68
    tripday00 $70-70
    tripspend00 $71-71
    gestfips $72-73
    personid $74-80
    id $81-85
    perwgt $86-95
    hhwgt $96-105
    geur $107-107
    gemsast $108-108
    fipstate $109-110
    scrace $111-111
; run;