How to download data into excel by displaying field names in top 2 rows

Question

Hi experts,
         i am trying to download an internal table data into excel(open office) by reserving top 2 rows. In 1st row i want to display tech.name where as in 2nd row i want to display discription of tech name of the fields. Well, i tried with FM gui_upload and used fieldnames  parameter and even its working too but i'm unable to work with 2nd col.
Please help me out....
with regards.
Praveen.

Answer 1

Try this code:
If IT_FINAL is the internal table containing the data that you want to download :
IF IT_FINAL[] IS INITIAL.
    WRITE : 'No Data Fetched'.
  ELSE.
  Build header table Field catelague
    PERFORM UR_FIELDCAT_BUILD USING G_F_REPNM
                                    'IT_FINAL'
                             CHANGING IT_FCAT_001.
    DATA: L_F_LINES TYPE I,
          L_F_FROM TYPE I,
          L_F_TO TYPE I,
          L_F_DIFF TYPE I,
          L_TEMP_FINAL LIKE TABLE OF IT_FINAL.
    DESCRIBE TABLE IT_FINAL LINES L_F_LINES.
    IF L_F_LINES > 16000.
      L_F_FROM = 1.
      L_F_TO = 16000.
      DO.
        APPEND LINES OF IT_FINAL FROM L_F_FROM
                                          TO L_F_TO TO L_TEMP_FINAL.
        PERFORM DOWNLOAD_DATA_HEADER TABLES L_TEMP_FINAL
                                               IT_FCAT_001
                                         USING GF_FILE1.
        IF L_F_TO >= L_F_LINES.
          EXIT.
        ENDIF.
        L_F_FROM = L_F_TO + 1.
        L_F_DIFF = L_F_LINES - L_F_TO.
        IF L_F_DIFF >= 16000.
          L_F_TO = L_F_TO + 16001.
        ELSE.
          L_F_TO = L_F_LINES.
        ENDIF.
        REFRESH: L_TEMP_FINAL.
     ENDDO.
   ELSE.
     PERFORM DOWNLOAD_DATA_HEADER TABLES IT_FINAL
                                     IT_FCAT_001
                              USING GF_FILE1.
   ENDIF.
ENDIF.
FORM UR_FIELDCAT_BUILD
             USING P_REPID
                   P_TABNAM
CHANGING C_T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
   REFRESH C_T_FIELDCAT.
   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
        EXPORTING
             I_PROGRAM_NAME         = P_REPID
             I_INTERNAL_TABNAME     = P_TABNAM
           I_STRUCTURE_NAME       = 'TY_FLODAT'
             I_INCLNAME             = P_REPID
             I_BYPASSING_BUFFER     = 'X'
        CHANGING
             CT_FIELDCAT            = C_T_FIELDCAT
        EXCEPTIONS
             INCONSISTENT_INTERFACE = 1
             PROGRAM_ERROR          = 2
             OTHERS                 = 3.
ENDFORM.
FORM DOWNLOAD_DATA_HEADER
              TABLES T_OUTTAB
              T_FIELDCAT
              USING P_FILENAM.
   TYPE-POOLS: SLIS.
   REPLACE 'YYYYMMDD' WITH SY-DATUM INTO P_FILENAM.
   DATA: T_GXXLT_O    TYPE TABLE OF GXXLT_O WITH HEADER LINE,
         T_GXXLT_H    TYPE TABLE OF GXXLT_H WITH HEADER LINE,
         T_GXXLT_H_TEMP TYPE TABLE OF GXXLT_H WITH HEADER LINE,
         T_GXXLT_P    TYPE TABLE OF GXXLT_P WITH HEADER LINE,
         T_GXXLT_S    TYPE TABLE OF GXXLT_S WITH HEADER LINE,
         T_GXXLT_V    TYPE TABLE OF GXXLT_V WITH HEADER LINE,
         L_S_FIELDCAT TYPE SLIS_FIELDCAT_ALV..
   DATA: F_FILE       TYPE GXXLT_F-FILE,
         F_ATT_COLS   TYPE I,
         F_HRZ_KEYS   TYPE I,
         F_VRT_KEYS   TYPE I.
TYPES: BEGIN OF TY_FLDNM,
           FIELDNAME(30) TYPE C,
        END   OF TY_FLDNM.
DATA : L_T_FLDNAME TYPE TABLE OF TY_FLDNM,
        L_R_FLDNAME TYPE TY_FLDNM.
