Dictionary Table download in to Excel

Question

Dear All,
i want to download the Dictionary table contents with field name ( Z tables and standard  tables ) into Excel, is there any standard FM or Report which will solve this purpose.
user does't want to use se16 or se11 download facility, he wants direct execution after entering the table name.
Pls suggest.
Regards
Raj

Answer 1

Hi Raja
Use this report to download any table in excel format :
REPORT ztable_download.
PARAMETERS p_tab LIKE rsrd1-tbma_val.
DATA  : struct_type TYPE REF TO cl_abap_structdescr,
        itab_type   TYPE REF TO cl_abap_tabledescr,
        table_ref TYPE REF TO data.
FIELD-SYMBOLS : <f_tab> TYPE STANDARD TABLE.
START-OF-SELECTION.
  struct_type ?= cl_abap_typedescr=>describe_by_name( p_tab ).
  itab_type   = cl_abap_tabledescr=>create( struct_type ).
  CREATE DATA table_ref TYPE HANDLE itab_type.
  ASSIGN table_ref->* TO <f_tab>.
  SELECT *  FROM (p_tab) INTO TABLE <f_tab>.
  CALL FUNCTION 'DOWNLOAD'
   EXPORTING
        BIN_FILESIZE                  = ' '
        CODEPAGE                      = ' '
        FILENAME                      = ' '
     filetype                      = 'DAT'
        ITEM                          = ' '
        MODE                          = ' '
        WK1_N_FORMAT                  = ' '
        WK1_N_SIZE                    = ' '
        WK1_T_FORMAT                  = ' '
        WK1_T_SIZE                    = ' '
        FILEMASK_MASK                 = ' '
        FILEMASK_TEXT                 = ' '
        FILETYPE_NO_CHANGE            = ' '
        FILEMASK_ALL                  = ' '
        FILETYPE_NO_SHOW             = ' '
        SILENT                        = 'S'
        COL_SELECT                    = ' '
        COL_SELECTMASK                = ' '
        NO_AUTH_CHECK                 = ' '
      IMPORTING
        ACT_FILENAME                  =
        ACT_FILETYPE                  =
        FILESIZE                      =
        CANCEL                        =
    TABLES
      data_tab                      = <f_tab>
        FIELDNAMES                    =
   EXCEPTIONS
     invalid_filesize              = 1
     invalid_table_width           = 2
     invalid_type                  = 3
     no_batch                      = 4
     unknown_error                 = 5
     gui_refuse_filetransfer       = 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.
I hope it helps
Bulent