Reg: Field Names in GUI_DOWNLOAD

Question

Hi Sapers,
I want to keep the Field Headings in XLS file.Here I am using the FM GUI_DOWNLOAD, and passing the Tables parameter(i.e, fieldnames) .But my heading is truncated to 10 char.
as the way the FM does.
How can I satisfy my client.Plz help me out.
regards,
sri...

Answer 1

yah, sure.
here is my code, from type-pools....
*---- TYPE-POOLS DECLARATION -*
TYPE-POOLS:truxs.
*---- SELECTION SCREEN BLOCK -*
SELECTION-SCREEN BEGIN OF BLOCK sri. " WITH FRAME TITLE INPUT'.
PARAMETERS   p_bukrs TYPE t001-bukrs OBLIGATORY VALUE CHECK.
PARAMETERS : pperiod(2) TYPE c,
             pyear(4)   TYPE c,
             p_file TYPE rlgrap-filename OBLIGATORY default 'C:\Documents and Settings\srikanth\Desktop\rep1.xls'.
PARAMETERS : csvfile  RADIOBUTTON GROUP rg1,     "factfile RADIOBUTTON GROUP rg1,
             excel    RADIOBUTTON GROUP rg1 default 'X',
             text     RADIOBUTTON GROUP rg1.
SELECTION-SCREEN END OF BLOCK sri.
*---- TYPES DECLARATION -*
TYPES : BEGIN OF ty_faglflext,
          tslvt TYPE faglflext-tslvt,
          tsl01 TYPE faglflext-tsl01,
          tsl02 TYPE faglflext-tsl02,
          tsl03 TYPE faglflext-tsl03,
          tsl04 TYPE faglflext-tsl04,
          tsl05 TYPE faglflext-tsl05,
          tsl06 TYPE faglflext-tsl06,
          tsl07 TYPE faglflext-tsl07,
          tsl08 TYPE faglflext-tsl08,
          tsl09 TYPE faglflext-tsl09,
          tsl10 TYPE faglflext-tsl10,
          tsl11 TYPE faglflext-tsl11,
          tsl12 TYPE faglflext-tsl12,
          zzetbrnum TYPE zetbrmap-zzetbrnum,
        END OF ty_faglflext.
TYPES :BEGIN OF ty_bukrs,
          bukrs TYPE bukrs,
       END OF ty_bukrs.
TYPES :BEGIN OF ty_etbrtot,
          zzetbrnum TYPE zetbrmap-zzetbrnum,
          totamt TYPE tslxx12,
       END OF ty_etbrtot.
TYPES :BEGIN OF ty_currtostr,
         dfld(1) type c,
          zzetbrnum LIKE zetbrmap-zzetbrnum,
          totamt(26) TYPE c,
       END OF ty_currtostr.
TYPES : BEGIN OF ty_csv,
          comma(80) TYPE c,
        END OF ty_csv.
TYPES : BEGIN OF ty_txt,
          hfld(1) TYPE c,
          dfld(1) TYPE c,
          zzetbrnum LIKE zetbrmap-zzetbrnum,
          totamt(26) TYPE c,
          tfld(1) TYPE c,
        END OF ty_txt.
TYPES : BEGIN OF header_record,
          hfld(1) TYPE c,
          filler1(13) TYPE c,
          loc(5) TYPE c,
          filler2(10) TYPE c,
          ppyy(4) TYPE c,
          filler3(47) TYPE c,
        END OF header_record.
TYPES : BEGIN OF detail_record,
          dfld(1) TYPE c,
          gl(4) TYPE c,
          subbacc(5) TYPE c,
          bal(18) TYPE n,
          sign(1) TYPE c,
          filler(4) TYPE c,
          code(2) TYPE c,
          filler1(45) TYPE c,
        END OF detail_record.
TYPES : BEGIN OF trailer_record,
          tfld(1) TYPE c,
          filler(79) TYPE c,
        END OF trailer_record.
