Plw-06002 unreachable code

Question

Hi,
I am getting error PLW-06002 unreachable code at quite a few places . I guess my loops have some problem
but I am not able to find out reason for that. I apologize for inconveinence caused by unformatted code.
I have tried to format it, please help me to fix this mess.
create or replace procedure wip_case2_proc (p_packing_id IN     packing.packing_id%TYPE,
                                         p_new_qty    IN     NUMBER,
                                                               o_return_msg OUT VARCHAR2 )
is
v_tran                        VARCHAR2(1);
v_new_qty                 NUMBER;
v_new_line_status        VARCHAR2(5);
v_err_msg                   VARCHAR2(100);
vo_order_number          orders.order_number%type;
v_line_status                 ordered_items.status%TYPE;
ordadjrec                    orders%ROWTYPE;
itemrec                      ordered_items%ROWTYPE;
v_msg                      VARCHAR2(200);
v_client                    VARCHAR2(20);
v_order_number          VARCHAR2(20);
ordrec                     orders%ROWTYPE;
ord                        orders.order_number%TYPE;
oirec                      ordered_items%ROWTYPE;
    CURSOR c_packing IS
        SELECT p.client,
                   p.order_number
        FROM  packing p,
                 packing_attributes pa,
                 orders o,
                business_partner bp
    WHERE  p.packing_id       = p_packing_id
      AND  p.packing_id       = pa.packing_id
      AND  p.client           = o.client
      AND  p.order_number     = o.order_number
      AND  o.client           = bp.client
      AND o.business_partner  = bp.business_partner;     
CURSOR c_adj_item (p_order_number VARCHAR2, p_client VARCHAR2) IS
SELECT oi.*
   FROM   ordered_items oi, packing_details pd
  WHERE oi.order_number    = p_order_number
    AND   pd.packing_id      = p_packing_id
    AND  oi.client          = p_client
    AND  oi.ordered_item_id = pd.ordered_item_id
    AND  oi.stock_number    = pd.stock_number;
CURSOR c_adj_order (p_order_number VARCHAR2, p_client VARCHAR2) IS
SELECT *
   FROM orders
  WHERE order_number = p_order_number
    AND client       = p_client;
   CURSOR c_lines (p_order_number VARCHAR2, p_client VARCHAR2) IS
  SELECT oi.*
   FROM   ordered_items oi, packing_details pd
  WHERE oi.order_number    = p_order_number
    AND   pd.packing_id      = p_packing_id
    AND oi.client          = p_client
    AND status             = 'B'
    AND oi.ordered_item_id = pd.ordered_item_id
    AND oi.stock_number    = pd.stock_number ;
   CURSOR c_back_order(p_order_number VARCHAR2, p_client VARCHAR2) IS
   SELECT o.*
     FROM packing p,
              packing_attributes pa,
             orders o
    WHERE p.packing_id   = p_packing_id
      AND   p.packing_id   = pa.packing_id
      AND   p.client       = o.client
      AND   p.order_number = o.order_number
      AND   o.order_number = p_order_number;
  -----------------------------MAIN---------------------------------
BEGIN
     DBMS_OUTPUT.put_line ('adjust c_adj_item packing');
    ---adjust 
         v_tran         := 'U';
                  v_line_status  := 'S';
     v_new_qty      := p_new_qty;
  OPEN c_packing;
     Loop
         Fetch c_packing into v_client,v_order_number;
         OPEN c_adj_item (v_order_number, v_client);
            LOOP
                FETCH c_adj_item INTO itemrec;
           DBMS_OUTPUT.put_line ('adjust c_adj_order packing');
              OPEN c_adj_order (v_order_number, v_client);
                 FETCH c_adj_order INTO ordadjrec;
           cmn_backorder_pkg.adjust_order_items(v_tran,
                                                         ordadjrec,
                        itemrec,
                        v_new_qty,
                            v_line_status,                                                     v_msg);                                                                          
                                    CLOSE c_adj_order;
                             END LOOP;
                      close c_adj_item;
      DBMS_OUTPUT.put_line ('open c_back_order');
     OPEN c_back_order(v_order_number, v_client);
         LOOP
            FETCH c_back_order INTO ordrec;
            EXIT WHEN c_back_order%NOTFOUND;
          OPEN c_lines (v_order_number, v_client);
              LOOP
                 FETCH c_lines INTO oirec;
                  EXIT WHEN c_lines%NOTFOUND;
      wip_pkg.create_bo_item (oirec, v_order_number);
                  END LOOP;
          CLOSE c_lines;
      wip_pkg.create_new_backorder (ordrec);
                            END LOOP;
                   CLOSE c_back_order;
     END LOOP;
           CLOSE c_packing;
  o_return_msg := '0';
    EXCEPTION
       WHEN OTHERS THEN
        ROLLBACK;
  o_return_msg := 'WIP reversal error: ' || SQLERRM;
   END wip_case2_proc;Edited by: sandy162 on May 1, 2009 1:44 PM

Answer 1

Hi,
sandy162 wrote:
Sorry for inconveience, I have formatted code..That's a step in the right direction.
Now make the formatting reflect what you're doing: in particular, where the loops begin and end.
That is, you posted
         OPEN c_adj_item (v_order_number, v_client);
            LOOP
                FETCH c_adj_item INTO itemrec;
           DBMS_OUTPUT.put_line ('adjust c_adj_order packing');
       that makles it look like the call to put_line is outside of the loop.
I would suggest something like:
         OPEN c_adj_item (v_order_number, v_client);
         LOOP
                FETCH c_adj_item INTO itemrec;
                DBMS_OUTPUT.put_line ('adjust c_adj_order packing');Don't forget to indicate the 2 or 3 lines that you added since the last time the code ran without erros, and post the complete error message.