| create or replace PROCEDURE
 JUDGE_NUMBER(p_STR VARCHAR2,p_pose out pls_integer,p_char out varchar2)
 is
 -- Author  : 青云
 -- Created : 2010-10-02 15:37:17
 -- Purpose : 判断字符串是否为纯数字,假设不是,返回位置和字符;假设是,返回0
 
 begin
 
 WITH A AS
 (SELECT LEVEL lvl, substr(p_STR, LEVEL, 1) AS chr
 
 FROM dual
 CONNECT BY LEVEL <= length(p_STR))
 
 SELECT  lvl ,chr into p_pose,p_char
 FROM A
 WHERE chr NOT IN (SELECT TO_CHAR(LEVEL - 1) AS X
 FROM DUAL
 CONNECT BY LEVEL <= 10)
 AND ROWNUM=1;
 
 exception
 when no_data_found then
 p_pose:=0;
 
 end JUDGE_NUMBER;
 |