/*
 *  Survey:           NHANES I
 *  Years:            1971-1975
 *  Questionnaire:    Dietary Frequency and Adequacy
 *  Tape Number:      4701
 *
 *  Code Created By:  CDC/IMB
 *
 *  DESCRIPTION:  This file is provided as a starting point to perform advanced 
 *  statistical queries on the survey data.  They are to be used in conjunction 
 *  with legacy codebooks or data tape documentation to analyze the data.  In order 
 *  to use this program: either copy the tape file to your C:\temp directory, or change 
 *  the infile to point to the location that your tape file is located.
*/

DATA D_4701;
   INFILE 'c:\temp\DU4701.txt' LRECL = 2000 MISSOVER;
      LENGTH
         SEQN 8
         N1FF0006 8
         N1FF0010 4
         N1FF0011 4
         N1FF0012 4
         N1FF0013 4
         N1FF0014 4
         N1FF0015 4
         N1FF0016 4
         N1FF0017 4
         N1FF0019 4
         N1FF0020 4
         N1FF0022 4
         N1FF0023 4
         N1FF0025 4
         N1FF0027 4
         N1FF0028 4
         N1FF0029 4
         N1FF0030 4
         N1FF0031 4
         N1FF0032 4
         N1FF0033 4
         N1FF0034 4
         N1FF0036 4
         N1FF0037 8
         N1FF0041 4
         N1FF0042 8
         N1FF0046 4
         N1FF0047 8
         N1FF0051 4
         N1FF0052 8
         N1FF0056 4
         N1FF0057 8
         N1FF0061 4
         N1FF0062 8
         N1FF0066 4
         N1FF0067 8
         N1FF0071 4
         N1FF0072 8
         N1FF0076 4
         N1FF0077 8
         N1FF0081 4
         N1FF0082 8
         N1FF0086 4
         N1FF0087 8
         N1FF0091 8
         N1FF0095 8
         N1FF0100 4
         N1FF0101 4
         N1FF0103 4
         N1FF0104 4
         N1FF0105 4
         N1FF0106 8
         N1FF0110 4
         N1FF0112 4
         N1FF0114 4
         N1FF0115 4
         N1FF0116 4
         N1FF0117 4
         N1FF0118 4
         N1FF0119 4
         N1FF0120 4
         N1FF0122 4
         N1FF0123 4
         N1FF0124 4
         N1FF0125 4
         N1FF0126 4
         N1FF0127 4
         N1FF0128 4
         N1FF0129 4
         N1FF0130 4
         N1FF0131 4
         N1FF0132 4
         N1FF0135 4
         N1FF0138 8
         N1FF0144 4
         N1FF0146 4
         N1FF0147 4
         N1FF0150 4
         N1FF0151 4
         N1FF0152 4
         N1FF0153 4
         N1FF0154 4
         N1FF0155 4
         N1FF0156 4
         N1FF0157 4
         N1FF0158 8
         N1FF0164 8
         N1FF0170 8
         N1FF0176 8
         N1FF0182 $12
         N1FF0194 4
         N1FF0196 4
         N1FF0199 4
         N1FF0201 8
         N1FF0205 $11
         N1FF0216 4
         N1FF0217 8
         N1FF0221 8
         N1FF0225 8
         N1FF0229 8
         N1FF0233 8
         N1FF0237 8
         N1FF0241 8
         N1FF0245 8
         N1FF0249 8
         N1FF0253 8
         N1FF0257 8
         N1FF0261 8
         N1FF0265 8
         N1FF0269 8
         N1FF0273 8
         N1FF0277 8
         N1FF0281 8
         N1FF0285 8
         N1FF0289 8
         N1FF0293 4
         N1FF0296 4
         N1FF0297 $15
         N1FF0312 4
         N1FF0313 4
         N1FF0314 4
         N1FF0315 4
         N1FF0316 4
         N1FF0317 4
         N1FF0318 4
         N1FF0319 4
         N1FF0320 8
         N1FF0325 4
         N1FF0328 8
         N1FF0336 8
         N1FF0344 8
         N1FF0352 8
         N1FF0360 8
         N1FF0368 8
         N1FF0376 8
         N1FF0384 8
         N1FF0392 8
         N1FF0400 8
         N1FF0408 8
         N1FF0416 8
         N1FF0424 8
         N1FF0432 8
         N1FF0440 $5
         N1FF0445 8
         N1FF0451 8
         N1FF0457 8
         N1FF0463 8
         N1FF0469 8
         N1FF0475 8
         N1FF0481 4
         N1FF0482 8
         N1FF0490 8
         N1FF0498 8
         N1FF0506 8
      ;

      INPUT
         SEQN 1-5
         N1FF0006 6-9
         N1FF0010 10
         N1FF0011 11
         N1FF0012 12
         N1FF0013 13
         N1FF0014 14
         N1FF0015 15
         N1FF0016 16
         N1FF0017 17-18
         N1FF0019 19
         N1FF0020 20-21
         N1FF0022 22
         N1FF0023 23-24
         N1FF0025 25-26
         N1FF0027 27
         N1FF0028 28
         N1FF0029 29
         N1FF0030 30
         N1FF0031 31
         N1FF0032 32
         N1FF0033 33
         N1FF0034 34-35
         N1FF0036 36
         N1FF0037 37-40
         N1FF0041 41
         N1FF0042 42-45
         N1FF0046 46
         N1FF0047 47-50
         N1FF0051 51
         N1FF0052 52-55
         N1FF0056 56
         N1FF0057 57-60
         N1FF0061 61
         N1FF0062 62-65
         N1FF0066 66
         N1FF0067 67-70
         N1FF0071 71
         N1FF0072 72-75
         N1FF0076 76
         N1FF0077 77-80
         N1FF0081 81
         N1FF0082 82-85
         N1FF0086 86
         N1FF0087 87-90
         N1FF0091 91-94
         N1FF0095 95-99
         N1FF0100 100
         N1FF0101 101-102
         N1FF0103 103
         N1FF0104 104
         N1FF0105 105
         N1FF0106 106-109
         N1FF0110 110-111
         N1FF0112 112-113
         N1FF0114 114
         N1FF0115 115
         N1FF0116 116
         N1FF0117 117
         N1FF0118 118
         N1FF0119 119
         N1FF0120 120-121
         N1FF0122 122
         N1FF0123 123
         N1FF0124 124
         N1FF0125 125
         N1FF0126 126
         N1FF0127 127
         N1FF0128 128
         N1FF0129 129
         N1FF0130 130
         N1FF0131 131
         N1FF0132 132-134
         N1FF0135 135-137
         N1FF0138 138-143
         N1FF0144 144-145
         N1FF0146 146
         N1FF0147 147-149
         N1FF0150 150
         N1FF0151 151
         N1FF0152 152
         N1FF0153 153
         N1FF0154 154
         N1FF0155 155
         N1FF0156 156
         N1FF0157 157
         N1FF0158 158-163
         N1FF0164 164-169
         N1FF0170 170-175
         N1FF0176 176-181
         N1FF0182 182-193
         N1FF0194 194-195
         N1FF0196 196-198
         N1FF0199 199-200
         N1FF0201 201-204
         N1FF0205 205-215
         N1FF0216 216
         N1FF0217 217-220
         N1FF0221 221-224
         N1FF0225 225-228
         N1FF0229 229-232
         N1FF0233 233-236
         N1FF0237 237-240
         N1FF0241 241-244
         N1FF0245 245-248
         N1FF0249 249-252
         N1FF0253 253-256
         N1FF0257 257-260
         N1FF0261 261-264
         N1FF0265 265-268
         N1FF0269 269-272
         N1FF0273 273-276
         N1FF0277 277-280
         N1FF0281 281-284
         N1FF0285 285-288
         N1FF0289 289-292
         N1FF0293 293-295
         N1FF0296 296
         N1FF0297 297-311
         N1FF0312 312
         N1FF0313 313
         N1FF0314 314
         N1FF0315 315
         N1FF0316 316
         N1FF0317 317
         N1FF0318 318
         N1FF0319 319
         N1FF0320 320-324
         N1FF0325 325-327
         N1FF0328 328-335
         N1FF0336 336-343
         N1FF0344 344-351
         N1FF0352 352-359
         N1FF0360 360-367
         N1FF0368 368-375
         N1FF0376 376-383
         N1FF0384 384-391
         N1FF0392 392-399
         N1FF0400 400-407
         N1FF0408 408-415
         N1FF0416 416-423
         N1FF0424 424-431
         N1FF0432 432-439
         N1FF0440 440-444
         N1FF0445 445-450
         N1FF0451 451-456
         N1FF0457 457-462
         N1FF0463 463-468
         N1FF0469 469-474
         N1FF0475 475-480
         N1FF0481 481
         N1FF0482 482-489
         N1FF0490 490-497
         N1FF0498 498-505
         N1FF0506 506-513
      ;

      LABEL
         SEQN = "SAMPLE SEQUENCE NUMBER"
         N1FF0006 = "CATALOG NUMBER 4271"
         N1FF0010 = "SIZE OF PLACE"
         N1FF0011 = "SMSA-NOT SMSA"
         N1FF0012 = "TYPE OF LIVING QUARTERS"
         N1FF0013 = "LAND USAGE"
         N1FF0014 = "IF RURAL, ASKED HOW MANY ACRES OF LA ..."
         N1FF0015 = "IF 10 ACRES OF MORE, ASKED IF SALE O ..."
         N1FF0016 = "IF 10 ACRES OR LESS, ASKED IF SALE O ..."
         N1FF0017 = "AGE-HEAD OF HOUSEHOLD"
         N1FF0019 = "SEX-HEAD OF HOUSEHOLD"
         N1FF0020 = "HIGHEST GRADE ATTENDED-HEAD OF HOUSEHOLD"
         N1FF0022 = "RACE-HEAD OF HOUSEHOLD"
         N1FF0023 = "TOTAL NUMBER OF PERSONS IN HOUSEHOLD"
         N1FF0025 = "TOTAL SAMPLE PERSONS IN HOUSEHOLD"
         N1FF0027 = "NUMBER OF ROOMS IN HOUSE "
         N1FF0028 = "IS THERE PIPED WATER?"
         N1FF0029 = "IS THERE HOT AND COLD PIPED WATER?"
         N1FF0030 = "IF YES TO PIPED WATER-DOES HOUSE HAV ..."
         N1FF0031 = "DOES HOUSE HAVE A RANGE OR COOK STOVE?"
         N1FF0032 = "DOES HOUSE HAVE A REFRIGERATOR?"
         N1FF0033 = "ARE KITCHEN FACILITIES USED BY ANYON ..."
         N1FF0034 = "TOTAL FAMILY INCOME GROUP"
         N1FF0036 = "WAGES OR SALARIES?"
         N1FF0037 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER ..."
         N1FF0041 = "SOCIAL SECURITY OR  RAILROAD RETIREMENT?"
         N1FF0042 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0046 = "WELFARE PAYMENTS OR OTHER PUBLIC ASS ..."
         N1FF0047 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0051 = "UNEMPLOYMENT OR WORKMEN'S COMPENSATION?"
         N1FF0052 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0056 = "GOVERNMENT EMPLOYEE PENSIONS OR PRIV ..."
         N1FF0057 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0061 = "DIVIDENDS, INTEREST OR RENT?"
         N1FF0062 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0066 = "NET INCOME FROM  OWN NON-FARM BUSINE ..."
         N1FF0067 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0071 = "NET INCOME FROM A FARM?"
         N1FF0072 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0076 = "VETERAN'S PAYMENTS"
         N1FF0077 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0081 = "ALIMONY, CHILD SUPPORT OR CONTRIBUTI ..."
         N1FF0082 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0086 = "ANY OTHER INCOME?"
         N1FF0087 = "IF YES TO ABOVE, HOW MUCH ALTOGETHER?"
         N1FF0091 = "TOTAL AMOUNT(TOTAL OF POSITIONS 37-90)"
         N1FF0095 = "FAMILY UNIT CODE"
         N1FF0100 = "RELATIONSHIP TO HEAD OF HOUSEHOLD"
         N1FF0101 = "AGE AT INTERVIEW"
         N1FF0103 = "RACE OF EXAMINED PERSON"
         N1FF0104 = "SEX OF EXAMINED PERSON"
         N1FF0105 = "MARITAL STATUS"
         N1FF0106 = "DATE OF BIRTH (MONTH, YEAR)"
         N1FF0110 = "PLACE OF BIRTH"
         N1FF0112 = "HIGHEST GRADE OF REGULAR SCHOOL EVER ..."
         N1FF0114 = "DID HE FINISH THE GRADE?"
         N1FF0115 = "IS HE ATTENDING SCHOOL NOW?"
         N1FF0116 = "HAS HE EVER ATTENDED A SCHOOL OF ANY ..."
         N1FF0117 = "IF YES, WHAT KIND OF SCHOOL?"
         N1FF0118 = "IS ANY LANGUAGE OTHER THAN ENGLISH F ..."
         N1FF0119 = "IF YES, WHAT LANGUAGE"
         N1FF0120 = "WHAT IS YOUR MAIN ANCESTRY OR NATION ..."
         N1FF0122 = "WHAT WAS HE DOING MOST PAST THREE MO ..."
         N1FF0123 = "IF ' SOMETHING ELSE' FROM ABOVE, WHA ..."
         N1FF0124 = "IF 'KEEPING HOUSE' OR 'SOMETHING ELS ..."
         N1FF0125 = "IF 'WORKING' FROM ABOVE, DID HE WORK ..."
         N1FF0126 = "DID HE WORK AT ANY TIME LAST WEEK OR ..."
         N1FF0127 = "IF 'NO TO ABOVE, EVEN THOUGH HE DID  ..."
         N1FF0128 = "IF 'NO' IN POSITION 126, WAS HE LOOK ..."
         N1FF0129 = "IF YES TO ABOVE-WHICH?"
         N1FF0130 = "CLASS OF WORKER"
         N1FF0131 = "IF SELF-EMPLOYED IN 'OWN' BUSINESS A ..."
         N1FF0132 = "BUSINESS OR INDUSTRY CODE"
         N1FF0135 = "OCCUPATION CODE"
         N1FF0138 = "DATE OF EXAMINATION"
         N1FF0144 = "AGE AT EXAMINATION"
         N1FF0146 = "FARM"
         N1FF0147 = "POVERTY INDEX (X.XX)"
         N1FF0150 = "REGION"
         N1FF0151 = "FOOD PROGRAMS APPLICABILITY"
         N1FF0152 = "ARE YOU CERTIFIED TO PARTICIPATE IN  ..."
         N1FF0153 = "ARE YOU BUYING STAMPS NOW?"
         N1FF0154 = "WHAT IS THE MAIN REASON YOU AREN'T P ..."
         N1FF0155 = "ARE YOU CERTIFIED TO PARTICIPATE IN  ..."
         N1FF0156 = "ARE YOU RECEIVING COMMODITY FOODS  N ..."
         N1FF0157 = "WHY AREN'T YOU PARTICIPATING IN THE  ..."
         N1FF0158 = "DETAILED PERSONS-LOCATIONS 1-35"
         N1FF0164 = "ALL SAMPLE PERSONS-LOCATIONS 1-35"
         N1FF0170 = "DETAILED PERSONS-LOCATIONS 1-65"
         N1FF0176 = "ALL SAMPLE PERSONS-LOCATIONS 1-65"
         N1FF0182 = "WORK AREA"
         N1FF0194 = "STRATA 1/"
         N1FF0196 = "PRIMARY SAMPLING UNIT 1/"
         N1FF0199 = "WORK AREA"
         N1FF0201 = "CATALOGUE NUMBER 4701"
         N1FF0205 = "DATA USER WORK AREA"
         N1FF0216 = "RESPONDENT CODE"
         N1FF0217 = "MILK (WHOLE)"
         N1FF0221 = "MILK (SKIM) OR BUTTERMILK"
         N1FF0225 = "MEAT AND POULTRY"
         N1FF0229 = "FISH OR SHELLFISH"
         N1FF0233 = "EGGS"
         N1FF0237 = "CHEESE AND CHEESE DISHES"
         N1FF0241 = "DRY BEANS AND PEAS"
         N1FF0245 = "FRUITS AND VEGETABLES (ALL KINDS)"
         N1FF0249 = "FRUITS AND VEGETABLES (RICH IN VITAM ..."
         N1FF0253 = "FRUITS AND VEGETABLES (RICH IN VITAM ..."
         N1FF0257 = "BREAD"
         N1FF0261 = "CEREALS"
         N1FF0265 = "BUTTER AND MARGARINE"
         N1FF0269 = "DESSERTS AND SWEETS"
         N1FF0273 = "CANDY"
         N1FF0277 = "BEVERAGES--SWEETENED, CARBONATED AND ..."
         N1FF0281 = "COLD DRINKS--ARTIFICIALLY SWEETENED  ..."
         N1FF0285 = "COFFEE OR TEA"
         N1FF0289 = "SNACK FOODS"
         N1FF0293 = "INTERVIEWER CODE"
         N1FF0296 = "COMPLETION CODE"
         N1FF0297 = "BLANK-DATA USER WORK AREA"
         N1FF0312 = "RESPONDENT  "
         N1FF0313 = "DAY OF RECALL"
         N1FF0314 = "IS WHAT YOU ATE YESTERDAY THE WAY YO ..."
         N1FF0315 = "HAS YOUR DIET CHANGED RECENTLY?"
         N1FF0316 = "ARE YOU TAKING VITAMINS OR ARE YOU T ..."
         N1FF0317 = "IF YES TO ABOVE "
         N1FF0318 = "HOW MANY TIMES A WEEK DO YOU EAT A M ..."
         N1FF0319 = "HOW OFTEN DO YOU USE SALT SHAKER AT  ..."
         N1FF0320 = "WEIGHT IN POUNDS (XXX.XX) DECIMAL NO ..."
         N1FF0325 = "HEIGHT IN INCHES (XX.XX) DECIMAL NOT ..."
         N1FF0328 = "CALORIES"
         N1FF0336 = "PROTEIN (IN GRAMS)"
         N1FF0344 = "FAT (IN GRAMS)"
         N1FF0352 = "TOTAL CARBOHYDRATE (IN GRAMS)"
         N1FF0360 = "CALCIUM ( IN MILLIGRAMS)"
         N1FF0368 = "PHOSPHORUS (IN MILLIGRAMS)"
         N1FF0376 = "IRON (IN MILLIGRAMS)"
         N1FF0384 = "SODIUM (IN MILLIGRAMS)"
         N1FF0392 = "POTASSIUM (IN MILLIGRAMS)"
         N1FF0400 = "VITAMIN A (INTERNATIONAL UNITS)"
         N1FF0408 = "THIAMINE(IN MILLIGRAMS)"
         N1FF0416 = "RIBOFLAVIN (IN MILLIGRAMS)"
         N1FF0424 = "NIACIN (IN MILLIGRAMS) (NIACIN FROM  ..."
         N1FF0432 = "VITAMIN C (IN MILLIGRAMS)"
         N1FF0440 = "BLANK-DATA USER WORK AREA"
         N1FF0445 = "CALORIES"
         N1FF0451 = "PROTEIN "
         N1FF0457 = "CALCIUM  "
         N1FF0463 = "IRON   "
         N1FF0469 = "VITAMIN A   "
         N1FF0475 = "VITAMIN C   "
         N1FF0481 = "IMPUTATION CODE"
         N1FF0482 = "SATURATED FATTY ACID (IN GRAMS)"
         N1FF0490 = "OLEIC ACID (IN GRAMS)"
         N1FF0498 = "LINOLEIC ACID (IN GRAMS)"
         N1FF0506 = "CHOLESTEROL (IN MILLIGRAMS)"
      ;
RUN;