Create Table Control using Dynamic Internal Table.

[premal_mistry2]

Hi,

I have requirement in which I will create a Dynamic Internal Table and then I need to create a Table Control Using that Internal Table. Now this can't be done using Screen Editor as it requires a pre-defined internal table or a DDIC Object.

Please Help.

[Former Member]

HI,

Check the code in the link,

http://hometown.aol.com/skarkada/sap/table_control/table_control.htm

Regards,

anirban

[premal_mistry2]

Thanks Anir for the quick reply, but I already know this method. But this will not apply to my case, as in my case the internal table from which I am making the table control is decided at the run-time only...

i.e. my internal table structure will be decided at runtime ...

Edited by: Premal Mistry on Aug 29, 2008 8:54 AM

[Former Member]

This cannot be done in my openion.

Regards,

Ram.

[Former Member]

Instead take a modulepool screen create a container ( Normally secand icon from bottom in layout ). Call an ALV report on to this, because dynamic internal table can be viewed in ALV format.

Regards,

Rama.

[premal_mistry2]

done !!

[Former Member]

This should be correct answer(I am not author of code below):

REPORT ztablemaintace NO STANDARD PAGE HEADING.



TYPE-POOLS: rsds.



DATA: is_x030l TYPE x030l,

it_dfies TYPE TABLE OF dfies,

is_dfies TYPE dfies,

it_fdiff TYPE TABLE OF field_dif,

is_fdiff TYPE field_dif.



DATA: w_selid TYPE rsdynsel-selid,

it_tables TYPE TABLE OF rsdstabs,

is_tables TYPE rsdstabs,

it_fields TYPE TABLE OF rsdsfields,

it_expr TYPE rsds_texpr,

it_ranges TYPE rsds_trange,

it_where TYPE rsds_twhere,

is_where TYPE rsds_where,

w_active TYPE i.



DATA: it_content TYPE REF TO data,

it_modif TYPE REF TO data,

it_fcat TYPE lvc_t_fcat.



DATA: w_okcode TYPE sy-ucomm.





FIELD-SYMBOLS: <itab> TYPE STANDARD TABLE,

<ntab> TYPE STANDARD TABLE.





* Macros

DEFINE table_error.

  message e398(00) with 'Table' p_table &1.

END-OF-DEFINITION.



DEFINE fixed_val.

  is_fdiff-fieldname = is_dfies-fieldname.

  is_fdiff-fixed_val = &1.

  is_fdiff-no_input = 'X'.

  append is_fdiff to it_fdiff.

END-OF-DEFINITION.





* Selection screen

SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME.

PARAMETERS: p_table TYPE tabname OBLIGATORY "table

MEMORY ID dtb

MATCHCODE OBJECT dd_dbtb_16.

SELECTION-SCREEN: BEGIN OF LINE,

PUSHBUTTON 33(20) selopt USER-COMMAND sel,

COMMENT 55(15) selcnt,

END OF LINE.

SELECTION-SCREEN: SKIP.

PARAMETERS: p_rows TYPE i. "rows

SELECTION-SCREEN: END OF BLOCK b01,

SKIP,

BEGIN OF BLOCK b02 WITH FRAME.

PARAMETERS: p_displ TYPE c AS CHECKBOX. "display

SELECTION-SCREEN: END OF BLOCK b02.



* Initialization

INITIALIZATION.

  MOVE '@4G@ Filter records' TO selopt.



* PBO

AT SELECTION-SCREEN OUTPUT.

  IF w_active IS INITIAL.

    CLEAR: selcnt.

  ELSE.

    WRITE w_active TO selcnt LEFT-JUSTIFIED.

  ENDIF.



* PAI

AT SELECTION-SCREEN.

  IF p_table NE is_x030l-tabname.

    CALL FUNCTION 'DDIF_NAMETAB_GET'

      EXPORTING

        tabname   = p_table

      IMPORTING

        x030l_wa  = is_x030l

      TABLES

        dfies_tab = it_dfies

      EXCEPTIONS

        OTHERS    = 1.

    IF is_x030l IS INITIAL.

      table_error 'does not exist or is not active'.

    ELSEIF is_x030l-tabtype NE 'T'.

      table_error 'is not selectable'.

*    ELSEIF is_x030l-align NE 0.

*      table_error 'has alignment - cannot continue'.

    ENDIF.



