FOR mit CORRESPONDING
9 Beiträge
•
Seite 1 von 1
9 Beiträge
Seite 1 von 1
Hallo zusammen,
Ich würde gerne FOR mit CORRESPONDING kombinieren, aber zusätzlich noch für einen oder mehrere Werte eine Konvertierung durchführen. Geht das irgendwie? Wenn ich FOR verwende, müsste ich alle Felder einzeln auflisten und kann nicht auf CORRESPONDING zurückgreifen.
In einem LOOP kann ich problemlos erst ein CORRESPONDING machen und anschliessend die Felder konvertieren
Ich würde gerne FOR mit CORRESPONDING kombinieren, aber zusätzlich noch für einen oder mehrere Werte eine Konvertierung durchführen. Geht das irgendwie? Wenn ich FOR verwende, müsste ich alle Felder einzeln auflisten und kann nicht auf CORRESPONDING zurückgreifen.
In einem LOOP kann ich problemlos erst ein CORRESPONDING machen und anschliessend die Felder konvertieren
Code: Alles auswählen.
REPORT.
CLASS lcl_report DEFINITION CREATE PRIVATE.
PUBLIC SECTION.
TYPES: BEGIN OF ty_1,
werks TYPE string,
desc TYPE string,
END OF ty_1.
TYPES: BEGIN OF ty_2,
werks TYPE string,
longer_desc TYPE string,
END OF ty_2.
TYPES tty_plants TYPE SORTED TABLE OF ty_1 WITH UNIQUE KEY werks.
TYPES tty_plants_longer TYPE SORTED TABLE OF ty_2 WITH UNIQUE KEY werks.
CLASS-METHODS main.
CLASS-METHODS enhance
IMPORTING i_desc TYPE string
RETURNING VALUE(r_result) TYPE string.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD main.
DATA(plants) = VALUE tty_plants( ( werks = '1000' desc = 'Plant 1' )
( werks = '2000' desc = 'Plant 2' ) ).
cl_demo_output=>write( plants ).
" Konvertierung von DESC findet nicht statt
DATA plants_longer TYPE tty_plants_longer.
plants_longer = VALUE #( FOR <x> IN plants
( CORRESPONDING #( <x> MAPPING longer_desc = desc ) ) ).
cl_demo_output=>write( plants_longer ).
" TBL kann auhc direkt kopiert werden.
plants_longer = CORRESPONDING #( plants MAPPING longer_desc = desc ).
cl_demo_output=>write( plants_longer ).
" Ohne CORRESPONDING müssen alle Felder aufgelistet werden, was viele sein können
" Aber Felder können konvertiert werden
DATA plants_longer2 TYPE tty_plants_longer.
plants_longer2 = VALUE #( FOR <x> IN plants
( werks = <x>-werks
longer_desc = enhance( <x>-desc ) ) ).
cl_demo_output=>write( plants_longer2 ).
* " Zusätzliches Klammernpaar fügt zusätzliche Zeile ein
* DATA plants_longer3 TYPE tty_plants_longer.
* plants_longer3 = VALUE #( FOR <x> IN plants
* ( CORRESPONDING #( <x> ) )
* ( longer_desc = enhance( <x>-desc ) ) ).
* cl_demo_output=>write( plants_longer3 ).
* " Im Mapping können Werte nicht verändert werden
* DATA plants_longer4 TYPE tty_plants_longer.
* plants_longer4 = VALUE #( FOR <x> IN plants
* ( CORRESPONDING #( <x> MAPPING longer_desc = enhance( desc ) ) ) ).
* cl_demo_output=>write( plants_longer4 ).
" Nur im LOOP kann ich es mir ersparen, evtl. hunderte Felder aufzulisten
DATA plants_longer5 TYPE tty_plants_longer.
DATA new_line TYPE ty_2.
LOOP AT plants ASSIGNING FIELD-SYMBOL(<line>).
new_line = CORRESPONDING #( <line> ).
new_line-longer_desc = enhance( <line>-desc ).
INSERT new_line INTO TABLE plants_longer5.
ENDLOOP.
cl_demo_output=>write( plants_longer5 ).
cl_demo_output=>display( ).
ENDMETHOD.
METHOD enhance.
r_result = |{ i_desc } in long|.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
lcl_report=>main( ).
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Moin.
Wenn im (klassischen) Loop möglich ist, was Du willst/brauchst, wieso willst Du eine FOR-Schleife bauen? Ernst gemeinte und einfach nur aus Interesse gestellte Frage.
Ansonsten könntest Du sowas hier bauen:
Viele Grüße,
LeMinion
Wenn im (klassischen) Loop möglich ist, was Du willst/brauchst, wieso willst Du eine FOR-Schleife bauen? Ernst gemeinte und einfach nur aus Interesse gestellte Frage.
Ansonsten könntest Du sowas hier bauen:
Code: Alles auswählen.
DATA(longerPlants) = VALUE tty_plants_longer(
FOR plant IN plants
( VALUE #( BASE CORRESPONDING #( plant ) desc = enhance( plant-descending ) ) )
).
LeMinion
Weils Leute gibt, die das GEIL finden... Solche Experten hat bei uns auch, die bestehenden Code unbedingt von LOOP auf FOR umstellen müssen, damit alles in einer Anweisung steht. Mache ich inzwischen auch, damit es im Coding einheitlich bleibt und nicht nachträglich meine Coding immer umgeschrieben wird.
Ach, VALUE im FOR mit BASE CORRESPONDING, vielen Dank.LeMinion hat geschrieben: ↑02.05.2025 11:46Code: Alles auswählen.
DATA(longerPlants) = VALUE tty_plants_longer( FOR plant IN plants ( VALUE #( BASE CORRESPONDING #( plant ) desc = enhance( plant-descending ) ) ) ).
Weil ich damit viel prägnanter ausdrücken kann was passiert und damit für den Leser später leichter verständlich ist. Das mit einer Reihe Hilfsvariablen und LOOP zu bauen geht natürlich, dauert in dem Fall aber meiner Meinung nach länger in der Erfassung.
Hier das Beispiel, bei dem ich es eingebaut habe. Variablennamen sind anonymisiert.
Code: Alles auswählen.
e_export = VALUE #( FOR <x> IN mat->get_itab( )
( value #( base corresponding #( <x> )
menge = zconverter=>to_string( CONV #( <x>-menge ) ) ) ) ).
Beitrag
von black_adept (Top Expert / 4133 / 130 /
956
)
»
Also bei den Aussagen "prägnanter Ausdrückbar", "für den Leser leichter verständlich" und "dauert länger in der Erfassung" (? Erfassung = Zeit das zu Coden ? ) und "Reihe von Hilfsvariablen" hätte ich noch Erklärungsbedarf.rob_abc hat geschrieben: ↑03.05.2025 08:25Weil ich damit viel prägnanter ausdrücken kann was passiert und damit für den Leser später leichter verständlich ist. Das mit einer Reihe Hilfsvariablen und LOOP zu bauen geht natürlich, dauert in dem Fall aber meiner Meinung nach länger in der Erfassung.Code: Alles auswählen.
e_export = VALUE #( FOR <x> IN mat->get_itab( ) ( value #( base corresponding #( <x> ) menge = zconverter=>to_string( CONV #( <x>-menge ) ) ) ) ).
Das hier wäre die Alternative
Code: Alles auswählen.
loop at me->get_itab ASSIGNING FIELD-SYMBOL(<ls_itab>).
append value #( base corresponding #( <ls_itab> )
menge = zconverter=>to_string( CONV #( <ls_itab>-menge ) ) ) to e_export.
endloop.- - Hilfsvariablen: Eine Hilfsvariable. Und irgendwie finde ich, dass dein "<x>" auch eine Hilfsvariable ist.
- - Erfassungszeit: Das Coding hat mich nicht mehr Zeit gekostet als es die FOR-Version gekostet hätte und da du hier einen Forumsbeitrag zu diesem Thema erstellt hast wette ich, dass dich das Ganze mit LOOP schneller zum Ziel geführt hätte. Zumindest für dieses Mal -aber zukünftig sollte das schneller gehen, wobei ich wette, dass auch du für den LOOP nicht wesentlich mehr Zeit brauchst als für ein FOR.
- - "prägnanter Ausdrückbar": Da hast du mich leider abgehängt, was an dem FOR denn nun prägnanter ist als am LOOP. Könntest du das bitte noch mal genauer erläutern.
- - "für den Leser leichter verständlich": Das ist einerseits sehr subjektiv - ich z.B. kann das mit dem LOOP schneller verinnerlichen als das FOR. Andererseits finde ich, dass ich in einem LOOP besser Breakpunkte verteilen kann wenn in <ls_itab> halt ein spezieller Wert drin steht der mir Probleme bereitet. Und abschließend programmieren wir doch für Leser, die ein Mindestmaß an Wissen mitbringen und nicht für Idioten. Und für erstere sollte beides gleich leicht verständlich sein.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
msfox
Recht hat er... Debuggen geht da einfacher, weil es ebenen mehrere Befehle sind und nicht in einem Schritt alles auf einmal stattfindet.black_adept hat geschrieben: ↑Gestern 10:32- "für den Leser leichter verständlich": Das ist einerseits sehr subjektiv - ich z.B. kann das mit dem LOOP schneller verinnerlichen als das FOR. Andererseits finde ich, dass ich in einem LOOP besser Breakpunkte verteilen kann wenn in <ls_itab> halt ein spezieller Wert drin steht der mir Probleme bereitet.
+ Wenn man mit LOOP arbeitet, rückt einen der Pretty Printer Einiges schön. Beim FOR muss man es selbst schieben.
Mit Erfassungszeit meine ich nicht die Zeit zum Schreiben, sondern die Zeit wie lange ich brauche, um dich Absicht des gelesenen Codings zu verstehen. Diese ist hier bei der FOR-Schleife geringer, da sofort klar ist, dass E_EXPORT einen neuen Inhalt erhält. Es ist das erste was dem Leser ins Auge springt: E_EXPORT = ...
Wenn mich die Details dazu nicht interessieren, kann ich über den Rest drüber hinweggehen und muss mich darum gar nicht kümmern, die in diesem Fall ja nur das Kopieren einer itab + ein paar Konvertierungen sind.
Beim LOOP muss ich schauen, was genau im LOOP passiert. Ich erfahre erst ganz am Ende, nachdem ich alles Coding gelesen habe, dass eigentlich nur E_EXPORT befüllt wird.
Prinzipiell stimme ich deinen Ausführungen zum LOOP zu. Ich nutze LOOP selbst auch sehr gerne, nur in diesem Fall nicht.
Wenn mich die Details dazu nicht interessieren, kann ich über den Rest drüber hinweggehen und muss mich darum gar nicht kümmern, die in diesem Fall ja nur das Kopieren einer itab + ein paar Konvertierungen sind.
Beim LOOP muss ich schauen, was genau im LOOP passiert. Ich erfahre erst ganz am Ende, nachdem ich alles Coding gelesen habe, dass eigentlich nur E_EXPORT befüllt wird.
Prinzipiell stimme ich deinen Ausführungen zum LOOP zu. Ich nutze LOOP selbst auch sehr gerne, nur in diesem Fall nicht.
Ja genau zum Zeitpunkt der Entwicklung. Aber wehe dem, irgendwo ist ein Fehler drin und dieser soll gefunden werden. Dann muss gedanktlich das ganze FOR zerlegen, weil man es ja nicht debuggen kann.
Oder es fehlt noch was. Ich habe letzte Woche auch erst so ein FOR gebaut. Dann kam eine neue Anforderung, was im FOR so nicht ging, weil die Logik noch gegen unterschiedliche Tabelle geprüft werden soll. Ja, könnte man dann ggf. in eine Methode auslagern. Aber, dass hatte ich letztens beim Kollegen, der dann in der Methode wieder von der Datenbank gelesen hat. Auch was verschlimmerbessert und dann die bis dahin vorhandene Pufferung umgangen.
Beitrag
von black_adept (Top Expert / 4133 / 130 /
956
)
»
Ich gebe zu, dass ich für sowas noch Kommentare verwende.rob_abc hat geschrieben: ↑Gestern 21:48Mit Erfassungszeit meine ich nicht die Zeit zum Schreiben, sondern die Zeit wie lange ich brauche, um dich Absicht des gelesenen Codings zu verstehen. Diese ist hier bei der FOR-Schleife geringer, da sofort klar ist, dass E_EXPORT einen neuen Inhalt erhält. Es ist das erste was dem Leser ins Auge springt: E_EXPORT = ...
Wenn mich die Details dazu nicht interessieren, kann ich über den Rest drüber hinweggehen und muss mich darum gar nicht kümmern, die in diesem Fall ja nur das Kopieren einer itab + ein paar Konvertierungen sind.
Seite 1 von 1
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.