ORACLE 创建存储过程DELETE_FROM_TPMZBRK00，执行sql根据变量HL_SEQ_NO 删除TPMZBRK00的值

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

CREATE OR REPLACE PROCEDURE DELETE_FROM_TPMZBRK00 (
  P_HL_SEQ_NO IN TPMZBRK00.HL_SEQ_NO%TYPE
)
AS
BEGIN
  -- 使用PRAGMA声明变量来处理异常，如果删除失败会回滚事务
  PRAGMA EXCEPTION_INIT(EXTENSION, -942); -- -942通常代表试图删除不存在的行

  -- 开始事物操作
  BEGIN
    -- 执行SQL语句，根据$HL_SEQ_NO$删除TPMZBRK00表中的记录
    DELETE FROM TPMZBRK00 WHERE HL_SEQ_NO = P_HL_SEQ_NO;
    
    -- 提交事务，如果删除成功
    COMMIT;
  EXCEPTION
    WHEN OTHERS THEN
      -- 如果发生异常，回滚事务并打印错误信息
      ROLLBACK;
      DBMS_OUTPUT.PUT_LINE('Delete operation failed with error: ' || SQLERRM);
  END;
END DELETE_FROM_TPMZBRK00;

-- 调用存储过程示例
EXECUTE DELETE_FROM_TPMZBRK00(P_HL_SEQ_NO => <输入的具体序列号>);

在这个存储过程中，你需要替换`<输入的具体序列号>`为你实际想要删除的`HL_SEQ_NO`值。当你需要删除某个记录时，只需传入相应的值即可执行这个存储过程。