dynamische Struktur abgrasen
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
5 Beiträge
•
Seite 1 von 1
5 Beiträge
Seite 1 von 1
Hallo,
bin gerade in einem Badi, was über die Signatur (=Schnittstelle) u. a. eine Variable I_PARAMETER_STRUCTURE vom Typ TABNAME mitbringt, in der verschiedene DDIC-Strukturen stehen können als CHAR30. Diesen Strukturen gemein sind u. a. die Felder FALNR und PATNR. Die möchte ich absaugen.
Mein Wunsch ist es, eine einzige Variable zu definieren, die abhängig vom Inhalt in I_PARAMETER_STRUCTURE den passenden Typ erhält. So spare ich mir viele IF-Anweisungen, weil ich schreibfaul bin.
Ich habe es probiert mit:
<parameter> erhält die Werte von PATNR und FALNR bereits über die Badi-Schnittstelle und kleineren Anpassung mittels ASSIGN, ich kann sie nur nicht auslesen, weil es keine Struktur ist.
Eine andere, noch einfachere Möglichkeit, die ich probierte, ist diese:
Bei Zuweisung von l_patnr und l_falnr knallt es, weil <ls_dyn> keine Struktur ist. Wie bringe ich dem Compiler bei, dass ich eine Struktur mit Feldern will? 
Natürlich bekomme ich die Sache anders zum Laufen, aber ich möchte elegant programmieren, stehe aber gerade auf dem Schlauch.
VG
sapdepp
bin gerade in einem Badi, was über die Signatur (=Schnittstelle) u. a. eine Variable I_PARAMETER_STRUCTURE vom Typ TABNAME mitbringt, in der verschiedene DDIC-Strukturen stehen können als CHAR30. Diesen Strukturen gemein sind u. a. die Felder FALNR und PATNR. Die möchte ich absaugen.
Mein Wunsch ist es, eine einzige Variable zu definieren, die abhängig vom Inhalt in I_PARAMETER_STRUCTURE den passenden Typ erhält. So spare ich mir viele IF-Anweisungen, weil ich schreibfaul bin.
Ich habe es probiert mit:
Code: Alles auswählen.
DATA: lr_data TYPE REF TO data.
DATA: lr_container TYPE REF TO cl_ishmed_any_container.
FIELD-SYMBOLS <parameter> TYPE any.
CREATE OBJECT lr_container.
GET REFERENCE OF <parameter> INTO lr_data.
lr_container->set_content(
EXPORTING
i_content = lr_data
i_deep_copy = cl_ishmed_any_container=>co_true ).
Eine andere, noch einfachere Möglichkeit, die ich probierte, ist diese:
Code: Alles auswählen.
data: l_type TYPE TABNAME,
l_tdyn type REF TO data. "dynamischer Typ
l_type = I_PARAMETER_STRUCTURE.
FIELD-SYMBOLS: <ls_dyn> TYPE any. "dynamische Struktur
CREATE DATA l_tdyn type (l_type).
ASSIGN l_tdyn->* TO <ls_dyn>. "<ls_occupancy>. "<ls_doc_list>.
l_patnr = <ls_dyn>-patnr.
l_falnr = <ls_dyn>-falnr.
Natürlich bekomme ich die Sache anders zum Laufen, aber ich möchte elegant programmieren, stehe aber gerade auf dem Schlauch.
VG
sapdepp
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 / 4395 / 223 /
1182
)
»
Auf alle Fälle deine zweite Variante und Zugriff auf die Felder mittels ASSIGN COMPONENT ... OF STRUCTURE ... TO ...
lg ADT
lg ADT
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
sapdepp
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
Und schon geht's.
Da ich in <PARAMETER> ja die Struktur quasi schon drin habe, hab ich das Coding noch ausgedünnt.
Passt. Thanks!!!
Da ich in <PARAMETER> ja die Struktur quasi schon drin habe, hab ich das Coding noch ausgedünnt.
Code: Alles auswählen.
IF <parameter> IS ASSIGNED.
data:
* l_tabname TYPE TABNAME,
* l_tdyn type REF TO data, "dynamischer Typ
l_comp1 TYPE STRING,
l_comp2 TYPE STRING.
* l_tabname = I_PARAMETER_STRUCTURE.
FIELD-SYMBOLS:
* <ls_tdyn> TYPE any, "dynamische Struktur
<l_patnr> type any,
<l_falnr> TYPE any.
* CREATE DATA l_tdyn type (l_tabname).
* ASSIGN l_tdyn->* TO <ls_tdyn>. "<ls_occupancy>. "<ls_doc_list>.
l_comp1 = `PATNR`.
l_comp2 = `FALNR`.
ASSIGN COMPONENT l_comp1 OF STRUCTURE <parameter> to <l_patnr>. "<ls_tdyn>.
ASSIGN COMPONENT l_comp2 OF STRUCTURE <parameter> to <l_falnr>. "<ls_tdyn>.
ENDIF.
Beitrag
von black_adept (Top Expert / 4086 / 126 /
940
)
»
Meine bevorzugte Variante ( aber allgemein und nicht im ISH), da im weiteren Verlauf des Programms besser lesbar, wenn man weiß, dass die Felder definitiv in der Übergabestruktur sind:a-dead-trousers hat geschrieben:Auf alle Fälle deine zweite Variante und Zugriff auf die Felder mittels ASSIGN COMPONENT ... OF STRUCTURE ... TO ...
lg ADT
Code: Alles auswählen.
DATA: BEGIN OF ls_known_data,
patnr type ...,
falnr type ...,
END OF ls_known_data.
....
MOVE-CORRESPONDING <ls_dyn> to ls_known_data.
Seite 1 von 1
Vergleichbare Themen
3
Antw.
Antw.
4662
Views
Views
4
Antw.
Antw.
3839
Views
Views
Dynamische Struktur bei Feldsymbol
von BesenWesen » 10.08.2006 09:54 • Verfasst in ABAP® für Anfänger
von BesenWesen » 10.08.2006 09:54 • Verfasst in ABAP® für Anfänger
4
Antw.
Antw.
2829
Views
Views
1
Antw.
Antw.
11640
Views
Views
2
Antw.
Antw.
2826
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
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 20 Stunden von DeathAndPain 4 / 837
vor 20 Stunden von DeathAndPain 4 / 837
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
Nach Transport von Stellen über RHMOVE30 nur Planvariante "nie verwenden"
vor 20 Stunden von DeathAndPain 4 / 837
vor 20 Stunden von DeathAndPain 4 / 837