DROP PACKAGE pkg;

CREATE PACKAGE pkg IS

  FUNCTION f1 RETURN INT;

END;

/

CREATE PACKAGE BODY pkg AS

  vc INT := 0;

  CURSOR cur IS SELECT 1 AS c FROM DUAL; -- A cursor in the top level block

  FUNCTION f1 RETURN INT AS

  BEGIN

    OPEN cur;

    FETCH cur INTO vc;

    CLOSE cur;

    RETURN vc;

  END;

END;

/

SELECT pkg.f1 FROM DUAL;

SET sql_mode=ORACLE;

DROP PACKAGE pkg;

DELIMITER /

CREATE PACKAGE pkg IS

  FUNCTION f1 RETURN INT;

END;

/

CREATE PACKAGE BODY pkg AS

  vc INT := 0;

  CURSOR cur IS SELECT 1 AS c FROM DUAL; -- A cursor in the top level block

  FUNCTION f1 RETURN INT AS

  BEGIN

    OPEN cur;

    FETCH cur INTO vc;

    CLOSE cur;

    RETURN vc;

  END;

END;

/

DELIMITER ;

SELECT pkg.f1() FROM DUAL;

ERROR 1064 (42000): You have an error in your SQL syntax ...near 'CURSOR cur IS SELECT 1 AS c FROM DUAL;...