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;