OCTOBER 09

*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0131  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0131 INPUT.
  CASE SY-UCOMM.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      CLEAR : START_DATE , END_DATE.
      CLEAR : ZPROJECT_RECORD , START_DATE , END_DATE , ZPROJECT_DETAILS.
      CLEAR : CHK1 ,CHK2 ,CHK3 ,CHK4 ,CHK5 ,CHK6 ,CHK7 ,CHK8 ,CHK9 ,CHK10.
      CALL SCREEN 1000.

    WHEN 'BACK'.
      CLEAR : ZPROJECT_RECORD , START_DATE , END_DATE , ZPROJECT_DETAILS.
      CLEAR : CHK1 ,CHK2 ,CHK3 ,CHK4 ,CHK5 ,CHK6 ,CHK7 ,CHK8 ,CHK9 ,CHK10.
      CALL SCREEN 124.

    WHEN 'SUBMIT'.
      TEMP_RESULT-EMP_ID = ZPROJECT_EMP-EMP_ID.
      TEMP_RESULT-EMP_NAME = ZPROJECT_EMP-EMP_NAME.
      TEMP_RESULT-START_DATE = START_DATE.
      TEMP_RESULT-END_DATE = END_DATE.
      TEMP_RESULT-DEPT_NAME = ZPROJECT_EMP-DEPT_NAME.
      TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
      TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
      TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NILL'.
      TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'NILL'.
      TEMP_RESULT-BEHAVIOUR_ISSUE_5 = 'NILL'.
      TEMP_RESULT-REWARD_1 = 'NILL'.
      TEMP_RESULT-REWARD_2 = 'NILL'.
      TEMP_RESULT-REWARD_3 = 'NILL'.
      TEMP_RESULT-REWARD_4 = 'NILL'.
      TEMP_RESULT-REWARD_5 = 'NILL'.
      IF CHK1 = 'X'.
        TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NEEDS SUPERVISION'.
      ENDIF.

      IF CHK2 = 'X'.
        IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'SHOULD BE INITIATIVE'.
        ELSE.
          TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'SHOULD BE INITIATIVE'.
        ENDIF.
      ENDIF.

      IF CHK3 = 'X'.
        IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NEED ENTHUSIASM AND SELF EXPRESSION'.
        ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NEED ENTHUSIASM AND SELF EXPRESSION'.
        ELSE.
          TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NEED ENTHUSIASM AND SELF EXPRESSION'.
        ENDIF.
      ENDIF.


      IF CHK4 = 'X'.
        IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'SHOULD POSSES TEAM SPIRIT'.
        ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'SHOULD POSSES TEAM SPIRIT'.
        ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'SHOULD POSSES TEAM SPIRIT'.
        ELSE.
          TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'SHOULD POSSES TEAM SPIRIT'.
        ENDIF.
      ENDIF.

      IF CHK5 = 'X'.
        IF TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_1 = 'NEED TO BE COST EFFECTIVE'.
        ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_2 = 'NEED TO BE COST EFFECTIVE'.
        ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_3 = 'NEED TO BE COST EFFECTIVE'.
        ELSEIF TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'NILL'.
          TEMP_RESULT-BEHAVIOUR_ISSUE_4 = 'NEED TO BE COST EFFECTIVE'.
        ELSE.
          TEMP_RESULT-BEHAVIOUR_ISSUE_5 = 'NEED TO BE COST EFFECTIVE'.
        ENDIF.
      ENDIF.

      IF CHK6 = 'X'.
        IF R1 = 'X'.
          TEMP_RESULT-REWARD_1 = 'PROMOTION'.
        ENDIF.
        IF R2 = 'X'.
          TEMP_RESULT-REWARD_1 = 'TRANSFER'.
        ENDIF.
      ENDIF.

      IF CHK7 = 'X'.
        IF R3 = 'X'.
          IF TEMP_RESULT-REWARD_1 = 'NILL'.
            TEMP_RESULT-REWARD_1 = 'PAY INCREASE'.
          ELSE.
            TEMP_RESULT-REWARD_2 = 'PAY INCREASE'.
          ENDIF.
        ENDIF.
        IF R4 = 'X'.
          IF TEMP_RESULT-REWARD_1 = 'NILL'.
            TEMP_RESULT-REWARD_1 = 'PENSION SCHEME'.
          ELSE.
            TEMP_RESULT-REWARD_2 = 'PENSION SCHEME'.
          ENDIF.
        ENDIF.
      ENDIF.

      IF CHK8 = 'X'.
        IF R5 = 'X'.
          IF TEMP_RESULT-REWARD_1 = 'NILL'.
            TEMP_RESULT-REWARD_1 =  'INCENTIVES'.
          ELSEIF  TEMP_RESULT-REWARD_2 = 'NILL'.
            TEMP_RESULT-REWARD_2 = 'INCENTIVES'.
          ELSE.
            TEMP_RESULT-REWARD_3 = 'NCENTIVES'.
          ENDIF.
        ENDIF.
        IF R6 = 'X'.
          IF TEMP_RESULT-REWARD_1 = 'NILL'.
            TEMP_RESULT-REWARD_1 =  'BONUS'.
          ELSEIF  TEMP_RESULT-REWARD_2 = 'NILL'.
            TEMP_RESULT-REWARD_2 = 'BONUS'.
          ELSE.
            TEMP_RESULT-REWARD_3 = 'BONUS'.
          ENDIF.
        ENDIF.
      ENDIF.

      IF CHK9 = 'X'.
        IF R7 = 'X'.
          IF TEMP_RESULT-REWARD_1 = 'NILL'.
            TEMP_RESULT-REWARD_1 =  'HOLIDAY PACKAGE'.
          ELSEIF  TEMP_RESULT-REWARD_2 = 'NILL'.
            TEMP_RESULT-REWARD_2 = 'HOLIDAY PACKAGE'.
          ELSEIF  TEMP_RESULT-REWARD_3 = 'NILL'.
            TEMP_RESULT-REWARD_3 = 'HOLIDAY PACKAGE'.
          ELSE.
            TEMP_RESULT-REWARD_4 = 'HOLIDAY PACKAGE'.
          ENDIF.
        ENDIF.

        IF R8 = 'X'.
          IF TEMP_RESULT-REWARD_1 = 'NILL'.
            TEMP_RESULT-REWARD_1 =  'MEDICAL FACILITY'.
          ELSEIF  TEMP_RESULT-REWARD_2 = 'NILL'.
            TEMP_RESULT-REWARD_2 = 'MEDICAL FACILITY'.
          ELSEIF  TEMP_RESULT-REWARD_3 = 'NILL'.
            TEMP_RESULT-REWARD_3 = 'MEDICAL FACILITY'.
          ELSE.
            TEMP_RESULT-REWARD_4 = 'MEDICAL FACILITY'.
          ENDIF.
        ENDIF.
      ENDIF.

      IF CHK10 = 'X'.
        IF R9 = 'X'.
          IF TEMP_RESULT-REWARD_1 = 'NILL'.
            TEMP_RESULT-REWARD_1 =  'WORK RECOGNITION'.
          ELSEIF  TEMP_RESULT-REWARD_2 = 'NILL'.
            TEMP_RESULT-REWARD_2 = 'WORK RECOGNITION'.
          ELSEIF  TEMP_RESULT-REWARD_3 = 'NILL'.
            TEMP_RESULT-REWARD_3 = 'WORK RECOGNITION'.
          ELSEIF TEMP_RESULT-REWARD_4 = 'NILL'.
            TEMP_RESULT-REWARD_4 = 'WORK RECOGNITION'.
          ELSE.
            TEMP_RESULT-REWARD_5 = 'WORK RECOGNITION'.
          ENDIF.
        ENDIF.

        IF R10 = 'X'.
          IF TEMP_RESULT-REWARD_1 = 'NILL'.
            TEMP_RESULT-REWARD_1 =  'PLACEMENT'.
          ELSEIF  TEMP_RESULT-REWARD_2 = 'NILL'.
            TEMP_RESULT-REWARD_2 = 'PLACEMENT'.
          ELSEIF  TEMP_RESULT-REWARD_3 = 'NILL'.
            TEMP_RESULT-REWARD_3 = 'PLACEMENT'.
          ELSEIF TEMP_RESULT-REWARD_4 = 'NILL'.
            TEMP_RESULT-REWARD_4 = 'PLACEMENT'.
          ELSE.
            TEMP_RESULT-REWARD_5 = 'PLACEMENT'.
          ENDIF.
        ENDIF.
      ENDIF.
      MODIFY ZPROJECT_RESULT FROM TEMP_RESULT.
      MESSAGE I005(ZMSG_EAS).
      CALL SCREEN 1300.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0131  INPUT