DECLARE
   type namesarray IS VARRAY(13) OF VARCHAR2(20);
   
   names namesarray;
   total integer;
   existe integer;
BEGIN
   names := namesarray('OCA', 'VISA', 'MASTERCARD', 'AMERICAN EXPRESS', 'CABAL', 'CREDITOS DIRECTOS','ANDA', 'CREDITEL', 'PASS CARD', 'DINERS', 'CLUB DEL ESTE', 'CTC', 'ASI');
   
   total := names.count;
   
   FOR i in 1 .. total LOOP
      select count(*) into existe from tarjeta_credito where DESCTARJETACREDITO = names(i);
      if existe = 0 then
        
        INSERT INTO TARJETA_CREDITO (TARJETACREDITO_ID,DESCTARJETACREDITO,CANTMAXSINTASA,CANMAXCONTASA,TASA,ACTIVO,FECMODIF,USUARIO_ID)
        VALUES (TARJETA_CREDITO_seq.nextval,names(i),1,1,1,1,sysdate,-1);
      end if;
   END LOOP;
END;
/