Extra spaces in datalines 2

[tharpa]

Suppose your datalines are not quite even, due to extra spaces on some lines. e.g.

01/03/1950 01/03/1960 03Jan1970
05/15/2000 05/15/2002 15May2003
10/10/1998 11/12/2000 25Dec2005

How can you input this?

For example,

data ThreeDates;
   input COMPBL(Date1)  mmddyy10.
         COMPBL(Date2)   mmddyy10.
         COMPBL(Date3)  date9.;
   Year12 = yrdif(Date1,Date2,'Actual');
	Year23 = round(yrdif(Date2,Date3,'Actual'));

   format Date1 Date2 Date3 date9.;
datalines;
01/03/1950 01/03/1960 03Jan1970
05/15/2000   05/15/2002   15May2003
10/10/1998 11/12/2000    25Dec2005
;
title "Listing of Three DATES";
proc print data=ThreeDates noobs;
run;

does not work.

 

[klaz2002]

Try to read in the data using position format.
ex

data ThreeDates;
   infile datalines truncover;
   length datastring $500;
   input datastring  1-500;
   date1=input(scan(datastring,1,' '),mmddyy10.);
   date2=input(scan(datastring,2,' '),mmddyy10.);
   date3=input(scan(datastring,3,' '),date9.);

   Year12 = yrdif(Date1,Date2,'Actual');
   Year23 = round(yrdif(Date2,Date3,'Actual'));

   format Date1 Date2 Date3 date9.;
datalines;
01/03/1950 01/03/1960 03Jan1970
05/15/2000   05/15/2002   15May2003
10/10/1998 11/12/2000    25Dec2005
;
run;
title "Listing of Three DATES";
proc print data=ThreeDates noobs;
run;

Klaz

 

[Asender]

Can you not just use modified list input? (I think it's called that)

data ThreeDates;
   input Date1  :mmddyy10.
         Date2  :mmddyy10.
         Date3  :date9.;

   Year12 = yrdif(Date1,Date2,'Actual');
   Year23 = round(yrdif(Date2,Date3,'Actual'));

   format Date1 Date2 Date3 date9.;
datalines;
01/03/1950 01/03/1960 03Jan1970
05/15/2000   05/15/2002   15May2003
10/10/1998 11/12/2000    25Dec2005
;
title "Listing of Three DATES";
proc print data=ThreeDates noobs;
run;

Chris...