ABAP Code

[Former Member]

Hello,

I tried to use the following code to update an internal table. It did not work as I expected.

In debug mode, I saw the change of ITEM_ITAB-TX which is what I wanted. But when I really ran the program, the ITEM_ITAB-TX did not change. Should I add some more code? Please advise. Thanks.

LOOP AT I_ITAB.

READ TABLE I_DITAB WITH KEY NR = I_ITAB-NR.

*IF A RECORD IS FOUND

IF SY-SUBRC = 0.

I_ITAB-TX = I_DITAB-TX.

ENDIF.

ENDLOOP.

[RichHeilman]

You need to MODIFY.

LOOP AT I_ITAB.

READ TABLE I_DITAB WITH KEY NR = I_ITAB-NR.
*IF A RECORD IS FOUND
IF SY-SUBRC = 0.
ITEM_ITAB-TX = ITEM_DITAB-TX.
MODIFY ITEM_ITAB.   "<-  Right Here
ENDIF.

ENDLOOP. 

Regards,

Rich Heilman

[Former Member]

Small change in code

LOOP AT I_ITAB.

READ TABLE I_DITAB WITH KEY NR = I_ITAB-NR.

*IF A RECORD IS FOUND

IF SY-SUBRC = 0.

I_ITAB-TX = I_DITAB-TX.

MODIFY I_ITAB<- Here

ENDIF.

ENDLOOP.

[Former Member]

Do the changes below

LOOP AT I_ITAB.

READ TABLE I_DITAB WITH KEY NR = I_ITAB-NR.
*IF A RECORD IS FOUND
IF SY-SUBRC = 0.
I_ITAB-TX = I_DITAB-TX.
MODIFY I_ITAB.  "Do these changes
ENDIF.

ENDLOOP.

Rgards,

Ravi

Note - Please mark all the helpful answers

[Former Member]

Thanks for your quick reply.