Dynamische Interne Tabele mit Kopfzeilen

Dynamische Interne Tabele mit Kopfzeilen

Hallo Experten,
ich habe ein Programm um ein Excel Datei einlesen und in Interne Tabebelle einlegen.
Alles läuft wundabar, ausser ein kleinigkeits, und zwar wenn ich schon tabelle gelesen habe

hier

LOOP AT t_intern ASSIGNING <fs_intern>.
MOVE <fs_intern>-col TO v_index.

ASSIGN COMPONENT v_index OF STRUCTURE <gs_struct_data> TO <gv_value>. "<fs_wtab>
MOVE <fs_intern>-value TO <gv_value>.
AT END OF row.
***Ich brauche noch diese paar variable in meine Tabelle hinzufügen
<gt_table_data>-mandt = sy-mandt. ***************Dann bekomme ich Fehler(<gt_table_data> Tabelle ohne Kopfzeile) sehe Bild.
<gs_struct_data>-spras = sy-langu.

APPEND <gs_struct_data> TO <gt_table_data>.

* CLEAR: ti_table_line.
ENDAT.
ENDLOOP.

Dann bekomme ich Fehler(Tabelle ohne Kopfzeile) sehe Bild.

So habe ich meine Dyn Tabelle Defeniert:
**-----------------------------------
DATA: go_descr TYPE REF TO cl_abap_structdescr,
gt_component TYPE cl_abap_structdescr=>component_table,
gt_component_all LIKE gt_component,
go_structdescr TYPE REF TO cl_abap_structdescr,
go_tabledescr TYPE REF TO cl_abap_tabledescr,
go_table_data TYPE REF TO data,
go_struct_data TYPE REF TO data.

FIELD-SYMBOLS: <gt_table_data> TYPE STANDARD TABLE,
<gs_struct_data> TYPE any,
<gv_value> TYPE any.

go_descr ?=
cl_abap_typedescr=>describe_by_name( p_tab ).
gt_component = go_descr->get_components( ).

APPEND LINES OF gt_component
TO gt_component_all.

go_structdescr = cl_abap_structdescr=>create( gt_component_all ).
go_tabledescr = cl_abap_tabledescr=>create( go_structdescr ).

CREATE DATA go_struct_data TYPE HANDLE go_structdescr.
ASSIGN go_struct_data->* TO <gs_struct_data>.

CREATE DATA go_table_data TYPE HANDLE go_tabledescr.
ASSIGN go_table_data->* TO <gt_table_data>.

Hat jemand Annung , wie kann man mit Kopfzeilen Defenieren?

Danke

Re: Dynamische Interne Tabele mit Kopfzeilen

Danke, aber gleiche Fehler, habe ich schon Probiert.

LOOP AT t_intern ASSIGNING <fs_intern>.
MOVE <fs_intern>-col TO v_index.

ASSIGN COMPONENT v_index OF STRUCTURE <gs_struct_data> TO <gv_value>. "<fs_wtab>
MOVE <fs_intern>-value TO <gv_value>.
AT END OF row.

<gs_struct_data>-mandt = sy-mandt.
<gs_struct_data>-spras = sy-langu.

APPEND <gs_struct_data> TO <gt_table_data>.

Re: Dynamische Interne Tabele mit Kopfzeilen

Danke, wieder Fehler jetzt mit sy-spras(shee Bild), kann sein dass fehler bei difinizion von Tabellen?

LOOP AT t_intern ASSIGNING <fs_intern>.
MOVE <fs_intern>-col TO v_index.


ASSIGN COMPONENT v_index OF STRUCTURE <gs_struct_data> TO <gv_value>. "<fs_wtab>
MOVE <fs_intern>-value TO <gv_value>.
AT END OF row.

*<gs_struct_data>-mandt = sy-mandt.
*<gs_struct_data>-spras = sy-langu.

ASSIGN COMPONENT 'MANDT' OF STRUCTURE <gs_struct_data> TO <gv_value>.
IF sy-subrc = 0.
<gv_value> = sy-mandt.
ENDIF.

ASSIGN COMPONENT 'SPRAS' OF STRUCTURE <gs_struct_data> TO <gv_value>.
IF sy-subrc = 0.
<gv_value> = sy-spras.
ENDIF.

APPEND <gs_struct_data> TO <gt_table_data>.

ENDAT.
ENDLOOP.

Re: Dynamische Interne Tabele mit Kopfzeilen

Hi Ralf noch eine Frage,
wenn ich als p_tab - (name fon tabele in Dictionare) falsch schreibe z. B ok ist "ZMM_C_TREND_T", wenn ich falsch z.B ZMM_C_TREND_ schreibe,
dann hier
CREATE DATA: gt_table TYPE STANDARD TABLE OF (p_tab)."ZMM_C_TREND_T,
bekomme ich fehler(sehe bild).
wie kann ich Pruffung screiben :
if p_tap falsch
write:" Tabelenname ist falsch
exit

Danke

Re: Dynamische Interne Tabele mit Kopfzeilen

Danke, ich lerne mich, deschalb habe ich versucht nicht select, sondern uber Funktionsbausteine,
ein habe ich gefunden
CALL FUNCTION 'DB_EXISTS_TABLE'
EXPORTING
tabname = p_tab
* IMPORTING
* SUBRC =

IF sy-subrc <> 0.
WRITE: 'Die Tabellenname',p_tab,'ist falsch' .
exit.
ENDIF.

aber er liefert mir kein sy-subrc, obwohl in doku steht wenn sy-subrc =4 tabele nicht angelegt
wiesst du ,warscheinlich gibt es anderen baustein, und was meinst du, bessere wenn ich select benutze oder Funktionsbaustein?

Danke

Re: Dynamische Interne Tabele mit Kopfzeilen

autohandel7 hat geschrieben:aber er liefert mir kein sy-subrc, obwohl in doku steht wenn sy-subrc =4 tabele nicht angelegt

Der SUBRC wird dir vom FuBa zurück gegeben. Du nimmst ihn aber nicht entgegen (IMPORTING subrc = ist ausgesternt).
Wenn du den SUBRC entgegen nimmst, könntest du dagegen prüfen.

autohandel7 hat geschrieben:wiesst du ,warscheinlich gibt es anderen baustein, und was meinst du, bessere wenn ich select benutze oder Funktionsbaustein?

Kommt drauf an was dein Ziel ist. Ralfs Coding prüft ob die Tabelle im DDIC angelegt ist (also SAP intern bekannt ist), der FuBa prüft ob die Tabelle auch in der darunter liegenden DB wirklich existiert. Die Prüfung gegen die DB braucht mehr Laufzeit und ist eigentlich unnötig, da es sehr selten vorkommen sollte, dass die Tabelle im DDIC angelegt, aber nicht auf der DB vorhanden ist.
Von daher reicht die Prüfung gegen das DDIC in diesem Programm.

Re: Dynamische Interne Tabele mit Kopfzeilen

autohandel7 hat geschrieben: ASSIGN COMPONENT 'SPRAS' OF STRUCTURE <gs_table> TO <gv_value>.
IF sy-subrc = 0 AND <gv_value> is initial.
<gv_value> = sy-langu.
ENDIF.

Siehe rote Einfügung.