Migrar Procedimiento Almacenado desde SQLServer a Oracle

[worel001]

Que tal chic@s. Espero me puedan ayudar, les cuento:
Me toco migrar como 50 query's de SQLServer a Oracle, cosa que ya hice. Mi problema es que tengo que migrar un procedimiento almacenado y me esta costando demasiado, mas aun teniendo que aprender como se trabaja con ellos.

Yo ya hice ciertas cosas, como cambiar los tipos de datos (por ejemplo VARCHAR a TO_CHAR), entre otros...

Ojala alguien me pueda ayudar. De antemano gracias a tod@s.

Les dejo el código:

Código SQL:

USE [MIIFDB]
GO
/****** Object:  StoredProcedure [dbo].[spMII_RegistraProductosBuenos]    Script Date: 06/22/2015 15:04:57 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[spMII_RegistraProductosBuenos]
AS 
------------------------------------------------------------
--      DECLARE
------------------------------------------------------------  
 
 
  DECLARE @ERR_LINE INT
  DECLARE @ERR_DESC VARCHAR(1000)
  DECLARE @vPLN_ID VARCHAR(100)
  DECLARE @vLIN_ID VARCHAR(100)
  DECLARE @vEQU_ID VARCHAR(100)
  DECLARE @vEQU_TEORICO  NUMERIC(6,4)
  DECLARE @vEQU_NOTIF_AUTOM VARCHAR(1)
  DECLARE @vTAG_ID VARCHAR(100)
 
  DECLARE @vCOM_AUFNR VARCHAR(12)
 
 
  DECLARE @vMINUTOS_ES_MICROPARADA INT
  DECLARE @vEQU_ID_ONOFF VARCHAR(100)
 
  DECLARE @vTIEMPO_MICROPARADA INT
  DECLARE @vES_LABORABLE VARCHAR(2)
  DECLARE @vBUF_FECHA_SYS_MII datetime
  DECLARE @vBUF_VALOR VARCHAR(100)
  DECLARE @vFECHA_CORTE VARCHAR(100)
  DECLARE @vFECHA_CORTE_DATE DATETIME
  DECLARE @vTURNO_ACTUAL INT
  DECLARE @vMINUTOS_EVENTO INT
  DECLARE @vMINUTOS_EVENTO_ACTUAL INT
  DECLARE @vCANTIDAD_REGISTROS_PERIODO INT
 
  DECLARE @vULTIMA_FECHA_JOB VARCHAR(100)
 
 
  DECLARE @vULT_TDE_ID VARCHAR(100)
  DECLARE @vULT_OPR_FEC_INI_OCURRENCIA datetime
  DECLARE @vULT_OPR_FEC_FIN_OCURRENCIA datetime
  DECLARE @vULT_OPR_FEC_FIN_OCURRENCIA_PLUS_1_SEC datetime
  DECLARE @vULT_TUR_ID INT
  DECLARE @vULT_TDE_ID_TRADUCIDO VARCHAR(100)
  DECLARE @vULT_OPR_ID NUMERIC(18,0)
 
  DECLARE @vJOB_FEC_LECT_INI datetime
  DECLARE @vJOB_FEC_LECT_FIN datetime
 
  DECLARE @vJOB_FEC_LECT_INI_STR VARCHAR(100)
  DECLARE @vJOB_FEC_LECT_FIN_STR VARCHAR(100)
 
  DECLARE @vULT_NOBUFFER_TDE_ID VARCHAR(100)
  DECLARE @vULT_NOBUFFER_OPR_FEC_INI_OCURRENCIA datetime
  DECLARE @vULT_NOBUFFER_OPR_FEC_FIN_OCURRENCIA datetime
  DECLARE @vULT_NOBUFFER_TUR_ID INT
  DECLARE @vULT_NOBUFFER_TDE_ID_TRADUCIDO VARCHAR(100)
  DECLARE @vULT_NOBUFFER_OPR_ID NUMERIC(18,0)
  DECLARE @vULT_NOBUFFER_TURNO_ACTUAL INT
  DECLARE @vULT_NOBUFFER_MINUTOS_EVENTO INT
 
  DECLARE @vTURNO_ACTUAL_FECHA_INICIO datetime 
 
  DECLARE @vCORRELATIVO_LOTE NUMERIC(30,0)
 
 
  -----------------------------------------------------------
  -->       CURSOR  ULTIMA EJECUCION JOB
  ------------------------------------------------------------
    DECLARE @cursorULTIMA_EJECUCION_JOB cursor  
 
    SET @cursorULTIMA_EJECUCION_JOB = CURSOR FOR
        SELECT JOB_FEC_LECT_INI,
               JOB_FEC_LECT_FIN
          FROM MII_000_JOB_EXECUTION
        WHERE JOB_NAME = 'REGISTRA_PRODUCTOS_BUENOS'
 
    OPEN @cursorULTIMA_EJECUCION_JOB
    FETCH NEXT FROM @cursorULTIMA_EJECUCION_JOB INTO @vJOB_FEC_LECT_INI, @vJOB_FEC_LECT_FIN
 
    WHILE (@@FETCH_STATUS = 0) 
    BEGIN   
        --> Avanza a proximo registro del cursor
        FETCH NEXT FROM @cursorULTIMA_EJECUCION_JOB INTO @vJOB_FEC_LECT_INI, @vJOB_FEC_LECT_FIN
    END
    CLOSE @cursorULTIMA_EJECUCION_JOB
    DEALLOCATE @cursorULTIMA_EJECUCION_JOB  
    --> Cierra y Libera Los cursores
    
    --> Convierte y asigna fechas en formato varchar
    SET @vJOB_FEC_LECT_INI_STR = TO_CHAR(@vJOB_FEC_LECT_INI, 'DD/MM/YYYY HH24:MI:SS')
    SET @vJOB_FEC_LECT_FIN_STR = TO_CHAR(@vJOB_FEC_LECT_FIN, 'DD/MM/YYYY HH24:MI:SS')
 
 
 
    PRINT N'Fecha Proceso: ' + @vJOB_FEC_LECT_INI_STR + ' ' + @vJOB_FEC_LECT_FIN_STR
 
 ------------------------------------------------------------
 --     CURSOR   LINEAS
 ------------------------------------------------------------
  DECLARE @cursorPLN_LIN cursor 
 
  SET @cursorPLN_LIN = CURSOR FOR
        SELECT p.PLN_ID, 
               l.LIN_ID, 
               e.EQU_ID, 
               e.EQU_TEORICO,
               e.EQU_NOTIF_AUTOM,
               v.TAG_ID
          FROM MII_PLANTA p,
               MII_LINEA l,
               MII_VARIABLE_PLC v,
               MII_EQUIPO e
         WHERE p.PLN_ID = l.PLN_ID
           AND p.PLN_ID = v.PLN_ID
           AND l.LIN_ID = v.LIN_ID
           AND v.EQU_ID = e.EQU_ID
           AND v.PLN_ID = p.PLN_ID
           AND v.LIN_ID = l.LIN_ID
           AND p.PLN_VIGENTE = 1
           AND l.LIN_VIGENTE = 1
           AND v.TVA_ID = 'CAN'
           AND EQU_NOTIF = 1
 
  ------------------------------------------------------------
  --        BEGIN
  ------------------------------------------------------------
  SET @ERR_LINE = 10
  SET @ERR_DESC = '[' + TO_CHAR(@ERR_LINE) + '] ' + 'Abre cursor Planta - Linea'
  PRINT @ERR_DESC
 
  ---------------------------------------------------------------------------------------------
  --  Transforma Fecha sys en Formato Fecha '01/07/2013 16:00:02' --> '07/01/2013 16:00:02'
  ---------------------------------------------------------------------------------------------
  SET @vFECHA_CORTE = TO_CHAR(sysdate, 'DD/MM/YYYY HH24:MI:SS') 
  SET @vFECHA_CORTE_DATE = TO_DATE(@vFECHA_CORTE, 'DD/MM/YYYY HH24:MI:SS')
 
 
  BEGIN TRY 
  OPEN @cursorPLN_LIN
 
    --> Avanza a proximo registro del cursor
    FETCH NEXT FROM @cursorPLN_LIN INTO @vPLN_ID, @vLIN_ID, @vEQU_ID, @vEQU_TEORICO, @vEQU_NOTIF_AUTOM, @vTAG_ID
 
    WHILE (@@FETCH_STATUS = 0) 
    BEGIN   
 
        SET @ERR_LINE = 20
        SET @ERR_DESC = '[' + TO_CHAR(@ERR_LINE) + '] Planta: ' + TO_CHAR(@vPLN_ID) + ' Linea: ' + TO_CHAR(@vLIN_ID)+ ' Equipo: ' + TO_CHAR(@vEQU_ID)+ ' Teórico: ' + TO_CHAR(@vEQU_TEORICO)+ ' TAG_ID: ' + TO_CHAR(@vTAG_ID)
        PRINT @ERR_DESC
 
        --> OBTIENE LA CANTIDAD DE REGISTROS 
        SELECT @vCANTIDAD_REGISTROS_PERIODO = COUNT(*)
          FROM MII_BUFFER_PLC b
         WHERE b.TAG_ID = @vTAG_ID
           AND TO_DATE(BUF_FECHA_SYS_MII, 'DD/MM/YYYY HH24:MI:SS') > TO_DATE(@vJOB_FEC_LECT_FIN, 'DD/MM/YYYY HH24:MI:SS') AND TO_DATE(BUF_FECHA_SYS_MII, 'DD/MM/YYYY HH24:MI:SS') <= TO_DATE(@vFECHA_CORTE_DATE, 'DD/MM/YYYY HH24:MI:SS')
 
        IF @vCANTIDAD_REGISTROS_PERIODO <= 0
            BEGIN
                SET @ERR_LINE = 1000
                SET @ERR_DESC = '[' + TO_CHAR(@ERR_LINE) + '] Registros (TAG_ID): ' + TO_CHAR(@vCANTIDAD_REGISTROS_PERIODO) 
                PRINT @ERR_DESC
            END
        ELSE
            BEGIN
                SET @ERR_LINE = 2000
                SET @ERR_DESC = '[' + TO_CHAR(@ERR_LINE) + '] Registros (TAG_ID): ' + TO_CHAR(@vCANTIDAD_REGISTROS_PERIODO) 
                PRINT @ERR_DESC
 
                --> Reserva Proximo Correlativo de Proceso / Lote
                SELECT @vCORRELATIVO_LOTE = dbo.fnObtieneCorrelativo('LOTE_CONTEO_BUENOS_BUFFER')
                UPDATE MII_000_CORRELATIVO_MANUAL 
                   SET CORRELATIVO_ID = @vCORRELATIVO_LOTE
                 WHERE CORRELATIVO_NAME = 'LOTE_CONTEO_BUENOS_BUFFER'
                -- Reserva Proximo Correlativo de Proceso / Lote <--
 
 
                --> Asigna Numero de Lote a registros de Buffer
                UPDATE MII_BUFFER_PLC 
                   SET BUF_LOTE_ID = @vCORRELATIVO_LOTE
                 WHERE TAG_ID = @vTAG_ID
                   AND TO_DATE(BUF_FECHA_SYS_MII, 'DD/MM/YYYY HH24:MI:SS') > TO_DATE(@vJOB_FEC_LECT_FIN, 'DD/MM/YYYY HH24:MI:SS') AND TO_DATE(BUF_FECHA_SYS_MII, 'DD/MM/YYYY HH24:MI:SS') <= TO_DATE(@vFECHA_CORTE_DATE, 'DD/MM/YYYY HH24:MI:SS')
 
 
                SELECT @vCANTIDAD_REGISTROS_PERIODO = COUNT(*) 
                  FROM MII_BUFFER_PLC
                 WHERE BUF_LOTE_ID = @vCORRELATIVO_LOTE
                   AND TAG_ID = @vTAG_ID
 
 
                --> Obtiene Orden Activa del Equipo
                SELECT @vCOM_AUFNR = NVL(COM_AUFNR,NULL)
                  FROM MII_PROD_ORDEN_ACTIVA
                WHERE EQU_ID = @vEQU_ID
 
 
                --> Persiste la cantidad de Registros
                EXECUTE dbo.spMII_PUT_ProductosBuenos @vPLN_ID, @vLIN_ID, @vEQU_ID, @vCANTIDAD_REGISTROS_PERIODO, @vCOM_AUFNR, @vCANTIDAD_REGISTROS_PERIODO 
 
            END
 
 
        PRINT N'------------------------ CORTE PLN_LIN_EQU_TAG ---------------------------------------'
        --> Avanza a proximo registro del cursor
        FETCH NEXT FROM @cursorPLN_LIN INTO @vPLN_ID, @vLIN_ID, @vEQU_ID, @vEQU_TEORICO, @vEQU_NOTIF_AUTOM, @vTAG_ID
    END
 
 
    --------------------------------------------------------------------
    --  FIN Recorre Planta Linea (a)
    --------------------------------------------------------------------
 
 
 
    SET @ERR_LINE = 90000
    SET @ERR_DESC = '[' + TO_CHAR(@ERR_LINE) + '] ' + 'Actualizacion Fechas Ejecucion JOB REGISTRA_TIEMPO_OPERACION '
    PRINT @ERR_DESC
 
 
     UPDATE MII_000_JOB_EXECUTION
        SET JOB_FEC_UPD = sysdate,
            JOB_FEC_LECT_INI = @vJOB_FEC_LECT_FIN,
            JOB_FEC_LECT_FIN = @vFECHA_CORTE_DATE
      WHERE JOB_NAME = 'REGISTRA_PRODUCTOS_BUENOS'
 
 
    SET @ERR_LINE = 1000000
    SET @ERR_DESC = '[' + TO_CHAR(@ERR_LINE) + '] ' + 'Proceso Finalizado con Exito'
    PRINT @ERR_DESC
 
    SELECT @ERR_LINE LINEA, @ERR_DESC DESCRIPCION, NVL(ERROR_NUMBER(),0) ERR_NUMBER, NVL(ERROR_MESSAGE(),'Exito') ERR_MESSAGE, NVL(ERROR_LINE(),0) ERR_LINE
  END TRY 
  BEGIN CATCH
    SELECT @ERR_LINE LINEA, @ERR_DESC DESCRIPCION, NVL(ERROR_NUMBER(),0) ERR_NUMBER, NVL(ERROR_MESSAGE(),'Exito') ERR_MESSAGE, NVL(ERROR_LINE(),0) ERR_LINE
  END CATCH; 
  ------------------------------------------------------------
  --        END
  ------------------------------------------------------------
 
--> Cierra y Libera Los cursores
CLOSE @cursorPLN_LIN
DEALLOCATE @cursorPLN_LIN
 

[gnzsoloyo]

La verdad es que es dificil explicarte todo lo que debes corregir, porque es mucho. Migrar rutinas almacenadas entre DBMS es siempre una tarea de galeotes, porque al no existir un lenguaje procedural estándar la mejor solución suele ser reescribir completamente todo el codigo.

- No existe el GO.
- Las variables se declaran en el SP.
- No se usan "@" para las variables ni para los parámetros.
- No puedes crear un cursor de ese modo. En Oracle se hacen de otra forma.
- Las columnas de tipo VARCHAR son obsoletas. Se debe usar VARCHAR2.
- El PRINT no funciona en Oracle.
- El FETCH lleva otra sintaxis.
- El cierre de sentencias es con ";", no con saltos de linea.
- El control de errores se hace con EXCEPTION.
- No conviene usar ALTER PROCEDURE, sino CREATE OR REPLACE.
- Muchas, muchas otras cosas...

La verdad, ,yo te recomendaría comenzar por crear algunos Sp de prueba, basados en el manual de referencia, y recién cuando entiendas como se crean en Oracle, ponerse a migrar la logica base de lo que tienes al PL/SQL.
No intentes pensar como SQL Server. No te servirá.

[worel001]

Que tal "gnzsoloyo" y garcias por responder. Mira mas abajo dejo el codigo de lo que he hecho ahsta el momento.
Al ejecutarlo el unico error que me tira es este, ojala me puedas ayudar con eso: "PLS-00103: Encountered the symbol 'Cursor' ". (Dejare marcada la parte del codigo donde aparece el error)

Y este es el codigo. Saludos y gracias

Código SQL:

CREATE OR REPLACE PROCEDURE spMII_RegistraProductosBuenos AS
   ------------------------------------------------------------
   --       DECLARE
   ------------------------------------------------------------
   
   v_ERR_LINE NUMBER(10,0);
   v_ERR_DESC VARCHAR2(1000);
   v_vPLN_ID VARCHAR2(100);
   v_vLIN_ID VARCHAR2(100);
   v_vEQU_ID VARCHAR2(100);
   v_vEQU_TEORICO NUMBER(6,4);
   v_vEQU_NOTIF_AUTOM VARCHAR2(1);
   v_vTAG_ID VARCHAR2(100);
   v_vCOM_AUFNR VARCHAR2(12);
   v_vMINUTOS_ES_MICROPARADA NUMBER(10,0);
   v_vEQU_ID_ONOFF VARCHAR2(100);
   v_vTIEMPO_MICROPARADA NUMBER(10,0);
   v_vES_LABORABLE VARCHAR2(2);
   v_vBUF_FECHA_SYS_MII DATE;
   v_vBUF_VALOR VARCHAR2(100);
   v_vFECHA_CORTE VARCHAR2(100);
   v_vFECHA_CORTE_DATE DATE;
   v_vTURNO_ACTUAL NUMBER(10,0);
   v_vMINUTOS_EVENTO NUMBER(10,0);
   v_vMINUTOS_EVENTO_ACTUAL NUMBER(10,0);
   v_vCANTIDAD_REGISTROS_PERIODO NUMBER(10,0);
   v_vULTIMA_FECHA_JOB VARCHAR2(100);
   v_vULT_TDE_ID VARCHAR2(100);
   v_vULT_OPR_FEC_INI_OCURRENCIA DATE;
   v_vULT_OPR_FEC_FIN_OCURRENCIA DATE;
   v_vULT_OPR_FEC_FIN_OCURRENCIA_ DATE;
   v_vULT_TUR_ID NUMBER(10,0);
   v_vULT_TDE_ID_TRADUCIDO VARCHAR2(100);
   v_vULT_OPR_ID NUMBER(18,0);
   v_vJOB_FEC_LECT_INI DATE;
   v_vJOB_FEC_LECT_FIN DATE;
   v_vJOB_FEC_LECT_INI_STR VARCHAR2(100);
   v_vJOB_FEC_LECT_FIN_STR VARCHAR2(100);
   v_vULT_NOBUFFER_TDE_ID VARCHAR2(100);
   v_vULT_NOBUFFER_OPR_FEC_INI_OC DATE;
   v_vULT_NOBUFFER_OPR_FEC_FIN_OC DATE;
   v_vULT_NOBUFFER_TUR_ID NUMBER(10,0);
   v_vULT_NOBUFFER_TDE_ID_TRADUCI VARCHAR2(100);
   v_vULT_NOBUFFER_OPR_ID NUMBER(18,0);
   v_vULT_NOBUFFER_TURNO_ACTUAL NUMBER(10,0);
   v_vULT_NOBUFFER_MINUTOS_EVENTO NUMBER(10,0);
   v_vTURNO_ACTUAL_FECHA_INICIO DATE;
   v_vCORRELATIVO_LOTE NUMBER(30,0);
   
   -----------------------------------------------------------
   -->      CURSOR  ULTIMA EJECUCION JOB
   ------------------------------------------------------------
    CURSOR v_cursorULTIMA_EJECUCION_JOB IS 
        SELECT  JOB_FEC_LECT_INI, 
                JOB_FEC_LECT_FIN 
        FROM MII_000_JOB_EXECUTION 
        WHERE JOB_NAME = 'REGISTRA_PRODUCTOS_BUENOS';
 
    BEGIN
        OPEN v_cursorULTIMA_EJECUCION_JOB;
        FETCH v_cursorULTIMA_EJECUCION_JOB INTO v_vJOB_FEC_LECT_INI, v_vJOB_FEC_LECT_FIN;
        
        WHILE (v_cursorULTIMA_EJECUCION_JOB%FOUND IS NULL)
        LOOP
            BEGIN
                --> Avanza a proximo registro del cursor
                FETCH v_cursorULTIMA_EJECUCION_JOB INTO v_vJOB_FEC_LECT_INI, v_vJOB_FEC_LECT_FIN;
            END;
        END LOOP;
    CLOSE v_cursorULTIMA_EJECUCION_JOB;
        --> Cierra y Libera Los cursores
       
        --> Convierte y asigna fechas en formato varchar
        v_vJOB_FEC_LECT_INI_STR := TO_CHAR(v_vJOB_FEC_LECT_INI, 'DD/MM/YYYY HH24:MI:SS');
        v_vJOB_FEC_LECT_FIN_STR := TO_CHAR(v_vJOB_FEC_LECT_FIN, 'DD/MM/YYYY HH24:MI:SS');
        DBMS_OUTPUT.PUT_LINE(N'Fecha Proceso: ' || v_vJOB_FEC_LECT_INI_STR || ' ' || v_vJOB_FEC_LECT_FIN_STR);
    END;
 
   ------------------------------------------------------------
   --       CURSOR   LINEAS
   ------------------------------------------------------------
    CURSOR v_cursorPLN_LIN IS            -------->>>>>>> EN ESTA LINEA ME APARECE EL ERROR
        SELECT
            p.PLN_ID,
            l.LIN_ID,
            e.EQU_ID,
            e.EQU_TEORICO,
            e.EQU_NOTIF_AUTOM,
            v.TAG_ID 
        FROM MII_PLANTA p,
            MII_LINEA l,
            MII_VARIABLE_PLC v,
            MII_EQUIPO e
        WHERE 
            p.PLN_ID = l.PLN_ID AND
            p.PLN_ID = v.PLN_ID AND
            l.LIN_ID = v.LIN_ID AND
            v.EQU_ID = e.EQU_ID AND
            v.PLN_ID = p.PLN_ID AND
            v.LIN_ID = l.LIN_ID AND
            p.PLN_VIGENTE = 1 AND
            l.LIN_VIGENTE = 1 AND
            v.TVA_ID = 'CAN' AND
            EQU_NOTIF = 1;
     
        ------------------------------------------------------------
        --      BEGIN
        ------------------------------------------------------------
        v_ERR_LINE := 10;
        v_ERR_DESC := '[' || TO_CHAR(v_ERR_DESC) || '] ' || 'Abre cursor Planta - Linea';
        DBMS_OUTPUT.PUT_LINE(v_ERR_DESC);
   
        ---------------------------------------------------------------------------------------------
        --  Transforma Fecha sys en Formato Fecha '01/07/2013 16:00:02' --> '07/01/2013 16:00:02'
        ---------------------------------------------------------------------------------------------
        v_vFECHA_CORTE := TO_CHAR(SYSDATE, 'DD/MM/YYYY HH24:MI:SS');
        v_vFECHA_CORTE_DATE := TO_DATE(v_vFECHA_CORTE, 'DD/MM/YYYY HH24:MI:SS');
   
        BEGIN
            OPEN v_cursorPLN_LIN;
                --> Avanza a proximo registro del cursor
                FETCH V_CURSORPLN_LIN INTO V_VPLN_ID, V_VLIN_ID, V_VEQU_ID, V_VEQU_TEORICO, V_VEQU_NOTIF_AUTOM, V_VTAG_ID;
                WHILE (v_cursorPLN_LIN%FOUND IS NULL) 
                LOOP 
                    
                    BEGIN
                        V_ERR_LINE := 20 ;
                        v_ERR_DESC := '[' || TO_CHAR(v_ERR_LINE) || '] Planta: ' || TO_CHAR(v_vPLN_ID) || ' Linea: ' || TO_CHAR(v_vLIN_ID) || ' Equipo: ' || TO_CHAR(v_vEQU_ID) || ' Te?rico: ' || TO_CHAR(v_vEQU_TEORICO) || ' TAG_ID: ' || TO_CHAR(v_vTAG_ID) ;
                        DBMS_OUTPUT.PUT_LINE(V_ERR_DESC);
                       
                        --> OBTIENE LA CANTIDAD DE REGISTROS 
                        SELECT COUNT(*) INTO v_vCANTIDAD_REGISTROS_PERIODO
                        FROM MII_BUFFER_PLC B
                        WHERE B.TAG_ID = V_VTAG_ID
                            AND TO_DATE(BUF_FECHA_SYS_MII, 'DD/MM/YYYY HH24:MI:SS') > TO_DATE(V_VJOB_FEC_LECT_FIN, 'DD/MM/YYYY HH24:MI:SS');
                            AND TO_DATE(BUF_FECHA_SYS_MII, 'DD/MM/YYYY HH24:MI:SS') <= TO_DATE(v_vFECHA_CORTE_DATE, 'DD/MM/YYYY HH24:MI:SS');
                        
                        
                        IF v_vCANTIDAD_REGISTROS_PERIODO <= 0 THEN
                            BEGIN
                                V_ERR_LINE := 1000 ;
                                v_ERR_DESC := '[' || TO_CHAR(v_ERR_LINE) || '] Registros (TAG_ID): ' || TO_CHAR(v_vCANTIDAD_REGISTROS_PERIODO) ;
                                DBMS_OUTPUT.PUT_LINE(v_ERR_DESC);
                            END;
                        ELSE
                    
                            BEGIN
                                v_ERR_LINE := 2000;
                                v_ERR_DESC := '[' || TO_CHAR(v_ERR_LINE) || '] Registros (TAG_ID): ' || TO_CHAR(v_vCANTIDAD_REGISTROS_PERIODO) ;
                                DBMS_OUTPUT.PUT_LINE(V_ERR_DESC);
 
                                --> Reserva Proximo Correlativo de Proceso / Lote
                                SELECT v_vCORRELATIVO_LOTE := fn.ObtieneCorrelativo('LOTE_CONTEO_BUENOS_BUFFER') ;   --VERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
                                UPDATE MII_000_CORRELATIVO_MANUAL
                                SET CORRELATIVO_ID = v_vCORRELATIVO_LOTE
                                WHERE CORRELATIVO_NAME = 'LOTE_CONTEO_BUENOS_BUFFER';
                                -- Reserva Proximo Correlativo de Proceso / Lote <--
 
 
                                --> Asigna Numero de Lote a registros de Buffer
                                UPDATE MII_BUFFER_PLC
                                SET BUF_LOTE_ID = v_vCORRELATIVO_LOTE
                                WHERE TAG_ID = V_VTAG_ID
                                    AND TO_DATE(BUF_FECHA_SYS_MII, 'DD/MM/YYYY HH24:MI:SS') > TO_DATE(V_VJOB_FEC_LECT_FIN, 'DD/MM/YYYY HH24:MI:SS');
                                    AND TO_DATE(BUF_FECHA_SYS_MII, 'DD/MM/YYYY HH24:MI:SS') <= TO_DATE(v_vFECHA_CORTE_DATE, 'DD/MM/YYYY HH24:MI:SS');
                                               
                                SELECT COUNT(*) INTO v_vCANTIDAD_REGISTROS_PERIODO
                                FROM MII_BUFFER_PLC
                                WHERE BUF_LOTE_ID = v_vCORRELATIVO_LOTE
                                    AND TAG_ID = v_vTAG_ID;
                                             
                                    
                                --> Obtiene Orden Activa del Equipo
                                SELECT NVL(COM_AUFNR, NULL) INTO v_vCOM_AUFNR
                                FROM MII_PROD_ORDEN_ACTIVA 
                                WHERE EQU_ID = v_vEQU_ID;
 
                                --> Persiste la cantidad de Registros
                                spMII_PUT_ProductosBuenos(v_vPLN_ID,
                                                        v_vLIN_ID,
                                                        v_vEQU_ID,
                                                        v_vCANTIDAD_REGISTROS_PERIODO,
                                                        v_vCOM_AUFNR,
                                                        v_vCANTIDAD_REGISTROS_PERIODO);
                            
                            END;
                        END IF;
                        DBMS_OUTPUT.PUT_LINE(N'------------------------ CORTE PLN_LIN_EQU_TAG ---------------------------------------');
                        --> Avanza a proximo registro del cursor
                        FETCH v_cursorPLN_LIN INTO v_vPLN_ID,v_vLIN_ID,v_vEQU_ID,v_vEQU_TEORICO,v_vEQU_NOTIF_AUTOM,v_vTAG_ID;
                    END;
                END LOOP;
        
                --------------------------------------------------------------------
                --  FIN Recorre Planta Linea (a)
                --------------------------------------------------------------------
                v_ERR_LINE := 90000 ;
                v_ERR_DESC := '[' || TO_CHAR(v_ERR_LINE) || '] ' || 'Actualizacion Fechas Ejecucion JOB REGISTRA_TIEMPO_OPERACION ' ;
                DBMS_OUTPUT.PUT_LINE(V_ERR_DESC);
                 
                UPDATE MII_000_JOB_EXECUTION
                SET JOB_FEC_UPD = SYSDATE,
                    JOB_FEC_LECT_INI = v_vJOB_FEC_LECT_FIN,
                    JOB_FEC_LECT_FIN = v_vFECHA_CORTE_DATE
                WHERE JOB_NAME = 'REGISTRA_PRODUCTOS_BUENOS';
 
                V_ERR_LINE := 1000000 ;
                v_ERR_DESC := '[' || TO_CHAR(v_ERR_LINE) || '] ' || 'Proceso Finalizado con Exito' ;
                DBMS_OUTPUT.PUT_LINE(v_ERR_DESC);
         
                OPEN  cv_1 FOR
                    SELECT v_ERR_LINE LINEA  ,
                           v_ERR_DESC DESCRIPCION  ,
                           NVL(SQLCODE, 0) ERR_NUMBER  ,
                           NVL(SQLERRM, 'Exito') ERR_MESSAGE  ,
                           NVL(NULL/*TODO:ERROR_LINE()*/, 0) ERR_LINE  
                      FROM DUAL;
                END;
            END;
        END;    
   ------------------------------------------------------------
   --       END
   ------------------------------------------------------------
   --> Cierra y Libera Los cursores
            CLOSE v_cursorPLN_LIN;
