Code: Alles auswählen.
PERFORM is_check_neccessary CHANGING lv_check_neccessary.
IF lv_check_neccessary = off.
clear_message.
RAISE not_checked.
ENDIF.
Code: Alles auswählen.
FORM is_check_neccessary CHANGING ev_flag TYPE flag.
DATA: lv_is_nzdm_update_system TYPE trboolean,
lv_func_check_nzdm_system TYPE rs38l_fnam
VALUE 'OCS_SPAM_CHECK_FOR_UPD_SYSTEM',
ls_cvers TYPE cvers.
ev_flag = on.
SELECT SINGLE * FROM cvers INTO ls_cvers
WHERE component = 'SAP_BYD'.
IF sy-subrc = 0.
ev_flag = off.
EXIT. "the FORM
ENDIF.