Date:         Thu, 29 Oct 2009 12:09:07 -0500
Reply-To:     "Data _null_;" <iebupdte@GMAIL.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         "Data _null_;" <iebupdte@GMAIL.COM>
Subject:      Re: Text mining Schwarzenegger message
Comments: To: Joe Matise <snoopy369@gmail.com>
In-Reply-To:  <b7a7fa630910290949ucdecde1xb42514fb06ab4173@mail.gmail.com>
Content-Type: text/plain; charset=ISO-8859-1

I don't understand this thread, but I found your data step interesting
and thought you might like this variation.

data test2;
   array char[4] $1;
   infile datalines missover n=4;
   do i = 1 by 1 until (missing(cats(of char:)));
      call missing(of char:);
      input #1 (char[*]) (@i $char1. /) @;
      output;
      end;
   stop;
datalines;