OCTOBER 15

    WHEN 'PROJECT_STATUS'.
      SELECT * FROM ZPROJECT_DETAILS INTO TABLE PROJECT_DETAILS.
      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 = 'PROJECT_NAME'.
      WA_FIELDCAT-SELTEXT_M = 'PROJECT_NAME'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

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

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

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

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

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

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0145  INPUT


Output:

view project records of employee

OCTOBER 14

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0145  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0145 OUTPUT.
  SET PF-STATUS '145'.
  SET TITLEBAR '145'.
  SELECT SINGLE NAME AO_ID DEPT_NAME FROM ZPROJECT_AO
    INTO (ZPROJECT_AO-NAME , ZPROJECT_AO-AO_ID , ZPROJECT_AO-DEPT_NAME)
    WHERE AO_ID = USER_ID.

ENDMODULE.                 " STATUS_0145  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_0145  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0145 INPUT.
  CASE SY-UCOMM.

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

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'CMD'.
      CALL SCREEN 137.

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

    WHEN 'VSF'.
      CALL SCREEN 141.

    WHEN 'VFR'.
      CLEAR : ZPROJECT_DETAILS.
      CALL SCREEN 144.

    WHEN 'EMPLOYEE_DETAILS'.
      SELECT * FROM ZPROJECT_EMP INTO TABLE EMP_DETAILS.
      REFRESH IT_FIELDCAT.

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

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

      WA_FIELDCAT-FIELDNAME = 'DEPT_NO'.
      WA_FIELDCAT-SELTEXT_M = 'DEPARTMENT NO.'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

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

      WA_FIELDCAT-FIELDNAME = 'JOINING_DATE'.
      WA_FIELDCAT-SELTEXT_M = 'JOINING DATE'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'EMP_PHONE'.
      WA_FIELDCAT-SELTEXT_M = 'PHONE NO.'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.

      WA_FIELDCAT-FIELDNAME = 'ADDRESS'.
      WA_FIELDCAT-SELTEXT_M = 'EMP-ADDRESS'.
      APPEND WA_FIELDCAT TO IT_FIELDCAT.


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


Output:

accepting officer navigation page

view employee details

OCTOBER 11

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0140  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0140 OUTPUT.
  SET PF-STATUS '140'.
  SET TITLEBAR '140'.

ENDMODULE.                 " STATUS_0140  OUTPUT

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

    WHEN 'RESET'.
      CLEAR: USER_ID , PASSWORD.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

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

    WHEN 'DISPLAY'.
      SELECT SINGLE AO_ID FROM ZPROJECT_AO INTO  TEMP_ID
      WHERE AO_ID = USER_ID.

      SELECT SINGLE PASSCODE FROM ZPROJECT_AO INTO  TEMP_PASS
       WHERE AO_ID = USER_ID.
      IF USER_ID EQ TEMP_ID AND PASSWORD EQ TEMP_PASS .
        MESSAGE 'ACCEPTING OFFICER LOGIN' TYPE 'S'.
        CLEAR : TEMP_ID , TEMP_PASS.
        CALL SCREEN 0145.
      ELSEIF USER_ID EQ TEMP_ID AND PASSWORD EQ '   '.
        MESSAGE I000(ZMSG_EAS).
      ELSEIF USER_ID EQ TEMP_ID AND NOT PASSWORD EQ TEMP_PASS.
        CLEAR PASSWORD.
        MESSAGE I001(ZMSG_EAS).
      ELSE.
        CLEAR: USER_ID , PASSWORD.
        MESSAGE I002(ZMSG_EAS).
      ENDIF.
      CLEAR : TEMP_ID , TEMP_PASS.

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0140  INPUT



Output:

Accepting officer login page

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

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

OCTOBER 08

*&---------------------------------------------------------------------*
*&      TAB 131 - ASSIGN RESULT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TAB_131'
CONSTANTS: BEGIN OF C_TAB_131,
             TAB1 LIKE SY-UCOMM VALUE 'TAB_131_FC1',
             TAB2 LIKE SY-UCOMM VALUE 'TAB_131_FC2',
             TAB3 LIKE SY-UCOMM VALUE 'TAB_131_FC3',
           END OF C_TAB_131.
*&SPWIZARD: DATA FOR TABSTRIP 'TAB_131'
CONTROLS:  TAB_131 TYPE TABSTRIP.
DATA:      BEGIN OF G_TAB_131,
             SUBSCREEN   LIKE SY-DYNNR,
             PROG        LIKE SY-REPID VALUE 'ZPROJECT_EAS',
             PRESSED_TAB LIKE SY-UCOMM VALUE C_TAB_131-TAB1,
           END OF G_TAB_131.

