Bsp. für die Verwendung von Pushbutton und deren hinterlegten Code
*&---------------------------------------------------------------------*
*& Report ZTEST16
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ztest16.
TABLES sscrfields.
SELECTION-SCREEN PUSHBUTTON /02(17) up1 USER-COMMAND aa.
SELECTION-SCREEN PUSHBUTTON /02(17) up2 USER-COMMAND bb.
SELECTION-SCREEN PUSHBUTTON /02(17) up3 USER-COMMAND cc.
SELECTION-SCREEN PUSHBUTTON /02(17) up4 USER-COMMAND dd.
INITIALIZATION.
up1 = 'SE16N'.
up2 = 'SM30'.
up3 = 'SE11'.
up4 = 'SE16'.
AT SELECTION-SCREEN.
"Muss unbedingt in at selection-screen sein.
IF sscrfields-ucomm = 'AA'.
CLEAR sscrfields-ucomm.
CALL TRANSACTION 'SE16N'.
ENDIF.
IF sscrfields-ucomm = 'BB'.
CLEAR sscrfields-ucomm.
CALL TRANSACTION 'SM30'.
ENDIF.
IF sscrfields-ucomm = 'CC'.
CLEAR sscrfields-ucomm.
CALL TRANSACTION 'SE11'.
ENDIF.
IF sscrfields-ucomm = 'DD'.
CLEAR sscrfields-ucomm.
CALL TRANSACTION 'SE16'.
ENDIF.