ABAP use case: TMG Events
ABAP Use case TMG Events
Code:
FORM zz_validate_entry.
SELECT SINGLE subgroup FROM zemp_grp_subgrp
INTO @DATA(lv_subgroup) WHERE subgroup EQ @zemp_grp_subgrp-subgroup.
IF sy-subrc EQ 0.
MESSAGE 'Duplicate Subgroup' TYPE 'E'.
ENDIF.
ENDFORM.