`

Oracle package

阅读更多
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;

 

分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics