Struktur dynamisch auslesen / schreiben
7 Beiträge
•
Seite 1 von 1
7 Beiträge
Seite 1 von 1
Moin moin,
ich möchte mithilfe des BAPIs "BAPI_USER_CHANGE" Benutzerdaten zu einem neuen Benutzer transferieren. Das Ganze soll möglichst über eine Klasse wiederverwendbar und automatisch laufen. Die Schnittstelle hat für die unterschiedlichen Registerkarten in der Transaktion SU01 jeweils eigene Parameter, z.B. für Adressen:
*" VALUE(ADDRESS) LIKE BAPIADDR3 STRUCTURE BAPIADDR3 OPTIONAL
*" VALUE(ADDRESSX) LIKE BAPIADDR3X STRUCTURE BAPIADDR3X OPTIONAL
Felder und Werte stehen hier z.B. in ADDRESS. Möchte man diese ändern, muss zusätzlich der gleiche Feldname in ADDRESSX mit einem Flag ('X') versehen werden. Die Feldnamen sind in dieser Struktur alle gleich. Es könnte natürlich über den Report an die Klasse mit entsprechender Signatur weitergegeben werden. Ich fände es besser, wenn die Methode nur die "wirklichen" Daten bekommen würde und schaut, wo Felder befüllt wurden und dann in ADDRESSX im gleichnamigen Feld den Paramter auf true setzt. Ich hoffe, es ist halbwegs verständlich, was ich möchte. Hier mein Ansatz, im Moment fällt mir aber keine Lösung für die dynamische Zuweisung ein.
Wie geht das? Habt Ihr eine Idee?
Danke vorab!
ich möchte mithilfe des BAPIs "BAPI_USER_CHANGE" Benutzerdaten zu einem neuen Benutzer transferieren. Das Ganze soll möglichst über eine Klasse wiederverwendbar und automatisch laufen. Die Schnittstelle hat für die unterschiedlichen Registerkarten in der Transaktion SU01 jeweils eigene Parameter, z.B. für Adressen:
*" VALUE(ADDRESS) LIKE BAPIADDR3 STRUCTURE BAPIADDR3 OPTIONAL
*" VALUE(ADDRESSX) LIKE BAPIADDR3X STRUCTURE BAPIADDR3X OPTIONAL
Felder und Werte stehen hier z.B. in ADDRESS. Möchte man diese ändern, muss zusätzlich der gleiche Feldname in ADDRESSX mit einem Flag ('X') versehen werden. Die Feldnamen sind in dieser Struktur alle gleich. Es könnte natürlich über den Report an die Klasse mit entsprechender Signatur weitergegeben werden. Ich fände es besser, wenn die Methode nur die "wirklichen" Daten bekommen würde und schaut, wo Felder befüllt wurden und dann in ADDRESSX im gleichnamigen Feld den Paramter auf true setzt. Ich hoffe, es ist halbwegs verständlich, was ich möchte. Hier mein Ansatz, im Moment fällt mir aber keine Lösung für die dynamische Zuweisung ein.
Code: Alles auswählen.
IF is_user_address IS NOT INITIAL.
lo_struc ?= cl_abap_structdescr=>describe_by_data(
p_data = is_user_address ).
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE is_user_address TO <lfs_field>.
IF sy-subrc NE 0.
EXIT.
ENDIF.
IF <lfs_field> IS NOT INITIAL.
READ TABLE lo_struc->components INDEX sy-index INTO DATA(ls_components).
"HIER MÜSSTE DER PARAMETER IN ADDRESSX auf true gesetzt werden das "Feld hat den gleichen Namen
"wie in ls_components bzw. is_user_address
BREAK-POINT.
ENDIF.
ENDDO.
ENDIF.Danke vorab!
Save a tree - eat a beaver
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Beitrag
von black_adept (Top Expert / 3944 / 105 /
886
)
»
Moin Ingo,
du hast es doch schon fast geschafft.
Statt des DO...ENDDO mach doch einen LOOP über lo_struc->components. Da hast du dann den Feldnamen und kannst statt ASSIGN COMPONENT sy-index ein ASSIGN COMPONENT feldname... (->siehe Doku zu ASSIGN COMPONENT ) machen.
Und letzteres geht sowohl auf der normalen als auch auf der X-Struktur.
du hast es doch schon fast geschafft.
Statt des DO...ENDDO mach doch einen LOOP über lo_struc->components. Da hast du dann den Feldnamen und kannst statt ASSIGN COMPONENT sy-index ein ASSIGN COMPONENT feldname... (->siehe Doku zu ASSIGN COMPONENT ) machen.
Und letzteres geht sowohl auf der normalen als auch auf der X-Struktur.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
Ingo
Moin,
danke für Deine schnelle Antwort. Mein Problem ist die dynamische Zuweisung zur neuen Struktur, wo das Feld den gleichen Namen hat, aber nur noch ein Zeichenfeld von Länge 1 ist und mit einem FLAG ('X') versehen werden soll anstelle - hier zum Beispiel - der Telefonnummer.
ADDRESS wird dynamisch ausgelesen ist vom Typ BAPIADDR3 --> in meinem Code is_user_address
ls_user_address ist vom TYP ADDRESSX und soll dynamisch gefüllt werden.
Mit dem LOOP wäre das ja so:
Die Struktur für Adressen im genannten BAPI hat zum Beispiel ein Feld TEL1_NUMBR vom Typ CHAR(30), in der Zielstruktur heisst es auch TEL1_NUMBER, aber ist vom Typ CHAR(1). Wenn eine Telefonnummer vorhanden ist, soll hier ein X zugwiesen werden. Ich weiß aber nicht, wie die Syntax hierfür aussehen muss.
danke für Deine schnelle Antwort. Mein Problem ist die dynamische Zuweisung zur neuen Struktur, wo das Feld den gleichen Namen hat, aber nur noch ein Zeichenfeld von Länge 1 ist und mit einem FLAG ('X') versehen werden soll anstelle - hier zum Beispiel - der Telefonnummer.
ADDRESS wird dynamisch ausgelesen ist vom Typ BAPIADDR3 --> in meinem Code is_user_address
ls_user_address ist vom TYP ADDRESSX und soll dynamisch gefüllt werden.
Mit dem LOOP wäre das ja so:
Code: Alles auswählen.
LOOP AT lo_struc->components ASSIGNING FIELD-SYMBOL(<lfs_component>).
ASSIGN COMPONENT <lfs_component>-name OF STRUCTURE is_user_address
TO FIELD-SYMBOL(<lfs_field>).
IF <lfs_field> IS NOT INITIAL.
"HIER LS_USER_ADDRESS im gleichnamigen Feld zu <lfs_component>-name ein X zuweisen
BREAK-POINT.
ENDIF.
ENDLOOP.
Save a tree - eat a beaver
Kleiner Zusatz:
Muss ich dynamisch eine Struktur im LOOP erstellen + befüllen und im Anschluss mit MOVE-CORRESPONDING der Zielstruktur zuweisen? Das muss doch leichter gehen :-)
Muss ich dynamisch eine Struktur im LOOP erstellen + befüllen und im Anschluss mit MOVE-CORRESPONDING der Zielstruktur zuweisen? Das muss doch leichter gehen :-)
Save a tree - eat a beaver
Bei den Variablennamen is_user_address und ls_user_address schwirrt mir der Kopf, aber wenn ich es richtig verstanden habe willst du folgendes tun?
Code: Alles auswählen.
LOOP AT lo_struc->components ASSIGNING FIELD-SYMBOL(<component>).
ASSIGN COMPONENT <component>-name OF STRUCTURE is_user_address TO FIELD-SYMBOL(<data_field>).
IF sy-subrc = 0 AND <data_field> IS NOT INITIAL.
ASSIGN component <component>-name OF STRUCTURE ls_user_address TO FIELD-SYMBOL(<datax_field>).
IF sy-subrc = 0.
<datax_field> = abap_true.
ENDIF.
ENDIF.
ENDLOOP.
Genau das habe ich gesucht! Mir qualmt auch der Kopf ;-)qyurryus hat geschrieben: ↑04.08.2021 14:27Bei den Variablennamen is_user_address und ls_user_address schwirrt mir der Kopf, aber wenn ich es richtig verstanden habe willst du folgendes tun?
Code: Alles auswählen.
LOOP AT lo_struc->components ASSIGNING FIELD-SYMBOL(<component>). ASSIGN COMPONENT <component>-name OF STRUCTURE is_user_address TO FIELD-SYMBOL(<data_field>). IF sy-subrc = 0 AND <data_field> IS NOT INITIAL. ASSIGN component <component>-name OF STRUCTURE ls_user_address TO FIELD-SYMBOL(<datax_field>). IF sy-subrc = 0. <datax_field> = abap_true. ENDIF. ENDIF. ENDLOOP.
Vielen, vielen Dank an Euch!
Save a tree - eat a beaver
Seite 1 von 1
Vergleichbare Themen
1
Antw.
Antw.
258
Views
Views
Felder einer dynamischen Struktur "der Reihe nach" in eine andere Struktur schreiben
von Der Formulator » 05.01.2022 18:44 • Verfasst in ABAP® Core
von Der Formulator » 05.01.2022 18:44 • Verfasst in ABAP® Core
2
Antw.
Antw.
1383
Views
Views
Container auswerten und in Struktur schreiben
von Kenny » 04.02.2015 13:01 • Verfasst in ABAP® für Anfänger
von Kenny » 04.02.2015 13:01 • Verfasst in ABAP® für Anfänger
2
Antw.
Antw.
1250
Views
Views
Langen String in Struktur schreiben (UniCode-verträglich)
von Nordlicht » 12.04.2019 09:41 • Verfasst in ABAP® für Anfänger
von Nordlicht » 12.04.2019 09:41 • Verfasst in ABAP® für Anfänger
13
Antw.
Antw.
10557
Views
Views
1
Antw.
Antw.
198
Views
Views
.pdf-Datei aus E-Mail(SOST) auslesen und auf Applikationsserver schreiben
von LostDarkness » 18.10.2022 13:49 • Verfasst in ABAP® für Anfänger
von LostDarkness » 18.10.2022 13:49 • Verfasst in ABAP® für Anfänger
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.