at new 用法
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.
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.