Cuando trabajamos con cursores de actualización debemos tener en cuenta las siguientes consideraciones:

    * Los cursores de actualización generan bloqueos en la base de datos.

¿Que quieres decir con esto, Pedro?

Luis, los cursores for update, bloquean las rows sobre las que actúan. Entonces, no se puede acceder a esas rows.--- 
FOR UPDATE options
This is often used within SL/SQL routines to lock the selected rows.
Oracle will wait for any locks to be released unless you specify NOWAIT

FOR UPDATE [OF [ [schema.]{table|view}.] column] [NOWAIT]


Undocumented syntax:

   SELECT... FOR UPDATE SKIP LOCKED

Skip Locked will return all the 'non-locked' rows and lock them. While this syntax can be used effectively, it is generally not a good idea to use it within an application as undocumented syntax may be removed or changed in future releases.

HOLAA!!
Siguiendo la pregunta de los bloqueos, por cuanto tiempo se realiza el bloqueo de las rows? este se realiza un tiempo determinado o solo mientras dura la ejecución de la sentencia Update?

Dura mientras se ejecuta la sentencia

Hola, como hago si en una forma estoy ejecutando un campo de la tabla de S a N, yo uso en la forma el post y al final uso el commit, pero antes de hacer el commit entra otro proceso que pregunta por el campo que estoy actualizando en la forma como no he hecho el commit va a ver el dato anterior y hace lo que tiene que hacer y hace que en la forma me presente al final un # de operacion que no es la que estaba actualizando.

podrias poner el ejemplo de un cursor que haga a insercion de datos de una tabla a otra?

Hola tengo este cursor pero se lleva mucho tienpo de ejecución; ¿Como puedo optimizarlo?

   vfecha DATE;--AGREGADO VMRP 18/01/2006

   CURSOR C_CONTRATOS IS
      SELECT /* +ALL_ROWS*/ PC.NNO_CLIENTE                  NCLIENTE,
                        PC.VCVE_PERIODO      PERIODO,
                        PC.NPRIMER_DIA       PRIMER_DIA,
                        PC.NSEGUNDO_DIA      SEGUNDO_DIA,
                        PC.DDIA_GENERACION   DIA_GENERACION,
                        PC.DDIA_ANTERIOR     DIA_ANTERIOR
      FROM SET_TPERIODOS_CONTRATOS PC
      WHERE TRUNC(PC.DDIA_GENERACION) <= vfecha;--TRUNC(SYSDATE) MODIFICADO VMRP 18/01/2006
/*      AND EXISTS ( SELECT 1 FROM CLIENTES_CONTRATOS CC
        WHERE CC.CLI_NO_CLIENTE = PC.NNO_CLIENTE
              AND CC.VALIDADO = 'S'
	      AND (CC.FECHA_FIN IS NULL OR TRUNC(CC.FECHA_FIN) > TRUNC(SYSDATE)));
*/ -- MOD. 001
   v_ctOrdenes         NUMBER;
   v_ctTxOk            NUMBER;
   v_ctTxAn            NUMBER;
   v_TotTx             NUMBER;
   v_sucursal          SUCURSALES.no_sucursal%TYPE;
   v_domicilio         NUMBER;
   v_folio             NUMBER;
   v_serie             VARCHAR2(3);
   v_dia               NUMBER;
   v_siguienteDia      DATE;
   v_diaAux            NUMBER;
   v_mesAux            NUMBER;
   v_anAux             VARCHAR2(2);



