How to manipulate multiple records in side the cursor

Question

DECLARE
CURSOR C1 IS
     SELECT ITEM_CODE,AVERAGE_COST,STORE_CODE
FROM IM_GOODS_RECIEVE_DETAILS
WHERE DOC_CODE = :IM_GOODS_RECIEVE_DETAILS.DOC_CODE;
LOC_DOC_CODE VARCHAR2(10);
LOC_ITEM_CODE VARCHAR2(30);
LOC_ITEM_QUANTITY NUMBER(12,3);
LOC_TOTAL_COST NUMBER(12,3);
LOC_AVERAGE_COST NUMBER(12,3);
BEGIN
FOR R IN C1
LOOP
-- THIS FOR ISSUED ITEMS QUANTITY     
SELECT B.ITEM_CODE,NVL(ITEM_QUANTITY,0),A.DOC_CODE,AVERAGE_COST,TOTAL_COST
INTO LOC_ITEM_CODE,LOC_ITEM_QUANTITY,LOC_DOC_CODE,LOC_AVERAGE_COST,LOC_TOTAL_COST
FROM IM_TRANS_ISSUE_HEADER A,IM_TRANS_ISSUE_DETAILS B
WHERE A.DOC_CODE = B.DOC_CODE
AND B.DEL_STORE = R.STORE_CODE
AND ITEM_CODE = R.ITEM_CODE
AND DOC_DATE BETWEEN :IM_GOODS_RECIEVE_HEADER.DOC_DATE AND :EXPENSES_TAB.EXP_DATE
ORDER BY
B.ITEM_CODE;
SHOW_MESSAGE('LOC_DOC_CODE'||' '||LOC_DOC_CODE);
SHOW_MESSAGE('ITEM_CODE ->' ||' '||LOC_ITEM_CODE);
SHOW_MESSAGE('LOC_ITEM_QUANTITY'||' '||LOC_ITEM_QUANTITY);
SHOW_MESSAGE('LOC_AVERAGE_COST'||' '||LOC_AVERAGE_COST);
SHOW_MESSAGE('LOC_TOTAL_COST '||' '||LOC_TOTAL_COST );     
     UPDATE IM_TRANS_ISSUE_DETAILS
SET AVERAGE_COST = :NEW_AVERAGE_COST,TOTAL_COST = :NEW_AVERAGE_COST * LOC_ITEM_QUANTITY
     WHERE DOC_CODE = LOC_DOC_CODE
AND ITEM_CODE = LOC_ITEM_CODE ;
END LOOP;
COMMIT;
SHOW_MESSAGE('The New Cost Price updated !!!');
END;
This script it will work if the select statment inside the loop return one record , but if it return more than one record it will give error
how can i hanlde the above select statment
waiting for your valuable answer with example please .
my email : [email protected]
Best regards
Jamil Alshaibani

Answer 1

it has been answered as the following :
DECLARE
CURSOR C1 IS
SELECT ITEM_CODE,AVERAGE_COST,STORE_CODE
FROM IM_GOODS_RECIEVE_DETAILS
WHERE DOC_CODE = :IM_GOODS_RECIEVE_DETAILS.DOC_CODE;
LOC_DOC_CODE VARCHAR2(10);
LOC_ITEM_CODE VARCHAR2(30);
LOC_ITEM_QUANTITY NUMBER(12,3);
LOC_TOTAL_COST NUMBER(12,3);
LOC_AVERAGE_COST NUMBER(12,3);
BEGIN
FOR R IN C1
LOOP
-- THIS FOR ISSUED ITEMS QUANTITY, it will work if there is only one record,
-- but if the select statment below return more than one record it will give
-- error how can I manipulate all the records in the IM_TRANS_ISSUE_DETAILS table
FOR R2 IN (
SELECT B.ITEM_CODE as LOC_ITEM_CODE, NVL(ITEM_QUANTITY,0) as LOC_ITEM_QUANTITY,
A.DOC_CODE as LOC_DOC_CODE, AVERAGE_COST as LOC_AVERAGE_COST,
TOTAL_COST as LOC_TOTAL_COST
-- INTO LOC_ITEM_CODE,LOC_ITEM_QUANTITY,LOC_DOC_CODE,LOC_AVERAGE_COST,LOC_TOTAL_COST
FROM IM_TRANS_ISSUE_HEADER A,IM_TRANS_ISSUE_DETAILS B
WHERE A.DOC_CODE = B.DOC_CODE
AND B.DEL_STORE = R.STORE_CODE
AND ITEM_CODE = R.ITEM_CODE
AND DOC_DATE BETWEEN :IM_GOODS_RECIEVE_HEADER.DOC_DATE
AND :EXPENSES_TAB.EXP_DATE
ORDER BY B.ITEM_CODE )
LOOP
SHOW_MESSAGE('LOC_DOC_CODE' ||' '||R2. LOC_DOC_CODE);
SHOW_MESSAGE('ITEM_CODE ->' ||' '||R2. LOC_ITEM_CODE);
SHOW_MESSAGE('LOC_ITEM_QUANTITY'||' '||R2. LOC_ITEM_QUANTITY);
SHOW_MESSAGE('LOC_AVERAGE_COST' ||' '||R2. LOC_AVERAGE_COST);
SHOW_MESSAGE('LOC_TOTAL_COST ' ||' '||R2. LOC_TOTAL_COST );
UPDATE IM_TRANS_ISSUE_DETAILS
SET AVERAGE_COST = :AVERAGE_COST,
TOTAL_COST = :AVERAGE_COST * R2. LOC_ITEM_QUANTITY
WHERE DOC_CODE = R2. LOC_DOC_CODE
AND ITEM_CODE = R2. LOC_ITEM_CODE ;
END LOOP;
END LOOP;
COMMIT;
SHOW_MESSAGE('The New Cost Price updated !!!');
END;