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;