REPORT ZPUSHBUTTON.
TYPES : BEGIN OF TY_VBAK,
VBELN TYPE VBELN,
ERDAT TYPE ERDAT,
ERNAM TYPE ERNAM,
END OF TY_VBAK.
DATA : IT_VBAK TYPE STANDARD TABLE OF TY_VBAK,
WA_VBAK TYPE TY_VBAK.
SELECTION-SCREEN BEGIN OF SCREEN 200.
SELECT-OPTIONS : S_VBELN FOR WA_VBAK-VBELN.
SELECTION-SCREENBEGINOFBLOCK B1 WITHFRAMETITLETEXT-001.
SELECTION-SCREENSKIP3.
SELECTION-SCREEN PUSHBUTTON /15(10) TEXT-002 USER-COMMAND CL1.
SELECTION-SCREEN PUSHBUTTON 45(10) TEXT-003 USER-COMMAND CL2.
SELECTION-SCREENENDOFBLOCK B1.
IF SY-UCOMM = 'CL1'.
CALL SELECTION-SCREEN 200 STARTING 10 10 ENDING AT 100 10.
ENDIF.