Code: Alles auswählen.
form test_it
using
wert_in type i
changing
ret type i.
if wert_in > 0.
ret = 1.
else.
ret = -1.
endif.
endform.
Code: Alles auswählen.
data: val type i value 4711.
* Aufruf der Funktion
perform test_it
using val.
if sy-subrc = 0.
write: 'Größer Null'.
else.
write: 'Kleiner Null'.
endif.
Code: Alles auswählen.
LOOP AT lt_table1 INTO la_line1.
PERFORM verify USING la_line1
IF sy-subrc EQ 0.
DELETE lt_table1 INDEX sy-tabix.
ENDIF.
ENDLOOP.
FORM verify USING ua_line
READ TABLE lt_table2 TRANSPORTING NO FIELDS
WITH KEY field = la_line1-field
ENDFORM.