*---- DATA DECLARATION -*
*---- Work Area Declaration -*
DATA : wa_infaglflext TYPE ty_faglflext,
       wa_inetbrtot TYPE ty_etbrtot,
       wa_currtostr TYPE ty_currtostr,
       wa_csv TYPE ty_csv,
       wa_txt TYPE ty_txt,
       wa_header_record TYPE header_record,
       wa_detail_record TYPE detail_record,
       wa_trailer_record TYPE trailer_record.
      wa_xls type ty_xls.
*---- Internal Tables Declaration -*
DATA : infaglflext TYPE STANDARD TABLE OF ty_faglflext,
       inetbrtot TYPE STANDARD TABLE OF ty_etbrtot,
       i_currtostr TYPE TABLE OF ty_currtostr,
       i_csv TYPE STANDARD TABLE OF ty_csv,
       i_txt TYPE STANDARD TABLE OF ty_txt.
      i_xls type table of ty_xls.
DATA: BEGIN OF dlpivot OCCURS 1.
          INCLUDE STRUCTURE excelpivot.
DATA: END OF dlpivot.
DATA : t_bukrs TYPE STANDARD TABLE OF ty_bukrs WITH HEADER LINE.
DATA : BEGIN OF infieldnames OCCURS 1,   " Internal Table to Hold Headings in file.
        text(50),
       END OF infieldnames.
*---- Variables -*
DATA : v_temp TYPE tslxx12,
       v_amt TYPE tslxx12.
DATA : v_mon(2) TYPE c,
       v_year(4) TYPE c,
       v_yr(4) TYPE c.
DATA : v_pfile TYPE string.
      p_filetyp type string.
DATA : v_len TYPE i,
       v_ext(4),
       v_exts(4),
       v_fpath TYPE string.
*---- INITIALIZING PARAMETERS -*
INITIALIZATION.
  v_mon   = sy-datum+4(2).
  v_year  = sy-datum+0(4).
  pperiod = v_mon.
  pyear   = v_year.
*---- VALIDATIONS -*
*---- COMPANY CODE VALIDATION -*
AT SELECTION-SCREEN ON p_bukrs.
  SELECT bukrs FROM t001 INTO TABLE t_bukrs WHERE bukrs = p_bukrs. " COMP CODE
  IF sy-subrc NE 0.
    MESSAGE 'enter valid company code' TYPE 'E'.
  ENDIF.
*---- MONTH VALIDATION -*
AT SELECTION-SCREEN ON pperiod.
  IF ( pperiod LT 1 OR pperiod GT 12 ).
    MESSAGE 'Enter valid month ' TYPE 'E'.
  ENDIF.
*---- YEAR VALIDATION -*
AT SELECTION-SCREEN ON pyear.
  v_yr = v_year - 2.
  IF ( pyear GT v_year OR pyear LT  v_yr ).
    MESSAGE 'Enter valid Year(Not less than current minus 2 or Greater than current) ' TYPE 'E'.
  ENDIF.
*---- File Extension Validation -*
AT SELECTION-SCREEN.
  PERFORM get_ext.
  IF ( ( NOT ( excel EQ 'X' AND v_ext EQ '.xls' ) ) and
  ( NOT ( csvfile EQ 'X' AND v_ext EQ '.csv' ) ) and
  ( NOT ( text EQ 'X' AND v_ext EQ '.txt' ) ) ).
    MESSAGE e001(zgmam_msg).   "'choose the correct file format' TYPE 'E'.
  ENDIF.
*---- F4 FUNCTIONALITY FOR FILE PATH -*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-cprog
      dynpro_number = syst-dynnr
      field_name    = 'P_FILE'
    IMPORTING
      file_name     = p_file.
