topic dynamic internal table in Application Development and Automation Discussions

dynamic internal table

former_member219399 — Mon, 21 Aug 2006 11:32:36 GMT

Is it possible for me to create a dynamic internal table containing table type LVC_T_STYL? Or Only we can create flat structures as dynamic internal tables? Plz provide me with piece of code.

I am using code like this

is_fieldcat-fieldname = 'CELLTAB'.

is_fieldcat-TABNAME = 'LVC_T_STYL'.

APPEND is_fieldcat TO p_it_fieldcat.

but it is not working.

Thanks and regards,

Vamsi

Re: dynamic internal table

Former Member — Mon, 21 Aug 2006 11:38:10 GMT

Hi Vamsi,

Check this piece of code, this is a program which determines the dynamic internal table structure based on the segment given on slection screen.

I have attatched even the include programs, u can copy them seperately and test it

*----

SAP-User : BWR2KOR *
Author (name) : Bharadwaja R *
Created on/in : 07.02.2006 *

*----

Description : Report for Listing IDOC-Informations for the given *
segment on the selection screen *

*----

Changes: - for each change: add chapter *
- changes get a changes number (ascending) *
- source code has to be marked with SAP-user-name *
change date and number *

*----

Change number : *
Enhance/Change numer: 90xxxx (900001-909999) -> /RB11/YBF_MODIF *
SAP-User : *
Author (name) : *
Created on/in : *
Reason for the change: *
*
*

*----

REPORT Y16S_VIEW_IDOC_CONTENT LINE-SIZE 230

NO STANDARD PAGE HEADING.

Data declarations

INCLUDE Y16S_VIEW_IDOC_CONTENT_D01I.

Selection screen

INCLUDE Y16S_VIEW_IDOC_CONTENT_S01I.

Events

INCLUDE Y16S_VIEW_IDOC_CONTENT_E01I.

Routines for program

INCLUDE Y16S_VIEW_IDOC_CONTENT_F01I.

START-OF-SELECTION.

Get the fieldcatalog

PERFORM get_fcat.

**Method for getting the reference for the structure

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING it_fieldcatalog = g_t_fieldcat

IMPORTING ep_table = dref.

**Passing the reference of the structure to field-symbol of type table

ASSIGN dref->* TO .

Fill IDoc data

PERFORM fill_data.

Display ALV

perform display_grid.

*----

INCLUDE Y16S_VIEW_IDOC_CONTENT_D01I *

*----

Data declaration : Tables used *

*----

TABLES : edidd, "Data record (IDoc)

edidc, "Control record (IDoc)

edid4, "IDoc Data Records from 4.0 onwards

dd03d, "Dynpro fields for table fields

edsappl, "EDI: IDoc Segment Application Structure

int_seg, "Data record details display

dd03l, "Table Fields

edisegment. "IDoc Development : IDoc Segment

Name of segment

DATA : g_f_segment LIKE dntab-tabname.

*--Data Declaration.

FIELD-SYMBOLS : TYPE ANY.

DATA : BEGIN OF g_t_edid OCCURS 0,

docnum LIKE edid4-docnum,

segnum LIKE edid4-segnum,

sdata LIKE edid4-sdata,

END OF g_t_edid.

*DATA : g_t_edid LIKE edid4 OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF g_t_edidc OCCURS 0,

docnum LIKE edidc-docnum,

credat LIKE edidc-credat,

mestyp LIKE edidc-mestyp,

END OF g_t_edidc.

DATA : BEGIN OF g_t_appl OCCURS 0,

fieldname LIKE edsappl-fieldname,

END OF g_t_appl.

DATA : g_v_tabix LIKE sy-tabix.

*----

ALV Declarations

*----

*Declaration of type groups

TYPE-POOLS :

slis. "Globale Typen für generische Listbausteine

DATA: g_f_okcode LIKE sy-ucomm,

g_container TYPE scrfname VALUE 'G_C_ALV',

grid1 TYPE REF TO cl_gui_alv_grid,

g_custom_container TYPE REF TO cl_gui_custom_container.

FIELD-SYMBOLS: .

Class

CLASS: g_cl_event DEFINITION DEFERRED.

Alv Grid Constants

