OCTOBER 03

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0135  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0135 OUTPUT.
  SET PF-STATUS '135'.
  SET TITLEBAR '135'.
  SELECT SINGLE RO_ID NAME DEPT_NAME FROM ZPROJECT_RO
    INTO (ZPROJECT_RO-RO_ID , ZPROJECT_RO-NAME , ZPROJECT_RO-DEPT_NAME)
    WHERE RO_ID = USER_ID.

ENDMODULE.                 " STATUS_0135  OUTPUT
*&.---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0135  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0135 INPUT.
  CASE SY-UCOMM.

    WHEN 'BACK'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 130.

    WHEN 'CMD'.
      CALL SCREEN 136.

    WHEN 'CANCEL'.
      CLEAR : USER_ID , PASSWORD.
      CALL SCREEN 1000.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'ASSIGN_RESULT'.
      CALL SCREEN 1300.

    WHEN 'VKMA'.
      SELECT * FROM ZPROJECT_MARKS INTO TABLE MARKS_DETAILS.
      "WHERE DEPT_NAME = TEMP_MGR_DEPT.
      REFRESH IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'EMP_ID'.
      WA_FIELDCAT-SELTEXT_M = 'EMP_ID'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'DEPT_NAME'.
      WA_FIELDCAT-SELTEXT_M = 'DEPT_NAME'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'KPI_1'.
      WA_FIELDCAT-SELTEXT_M = 'KPI_1'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'TIME_1'.
      WA_FIELDCAT-SELTEXT_M = 'TIME_1'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'MARKS_T1'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR TIME_1'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'QUALITY_1'.
      WA_FIELDCAT-SELTEXT_M = 'QUALITY_1'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'MARKS_Q1'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR QUALITY_1'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'KPI_2'.
      WA_FIELDCAT-SELTEXT_M = 'KPI_2'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'TIME_2'.
      WA_FIELDCAT-SELTEXT_M = 'TIME_2'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'MARKS_T2'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR TIME_2'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'QUALITY_2'.
      WA_FIELDCAT-SELTEXT_M = 'QUALITY_2'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'MARKS_Q1'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR QUALITY_1'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'KPI_3'.
      WA_FIELDCAT-SELTEXT_M = 'KPI_3'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'TIME_3'.
      WA_FIELDCAT-SELTEXT_M = 'TIME_3'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'MARKS_T3'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR TIME_3'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'QUALITY_3'.
      WA_FIELDCAT-SELTEXT_M = 'QUALITY_3'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.


      WA_FIELDCAT-FIELDNAME = 'MARKS_Q3'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR QUALITY_3'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'KPI_4'.
      WA_FIELDCAT-SELTEXT_M = 'KPI_4'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'TIME_4'.
      WA_FIELDCAT-SELTEXT_M = 'TIME_4'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'MARKS_T4'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR TIME_4'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'QUALITY_4'.
      WA_FIELDCAT-SELTEXT_M = 'QUALITY_4'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'MARKS_Q4'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR QUALITY_4'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'KPI_5'.
      WA_FIELDCAT-SELTEXT_M = 'KPI_5'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'TIME_5'.
      WA_FIELDCAT-SELTEXT_M = 'TIME_5'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'MARKS_T5'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR TIME_5'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'QUALITY_5'.
      WA_FIELDCAT-SELTEXT_M = 'QUALITY_5'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.


      WA_FIELDCAT-FIELDNAME = 'MARKS_Q5'.
      WA_FIELDCAT-SELTEXT_M = 'MARKS FOR QUALITY_5'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          IT_FIELDCAT = IT_FIELDCAT
        TABLES
          T_OUTTAB    = MARKS_DETAILS.

Output:

Reviewing officer navigation page

List of marks given to employees