loops - ループ カーソルにデータが見つかりません

Question

PLSQL で次のコードを実行すると、「データが見つかりません」というエラーが発生しました。

 declare

    v_firm_id number;
    amount number;

    begin

    OPEN MT_CURSOR FOR
    SELECT firm_id
    FROM t_firm;

    LOOP

    FETCH MT_CURSOR INTO v_firm_id;

    EXIT WHEN MT_CURSOR%NOTFOUND;

    Select sum(TRN_AMOUNT) into amount 
    from t_sales
    where FIRM_ID = v_firm_id;

    update t_firm
    set matching_amount = amount
    where firm_id = v_firm_id; 

    END LOOP;


 end;

このコードに何か問題がありますか? 誰か訂正を教えてくれませんか? ありがとう！