Code: Alles auswählen.
loop at lt_itab ASSIGNING <z1>.
loop at lt_xpa ASSIGNING <z2>.
case <z2>.
When <z2>-posid NE <z1>-posid.
Write 'X' to <z2>-info1.
Append <z2> to lt_interm1.
When <z2>-posid = <z1>-posid AND <z1>-stat = 'E0003' AND <z2>-stat = 'I0045'.
Write 'X' to <z2>-info2.
Append <z2> to lt_interm2.
When <z2>-posid = <z1>-posid AND <z1>-stat = 'E0003' AND <z2>-stat = 'I0045'.
Write 'X' to <z2>-info2.
Append <z2> to lt_interm2.
When Others.
Write 'X' to <z2>-info3.
Append <z2> to lt_interm3.
endcase.
endloop.
endloop.
Code: Alles auswählen.
When <z2>-posid = <z1>-posid AND <z1>-stat = 'E0003' AND <z2>-stat = 'I0045'.
Write 'X' to <z2>-info2.
Append <z2> to lt_interm2.
When <z2>-posid = <z1>-posid AND <z1>-stat = 'E0003' AND <z2>-stat = 'I0045'.
Write 'X' to <z2>-info2.
Append <z2> to lt_interm2.