BEGIN

   /***** BLOQUE AGREGADO VMRP 18/01/2006  ***/
      vfecha := TRUNC(SYSDATE);
   /***** FIN BLOQUE AGREGADO VMRP 18/01/2006  ***/

   FOR CCON IN C_CONTRATOS LOOP
     BEGIN

        /* *  1.1.1 CANTIDAD DE ORDENES DE COBRO POR INCLUIR AL ESTADO DE CUENTA * */
               SELECT /*+all_rows*/ SUM(cantidad) INTO  v_ctOrdenes
			   FROM   (SELECT  /*+all_rows*/ COUNT(*) cantidad
		       		   FROM SET_TORDENES_COBRO OC, SET_TCARGOS_COBROS CA, CLIENTES_CONTRATOS CC
					   WHERE  
		        	          OC.NNO_EDO_CUENTA IS NULL
		        	   AND    CA.NIMPORTE      >    0
					   AND    OC.VPAGADA = 'S'
					   AND    OC.DFECHA_EMISION <= TO_DATE(TO_CHAR(ccon.dia_generacion,'dd/mm/yyyy')||' 23:59:59','dd/mm/yyyy hh24:mi:ss')/*agregado VRMP 18/01/2006*/
		        	   AND    OC.NNO_COBRO	   =    CA.NNO_COBRO
					   AND	  OC.VSERIE		   =    CA.VSERIE
		        	   AND    OC.NNO_CONTRATO  =    CC.NO_CONTRATO
		        	   AND    CC.CLI_NO_CLIENTE=    CCON.NCLIENTE
                	   UNION ALL
                	   		 SELECT  /*+all_rows*/ COUNT(*) cantidad
		        			 FROM SET_TORDENES_COBRO OC, SET_TCARGOS_COBROS CA, CLIENTES_CONTRATOS CC
							 WHERE  OC.NNO_EDO_CTA_C IS NULL
		        			 AND    CA.NIMPORTE        >    0
							 AND    OC.VPAGADA = 'S'
							 AND    OC.DFECHA_CANCELACION <= TO_DATE(TO_CHAR(ccon.dia_generacion,'dd/mm/yyyy')||' 23:59:59','dd/mm/yyyy hh24:mi:ss')/*agregado VRMP 18/01/2006*/
		        			 AND    OC.VSERIE          =    CA.VSERIE
		        			 AND    OC.NNO_CONTRATO    =    CC.NO_CONTRATO
		        			 AND    CC.CLI_NO_CLIENTE  =    CCON.NCLIENTE
		        			 AND    OC.NNO_COBRO       =    CA.NNO_COBRO
                );	--mod.001

		/* *  1.1.2 CANTIDAD DE TRANSACCIONES DEL CLIENTE QUE AUN NO ESTAN INCLUIDOS EN ESTADOS DE CUENTA *  */
        SELECT /*+ INDEX(CM CMO_PK)*/ COUNT(*) INTO v_ctTxOk  --MOD. 001.
        FROM CUENTAS_MOVIMIENTOS CM, CUENTAS C
        WHERE  CM.NNO_EDO_CUENTA IS NULL
		AND    CM.TMO_CVE_MOVIMIENTO IN ('DGA','DEV','ARS')
        AND    CM.FECHA_CONCILIACION <= TO_DATE(TO_CHAR(ccon.dia_generacion,'dd/mm/yyyy')||' 23:59:59','dd/mm/yyyy hh24:mi:ss') -- Mod. 003.
		AND    CM.TE_CVE_ESTADO <> 'TED'
		AND    CM.CUE_NO_CUENTA       =   C.NO_CUENTA
        AND    CM.CUE_BAN_CVE_BANCO   =   C.BAN_CVE_BANCO
        AND    C.CHB_CLI_NO_CLIENTE   =   CCON.NCLIENTE;

        /* *  1.1.2.6  TRANSACCIONES ANOMALAS   * */
        SELECT /*+ ALL_ROWS*/ COUNT(*) INTO v_ctTxAn
        FROM SET_TCUENTAS_MOV_ANOMALIAS AN, CUENTAS C
        WHERE
		      AN.NNO_EDO_CUENTA     IS NULL
        AND   AN.NCVE_ANOMALIA      NOT IN (4,5)
		AND   AN.TMO_CVE_MOVIMIENTO IN ('DEV','DGA') /*agregado VRMP 18/01/2006*/
        AND   AN.FECHA_CONCILIACION <= TO_DATE(TO_CHAR(ccon.dia_generacion,'dd/mm/yyyy')||' 23:59:59','dd/mm/yyyy hh24:mi:ss')/* Mod. 003.*/
		AND   AN.CUE_NO_CUENTA      =   C.NO_CUENTA
        AND   AN.CUE_BAN_CVE_BANCO  =   C.BAN_CVE_BANCO
        AND   C.CHB_CLI_NO_CLIENTE  =   CCON.NCLIENTE;

        v_TotTx  :=  v_ctOrdenes + v_ctTxOk + v_ctTxAn;
		IF v_TotTx   >   0  THEN
		   /* *  1.2.1 OBTENER LA SUCURSAL DE FACTURACION  *  */
		   /** sE MODIFICA LA obtencion del dato VMRP 18/1/2006*/