END;
 

[huesos52]

Hola worel001

En PL/SQL se manejan 3 bloques principales tanto en funciones como en procedimientos. Estas son:
Zona de declaración de variables.
Inicio del procedimiento o función
Manejo de excepciones.

El marco general sería:

Código SQL:

CREATE OR REPLACE PROCEDURE xxxxx AS
--Aca va la declaracion de variables
BEGIN
--Aca inicia las labores de programación del procedimiento
EXCEPTION WHEN XXXXX THEN
--Aca se manejan las excepciones. Sin embargo, esta clausula es opcional
END;
 

Donde te salta el error, si te fijas, con la clausula BEGIN estas iniciando labores del procedimiento y posterior a eso tratas de declarar un nuevo cursor. La declaración de este, debe ser al inicio en la zona de declaración.

Al interior del BEGIN, puedes tener subbloques internos tal cual lo estas manejando.
Por el estilo

Código SQL:

BEGIN
  BEGIN
  --Codigo
  END;
END;
 

Tengo también una recomendación para que tengas un codigo mas limpio, haciendo uso de cursores implicitos, que evitan estar abriendo, recorriendo y cerrando cursores.
Por ejemplo, donde tienes:

Código SQL:

OPEN v_cursorULTIMA_EJECUCION_JOB;
        FETCH v_cursorULTIMA_EJECUCION_JOB INTO v_vJOB_FEC_LECT_INI, v_vJOB_FEC_LECT_FIN;
        
        WHILE (v_cursorULTIMA_EJECUCION_JOB%FOUND IS NULL)
        LOOP
            BEGIN
                --> Avanza a proximo registro del cursor
                FETCH v_cursorULTIMA_EJECUCION_JOB INTO v_vJOB_FEC_LECT_INI, v_vJOB_FEC_LECT_FIN;
            END;
        END LOOP;
    CLOSE v_cursorULTIMA_EJECUCION_JOB;
 

Lo reemplazas por:

Código SQL:

SELECT  JOB_FEC_LECT_INI INTO v_vJOB_FEC_LECT_INI, 
                JOB_FEC_LECT_FIN INTO  v_vJOB_FEC_LECT_FIN
        FROM MII_000_JOB_EXECUTION 
        WHERE JOB_NAME = 'REGISTRA_PRODUCTOS_BUENOS';
 

Con esto se cumple la asignación de la consulta a las variables definidas. Donde asumo devuelve siempre un unico registro. De lo contrario, hacer el fetch y llenarlo como lo estas haciendo, no tiene ningún sentido.

Nos cuentas