*----------------------------------------------------------------------*
***INCLUDE Z_MMCUST101_CN_PAI .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
gv_okcode = okcode.
CLEAR okcode.
gt_grid1[] = gt_data[].
CASE gv_okcode.
WHEN 'BACK'.
SET SCREEN 0.
WHEN 'SAVE'.
PERFORM create_message_log USING '0'.
PERFORM f_user_command USING c_save.
PERFORM save_message_log_to_dtba.
WHEN 'EXCEL'.
Perform download_data.
WHEN 'EXIT'.
SUBMIT (sy-repid) VIA SELECTION-SCREEN.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module EXIT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module EXIT input.
IF sy-ucomm EQ 'LEAVE'.
LEAVE PROGRAM.
ENDIF.
endmodule. " EXIT INPUT
***INCLUDE Z_MMCUST101_CN_PAI .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
gv_okcode = okcode.
CLEAR okcode.
gt_grid1[] = gt_data[].
CASE gv_okcode.
WHEN 'BACK'.
SET SCREEN 0.
WHEN 'SAVE'.
PERFORM create_message_log USING '0'.
PERFORM f_user_command USING c_save.
PERFORM save_message_log_to_dtba.
WHEN 'EXCEL'.
Perform download_data.
WHEN 'EXIT'.
SUBMIT (sy-repid) VIA SELECTION-SCREEN.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module EXIT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module EXIT input.
IF sy-ucomm EQ 'LEAVE'.
LEAVE PROGRAM.
ENDIF.
endmodule. " EXIT INPUT