/*              SELECT UB.RUT_SUC_NO_SUCURSAL,
                	DF.NO_DOMICILIO
			INTO    v_sucursal,
			v_domicilio
              	FROM UBICACIONES UB, DOMICILIOS_FISCALES DF
              	WHERE  DF.UBI_NO_UBICACION   	=   UB.NO_UBICACION
              	AND    DF.CLI_NO_CLIENTE	=   CCON.NCLIENTE
              	AND    DF.INACTIVO         	=   'N'
		AND    ROWNUM              	=   1;*/

              	SELECT /*+ALL_ROWS*/UB.RUT_SUC_NO_SUCURSAL,
                     DF.NO_DOMICILIO
					 INTO	v_sucursal,
			         		v_domicilio
              	FROM UBICACIONES UB, DOMICILIOS_FISCALES DF, SET_TDOMICILIOS_EDO_CUENTA domedo
              	WHERE	domedo.nno_cliente    	=  DF.CLI_NO_CLIENTE
	      		AND     domedo.ndomicilio_fiscal= df.no_domicilio
				AND     DF.UBI_NO_UBICACION   	=   UB.NO_UBICACION
              	AND     domedo.NNO_CLIENTE      =   CCON.NCLIENTE
--              AND     DF.INACTIVO             =   'N'
				AND     ROWNUM                  =   1;


			  /* * 1.2.2 CAMBIAR LA SUCURSAL DEL USUARIO * */
