Code: Alles auswählen.
DATA: a TYPE i.
TABLES sscrfields.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (6) button_1 USER-COMMAND but1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
**********************************************************************
INITIALIZATION.
button_1 = 'START'.
**********************************************************************
AT SELECTION-SCREEN.
IF sscrfields-ucomm EQ 'BUT1'.
a = 1.
ELSE.
a = 2.
ENDIF.
**********************************************************************
START-OF-SELECTION.
WRITE 'hello'.