*---- START-OF-SELECTION -*
START-OF-SELECTION.
  SELECT a~tslvt
         a~tsl01
         a~tsl02
         a~tsl03
         a~tsl04
         a~tsl05
         a~tsl06
         a~tsl07
         a~tsl08
         a~tsl09
         a~tsl10
         a~tsl11
         a~tsl12
         b~zzetbrnum
     INTO TABLE infaglflext
     FROM faglflext AS a
       INNER JOIN zetbrmap AS b
         ON arbukrs = bbukrs  AND
            aracct  = bhkont
     WHERE a~ryear   = pyear.
  IF sy-subrc EQ 0.
    LOOP AT infaglflext INTO wa_infaglflext.
     CLEAR v_amt.
      v_amt = v_amt + wa_infaglflext-tslvt.
      DO pperiod TIMES
        VARYING v_temp
        FROM   wa_infaglflext-tsl01
          NEXT wa_infaglflext-tsl02.
        v_amt = v_amt + v_temp.
      ENDDO.
      wa_inetbrtot-zzetbrnum = wa_infaglflext-zzetbrnum.
      wa_inetbrtot-totamt    = v_amt .
      APPEND wa_inetbrtot TO inetbrtot.
      CLEAR : wa_inetbrtot,
              wa_infaglflext,
              v_amt.
    ENDLOOP.
    PERFORM header.
    IF ( excel EQ 'X' AND v_ext EQ '.xls' ).
      PERFORM download_to_xls.
    ELSE.
      IF ( csvfile EQ 'X' AND v_ext EQ '.csv' ).
        PERFORM download_to_csv.
      ELSE.
        IF ( text EQ 'X' AND v_ext EQ '.txt' ).
          PERFORM download_to_text.
        ENDIF.
      ENDIF.
    ENDIF.
  ELSE.
    WRITE :/ 'NO RECORDS FOUND'.
  ENDIF.
-------------------SUBROUTINES----------------------------------**
*&      Form  download_to_xls
      text
FORM download_to_xls.
*wa_xls-head1 = 'GENERAL LEDGER'.
*wa_xls-head2 = 'AMOUNT'.
*APPEND WA_XLS TO I_CSV.
*CLEAR WA_XLS.
*loop at inetbrtot into wa_inetbrtot.
wa_xls-zzetbrnum = wa_inetbrtot-zzetbrnum.
wa_xls-totamt    = wa_inetbrtot-totamt.
append wa_xls to i_CSV.
clear wa_xls.
*endloop.
CALL FUNCTION 'EXCEL_OLE_STANDARD_DAT'
  EXPORTING
    file_name                       = p_file
  CREATE_PIVOT                    = 0
   DATA_SHEET_NAME                 = 'EXCEL'
  PIVOT_SHEET_NAME                = ' '
  PASSWORD                        = ' '
  PASSWORD_OPTION                 = 0
TABLES
   PIVOT_FIELD_TAB                 = dlpivot
   DATA_TAB                        = inetbrtot
   FIELDNAMES                      = infieldnames
EXCEPTIONS
   FILE_NOT_EXIST                  = 1
   FILENAME_EXPECTED               = 2
   COMMUNICATION_ERROR             = 3
   OLE_OBJECT_METHOD_ERROR         = 4
   OLE_OBJECT_PROPERTY_ERROR       = 5
   INVALID_PIVOT_FIELDS            = 6
   DOWNLOAD_PROBLEM                = 7
   OTHERS                          = 8
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
   EXPORTING
     filename                      = v_pfile
     filetype                      = 'DBF'
     WK1_N_SIZE                    = 15
     WK1_T_SIZE                    = 15
     append                       = 'X'
  CONFIRM_OVERWRITE               = 'X'
   TABLES
     data_tab                      = inetbrtot
     fieldnames                    = infieldnames.
ENDFORM.                    "download_to_xls
*&      Form  download_to_csv
      text
FORM download_to_csv.
  DATA : v_data TYPE string.
  CLEAR wa_inetbrtot.
  LOOP AT inetbrtot INTO wa_inetbrtot.
    v_data = wa_inetbrtot-totamt.
    CONDENSE  v_data NO-GAPS.
    CALL FUNCTION 'HRCM_AMOUNT_TO_STRING_CONVERT'
      EXPORTING
        betrg                         = v_data
    WAERS                         = ' '
    NEW_DECIMAL_SEPARATOR         =
    NEW_THOUSANDS_SEPARATOR       =
     IMPORTING
       string                        = wa_currtostr-totamt
    wa_currtostr-zzetbrnum = wa_inetbrtot.
    APPEND wa_currtostr TO i_currtostr.
    CLEAR wa_currtostr.
  ENDLOOP.
  LOOP AT i_currtostr INTO wa_currtostr.
    CONCATENATE wa_currtostr-zzetbrnum
                wa_currtostr-totamt
                INTO wa_csv-comma
                SEPARATED BY ','.
    APPEND wa_csv TO i_csv.
    CLEAR wa_csv.
  ENDLOOP.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                      = v_pfile
   filetype                         = 'ASC'
  WRITE_FIELD_SEPARATOR           = 'X'
    TABLES
      data_tab                      = i_csv
     fieldnames                   = infieldnames.