/*              UPDATE EMPLEADOS SET SUC_NO_SUCURSAL  =   v_sucursal
              WHERE NO_EMPLEADO IN (   SELECT VALOR
              FROM PARAMETROS
              WHERE CVE_PARAMETRO = 'EEC');*/

              /* *  1.2.3 OBTENER FOLIO Y SERIE  *  */
              v_folio   :=   Pkg_Obten.FOLIO_DOCTO('ECC', v_serie,v_sucursal);

			  /* * 1.2.4  REGISTRAR EL ESTADO DE CUENTA  * */

              INSERT INTO SET_TESTADOS_CUENTA (
              		NNO_EDO_CUENTA,
                    VSERIE,
                    NNO_CLIENTE,
                    DFECHA_GENERACION,
                    DFECHA_INICIO,
                    DFECHA_FIN,
                    VIMPRESO,
                    NSUCURSAL,
                    NDOMICILIO_FISCAL)
              VALUES( v_folio,v_serie,CCON.NCLIENTE,SYSDATE,(CCON.DIA_ANTERIOR +1),
                     TRUNC(CCON.DIA_GENERACION),/*TRUNC(SYSDATE), Modificado VMRP 18/01/2006 */
		     'N',v_sucursal,v_domicilio );

              /* *  1.2.5 ACTUALIZA LAS ORDENES DE COBRO DEL CLIENTE  *  */
              UPDATE SET_TORDENES_COBRO
              SET NNO_EDO_CUENTA       =   v_folio,
                  VSERIE_EDO_CUENTA    =   v_serie
              WHERE NNO_EDO_CUENTA IS NULL
	      	  AND NIMPORTE_TOTAL > 0
 	      	  AND DFECHA_EMISION <= TO_DATE(TO_CHAR(ccon.dia_generacion,'dd/mm/yyyy')||' 23:59:59','dd/mm/yyyy hh24:mi:ss')--agregado VRMP 18/01/2006
	      	  AND VPAGADA = 'S' -- mod. 001
              AND NNO_CONTRATO IN ( SELECT NO_CONTRATO FROM CLIENTES_CONTRATOS CC
                                    WHERE CC.NO_CONTRATO = NNO_CONTRATO
		                    		AND CC.CLI_NO_CLIENTE = CCON.NCLIENTE);

              /* *  1.2.5.1 ACTUALZA LAS ORDENES DE COBRO CANCELADAS DEL CLIENTE  mod. 001 *  */
              UPDATE SET_TORDENES_COBRO
              SET NNO_EDO_CTA_C		   =   v_folio,
              	  VSERIE_EDO_CTA_C	   =   v_serie
              WHERE NNO_EDO_CTA_C IS NULL
	      	  AND NIMPORTE_TOTAL > 0
 	      	  AND DFECHA_CANCELACION <= TO_DATE(TO_CHAR(ccon.dia_generacion,'dd/mm/yyyy')||' 23:59:59','dd/mm/yyyy hh24:mi:ss')--agregado VRMP 18/01/2006
	      	  AND VPAGADA = 'S'
              AND NNO_CONTRATO IN ( SELECT NO_CONTRATO 
			  	  			   	  	FROM CLIENTES_CONTRATOS CC
                                    WHERE CC.NO_CONTRATO = NNO_CONTRATO
		                      		AND CC.CLI_NO_CLIENTE = CCON.NCLIENTE);

              /* *   1.2.6 ACTUALIZAMOS LAS TRANSACCIONES OK CON EL FOLIO Y LA SERIE DEL ESTADO DE CUENTA MOD. 001 *  */
              UPDATE /*+ INDEX(CM CMO_PK)*/ CUENTAS_MOVIMIENTOS CM
              SET CM.NNO_EDO_CUENTA    =    v_folio,
                  CM.VSERIE            =    v_serie
              WHERE CM.NNO_EDO_CUENTA IS NULL
			  AND   CM.TMO_CVE_MOVIMIENTO IN ('DGA','DEV','ARS')
-- 	      	AND CM.FECHA_MOVIMIENTO <= to_date(to_char(ccon.dia_generacion,'dd/mm/yyyy')||' 23:59:59','dd/mm/yyyy hh24:mi:ss')--agregado VRMP 18/01/2006
              AND CM.FECHA_CONCILIACION <= TO_DATE(TO_CHAR(ccon.dia_generacion,'dd/mm/yyyy')||' 23:59:59','dd/mm/yyyy hh24:mi:ss')-- Mod. 003.
	      	  AND CM.TE_CVE_ESTADO <> 'TED'
              AND (CM.CUE_NO_CUENTA,CM.CUE_BAN_CVE_BANCO) IN ( SELECT /*+ALL_ROWS*/ NO_CUENTA,BAN_CVE_BANCO 
			  	  										  	   FROM CUENTAS C
              	  										  	   WHERE C.NO_CUENTA = CM.CUE_NO_CUENTA
															   AND C.BAN_CVE_BANCO = CM.CUE_BAN_CVE_BANCO
															   AND C.CHB_CLI_NO_CLIENTE = CCON.NCLIENTE);

              UPDATE SET_TCUENTAS_MOV_ANOMALIAS AN
              	SET AN.NNO_EDO_CUENTA    =   v_folio,
                    AN.VSERIE            =   v_serie
              WHERE AN.NNO_EDO_CUENTA IS NULL
              AND (CUE_NO_CUENTA,CUE_BAN_CVE_BANCO) IN ( SELECT /*ALL_ROWS*/ NO_CUENTA,BAN_CVE_BANCO FROM CUENTAS C
                					   				   	 WHERE AN.NCVE_ANOMALIA NOT IN (4,5)
														 AND AN.TMO_CVE_MOVIMIENTO IN ('DGA','DEV')/*agregado VRMP 18/01/2006*/
   	  							   						 AND AN.FECHA_CONCILIACION <= TO_DATE(TO_CHAR(ccon.dia_generacion,'dd/mm/yyyy')||' 23:59:59','dd/mm/yyyy hh24:mi:ss') 
														 AND C.NO_CUENTA = AN.CUE_NO_CUENTA
                					   					 AND C.BAN_CVE_BANCO = AN.CUE_BAN_CVE_BANCO
							   							 AND C.CHB_CLI_NO_CLIENTE = CCON.NCLIENTE);--Mod. 003.




		END IF;

		SELECT /*+ALL_ROWS*/ TO_NUMBER(TO_CHAR(SYSDATE,'DD')) INTO v_dia FROM DUAL;
			IF CCON.PERIODO = 'MEN' THEN
		           v_siguienteDia := CCON.DIA_GENERACION;
