PLSQL Oracle游标程序

Question

目前我正在学习PLSQL，使用Oracle。我正在尝试获取比另一个表中的参数日期更早的数据。我希望程序获取所有数据，检查一些记录是否比param_value中的参数早（recv_date），并且如果是，则要启动我的警报程序。我在声明一个CURSOR和ln_pallets_container时遇到了问题。我知道我可以以某种方式进入ln_pallets数据只有在recv_date我已经过滤，但在这里，我不知道如何正确地做到这一点。也许我应该在过程之前声明光标，而不是在它之内？

procedure CHECK_STOCK_DATE(warehouse_id_in IN warehouse.warehouse_id%TYPE) 
IS 
ln_pallet_count NUMBER; 
ln_days_till_expiration param_value.param_value%TYPE; 

CURSOR ln_pallets IS 
     SELECT container_id, recv_date 
     FROM wms_stock ws 

ln_pallets_container%ROWTYPE; 


BEGIN 

     OPEN ln_pallets; 
      LOOP 
       FETCH ln_pallets INTO ln_pallets_container; 
       EXIT WHEN ln_pallets%NOTFOUND; 

       SELECT param_value.param_value 
       INTO ln_days_till_expiration 
       FROM param_value 
       WHERE param_value.parameter_id = 266; 

        IF(ln_pallets_container.recv_date >= trunc(sysdate - ln_days_till_expiration) 

         ALARM.ALARM(WAREHOUSE_ID =>MY_COMMONS.GET_WHRS_ID, 
SOURCE_TEXT => ln_pallets_container.container_id, 
MESSAGE_CODE => 'Cannot find this container on warehouse. Check container code.'); 
        END IF; 
      END LOOP; 
     CLOSE ln_pallets; 
END; 

Answer 1

有几件事情你的代码错误，我已经固定，并在下面突出显示：

PROCEDURE check_stock_date(warehouse_id_in IN warehouse.warehouse_id%TYPE) IS 
    ln_pallet_count   NUMBER; 
    ln_days_till_expiration param_value.param_value%TYPE; 

    CURSOR ln_pallets IS 
    SELECT container_id, 
      recv_date 
    FROM wms_stock ws; -- added semicolon 

    ln_pallets_container ln_pallets%ROWTYPE; -- amended to set the datatype of the variable to be the cursor rowtype 

BEGIN 

    OPEN ln_pallets; 
    LOOP 
    FETCH ln_pallets 
     INTO ln_pallets_container; 
    EXIT WHEN ln_pallets%NOTFOUND; 

    SELECT param_value.param_value 
    INTO ln_days_till_expiration 
    FROM param_value 
    WHERE param_value.parameter_id = 266; 

    IF /*removed bracket*/ ln_pallets_container.recv_date >= trunc(SYSDATE - ln_days_till_expiration) 
    THEN --added 

     alarm.alarm(warehouse_id => my_commons.get_whrs_id, 
        source_text => ln_pallets_container.container_id, 
        message_code => 'Cannot find this container on warehouse. Check container code.'); 
    END IF; 
    END LOOP; 
    CLOSE ln_pallets; 
END check_stock_date; 

然而，这可以更有效地完成。目前，您正在遍历wms_stock中的所有行，并且您正在明确地打开，提取并关闭游标。

这意味着对于wms_stock中的每一行，您都可以找到parameter_id 266的值（我假设您在循环播放结果时不会改变！），以及检查是否可以运行你的报警程序。

而不是获取所有的行，为什么不移动检查到游标 - 这样，你只会获取参数266值一次，并筛选出任何不需要运行警报程序的行。

与此同时，为什么不切换到使用循环游标？这样，您就不必担心打开/关闭/关闭游标，因为Oracle会为您处理所有这些问题。

这样做，这将导致在更短的代码，这恰好是更有效和更容易阅读和维护，就像这样：

PROCEDURE check_stock_date(warehouse_id_in IN warehouse.warehouse_id%TYPE) IS 
BEGIN 
    FOR ln_pallets_rec IN (SELECT container_id, 
           recv_date 
         FROM wms_stock ws 
         WHERE recv_date >= (SELECT trunc(SYSDATE - param_value.param_value 
               FROM param_value 
               WHERE param_value.parameter_id = 266)) 
    LOOP 
    alarm.alarm(warehouse_id => my_commons.get_whrs_id, 
       source_text => ln_pallets_rec.container_id, 
       message_code => 'Cannot find this container on warehouse. Check container code.'); 
    END LOOP; 

END check_stock_date; 

Answer 2

嗨，你没有为ln_pallets_container变量也是它缺少指定表名“;”游标声明修复后，并尝试

Answer 3

修复了代码中的一些问题。

procedure check_stock_date(warehouse_id_in in warehouse.warehouse_id%type) is 

     ln_pallet_count   number; 
     ln_days_till_expiration param_value.param_value%type; 

     l_container_id wms_stock.container_id%type; 
     l_recv_date wms_stock.recv_date%type; 

     cursor ln_pallets is 
      select container_id 
       ,recv_date 
      from wms_stock ws; 

    begin 

     open ln_pallets; 

     loop 
      fetch ln_pallets 
      into l_container_id 
       ,l_recv_date; 

      exit when ln_pallets%notfound; 

      select param_value.param_value 
      into ln_days_till_expiration 
      from param_value 
      where param_value.parameter_id = 266; 

      if l_recv_date >= trunc(sysdate - ln_days_till_expiration) 
      then 
      alarm.alarm(warehouse_id => my_commons.get_whrs_id 
         ,source_text => l_container_id 
         ,message_code => 'Cannot find this container on warehouse. Check container code.'); 
      end if; 
     end loop; 
     close ln_pallets; 
    end;