Interne Tabelle mittels ALV ausgeben

Interne Tabelle mittels ALV ausgeben

REPORT ZZ_TESET.

data i_repid like sy-repid.

data i_lines like sy-tabix.

TYPE-POOLS: SLIS.
data int_fcat type SLIS_T_FIELDCAT_ALV.

TYPES: BEGIN OF tab,

FIELD1 TYPE I,
FIELD2 TYPE C,

END OF tab.

DATA: itab TYPE STANDARD TABLE OF tab WITH HEADER LINE,
itabout TYPE STANDARD TABLE OF tab WITH HEADER LINE,
itab_dataset TYPE tab.


DO 10 TIMES.

itab_dataset-FIELD1 = SY-TABIX.
itab_dataset-FIELD2 = 'adas'.
append itab_dataset to itab.

ENDDO.

LOOP At itab.

WRITE / itab_dataset-FIELD1.
WRITE / itab_dataset-FIELD2.


ENDLOOP.

i_repid = sy-repid.


CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = i_repid
I_INTERNAL_TABNAME = 'ITAB'
I_INCLNAME = i_repid
CHANGING
CT_FIELDCAT = int_fcat
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3.

IF SY-SUBRC <> 0.
write: /
'Returncode',
sy-subrc,
'from FUNCTION REUSE_ALV_FIELDCATALOG_MERGE'.
ENDIF.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_STRUCTURE_NAME = 'ITAB'
TABLES
T_OUTTAB = itabout
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
write: /
'Returncode',
sy-subrc,
'from FUNCTION REUSE_ALV_LIST_DISPLAY'.
ENDIF.
--------------------------
EDIT: Habs jetzt nochmal etwas editiert aber er zeigt jetzt nur die zwei spalten "schlüssel" und "funktionsteil"an ...

So hab den Code nochmal angepasst:


REPORT ZZ_TESET.

data i_repid like sy-repid.

data i_lines like sy-tabix.

TYPE-POOLS: SLIS.

data int_fcat type SLIS_T_FIELDCAT_ALV.

TYPES: BEGIN OF tab,

FIELD1 TYPE I,
FIELD2 TYPE C,

END OF tab.

DATA: itab TYPE STANDARD TABLE OF tab WITH HEADER LINE,
itab_dataset TYPE tab.


DO 10 TIMES.

itab_dataset-FIELD1 = SY-TABIX.
itab_dataset-FIELD2 = 'adas'.
append itab_dataset to itab.

ENDDO.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = 'ZZ_TESET'
i_internal_tabname = 'TAB'
* i_inclname = 'ZMADDOGTOP' "s.h. Hilfe
CHANGING
ct_fieldcat = int_fcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = int_fcat
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
OTHERS = 2.


Jetzt sagt er mir folgendes :

Feldkatalog konnte nicht ermittelt werden
Der Feldkatalog konnte nicht ermittelt werden da der Strukturname der Ausgabetabelle nicht spezifiziert wurde

jhabs geändert aber es läuft noch immer nicht

hii habs geschaft aber nur auf manuellem wege..

REPORT ZZ_TESET.

data i_repid like sy-repid.

data i_lines like sy-tabix.

TYPE-POOLS: SLIS.

data int_fcat2 type slis_t_fieldcat_alv with HEADER LINE.
data int_fcat type slis_t_fieldcat_alv.

TYPES: BEGIN OF tab,

FIELD1 TYPE I,
FIELD2 TYPE C,

END OF tab.

DATA: itab TYPE STANDARD TABLE OF tab WITH HEADER LINE.
DATA: itabout TYPE STANDARD TABLE OF tab WITH HEADER LINE,
itab_dataset TYPE tab.


DO 10 TIMES.

itab_dataset-FIELD1 = SY-TABIX.
itab_dataset-FIELD2 = 'adas'.
append itab_dataset to itab.

ENDDO.




int_fcat2-fieldname = 'FIELD1'.
int_fcat2-seltext_m = 'PO Item'.
int_fcat2-col_pos = 1.
append int_fcat2 to int_fcat.
clear int_fcat2.

int_fcat2-fieldname = 'FIELD2'.
int_fcat2-seltext_m = 'PO Item'.
int_fcat2-col_pos = 2.
append int_fcat2 to int_fcat.
clear int_fcat2.





CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = int_fcat
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
OTHERS = 2.


Aber vielleicht hilfts ja muggel ^^