--   	          	   v_siguienteDia := ADD_MONTHS(CCON.DIA_GENERACION,1);
			  LOOP
			      v_siguienteDia := ADD_MONTHS(v_siguienteDia,1);
			      IF TO_NUMBER(TO_CHAR(v_siguienteDia,'MM')) = 2 THEN
				  	 IF CCON.PRIMER_DIA IN (29,30,31) THEN
					 	 v_siguienteDia := LAST_DAY(v_siguienteDia);
					 ELSE
					 	 v_siguienteDia := DATE(CCON.PRIMER_DIA||'/'||TO_CHAR(v_siguienteDia,'mm')||'/'||TO_CHAR(v_siguienteDia,'yy'),'dd/mm/yy');
				     END IF;
			      ELSE
				  	  IF CCON.PRIMER_DIA = 31 THEN
				      	 v_siguienteDia := LAST_DAY(v_siguienteDia);
				      ELSE
					     v_siguienteDia := DATE(CCON.PRIMER_DIA||'/'||TO_CHAR(v_siguienteDia,'mm')||'/'||TO_CHAR(v_siguienteDia,'yy'),'dd/mm/yy');
				      END IF;
			      END IF;
			      IF TRUNC(v_siguienteDia) > TRUNC(SYSDATE) THEN
				  	 EXIT;
			      END IF;
			  END LOOP;
			ELSE IF CCON.PERIODO = 'QNL' THEN
				IF CCON.PRIMER_DIA   >  v_dia  OR (v_dia >= CCON.PRIMER_DIA AND v_dia >= CCON.SEGUNDO_DIA) THEN
					v_diaAux   :=  CCON.PRIMER_DIA;
					v_mesAux   :=  TO_NUMBER(TO_CHAR(ADD_MONTHS(CCON.DIA_GENERACION,1),'MM'));
					v_anAux    :=  TO_CHAR(ADD_MONTHS(CCON.DIA_GENERACION,1),'YY');
				ELSE
			 	        v_diaAux   :=  CCON.SEGUNDO_DIA;
					v_mesAux   :=  TO_NUMBER(TO_CHAR(CCON.DIA_GENERACION,'MM'));
					v_anAux    :=  TO_CHAR(CCON.DIA_GENERACION,'YY');
				END IF;
				IF v_diaAux = 31 OR (v_diaAux = 30 OR v_diaAux = 29 AND v_mesAux = 2) THEN
					v_diaAux  :=   TO_NUMBER(TO_CHAR(LAST_DAY(TO_DATE(v_mesAux||'/'||v_anAux,'MM/YY')),'DD'));
				END IF;
				v_siguienteDia  :=  TO_DATE(v_diaAux||'/'||v_mesAux||'/'||v_anAux||' 00:00:00','DD/MM/YY HH24:MI:SS');
		    ELSE
		       	v_siguienteDia  :=  TRUNC(SYSDATE)+1;
				LOOP
				    IF TO_NUMBER(TO_CHAR(v_siguienteDia,'D')) = CCON.PRIMER_DIA  THEN
				       EXIT;
					END IF;
					v_siguienteDia  :=  v_siguienteDia + 1;
				END LOOP;
			END IF;
		END IF;

		UPDATE SET_TPERIODOS_CONTRATOS
        SET DDIA_GENERACION =  v_siguienteDia,
                  DDIA_ANTERIOR       =  TRUNC(CCON.DIA_GENERACION)--TRUNC(SYSDATE) Modifcado VMRP 18/01/2006
        WHERE NNO_CLIENTE = CCON.NCLIENTE;

		COMMIT;
    EXCEPTION
      WHEN OTHERS THEN
        ROLLBACK;
	    DBMS_OUTPUT.PUT_LINE('Cliente ->'||CCON.NCLIENTE||' error:'||SQLERRM);
	END;

   END LOOP;

