Range-Tabelle befüllen Thema ist als GELÖST markiert
10 Beiträge
Seite 1 von 1
10 Beiträge
Seite 1 von 1
Hallo ganz kurze Anfängerfrage 
Ich möchte gerne eine Range-Tabelle befüllen, mit den Werten von einer internen Tabelle befüllen. So nach der Art :
bloß hat meine interne Tabelle mehrere Felder nämlich 15. Nun möchte ich natürlich nicht 15 mal sign = 'I' ...EQ... low = .... usw. schreiben. Kennt jemand eine schöne performante Lösung?
Vielen Dank an alle
.
Ich möchte gerne eine Range-Tabelle befüllen, mit den Werten von einer internen Tabelle befüllen. So nach der Art :
Code: Alles auswählen.
DATA: rangetab TYPE RANGE OF dbtab-field1,
wa_rangetab LIKE LINE OF rangetab.
LOOP AT itab INTO wa.
wa_rangetab-sign = 'I'.
wa_rangetab-option = 'EQ'.
wa_rangetab-low = wa-field1.
APPEND wa_rangetab TO rangetab.
ENDLOOP.
SELECT *
INTO TABLE lt_dbtab
FROM dbtab
WHERE field1 IN rangetab.Vielen Dank an alle
.Ich möchte etwas ausprobieren und zwar anstatt über den FOR ALL ENtRIES-Befehl über eine Range-Tabelle zu gehen und möchte mir diese nun befüllen. Ich möchte diese später nutzen um sie bei einem Select in der Where-Bedingung zu nutzen.
Hallo Bright4.5,
Du hast doch die Lösung schon, Du machst einen Loop über eine interne Tabelle und füllst im Loop 15 mal die Rangetabelle wenn Deine interne Tabelle 15 Einträge hat? Dann steht es im Code doch nur einmal?
Hier mal eine noch kürzere Schreibweise:
Du hast doch die Lösung schon, Du machst einen Loop über eine interne Tabelle und füllst im Loop 15 mal die Rangetabelle wenn Deine interne Tabelle 15 Einträge hat? Dann steht es im Code doch nur einmal?
Hier mal eine noch kürzere Schreibweise:
Code: Alles auswählen.
Loop at t_itab assigning fieldsymbol(<w_itab>).
rt_range = value #( base rt_range
( sign = 'I' option = 'EQ' low = <w_itab>-value ) ).
endloop.
Geht nicht gibts nicht
Dann sind aber ggfs. Werte doppelt in der RANGES-Tabelle. man müsste also noch mit LINE_EXISTS abfragen, ob der Wert vorhanden ist.
Alternativ und altbacken: Ein Makro
Alternativ und altbacken: Ein Makro
Code: Alles auswählen.
DATA itab TYPE STANDARD TABLE OF vbak.
DATA wa LIKE LINE OF itab.
DATA ra_vbtyp TYPE RANGE OF vbtyp.
DATA ra_vkorg TYPE RANGE OF vkorg.
DEFINE _add_range_.
DATA wa_&1 LIKE LINE OF &1.
FIELD-SYMBOLS <&2> TYPE any.
ASSIGN COMPONENT '&2' OF STRUCTURE wa TO <&2>.
IF sy-subrc = 0.
READ TABLE &1 WITH KEY low = <&2> TRANSPORTING NO FIELDS.
IF sy-subrc > 0.
wa_&1-sign = 'I'.
wa_&1-option = 'EQ'.
wa_&1-low = <&2>.
APPEND wa_&1 TO &1.
ENDIF.
ENDIF.
END-OF-DEFINITION.
SELECT * FROM vbak INTO TABLE itab UP TO 10 ROWS.
LOOP AT itab INTO wa.
_add_range_ ra_vbtyp vbtyp.
_add_range_ ra_vkorg vkorg.
ENDLOOP.Beitrag von DeathAndPain (Top Expert / 1070 / 123 / 234 ) » 6. Feb 2019 16:34
Dieses Makro soll funktionieren, obgleich es einen DATA-Befehl enthält? Beim 2. Einsatz des Makros ist der DATA doppelt drin; das sollte einen Syntax Error werfen.
@Bright: Ich verstehe nicht, weshalb Du
Ab Release 7.40 machst Du einfach:
Tatsächlich bin ich sogar überzeugt, dass Du ab 7.40 den ganzen LOOP weglassen und durch eine einzige Zuweisung an die Tabelle rangetab ersetzen kannst, indem Du den FOR-Befehl verwendest. Ich bin aber zu faul jetzt auszuarbeiten, wie das syntaktisch genau aussehen müsste, und ob es am Ende besser lesbar ist, wollen wir auch mal dahingestellt sein lassen. Performanter wäre es aber wahrscheinlich (auch wenn das hier keine Rolle spielen wird).
Deine Syntax gefällt mir nicht so gut, weil Du bei jedem Spaltendurchlauf die gesamte interne Tabelle neu schreibst. Das kann nicht performant sein! Einen Append finde ich da besser. Oder halt, wie gesagt, die interne Tabelle per FOR aufbauen.
@Bright: Ich verstehe nicht, weshalb Du
in Deiner LOOP-Schleife zu stehen hast. Schreib die Befehle doch einfach für einmalige Ausführung vor die LOOP-Schleife. Diese Werte ändern sich doch nicht, so dass Du im LOOP einfach immer nur den LOW änderst und dann Deinen APPEND machst.wa_rangetab-sign = 'I'.
wa_rangetab-option = 'EQ'.
Ab Release 7.40 machst Du einfach:
Code: Alles auswählen.
LOOP AT itab INTO wa.
APPEND #( sign= 'I' option = 'EQ' low = wa-field1 ) to rangetab.
ENDLOOP.15 Spalten. Offenbar hat er in seiner itab eine Zeile für jede Spalte, deren Wert er einschränken möchte.Romaniac hat geschrieben:Du machst einen Loop über eine interne Tabelle und füllst im Loop 15 mal die Rangetabelle wenn Deine interne Tabelle 15 Einträge hat?
Deine Syntax gefällt mir nicht so gut, weil Du bei jedem Spaltendurchlauf die gesamte interne Tabelle neu schreibst. Das kann nicht performant sein! Einen Append finde ich da besser. Oder halt, wie gesagt, die interne Tabelle per FOR aufbauen.
Es geht sogar noch "besser": Du kannst sogar die Rangetab im Makro definieren:DeathAndPain hat geschrieben:Dieses Makro soll funktionieren, obgleich es einen DATA-Befehl enthält? Beim 2. Einsatz des Makros ist der DATA doppelt drin; das sollte einen Syntax Error werfen.
DEFINE _add_range_.
DATA ra_&1 TYPE RANGE OF &1.
DATA wa_&1 LIKE LINE OF ra_&1.
FIELD-SYMBOLS <&1> TYPE any.
ASSIGN COMPONENT '&1' OF STRUCTURE wa TO <&1>.
IF sy-subrc = 0.
READ TABLE ra_&1 WITH KEY low = <&1> TRANSPORTING NO FIELDS.
IF sy-subrc > 0.
wa_&1-sign = 'I'.
wa_&1-option = 'EQ'.
wa_&1-low = <&1>.
APPEND wa_&1 TO ra_&1.
ENDIF.
ENDIF.
END-OF-DEFINITION.
Beitrag von DeathAndPain (Top Expert / 1070 / 123 / 234 ) » 6. Feb 2019 17:12
Das wird Ralf gefallen. Und ab in die TRMAC damit!
Frage die ABAP Experten
Wähle das Themengebiet für deine Frage an die ABAP Experten:
Aktuelle Forenbeiträge
VL10B - Partner ändern -> Funktionsbaustein?
vor 14 Stunden von black_adept 2 / 44
vor 14 Stunden von black_adept 2 / 44
Datenaustausch mit externen Lieferanten
vor 21 Stunden von DeathAndPain 5 / 163
vor 21 Stunden von DeathAndPain 5 / 163
Vorschlagswerte IT0700
vor 23 Stunden von DeathAndPain 8 / 122
vor 23 Stunden von DeathAndPain 8 / 122
Aktuelle Forenbeiträge
VL10B - Partner ändern -> Funktionsbaustein?
vor 14 Stunden von black_adept 2 / 44
vor 14 Stunden von black_adept 2 / 44
Datenaustausch mit externen Lieferanten
vor 21 Stunden von DeathAndPain 5 / 163
vor 21 Stunden von DeathAndPain 5 / 163
Vorschlagswerte IT0700
vor 23 Stunden von DeathAndPain 8 / 122
vor 23 Stunden von DeathAndPain 8 / 122
Stellenangebote
(Junior) Developer for SAP Fiori launchpad Core & UX Job bei SAP
vor 2 Wochen 72
vor 2 Wochen 72
Development Manager for SAP Concur Travel Job bei SAP
vor 3 Wochen 164
vor 3 Wochen 164
Unbeantwortete Forenbeiträge
SP01 Verweildauer
vor 4 Tagen von SAP_ENTWICKLER 1 / 67
vor 4 Tagen von SAP_ENTWICKLER 1 / 67
Transaktion OMT3B Subscreens in Dynpros einhängen
vor 5 Tagen von SAP_ENTWICKLER 1 / 49
vor 5 Tagen von SAP_ENTWICKLER 1 / 49
Zeitereignisarten anlegen
vor einer Woche von Flashtie 1 / 160
vor einer Woche von Flashtie 1 / 160
Genehmiger & Status der Genehmigung bei einer BANF
vor 3 Wochen von Der Formulator 1 / 234
vor 3 Wochen von Der Formulator 1 / 234
Migrationstool Upload QUAN und CURR Felder
vor 3 Wochen von SAP_ENTWICKLER 1 / 222
vor 3 Wochen von SAP_ENTWICKLER 1 / 222