pregunta 2 lab 4 bd

CREATE OR REPLACE PROCEDURE P_DetallePedidoSinMontoDetalle(errores OUT NUMBER) IS
BEGIN
UPDATE L4_DETALLEPEDIDO  DET
SET MONTODETALLE =(
SELECT DET.CANTIDAD * PRO.PRECIO
FROM L4_DETALLEPEDIDO DET2 , L4_PRODUCTO PRO
WHERE PRO.IDPRODUCTO = DET2.IDPRODUCTO
AND DET.IDPRODUCTO = DET2.IDPRODUCTO
AND DET.IDPEDIDO = DET2.IDPEDIDO)
;
errores:=SQL%ROWCOUNT;
COMMIT;
END P_DetallePedidoSinMontoDetalle;

SET SERVEROUTPUT ON
DECLARE
errores NUMBER;
BEGIN
P_DetallePedidoSinMontoDetalle(errores);
DBMS_OUTPUT.put_line(errores);
END;