DATA : g_c_handle(4) TYPE c VALUE '0100',

g_c_save(1) TYPE c VALUE 'A',

g_c_exit(4) TYPE c VALUE 'EXIT'.

DATA: g_v_layout TYPE lvc_s_layo,

g_f_print TYPE lvc_s_prnt,

g_f_variant TYPE disvariant,

g_v_recv TYPE REF TO g_cl_event.

CONSTANTS : gc_ucomm_sel_criteria(12) VALUE 'SEL_CRITERIA'.

*----

CLASS G_Cl_EVENT DEFINITION

*----

Class to handle GRID Events *

*----

CLASS g_cl_event DEFINITION.

PUBLIC SECTION.

METHODS:

constructor IMPORTING value(grid_name) TYPE REF TO

cl_gui_alv_grid,

handle_toolbar

FOR EVENT toolbar OF cl_gui_alv_grid

IMPORTING e_object e_interactive,

handle_user_command

FOR EVENT user_command OF cl_gui_alv_grid

IMPORTING e_ucomm.

PRIVATE SECTION.

DATA: g_v_alv TYPE REF TO cl_gui_alv_grid.

ENDCLASS. "g_cl_event DEFINITION

**----

CLASS g_cl_events IMPLEMENTATION

**----

Class to handle GRID Events *

**----

CLASS g_cl_event IMPLEMENTATION.

Handling methods

METHOD constructor.

g_v_alv = grid_name.

ENDMETHOD. "constructor

Tool bar

METHOD handle_toolbar.

CONSTANTS:

lc_quickinfo_sel_criteria(111) VALUE 'Show Selection Criteria'.

DATA:

l_toolbar TYPE stb_button.

CLEAR l_toolbar.

MOVE 0 TO l_toolbar-butn_type.

MOVE gc_ucomm_sel_criteria TO l_toolbar-function.

MOVE icon_select_with_condition TO l_toolbar-icon.

MOVE lc_quickinfo_sel_criteria TO l_toolbar-quickinfo.

MOVE space TO l_toolbar-disabled.

APPEND l_toolbar TO e_object->mt_toolbar.

ENDMETHOD. "handle_toolbar

User Command

METHOD handle_user_command.

CASE e_ucomm.

When Exit button is used

WHEN 'EXIT'.

PERFORM exit_program.

WHEN OTHERS.

ENDCASE.

ENDMETHOD. "handle_user_command

ENDCLASS. "g_cl_event IMPLEMENTATION

*----

INCLUDE Y16S_VIEW_IDOC_CONTENT_S01I *

*----

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.

Creation Date of IDoc

SELECT-OPTIONS : s_date FOR edidc-credat.

IDoc Number

SELECT-OPTIONS : s_idocnm FOR edidc-docnum.

Basic IDoc type

SELECT-OPTIONS : s_idoctp FOR edidc-idoctp.

*Message type

SELECT-OPTIONS : s_mestyp FOR edidc-mestyp.

Segment name

PARAMETERS : p_segnam LIKE edisegment-segtyp OBLIGATORY.

Field name

SELECT-OPTIONS : s_fldnam FOR dd03d-fieldname NO INTERVALS.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.

Field name

PARAMETERS : p_fldnam LIKE dd03d-fieldname.

Field contents of a field of an IDoc segment

SELECT-OPTIONS : s_fldval FOR int_seg-string.

SELECTION-SCREEN END OF BLOCK b2.

*----

INCLUDE Y16S_VIEW_IDOC_CONTENT_E01I *

*----

Check for IDoc number on selection screen

AT SELECTION-SCREEN ON s_idocnm.

IF NOT s_idocnm IS INITIAL.

Data fetch : Control record (IDoc)

SELECT COUNT( * ) FROM edidc

WHERE docnum IN s_idocnm.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

ELSE.

message for required entry.

MESSAGE e055(00).

ENDIF.

Check for segment name on selection screen

AT SELECTION-SCREEN ON p_segnam.

Check segment name is an input on selection screen

IF NOT p_segnam IS INITIAL.

Data fetch : Table Fields

SELECT SINGLE * FROM dd03l

WHERE tabname EQ p_segnam.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

F4 help for fieldname

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_fldnam-low.

