0

カーソルにレコードが含まれていない場合、ループが壊れているという以下の手順があります。カーソルにレコードがなくても繰り返しを続けたいです。

私の手順は、

CREATE OR REPLACE PROCEDURE "MAPSADMIN"."FORECAST_MAINTENANCE_SCH" (
  in_carrierCode VARCHAR2,
  in_WindowPeriodStr VARCHAR2,
  out_forecastRecords OUT types.cursortype
)
IS
  vtailAndCheckCur types.cursortype;
  vForecastRecsCursor types.cursortype; 
  vtailNo VARCHAR2(10);
  vmaintCheckType VARCHAR2(10);
  vforcastRecords forecastObjectsList := forecastObjectsList();
  forcastRec forecastObjectsList := forecastObjectsList();
BEGIN
dbms_output.enable(null);
   OPEN vtailAndCheckCur FOR
      select td.tail_number,mpm.maint_check_type 
      from tail_details td, maint_plan_tail_map mptm, maint_plan_master mpm
      where td.tail_number = mptm.tail_number
      and mpm.maint_plan_code = mptm.maint_plan_code
      and mpm.carrier_code = in_carrierCode
        UNION
      select td.tail_number,mpm.maint_check_type 
      from tail_details td, maint_plan_subfleet_map mptm, maint_plan_master mpm
      where td.subfleet_code = mptm.subfleet_code
      and mpm.maint_plan_code = mptm.maint_plan_code
      and mpm.carrier_code = in_carrierCode;
    LOOP
      FETCH vtailAndCheckCur INTO vtailNo, vmaintCheckType;
      dbms_output.put_line( vtailNo||' '||vmaintCheckType );
      FORECAST_OBJS_LIST(vtailNo,vmaintCheckType,in_WindowPeriodStr,vForecastRecsCursor);
          LOOP           
            forcastRec.EXTEND;
            forcastRec(forcastRec.COUNT) := FORECASTOBJECT(null,null,null,null,null,null,null,null,null,null);
             dbms_output.put_line( 'test');
            FETCH vForecastRecsCursor INTO 
                forcastRec(forcastRec.COUNT).maintNextPlanCode,
                forcastRec(forcastRec.COUNT).tailNumber,
                forcastRec(forcastRec.COUNT).maintNextCheckType,
                forcastRec(forcastRec.COUNT).maintNextCycleCheckLabel,
                forcastRec(forcastRec.COUNT).maintNextStartDate,
                forcastRec(forcastRec.COUNT).maintNextEndDate,
                forcastRec(forcastRec.COUNT).maintNextDueDate,
                forcastRec(forcastRec.COUNT).maintNextCalendarDays,
                forcastRec(forcastRec.COUNT).maintForecastFactor,
                forcastRec(forcastRec.COUNT).maintCheckColor;
                dbms_output.put_line( forcastRec(forcastRec.COUNT).maintNextPlanCode);
            EXIT WHEN vForecastRecsCursor%NOTFOUND;
          END LOOP;

      EXIT WHEN vtailAndCheckCur%NOTFOUND;

    END LOOP;

   CLOSE vtailAndCheckCur;
    OPEN out_forecastRecords FOR
      SELECT tailNumber,maintNextCheckType,maintNextPlanCode,maintNextCycleCheckLabel,maintNextStartDate,
      maintNextEndDate,maintNextDueDate,maintNextCalendarDays,maintForecastFactor,maintCheckColor
      FROM TABLE(CAST(forcastRec AS forecastObjectsList));
 EXCEPTION
  WHEN OTHERS THEN
  dbms_output.put_line(DBMS_UTILITY.FORMAT_ERROR_STACK);
END FORECAST_MAINTENANCE_SCH;

/

ここで、vForecastRecsCursor が 0 レコードなしで返される場合、ORA-01001: 無効なカーソルが発生します。誰でも、エラーを無視してさらに反復する方法を説明してください。

前もって感謝します

4

2 に答える 2

0

GOTO 句またはコード ブロックを使用して、ループを制御できます。

DECLARE
    dummy_cur   SYS_REFCURSOR;
    l_dummy_num NUMBER;

    CURSOR dual_cur IS
        SELECT  1
        FROM    dual
        WHERE   1 = 2;

    l_dual_num NUMBER;
    l_counter  NUMBER := 0;
BEGIN
    OPEN dummy_cur FOR SELECT 1 FROM dual;

    LOOP
        FETCH dummy_cur INTO l_dummy_num;
        IF dummy_cur%NOTFOUND THEN
            GOTO exit_command;
        END IF;

        -- inner cursor
        BEGIN
            -- open inner cursor
            IF l_counter = 0 THEN
                OPEN dual_cur;
            END IF;
            -- loop inner cursor
            LOOP
                FETCH dual_cur INTO l_dual_num;
                DBMS_OUTPUT.PUT_LINE('inner loop');

                EXIT WHEN dual_cur%NOTFOUND;
            END LOOP;
        EXCEPTION
            WHEN OTHERS THEN
                DBMS_OUTPUT.PUT_LINE('exception');
        END;

        <<exit_command>>
        EXIT WHEN dummy_cur%NOTFOUND;

        DBMS_OUTPUT.PUT_LINE('l_dummy_num: ' || l_dummy_num);

        l_counter := l_counter + 1;
        DBMS_OUTPUT.PUT_LINE('l_counter: ' || l_counter);
    END LOOP;

    --close inner cursor
    CLOSE dual_cur;
    CLOSE dummy_cur;
EXCEPTION
    WHEN OTHERS THEN
        CLOSE dual_cur;
        CLOSE dummy_cur;
END;
于 2013-08-14T08:50:16.280 に答える
0

vForecastRecsCursor が開いているかどうかを確認してください。

IF vForecastRecsCursor%ISOPEN THEN
  ...
END IF;
于 2013-08-14T08:31:44.653 に答える