Extract table fields meta data and put to clipboard automatically

[JerryWang]

For project reason I need to fill some excel.

The content of each column comes from content in SE11:

In order to avoid such boring task, I write a small ABAP class to automate it.

This class will first read corresponding database table name based on CRM settype id, then call function module DDIF_NAMETAB_GET to get all metadata of each table field, and then send the data to clipboard.

Once done, put the focus on the first cell of content row, press Ctrl+V, all the data from clipboard will be copied into excel automatically.

The source code could be found below:

class ZCL_EXCEL_TOOL definition

  public

  final

  create public .



public section.



  methods GET_SETTYPE_FIELDS

    importing

      !IV_SETTYPE_ID type COMT_FRGTYPE_ID default 'COMM_PR_SHTEXT' .

  PROTECTED SECTION.

private section.



  types:

    BEGIN OF ty_column,

        a_index       TYPE char3,

        b_table       TYPE dd03l-tabname,

        c_fieldname   TYPE dd03l-fieldname,

        d_element     TYPE dd03l-rollname,

        e_datatype    TYPE x031l-dtyp,

        f_length      TYPE char4,

        g_description TYPE char40,

      END OF ty_column .

  types:

    tt_column TYPE STANDARD TABLE OF ty_column WITH KEY a_index b_table c_fieldname .

  types:

    BEGIN OF ty_clipdata,

        data TYPE c LENGTH 500,

      END   OF ty_clipdata .

  types:

    tt_formatted TYPE STANDARD TABLE OF ty_clipdata .



  data MT_COLUMN type TT_COLUMN .

  data MT_FORMATTED type TT_FORMATTED .

  constants C_TAB type CHAR1 value CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB ##NO_TEXT.



  methods CONVERT .

  methods GET_FIELD_LABEL

    importing

      !IV_TAB_NAME type DDOBJNAME

      !IV_FIELD_NAME type DFIES-FIELDNAME

    returning

      value(RV_LABEL) type STRING .

ENDCLASS.







CLASS ZCL_EXCEL_TOOL IMPLEMENTATION.





* <SIGNATURE>---------------------------------------------------------------------------------------+

* | Instance Private Method ZCL_EXCEL_TOOL->CONVERT

* +-------------------------------------------------------------------------------------------------+

* +--------------------------------------------------------------------------------------</SIGNATURE>

  METHOD convert.



    LOOP AT mt_column ASSIGNING FIELD-SYMBOL(<raw>).

      APPEND INITIAL LINE TO mt_formatted ASSIGNING FIELD-SYMBOL(<converted>).

      CONCATENATE <raw>-a_index <raw>-b_table <raw>-c_fieldname <raw>-d_element <raw>-e_datatype

      <raw>-f_length <raw>-g_description INTO <converted> SEPARATED BY c_tab.

    ENDLOOP.

  ENDMETHOD.





* <SIGNATURE>---------------------------------------------------------------------------------------+

* | Instance Private Method ZCL_EXCEL_TOOL->GET_FIELD_LABEL

* +-------------------------------------------------------------------------------------------------+

* | [--->] IV_TAB_NAME                    TYPE        DDOBJNAME

* | [--->] IV_FIELD_NAME                  TYPE        DFIES-FIELDNAME

* | [<-()] RV_LABEL                       TYPE        STRING

* +--------------------------------------------------------------------------------------</SIGNATURE>

  METHOD get_field_label.

    CALL FUNCTION 'DDIF_FIELDLABEL_GET'

      EXPORTING

        tabname   = iv_tab_name

        fieldname = iv_field_name

        langu     = sy-langu

      IMPORTING

        label     = rv_label.

  ENDMETHOD.





* <SIGNATURE>---------------------------------------------------------------------------------------+

* | Instance Public Method ZCL_EXCEL_TOOL->GET_SETTYPE_FIELDS

* +-------------------------------------------------------------------------------------------------+

* | [--->] IV_SETTYPE_ID                  TYPE        COMT_FRGTYPE_ID (default ='COMM_PR_SHTEXT')

* +--------------------------------------------------------------------------------------</SIGNATURE>

  METHOD get_settype_fields.

    DATA: lv_tab  TYPE comc_settype-frgtype_tab,

          lv_ret  TYPE int4,

          lt_list TYPE STANDARD TABLE OF x031l.



    SELECT SINGLE frgtype_tab INTO lv_tab FROM comc_settype WHERE frgtype_id = iv_settype_id.

    IF sy-subrc <> 0.

      WRITE: / 'no database table maintained for settype: ', iv_settype_id.

      RETURN.

    ENDIF.



    CALL FUNCTION 'DDIF_NAMETAB_GET'

      EXPORTING

        tabname   = CONV ddobjname( lv_tab )

        status    = 'A'

      TABLES

        x031l_tab = lt_list

      EXCEPTIONS

        not_found = 1

        OTHERS    = 2.

    IF sy-subrc <> 0.

      WRITE:/ 'table metadata parse error'.

      RETURN.

    ENDIF.



    LOOP AT lt_list ASSIGNING FIELD-SYMBOL(<list>).

      APPEND INITIAL LINE TO mt_column ASSIGNING FIELD-SYMBOL(<insert>).

      <insert>-a_index = sy-tabix.

      <insert>-b_table = lv_tab.

      <insert>-c_fieldname = <list>-fieldname.

      <insert>-d_element = <list>-rollname.

      <insert>-e_datatype = <list>-dtyp.

      <insert>-f_length = CONV i( <list>-exlength ). "cast CL_ABAP_ELEMDESCR( CL_ABAP_ELEMDESCR=>describe_by_name( <list>-rollname ) )->output_length.

      <insert>-g_description = get_field_label( EXPORTING iv_tab_name = CONV #( lv_tab ) iv_field_name = <list>-fieldname ).

    ENDLOOP.



    convert( ).

    cl_gui_frontend_services=>clipboard_export(

    EXPORTING

        no_auth_check        = abap_true

        IMPORTING

          data                 = mt_formatted

        CHANGING

          rc                   = lv_ret

        EXCEPTIONS

          cntl_error           = 1

          error_no_gui         = 2

          not_supported_by_gui = 3

      ).



  ENDMETHOD.

ENDCLASS.