Having trouble with inner for loop values in my procedure

Question

Hi ...
I am using oracle 10g and here is my procedure ...
create or replace procedure sales_information is
v_qty number(10);
rem_qty number(10):=0;
cursor pck_quantity is
select * from sales_info;
cursor no_of_labels is
select ceil(sum(nvl(total_quantity,actual_quantity))/400) from sales_info;
begin
for j in no_of_labels
loop
for i in pck_quantity
loop
select nvl(i.total_quantity,i.actual_quantity) into v_qty from sales_info;
if v_qty>=i.packed_quantity and rem_qty=0 then
insert into sales_order values------------
rem-qty:=v_qty-i.packed_quantity;
v_qty:=rem_qty;
exit;
else if v_qty>=i.packed_quantity and rem_qty>=400 then
insert into sales_order values-----------
rem_qty:=v_qty-rem_qty;
v_qty:=rem_qty;
exit;
else if v_qty>=i.packed_quantity and rem_qty>0 then
rem_qty:=v_qty+rem_qty-i.packed_quantity;
v_qty:=rem_qty;
insert into sales_order values-----------
else if v_qty is null and rem_qty>0 and then
insert into sales_order values-----------
else if v_qty<i.packed_quantity and rem_qty:=0 then
rem_qty:=v_qty;
else if v_qty<i.packed_quantity and rem_qty>0 then
if (v_qty+rem_qty)>400 then
insert into sales_order values-----------
rem_qty:=v_qty+rem_qty-i.packed_quantity;
v_qty:=rem_qty;
end if;
end if;
end loop;
end loop;
The inner for loop will retrieve the same values of v_qty for every iteration of outer for loop when it runs the following select statement:
select nvl(i.total_quantity,i.actual_quantity) into v_qty from sales_info;
and thus loses the previously computed values of v_qty and rem_qty
in the previous iteration of outer for loop whereas i want the inner for loop to iterate over it's previously computed values of v_qty and rem_qty but cant think of a workaround.

Answer 1

h4. Thanks Dave for explanation. Hope I understood your requirement and below code resolves that
-- Creating table SALES_INFO
CREATE TABLE SALES_INFO
(    S_NO             NUMBER(1),
     ACTUAL_QUANTITY  NUMBER(10),
     TOTAL_QUANTITY   NUMBER(10),
      PACKED_QUANTITY  NUMBER(10)
-- Creating table sales_order
CREATE TABLE SALES_ORDER
(    S_NO             NUMBER(1),
     LABEL            VARCHAR2(30),
     ORDER_QUANTITY   NUMBER(10)
-- Push SALES_INFO data
INSERT INTO SALES_INFO VALUES(1,1000,800,400);
INSERT INTO SALES_INFO VALUES(2,800,600,400);
INSERT INTO SALES_INFO VALUES(3,800,NULL,400);
INSERT INTO SALES_INFO VALUES(4,NULL,600,400);
CREATE OR REPLACE PROCEDURE populate_sales_order AS
CURSOR get_sales_info IS
SELECT s_no,
           NVL(total_quantity,actual_quantity) total_quantity,
        packed_quantity
FROM   sales_info;
v_s_no          PLS_INTEGER := 0;
v_rem_qty     PLS_INTEGER := 0;
v_label_num   PLS_INTEGER := 1;
BEGIN
FOR rec IN get_sales_info LOOP
    v_rem_qty := rec.total_quantity + v_rem_qty;
    v_s_no    := rec.s_no;
     WHILE v_rem_qty >= rec.packed_quantity LOOP
       INSERT INTO sales_order( s_no, label, order_quantity)
       VALUES ( v_s_no, 'LABEL' || v_label_num, rec.packed_quantity );
       -- Reduce the packed qty from total qty and increment label counter
       v_rem_qty   := v_rem_qty - rec.packed_quantity ;
       v_label_num := v_label_num + 1;
     END LOOP;
END LOOP;
-- Put the last lot remaining qty into last carton
IF v_rem_qty > 0 THEN
INSERT INTO sales_order( s_no, label, order_quantity)
VALUES (v_s_no, 'LABEL' || v_label_num, v_rem_qty );
END IF;
COMMIT;
END;
S_NO    LABEL                                ORDER_QUANTITY
  1          LABEL1                                    400
  1          LABEL2                                    400
  2          LABEL3                                    400
  3          LABEL4                                    400
  3          LABEL5                                    400
  4          LABEL6                                    400
  4          LABEL7                                    400
{code}