SET TERM ^ ;

CREATE PACKAGE TEST_PKG
AS
begin

function test_function
returns integer;

end^



SET TERM ; ^



/******************************************************************************/
/***                                 Tables                                 ***/
/******************************************************************************/



CREATE TABLE TEST_TABLE (
    ID  INTEGER
);




/******************************************************************************/
/***                            Package headers                             ***/
/******************************************************************************/



SET TERM ^ ;


SET TERM ; ^



/******************************************************************************/
/***                             Package bodies                             ***/
/******************************************************************************/



SET TERM ^ ;

CREATE PACKAGE BODY TEST_PKG
AS
begin
function test_function
returns integer
as
begin
  update TEST_TABLE set ID = 10;
end

end^



SET TERM ; ^