I don't think there is one, but you can create it very easily
using someting like
LET charstr = integer value
FOR i = 1 to LENGTH(charstr)
IF charstr[i] in (1,2,3,4 etc... ) THEN
-- do nothing
ELSE
ERROR "Not a numberic value"
RETURN FALSE
END IF
END FOR
I did not try it, Do not have access to 4gl but should work