Error executing a package

Question

Hi All,
I am getting an error ----
no data found
Cause: In a host language program, all records have been fetched. The return code from the fetch was +4, indicating that all records have been returned from the SQL query.
Action: Terminate processing for the SELECT statement....
whe I run the following package. I am trying to update current_fy_quantity column in NFPC_CURRENT_PACK_MNT table based on values in nfpc_current_pack_storage by item number.
Please help
A/A
CREATE OR REPLACE PACKAGE BODY APPS.pack_update IS
PROCEDURE update_data (
      p_errbuff OUT VARCHAR2,
      p_retcode OUT VARCHAR2) IS
      v_current_fy_quantity NUMBER;
    CURSOR c_cur_pack IS
        SELECT item_number
        FROM nfpc.nfpc_current_pack_mnt;
BEGIN
    FOR r_cur_pack IN c_cur_pack LOOP
    v_current_fy_quantity := 0;
        BEGIN
            --Get the Current package data from temp table
            SELECT   current_pack
            INTO     v_current_fy_quantity
            FROM     nfpc.nfpc_current_pack_storage
            WHERE    item_number       = r_cur_pack.item_number;
                END;
        -- Update the previous year roll to current year
        UPDATE NFPC_CURRENT_PACK_MNT
        SET    current_fy_quantity = v_current_fy_quantity
        WHERE  item_number        = r_cur_pack.item_number;
    END LOOP;
     END update_data;
    end;
   

Answer 1

Hi,
Probably this statement is giving you the error. What is the line number where you get the error.
--Get the Current package data from temp table
SELECT current_pack
INTO v_current_fy_quantity
FROM nfpc.nfpc_current_pack_storage
WHERE item_number = r_cur_pack.item_number;Enclose the statement in the begin ..the select statement... exception.... end ; block and handle the exception.
SS