Oracle - Manejo de un type record de oracle

DECLARE

    TYPE TY_PRUEBA IS RECORD

    (

     nombre              VARCHAR2(20),

     email               VARCHAR2(50),

     departamento        VARCHAR2(2)

    );

    TYPE INS_PRUEBA IS TABLE OF TY_PRUEBA INDEX BY PLS_INTEGER;

     T_PRUEBA   INS_PRUEBA;

  CURSOR C_PRUEBA IS

    SELECT T_PRUEBA.departamento, COUNT(T_PRUEBA.nombre) CONTADOR, COUNT(T_PRUEBA.email) emails

      FROM T_PRUEBA

     GROUP BY T_PRUEBA.departamento;

BEGIN

T_PRUEBA(1).nombre       := 'PEPE';

T_PRUEBA(1).email       := '1@a.com';

T_PRUEBA(1).departamento := 'PR';

T_PRUEBA(2).nombre       := 'PACO';

T_PRUEBA(2).email       := '1@a.com';

T_PRUEBA(2).departamento := 'PR';

T_PRUEBA(3).nombre       := 'ARI';

T_PRUEBA(3).email       := '1@a.com';

T_PRUEBA(3).departamento := 'PR';

T_PRUEBA(4).nombre       := 'MARCO';

T_PRUEBA(4).email       := '1@a.com';

T_PRUEBA(4).departamento := 'PR';

T_PRUEBA(5).nombre       := 'PECK';

T_PRUEBA(5).email        := '';

T_PRUEBA(5).departamento := 'CO';

T_PRUEBA(6).nombre       := 'DIEGO';

T_PRUEBA(6).email       := '';

T_PRUEBA(6).departamento := 'CO';

T_PRUEBA(7).nombre       := 'JESUS';

T_PRUEBA(7).email       := '';

T_PRUEBA(7).departamento := 'CO';

T_PRUEBA(8).nombre       := 'TOMAS';

T_PRUEBA(8).email       := '8@a.com';

T_PRUEBA(8).departamento := 'JF';

T_PRUEBA(9).nombre       := 'EMILIO';

T_PRUEBA(9).email       := '9@a.com';

T_PRUEBA(9).departamento := 'AD';

T_PRUEBA(10).nombre       := 'ALBERTO';

T_PRUEBA(10).email       := '10@a.com';

T_PRUEBA(10).departamento := 'SG';

FOR C IN C_PRUEBA LOOP

  DBMS_OUTPUT.PUT_LINE('Departamento: '|| c.departamento||'; contador: '||c.contador);

END LOOP;

END;