at new 用法

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