Novato – update

[Anônimo]

Tentei fazer cheguei na fun??o abaixo mas n?o esta dando certo …

DECLARE
…
P_TEMP VARCHAR2(255);
CURSOR CURVEND IS
SELECT DISTINCT CAB.CODVEND || ‘ – ‘ || VEN.APELIDO
FROM TGFCAB CAB, TGFVEN VEN
WHERE CAB.CODVEND = VEN.CODVEND AND CAB.ORDEMCARGA = :NEW.ORDEMCARGA;
…
BEGIN

…

UPDATE TGFORD SET ROTEIRO = ” WHERE ORDEMCARGA = :NEW.ORDEMCARGA;
OPEN CURVEND;
FETCH CURVEND INTO P_TEMP;
WHILE CURVEND%FOUND LOOP
UPDATE TGFORD SET ROTEIRO = ROTEIRO || ‘, ‘ || P_TEMP
WHERE ORDEMCARGA = :NEW.ORDEMCARGA;
END LOOP;
CLOSE CURVEND;

…

END;

Agrade?o qq colabora?