Insufficient Priviliages

Question

Hi
Iam having one package that contains package specification and package Body.
when iam executing the package specification in TOAD iam getting successfully executed.
when iam executing the package Body in TOAD iam getting insufficient priviliages error.
can you provide the solution plz ?
Thanks
Mahesh Daggupati..

Answer 1

Package spec:
create or replace PACKAGE LOAD_PKG1
AS
TYPE LOAD_ARRAY_TYPE IS TABLE OF EQP_LOAD.LOAD_ID%TYPE INDEX BY BINARY_INTEGER;
TYPE NE_ARRAY_TYPE IS TABLE OF EQP_LOAD.NTWK_ELEM_ID%TYPE INDEX BY BINARY_INTEGER;
PROCEDURE DRAIN_CALC (I_LOAD_ID IN NUMBER,
O_CONNECTED_DRAIN OUT NUMBER,
O_ASSIGNED_DRAIN OUT NUMBER);
PROCEDURE ADD_LOAD_TO_ARRAY;
LOAD_ARRAY LOAD_ARRAY_TYPE;
NE_ARRAY NE_ARRAY_TYPE;
END_IDX BINARY_INTEGER := 1;
CURRENT_IDX BINARY_INTEGER := 1;
HOLD_USER_NTWK_ELEM_ID FUSE_ASSIGN.USER_NTWK_ELEM_ID%TYPE;
HOLD_USER_LOAD_ID FUSE_ASSIGN.USER_LOAD_ID%TYPE;
HOLD_DRAIN FUSE_ASSIGN.DRAIN%TYPE;
PROCEDURE SUBSEQUENT_DRAIN_CALC;
TEMP_CONNECTED_DRAIN NUMBER := 0;
END LOAD_PKG1;
Package Body:
create or replace package PACKAGE BODY LOAD_PKG1
AS
PROCEDURE DRAIN_CALC (I_LOAD_ID IN NUMBER,
O_CONNECTED_DRAIN OUT NUMBER,
O_ASSIGNED_DRAIN OUT NUMBER)
IS
HOLD_END_OF_LEVEL1 BINARY_INTEGER;
TEMP_ASSIGNED_DRAIN NUMBER := 0;
CURSOR EQP_LOAD_CURSOR (I_LOAD_ID NUMBER) IS
SELECT LOAD_ID, NTWK_ELEM_ID
FROM EQP_LOAD
WHERE LOAD_ID = I_LOAD_ID;
CURSOR DRAIN_INFO_CURSOR (I_LOAD_ID NUMBER, I_NTWK_ELEM_ID NUMBER) IS
SELECT USER_NTWK_ELEM_ID, USER_LOAD_ID, DRAIN
FROM FUSE_ASSIGN F,
FUSE_POSITION P
WHERE P.LOAD_NTWK_ELEM_ID = I_NTWK_ELEM_ID
AND P.LOAD_LOAD_ID = I_LOAD_ID
AND P.NTWK_ELEM_ID = F.NTWK_ELEM_ID
AND P.POSITION_NBR = F.POSITION_NBR;
CURSOR STD_DRAIN_INFO_CURSOR (I_LOAD_ID NUMBER, I_NTWK_ELEM_ID NUMBER) IS
SELECT DRAIN
FROM STD_POSITION
WHERE NTWK_ELEM_ID = I_NTWK_ELEM_ID
AND LOAD_ID = I_LOAD_ID;
BEGIN
END_IDX := 1;
TEMP_ASSIGNED_DRAIN := 0;
TEMP_CONNECTED_DRAIN := 0;
OPEN EQP_LOAD_CURSOR (I_LOAD_ID);
LOOP
FETCH EQP_LOAD_CURSOR INTO LOAD_ARRAY(END_IDX), NE_ARRAY(END_IDX);
EXIT WHEN EQP_LOAD_CURSOR%NOTFOUND;
END_IDX := END_IDX + 1;
END LOOP;
CLOSE EQP_LOAD_CURSOR;
END_IDX := END_IDX - 1;
CURRENT_IDX := 1;
FOR CURRENT_IDX IN 1..END_IDX LOOP
OPEN STD_DRAIN_INFO_CURSOR (LOAD_ARRAY(CURRENT_IDX), NE_ARRAY(CURRENT_IDX)
LOOP
FETCH STD_DRAIN_INFO_CURSOR INTO HOLD_DRAIN;
EXIT WHEN STD_DRAIN_INFO_CURSOR%NOTFOUND;
IF (HOLD_DRAIN IS NOT NULL) THEN
TEMP_ASSIGNED_DRAIN := TEMP_ASSIGNED_DRAIN + HOLD_DRAIN;
TEMP_CONNECTED_DRAIN := TEMP_CONNECTED_DRAIN + HOLD_DRAIN;
END IF;
END LOOP;
CLOSE STD_DRAIN_INFO_CURSOR;
OPEN DRAIN_INFO_CURSOR (LOAD_ARRAY(CURRENT_IDX), NE_ARRAY(CURRENT_IDX));
LOOP
FETCH DRAIN_INFO_CURSOR INTO HOLD_USER_NTWK_ELEM_ID, HOLD_USER_LOAD_ID,
HOLD_DRAIN;
EXIT WHEN DRAIN_INFO_CURSOR%NOTFOUND;
TEMP_ASSIGNED_DRAIN := TEMP_ASSIGNED_DRAIN + HOLD_DRAIN;
IF (HOLD_USER_LOAD_ID IS NULL) THEN
TEMP_CONNECTED_DRAIN := TEMP_CONNECTED_DRAIN + HOLD_DRAIN;
ELSE
LOAD_PKG1.ADD_LOAD_TO_ARRAY;
END IF;
END LOOP;
CLOSE DRAIN_INFO_CURSOR;
END LOOP;
O_CONNECTED_DRAIN := TEMP_CONNECTED_DRAIN;
O_ASSIGNED_DRAIN := TEMP_ASSIGNED_DRAIN;
END DRAIN_CALC1;
PROCEDURE ADD_LOAD_TO_ARRAY
IS
FOUND_FLAG BOOLEAN:= FALSE;
BEGIN
FOR I IN 1..END_IDX LOOP
IF (LOAD_ARRAY(I) = HOLD_USER_LOAD_ID) AND
(NE_ARRAY(I) = HOLD_USER_NTWK_ELEM_ID) THEN
FOUND_FLAG := TRUE;
END IF;
END LOOP;
IF (FOUND_FLAG = FALSE) THEN
END_IDX := END_IDX + 1;
LOAD_ARRAY(END_IDX) := HOLD_USER_LOAD_ID;
NE_ARRAY(END_IDX) := HOLD_USER_NTWK_ELEM_ID;
LOAD_PKG1.SUBSEQUENT_DRAIN_CALC;
END IF;
END ADD_LOAD_TO_ARRAY;
PROCEDURE SUBSEQUENT_DRAIN_CALC
IS
CURSOR DRAIN_CURSOR (I_LOAD_ID NUMBER, I_NTWK_ELEM_ID NUMBER) IS
SELECT USER_NTWK_ELEM_ID, USER_LOAD_ID, DRAIN
FROM FUSE_ASSIGN F,
FUSE_POSITION P
WHERE P.LOAD_NTWK_ELEM_ID = I_NTWK_ELEM_ID
AND P.LOAD_LOAD_ID = I_LOAD_ID
AND P.NTWK_ELEM_ID = F.NTWK_ELEM_ID
AND P.POSITION_NBR = F.POSITION_NBR;
CURSOR STD_DRAIN_CURSOR (I_LOAD_ID NUMBER, I_NTWK_ELEM_ID NUMBER) IS
SELECT DRAIN
FROM STD_POSITION
WHERE NTWK_ELEM_ID = I_NTWK_ELEM_ID
AND LOAD_ID = I_LOAD_ID;
BEGIN
OPEN STD_DRAIN_CURSOR (HOLD_USER_LOAD_ID, HOLD_USER_NTWK_ELEM_ID);
LOOP
FETCH STD_DRAIN_CURSOR INTO HOLD_DRAIN;
EXIT WHEN STD_DRAIN_CURSOR%NOTFOUND;
IF (HOLD_DRAIN IS NOT NULL) THEN
TEMP_CONNECTED_DRAIN := TEMP_CONNECTED_DRAIN + HOLD_DRAIN;
END IF;
END LOOP;
CLOSE STD_DRAIN_CURSOR;
OPEN DRAIN_CURSOR (HOLD_USER_LOAD_ID, HOLD_USER_NTWK_ELEM_ID);
LOOP
FETCH DRAIN_CURSOR INTO HOLD_USER_NTWK_ELEM_ID, HOLD_USER_LOAD_ID, HOLD_DRA
IN;
EXIT WHEN DRAIN_CURSOR%NOTFOUND;
IF (HOLD_USER_LOAD_ID IS NULL) THEN
TEMP_CONNECTED_DRAIN := TEMP_CONNECTED_DRAIN + HOLD_DRAIN;
ELSE
LOAD_PKG1.ADD_LOAD_TO_ARRAY;
END IF;
END LOOP;
CLOSE DRAIN_CURSOR;
END SUBSEQUENT_DRAIN_CALC;
END LOAD_PKG1;
the package body is not working properly
it is showing the insufficient privileages error
can any one lookinto and solve the isssue plz ?