*----------------------------------------------------------------------*
***INCLUDE Z13_01_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 S000 WITH 'Employee was created successfully'.
      ELSE.
        MESSAGE E000 WITH'Employee was not created'.
      ENDIF.

    WHEN 'CHANGE'.
      UPDATE ZEMPLIST FROM ZEMPLIST.
      IF SY-SUBRC EQ 0.
        MESSAGE S000 WITH'Employee was updated successfully'.
      ELSE.
        MESSAGE E000 WITH 'Employee was not updated'.
      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 S000 WITH 'Employee was deleted successfully'.
        CLEAR: ZEMPLIST, ZTEAMLIST.
      ELSE.
        MESSAGE E000 WITH 'Employee was not deleted'.
      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  F1_EMPCD  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE F1_EMPCD INPUT.
  DATA LINKS TYPE TABLE OF TLINE.

  CALL FUNCTION 'HELP_OBJECT_SHOW'
    EXPORTING
      DOKCLASS = 'TX'
      DOKNAME  = 'ZSCRIPT'
    TABLES
      LINKS    = LINKS.

ENDMODULE.