oracle存储过程动态组字符串

create or replace procedure SP_G902005(TeburuName VARCHAR, --テーブル
                                       RESULT     OUT INT --結果(0:成功; -1:失敗)
                                       ) is
  tmp_str            VARCHAR(2000);
  ZenngetuTeburuName VARCHAR(100); --前月テーブル
begin
    /*前月テーブル*/
    ZenngetuTeburuName := TeburuName || 'z';
    /*delete 前月テーブル*/
    tmp_str := 'DELETE FROM ' || ZenngetuTeburuName;
    EXECUTE immediate tmp_str;
    /*insert into テーブル*/
    tmp_str := 'INSERT INTO ' || ZenngetuTeburuName || 'SELECT * FROM ' ||
               TeburuName;
    EXECUTE immediate tmp_str;

    COMMIT;
    RESULT := 0; --0:成功
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    RESULT := -1; --  -1:失敗
  WHEN OTHERS THEN
    ROLLBACK;
    RESULT := -1; --  -1:失敗
end;