¿Qué sentencia debo utilizar? ¿For loop? ¿Loop Fetch?

¿Qué sentencia debo utilizar? ¿For loop?  ¿Loop Fetch?

Para saber cuál utilizar dentro del curso hay que siempre tener el performance que tendrá el cursor.

FOR LOOP.- Utilizar un CURSOR FOR LOOP cuando desea buscar y procesar todos los registros en un cursor. El CURSOR FOR LOOP finalizará cuando todos los registros del cursor hayan sido obtenidos.

Es una buena alternativa para utilizar con el cursor por lo que no es necesario abrir ni cerrar el cursor,  inicia cuando la instrucción da orden de iniciar y cierra cuando finaliza todo el registro.

Ejemplo

CREATE OR REPLACE FUNCTION F_SUMAR_INGRESO_MENSUAL(P_CODIGOEMPLEADO IN EMPLEADO.CODIGOEMPLEADO%TYPE)
  RETURN NUMBER IS

  NTOTAL NUMBER(12,2);

  CURSOR C1 IS
    SELECT IMPORTE_MENSUAL
      FROM EMPLEADO
     WHERE CODIGOEMPLEADO = P_CODIGOEMPLEADO;

BEGIN

  NTOTAL := 0;

  FOR N IN C1 LOOP
    NTOTAL := NTOTAL + N.IMPORTE_MENSUAL;
  END LOOP;

  RETURN NTOTAL;

END F_SUMAR_INGRESO_MENSUAL;

LOOP FETCH.-  Las variables deben coincidir (tanto en número como en posición) las columnas enumeradas en la definición del cursor.

También los tipos de datos deben coincidir o ser compatibles.

Una instrucción fetch recupera las filas una a la vez del conjunto de resultados de una consulta de varias filas; en otras palabras, avanza el cursor a la siguiente fila.

— Abrir un cursor sólo si es necesario

IF NOT C1%ISOPEN THEN
    OPEN C1;
END IF;

— Obtener un máximo de 20 registros (o menos si la tabla es menor)

CREATE OR REPLACE FUNCTION F_SUMAR_INGRESO_MENSUAL(P_CODIGOEMPLEADO IN EMPLEADO.CODIGOEMPLEADO%TYPE)
  RETURN NUMBER IS

  NTOTAL NUMBER(12,2);

  CURSOR C1 IS
    SELECT IMPORTE_MENSUAL
      FROM EMPLEADO
     WHERE CODIGOEMPLEADO = P_CODIGOEMPLEADO;

  NIMPORTE_MENSUAL EMPLEADO.IMPORTE_MENSUAL%TYPE;

BEGIN

  NTOTAL := 0;

  OPEN C1;
  LOOP
    FETCH C1
      INTO NIMPORTE_MENSUAL;
    EXIT WHEN C1%ROWCOUNT > 20 OR C1%NOTFOUND;

    NTOTAL := NTOTAL + NIMPORTE_MENSUAL;

  END LOOP;

  CLOSE C1;

  RETURN NTOTAL;

END F_SUMAR_INGRESO_MENSUAL;

— Haciendo esto un paso más allá, buscando en una variable ROWTYPE Record

CREATE OR REPLACE FUNCTION F_SUMAR_INGRESO_MENSUAL(P_CODIGOEMPLEADO IN EMPLEADO.CODIGOEMPLEADO%TYPE)
  RETURN NUMBER IS

  NTOTAL NUMBER(12,2);

  CURSOR C1 IS
    SELECT IMPORTE_MENSUAL,
           CODIGOEMPLEADO
      FROM EMPLEADO
     WHERE CODIGOEMPLEADO = P_CODIGOEMPLEADO;

  CCURSOR C1%ROWTYPE;

BEGIN

  NTOTAL := 0;

  OPEN C1;
  LOOP
    FETCH C1
      INTO CCURSOR;
    EXIT WHEN C1%NOTFOUND;

    IF CCURSOR.CODIGOEMPLEADO = 200 THEN
      NTOTAL := NTOTAL + CCURSOR.IMPORTE_MENSUAL;
    ELSE
      NTOTAL := 0;
    END IF;

  END LOOP;
  CLOSE C1;

  RETURN NTOTAL;

END F_SUMAR_INGRESO_MENSUAL;

Conclusiones

En lo personal recomiendo utilizar FOR LOOP, por lo mismo que el código es reducido y haciendo una comparación de performance efectivamente el for loop lleva la ventaja, además no es necesario abrir y cerrar el cursor para utilizarlo. LOOP FETCH lo utilizo como última instancia.