CREATE OR REPLACE PACKAGE BODY PCK_NAME IS
...
PROCEDURE SP_NAME(...)
...
  lvaCdAgente                 AGE_AGENTES.CDAGENTE%TYPE;
  lvaDniTomador               PERSONAS.DNI%TYPE;
  lvaCdSubramo                CUERPOLIZA.CDSUBRAMO%TYPE;
  lvaCddelegacion_Radica      CUERPOLIZA.CDDELEGACION_RADICA%TYPE;
...
  CURSOR lcuInfoPoliza (ivaNpoliza IN VARCHAR2) IS
    SELECT c.NPOLIZA,c.CDAGENTE,c.DNI_ADMINISTRATIVO,c.CDSUBRAMO, c.Cddelegacion_Radica
    FROM   cuerpoliza c
    WHERE  c.npoliza = ivaNpoliza;
...
BEGIN
...
  FOR cuPol in  lcuInfoPoliza (ivaNpoliza) LOOP
    lvaCdAgente               := NULL;
    lvaDniTomador             := NULL;
    lvaCdSubramo              := NULL;
    lvaCddelegacion_Radica    := NULL;
  END LOOP;
...
  END SP_NAME;
...
END PCK_NAME;