*&---------------------------------------------------------------------*
*& 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
