oracle 创建查询存储过程LTSSM0.SELECT_FROM_TPMZBRK01 根据参数 HL_SEQ_NO从TPMZBRK01查询 LOT_NO数据

Oracle中创建查询存储过程（Procedure）可以根据参数HL_SEQ_NO从表TPMZBRK01中选择LOT_NO数据，可以按照以下步骤编写：

CREATE OR REPLACE PROCEDURE LTSSM0.SELECT_FROM_TPMZBRK01 (
  P_HL_SEQ_NO IN TPMZBRK01.HL_SEQ_NO%TYPE,
  OUT P_LOT_NO TPMZBRK01.LOT_NO%TYPE)
AS
BEGIN
  -- 使用动态SQL根据输入的HL_SEQ_NO查询数据
  EXECUTE IMMEDIATE 'SELECT LOT_NO 
                     FROM TPMZBRK01 
                    WHERE HL_SEQ_NO = :P_HL_SEQ_NO'
    INTO P_LOT_NO
    USING P_HL_SEQ_NO;
  
  -- 确保只返回一条记录（如果有多条，需处理）
  IF SQL%ROWCOUNT > 1 THEN
    RAISE_APPLICATION_ERROR(-20001, 'Multiple rows found for HL_SEQ_NO.');
  END IF;
END LTSSM0.SELECT_FROM_TPMZBRK01;
/

要调用此存储过程并获取结果，可以这样做：

BEGIN
  LTSSM0.SELECT_FROM_TPMZBRK01(HL_SEQ_NO => 'your_input_value', OUT_P_LOT_NO => L_LOT_NO);
  DBMS_OUTPUT.PUT_LINE('LOT_NO: ' || L_LOT_NO);
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('Error occurred: ' || SQLERRM);
END;
/