DECLARE
BEGIN
FOR ITC IN (SELECT ROWNUM AS INDICE,
CODIGOITEM,
CODIGOCOMPRA,
CODIGOITEMESTOQUE,
FROM ITEMCOMPRA
WHERE CODIGOCOMPRA = 1)
LOOP
UPDATE ITEMESTOQUE
SET QUANTIDADE = QUANTIDADE -1
WHERE CODIGO = ITC.CODIGOITEMESTOQUE;
END LOOP;
END;