DATA : l_rc LIKE sy-subrc.

Check segment name on selection screen is not empty

IF NOT p_segnam IS INITIAL.

PERFORM get_f4help USING l_rc.

IF l_rc = 0.

Fill the selected field name

READ TABLE g_t_appl INDEX g_v_tabix.

CHECK sy-subrc = 0.

s_fldnam-low = g_t_appl-fieldname.

s_fldnam-sign = 'I'.

s_fldnam-option = 'EQ'.

APPEND s_fldnam.

ENDIF.

Check for field name on selection screen

AT SELECTION-SCREEN ON s_fldnam.

IF NOT p_fldnam IS INITIAL.

Data fetch : Table Fields

SELECT SINGLE * FROM dd03l

WHERE tabname EQ p_segnam

AND fieldname IN s_fldnam.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

F4 help for fieldname

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fldnam.

DATA : l_rc LIKE sy-subrc.

Check segment name on selection screen is not empty

IF NOT p_segnam IS INITIAL.

F4 Help for fieldname

PERFORM get_f4help USING l_rc.

IF l_rc = 0.

Fill the selected field name

READ TABLE g_t_appl INDEX g_v_tabix.

CHECK sy-subrc = 0.

p_fldnam = g_t_appl-fieldname.

ENDIF.

Check for field name on selection screen

AT SELECTION-SCREEN ON p_fldnam.

IF NOT p_fldnam IS INITIAL.

Data fetch : Table Fields

SELECT SINGLE * FROM dd03l

WHERE tabname EQ p_segnam

AND fieldname EQ p_fldnam.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

Check for field name on selection screen

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_fldval-low.

Check field name is an input on selection screen

IF NOT p_fldnam IS INITIAL.

Get the domain values as F4 help

PERFORM get_domain_value.

ENDIF.

*Check for Message type on selection screen

AT SELECTION-SCREEN ON s_mestyp.

IF NOT s_mestyp IS INITIAL.

Data fetch : Logical message types

SELECT COUNT( * ) FROM edmsg

WHERE msgtyp IN s_mestyp.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

*Check for Basic type on selection screen

AT SELECTION-SCREEN ON s_idoctp.

IF NOT s_idoctp IS INITIAL.

Data fetch : Basic types

SELECT COUNT( * ) FROM edbas

WHERE idoctyp IN s_idoctp.

IF sy-subrc NE 0.

MESSAGE e429(mo).

ENDIF.

*&----

*& Form GET_F4HELP

*&----

text

*----

-->P_L_RC text

*----

FORM get_f4help USING p_l_rc LIKE sy-subrc.

DATA : l_v_segment LIKE edsappl-segtyp.

DATA : l_t_help_value LIKE help_value OCCURS 0 WITH HEADER LINE.

Segment name

l_v_segment = p_segnam.

Data fetch : EDI: IDoc Segment Application Structure

SELECT pos fieldname FROM edsappl

INTO CORRESPONDING FIELDS OF TABLE g_t_appl

WHERE segtyp = l_v_segment

ORDER BY pos.

Popup having data

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'

EXPORTING

endpos_col = 110

endpos_row = 16

startpos_col = 90

startpos_row = 1

titletext = text-001

IMPORTING

choise = g_v_tabix

TABLES

valuetab = g_t_appl

EXCEPTIONS

break_off = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Return code

p_l_rc = sy-subrc.

ENDFORM. " GET_F4HELP

*&----

*& Form GET_DOMAIN_VALUE

*&----

text

*----

-->P_L_RC text

*----

FORM get_domain_value.

DD: Domain header with text

DATA : l_s_dd01v LIKE dd01v.

Value table

DATA : l_v_valuetab LIKE l_s_dd01v-entitytab.

RFC Table Read: Description of Fields to Retrieve

DATA : l_t_db_fld LIKE rfc_db_fld OCCURS 0 WITH HEADER LINE.

RFC Table Read: Select Options / WHERE Clause

DATA : l_t_options LIKE rfc_db_opt OCCURS 0 WITH HEADER LINE.

Table with a 512 byte field

DATA : l_t_valuetab LIKE tab512 OCCURS 0 WITH HEADER LINE.

*Data Dictionary access routines

CALL FUNCTION 'G_DOMAIN_READ'

