Package body in tree view shows "unexpected token"

Question

I have a package which is in production for months now. This does not show any error with PL/SQL Developer nor OraEdit. SQL Developer shows "unexpected token" after trying to expand the package into the list of functions and procedures. Database is 9.2, Sql developer is 1.0.0.14.22.
Any idea how to fix this?
Martin

Answer 1

Did you get any test material? Here is one example.
TABLES:
  CREATE TABLE "RAPTOR"."SETTLEMENTCALENDAR"
   (     "SSRRUNNUMBER" NUMBER(*,0) NOT NULL ENABLE,
     "SETTLEMENTDATE" DATE NOT NULL ENABLE,
     "SSRRUNTYPE" VARCHAR2(2 BYTE) NOT NULL ENABLE,
     "SSRRUNDATE" DATE NOT NULL ENABLE
  CREATE TABLE "RAPTOR"."DATAFILELOG"
   (     "DATAFILEID" NUMBER(*,0) NOT NULL ENABLE,
     "FILENAME" VARCHAR2(70 BYTE) NOT NULL ENABLE,
     "FILELASTMODIFIEDDATE" DATE NOT NULL ENABLE,
     "FILETYPE" VARCHAR2(8 BYTE),
     "FILEIDENTIFIER" VARCHAR2(50 BYTE),
     "FROMPARTICIPANTID" VARCHAR2(8 BYTE),
     "FROMPARTICIPANTROLECODE" VARCHAR2(2 BYTE),
     "TOPARTICIPANTID" VARCHAR2(8 BYTE),
     "TOPARTICIPANTROLECODE" VARCHAR2(2 BYTE),
     "CREATIONTIME" DATE,
     "PERIODENDDATE" DATE,
     "FILESTATUS" VARCHAR2(50 BYTE) NOT NULL ENABLE,
     "FILESTATUSDATETIME" DATE NOT NULL ENABLE,
     "EMAILINBOXLOGID" NUMBER(*,0),
     "RESPONSEFILE" VARCHAR2(50 BYTE),
     "RESPONSEFILEGROUPID" NUMBER(*,0),
     "DATETIMERECEIVED" DATE NOT NULL ENABLE
   CREATE TABLE "RAPTOR"."ELX_MULTI_PARAMETERS"
   (     "EMP_JOB_NAME" VARCHAR2(30 BYTE) NOT NULL ENABLE,
     "EMP_PARAM_NAME" VARCHAR2(30 BYTE) NOT NULL ENABLE,
     "EMP_STRING_VALUE" VARCHAR2(100 BYTE),
     "EMP_DATE_VALUE" DATE,
     "EMP_NUMBER_VALUE" NUMBER
   ) ;Code
create or replace PACKAGE "ELX_PARMS_TOOLS" AS
procedure do_settlementcal_gap_check(cutoff_date in date default null);
END;
create or replace PACKAGE BODY "ELX_PARMS_TOOLS" AS
--This procedure checks the settlementcalendar table for gaps
procedure do_settlementcal_gap_check( cutoff_date in date default null) is
cursor gap_cursor is
  ((select rnum
   from ( select rownum rnum
          from datafilelog )
  where rownum <= ( select max(ssrrunnumber)
                      from settlementcalendar)
minus
  select rnum
  from ( select rownum rnum
           from datafilelog )
  where rownum <= ( select max(ssrrunnumber)
                        from settlementcalendar
                     where settlementdate <=cutoff_date))
minus
  select ssrrunnumber from settlementcalendar)
minus
   select emp_number_value from elx_multi_parameters
        where emp_job_name ='SETTLECAL1'
        and   emp_param_name ='GAPEXCEPTION';
begin
null;
end;
END;