SET TERM ^ ;

CREATE OR ALTER PROCEDURE TEST_SP1 (
    INT1 INTEGER,
    INT2 INTEGER)
AS
BEGIN
END^

CREATE OR ALTER PROCEDURE TEST_SP2
AS
BEGIN
END^

CREATE OR ALTER PACKAGE TEST_PKG
AS
BEGIN
    PROCEDURE SOMETHING_DO(PARAM1 INTEGER);
END^

RECREATE PACKAGE BODY TEST_PKG
AS
BEGIN
    PROCEDURE SOMETHING_DO(PARAM1 INTEGER)
    AS
    BEGIN
        EXECUTE PROCEDURE TEST_SP2;

        EXECUTE PROCEDURE TEST_SP1(1, 2);
    END

    PROCEDURE SOMETHING_DO2(PARAM2 INTEGER)
    AS
    BEGIN
        EXECUTE PROCEDURE TEST_SP2;

        EXECUTE PROCEDURE TEST_SP1(1, 2);
    END
END^

SET TERM ; ^