OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
* PROJECT NAME: Learning to Use SAS                                ;
*             PROGRAM NAME     LOCATION     DATE     PROGRAMMER    ;
TITLE1 "Source:LEC15P1.SAS    Disk 1998#1 10/28/98      EJS "      ;
* Description:                                                     ;
*    An example using INFORMATs in an INPUT statement to read dates;
*  when values are missing                                         ;
*******************************************************************;

DATA new1;
  INFILE CARDS MISSOVER;
  INPUT @1 id 3.
        @5 c_date mmddyy8.
        dbp ;
  LABEL c_date="Blood/collection/Date:/C_DATE"
           dbp="Diastolic/Blood/Pressure:/DBP";
CARDS;
001 1/12/60 110
002 01 12 60 110
003 1/12 60 110
004 1.12.60 110
005 1-12-60 110
006 11260  110
007 011260 110
008 01/12/60 110
009 1*12*60 110
010 . 110
011 1 12 60 110
;

PROC PRINT DATA=new1 SPLIT="/";
  ID id;
  VAR  c_date dbp;
  TITLE2 "Table 1. Listing of Dates with INFORMAT in Input Statement";

RUN;