*&SPWIZARD: OUTPUT MODULE FOR TS 'TAB_131'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE TAB_131_ACTIVE_TAB_SET OUTPUT.
  TAB_131-ACTIVETAB = G_TAB_131-PRESSED_TAB.
  CASE G_TAB_131-PRESSED_TAB.
    WHEN C_TAB_131-TAB1.
      G_TAB_131-SUBSCREEN = '0132'.
    WHEN C_TAB_131-TAB2.
      G_TAB_131-SUBSCREEN = '0133'.
    WHEN C_TAB_131-TAB3.
      G_TAB_131-SUBSCREEN = '0134'.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TS 'TAB_131'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TAB_131_ACTIVE_TAB_GET INPUT.
  OK_CODE = SY-UCOMM.
  CASE OK_CODE.
    WHEN C_TAB_131-TAB1.
      G_TAB_131-PRESSED_TAB = C_TAB_131-TAB1.
    WHEN C_TAB_131-TAB2.
      G_TAB_131-PRESSED_TAB = C_TAB_131-TAB2.
    WHEN C_TAB_131-TAB3.
      G_TAB_131-PRESSED_TAB = C_TAB_131-TAB3.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0131  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0131 OUTPUT.
  SET PF-STATUS '131'.
  SET TITLEBAR '131'.

  TYPE-POOLS : VRM.


  SELECT *
     FROM ZPROJECT_YEAR
    INTO TABLE YEAR_DETAILS WHERE EMP_ID = ZPROJECT_EMP-EMP_ID.

  LOOP AT YEAR_DETAILS INTO TEMP_YEAR.

    WA_LISTBOX-KEY = TEMP_YEAR-START_DATE.
    WA_LISTBOX-TEXT = TEMP_YEAR-START_DATE.
    APPEND WA_LISTBOX TO IT_LISTBOX.
  ENDLOOP.

  LD_FIELD = 'START_DATE'.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = LD_FIELD
      VALUES = IT_LISTBOX.
  REFRESH IT_LISTBOX.

  SELECT *
       FROM ZPROJECT_YEAR
    INTO TABLE YEAR_DETAILS WHERE EMP_ID = ZPROJECT_EMP-EMP_ID.

  LOOP AT YEAR_DETAILS INTO TEMP_YEAR.

    WA_LISTBOX-KEY = TEMP_YEAR-END_DATE.
    WA_LISTBOX-TEXT = TEMP_YEAR-END_DATE.
    APPEND WA_LISTBOX TO IT_LISTBOX.
  ENDLOOP.

  LD_FIELD = 'END_DATE'.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = LD_FIELD
      VALUES = IT_LISTBOX.
  REFRESH IT_LISTBOX.

ENDMODULE.                 " STATUS_0131  OUTPUT


Output:

mandatory date fields to be entered

values entered by the reviewing officer

OCTOBER 07

*&---------------------------------------------------------------------*
*&      TABLE CONTROL 1300 : ASSIGN RESULT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'TBC_1300'
TYPES: BEGIN OF T_TBC_1300,
         EMP_ID LIKE ZPROJECT_EMP-EMP_ID,
         EMP_NAME LIKE ZPROJECT_EMP-EMP_NAME,
         DEPT_NO LIKE ZPROJECT_EMP-DEPT_NO,
         DEPT_NAME LIKE ZPROJECT_EMP-DEPT_NAME,
         MARK LIKE ZPROJECT_EMP-MARK,
       END OF T_TBC_1300.

*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'TBC_1300'
DATA:     G_TBC_1300_ITAB   TYPE T_TBC_1300 OCCURS 0,
          G_TBC_1300_WA     TYPE T_TBC_1300. "WORK AREA
DATA:     G_TBC_1300_COPIED.           "COPY FLAG

*&SPWIZARD: DECLARATION OF TABLECONTROL 'TBC_1300' ITSELF
CONTROLS: TBC_1300 TYPE TABLEVIEW USING SCREEN 1300.

*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_1300'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: COPY DDIC-TABLE TO ITAB
MODULE TBC_1300_INIT OUTPUT.
  IF G_TBC_1300_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'ZPROJECT_EMP'
*&SPWIZARD: INTO INTERNAL TABLE 'G_TBC_1300_ITAB'
    SELECT * FROM ZPROJECT_EMP
       INTO CORRESPONDING FIELDS
       OF TABLE G_TBC_1300_ITAB.
    G_TBC_1300_COPIED = 'X'.
    REFRESH CONTROL 'TBC_1300' FROM SCREEN '1300'.
    SORT G_TBC_1300_ITAB BY EMP_ID ASCENDING.
  ENDIF.
ENDMODULE.

*&SPWIZARD: OUTPUT MODULE FOR TC 'TBC_1300'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MOVE ITAB TO DYNPRO
MODULE TBC_1300_MOVE OUTPUT.
  MOVE-CORRESPONDING G_TBC_1300_WA TO ZPROJECT_EMP.
ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TC 'TBC_1300'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MODIFY TABLE
MODULE TBC_1300_MODIFY INPUT.
  MOVE-CORRESPONDING ZPROJECT_EMP TO G_TBC_1300_WA.
  MODIFY G_TBC_1300_ITAB
    FROM G_TBC_1300_WA
    INDEX TBC_1300-CURRENT_LINE.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      MODULE  STATUS_1300  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_1300 OUTPUT.
  SET PF-STATUS '1300'.
  SET TITLEBAR '1300'.

ENDMODULE.                 " STATUS_1300  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_1300  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_1300 INPUT.
  CASE SY-UCOMM.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'BACK'.
      CALL SCREEN 135.

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

    WHEN 'SUBMIT'.
      READ TABLE  G_TBC_1300_ITAB INTO ZPROJECT_EMP  WITH KEY   MARK = 'X'.
      CALL SCREEN 124.

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_1300  INPUT

Output: 

list of employees to assign result