--存储过程内创建存储过程、函数
-------------------------------------------------------------
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 ;
-------------------------------------------------------------
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 ;