Code: Alles auswählen.
LOOP AT g_t_sele WHERE grpin = space.
AT FIRST.
SORT jitit_lt BY posid.
ENDAT.
READ TABLE jitit_lt INTO jitit_ls
WITH KEY posid = g_t_sele-posid
BINARY SEARCH.
IF sy-subrc = 0.
help_tabix = sy-tabix.
LOOP AT jitit_lt ASSIGNING <jitit> FROM help_tabix.
IF <jitit>-posid <> g_t_sele-posid.
EXIT.
ENDIF.
READ TABLE l_t_cjit07 WITH KEY
cnrtl = <jitit>-cntrl
intst_old = <jitit>-intst
.
IF sy-subrc = 0.
l_t_jitit = <jitit>.
APPEND l_t_jitit.
jinum_r-sign = 'I'.
jinum_r-option = 'EQ'.
jinum_r-low = <jitit>-jinum.
APPEND jinum_r.
ELSE.
l_f_ungleich = 'X'.
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP