* Anzeigetext
DATA(it_text) = VALUE tline_t( ( tdformat = 'U1' tdline = 'Zeile 1' )
( tdformat = '' tdline = 'Zeile 2' )
( tdformat = '' tdline = 'Zeile 3' ) ).
* Kommando bei Buttonklick
DATA: lv_ret_code TYPE sy-ucomm.
* Popup zur Anzeige einer Textliste (Texte in einer Tabelle)
* task: 'DECIDE': Popup mit zwei Buttons 'Übernehmen' und 'Ändern'
* 'DISPLAY': Popup mit Ok- und Scrollbuttons
CALL FUNCTION 'COPO_POPUP_TO_DISPLAY_TEXTLIST'
EXPORTING
task = 'DECIDE' " 'DISPLAY' oder 'DECIDE'
titel = 'Anzeige'
IMPORTING
function = lv_ret_code
TABLES
text_table = it_text.
WRITE: / lv_ret_code.