NOVEMBER 18

*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0148  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0148 OUTPUT.
*  SET PF-STATUS 'XXXXXXXX'.
*  SET TITLEBAR 'XXX'.
  CASE SY-UCOMM.
    WHEN 'SUBMIT'.
      SELECT SINGLE BEHAVIOUR_ISSUE_1 BEHAVIOUR_ISSUE_2 BEHAVIOUR_ISSUE_3 BEHAVIOUR_ISSUE_4 BEHAVIOUR_ISSUE_5
              FROM ZPROJECT_RESULT
           INTO (ZPROJECT_RESULT-BEHAVIOUR_ISSUE_1 ,ZPROJECT_RESULT-BEHAVIOUR_ISSUE_2 ,ZPROJECT_RESULT-BEHAVIOUR_ISSUE_3
           ,ZPROJECT_RESULT-BEHAVIOUR_ISSUE_4 ,ZPROJECT_RESULT-BEHAVIOUR_ISSUE_5 )
           WHERE EMP_ID = ZPROJECT_EMP-EMP_ID AND START_DATE = START_DATE AND END_DATE = END_DATE.
  ENDCASE.
ENDMODULE.                 " STATUS_0148  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  STATUS_0149  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_0149 OUTPUT.
*  SET PF-STATUS 'XXXXXXXX'.
*  SET TITLEBAR 'XXX'.
  CASE SY-UCOMM.
    WHEN 'SUBMIT'.
      SELECT SINGLE   REWARD_1  REWARD_2  REWARD_3  REWARD_4  REWARD_5
           FROM ZPROJECT_RESULT
           INTO (ZPROJECT_RESULT-REWARD_1 ,ZPROJECT_RESULT-REWARD_2 ,ZPROJECT_RESULT-REWARD_3
        ,ZPROJECT_RESULT-REWARD_4 ,ZPROJECT_RESULT-REWARD_5)
           WHERE EMP_ID = ZPROJECT_EMP-EMP_ID AND START_DATE = START_DATE AND END_DATE = END_DATE.
  ENDCASE.
ENDMODULE.                 " STATUS_0149  OUTPUT


Output:

behavior modifications

reward given