Code: Alles auswählen.
DATA: BEGIN OF wa_code,
line(500),
END OF wa_code,
lt_code LIKE TABLE OF wa_code.
READ REPORT <param> INTO lt_code.
LOOP AT lt_code INTO wa_code.
TRANSLATE wa_code-line TO UPPER CASE.
IF wa_code-line CS 'MESSAGE-ID'.
"Nachrichtenklasse merken
CONTINUE.
ENDIF.
IF wa_code-line CS 'MESSAGE'.
"Nachfolgenden String auswerten, Nummer (+ event. Nachrichtenklasse) ermitteln
"In Transport schreiben
ENDIF.
ENDLOOP.
Code: Alles auswählen.
LOOP AT it_t100.
wi_count = sy-tabix.
LOOP AT it_mess.
IF it_mess-class EQ it_t100-arbgb
AND it_mess-id EQ it_t100-msgnr.
ENDIF.
ENDLOOP.
ENDLOOP.
Code: Alles auswählen.
APPEND LINES OF it_t100 FROM wi_count TO wi_count TO obj_list.
Code: Alles auswählen.
LOOP AT it_t100.
LOOP AT it_mess WHERE class EQ it_t100-arbgb
AND id EQ it_t100-msgnr. "Wobei diese Bedingung wohl nie erfüllt wird, da ID wohl kaum die MSGNR enthält
* Aber nehmen wir mal an, das würde trotzdem klappen
MOVE-CORRESPONDING it_t100 TO obj_list.
APPEND obj_list.
ENDLOOP.
ENDLOOP.