리포트 버튼클릭으로 이동 펑션

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.