* Default values for system fields

    REFRESH: it_fdiff.

    is_fdiff-tabname = p_table.

    LOOP AT it_dfies INTO is_dfies.

      IF is_dfies-datatype = 'CLNT'.

        fixed_val sy-mandt.

      ELSEIF is_dfies-rollname = 'ERDAT'

      OR is_dfies-rollname = 'ERSDA'

      OR is_dfies-rollname = 'AEDAT'

      OR is_dfies-rollname = 'LAEDA'.

        fixed_val sy-datum.

      ELSEIF is_dfies-rollname = 'ERTIM'

      OR is_dfies-rollname = 'AETIM'.

        fixed_val sy-uzeit.

      ELSEIF is_dfies-rollname = 'ERNAM'

      OR is_dfies-rollname = 'AENAM'.

        fixed_val sy-uname.

      ENDIF.



      CALL FUNCTION '/SAPDMC/DATAELEMENT_GET_TEXTS'

        EXPORTING

          name        = is_dfies-rollname

        IMPORTING

          text_middle = is_dfies-reptext

        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.



      MODIFY it_dfies FROM is_dfies.

  ENDLOOP.



* Prepare free selection on table

  REFRESH it_tables.

  is_tables-prim_tab = p_table.

  APPEND is_tables TO it_tables.



  CLEAR: w_selid.

ENDIF.



IF sy-ucomm = 'SEL'.

  IF w_selid IS INITIAL.

* Init free selection dialog

    CALL FUNCTION 'FREE_SELECTIONS_INIT'

      EXPORTING

        expressions  = it_expr

      IMPORTING

        selection_id = w_selid

        expressions  = it_expr

      TABLES

        tables_tab   = it_tables

      EXCEPTIONS

        OTHERS       = 1.

  ENDIF.



* Display free selection dialog

  CALL FUNCTION 'FREE_SELECTIONS_DIALOG'

    EXPORTING

      selection_id            = w_selid

      title                   = 'Selection'

      status                  = 1

      as_window               = 'X'

    IMPORTING

      expressions             = it_expr

      field_ranges            = it_ranges

      number_of_active_fields = w_active

    TABLES

      fields_tab              = it_fields

    EXCEPTIONS

      OTHERS                  = 1.

ENDIF.





* Start of processing

START-OF-SELECTION.



  PERFORM f_create_table USING p_table.



  PERFORM f_select_table.



  PERFORM f_display_table.





*---------------------------------------------------------------------*

* FORM f_create_table *

*---------------------------------------------------------------------*

FORM f_create_table USING in_tabname.



  FIELD-SYMBOLS: <fcat> TYPE lvc_s_fcat.



  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

    EXPORTING

      i_structure_name = in_tabname

    CHANGING

      ct_fieldcat      = it_fcat

    EXCEPTIONS

      OTHERS           = 1.

  IF sy-subrc = 0.

*   Complete field catalog

    LOOP AT it_fcat ASSIGNING <fcat>.

      <fcat>-tabname = in_tabname.

    ENDLOOP.

    CALL FUNCTION 'LVC_FIELDCAT_COMPLETE'

      CHANGING

        ct_fieldcat = it_fcat

      EXCEPTIONS

        OTHERS      = 1.

  ELSE.

    WRITE: 'Error building field catalog'.

    STOP.

  ENDIF.



* Create dynamic table for data

  CALL METHOD cl_alv_table_create=>create_dynamic_table

    EXPORTING

      it_fieldcatalog = it_fcat

    IMPORTING

      ep_table        = it_content.

  IF sy-subrc = 0.

    ASSIGN it_content->* TO <itab>.

  ELSE.

    WRITE: 'Error creating internal table'.

    STOP.

  ENDIF.



* Create dynamic table for modif

  CALL METHOD cl_alv_table_create=>create_dynamic_table

    EXPORTING

      it_fieldcatalog = it_fcat

    IMPORTING

      ep_table        = it_modif.

  IF sy-subrc = 0.

    ASSIGN it_modif->* TO <ntab>.

  ELSE.

    WRITE: 'Error creating internal table'.

    STOP.

  ENDIF.



ENDFORM.                    "f_create_table





*---------------------------------------------------------------------*

* FORM f_select_table *

*---------------------------------------------------------------------*

FORM f_select_table.



  IF w_active = 0.

    SELECT * FROM (p_table)

    INTO CORRESPONDING FIELDS OF TABLE <itab>

    UP TO p_rows ROWS.

  ELSE.

