Hi. This should work: data abcl(keep=id text); input id text : & $200.; format date date9.; if _N_ = 1 then do; retain rId; rId = prxparse('/\d{2} (Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec) \d{4}/i'); end; start = 1; stop = length(text); call prxnext(rId, start, stop, text, position, length); do while (position > 0); date = input(substr(text, position, length),date11.); call prxnext(rId, start, stop, text, position, length); if date > date() then do; output; continue; end; end; cards; 101 Prime Minister has arrived in Melbourne for the final leg of his four-city tour of Australia on 01 Mar 2014 and 03 Apr 2101' 102 The 234/12 advance rfff1111eading of Singapore third quarter on 01 Dec 2012 showing no response 103 There is no symptom minister Malaria after 20 Nov 2014 meaning vaccine work properly 104 The total cost of the conversion is a nonnegative value that is usually seen on 01 Jan 2017 showing 10 people's work ; run;
... View more