/*  April 3, 2000  */

/*  This program creates a SAS dataset from the Complete Pyramid Servings Database
    that is in CSV (comma separated value) format on the NCI website.  */

/*  Remember to change the libname and filename statements for your working environment.  */


libname MENDOZA 'c:\NHANES III\Datasets\' ;

filename PSDB 'c:\NHANES III\Datasets\complete.csv' ;


data one;
  infile PSDB lrecl=350 dlm="," missover firstobs=2;

  /*  NOTE:  drpfcode is read as a character variable because it is a character variable
      in other NHANES III data files.  */

  input drpfcode $
        add_sug
        a_bev
        discfat
        d_cheese
        d_milk
        d_total
        d_yogurt
        f_citmlb
        f_other
        f_total
        g_nwhl
        g_total
        g_whl
        m_egg
        m_fish
        m_frank
        m_meat
        m_mpf
        m_nutsd
        m_organ
        m_poult
        m_soy
        v_dpyel
        v_drkgr
        v_legume
        v_other
        v_potato
        v_starcy
        v_tomato
        v_total;

    label
        drpfcode = '7 digit NHANES III food code'
        add_sug  = 'tsp added sugars'
        a_bev    = 'total drinks of alcohol'
        discfat  = 'grams of discretionary fat'
        d_cheese = 'number of cheese servings'
        d_milk   = 'number of milk servings'
        d_total  = 'total number of dairy servings'
        d_yogurt = 'number of yogurt servings'
        f_citmlb = 'number of citrus, melon, berry servings'
        f_other  = 'number of other fruit servings'
        f_total  = 'total number of fruit servings'
        g_nwhl   = 'number of non-whole grain servings'
        g_total  = 'total number of grain servings'
        g_whl    = 'number of whole grain servings'
        m_egg    = 'oz lean meat equivalent from eggs'
        m_fish   = 'oz lean meat from fish, other seafood'
        m_frank  = 'oz lean meat from franks, luncheon meats'
        m_meat   = 'oz lean meat from beef, pork, lamb, etc'
        m_mpf    = 'oz lean meat from meat, poultry, fish'
        m_nutsd  = 'oz lean meat equivalent from nuts, seeds'
        m_organ  = 'oz lean meat from organ meats'
        m_poult  = 'oz lean meat from poultry'
        m_soy    = 'oz lean meat equivalent from soy product'
        v_dpyel  = 'number of deep yellow vegetable servings'
        v_drkgr  = 'number of dark green leafy vegetable servings'
        v_legume = 'number of dry bean and pea servings'
        v_other  = 'number of other vegetable servings'
        v_potato = 'number of white potato servings'
        v_starcy = 'number of other starchy vegetable servings'
        v_tomato = 'number of tomato servings'
        v_total  = 'total number of vegetable servings' ;

  run;

data MENDOZA.PSDB;
  set one;

  proc contents;

  run;