[ABAP] ABAP-Listausgabe in interne ASCII-Tabelle ausgeben

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.

[ABAP] Listausgabe eines Reports holen, anzeigen, in ASCII wandeln

* https://blogs.sap.com/2016/12/29/exporting-list-to-memory-and-its-dangers/
* beliebigen Report ausführen, der eine Listausgabe hat
SUBMIT showcolo EXPORTING LIST TO MEMORY AND RETURN.

DATA: it_list TYPE STANDARD TABLE OF abaplist WITH DEFAULT KEY.

* Einlesen aufbereiteter Liste aus Memory
CALL FUNCTION 'LIST_FROM_MEMORY'
  TABLES
    listobject = it_list
  EXCEPTIONS
    not_found  = 1
    OTHERS     = 2.

IF sy-subrc = 0.
* Speicher (Liste) freigeben
* Löschen der letzten gespeicherten Liste aus dem Memory
  CALL FUNCTION 'LIST_FREE_MEMORY'.
ENDIF.

IF sy-subrc = 0.
  WRITE: / 'Listausgabe aus Report SHOWCOLO:'.

* Listausgabe des aufgerufenen Reports hier wieder anzeigen
* Anzeigen eines (gesicherten) Listobjekts
  CALL FUNCTION 'WRITE_LIST'
    TABLES
      listobject = it_list
    EXCEPTIONS
      empty_list = 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_list
      EXCEPTIONS
        empty_list         = 1
        list_index_invalid = 2
        OTHERS             = 3.

    IF sy-subrc = 0.

      ULINE.

      WRITE: / 'Listausgabe ASCII-konvertiert hier im Report:'.

      LOOP AT it_list_ascii ASSIGNING FIELD-SYMBOL(<s>).
        WRITE: / <s>.
      ENDLOOP.
    ENDIF.
  ENDIF.
ENDIF.