FILENAME CFFSE 'D:\Second Day Exams\FOODS\DAT\CFFSE.DAT' LRECL=150;
**** LRECL includes 2 positions for CRLF, assuming use of PC SAS ;

    DATA WORK;
      INFILE CFFSE MISSOVER;

      LENGTH
        SEQN      7
        DRRSTAT   3
        DRRMN     3
        DRRFN     3
        DRRTCC    3
        DRRCCODE $7
        DRRCGW    8
        DRRCALCO  8
        DRRCCALC  8
        DRRCCARB  8
        DRRCCARO  8
        DRRCCHOL  8
        DRRCCOPP  8
        DRRCFIBE  8
        DRRCFOLA  8
        DRRCIRON  8
        DRRCKCAL  8
        DRRCMAGN  8
        DRRCMFAT  8
        DRRCNIAC  8
        DRRCPFAT  8
        DRRCPHOS  8
        DRRCPOTA  8
        DRRCPROT  8
        DRRCSFAT  8
        DRRCSODI  8
        DRRCTFAT  8
        DRRCVAIU  8
        DRRCVARE  8
        DRRCVB1   8
        DRRCVB2   8
        DRRCVB6   8
        DRRCVB12  8
        DRRCVC    8
        DRRCVE    8
        DRRCWATE  8
        DRRCZINC  8
      ;

      FORMAT
        DRRMN    Z2.
        DRRFN    Z2.
        DRRTCC   Z2.
      ;

     INPUT
        SEQN     1-5
        DRRSTAT  6
        DRRMN    7-8
        DRRFN    9-10
        DRRTCC   11-12
        DRRCCODE 13-19
        DRRCGW   20-23
        DRRCALCO 24-26
        DRRCCALC 27-30
        DRRCCARB 31-35
        DRRCCARO 36-39
        DRRCCHOL 40-43
        DRRCCOPP 44-46
        DRRCFIBE 47-50
        DRRCFOLA 51-54
        DRRCIRON 55-58
        DRRCKCAL 59-62
        DRRCMAGN 63-65
        DRRCMFAT 66-70
        DRRCNIAC 71-74
        DRRCPFAT 75-78
        DRRCPHOS 79-82
        DRRCPOTA 83-86
        DRRCPROT 87-91
        DRRCSFAT 92-95
        DRRCSODI 96-100
        DRRCTFAT 101-105
        DRRCVAIU 106-110
        DRRCVARE 111-115
        DRRCVB1  116-119
        DRRCVB2  120-123
        DRRCVB6  124-127
        DRRCVB12 128-133
        DRRCVC   134-136
        DRRCVE   137-140
        DRRCWATE 141-144
        DRRCZINC 145-148
     ;

      LABEL
        SEQN     = "Respondent identification number"
        DRRSTAT  = "Recall Status Code"
        DRRMN    = "Meal number"
        DRRFN    = "Food number"
        DRRTCC   = "Type of combination code"
        DRRCCODE = "USDA code. Combination food code"
        DRRCGW   = "CFF Total grams of food/beverage"
        DRRCALCO = "CFF Alcohol (gm)"
        DRRCCALC = "CFF Calcium (mg)"
        DRRCCARB = "CFF Carbohydrate (gm)"
        DRRCCARO = "CFF Carotenes (RE)"
        DRRCCHOL = "CFF Cholesterol (mg)"
        DRRCCOPP = "CFF Copper (mg)"
        DRRCFIBE = "CFF Total dietary fiber (gm)"
        DRRCFOLA = "CFF Folacin (micrograms)"
        DRRCIRON = "CFF Iron (mg)"
        DRRCKCAL = "CFF Food energy (Kcal)"
        DRRCMAGN = "CFF Magnesium (mg)"
        DRRCMFAT = "CFF TOT Monounsaturated fatty acids (gm)"
        DRRCNIAC = "CFF Niacin (mg)"
        DRRCPFAT = "CFF TOT Polyunsaturated fatty acids (gm)"
        DRRCPHOS = "CFF Phosphorus (mg)"
        DRRCPOTA = "CFF Potassium (mg)"
        DRRCPROT = "CFF Protein (gm)"
        DRRCSFAT = "CFF Total saturated fatty acids (gm)"
        DRRCSODI = "CFF Sodium (mg)"
        DRRCTFAT = "CFF Total fat (gm)"
        DRRCVAIU = "CFF Vitamin A (IU)"
        DRRCVARE = "CFF Vitamin A (RE)"
        DRRCVB1  = "CFF Thiamin (mg)"
        DRRCVB2  = "CFF Riboflavin (mg)"
        DRRCVB6  = "CFF Vitamin B6 (mg)"
        DRRCVB12 = "CFF Vitamin B12 (micrograms)"
        DRRCVC   = "CFF Ascorbic acid (mg)"
        DRRCVE   = "CFF Vitamin E (alpha tocopherol equival)"
        DRRCWATE = "CFF Water (gm)"
        DRRCZINC = "CFF Zinc (mg)"
      ;