/* Beispiel um ungültige SSN-Nummern zu finden */

data Invalidssn;

set ia.Staffssn;

/* Definition des PEARL-Musters mit PRXPARSE */

/* Gültiges Muster: nnn-nn-nnnn , wobei n=numerisches Zeichen */

re = prxparse( '/\d{3}-\d{2}-\d{4}/' );

/* \d{3}: 3 numerische Zeichen */

/* Prüfen auf Übereinstimmung des Musters in der Variable SSN mit PRXMATCH */

/* Wenn Zeichenmuster nicht gefunden wird, dann Satz in Ausgabedatei schreiben */

if prxmatch(re, ssn) = 0 ;

run ;