*----------------------------------------------------------------------*
***INCLUDE Z13_08_I01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE ok_code.

    WHEN 'BACK'.
      LEAVE TO SCREEN 0.

    WHEN 'CREATE'.
      INSERT zemplist FROM zemplist.
      IF sy-subrc EQ 0.
        MESSAGE 'Employee was created successfully' TYPE 'S'.
      ELSE.
        MESSAGE 'Employee was not created' TYPE 'E'.
      ENDIF.

    WHEN 'CHANGE'.
      UPDATE zemplist FROM zemplist.
      IF sy-subrc EQ 0.
        MESSAGE 'Employee was updated successfully' TYPE 'S'.
      ELSE.
        MESSAGE 'Employee was not updated' TYPE 'E'.
      ENDIF.

    WHEN 'DISPLAY'.
      SELECT SINGLE *
        FROM zemplist
        WHERE empcd EQ @zemplist-empcd
        INTO CORRESPONDING FIELDS OF @zemplist.

      SELECT SINGLE dname
        FROM zteamlist
        WHERE depcd EQ @zemplist-depcd
        INTO @zteamlist-dname.

    WHEN 'DELETE'.
      DELETE FROM zemplist WHERE empcd EQ @zemplist-empcd.
      IF sy-subrc EQ 0.
        MESSAGE 'Employee was deleted successfully' TYPE 'S'.
        CLEAR: zemplist, zteamlist.
      ELSE.
        MESSAGE 'Employee was not deleted' TYPE 'E'.
      ENDIF.
  ENDCASE.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  EXIT_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit_0100 INPUT.

  CASE ok_code.
    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'CANC'.
      LEAVE TO SCREEN 0.

  ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  CHECK_EMPCD  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE check_empcd INPUT.

  " 직원코드가 5자리가 넘어가면 오류
  IF strlen( zemplist-empcd ) >= 5.
    MESSAGE 'Please enter a maximum of 4 digits for your employee code.'
      TYPE 'E'.

  ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  CHECK_EMP_INFO  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE check_emp_info INPUT.

  IF zemplist-email IS NOT INITIAL AND
     zemplist-email NA '@'.

    MESSAGE 'Invalid email address.' TYPE 'E'.

  ENDIF.

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  CREATE_DROPDOWN_BOX  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE create_dropdown_box INPUT.
  SELECT empcd
        ,ename
    FROM zemplist
    INTO TABLE @DATA(lt_list).

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'EMPCD'
      value_org       = 'S'
    TABLES
      value_tab       = lt_list
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

ENDMODULE.