[PlSql] Add pragma_declaration to package_obj_body (#3791)

https://docs.oracle.com/en/database/oracle/oracle-database/21/lnpls/SERIALLY_REUSABLE-pragma.html#GUID-35B02603-B794-403C-9E0D-E40208CEAF35 states that: "The SERIALLY_REUSABLE pragma can appear in the declare_section of the specification of a bodiless package, or in both the specification and body of a package, but not in only the body of a package."
antlr · Oct 22, 2023 · a2ac92f · a2ac92f
1 parent b8e19fc
commit a2ac92f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/sql/plsql/PlSqlParser.g4 b/sql/plsql/PlSqlParser.g4
@@ -629,7 +629,8 @@ function_spec
     ;
 
 package_obj_body
-    : exception_declaration
+    : pragma_declaration
+    | exception_declaration
     | subtype_declaration
     | cursor_declaration
     | variable_declaration

diff --git a/sql/plsql/examples-sql-script/pragma_exception_init.pkb b/sql/plsql/examples-sql-script/pragma_exception_init.pkb
@@ -0,0 +1,8 @@
+create or replace package body pragma_exception_init
+is
+
+  some_exception exception;
+  pragma exception_init (some_exception, -20001);
+
+end pragma_exception_init;
+/