create or replace package body PKG_TEST_XJT is FUNCTION FUN_TEST_XJT RETURN VARCHAR IS DS VARCHAR2(200) := 'HELLO WORLD'; BEGIN RETURN DS; END; PROCEDURE STP_TEST_XJT AS DT VARCHAR2(200); BEGIN DT := FUN_TEST_XJT(); DBMS_OUTPUT.put_line('100' || DT); END STP_TEST_XJT; PROCEDURE STP_TEST2(V1 OUT VARCHAR2, V2 VARCHAR2) AS BEGIN V1 := ''; DBMS_OUTPUT.put_line('V1值:' || V1 || '吨'); STP_TEST3(V1, 'ABC'); DBMS_OUTPUT.put_line('V1值:' || V1 || '吨'); END STP_TEST2; PROCEDURE STP_TEST3(V1 OUT VARCHAR2, V2 VARCHAR2) AS BEGIN V1 := 'TEST3'; END STP_TEST3; end PKG_TEST_XJT;
Oracle package
猜你喜欢
转载自xinjiatao.iteye.com/blog/2144299
今日推荐
周排行