CREATE OR ALTER PROCEDURE NEW_PROCEDURE
AS
DECLARE VARIABLE I INTEGER;

DECLARE FUNCTION INTERNAL_FN(VAL INTEGER) RETURNS INTEGER
AS
BEGIN
    RETURN :VAL;
END

BEGIN
    I = INTERNAL_FN(1);
END

CREATE OR ALTER PACKAGE NEW_PACKAGE
AS
BEGIN
 
END^

RECREATE PACKAGE BODY NEW_PACKAGE
AS
BEGIN
    FUNCTION ADD_ONE(V INTEGER) RETURNS INTEGER
    AS
    BEGIN
        RETURN :V + 1;
    END

    PROCEDURE PROC
    AS
    DECLARE VARIABLE VAL INTEGER;
    BEGIN
        VAL = ADD_ONE(1);
    END
END^

SET TERM ; ^