SET TERM ^ ;

CREATE OR ALTER PROCEDURE new_procedure1 (
  inputtext VARCHAR(255))
AS
BEGIN
  /* Procedure Text */

END^

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER PACKAGE new_package1
AS
BEGIN
  FUNCTION pack_function1
  RETURNS VARCHAR(255);
END^

RECREATE PACKAGE BODY new_package1
AS
BEGIN
  FUNCTION pack_function1
  RETURNS VARCHAR(255)
  AS
  BEGIN
    RETURN 'Text';
  END
END^

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER PROCEDURE new_procedure2
AS
BEGIN

EXECUTE PROCEDURE new_procedure1(new_package1.pack_function1());

END^

SET TERM ; ^