REFRESH:  L_T_FLDNAME.
LOOP AT T_FIELDCAT INTO L_S_FIELDCAT .
   CLEAR L_R_FLDNAME.
   CONCATENATE  L_S_FIELDCAT-SELTEXT_S  '_'
                L_S_FIELDCAT-FIELDNAME
    INTO L_R_FLDNAME-FIELDNAME.
   APPEND L_R_FLDNAME TO L_T_FLDNAME.
ENDLOOP.
IF T_OUTTAB[] IS INITIAL.
   WRITE : /'No data Fetch !'.
ELSE.
   DESCRIBE TABLE T_FIELDCAT LINES F_ATT_COLS.
   LOOP AT T_FIELDCAT INTO L_S_FIELDCAT.
     T_GXXLT_H-COL_NO        = L_S_FIELDCAT-COL_POS.
     T_GXXLT_H-ROW_NO        = 1.
     T_GXXLT_H-COL_NAME      = L_S_FIELDCAT-FIELDNAME.
     APPEND T_GXXLT_H.
     CLEAR T_GXXLT_S.
     T_GXXLT_S-COL_NO        = L_S_FIELDCAT-COL_POS.
     T_GXXLT_S-COL_OPS       = 'NOP'.
     T_GXXLT_S-COL_SRC       = L_S_FIELDCAT-COL_POS.
     CASE L_S_FIELDCAT-INTTYPE.
       WHEN 'Z' OR 'P' OR 'I' OR 'F'.
         T_GXXLT_S-COL_TYP   = 'NUM'.
       WHEN 'C' OR 'X' OR 'T' OR 'N'.
         T_GXXLT_S-COL_TYP   = 'STR'.
       WHEN 'D'.
         T_GXXLT_S-COL_TYP   = 'DAT'.
      WHEN OTHERS.
        T_GXXLT_S-COL_TYP   = 'STR'.
    ENDCASE.
    APPEND T_GXXLT_S.
    IF L_S_FIELDCAT-KEY EQ 'X'.
      CLEAR T_GXXLT_H.
      T_GXXLT_H-COL_NO     = L_S_FIELDCAT-COL_POS.
      T_GXXLT_H-ROW_NO     = 1.
      T_GXXLT_H-COL_NAME   = L_S_FIELDCAT-FIELDNAME.
      APPEND T_GXXLT_H.
    ENDIF.
  ENDLOOP.
  MOVE P_FILENAM TO F_FILE.
  LOOP AT T_FIELDCAT INTO L_S_FIELDCAT.
    READ TABLE T_GXXLT_H WITH KEY COL_NAME = L_S_FIELDCAT-FIELDNAME.
    IF SY-SUBRC EQ 0.
      T_GXXLT_H_TEMP-COL_NO = T_GXXLT_H-COL_NO.
      T_GXXLT_H_TEMP-ROW_NO = 2.
      T_GXXLT_H_TEMP-COL_NAME =  L_S_FIELDCAT-SELTEXT_S.
      APPEND T_GXXLT_H_TEMP TO T_GXXLT_H.
      CLEAR T_GXXLT_H.
      ENDIF.
    ENDLOOP.
    CALL FUNCTION 'XXL_FULL_API'
         EXPORTING
              FILENAME          = F_FILE
              NO_START          = ''
              N_ATT_COLS        = F_ATT_COLS
              N_HRZ_KEYS        = F_HRZ_KEYS
              N_VRT_KEYS        = F_VRT_KEYS
              SEMA_TYPE         = ''
              SO_TITLE          = ''
         TABLES
              DATA              = T_OUTTAB
              HKEY              = T_GXXLT_H
              ONLINE_TEXT       = T_GXXLT_O
              PRINT_TEXT        = T_GXXLT_P
              SEMA              = T_GXXLT_S
              VKEY              = T_GXXLT_V
         EXCEPTIONS
              CANCELLED_BY_USER = 1
              DATA_TOO_BIG      = 2
              DIM_MISMATCH_DATA = 3
              DIM_MISMATCH_SEMA = 4
              DIM_MISMATCH_VKEY = 5
            ERROR_IN_HKEY     = 6
            ERROR_IN_SEMA     = 7
            FILE_OPEN_ERROR   = 8
            FILE_WRITE_ERROR  = 9
            INV_DATA_RANGE    = 10
            INV_WINSYS        = 11
            INV_XXL           = 12
            OTHERS            = 13.
  ENDIF.
ENDFORM.