OCTOBER 10

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0132  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0132 OUTPUT.  "EMPLOYEE DETAILS VIEWD BY REVIEWING OFFICER"
* SET PF-STATUS 'XXXX'.
* SET TITLEBAR 'XXXXX'.
  SELECT SINGLE EMP_ID EMP_NAME DEPT_NAME
     FROM ZPROJECT_EMP
    INTO (ZPROJECT_EMP-EMP_ID , ZPROJECT_EMP-EMP_NAME , ZPROJECT_EMP-DEPT_NAME )
    WHERE EMP_ID = ZPROJECT_EMP-EMP_ID.

  SELECT SINGLE PROJECT_NAME PROJECT_START_DATE PROJECT_END_DATE
    FROM ZPROJECT_DETAILS
    INTO (ZPROJECT_DETAILS-PROJECT_NAME , ZPROJECT_DETAILS-PROJECT_START_DATE , ZPROJECT_DETAILS-PROJECT_END_DATE)
    WHERE EMP_ID = ZPROJECT_EMP-EMP_ID AND PROJECT_START_DATE = S_DATE.

  SELECT SINGLE MAXIMUM_MARKS_TIME MAXIMUM_MARKS_QUALITY TOTAL_MAXIMUM_MARKS MARKS_OBTAINED_TIME
    MARKS_OBTAINED_QUALITY TOTAL_OBTAINED_MARKS PERFORMANCE
    FROM ZPROJECT_RECORD
    INTO (ZPROJECT_RECORD-MAXIMUM_MARKS_TIME , ZPROJECT_RECORD-MAXIMUM_MARKS_QUALITY ,
    ZPROJECT_RECORD-TOTAL_MAXIMUM_MARKS , ZPROJECT_RECORD-MARKS_OBTAINED_TIME ,
    ZPROJECT_RECORD-MARKS_OBTAINED_QUALITY , ZPROJECT_RECORD-TOTAL_OBTAINED_MARKS ,
     ZPROJECT_RECORD-PERFORMANCE)
    WHERE EMP_ID = ZPROJECT_EMP-EMP_ID AND START_DATE = START_DATE AND END_DATE = END_DATE.

ENDMODULE.                 " STATUS_0132  OUTPUT



Output:

performance details viewed by the reviewing officer

assigning behavioral modifications to employees

giving rewards according to the performance

The result provided by the reviewing officer is submitted into DDIC tables ZPROJECT_RECORD and ZPROJECT_RESULT

data successfully submitted