/* ******************************************* */
/* REXX code fragment to check that the        */
/* characters in Query are restricted to a     */
/* Valid set of characters.                    */
/* ******************************************* */
Valid=' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'
Valid=Valid||'0123456789-_/.@'
V=VERIFY(Query,Valid)
IF V/=0 THEN DO
   SAY 'Invalid character('SUBSTR(Query,V,1)')in:"'Query'"'
   EXIT 1
END

#Perl code fragment to check that the characters in
#Query are restricted to a valid set of characters
unless ($query =~ /^[a-zA-Z0-9_@\.\-\/]*/) 
   { print "Invalid character in: $query";
     exit(1)
   }