ORACLE 创建存储过程DELETE_FROM_TPMZBRK00 根据变量HL_SEQ_NO 删除TPMZBRK00

创建一个名为DELETE_FROM_TPMZBRK00的存储过程，用于删除Oracle数据库表TPMZBRK00中基于变量HL_SEQ_NO的数据，可以按照以下步骤编写：

CREATE OR REPLACE PROCEDURE DELETE_FROM_TPMZBRK00 (
  p_HL_SEQ_NO IN TPMZBRK00.HL_SEQ_NO%TYPE,
  p_IsDryRun OUT NUMBER DEFAULT 0 -- 如果需要检查操作而不实际删除，设置IsDryRun为1
)
AS
BEGIN
  IF :p_IsDryRun = 1 THEN
    DBMS_OUTPUT.PUT_LINE('Dry run: Record with HL_SEQ_NO ' || p_HL_SEQ_NO || ' would be deleted.');
  ELSE
    BEGIN
      DELETE FROM TPMZBRK00
      WHERE HL_SEQ_NO = p_HL_SEQ_NO;
      
      COMMIT; -- 执行删除操作后提交事务
      DBMS_OUTPUT.PUT_LINE('Record with HL_SEQ_NO ' || p_HL_SEQ_NO || ' has been deleted.');
    EXCEPTION
      WHEN OTHERS THEN
        ROLLBACK; -- 操作失败时回滚事务
        RAISE; -- 重新抛出异常
    END;
  END IF;
END DELETE_FROM_TPMZBRK00;

-- 调用存储过程示例
EXECUTE DELETE_FROM_TPMZBRK00(HL_SEQ_NO => 'your_sequence_number', p_IsDryRun => 0);
-- 或者只做模拟运行
EXECUTE DELETE_FROM_TPMZBRK00(HL_SEQ_NO => 'your_sequence_number', p_IsDryRun => 1);

这个存储过程首先检查`IsDryRun`是否为1，如果是，则只是打印一条消息表示将会删除记录；如果不是，它会尝试从表中删除指定的行，并在成功后提交事务。如果过程中发生错误，将回滚事务并重新抛出异常。