Einfügen zweier interner Tabellen in eine dritte mit LOOP

Einfügen zweier interner Tabellen in eine dritte mit LOOP

Hallo liebes ABAP-Forum ich bin leider noch neu hier und Azubi im ersten Lehrjahr! Aufgrund dessen das mein Ausbilder zur Zeit nicht zur Verfügung steht wollte ich mich an euch wenden und hoffe eine Antwort zu bekommen.
Es handelt sich dabei um die Aufgabe Daten aus zweierlei Tabellen auszulesen und diese diesmal anstelle von JOIN-Befehlen per Loop in eine dritte interne Tabelle zu integrieren nur leider macht er dies nur bedingt da er sie untereinander ausgibt anstelle sie zu verknüpfen. Ich habe schon im I-Net gegoogelt aber bin zu keinem Ergebnis gekommen. Hier mein Quellcode :

DATA: gt_feldkatalog TYPE lvc_t_fcat,
gs_feldkatalog TYPE lvc_s_fcat,
go_container TYPE REF TO cl_gui_custom_container,
go_alv TYPE REF TO cl_gui_alv_grid,
gs_layout TYPE lvc_s_layo,
gt_games TYPE STANDARD TABLE OF zsy_games,
gs_games TYPE zsy_games,
gt_publisher TYPE STANDARD TABLE OF zsy_publisher,
gs_publisher TYPE zsy_publisher,
gt_games_publisher TYPE STANDARD TABLE OF zsy_games_publisher,
gs_games_publisher TYPE zsy_games_publisher,
gs_games_publisher2 TYPE zsy_games_publisher,
l_games_publisher LIKE LINE OF gt_games_publisher.

START-OF-SELECTION. "Beginn der Selektion

CALL FUNCTION: 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'ZSY_GAMES_PUBLISHER' " Dictionary-Struktur
CHANGING
ct_fieldcat = gt_feldkatalog. " Feldkatalog

CALL SCREEN 0009. " Aufruf der DYNPRO mit der Nummer 0009

*----------------------------------------------------------------------*
* MODULE status_0009 OUTPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE status_0009 OUTPUT. " Ausgabe der Gui innerhalb der Dynpro

SET PF-STATUS 'GUI_8'. " Einbinden der GUI "GUI_8" in die Dynpro 0009
ENDMODULE. "STATUS_0009 OUTPUT


*----------------------------------------------------------------------*
* MODULE user_command_0009 INPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE user_command_0009 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CANCEL'.
LEAVE PROGRAM.
WHEN OTHERS.
ENDCASE.
ENDMODULE. "user_command_0008 INPUT

*----------------------------------------------------------------------*
* MODULE init_0009 OUTPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE init_0009 OUTPUT.
"init_0009 OUTPUT

SELECT gameid gname fsk beschreibung publishid
FROM zsy_games
INTO CORRESPONDING FIELDS OF TABLE gt_games
FOR ALL ENTRIES IN gt_games
WHERE publishid = gt_games-publishid.

SELECT pname publishid land
FROM zsy_publisher
INTO CORRESPONDING FIELDS OF TABLE gt_publisher
FOR ALL ENTRIES IN gt_publisher
WHERE publishid = gt_publisher-publishid
GROUP BY pname publishid land.


* Zusammenfügen der internen Tabellen zu einer ITab


LOOP AT gt_games INTO gs_games.
CLEAR gs_games_publisher.
MOVE-CORRESPONDING gs_games TO gs_games_publisher.
APPEND gs_games_publisher TO gt_games_publisher.
ENDLOOP.

LOOP AT gt_publisher INTO gs_publisher.
CLEAR gs_games_publisher2.
MOVE-CORRESPONDING gs_publisher TO gs_games_publisher2.
APPEND gs_games_publisher2 TO gt_games_publisher.
ENDLOOP.

IF go_alv IS NOT BOUND. "ist die ALV nicht gebunden,...
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

CREATE OBJECT go_alv"... dann erstelle das globale Objekt go_alv
EXPORTING "Exportieren von...
i_parent = go_container. " Verweis auf den Container

IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE. "Entspricht der sy-subrc 0 dann...
CALL METHOD go_alv->set_table_for_first_display " Methode zum Anzeigen der Tabelle im Container
EXPORTING
is_layout = gs_layout "Layout der globalen Struktur
CHANGING
it_outtab = gt_games_publisher " Übergabe der Daten in die Variable gt_games
it_fieldcatalog = gt_feldkatalog " Übergabe der Felder in den Feldkatalog
.
IF sy-subrc = 0.
* Implement suitable error handling here
ENDIF.

ENDIF.

ENDIF.

ENDMODULE. "init_0009 OUTPUT

Re: Einfügen zweier interner Tabellen in eine dritte mit LOO

Okay das löst zumindest das Problem das es nicht untereinander ausgegeben wird .....
Jedoch gibt er mir die Publisher Daten jetzt gar nicht mehr aus, habe es aber dem angepasst was du da stehen hattest
Muus ich dementsprechend noch irgendwas anpassen oder umformen?...

Re: Einfügen zweier interner Tabellen in eine dritte mit LOO

Die Lösung von jocoder gefällt mir aber auch nicht, da es für den inneren LOOP hier keinerlei Veranlassung gibt.

Besser wäre:
Wenn ich unterstelle, dass in den Tabellen gt_publisher und gt_games das drin ist, was der Name suggeriert, dann wäre ein innerer LOOP allenfalls dann angezeigt, wenn der äußere über die gt_publisher geht (da es zu einem Publisher mehrere Spiele, aber nicht mehrere Publisher zu einem Spiel geben wird).

Davon abgesehen sollte man zumindest die innere Tabelle nicht wie in Deinem Beispiel als STANDARD TABLE, sondern als SORTED TABLE mit publishid als Schlüssel definieren, damit die Suche (egal ob per LOOP oder per READ TABLE) effizient wird und nicht jedesmal sequentiell durch die ganze interne Tabelle rasen muss.

Und schließlich solltest Du Deine SAP-Releasestand prüfen. Wenn er 7.40 oder höher ist, dann ist das Coding ziemlich oldschool und lässt sich mit den per Release 7.40 neu eingeführten Befehlen wesentlich eleganter gestalten. Gerade wenn Du ABAP neu lernst, solltest Du Dir nach Möglichkeit keinen veralteten Programmierstil antrainieren.