/*EXCEPTION
   WHEN OTHERS THEN
        ROLLBACK;
	    DBMS_OUTPUT.PUT_LINE('error:'||SQLERRM);*/
END Proc_Genera_Estado_Cuenta;
/

  
este  man me quiere  sorprender  

Que le pasa al wey de Mario M??? Piensa que puede entrar a la pagina y llenarla de idioteces?? Si vas a utilizar este espacio que sea para poner cosas que ayuden a los demas, no para gastar recursos del servidor con código copiado y que no entiendes... LOOOOOOSER, aprende a mi que yo si aporto cosas interesantes. Alguna chica por aqui que quiera sexo conmigo??? :P

Disculpa, al actualizar, solo actualizo al cursor; o la tabla; o los dos; o actualizando la tabla, se actualiza el cursor

esto es un foro de seriedad, y no de tiempos de ocios,si quieres sexo vete a un p... c...,este es un sitio para estudiar. Mas te vale.

esto es un foro de seriedad, y no de tiempos de ocios,si quieres sexo vete a un p... c...,este es un sitio para estudiar. Mas te vale.

Hola, tengo un problema en Sybase. La tabla tiene un indice, pero al realizar la actualizacion de las filas de la tabla dentro del cursor este se va a un bucle infinito. Sin el índice esto no sucede.

   declare cursor_cuentas cursor
   for select prodTypeCode,
              cuenta,
              accountNumber, 
              currencyCode,
              coverageAmount
         from cob_bvirtual..bv_ec_4604_cuentas
        where userId = @i_userId
          and customerIdNumber = @i_customerIdNumber
   for update
   open cursor_cuentas
   fetch cursor_cuentas into @w_producto, @w_cuenta, @w_cta_banco, @w_moneda_cta, @w_suma_asegurada
   while  @@sqlstatus <> 2 
   begin
      -- instruciones restante
      --
      -- 
      update cob_bvirtual..bv_ec_4604_cuentas
         set tableIndex = @w_tableIndex,
             cotizacion = @w_cotizacion,
             feeAmount  = @w_cuota_seguro + @w_cuota_seguro*@w_valor_iva
       where userId          = @i_userId
        and customerIdNumber = @i_customerIdNumber
        and prodTypeCode     = @w_producto
        and accountNumber    = @w_cta_banco

      select @w_tableIndex = @w_tableIndex + 1
      fetch cursor_cuentas into @w_producto, @w_cuenta, @w_cta_banco, @w_moneda_cta, @w_suma_asegurada
   end
   close cursor_cuentas
   deallocate cursor cursor_cuentas

BLEEEEEEE

Esta muy bueno esto! es basico pero sirve mucho si recien empezas con esto! gracias

Este es un ligar para aprender y a quien no le guste q se cambie de página,para eso existen las paginas de ocio para gente inutil, nadamás hacen perder el tiempo!!
Gracias al Autor muy buen tutorial!!

Explicacion perfecta.

XVXSDG