gian

CALL PROCEDIMIENTO_INSERTAR_PORCEN('0.01;0.02;0.03;0.04;0.05;0.06;0.07;0.08;0.09;0.10;0.11;0.12;0.13;0.14;0.15;0.16;0.17;0.18;0.19;0.20;');

CREATE OR REPLACE PROCEDURE PROCEDIMIENTO_INSERTAR_PORCEN(PORCENTAJES VARCHAR2)
  IS
  EXISTE_PORCENTAJE NUMBER;
  V_PORCENTAJES VARCHAR2(100) := PORCENTAJES;
  VPORCENTAJE NUMBER(2,2);
  BEGIN
      FOR FILA IN 1..LENGTH(V_PORCENTAJES) LOOP
        VPORCENTAJE   := TO_NUMBER(EXTRAER_CADENA(V_PORCENTAJES));
        V_PORCENTAJES := ACTUALIZAR_CADENA(V_PORCENTAJES);


       IF VPORCENTAJE IS NOT  NULL THEN
            SELECT COUNT(*) INTO EXISTE_PORCENTAJE FROM PORCENTAJE
            WHERE CANTIDAD_PORCENTAJE = VPORCENTAJE;

            IF EXISTE_PORCENTAJE = 0 THEN
                 INSERT INTO PORCENTAJE(CANTIDAD_PORCENTAJE)
                  VALUES(VPORCENTAJE);
           ELSE
          DBMS_OUTPUT.PUT_LINE('MENSAJE: LA CANTIDAD: ' || TO_CHAR(VPORCENTAJE) ||
          ' YA EXISTE');
            END IF;

     END IF;

      END LOOP;

  END;
/