리포트 버튼클릭으로 이동 펑션
REPORT ZPP001 NO STANDARD PAGE HEADING MESSAGE-ID ZPP01.
TABLES SSCRFIELDS.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN: PUSHBUTTON /10(30) BUT1 USER-COMMAND UC1.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN: PUSHBUTTON /10(30) BUT3 USER-COMMAND UC3.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN: PUSHBUTTON /10(30) BUT4 USER-COMMAND UC4.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN: PUSHBUTTON /10(30) BUT5 USER-COMMAND UC5.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK B1.
INITIALIZATION.
DATA: BEGIN OF F_CODE OCCURS 0,
FCODE TYPE SY-UCOMM,
END OF F_CODE.
APPEND 'ONLI' TO F_CODE.
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
EXPORTING
P_STATUS = SY-PFKEY
TABLES
P_EXCLUDE = F_CODE.
BUT1 = '11 261MVT'.
BUT3 = '12 261MVT'.
BUT4 = '11 262MVT'.
BUT5 = '12 262MVT'.
AT SELECTION-SCREEN.
CASE SSCRFIELDS-UCOMM.
WHEN 'UC1'.
SUBMIT ZPP002 VIA SELECTION-SCREEN AND RETURN.
WHEN 'UC3'.
SUBMIT ZPP003 VIA SELECTION-SCREEN AND RETURN.
WHEN 'UC4'.
SUBMIT ZPP002_1 VIA SELECTION-SCREEN AND RETURN.
WHEN 'UC5'.
SUBMIT ZPP003_1 VIA SELECTION-SCREEN AND RETURN.
ENDCASE.