10 *Get all the transaction names linked to the Tcodes
20
30  SORT tcodes1 BY low.
40  DELETE ADJACENT DUPLICATES FROM tcodes.   " note 0156657
50 *REFRESH: temptstct1.
60 * Doppelte Eintrage einmal mit 'S' (S_TCODE),
70 * werden durch einen einzelnen mit 'B' ersetzt
80  LOOP AT tcodes1.
90    IF tcodes_before-low = tcodes1-low
100       AND tcodes_before-seltype <> " 14.02.97 ms
110      tcodes_before-seltype = 'B'.
120    ELSE.
130      APPEND tcodes_before.
140      MOVE-CORRESPONDING tcodes1 TO tcodes_before.
150    ENDIF.
160  ENDLOOP.
170  APPEND tcodes_before.

00001 *Get all the transaction names linked to the Tcodes
00002 
00003   SORT tcodes1 BY low.
00004   DELETE ADJACENT DUPLICATES FROM tcodes.   " note 0156657
00005 *REFRESH: temptstct1.
00006 * Doppelte Eintrage einmal mit 'S' (S_TCODE), einmal mit 'T'
00007 * werden durch einen einzelnen mit 'B' ersetzt
00008   LOOP AT tcodes1.
00009     IF tcodes_before-low = tcodes1-low
00010        AND tcodes_before-seltype <> tcodes1-seltype .    " 14.02.97 ms
00011       tcodes_before-seltype = 'B'.
00012     ELSE.
00013       APPEND tcodes_before.
00014       MOVE-CORRESPONDING tcodes1 TO tcodes_before.
00015     ENDIF.
00016   ENDLOOP.
00017   APPEND tcodes_before.