Date:         Sun, 22 Jan 2006 14:21:26 -0800
Reply-To:     "Mogens A. Krogh" <MKROGH@DSR.KVL.DK>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         "Mogens A. Krogh" <MKROGH@DSR.KVL.DK>
Organization: http://groups.google.com
Subject:      Re: Programming Help
Comments: To: sas-l@uga.edu
Content-Type: text/plain; charset="iso-8859-1"

Dear Phil,
If I understand you correct the following datastep will do most of what
you want.

data test1;
set test;
if index(prob_target,"*")>0 then
prob=input(scan(prob_target,1,"*"),3.);
drop prob_target;
if prob>. then output;
run;
proc sort data=test1;
by descending prob;
run;

/mogens a. krogh
DVM, PhD-student
KVL, copenhagen, denmark