直接上代码
DATA : BEGIN OF ITAB OCCURS 0 ,
TEXT ( 100 ) ,
END OF ITAB .
INITIALIZATION .
ITAB - TEXT = 'LINE1: ' .
APPEND ITAB .
ITAB - TEXT = 'LINE2: ' .
APPEND ITAB .
ITAB - TEXT = 'LINE3: ' .
APPEND ITAB .
ITAB - TEXT = 'LINE4: ' .
APPEND ITAB .
START-OF-SELECTION .
EDITOR-CALL FOR ITAB TITLE 'TESTING EDITOR-CALL FOR INTERNAL TABLE' .
LOOP AT ITAB .
WRITE :/ ITAB - TEXT .
ENDLOOP.