Oracle 存储过程内创建存储过程、函数

--存储过程内创建存储过程、函数
-------------------------------------------------------------
CREATE OR REPLACE PROCEDURE cr_ccgchsc(p_num IN VARCHAR2) IS
  V_COUNT NUMBER(10); --计数变量
  V_SQL   VARCHAR2(5000); --查询语句
--存储过程内函数
  FUNCTION getNum(p_num3 IN NUMBER) RETURN NUMBER IS
    v_num4 NUMBER;
  BEGIN
    v_num4 := p_num3 *100;
    RETURN v_num4;
  END;
--存储过程内存储过程
  PROCEDURE checksum(p_num2 IN NUMBER) IS
  BEGIN
    IF (p_num2 <> 3) THEN
      dbms_output.put_line('getNum==' || getNum(p_num2));
    END IF;
  END;


BEGIN
  --主体
  checksum(p_num);
END cr_ccgchsc;
--------------------------------------------------------------------------


--调用
begin 
cr_ccgchsc(2);
  end ;