* Selection with parameters

    CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_WHERE'

      EXPORTING

        field_ranges  = it_ranges

      IMPORTING

        where_clauses = it_where.

    READ TABLE it_where INTO is_where WITH KEY tablename = p_table.



    SELECT * FROM (p_table)

    INTO CORRESPONDING FIELDS OF TABLE <itab>

    UP TO p_rows ROWS

    WHERE (is_where-where_tab).

  ENDIF.



  IF sy-dbcnt = 0.

    WRITE: 'No record selected'.

    STOP.

  ENDIF.

ENDFORM.                    "f_select_table





*---------------------------------------------------------------------*

* FORM f_display_table *

*---------------------------------------------------------------------*

FORM f_display_table.

  DATA: l_answer TYPE c,

  l_eflag TYPE c.



  CLEAR: w_okcode.

  REFRESH: <ntab>.

* Display table contents

  CALL FUNCTION 'STC1_FULLSCREEN_TABLE_CONTROL'

    EXPORTING

      header       = p_table

      tabname      = p_table

      display_only = p_displ

      endless      = 'X'

      no_button    = space

    IMPORTING

      okcode       = w_okcode

    TABLES

*      nametab      = it_dfies

      table        = <itab>

*      fielddif     = it_fdiff

      modif_table  = <ntab>

    EXCEPTIONS

      OTHERS       = 1.

  IF sy-subrc = 0.

    IF p_displ IS INITIAL AND w_okcode = 'SAVE'.

* Confirm update

      CALL FUNCTION 'POPUP_TO_CONFIRM'

        EXPORTING

          titlebar              = p_table

          text_question         = 'Do you want to update table ?'

          default_button        = '2'

          display_cancel_button = ' '

        IMPORTING

          answer                = l_answer

        EXCEPTIONS

          OTHERS                = 1.

      IF l_answer = '1'.

* Apply modifications

        IF NOT <ntab>[] IS INITIAL.

          PERFORM f_add_system USING space.

          MODIFY (p_table) FROM TABLE <ntab>.

          IF sy-subrc NE 0.

            l_eflag = 'X'.

          ENDIF.

        ENDIF.

* Apply deletions

        IF l_eflag IS INITIAL.

          REFRESH: <ntab>.

          CALL FUNCTION 'STC1_GET_DATA'

            TABLES

              deleted_data = <ntab>

            EXCEPTIONS

              OTHERS       = 1.

          IF NOT <ntab>[] IS INITIAL.

            DELETE (p_table) FROM TABLE <ntab>.

            IF sy-subrc NE 0.

              ROLLBACK WORK.

              l_eflag = 'X'.

            ENDIF.

          ENDIF.

        ENDIF.

* Apply creations

        IF l_eflag IS INITIAL.

          REFRESH: <ntab>.

          CALL FUNCTION 'STC1_GET_DATA'

            TABLES

              new_data = <ntab>

            EXCEPTIONS

              OTHERS   = 1.

          IF NOT <ntab>[] IS INITIAL.

            PERFORM f_add_system USING 'X'.

            INSERT (p_table) FROM TABLE <ntab>.

            IF sy-subrc NE 0.

              ROLLBACK WORK.

              l_eflag = 'X'.

            ENDIF.

          ENDIF.

        ENDIF.

        IF l_eflag IS INITIAL.

          COMMIT WORK.

          MESSAGE s261(53).

        ELSE.

          MESSAGE s075(3i).

          PERFORM f_select_table.

        ENDIF.

      ENDIF.

* Display table again

      PERFORM f_display_table.

    ENDIF.

  ENDIF.



ENDFORM.                    "f_display_table





*---------------------------------------------------------------------*

* FORM f_add_system *

*---------------------------------------------------------------------*

FORM f_add_system USING new TYPE c.



  FIELD-SYMBOLS: <irec> TYPE ANY,

  <upd> TYPE ANY.



  LOOP AT it_fdiff INTO is_fdiff.

    READ TABLE it_dfies INTO is_dfies

    WITH KEY fieldname = is_fdiff-fieldname.

    LOOP AT <ntab> ASSIGNING <irec>.

      ASSIGN COMPONENT is_fdiff-fieldname OF STRUCTURE <irec> TO <upd>.

      IF is_dfies-datatype = 'CLNT'.

        <upd> = sy-mandt.

      ELSE.

        CASE is_dfies-rollname.

          WHEN 'AENAM'.

            <upd> = sy-uname.

          WHEN 'AEDAT' OR 'LAEDA'.

            <upd> = sy-datum.

          WHEN 'AETIM'.

            <upd> = sy-uzeit.

          WHEN OTHERS.

        ENDCASE.

      ENDIF.

    ENDLOOP.

  ENDLOOP.



ENDFORM.                    "f_add_system