テーブルから多くのレジスタを更新するために FORALL ステートメントを使用しています。部門番号 XXX が存在しないために更新が「失敗」したときに例外をキャッチする必要があります。
FORALL x IN TABLE_DEPTO_DESCRIPTION.First .. TABLE_DEPTO_DESCRIPTION.Last SAVE EXCEPTIONS
UPDATE DEPARTMENTS SET
DESCRIPTION = TABLE_DEPTO_DESCRIPTION(x).DESCRIPTION
WHERE DPTO_NUMBER =TABLE_DEPTO_DESCRIPTION(x).id;