ALPHAMERIC:  PROC(TEST_STRING) RETURNS(BIT(1));

/* FUNCTION RETURNS TRUE IF STRING CONTAINS ONLY ALPHAMERICS AND BLANKS,
   FALSE IF STRING CONTAINS NONALPHAMERICS */

DCL TEST_STRING CHAR(*) VARYING;

IF VERIFY(TEST_STRING,
  '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz '
   )>0 THEN RETURN('0'B);
ELSE RETURN('1'B);

END;