EXPORTING

domain = p_fldnam

langu = sy-langu

IMPORTING

domain_attr = l_s_dd01v

EXCEPTIONS

not_found = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

l_v_valuetab = l_s_dd01v-entitytab.

l_t_db_fld-fieldname = p_fldnam.

APPEND l_t_db_fld.

External access to R/3 tables via RFC

CALL FUNCTION 'RFC_READ_TABLE'

EXPORTING

query_table = l_v_valuetab

DELIMITER = ' '
NO_DATA = ' '
ROWSKIPS = 0
ROWCOUNT = 0

TABLES

options = l_t_options

fields = l_t_db_fld

data = l_t_valuetab

EXCEPTIONS

table_not_available = 1

table_without_data = 2

option_not_valid = 3

field_not_valid = 4

not_authorized = 5

data_buffer_exceeded = 6

OTHERS = 7

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CLEAR g_v_tabix.

IF NOT l_t_valuetab[] IS INITIAL.

Popup having data

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'

EXPORTING

endpos_col = 110

endpos_row = 16

startpos_col = 90

startpos_row = 1

titletext = text-001

IMPORTING

choise = g_v_tabix

TABLES

valuetab = l_t_valuetab

EXCEPTIONS

break_off = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

READ TABLE l_t_valuetab INDEX g_v_tabix.

CHECK sy-subrc = 0.

Fill the select-options of Fieldvalue

s_fldval-low = l_t_valuetab-wa.

s_fldval-sign = 'I'.

s_fldval-option = 'EQ'.

APPEND s_fldval.

ENDIF.

ENDFORM. " GET_DOMAIN_VALUE

*----

INCLUDE Y16S_VIEW_IDOC_CONTENT_F01I *

*----

*&----

*& Module STATUS_0100 OUTPUT

*&----

ALV grid output

*----

MODULE status_0100 OUTPUT.

*set the screen elements

SET PF-STATUS 'MAIN100'.

SET TITLEBAR 'TITLE100'.

*instantiation

IF g_custom_container IS INITIAL.

g_v_layout-zebra = 'X'.

g_v_layout-sel_mode = 'A'.

Create custom container

CREATE OBJECT g_custom_container

EXPORTING container_name = g_container.

Create ALV grid

CREATE OBJECT grid1

EXPORTING i_parent = g_custom_container.

CREATE OBJECT g_v_recv EXPORTING grid_name = grid1.

Display ALV grid

CALL METHOD grid1->set_table_for_first_display

EXPORTING

i_save = g_c_save

is_layout = g_v_layout

is_print = g_f_print

is_variant = g_f_variant

CHANGING

it_fieldcatalog = g_t_fieldcat

it_outtab = refresh_table_display.

ENDIF.

User command

SET HANDLER g_v_recv->handle_user_command FOR grid1.

CALL METHOD grid1->set_toolbar_interactive.

ENDMODULE. " STATUS_0100 OUTPUT

*&----

*& Module USER_COMMAND_0100 INPUT

*&----

User actions on grid

*----

MODULE user_command_0100 INPUT.

Dispatch the okcode

CALL METHOD cl_gui_cfw=>dispatch.

CASE g_f_okcode.

WHEN g_c_exit.

PERFORM exit_program.

WHEN OTHERS.

*do nothing

ENDCASE.

CLEAR g_f_okcode.

ENDMODULE. " USER_COMMAND_0100 INPUT

*&----

*& Form EXIT_PROGRAM

*&----

Exit from the Grid

*----

--> p1 text
<-- p2 text

*----

FORM exit_program.

Container for Custom Controls in the Screen Area

CALL METHOD g_custom_container->free.

*Control Framework Basic Class

CALL METHOD cl_gui_cfw=>flush.

Call the selection screen

SET SCREEN 0.

LEAVE SCREEN.

ENDFORM. " EXIT_PROGRAM

*&----

*& Form GET_FCAT

*&----

Field catalog fill

*----

--> p1 text
<-- p2 text

*----

FORM get_fcat.

*Segment details regarding fields

PERFORM get_segment_details.

Populate the Fieldcatalog

PERFORM fill_fieldcat.

IF g_f_variant-variant IS INITIAL.

