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

/* FUNCTION RETURNS TRUE IF STRING CONTAINS ONLY ALPHABETICS AND BLANKS,
   FALSE IF STRING CONTAINS NONALPHABETICS */

DCL TEST_STRING CHAR(*) VARYING;

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

END;