Loop Tabelle jede zweite Runde!

[Michelle4144]

Hallo zusammen,

ich versuche mal zu erklären was ich möchte.

LOOP At GT_Tabelle into GS-Tabelle.

* Beim ersten loop Durchlauf soll nur H_Tabelle-Feld1 und H_Tabelle-Feld2 befüllt werden.
H_Tabelle-Feld1 = GS-tabelle-Feld1
H_Tabelle-Feld2 = GS-tabelle-Feld2

* Beim zweiten loop Durchlauf soll nur H_Tabelle-Feld3 und H_Tabelle-Feld4 befüllt werden.
H_Tabelle-Feld3 = GS-tabelle-Feld1
H_Tabelle-Feld4 = GS-tabelle-Feld2

* Beim dritten Durchlauf wieder nur H_Tabelle-Feld1 und H_Tabelle-Feld2 usw. immer abwechseln.
ENDLOOP.

Wie könnte ich das lösen.

Vielen Dank

[Tron]

Moin.
z.B. so :

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Report  ZTEST_FLIP_FLOP
3. *&
4. *&---------------------------------------------------------------------*
5. *&
6. *&
7. *&---------------------------------------------------------------------*
8. REPORT ztest_flip_flop.
9.  
10. TYPES:
11.       BEGIN OF itab,
12.       a TYPE i,
13.       b TYPE i,
14.       END OF itab.
15.  
16. DATA t1 TYPE TABLE OF itab.
17. DATA t2 TYPE TABLE OF itab.
18. DATA ts TYPE itab.
19.  
20. DATA x TYPE i.
21.  
22. DO 10 TIMES.
23.  
24.   x = sy-index MOD 2.
25.  
26.   ts-a = sy-index.
27.   ts-b = x.
28.  
29.   IF x = 1.
30.     APPEND ts TO t1.
31.   ELSE.
32.     APPEND ts TO t2.
33.   ENDIF.
34.  
35. ENDDO.
36.  

GeSHi ©

lg Jens

[Imke5167]

"Modulo" heißt das Zauberwort. Es handelt sich dabei um eine Rechenoperation, die dir einen Restwert zurückliefert. Wenn du den Zeilenindex Modulo 2 rechnest, dann fragst du im Prinzip ab, ob es sich um eine gerade oder ungerade Zahl handelt und so bekommst du entweder 1 oder 0 als Rest heraus.

Beispiel:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. data:
2.       G_INDEX type I,
3.       G_REST   type I.
4.  
5. loop at GT_DATA into GS_DATA.
6.  G_INDEX = SY-TABIX.
7.  G_REST = G_INDEX mod 2.
8.  if G_REST = 1.
9.    write:/ 'ungerade'.
10.  else.  "G_REST = 0
11.    write:/ 'gerade'.
12.  endif.
13. endloop.
14.  

GeSHi ©

Dein Coding müsste dann etwa so aussehen:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. LOOP At GT_Tabelle into GS_Tabelle.
2.  G_INDEX = SY-TABIX.
3.  G_REST = G_INDEX mod 2.
4.  if G_REST = 1.
5.   H_Tabelle-Feld1 = GS-tabelle-Feld1
6.   H_Tabelle-Feld2 = GS-tabelle-Feld2
7.  else.  "G_REST = 0
8.   H_Tabelle-Feld3 = GS-tabelle-Feld1
9.   H_Tabelle-Feld4 = GS-tabelle-Feld2
10.  endif.
11. ENDLOOP.
12.  

GeSHi ©

MfG
waro