Get the default variant

g_f_repid = sy-repid.

CLEAR : g_f_variant.

g_f_variant-report = g_f_repid.

g_r_x_variant = g_f_variant.

Get default variant

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

i_save = g_c_save

CHANGING

cs_variant = g_r_x_variant

EXCEPTIONS

not_found = 2.

g_f_variant = g_r_x_variant.

g_f_variant-variant = 'X'.

ENDIF.

ENDFORM. " GET_FCAT

*&----

*& Form FILL_DATA

*&----

Fill the output internal table

*----

--> p1 text
<-- p2 text

*----

FORM fill_data.

FIELD-SYMBOLS TYPE ANY.

DATA : l_rc LIKE sy-subrc.

*Get the IDoc data

PERFORM get_data.

LOOP AT g_t_edid.

*Check for filtering the values

IF ( NOT ( p_fldnam IS INITIAL AND s_fldval[] IS INITIAL ) ).

Field value check

PERFORM check_fieldvalue USING l_rc.

IF l_rc NE 0.

CONTINUE.

ENDIF.

ASSIGN LOCAL COPY OF g_t_edid TO .

ENDLOOP.

ENDFORM. " FILL_DATA

*&----

*& Form DISPLAY_GRID

*&----

Display ALV grid

*----

--> p1 text
<-- p2 text

*----

FORM display_grid.

Call ALV grid

CALL SCREEN 100.

ENDFORM. " DISPLAY_GRID

*&----

*& Form CHECK_FIELDVALUE

*&----

Check the fieldvalue

*----

-->P_L_RC text

*----

FORM check_fieldvalue USING p_l_rc LIKE sy-subrc.

Segment data

ASSIGN g_t_edid-sdata TO CASTING TYPE (p_segnam).

Segment fields

LOOP AT g_t_segment WHERE fieldname = p_fldnam.

ASSIGN COMPONENT g_t_segment-fieldname

OF STRUCTURE IN s_fldval.

p_l_rc = 0.

ELSE.

p_l_rc = 4.

ENDIF.

ENDLOOP.

ENDFORM. " CHECK_FIELDVALUE

*&----

*& Form GET_DATA

*&----

Get the IDoc data

*----

--> p1 text
<-- p2 text

*----

FORM get_data.

*Clear the header line of the internal table

CLEAR : g_t_edid,

g_t_edidc.

Clear the body of the internal table

REFRESH : g_t_edid,

g_t_edidc.

*Data fetch : Control record (IDoc)

SELECT docnum credat mestyp FROM edidc

INTO TABLE g_t_edidc

WHERE docnum IN s_idocnm AND

credat IN s_date AND

mestyp IN s_mestyp AND

idoctp IN s_idoctp.

*Date/Message type if not initial

IF ( ( NOT ( s_date[] IS INITIAL ) )

OR ( NOT ( s_mestyp[] IS INITIAL ) )

OR ( NOT ( s_idoctp[] IS INITIAL ) ) ).

Check the control record of the IDoc

PERFORM check_control_data.

ELSE.

Data fetch : IDoc Data Records from 4.0 onwards

SELECT docnum segnum sdata FROM edid4 INTO TABLE g_t_edid

WHERE docnum IN s_idocnm AND

segnam EQ p_segnam.

ENDIF.

ENDFORM. " GET_DATA

*&----

*& Form CHECK_CONTROL_DATA

*&----

Check the control data of IDoc

*----

--> p1 text
<-- p2 text

*----

FORM check_control_data.

CHECK NOT g_t_edidc[] IS INITIAL.

Data fetch : IDoc Data Records from 4.0 onwards

SELECT docnum segnum sdata FROM edid4 INTO TABLE g_t_edid

WHERE docnum IN s_idocnm AND

segnam EQ p_segnam.

LOOP AT g_t_edid.

READ TABLE g_t_edidc WITH KEY docnum = g_t_edid-docnum.

*Check for the correct MT

IF sy-subrc = 0.

CONTINUE.

ELSE.

*Delete, if unsuccessful

DELETE g_t_edid.

ENDIF.

ENDLOOP.

ENDFORM. " CHECK_CONTROL_DATA

*&----

*& Form GET_SEGMENT_DETAILS

