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 / 4399 / 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 / 4399 / 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.
369
Views
Views
3
Antw.
Antw.
5362
Views
Views
11
Antw.
Antw.
3917
Views
Views
4
Antw.
Antw.
5656
Views
Views
2
Antw.
Antw.
3435
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
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.