OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME          DATE     PROGRAMMER            ;
TITLE1 "Source:LEC14P6b.SAS       11/2/99      EJS "               ;
* Description:                                                     ;
*     An example reading data with LIST input format comma delimited;
*      and telephone numbers                                       ;
*******************************************************************;

DATA d;
  INFILE CARDS DELIMITER=","  FIRSTOBS=2;
  INPUT name $
        age
        phone COMMA8. ;
CARDS;
Name,Age,Phone#
John,18,222-1212
Sue Beth,19,311-2322
Henry,25,332-1211
;


PROC PRINT DATA=d;
  TITLE2 "Table 1.  Listing of Data using LIST input with comma deliminators";


PROC CONTENTS DATA=d;
  TITLE2 "Table 2.  Contents of Data with Telephone Numbers";
RUN;