셀렉션 스크린에 버튼달기

 

 *&---------------------------------------------------------------------*
*& Report  Z_SEL_BUTTON                                                *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  Z_SEL_BUTTON                                                   .

TABLES : SSCRFIELDS.

PARAMETERS P_INPUT TYPE C.
SELECTION-SCREEN FUNCTION KEY 1.
*----------------------------------------------------------------------*
* INITIALIZATION
*----------------------------------------------------------------------*
INITIALIZATION.
  PERFORM ADD_FUNTION_KEY.

*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
  PERFORM USER_COMMAND.

*---------------------------------------------------------------------*
*      Form  ADD_FUNTION_KEY
*---------------------------------------------------------------------*
FORM ADD_FUNTION_KEY .
  DATA: LV_FTEXT(30),  "FunctionKey Text (1) Display
        LV_INTERNAL TYPE ICON_INT.

  SELECT SINGLE INTERNAL INTO LV_INTERNAL
     FROM ICON
    WHERE NAME = 'ICON_XLS'.

  CONCATENATE LV_INTERNAL 'DownLoad Excel Form'
          INTO LV_FTEXT SEPARATED BY SPACE.

  SSCRFIELDS-FUNCTXT_01 = LV_FTEXT.
ENDFORM. " ADD_FUNTION_KEY

*---------------------------------------------------------------------*
*      Form  USER_COMMAND
*---------------------------------------------------------------------*
FORM USER_COMMAND .
  CASE SSCRFIELDS-UCOMM.
    WHEN 'FC01'.
      " ACTION
  ENDCASE.
ENDFORM. " USER_COMMAND