Loops Zusammenfassen
4 Beiträge
•
Seite 1 von 1
4 Beiträge
Seite 1 von 1
Hallo,
ich habe zwei Loops und stell mir die Frage, ob ich die beiden irgendwie zusammenfassen kann? Habe versucht ein altes Programm auf interne Tabellen umzuschreiben und habe erstmal das als zwischenlösung gefunden.
danke im vorraus 
ich habe zwei Loops und stell mir die Frage, ob ich die beiden irgendwie zusammenfassen kann? Habe versucht ein altes Programm auf interne Tabellen umzuschreiben und habe erstmal das als zwischenlösung gefunden.
Code: Alles auswählen.
LOOP AT itab_mahn TRANSPORTING NO FIELDS
WHERE sgtxt+45(2) = '91' OR sgtxt+45(2) = '92'
m_dat+0(2) = 19.
m_dat+2(2) = bseg-sgtxt+45(2).
m_dat+4(2) = bseg-sgtxt+42(2).
m_dat+6(2) = bseg-sgtxt+39(2).
IF bseg-sgtxt+39(10) = ' '
OR m_dat = mhnd-laufd.
ENDIF.
endloop.
LOOP AT itab_mahn TRANSPORTING NO FIELDS
WHERE sgtxt+45(2) ne '91' OR sgtxt+45(2) ne '92'
m_dat+0(2) = 20.
m_dat+2(2) = bseg-sgtxt+45(2).
m_dat+4(2) = bseg-sgtxt+42(2).
m_dat+6(2) = bseg-sgtxt+39(2).
IF bseg-sgtxt+39(10) = ' '
OR m_dat = mhnd-laufd.
ENDIF.
endloop.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Beitrag
von a-dead-trousers (Top Expert / 4395 / 223 /
1182
)
»
Code: Alles auswählen.
LOOP AT itab_mahn ASSIGNING <ls_mahn>.
m_dat+2(2) = bseg-sgtxt+45(2).
m_dat+4(2) = bseg-sgtxt+42(2).
m_dat+6(2) = bseg-sgtxt+39(2).
IF <ls_mahn>-sgtxt+45(2) = '91' OR <ls_mahn>-sgtxt+45(2) = '92'.
m_dat+0(2) = 19.
ELSE.
m_dat+0(2) = 20.
ENDIF.
IF bseg-sgtxt+39(10) = ' '
OR m_dat = mhnd-laufd.
ENDIF.
endloop.
Aber Achtung mit den Jahreszahlen: Nur 91 und 92 werden zu 1991 und 1992. Das schaut mir nach einem Fehler im ursprünglichen Coding aus.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
BMWi801
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Beitrag
von a-dead-trousers (Top Expert / 4395 / 223 /
1182
)
»
Ich glaub aber auch, dass deine Variablen etwas falsch benannt sind. So macht das Coding IMHO etwas mehr Sinn:
Code: Alles auswählen.
field-symbols: <ls_mahn> like line of itab_mahn.
LOOP AT itab_mahn ASSIGNING <ls_mahn>.
m_dat+2(2) = <ls_mahn>-sgtxt+45(2).
m_dat+4(2) = <ls_mahn>-sgtxt+42(2).
m_dat+6(2) = <ls_mahn>-sgtxt+39(2).
IF <ls_mahn>-sgtxt+45(2) = '91' OR <ls_mahn>-sgtxt+45(2) = '92'.
m_dat+0(2) = 19.
ELSE.
m_dat+0(2) = 20.
ENDIF.
IF <ls_mahn>-sgtxt+39(10) = ' '
OR m_dat = <ls_mahn>-laufd.
* Hier fehlt der Code der ausgeführt werden soll
ENDIF.
endloop.
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Vielen dank, hab die anderen zahlen bloß rausgelöscht weil die sich ja erübrigena-dead-trousers hat geschrieben:Simples RefactoringCode: Alles auswählen.
LOOP AT itab_mahn ASSIGNING <ls_mahn>. m_dat+2(2) = bseg-sgtxt+45(2). m_dat+4(2) = bseg-sgtxt+42(2). m_dat+6(2) = bseg-sgtxt+39(2). IF <ls_mahn>-sgtxt+45(2) = '91' OR <ls_mahn>-sgtxt+45(2) = '92'. m_dat+0(2) = 19. ELSE. m_dat+0(2) = 20. ENDIF. IF bseg-sgtxt+39(10) = ' ' OR m_dat = mhnd-laufd. ENDIF. endloop.
Aber Achtung mit den Jahreszahlen: Nur 91 und 92 werden zu 1991 und 1992. Das schaut mir nach einem Fehler im ursprünglichen Coding aus.
Seite 1 von 1
Vergleichbare Themen
1
Antw.
Antw.
364
Views
Views
3
Antw.
Antw.
5355
Views
Views
11
Antw.
Antw.
3912
Views
Views
4
Antw.
Antw.
5643
Views
Views
2
Antw.
Antw.
3433
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 2 Tagen von DeathAndPain 4 / 1072
vor 2 Tagen von DeathAndPain 4 / 1072
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 2 Tagen von DeathAndPain 4 / 1072
vor 2 Tagen von DeathAndPain 4 / 1072