Cursor PL/SQL

[Inicia]

Hola, tengo una duda, estoy empezando a programar en PL/SQL y tengo realizado este cursor:

Código PL/SQL:

CREATE OR REPLACE
PROCEDURE  "DesbalanceDiarioPrueba" IS
CURSOR PRUEBA IS 
 
 
rango1 DATE;
rango2 DATE;
 
CURSOR DDS IS
SELECT  SUM(NUMLLA) LLAM ,SUM(ICMINO) MINS, ICOPAC,'Saliente' tipo  FROM ICRESDIA
 WHERE ICDATE BETWEEN  rango1 AND rango2
  AND ICACAS IN (169,170,98,99,100,4,5,81,87,28,29,34,35,32,33,43,44,94,95,97,60)--193
GROUP BY  icopac;
 
CURSOR OPES IS
SELECT 'Tipo' Tipo, DESOPE, SUM(llasal) lls, SUM(minsal) MS
FROM ICDESRES
WHERE DESDIA BETWEEN  rango1 AND rango2
AND ictipe IN ('C','N','R')
GROUP BY  DESOPE
ORDER BY desope;
 
 
BEGIN
 
SELECT TRUNC(LAST_DAY(ADD_MONTHS(SYSDATE,-1)+1))
INTO rango1
FROM dual;
 
SELECT TRUNC(sysdate-1)
INTO rango2
FROM dual;
 
FOR r_OPES IN OPES LOOP
  DBMS_OUTPUT.PUT_LINE(r_OPES.Tipo||','||r_OPES.DESOPE||','||r_OPES.lls||','||r_OPES.MS); 
FOR r_DDS IN DDS LOOP
IF r_OPES.DESOPE=r_DDS.ICOPAC THEN 
  DBMS_OUTPUT.PUT_LINE(r_DDS.tipo||','||r_DDS.ICOPAC||','||r_DDS.LLAM||','||r_DDS.MINS); 
  END IF;
END LOOP;
END LOOP;
 
 
END;
 

El cual me trae un resultado así:

Tipo,102,53181,276288.2
Saliente,102,53183,276318.19
Tipo,119,241865,1362822.4
Saliente,119,241924,1365762.84

Mi dura es:

1. Como puedo hacer una resta o suma entre los diferentes cursores, o bien el resultado de cada campo es decir. Restar 53181 menos 53183 siendo el valor de relación el 102, ejemplo:

Lo que me da ahora:
Tipo,102,53181,276288.2
Saliente,102,53183,276318.19

Resultado que quiero:
Tipo,Saliente,102,2,29.99


Se los agradecería muchíiiiiiiisimo si me ayudan porque no sé como hacer operaciones entre cursores o como tengo q declarar las variables. Manejo el SQL server pero algunas instrucciones me confunden en este lenguaje.

Saludos.

[huesos52]

Pruebalo así:

Código SQL:

CREATE OR REPLACE
PROCEDURE  "DesbalanceDiarioPrueba" IS
CURSOR PRUEBA IS 
 
 
rango1 DATE;
rango2 DATE;
 
CURSOR DDS IS
SELECT  SUM(NUMLLA) LLAM ,SUM(ICMINO) MINS, ICOPAC,'Saliente' tipo  FROM ICRESDIA
 WHERE ICDATE BETWEEN  rango1 AND rango2
  AND ICACAS IN (169,170,98,99,100,4,5,81,87,28,29,34,35,32,33,43,44,94,95,97,60)--193
GROUP BY  icopac;
 
CURSOR OPES IS
SELECT 'Tipo' Tipo, DESOPE, SUM(llasal) lls, SUM(minsal) MS
FROM ICDESRES
WHERE DESDIA BETWEEN  rango1 AND rango2
AND ictipe IN ('C','N','R')
GROUP BY  DESOPE
ORDER BY desope;
 
 
BEGIN
 
SELECT TRUNC(LAST_DAY(ADD_MONTHS(SYSDATE,-1)+1))
INTO rango1
FROM dual;
 
