Interne Tabelle

Interne Tabelle

Hallo liebe Forumgemeinde !

Habe das Forum schon einige Male durchforstet bin aber leider nicht so richtig fuendig geworden

Habe eine interne Tabelle mit 20 Felder definiert.
Zur Laufzeit des Programms möchte ich diese itab auf x-beliebige Felder erweitern und berechnete Daten reinschreiben, sodass ich am Schluss eine neue itab mit allen Daten habe.
Vielleicht gibt es dazu ein Beispiel

lg Hans

Hallo Hans,

das was du da vorhast ist mindestens "tricky" zu nennen.
So direkt fällt mir da nur "GENERATE SUBROUTINE-POOL" ein um die neue Tabelle zu erstellen.
Aber damit solltest du weiterkommen.

entschuldige bitte, aber ich (wir?) haben Deine Frage falsch verstanden.

Demnach hast Du eine Datentabelle, die noch ein paar weitere Informationen beigestellt werden sollen, um dann in einem ALV-Grid angezeigt zu werden.

Das machst Du am Besten mit einer zweiten Tabelle, die u.a. die Felder aus der ersten Tabelle auch beinhaltet.

Hallo Hans,

ich würde es machen, wie Ereglam!

möglich waere es auch, einen eigenen type oder eine eigene ddic-struktur mit den max. benoetigten feldern zu definieren.


DATA: BEGIN OF object_tab OCCURS 0. INCLUDE STRUCTURE z_stru.
DATA: matktx LIKE rqmqmel1-matktx,
pm_selected TYPE pm_selected,
selected,
END OF object_tab.


natuerlich koennen noch zusaetzlich felder aufgenommen werden, wie hier matktx. dabei muss aber der feldkatalog zu diesem feld extra aufgebaut werden. am einfachsten: ddic-struktur mit allem definieren, was du brauchst. :idea:

gruss
bitfummler

Re: sql-abfrage tool bauen

Florian hat geschrieben:
Leider kann der Feldkatalog für ALV nicht erzeugt werden, er bleibt einfach leer.
Problem:
interne tabelle ist scheinbar nicht als quelle für den feldkatalog geeignet, zumindest wenn sie nicht von einer DDIC-struktur abstammt.

Hat da einer ne idee?

in der regel reicht eine interne tabelle vollkommen aus.
das coding sieht dann etwa wie folgt aus:

*----------------------------------------------------------------------*
FORM get_fcat_from_table USING itab TYPE STANDARD TABLE
CHANGING fcat TYPE lvc_t_fcat.

DATA: g_ref_type TYPE REF TO cl_abap_structdescr,
g_data_ref_type TYPE REF TO cl_abap_elemdescr,
wa_comp TYPE abap_compdescr,
ls_fcat TYPE lvc_s_fcat,
lv_rollname TYPE rollname,
ls_dfies TYPE dfies.

FIELD-SYMBOLS: <line> TYPE ANY.

READ TABLE itab INDEX 1 ASSIGNING <line>.

g_ref_type ?= cl_abap_typedescr=>describe_by_data( <line> ).

LOOP AT g_ref_type->components INTO wa_comp.
ls_fcat-fieldname = wa_comp-name.
g_data_ref_type ?= g_ref_type->get_component_type( wa_comp-name ).

lv_rollname = g_data_ref_type->help_id.

CALL FUNCTION 'DDIF_FIELDINFO_GET'
EXPORTING
tabname = lv_rollname
all_types = 'X'
IMPORTING
dfies_wa = ls_dfies
EXCEPTIONS
OTHERS = 3.

ls_fcat-reptext = ls_dfies-reptext.
** notfallhandling
IF ls_fcat-reptext IS INITIAL.
ls_fcat-reptext = wa_comp-name.
ENDIF.
* ... weitere felder füllen
ls_fcat-outputlen = ls_dfies-outputlen.
ls_fcat-inttype = ls_dfies-inttype.
ls_fcat-intlen = ls_dfies-intlen.

APPEND ls_fcat TO fcat.
clear ls_fcat.
ENDLOOP.

ENDFORM. " get_fcat_from_table
*----------------------------------------------------------------------*

je nachdem, wie dein Feldkatelog aussehen soll, musst du nur die jeweilige Struktur verwenden und die gewünschten Felder füllen...

Anmerkung:
du musst lediglich sicherstellen, dass die Tabelle nicht initial ist, sonst funzt das assign nicht...