SET TERM ^ ;

CREATE OR ALTER FUNCTION new_function1 (
  param1 INTEGER)
RETURNS INTEGER
AS
begin
  /* Function Text */
  return 1;
end^

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER PACKAGE new_package
AS
BEGIN

END^

RECREATE PACKAGE BODY new_package
AS
BEGIN
  PROCEDURE proc1
  AS
    DECLARE VARIABLE i INTEGER;
  BEGIN
    i = new_function1(1);
  END
END^

SET TERM ; ^