DATA: BEGIN OF ITAB OCCURS 0,
C1(4),
C2(4),
C3(4),
C4(4),
END OF ITAB.
DATA: C1(4).
ITAB-C1 = 'A'. ITAB-C2 = '1'.ITAB-C3 = '2'.ITAB-C4 = '3'. APPEND ITAB.
ITAB-C1 = 'A'. ITAB-C2 = '4'.ITAB-C3 = '5'.ITAB-C4 = '3'.APPEND ITAB.
ITAB-C1 = 'B'. ITAB-C2 = '1'.ITAB-C3 = '2'.ITAB-C4 = '3'.APPEND ITAB.
ITAB-C1 = 'B'. ITAB-C2 = '4'.ITAB-C3 = '5'.ITAB-C4 = '3'.APPEND ITAB.
LOOP AT ITAB.
CLEAR C1.
AT NEW C1.
C1 = 'X'.
ENDAT.
IF C1 IS INITIAL.
CLEAR ITAB-C1.
ENDIF.
WRITE:/ ITAB-C1,ITAB-C2,ITAB-C3,ITAB-C4.
ENDLOOP.
C1(4),
C2(4),
C3(4),
C4(4),
END OF ITAB.
DATA: C1(4).
ITAB-C1 = 'A'. ITAB-C2 = '1'.ITAB-C3 = '2'.ITAB-C4 = '3'. APPEND ITAB.
ITAB-C1 = 'A'. ITAB-C2 = '4'.ITAB-C3 = '5'.ITAB-C4 = '3'.APPEND ITAB.
ITAB-C1 = 'B'. ITAB-C2 = '1'.ITAB-C3 = '2'.ITAB-C4 = '3'.APPEND ITAB.
ITAB-C1 = 'B'. ITAB-C2 = '4'.ITAB-C3 = '5'.ITAB-C4 = '3'.APPEND ITAB.
LOOP AT ITAB.
CLEAR C1.
AT NEW C1.
C1 = 'X'.
ENDAT.
IF C1 IS INITIAL.
CLEAR ITAB-C1.
ENDIF.
WRITE:/ ITAB-C1,ITAB-C2,ITAB-C3,ITAB-C4.
ENDLOOP.
本文介绍了一个关于 ABAP 中内部表 (ITAB) 的操作实例,演示了如何初始化内部表、追加记录、循环遍历以及修改数据。通过对具体代码的解析,帮助读者理解 ABAP 中 ITAB 的基本用法。
622

被折叠的 条评论
为什么被折叠?



