create or replace package pkg as
procedure foo;
pragma deprecate (foo); -- parse error
end pkg;
create or replace type BaseType force is object (
flag varchar2(1)
) not instantiable not final;
/
create or replace type TableType force as table of varchar2(100);
/
create or replace type TestPipe force under BaseType (
static function getValue
return TableType pipelined -- parse error
);
/
create or replace type body SubTestType is
overriding member procedure testProcecdure
is
begin
(self as BaseType).testProcecdure(); -- parse error
end;
end;
/
create or replace type TestType force as object (
testAttr number,
final static function testDeter(inVal in number) return boolean deterministic -- parse error
) not instantiable not final;
/
create or replace package pkg as
end pkg;
/
create or replace package body pkg as
valLength constant number := 100;
procedure testProc is
keyVal varchar2(valLength); -- parse error
begin
null;
end testProc;
end pkg;
/
