Code: Alles auswählen.
PROCESS BEFORE OUTPUT.
MODULE status_0400.
LOOP WITH CONTROL tc_zuordnung.
MODULE d400_fill_tabel_zuordnung.
ENDLOOP.
LOOP WITH CONTROL tc_externtabelle.
MODULE d400_fill_tabel_externtabelle.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP WITH CONTROL tc_externtabelle.
ENDLOOP.
LOOP WITH CONTROL tc_zuordnung.
MODULE d400_set_mark.
ENDLOOP.
MODULE user_command_0400.
Code: Alles auswählen.
CONTROLS tc_zuordnung TYPE TABLEVIEW USING SCREEN 400.
CONTROLS tc_externtabelle TYPE TABLEVIEW USING SCREEN 400.
MODULE d400_fill_tabel_zuordnung OUTPUT.
READ TABLE it_zuordnung INTO wa_zuordnung
INDEX tc_zuordnung-current_line.
ENDMODULE. " D400_fill_tabel_zuordnung OUTPUT
*&---------------------------------------------------------------------*
*& Module d400_fill_tabel_externtabelle OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE d400_fill_tabel_externtabelle OUTPUT.
READ TABLE it_externspalte INTO wa_externspalte
INDEX tc_externtabelle-current_line.
ENDMODULE. " d400_fill_tabel_externtabelle OUTPUT