SELECT TRUNC(sysdate-1)
INTO rango2
FROM dual;
 
FOR r_OPES IN OPES LOOP
  --DBMS_OUTPUT.PUT_LINE(r_OPES.Tipo||','||r_OPES.DESOPE||','||r_OPES.lls||','||r_OPES.MS); 
FOR r_DDS IN DDS LOOP
IF r_OPES.DESOPE=r_DDS.ICOPAC THEN 
  DBMS_OUTPUT.PUT_LINE(r_OPES.Tipo||','||r_DDS.tipo||','||r_DDS.ICOPAC||','||r_DDS.LLAM-r_OPES.lls||','||r_DDS.MINS-r_OPES.MS); 
  END IF;
END LOOP;
END LOOP;
 
 
END;
 

Nos cuentas

[Inicia]

Me marca error al abrir el CURSOR PRUEBA

Error(6,1); PLS- 00103: Encountered the symbol "RANGO1" when expecting one of the following (select <a SQL statement>

Error(44,4); PLS-00103: Encountered the symbol "end-of-file" when expecting one of the following; end not pragma final instantiable order overriding static member constructor map


=(

[Inicia]

Lo intente así:

Código PL/SQL:

CREATE OR REPLACE
PROCEDURE  "DesbalanceDiarioPrueba" IS
rango1 DATE;
rango2 DATE;
 
CURSOR DDS IS
SELECT  SUM(NUMLLA) LLAM ,SUM(ICMINO) MINS, ICOPAC,'Saliente' tipo  FROM ICRESDIA
 WHERE ICDATE BETWEEN  rango1 AND rango2
  AND ICACAS IN (169,170,98,99,100,4,5,81,87,28,29,34,35,32,33,43,44,94,95,97,60)--193
GROUP BY  icopac;
 
CURSOR OPES IS
SELECT 'Tipo' Tipo, DESOPE, SUM(llasal) lls, SUM(minsal) MS
FROM ICDESRES
WHERE DESDIA BETWEEN  rango1 AND rango2
AND ictipe IN ('C','N','R')
GROUP BY  DESOPE
ORDER BY desope;
 
 
BEGIN
 
SELECT TRUNC(LAST_DAY(ADD_MONTHS(SYSDATE,-1)+1))
INTO rango1
FROM dual;
 
SELECT TRUNC(sysdate-1)
INTO rango2
FROM dual;
 
 
FOR r_OPES IN OPES LOOP
  --DBMS_OUTPUT.PUT_LINE(r_OPES.Tipo||','||r_OPES.DESOPE||','||r_OPES.lls||','||r_OPES.MS); 
FOR r_DDS IN DDS LOOP
IF r_OPES.DESOPE=r_DDS.ICOPAC THEN 
  DBMS_OUTPUT.PUT_LINE(r_OPES.Tipo||','||r_DDS.tipo||','||r_DDS.ICOPAC||','||r_DDS.LLAM-r_OPES.lls||','||r_DDS.MINS-r_OPES.MS); 
  END IF;
END LOOP;
END LOOP;
 

Y no marca error al compilar, pero me marca error de datos:

onectando a la base de datos 192.150.100.0.
ORA-06502: PL/SQL: error : character to number conversion error numérico o de valor
ORA-06512: en "INTEN_CAM.DesbalanceDiarioPrueba", línea 35
ORA-06512: en línea 2
El proceso ha terminado.
Desconectando de la base de datos 192.150.100.0.

¿Algúna idea?

[huesos52]

ORA-06502: PL/SQL: error : character to number conversion error numérico o de valor

Tu eres qel que entiende la logica de los datos.

Si ves, lo que hago es una resta en el segundo cursor para que la impresión genere el resultado que quieres. Eso se puede hacer, pero debes interpretarlo correctamente con tus campos.


El error dice que en este IF (r_OPES.DESOPE=r_DDS.ICOPAC)
Los tipos de datos no son iguales y la comparación no se puede llevar a cabo.

saludos