更新物料存储期限

DECLARE
   l_item_rec      inv_item_grp.item_rec_type;
   x_item_rec      inv_item_grp.item_rec_type;
   l_error_tbl     inv_item_grp.error_tbl_type;
   l_error_msg     VARCHAR2(4000);
   x_return_status VARCHAR2(30);

   CURSOR cur_item IS
      SELECT *
        FROM mtl_system_items_b l
       WHERE l.item_type = 'TIRES'
         AND l.shelf_life_days <> 3650;
BEGIN

   FOR rec_item IN cur_item LOOP
      l_item_rec := inv_item_grp.g_miss_item_rec;
   
      l_item_rec.organization_id := rec_item.organization_id;
      --l_item_rec.organization_code := rec_item.organization_code;
      l_item_rec.segment1                    := rec_item.segment1;
      l_item_rec.segment2                    := rec_item.segment2;
      l_item_rec.description                 := rec_item.description;
      l_item_rec.shelf_life_days             := 3650; --rec_item.shelf_life_days;
      l_item_rec.forecast_horizon            :&