*&----

Segment details regarding fields

*----

--> p1 text
<-- p2 text

*----

FORM get_segment_details.

Segment name

g_f_segment = p_segnam.

CALL FUNCTION 'NAMETAB_GET'

EXPORTING

langu = sy-langu

tabname = g_f_segment

TABLES

nametab = g_t_segment

EXCEPTIONS

internal_error = 1

table_has_no_fields = 2

table_not_activ = 3

no_texts_found = 4

OTHERS = 5.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " GET_SEGMENT_DETAILS

*&----

*& Form FILL_FIELDCAT

*&----

Populate the Fieldcatalog

*----

--> p1 text
<-- p2 text

*----

FORM fill_fieldcat.

DATA : lv_pos TYPE i.

IDoc number in the catalog

lv_pos = 1.

g_r_fieldcat-fieldname = 'DOCNUM'.

g_r_fieldcat-ref_table = 'EDID4'.

g_r_fieldcat-ref_field = 'DOCNUM'.

g_r_fieldcat-key = 'X'.

g_r_fieldcat-col_pos = lv_pos.

g_r_fieldcat-outputlen = '10'.

APPEND g_r_fieldcat TO g_t_fieldcat.

Segment number in the catalog

ADD 1 TO lv_pos.

g_r_fieldcat-fieldname = 'SEGNUM'.

g_r_fieldcat-ref_table = 'EDID4'.

g_r_fieldcat-ref_field = 'SEGNUM'.

g_r_fieldcat-key = 'X'.

g_r_fieldcat-col_pos = lv_pos.

g_r_fieldcat-outputlen = '10'.

g_r_fieldcat-colddictxt = 'X'.

g_r_fieldcat-reptext = text-002.

APPEND g_r_fieldcat TO g_t_fieldcat.

**Populating fieldcatalog with segment field

LOOP AT g_t_segment .

ADD 1 TO lv_pos.

CLEAR g_r_fieldcat.

g_r_fieldcat-fieldname = g_t_segment-fieldname .

g_r_fieldcat-ref_table = p_segnam.

g_r_fieldcat-ref_field = g_t_segment-fieldname .

g_r_fieldcat-key = 'X'.

g_r_fieldcat-col_pos = lv_pos.

g_r_fieldcat-outputlen = '10'.

Check for given fields on the selection screen

IF NOT g_t_segment-fieldname IN s_fldnam.

g_r_fieldcat-no_out = 'X'.

ENDIF.

*Column text

IF g_t_segment-fieldtext IS INITIAL.

*Get the DDIC texts for columns

PERFORM get_ddic_texts.

ENDIF.

APPEND g_r_fieldcat TO g_t_fieldcat.

ENDLOOP.

ENDFORM. " FILL_FIELDCAT

*&----

*& Form GET_DDIC_TEXTS

*&----

Get the DDIC texts

*----

--> p1 text
<-- p2 text

*----

FORM get_ddic_texts.

DATA : l_f_descr TYPE string.

Get the texts for the data element

CALL FUNCTION 'TB_DATAELEMENT_GET_TEXTS'

EXPORTING

name = g_t_segment-fieldname

IMPORTING

description = l_f_descr

LENGTH_FIELD =
LENGTH_HEADER =
LENGTH_LONG =
LENGTH_MIDDLE =
LENGTH_SHORT =
TEXT_HEADER =
TEXT_LONG =
TEXT_MIDDLE =
TEXT_SHORT =

EXCEPTIONS

not_found = 1

OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*Add DDIC text..

g_r_fieldcat-colddictxt = 'X'.

g_r_fieldcat-reptext = l_f_descr.

ENDFORM. " GET_DDIC_TEXTS

Re: dynamic internal table

Former Member — Mon, 21 Aug 2006 11:39:43 GMT

Hi vamsi,

For this purpose,

in my program,

there is an INDEPENDENT FORM

whose inputs are

TABLE NAME / STRUCTURE NAME

and from those, it consructs dynamic table.

2. Here is the program.

the dynamic table name will be

<DYNTABLE>.

3. U can use this program (FORM in this program)

to generate any kind of internal table

by specifying TABLE NAME .

REPORT abc.

*----

COMPULSORY

