/****************************************************************
*  CORE.SAS                                                     *
*                                                               *
*  These SAS input statements will read in the 199 variables    *
*  from CORE.DAT (n=33,994 records) and create a permanent      *
*  SAS dataset called CORE.SSD.                                 *
****************************************************************/

/****************************************************************
*  Edit the line below to give destination directory for the    *
*  permanent SAS dataset.                                       *
****************************************************************/

LIBNAME NH3MI "C:\MyDIR";

/****************************************************************
*  The command below assumes that the CD-ROM is drive E:        *
*  Edit this line if your CD-ROM is not E:                      *
*  LRECL includes 2 positions for CRLF, assuming use of PC SAS  *
****************************************************************/

FILENAME CORE "E:\CORE\CORE.DAT" LRECL=652;

/****************************************************************
*  SAS input statements                                         *
****************************************************************/
DATA NH3MI.CORE;
   INFILE CORE;
   INPUT
       SEQN          1-5
       DMPFSEQ      6-10
       DMPSTAT        11
       DMARETHN       12
       DMARACER       13
       DMAETHNR       14
       HSSEX          15
       HSDOIMO     16-17
       HSAGEIR     18-19
       HSAGEU         20
       HSAITMOR    21-24
       HSFSIZER    25-26
       HSHSIZER    27-28
       DMPCNTYR    29-31
       DMPFIPSR    32-33
       DMPMETRO       34
       DMPCREGN       35
       SDPPHASE       36
       SDPPSU6        37
       SDPSTRA6    38-39
       WTPFQX6     40-48
       WTPQRP1     49-57
       WTPQRP2     58-66
       WTPQRP3     67-75
       WTPQRP4     76-84
       WTPQRP5     85-93
       WTPQRP6    94-102
       WTPQRP7   103-111
       WTPQRP8   112-120
       WTPQRP9   121-129
       WTPQRP10  130-138
       WTPQRP11  139-147
       WTPQRP12  148-156
       WTPQRP13  157-165
       WTPQRP14  166-174
       WTPQRP15  175-183
       WTPQRP16  184-192
       WTPQRP17  193-201
       WTPQRP18  202-210
       WTPQRP19  211-219
       WTPQRP20  220-228
       WTPQRP21  229-237
       WTPQRP22  238-246
       WTPQRP23  247-255
       WTPQRP24  256-264
       WTPQRP25  265-273
       WTPQRP26  274-282
       WTPQRP27  283-291
       WTPQRP28  292-300
       WTPQRP29  301-309
       WTPQRP30  310-318
       WTPQRP31  319-327
       WTPQRP32  328-336
       WTPQRP33  337-345
       WTPQRP34  346-354
       WTPQRP35  355-363
       WTPQRP36  364-372
       WTPQRP37  373-381
       WTPQRP38  382-390
       WTPQRP39  391-399
       WTPQRP40  400-408
       WTPQRP41  409-417
       WTPQRP42  418-426
       WTPQRP43  427-435
       WTPQRP44  436-444
       WTPQRP45  445-453
       WTPQRP46  454-462
       WTPQRP47  463-471
       WTPQRP48  472-480
       WTPQRP49  481-489
       WTPQRP50  490-498
       WTPQRP51  499-507
       WTPQRP52  508-516
       HFA7      517-518
       HFA8          519
       HFA12     520-521
       HAC1A         522
       HAC1B         523
       HAC1C         524
       HAC1D         525
       HAC1E         526
       HAC1F         527
       HAC1G         528
       HAC1H         529
       HAC1I         530
       HAC1J         531
       HAC1K         532
       HAC1L         533
       HAC1M         534
       HAC1N         535
       HAC1O         536
       HAD1          537
       HAE2          538
       HAE4A         539
       HAE4B         540
       HAE5A         541
       HAE5B         542
       HAE6          543
       HAE7          544
       HAF1          545
       HAF10         546
       HAG2          547
       HAG3          548
       HAG5A         549
       HAG5B         550
       HAG5C         551
       HAG11         552
       HAG12         553
       HAN6HS    554-556
       HAN6IS    557-559
       HAN6JS    560-562
       HAP1          563
       HAP1A         564
       HAP2          565
       HAP3          566
       HAP10         567
       HAP10A        568
       HAR1          569
       HAR3          570
       HAR14         571
       HAR16         572
       HAR23         573
       HAR24         574
       HAR26         575
       HAR27         576
       HYE1G         577
       HYE1H         578
       HYE6A         579
       HYE6B         580
       HYE15         581
       HYH2          582
       HYH10         583
       DMPPIRIF      584
       HFF1IF        585
       HAB1IF        586
       HAM5IF        587
       HAM6IF        588
       HAN6SRIF      589
       HAQ1IF        590
       HAR3RIF       591
       HAT28IF       592
       HAZAK1IF      593
       HAZAK5IF      594
       HAZBK1IF      595
       HAZBK5IF      596
       HAZCK1IF      597
       HAZCK5IF      598
       HYD1IF        599
       HYF2IF        600
       BDPFNDIF      601
       BDPINDIF      602
       BDPKIF        603
       BDPTOAIF      604
       BDPTODIF      605
       BDPTRDIF      606
       BDPWTDIF      607
       BMPBUTIF      608
       BMPHEAIF      609
       BMPHTIF       610
       BMPKNEIF      611
       BMPRECIF      612
       BMPSTHIF      613
       BMPSB1IF      614
       BMPSB2IF      615
       BMPSP1IF      616
       BMPSP2IF      617
       BMPTR1IF      618
       BMPTR2IF      619
       BMPWSTIF      620
       BMPWTIF       621
       FEPIF         622
       FRPIF         623
       HDPIF         624
       HGPIF         625
       HTPIF         626
       MCPSIIF       627
       MHPIF         628
       MVPSIIF       629
       PBPIF         630
       PHPFSTIF      631
       PXPIF         632
       RCPIF         633
       RWPIF         634
       SEPIF         635
       TCPIF         636
       TGPIF         637
       TIPIF         638
       FPPSUDIF      639
       FPPSUMIF      640
       FPPSURIF      641
       PEP6G1IF      642
       PEP6G2IF      643
       PEP6G3IF      644
       PEP6H1IF      645
       PEP6H2IF      646
       PEP6H3IF      647
       PEP6I1IF      648
       PEP6I2IF      649
       PEP6I3IF      650
   ;
   LABEL
       SEQN     = "Sequence number"
       DMPFSEQ  = "Family sequence number"
       DMPSTAT  = "Examination/interview status"
       DMARETHN = "Race-ethnicity"
       DMARACER = "Race"
       DMAETHNR = "Ethnicity"
       HSSEX    = "Sex"
       HSDOIMO  = "Date of screener (month)"
       HSAGEIR  = "Age at interview (screener) - qty"
       HSAGEU   = "Age at interview (screener) - unit"
       HSAITMOR = "Age in months at interview (screener)"
       HSFSIZER = "Family size (persons in family)"
       HSHSIZER = "Household size (persons in dwelling)"
       DMPCNTYR = "County code"
       DMPFIPSR = "FIPS code for State"
       DMPMETRO = "Rural/urban code based on USDA code"
       DMPCREGN = "Census regn, weighting (Texas in south)"
       SDPPHASE = "Phase of NHANES III Survey"
       SDPPSU6  = "Total NHANES III pseudo-PSU"
       SDPSTRA6 = "Total NHANES III pseudo-stratum"
       WTPFQX6  = "Total interviewed sample final weight"
       WTPQRP1  = "Replicate 1 final interview weight"
       WTPQRP2  = "Replicate 2 final interview weight"
       WTPQRP3  = "Replicate 3 final interview weight"
       WTPQRP4  = "Replicate 4 final interview weight"
       WTPQRP5  = "Replicate 5 final interview weight"
       WTPQRP6  = "Replicate 6 final interview weight"
       WTPQRP7  = "Replicate 7 final interview weight"
       WTPQRP8  = "Replicate 8 final interview weight"
       WTPQRP9  = "Replicate 9 final interview weight"
       WTPQRP10 = "Replicate 10 final interview weight"
       WTPQRP11 = "Replicate 11 final interview weight"
       WTPQRP12 = "Replicate 12 final interview weight"
       WTPQRP13 = "Replicate 13 final interview weight"
       WTPQRP14 = "Replicate 14 final interview weight"
       WTPQRP15 = "Replicate 15 final interview weight"
       WTPQRP16 = "Replicate 16 final interview weight"
       WTPQRP17 = "Replicate 17 final interview weight"
       WTPQRP18 = "Replicate 18 final interview weight"
       WTPQRP19 = "Replicate 19 final interview weight"
       WTPQRP20 = "Replicate 20 final interview weight"
       WTPQRP21 = "Replicate 21 final interview weight"
       WTPQRP22 = "Replicate 22 final interview weight"
       WTPQRP23 = "Replicate 23 final interview weight"
       WTPQRP24 = "Replicate 24 final interview weight"
       WTPQRP25 = "Replicate 25 final interview weight"
       WTPQRP26 = "Replicate 26 final interview weight"
       WTPQRP27 = "Replicate 27 final interview weight"
       WTPQRP28 = "Replicate 28 final interview weight"
       WTPQRP29 = "Replicate 29 final interview weight"
       WTPQRP30 = "Replicate 30 final interview weight"
       WTPQRP31 = "Replicate 31 final interview weight"
       WTPQRP32 = "Replicate 32 final interview weight"
       WTPQRP33 = "Replicate 33 final interview weight"
       WTPQRP34 = "Replicate 34 final interview weight"
       WTPQRP35 = "Replicate 35 final interview weight"
       WTPQRP36 = "Replicate 36 final interview weight"
       WTPQRP37 = "Replicate 37 final interview weight"
       WTPQRP38 = "Replicate 38 final interview weight"
       WTPQRP39 = "Replicate 39 final interview weight"
       WTPQRP40 = "Replicate 40 final interview weight"
       WTPQRP41 = "Replicate 41 final interview weight"
       WTPQRP42 = "Replicate 42 final interview weight"
       WTPQRP43 = "Replicate 43 final interview weight"
       WTPQRP44 = "Replicate 44 final interview weight"
       WTPQRP45 = "Replicate 45 final interview weight"
       WTPQRP46 = "Replicate 46 final interview weight"
       WTPQRP47 = "Replicate 47 final interview weight"
       WTPQRP48 = "Replicate 48 final interview weight"
       WTPQRP49 = "Replicate 49 final interview weight"
       WTPQRP50 = "Replicate 50 final interview weight"
       WTPQRP51 = "Replicate 51 final interview weight"
       WTPQRP52 = "Replicate 52 final interview weight"
       HFA7     = "Highest grade or yr of school attended"
       HFA8     = "Finished highest grade/yr attended"
       HFA12    = "Marital status"
       HAC1A    = "Ever told had arthritis"
       HAC1B    = "Which type of arthritis"
       HAC1C    = "Ever told had congestive heart failure"
       HAC1D    = "Ever told had stroke"
       HAC1E    = "Ever told had asthma"
       HAC1F    = "Ever told had chronic bronchitis"
       HAC1G    = "Ever told had emphysema"
       HAC1H    = "Ever told had hay fever"
       HAC1I    = "Ever told had cataracts"
       HAC1J    = "Ever told had goiter"
       HAC1K    = "Ever told had thyroid disease"
       HAC1L    = "Ever told had lupus"
       HAC1M    = "Ever told had gout"
       HAC1N    = "Ever told had skin cancer"
       HAC1O    = "Ever told had other type of cancer"
       HAD1     = "Ever told had diabetes"
       HAE2     = "Ever told had high blood pressure"
       HAE4A    = "Ever told to take prescr med for HBP"
       HAE4B    = "Ever told to ctrl/lose wt for HBP"
       HAE5A    = "Now taking prescr med for HBP"
       HAE5B    = "Is now ctrl/lose wt for HBP"
       HAE6     = "Ever had blood cholesterol checked"
       HAE7     = "Ever told had high cholesterol"
       HAF1     = "Ever had chest pain/discomfort"
       HAF10    = "Ever told had heart attack"
       HAG2     = "Ever had back pain most days for 1 mo"
       HAG3     = "Have back pain in past 12 months"
       HAG5A    = "Ever told had fractured hip"
       HAG5B    = "Ever told had fractured wrist"
       HAG5C    = "Ever told had fractured spine"
       HAG11    = "Ever told had osteoporosis"
       HAG12    = "Were treated for osteoporosis"
       HAN6HS   = "Beer and lite beer - times/month"
       HAN6IS   = "Wine, champagne - times/month"
       HAN6JS   = "Hard liquor - times/month"
       HAP1     = "Have total blindness"
       HAP1A    = "If yes, one or both eyes"
       HAP2     = "Use glasses, contacts, or both"
       HAP3     = "Trouble seeing with one or both eyes"
       HAP10    = "Have total deafness"
       HAP10A   = "If yes, one or both ears"
       HAR1     = "Smoked 100 cigarettes in life"
       HAR3     = "Smoke cigarettes now"
       HAR14    = "Used chewing tobacco, snuff "
       HAR16    = "Chew tobacco, snuff now"
       HAR23    = "Smoked 20 cigars in life"
       HAR24    = "Smoke cigars now"
       HAR26    = "Smoked 20 pipes of tobacco in life"
       HAR27    = "Smoke pipe now"
       HYE1G    = "Doc ever say had asthma"
       HYE1H    = "Doc ever say had chronic bronchitis"
       HYE6A    = "Doc ever say had high blood pressure"
       HYE6B    = "Doc ever say had high blood cholesterol"
       HYE15    = "Has ever had anemia"
       HYH2     = "Have trouble seeing w/one or both eyes"
       HYH10    = "Ever had troub hearing w/1 or both ears"
       DMPPIRIF = "Imputation flag for dmppirmi"
       HFF1IF   = "Imputation flag for hff1mi"
       HAB1IF   = "Imputation flag for hab1mi"
       HAM5IF   = "Imputation flag for ham5mi"
       HAM6IF   = "Imputation flag for ham6mi"
       HAN6SRIF = "Imputation flag for han6srmi"
       HAQ1IF   = "Imputation flag for haq1mi"
       HAR3RIF  = "Imputation flag for har3rmi"
       HAT28IF  = "Imputation flag for hat28mi"
       HAZAK1IF = "Imputation flag for hazak1mi"
       HAZAK5IF = "Imputation flag for hazak5mi"
       HAZBK1IF = "Imputation flag for hazbk1mi"
       HAZBK5IF = "Imputation flag for hazbk5mi"
       HAZCK1IF = "Imputation flag for hazck1mi"
       HAZCK5IF = "Imputation flag for hazck5mi"
       HYD1IF   = "Imputation flag for hyd1mi"
       HYF2IF   = "Imputation flag for hyf2mi"
       BDPFNDIF = "Imputation flag for bdpfndmi"
       BDPINDIF = "Imputation flag for bdpindmi"
       BDPKIF   = "Imputation flag for bdpkmi"
       BDPTOAIF = "Imputation flag for bdptoami"
       BDPTODIF = "Imputation flag for bdptodmi"
       BDPTRDIF = "Imputation flag for bdptrdmi"
       BDPWTDIF = "Imputation flag for bdpwtdmi"
       BMPBUTIF = "Imputation flag for bmpbutmi"
       BMPHEAIF = "Imputation flag for bmpheami"
       BMPHTIF  = "Imputation flag for bmphtmi"
       BMPKNEIF = "Imputation flag for bmpknemi"
       BMPRECIF = "Imputation flag for bmprecmi"
       BMPSTHIF = "Imputation flag for bmpsthmi"
       BMPSB1IF = "Imputation flag for bmpsb1mi"
       BMPSB2IF = "Imputation flag for bmpsb2mi"
       BMPSP1IF = "Imputation flag for bmpsp1mi"
       BMPSP2IF = "Imputation flag for bmpsp2mi"
       BMPTR1IF = "Imputation flag for bmptr1mi"
       BMPTR2IF = "Imputation flag for bmptr2mi"
       BMPWSTIF = "Imputation flag for bmpwstmi"
       BMPWTIF  = "Imputation flag for bmpwtmi"
       FEPIF    = "Imputation flag for fepmi"
       FRPIF    = "Imputation flag for frpmi"
       HDPIF    = "Imputation flag for hdpmi"
       HGPIF    = "Imputation flag for hgpmi"
       HTPIF    = "Imputation flag for htpmi"
       MCPSIIF  = "Imputation flag for mcpsimi"
       MHPIF    = "Imputation flag for mhpmi"
       MVPSIIF  = "Imputation flag for mvpsimi"
       PBPIF    = "Imputation flag for pbpmi"
       PHPFSTIF = "Imputation flag for phpfstmi"
       PXPIF    = "Imputation flag for pxpmi"
       RCPIF    = "Imputation flag for rcpmi"
       RWPIF    = "Imputation flag for rwpmi"
       SEPIF    = "Imputation flag for sepmi"
       TCPIF    = "Imputation flag for tcpmi"
       TGPIF    = "Imputation flag for tgpmi"
       TIPIF    = "Imputation flag for tipmi"
       FPPSUDIF = "Imputation flag for fppsudmi"
       FPPSUMIF = "Imputation flag for fppsummi"
       FPPSURIF = "Imputation flag for fppsurmi"
       PEP6G1IF = "Imputation flag for pep6g1mi"
       PEP6G2IF = "Imputation flag for pep6g2mi"
       PEP6G3IF = "Imputation flag for pep6g3mi"
       PEP6H1IF = "Imputation flag for pep6h1mi"
       PEP6H2IF = "Imputation flag for pep6h2mi"
       PEP6H3IF = "Imputation flag for pep6h3mi"
       PEP6I1IF = "Imputation flag for pep6i1mi"
       PEP6I2IF = "Imputation flag for pep6i2mi"
       PEP6I3IF = "Imputation flag for pep6i3mi"
   ;
   RUN;