Error Message "PLS:707, unsupported construct or internal error "

Question

I am having a Stored Procedure which runs most of the times successfully when executed.But all of a sudden it throws a error message
ERROR at line 1:
ORA-06553: PLS-707: unsupported construct or internal error [2601]
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
So to correct this problem, i just compile the procedure again without doing any change.After doing this it works fine.When i logout from Oracle and relogin and try to execute the same SP , it again throws the error message.I am in need of a solution for this problem at the earliest.So request you to provide the feedback at the earliest.
I am using
Oracle8 Release 8.0.5.0.0
PL/SQL Release 8.0.5.0.0
I have attached the source code below.
CREATE OR REPLACE PROCEDURE Gen_SinPrjEff(Sp_Proj_Id IN NUMBER,
Sp_Emp_Id IN VARCHAR2,
Sp_Start_Date IN VARCHAR2,
SP_End_Date IN VARCHAR2)
IS
Date_Null NUMBER(1) := 0;
CURSOR prjeff IS
SELECT aa,
bb,
dd,
sum(ee)
FROM ( SELECT 'ProjectEffort' aa,
RPAD(SUBSTR(b.employeename,1,20),20,' ') bb,
'' dd,
SUM(a.hourstoday) ee
FROM timesheetentry a,
employeemst b,
project c,
project d
WHERE a.entryfromprojectid = Sp_Proj_Id
AND a.projectid = Sp_Proj_Id
AND c.projectid = a.entryfromprojectid
AND d.projectid = a.projectid
AND b.employeeno = a.employeeno
AND ((Date_Null = 9) OR ((Date_Null = 1) AND
(a.entrydate BETWEEN TO_DATE(Sp_Start_Date,'DD-Mon-YYYY') AND
TO_DATE(Sp_End_Date,'DD-Mon-YYYY'))))
GROUP BY RPAD(SUBSTR(b.employeename,1,20),20,' '),
SUBSTR(d.projname,1,30)
UNION
SELECT 'ProjectEffort' aa,
RPAD(SUBSTR(b.employeename,1,20),20,' ') bb,
'' dd,
SUM(a.hourstoday) "ee"
FROM timesheetentry a,
employeemst b,
project c,
project d
WHERE a.entryfromprojectid <> Sp_Proj_Id
AND a.projectid = Sp_Proj_Id
AND c.projectid = a.entryfromprojectid
AND d.projectid = a.projectid
AND b.employeeno = a.employeeno
AND ((Date_Null = 9) OR ((Date_Null = 1) AND
(a.entrydate BETWEEN TO_DATE(Sp_Start_Date,'DD-Mon-YYYY') AND
TO_DATE(Sp_End_Date,'DD-Mon-YYYY'))))
GROUP BY RPAD(SUBSTR(b.employeename,1,20),20,' '),
SUBSTR(d.projname,1,30)
GROUP BY aa,bb,dd
UNION
SELECT 'ProjectOthers',
RPAD(SUBSTR(b.employeename,1,20),20,' ') "Employee Name",
RPAD(SUBSTR(d.projname,1,30),30,' ') dd,
SUM(a.hourstoday) "Effort Spent"
FROM timesheetentry a,
employeemst b,
project c,
project d
WHERE a.entryfromprojectid = Sp_Proj_Id
AND a.projectid <> Sp_Proj_Id
AND c.projectid = a.entryfromprojectid
AND d.projectid = a.projectid
AND d.swonflag = 0
AND b.employeeno = a.employeeno
AND ((Date_Null = 9) OR ((Date_Null = 1) AND
(a.entrydate BETWEEN TO_DATE(Sp_Start_Date,'DD-Mon-YYYY') AND
TO_DATE(Sp_End_Date,'DD-Mon-YYYY'))))
GROUP BY RPAD(SUBSTR(b.employeename,1,20),20,' '),
SUBSTR(d.projname,1,30)
UNION
SELECT 'SwonEffort',
RPAD(SUBSTR(b.employeename,1,20),20,' ') "Employee Name",
RPAD(SUBSTR(d.projname,1,30),30,' ') "Project To",
SUM(a.hourstoday) "Effort Spent"
FROM timesheetentry a,
employeemst b,
project c,
project d
WHERE a.entryfromprojectid = Sp_Proj_Id
AND a.projectid <> Sp_Proj_Id
AND c.projectid = a.entryfromprojectid
AND d.projectid = a.projectid
AND d.swonflag = 1
AND b.employeeno = a.employeeno
AND ((Date_Null = 9) OR ((Date_Null = 1) AND
(a.entrydate BETWEEN TO_DATE(Sp_Start_Date,'DD-Mon-YYYY') AND
TO_DATE(Sp_End_Date,'DD-Mon-YYYY'))))
GROUP BY RPAD(SUBSTR(b.employeename,1,20),20,' '),
SUBSTR(d.projname,1,30);
Eff_Type admin32.prjeffdata.prjefftype%type;
Proj_Name admin32.prjeffdata.projname%type;
Emp_Name admin32.prjeffdata.empname%type;
Proj_Eff admin32.prjeffdata.projeff%type;
Tmp_Dind admin32.prjeffdata.del_ind%type;
BEGIN
-- dbms_output.put_line('Begin');
Tmp_Dind := NULL;
TmP_Dind := LPAD(LTRIM(RTRIM(Sp_Emp_Id)),6,'0') || LPAD(LTRIM(RTRIM(TO_CHAR(Sp_Proj_Id))),5,'0');
IF (Sp_Start_Date IS NULL) THEN
Date_Null := 9;
ELSE
Date_Null := 1;
END IF;
dbms_output.put_line(to_char(date_null));
DELETE prjeffdata
WHERE del_ind = LPAD(LTRIM(RTRIM(Sp_Emp_Id)),6,'0') || LPAD(LTRIM(RTRIM(TO_CHAR(Sp_Proj_Id))),5,'0');
COMMIT;
OPEN prjeff;
LOOP
Eff_Type := NULL;
Proj_Name := NULL;
Emp_Name := NULL;
Proj_Eff := NULL;
FETCH prjeff
INTO Eff_Type,
Emp_Name,
proj_Name,
proj_Eff;
EXIT WHEN prjeff%NOTFOUND;
INSERT INTO prjeffdata(prjefftype,
empname,
projname,
projeff,
del_ind)
VALUES (eff_type,
emp_name,
proj_name,
proj_eff,
Tmp_Dind);
--dbms_output.put_line(eff_type || ',' || emp_name || ',' || proj_name );
END LOOP;
CLOSE prjeff;
COMMIT;
--dbms_output.put_line('End');
EXCEPTION
WHEN NO_DATA_FOUND THEN
dbms_output.put_line('Error');
WHEN OTHERS THEN
dbms_output.put_line('Error');
END

Answer 1

This is what works on 8.1.7. I don't know the svrmgrl name in 8.0.5, but it should be in your %ORACLE_HOME%/bin
> cd %oracle_home%\rdbms\admin
>svrmgr sys/<password>@dbname
SVRMGR> @standard
Statement processed.
Statement processed.
Statement processed.
SVRMGR> @UTLRP
if this doesn't work then do this
SVRMGR> @catalog
good luck