ストアド・プロシージャ・コールストアド・プロシージャのトランザクション

procedure test1(p_RETCODE in out varchar2, p_retInfo in out varchar2);
  procedure test2(p_RETCODE in out varchar2, p_retInfo in out varchar2);
  procedure test3(p_RETCODE in out varchar2, p_retInfo in out varchar2);

procedure test1(p_RETCODE in out varchar2, p_retInfo in out varchar2) is
    biz_exception exception;
  begin
    insert into tree_tb (id, NODE_NAME) values ('1', '1');
    p_RETCODE := '1';
    p_retInfo := 'test1 。';
  exception
    WHEN biz_exception then
      p_RETCODE := '-1';
      p_retInfo := ' 1';
      rollback;
    when others then
      p_RETCODE := SQLCODE;
      p_retInfo := SUBSTR(SQLERRM, 1, 1000);
      DBMS_OUTPUT.PUT_LINE('Error code ' || p_RETCODE || ': ' || p_retInfo);
      rollback;
  end;

  procedure test2(p_RETCODE in out varchar2, p_retInfo in out varchar2) is
    biz_exception exception;
  begin
    insert into tree_tb (id, NODE_NAME) values ('2', '2');
    insert into tree_tb (id, NODE_NAME) values ('3', '3');
    raise biz_exception;
    insert into tree_tb (id, NODE_NAME) values ('4', '4');
    p_RETCODE := '1';
    p_retInfo := 'test2 。';
  exception
    WHEN biz_exception then
      p_RETCODE := '-2';
      p_retInfo := ' 2';
      rollback;
    when others then
      p_RETCODE := SQLCODE;
      p_retInfo := SUBSTR(SQLERRM, 1, 1000);
      DBMS_OUTPUT.PUT_LINE('Error code ' || p_RETCODE || ': ' || p_retInfo);
      rollback;
  end;


 /**
  * @ :  
  * @ :  
  * @param retcode     out    
  * @param retinfo     out    
  */
  procedure test3(p_RETCODE in out varchar2, p_retInfo in out varchar2) is
    biz_exception exception;
  begin
    test1(p_RETCODE, p_retInfo);
    test2(p_RETCODE, p_retInfo);
  exception
    WHEN biz_exception then
      rollback;
    when others then
      p_RETCODE := SQLCODE;
      p_retInfo := SUBSTR(SQLERRM, 1, 1000);
      DBMS_OUTPUT.PUT_LINE('Error code ' || p_RETCODE || ': ' || p_retInfo);
      rollback;
  end;