*&---------------------------------------------------------------------*
*& Module Pool       Z13_05
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

PROGRAM  z13_05.

CONTROLS mytabstrip TYPE TABSTRIP.

DATA: ok_code    TYPE sy-ucomm,
      save_ok    TYPE sy-ucomm.

DATA : gv_number TYPE sy-dynnr,
       gv_init   TYPE c.

DATA : gv_answer TYPE c.

TABLES : zemp.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'G100'.
  IF gv_init IS INITIAL.
    mytabstrip-activetab = 'TAB1'.
    gv_number = '0110'.
    gv_init = 'X'.
  ENDIF.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  save_ok = ok_code.
  CLEAR ok_code.

  CASE save_ok.
    WHEN 'BACK' OR 'CANC'.
      LEAVE PROGRAM.

    WHEN 'TAB1'.
      gv_number = '0110'.
      mytabstrip-activetab = save_ok.
    WHEN 'TAB2'.
      gv_number = '0120'.
      mytabstrip-activetab = save_ok.
    WHEN 'CREA'.
      INSERT zemp.
      IF sy-subrc <> 0.
        MESSAGE 'Error occured' TYPE 'E'.
      ENDIF.
      MESSAGE 'Sucess' TYPE 'I'.
    WHEN 'CHAG'.
      UPDATE zemp. "TABLE DATA UPDATE
      IF sy-subrc <> 0.
        MESSAGE 'Error occured' TYPE 'E'.
      ENDIF.
      MESSAGE 'Sucess' TYPE 'I'.
    WHEN 'DISP'.  "TABLE DATA DISPLAY
      SELECT SINGLE * FROM zemp
      WHERE emp_no = zemp-emp_no.
      IF sy-subrc <> 0.
        MESSAGE 'Error occured' TYPE 'E'.
      ENDIF.
      MESSAGE 'Sucess' TYPE 'I'.
    WHEN 'DELE'.
      SELECT SINGLE * FROM zemp
      WHERE emp_no = zemp-emp_no.
      IF sy-subrc <> 0.
        MESSAGE 'Error occured' TYPE 'E'.
      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 zemp.
        CLEAR zemp.
        MESSAGE 'Sucess' TYPE 'I'.
      ENDIF.

  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT