Problem with field symbol

[Former Member]

Hi!

I have a problem with a field-symbol like this:

DATA: gt_coep_ext TYPE kaep_t_coep_ext.

field-symbols <gt_data> type table.

ASSIGN gt_coep_ext TO <gt_pos_data>

This field symbol is used in the FM REUSE_ALV_GRID_DISPLAY as output table. I need add two fields in this <gt_data>. Is there any way to add new fields in the <gt_data> structure.

Thanks!!

[Former Member]

Create your one Fieldcat

*

• Global data declaration ***

TYPE-POOLS: SLIS.

• <types: ... . " user definded types>

DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: G_REPID LIKE SY-REPID.

DATA: GT_OUTTAB TYPE <UD_STRUCT> OCCURS 0 WITH HEADER LINE.

• <data: ... . " user specific data>

• Initialization field catalog ***

INITIALIZATION.

G_REPID = SY-REPID.

PERFORM FIELDCAT_INIT USING GT_FIELDCAT[].

• Data selection ***

START-OF-SELECTION.

PERFORM SELECT_DATA TABLES GT_OUTTAB.

• Display list ***

END-OF-SELECTION.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = G_REPID

IT_FIELDCAT = GT_FIELDCAT[]

TABLES

T_OUTTAB = GT_OUTTAB.

• FORMS ***

FORM FIELDCAT_INIT USING RT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA: POS TYPE I VALUE 1.

• Initialize keyfield(s)

CLEAR LS_FIELDCAT.

LS_FIELDCAT-COL_POS = POS.

LS_FIELDCAT-FIELDNAME = <GT_OUTTAB_FIELD_NAME>.

LS_FIELDCAT-REF_FIELDNAME = <DDIC_REF_FIELD_NAME>.

LS_FIELDCAT-REF_TABNAME = <DDIC_REF_TABLE_NAME>.

LS_FIELDCAT-KEY = 'X'. " sets key field

APPEND LS_FIELDCAT TO RT_FIELDCAT.

• Initialize normal field(s)

POS = POS + 1.

clear ls_fieldcat.

ls_fieldcat-col_pos = pos.

LS_FIELDCAT-FIELDNAME = <GT_OUTTAB_FIELD_NAME>.

LS_FIELDCAT-REF_FIELDNAME = <DDIC_REF_FIELD_NAME>.

LS_FIELDCAT-REF_TABNAME = <DDIC_REF_TABLE_NAME>.

APPEND LS_FIELDCAT TO RT_FIELDCAT.

• Initialize hidden field(s)

POS = POS + 1.

clear ls_fieldcat.

ls_fieldcat-col_pos = pos.

LS_FIELDCAT-FIELDNAME = <GT_OUTTAB_FIELD_NAME>.

LS_FIELDCAT-REF_FIELDNAME = <DDIC_REF_FIELD_NAME>.

LS_FIELDCAT-REF_TABNAME = <DDIC_REF_TABLE_NAME>.

LS_FIELDCAT-NO_OUT = 'X'. " sets hidden field

APPEND LS_FIELDCAT TO RT_FIELDCAT.

ENDFORM. " fieldcat_init

FORM SELECT_DATA TABLES RT_OUTTAB LIKE GT_OUTTAB[].

• <user specific data selection>

ENDFORM. " select_data

[Former Member]

Hi,

Add those two fields to gt_coep_ext.

DATA : BEGIN OF gt_coep_ext OCCURS 0.
       INCLUDE structure kaep_t_coep_ext..
DATA : FLD1,
            FLD2,
           END OF gt_coep_ext.

Thanks,

ANmol.

[Former Member]

Thanks!!