如何更新内部表而不使用MODIFY?

Question

我创建了内部表，我想通过从另一个表中计算员工的年龄来更新一个内部表中的员工年龄，我已经做了算术计算来获得年龄，但现在我如何通过任何替代方法来更新它，而不是MODIFY?

WRITE : / 'FirstName','LastName', '  Age'.  
LOOP AT gt_items1 INTO gwa_items1.
READ TABLE gt_header INTO gwa_header WITH KEY empid = gwa_items1-empid.
gwa_items1-age = gv_date+0(4) - gwa_header-bdate+0(4).

MODIFY gt_items1 from gwa_items1 TRANSPORTING age WHERE empid = gwa_items1-empid.
WRITE : /  gwa_items1-fname , gwa_items1-lname , gwa_items1-age .
ENDLOOP.

Answer 1

通过循环遍历内部表来使用字段符号(而不是工作区域):

WRITE : / 'FirstName','LastName', '  Age'.  
LOOP AT gt_items1 
ASSIGNING FIELD-SYMBOL(<ls_item1>).
READ TABLE gt_header 
ASSIGNING FIELD-SYMBOL(<ls_header>) 
WITH KEY empid = <ls_item1>-empid.
IF sy-subrc EQ 0.
<ls_item1>-age = gv_date+0(4) - <ls_header>-bdate+0(4).
WRITE : /  <ls_item1>-fname , <ls_item1>-lname , <ls_item1>-age .
ENDIF.
ENDLOOP.

字段符号有两个优点:

• 它们直接修改内部表，没有单独的modify必要的。

• 它们比工作区要快一些。

Answer 2

除了József Szikszai的回答，你还可以使用参考:

write : / 'FirstName','LastName', '  Age'.
sort gt_header by empid. " <------------- Sort for binary search
loop at gt_items1 reference into data(r_item1).
read table gt_header reference into data(r_header)
with key empid = r_item1->empid binary search. " <------------- Faster read
check sy-subrc eq 0. 
r_item1->age = gv_date+0(4) - r_header->bdate+0(4).
write : /  r_item1->fname , r_item1->lname , r_item1->age .
endloop.

我还为你的代码添加了一些增强。

更多信息请查看此链接