/* Day 1: Pgm 1.3         */
 /*                        */
 /* second problem -- old student information  */
 /*                                            */
  data a ;        * gotta have at least one comment! ;
                  *                                  ;
   input firstnm $ acctnm $ gender $ q1 $ q2 $
           num1 hgtft hgtin bday $ @40 birthday mmddyy8.;
                  * read birthday twice -- once as   ;
                  *  characters, second as date      ;
   cards ;
Marie    kmvick    f   c  . 70  5 06   04/02/57
Kevin    kswilli   m   a  e 85  5 10   09/04/70
Betsy    esfutrel  f   a  b 75  5 05   08/29/64
Dean     wdvogt    m   a  b 30  5 07   04/22/73
Jimmy    jdrhodes  m   a  b 92  5 10   02/07/73
Ryan     rmthomps  m   a  d 80  6 00   11/14/71
Chris    cdthomps  m   a  c 68  5 08   01/28/72
 ;
                  * end of data step ;
  proc print data=a ;
   title 'first example' ;
run ;