Decimals in String konkatenieren
5 Beiträge
•
Seite 1 von 1
5 Beiträge
Seite 1 von 1
Hallo!
leider verfüge ich nur über äußerst rudimentäre ABAP-Kenntnisse und hoffe, dass mir hier jemand verraten kann, wie ich folgendes möglichst sinnvoll lösen kann.
Eine Tabelle (>5 Mio Records) aus der ich selektiere, beinhaltet neben einigen Attributen 95 Decimal-Werte (alles Decimal 17,2).
Diese Decimals würde ich gerne (möglichst performant!) in einen String konkatenieren und dann ausgeben.
Dabei sollen die häufig auftauchenden Nullen nicht als 0.00 sondern einfach als 0 dargestellt werden.
Zu befüllen ist also das Feld:
.
Bisher hatte ich mir überlegt für jeden der 95 Decimal-Werte jeweils ein Feld
zu definieren.
Nach dem select kämen dann 95 Zuweisungen
um schließlich mit
den gewünschten String zu haben, der mit den 14 weiteren Attributen die die Tabelle beinhaltet, ausgegeben werden soll.
Anstellen von 109 Werten sollen also nur 15 Werte pro Record ausgegeben werden, wobei die 95 Decimals eben wie oben beschrieben zusammengefasst sind.
Ich gehe doch stark davon aus, dass sich das wesentlich eleganter lösen lässt und wäre dankbar, wenn mir jemand verraten könnte wie!
Vielen Dank vorab!
leider verfüge ich nur über äußerst rudimentäre ABAP-Kenntnisse und hoffe, dass mir hier jemand verraten kann, wie ich folgendes möglichst sinnvoll lösen kann.
Eine Tabelle (>5 Mio Records) aus der ich selektiere, beinhaltet neben einigen Attributen 95 Decimal-Werte (alles Decimal 17,2).
Diese Decimals würde ich gerne (möglichst performant!) in einen String konkatenieren und dann ausgeben.
Dabei sollen die häufig auftauchenden Nullen nicht als 0.00 sondern einfach als 0 dargestellt werden.
Zu befüllen ist also das Feld:
Code: Alles auswählen.
data: dec_str type String.Bisher hatte ich mir überlegt für jeden der 95 Decimal-Werte jeweils ein Feld
Code: Alles auswählen.
data: d01(19), d02(19), ...., d95(19)Nach dem select kämen dann 95 Zuweisungen
Code: Alles auswählen.
if ZZTAB-DMB01 = 0.
d01 = '0'.
else.
write ZZTAB-DMB01 to d01 left-justified.
endif.Code: Alles auswählen.
concatenate d01 d02 d03 ... d95 into dec_str separated by '|'.Anstellen von 109 Werten sollen also nur 15 Werte pro Record ausgegeben werden, wobei die 95 Decimals eben wie oben beschrieben zusammengefasst sind.
Ich gehe doch stark davon aus, dass sich das wesentlich eleganter lösen lässt und wäre dankbar, wenn mir jemand verraten könnte wie!
Vielen Dank vorab!
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Beitrag
von black_adept (Top Expert / 4159 / 136 /
960
)
»
Hallo Calahan,
liegen die 95 Felder irgendwie hintereinander oder in gleichem Abstand voneinander oder sind die Feldnamen irgendwie durchnummeriert?
Falls ja, könntest du mit einer Schleife die 95 Felder der Reihe nach durch ein Feldsymbol ansprechen { Assign ... of structure ... to <fs> }
und dann mit dem Feldsymbol deine Schreib- und Verkettungsoperationen durchführen.
liegen die 95 Felder irgendwie hintereinander oder in gleichem Abstand voneinander oder sind die Feldnamen irgendwie durchnummeriert?
Falls ja, könntest du mit einer Schleife die 95 Felder der Reihe nach durch ein Feldsymbol ansprechen { Assign ... of structure ... to <fs> }
und dann mit dem Feldsymbol deine Schreib- und Verkettungsoperationen durchführen.
Die 95 Felder liegen direkt hintereinander haben aber alle unterschiedliche Namen, die auch keiner Systematik folgen.
Ich kenne mich mit field-symbols noch nicht aus. Wie kann ich denn dafür sorgen, dass die Umsetzungen innerhalb einer Schleife durchgeführt werden?
Ich kenne mich mit field-symbols noch nicht aus. Wie kann ich denn dafür sorgen, dass die Umsetzungen innerhalb einer Schleife durchgeführt werden?
Beitrag
von black_adept (Top Expert / 4159 / 136 /
960
)
»
Hallo Calahan,
hier ein Beispiel das du für deine Verhältnisse anpassen kannst
hier ein Beispiel das du für deine Verhältnisse anpassen kannst
Code: Alles auswählen.
REPORT.
DATA: BEGIN OF test,
start1,
start2,
start3,
feld_hugo TYPE i,
feld_fred TYPE i,
feld_manni TYPE i,
feld_joe TYPE i,
END OF test.
FIELD-SYMBOLS: <fs> LIKE test-feld_hugo.
test-feld_hugo = 13.
test-feld_manni = 26.
test-feld_fred = 112.
test-feld_joe = 1023.
* 1. Möglichkeit . Du weißt dass das 1. der aufeinanderfolgenden Felder das 4. Feld ist
DO 4 TIMES.
sy-tabix = sy-index + 3. " sy-tabix = 4,5,6,7
ASSIGN COMPONENT sy-tabix OF STRUCTURE test TO <fs>.
WRITE:/ <fs>.
ENDDO.
ULINE.
* 2. Möglichkeit . Du weißt dass das 1. der aufeinanderfolgenden Felder das Feld feld_hugo ist und die anderen darauf folgen
DO 4 TIMES.
sy-tabix = sy-index - 1. " sy-tabix = 0,1,2,3
ASSIGN test-feld_hugo INCREMENT sy-tabix TO <fs>.
WRITE:/ <fs>.
ENDDO.
ULINE.
Seite 1 von 1
Vergleichbare Themen
2
Antw.
Antw.
2260
Views
Views
3
Antw.
Antw.
1815
Views
Views
5
Antw.
Antw.
2706
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.
Aktuelle Forenbeiträge
Unbeantwortete Forenbeiträge
F6862 - Stücklistenpositionen Massenhinzufügen ohne Änderungsnummer
vor 3 Wochen von Radinator 1 / 2068
vor 3 Wochen von Radinator 1 / 2068