DATA(i) = 0.
WHILE i < 10.
WRITE: / i.
i = i + 1.
ENDWHILE.
DATA: it_abaplist TYPE STANDARD TABLE OF abaplist WITH DEFAULT KEY.
* Sichern einer Liste
CALL FUNCTION 'SAVE_LIST'
TABLES
listobject = it_abaplist
EXCEPTIONS
list_index_invalid = 1
OTHERS = 2.
IF sy-subrc = 0.
DATA: it_list_ascii TYPE list_string_table.
* Konvertieren eines (gesicherten) Listobjekts nach ASCI
CALL FUNCTION 'LIST_TO_ASCI'
IMPORTING
list_string_ascii = it_list_ascii
TABLES
listobject = it_abaplist
EXCEPTIONS
empty_list = 1
list_index_invalid = 2
OTHERS = 3.
IF sy-subrc = 0.
cl_demo_output=>display( it_list_ascii ).
ENDIF.
ENDIF.