*&---------------------------------------------------------------------*
*&  Include           Z16_001I01                                       *
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  user_command_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  save_ok = ok_code.
  CLEAR ok_code.

  CASE save_ok.
    WHEN 'UPDA'.
      UPDATE wbtable.
      IF sy-subrc <> 0.
        MESSAGE e004 WITH wbtable-flid.
      ENDIF.
      MESSAGE s002 WITH wbtable-flid.
    WHEN 'CREA'.
      INSERT wbtable.
      IF sy-subrc <> 0.
        MESSAGE e000 WITH wbtable-flid..
      ENDIF.
      MESSAGE s001 WITH wbtable-flid.
    WHEN 'DISP'.
      SELECT SINGLE * FROM wbtable
      WHERE flid = wbtable-flid.
      IF sy-subrc <> 0.
        MESSAGE e004 WITH wbtable-flid.
      ENDIF.
    WHEN 'DELE'.
      SELECT SINGLE * FROM wbtable
      WHERE flid = wbtable-flid.
      IF sy-subrc <> 0.
        MESSAGE e004 WITH wbtable-flid.
      ELSE.
        CALL FUNCTION 'POPUP_TO_CONFIRM_LOSS_OF_DATA'
          EXPORTING
            textline1 = 'Delete Flight?'
            titel     = 'Attention'
          IMPORTING
            answer    = gv_answer.
        CHECK gv_answer NE 'N'.
        DELETE wbtable.
        CLEAR wbtable.
        MESSAGE s003 WITH wbtable-flid. "Flight was DELETED successfully
      ENDIF.
    WHEN space.

  ENDCASE.

ENDMODULE.                 " user_command_0100  INPUT