Quersumme Abap
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
4 Beiträge
•
Seite 1 von 1
4 Beiträge
Seite 1 von 1
Hallo Liebes Team,
ich hätte eine Frage und zwar für die Vorlesung müssen wir Quersumme der eingegebenen Zahlen berechnen also müssen wir eine Ziffernfolge eingeben jedoch haben wir das Problem dass die einzelnen Zahlen nicht einzeln ausgelesen werden sondern als ganzes wir hatten ein Hinweis dass es mit STRLEN funktionieren soll aber wir kommen leider nicht weiter.
Wäre nett wenn Sie uns helfen könnt.Und Array und Rekursion dürfen wir nicht benutzen nur shift anwenden also bitte auf dem einfachsten Wege =)
Mit freundlichen Grüßen
Yuliya
ich hätte eine Frage und zwar für die Vorlesung müssen wir Quersumme der eingegebenen Zahlen berechnen also müssen wir eine Ziffernfolge eingeben jedoch haben wir das Problem dass die einzelnen Zahlen nicht einzeln ausgelesen werden sondern als ganzes wir hatten ein Hinweis dass es mit STRLEN funktionieren soll aber wir kommen leider nicht weiter.
Wäre nett wenn Sie uns helfen könnt.Und Array und Rekursion dürfen wir nicht benutzen nur shift anwenden also bitte auf dem einfachsten Wege =)
Mit freundlichen Grüßen
Yuliya
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo Yulia,
mit strlen bekommst Du die länge der eingegebenen ZAhl, die schreibst Du in eine Variable.
Dann kannt Du mit ' do variable times' und mit Teulstrings jede Ziffer der Zahl ansteuern und somit die Quersumme berechnen.
Also etwa so.
P_eingabe sei der Eingabe parameter...
var1 = strlen( p_eingabe )
do var1 times.
var2 = sy-index - 1.
var3 = var3 + p_eingabe+var2(1).
enddo.
write var3.
mit strlen bekommst Du die länge der eingegebenen ZAhl, die schreibst Du in eine Variable.
Dann kannt Du mit ' do variable times' und mit Teulstrings jede Ziffer der Zahl ansteuern und somit die Quersumme berechnen.
Also etwa so.
P_eingabe sei der Eingabe parameter...
var1 = strlen( p_eingabe )
do var1 times.
var2 = sy-index - 1.
var3 = var3 + p_eingabe+var2(1).
enddo.
write var3.
es geht auch ohne strlen - nur mit shift
Code: Alles auswählen.
report.
parameters: p_input type n length 20 default '123456789'.
parameters: p_qsum type n length 20.
data: l_input type string.
at selection-screen.
move p_input to l_input.
clear p_qsum.
while l_input is not initial.
compute p_qsum = p_qsum + l_input(1).
shift l_input left.
endwhile.
Seite 1 von 1
Vergleichbare Themen
3
Antw.
Antw.
31385
Views
Views
ABAP 7.02 - Neues Feature - Pragmas in ABAP
von foessleitnerj » 09.01.2013 17:02 • Verfasst in Tips + Tricks & FAQs
von foessleitnerj » 09.01.2013 17:02 • Verfasst in Tips + Tricks & FAQs
6
Antw.
Antw.
12469
Views
Views
ABAP Workbench und ABAP Dictionary - für Einsteiger
von schnonus » 03.04.2008 10:39 • Verfasst in ABAP® für Anfänger
von schnonus » 03.04.2008 10:39 • Verfasst in ABAP® für Anfänger
3
Antw.
Antw.
9671
Views
Views
OLE und ABAP: Aufruf von Excel-VBA Prozeduren aus ABAP
von OnkelSAP » 26.05.2010 09:45 • Verfasst in ABAP Objects®
von OnkelSAP » 26.05.2010 09:45 • Verfasst in ABAP Objects®
6
Antw.
Antw.
9327
Views
Views
3
Antw.
Antw.
7952
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
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.
Aktuelle Forenbeiträge
Unbeantwortete Forenbeiträge
F6862 - Stücklistenpositionen Massenhinzufügen ohne Änderungsnummer
April 2026 von Radinator 1 / 41556
April 2026 von Radinator 1 / 41556
HR Forms (SAP HCM): Anwenderdokumentation, Anleitung oder Schulungsunterlagen gesucht
April 2026 von PatHei 1 / 20593
April 2026 von PatHei 1 / 20593