ABAP Query – clean some output entries
END-OF-SELECTION (nach Liste):
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
field-symbols: <g00> type table, <wa_g00> type any, <k1> type any, <ks> type any. data: it_g00 type char100 value '%G00[]', lv_kna1land type string, lv_knasland type string. assign (it_g00) to <g00>. if <g00> is assigned. loop at <g00> assigning <wa_g00>. lv_kna1land = '<wa_g00>-kna1-land1'. lv_knasland = '<wa_g00>-knas-land1'. unassign: <k1>, <ks>. assign: (lv_kna1land) to <k1>, (lv_knasland) to <ks>. if <k1> is assigned. if <ks> is assigned. if <k1> eq <ks>. delete <g00>. endif. endif. endif. endloop. endif. |