ENDFORM.                    "download_to_csv
*&      Form  DOWNLOAD_TO_TEXT
      text
-->  p1        text
<--  p2        text
FORM download_to_text. " using p_filetyp type string.
  DATA : BEGIN OF head OCCURS 1,                             " Internal Table to Hold Headings in file.
          text(1) VALUE 'H',
         END OF head.
  DATA : v_data TYPE string.
  CLEAR wa_inetbrtot.
  CLEAR wa_header_record.
  wa_header_record = space.
  wa_header_record-hfld = 'H'.
wa_txt-hfld = 'H'.
  wa_header_record-ppyy+0(2) = pperiod.
  wa_header_record-ppyy2(2) = pyear2(2).
  APPEND wa_header_record TO i_csv.
  APPEND wa_txt TO i_txt.
  CLEAR wa_txt.
  LOOP AT inetbrtot INTO wa_inetbrtot.
    CLEAR wa_detail_record.
    wa_detail_record = space.
    wa_detail_record-dfld = 'D'.
   wa_txt-dfld         = 'D'.
   wa_txt-zzetbrnum    = wa_inetbrtot-zzetbrnum.
    wa_detail_record-bal = '0000000000000000000000'.
   wa_detail_record-bal = wa_
    v_data              = wa_inetbrtot-totamt.
    wa_detail_record-gl = wa_inetbrtot-zzetbrnum.
    CONDENSE  v_data NO-GAPS.
    CALL FUNCTION 'HRCM_AMOUNT_TO_STRING_CONVERT'           "CONVERT ITAB-DATA TO STRING, AS THE ITAB CONTAINS A CURRENCY FIELD.
      EXPORTING
        betrg                         = v_data
    WAERS                           = ' '
    NEW_DECIMAL_SEPARATOR           =
    NEW_THOUSANDS_SEPARATOR         =
     IMPORTING
       string                         = wa_txt-totamt
    wa_detail_record-bal = wa_txt-totamt.
    IF ( wa_inetbrtot-totamt LT 0 ).
      wa_detail_record-sign = '-'.
    ELSE.
      wa_detail_record-sign = ' '.
    ENDIF.
    APPEND wa_detail_record TO i_csv.
    APPEND wa_txt TO i_txt.
    CLEAR wa_txt.
  ENDLOOP.
  wa_trailer_record-tfld = 'T'.
  APPEND wa_trailer_record TO i_csv.
  CLEAR wa_txt.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
  BIN_FILESIZE                      =
     filename                         = v_pfile
     filetype                         = 'DAT'
    append                          = 'X'
     header                         = 'abcd'
     replacement                    = '#'
  WRITE_FIELD_SEPARATOR             = ','
  CONFIRM_OVERWRITE                 = 'X'
    TABLES
      data_tab                        = i_csv
    fieldnames                      = HEAD.
ENDFORM.                    " DOWNLOAD_TO_FILE
*&      Form  header
      text
-->  p1        text
<--  p2        text
FORM header .
  infieldnames-text = 'GeneralLedger Account'.
  APPEND infieldnames.
  CLEAR infieldnames.
  infieldnames-text = 'Amount'.
  APPEND infieldnames.
  CLEAR infieldnames.
ENDFORM.                    "header
*&      Form  get_ext
      text
FORM get_ext.
  v_pfile = p_file.
  v_len   = STRLEN( v_pfile ).
  v_len   = v_len - 4.
  v_ext   = v_pfile+v_len(4).
ENDFORM.                    "get_ext
Message was edited by:
        srikanth vadlamani