CURSOR cur IS SELECT a,b FROM t1;

  rec cur%ROWTYPE;

SET sql_mode=ORACLE;

DROP TABLE t1;

CREATE TABLE t1 (a INT, b VARCHAR(32));

INSERT INTO t1 VALUES (10,'b10');

INSERT INTO t1 VALUES (20,'b20');

INSERT INTO t1 VALUES (30,'b30');

DROP PROCEDURE p1;

DELIMITER $$

CREATE PROCEDURE p1 AS

  CURSOR c IS SELECT a,b FROM t1;

BEGIN

  DECLARE

    rec c%ROWTYPE; 

  BEGIN

    OPEN c;

    LOOP

      FETCH c INTO rec;

      EXIT WHEN c%NOTFOUND;

      SELECT 'rec=(' || rec.a ||','|| rec.b||')' AS c FROM dual;

    END LOOP;

    CLOSE c;

  END;

END;

$$

DELIMITER ;

CALL p1();

SET sql_mode=ORACLE;

DROP PROCEDURE p1;

DELIMITER $$

CREATE PROCEDURE p1 AS

  CURSOR c IS SELECT 10 AS a,20 AS b FROM t1;

BEGIN

  DECLARE

    rec c%ROWTYPE; 

  BEGIN

    rec.a:= 10;

    rec.b:= 20;

    SELECT 'rec=(' || rec.a ||','|| rec.b||')' AS c;

  END;

END;

$$

DELIMITER ;

CALL p1();

DECLARE

  CURSOR cur IS SELECT a,b FROM t1;

  rec cur%ROWTYPE;

BEGIN

  -- statements

END;

DECLARE

  CURSOR cur IS SELECT a,b FROM t1;

  DECLARE

    rec cur%ROWTYPE;

  BEGIN

    -- statements

  END;

END;