Date:         Sun, 8 Mar 2009 23:25:35 -0700
Reply-To:     SAS Illiterate <sasgeek009@GMAIL.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         SAS Illiterate <sasgeek009@GMAIL.COM>
Organization: http://groups.google.com
Subject:      Program Error
Comments: To: sas-l@uga.edu
Content-Type: text/plain; charset=ISO-8859-1

Can someone help me with error in this program

data ndc;

   infile datalines dlm=",-*";
   input age ndc_code;
   dosage = find(ndc_code, 2, "-");
   do while dosage = "*";
      dosage = substr(dosage, 2);
   end;
   if ((age <= 10) and (numdosage > 5)) then
      dosage_error = 1;
   end;
datalines;
10, 12345-015-12
10, 12345-005-12
10, 12345-001-12
10, 12345-*15-12
10, 12345-*5-12
10, 12345-*45-12
10, 12345-*1-12
20, 12345-*25-12
20, 12345-*5-12
20, 12345-*1-12
20, 12345-*25-12
run;