Header to internal table fields

Question

Hi All,
How can I add header description to the internal table fields and download this internal table to desktop as EXCEL form.
I want to show heading in the first line of the excel and then 2 - 3 blank lines and then next line should be populated with DATE and Exec. Time, then 2-3 blank lines , then the data with the header description to be displayed.
My sample internal table data is as below,
John         M         12          2344
Thomas    M         17          8960
Lin            F          10         8467
Jan           M          12        4323
I need to add, description as NAME above  John, Thomas, Lin etc.
                                         as GENDER above M,M,F etc.
                                         as CODE     above 12, 17,10 etc. and
                                         as EXTENTION above 2344, 8960,8467 etc
final execl sheet should be as below,
COMPANY DATA
DATE   28 - 08 - 2009                   TIME      12:32
NAME    GENDER   CODE   EXTENTION
John           M             12         2344
Thomas      M             17          8960
Lin              F              10         8467
Jan             M             12        4323
Please let me know, how to do this.
Thanks in advance ,
Sabu

Answer 1

Hi,
Kindly go through this sample code below:
"Create T_Head internal table with the required structure for the header
*func mod to download header and contents to the given path
call function 'GUI_DOWNLOAD'
exporting
write_field_separator = 'X'
filename              = v_pathname      "path entered by the user
tables
data_tab              = t_head.             "Header Internal table
refresh t_head.
clear t_head.
call function 'GUI_DOWNLOAD'
exporting
*   BIN_FILESIZE                    =
    filename                        = v_pathname
    filetype                        = 'ASC'
    append                          = 'X'                     "Here by giving 'X', header will be appended in the download int table
    write_field_separator           = 'X'
*   HEADER                          = '00'
*   TRUNC_TRAILING_BLANKS           = ' '
*   WRITE_LF                        = 'X'
*   COL_SELECT                      = ' '
*   COL_SELECT_MASK                 = ' '
*   DAT_MODE                        = ' '
*   CONFIRM_OVERWRITE               = ' '
*   NO_AUTH_CHECK                   = ' '
*   CODEPAGE                        = ' '
*   IGNORE_CERR                     = ABAP_TRUE
*   REPLACEMENT                     = '#'
*   WRITE_BOM                       = ' '
*   TRUNC_TRAILING_BLANKS_EOL       = 'X'
*   WK1_N_FORMAT                    = ' '
*   WK1_N_SIZE                      = ' '
*   WK1_T_FORMAT                    = ' '
*   WK1_T_SIZE                      = ' '
* IMPORTING
*   FILELENGTH                      =
    tables
    data_tab                        = itab
*   FIELDNAMES                      =
  exceptions
file_write_error                = 1
no_batch                        = 2
gui_refuse_filetransfer         = 3
invalid_type                    = 4
no_authority                    = 5
unknown_error                   = 6
header_not_allowed              = 7
separator_not_allowed           = 8
filesize_not_allowed            = 9
header_too_long                 = 10
dp_error_create                 = 11
dp_error_send                   = 12
dp_error_write                  = 13
unknown_dp_error                = 14
access_denied                   = 15
dp_out_of_memory                = 16
disk_full                       = 17
dp_timeout                      = 18
file_not_found                  = 19
dataprovider_exception          = 20
control_flush_error             = 21
others                          = 22
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endif.
Hope it helps
Regards
Mansi