SQL> set serveroutput on
SQL> DECLARE
  2    rec emp%rowtype;
  3  BEGIN
  4    FOR r IN
  5    ( SELECT empno INTO rec.empno /*-- strange!*/
  6    FROM emp
  7    )
  8    LOOP
  9      dbms_output.put_line('empno = '||rec.empno);
 10    END LOOP;
 11  END;
 12  /
empno =
empno =
empno =
empno =
empno =
empno =
empno =
empno =
empno =
empno =
empno =
empno =
empno =
empno =

PL/SQL procedure successfully completed.

SQL>

SQL> DECLARE
  2    rec emp%rowtype;
  3  BEGIN
  4    rec.empno := 0;
  5    FOR r IN
  6    ( SELECT empno INTO rec.empno /*-- strange!*/
  7    FROM emp
  8    )
  9    LOOP
 10      dbms_output.put_line('empno = '||rec.empno||' - r.empno='||r.empno);
 11    END LOOP;
 12  END;
 13  /
empno = 0 - r.empno=7369
empno = 0 - r.empno=7499
empno = 0 - r.empno=7521
empno = 0 - r.empno=7566
empno = 0 - r.empno=7654
empno = 0 - r.empno=7698
empno = 0 - r.empno=7782
empno = 0 - r.empno=7788
empno = 0 - r.empno=7839
empno = 0 - r.empno=7844
empno = 0 - r.empno=7876
empno = 0 - r.empno=7900
empno = 0 - r.empno=7902
empno = 0 - r.empno=7934

PL/SQL procedure successfully completed.

DECLARE
  rec dept%rowtype;
BEGIN
  FOR r IN
  ( SELECT deptno INTO rec.deptno
  FROM dept
  )
  LOOP
    dbms_output.put_line('Rows fetched = ' || sql%rowcount);
  END LOOP;
END;
/
Rows fetched =
Rows fetched =
Rows fetched =
Rows fetched =

PL/SQL procedure successfully completed.

SQL> 

DECLARE
  rec dept%rowtype;
  cursor v_cur
    is
      SELECT deptno INTO rec.deptno
        FROM dept;
BEGIN
  FOR r IN v_cur
  LOOP
    dbms_output.put_line('Rows fetched = ' || v_cur%rowcount);
  END LOOP;
END;
/
Rows fetched = 1
Rows fetched = 2
Rows fetched = 3
Rows fetched = 4

PL/SQL procedure successfully completed.

SQL> 

SQL> variable dname varchar2(20)
SQL> select dname into :dname from dept where deptno = 10;

DNAME
--------------
ACCOUNTING

SQL> print dname

DNAME
--------------------------------


SQL>