FUNCTION IS_INTEGER(
IN_VARCHAR INVARCHAR2) RETURNINTEGERAS FLAG INTEGER;
I INTEGER; BEGIN FOR I IN 1..LENGTH(IN_VARCHAR)
LOOP IFASCII(SUBSTR(IN_VARCHAR,I,1))>=48 ANDASCII(SUBSTR(IN_VARCHAR,I,1))<=57 THEN
FLAG:=0; ELSE
FLAG:=-1; EXIT; ENDIF; END LOOP; RETURN FLAG; END IS_INTEGER;