FIELD-SYMBOLS: <dyntable> TYPE ANY TABLE.

FIELD-SYMBOLS: <dynline> TYPE ANY.

DATA: lt TYPE lvc_t_fcat.

DATA: ls TYPE lvc_s_fcat.

FIELD-SYMBOLS: <fld> TYPE ANY.

DATA : fldname(50) TYPE c.

*----

parameters : iname LIKE dd02l-tabname.

*----

START-OF-SELECTION.

*----

PERFORM

PERFORM mydyntable USING lt.

BREAK-POINT.

*----

INDEPENDENT FORM

*----

FORM mydyntable USING ptabname.

*----

Create Dyn Table From FC

FIELD-SYMBOLS: <fs_data> TYPE REF TO data.

FIELD-SYMBOLS: <fs_1>.

FIELD-SYMBOLS: <fs_2> TYPE ANY TABLE.

DATA: lt_data TYPE REF TO data.

data : lt TYPE lvc_t_fcat .

DATA : ddfields LIKE ddfield OCCURS 0 WITH HEADER LINE.

*----

CALL FUNCTION 'DD_NAMETAB_TO_DDFIELDS'

EXPORTING

tabname = iname

TABLES

ddfields = ddfields.

*----

CONSTRUCT FIELD LIST

LOOP AT ddfields.

ls-fieldname = ddfields-fieldname.

APPEND ls TO lt.

ENDLOOP.

ASSIGN lt_data TO <fs_data>.

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING

it_fieldcatalog = lt

IMPORTING

ep_table = <fs_data>

EXCEPTIONS

generate_subpool_dir_full = 1

OTHERS = 2.

IF sy-subrc <> 0.

ENDIF.

*----

Assign Dyn Table To Field Sumbol

ASSIGN <fs_data>->* TO <fs_1>.

ASSIGN <fs_1> TO <fs_2>.

ASSIGN <fs_1> TO <dyntable>.

ENDFORM. "MYDYNTABLE

regards,

amit m.

Re: dynamic internal table

Former Member — Mon, 21 Aug 2006 11:50:09 GMT

Hi Vamshi,

Checkout the below thread

/people/subramanian.venkateswaran2/blog/2004/11/19/dynamic-internal-table

Thanks

Sudheer

Re: dynamic internal table

uwe_schieferstein — Mon, 21 Aug 2006 17:03:23 GMT

Hello Vamsi

The solution provided by the previous SDN user should not work because the problem is that LVC_T_STYL is a table type and not flat. So even if you add the fields of the flat structure LVC_S_STYL to the fieldcatalog for the dynamic table create you will only generate a flat LVC_S_STYL appendix to you dynamic itab.

For the moment I do not see any solution to your problem.

Regards

Uwe

Re: dynamic internal table

Former Member — Mon, 21 Aug 2006 17:14:09 GMT

Hai Vamsi,

Check the following Code

You can put a check depending on your condition you can pass the table parameters to the FM..Ex:-If condition1 is true. Perform gui_upload tables ITAB1.elseif condition2 is true. Perform gui_upload tables ITAB2.endif.Form gui_upload tables ITAB structure ....

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = LDF_FILENAME3 FILETYPE = LDF_TYPE1 HAS_FIELD_SEPARATOR = 'X'

TABLES

DATA_TAB = ITAB

EXCEPTIONS

FILE_OPEN_ERROR = 1 FILE_READ_ERROR = 2 NO_BATCH = 3 GUI_REFUSE_FILETRANSFER = 4 INVALID_TYPE = 5 NO_AUTHORITY = 6 UNKNOWN_ERROR = 7 BAD_DATA_FORMAT = 8 HEADER_NOT_ALLOWED = 9 SEPARATOR_NOT_ALLOWED = 10 HEADER_TOO_LONG = 11 UNKNOWN_DP_ERROR = 12 ACCESS_DENIED = 13 DP_OUT_OF_MEMORY = 14 DISK_FULL = 15 DP_TIMEOUT = 16 OTHERS = 17 .

IF SY-SUBRC <> 0.

MESSAGE E506 WITH 'UPLOAD' 'SY-SUBRC=' SY-SUBRC SPACE. ENDIF.

Endform.

Regards

Sreeni