Utilización de un cursor

Hola tengo un gran problema espero puedas ayudarme, tengo dos tablas "x" y "z" y quiero hacer un update de la tabla por a la z pero de varios registros, esto cuando las llaves principales sean iguales en ambas tablas... Pero no he podido hacer el script... Me manda un error y no lo he encontrado, este es el código... Si alguien pudieras ayudarme te lo agradecería...
Declare
CURSOR compu IS
SELECT tme_object_label,SUBSTR(fecha_capitalizacion,8,4),
valor_neto_inicial
FROM compu_costo;
dat_cve compu_costo.tme_object_laber%TYPE;
dat_fec compu_costo.fecha_capitalizacion%TYPE;
dat_cost compu_costo.valor_neto_inicial%TYPE;
BEGIN
OPEN compu;
LOOP
FETCH compu INTO dat_cve;
FETCH compu INTO dat_fec;
FETCH compu INTO dat_cost;
UPDATE ticomputadora
SET anio_adqui := dat_fec;
costo_adq := dat_costo
WHERE cve_compu = dat_cve;
END LOOP;
CLOSE compu;
END;
Gracias...