Function to verify if Input data is in Arabic

 

Function IsPureArabic(&input As string) Returns boolean

   Local string &pattern = "[\u0600-\u06FF]+";

   If Find(&pattern, &input) = 1 Then

      Return True;

   Else

      Return False;

   End-If;

End-Function;