REUSE_ALV_GRID_DISPLAY (column heading)

Question

Hi,
I am using REUSE_ALV_GRID_DISPLAY FM to display the data from internal table. For internal table I used a linetype(work area) and rowtype(body). I got the required data into the internal table and then I used
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    I_STRUCTURE_NAME                  = 'zline'
  TABLES
    T_OUTTAB                          = itab.
to display the output. Where 'zline' is the linetype for my internal table. I got the proper column headings in the output.
My question is, how can I change the heading of a column. Let us say column heading 'Material' to 'Material used'.
I appreciate if anyone can tell me the complete proceedure to change the column heading. It would be easy for me to follow as I am new to the ALV stuff. Thanks.

Answer 1

Hi
There are several ways to export the data to Excel, anyway perhaps this is easier one:
PARAMETERS: FILE LIKE RLGRAP-FILENAME DEFAULT 'C:\test.xls',
            OPEN AS CHECKBOX.
File name
DATA: FILENAME TYPE STRING.
Table with data for file
DATA: BEGIN OF ITAB OCCURS 0,
        FIELD1(6) TYPE C,
        FIELD2(6) TYPE C,
        FIELD3(6) TYPE C,
      END   OF ITAB.
Create the labels of colunms
ITAB-FIELD1 = 'FIELD1'.
ITAB-FIELD2 = 'FIELD2'.
ITAB-FIELD3 = 'FIELD3'.
APPEND ITAB.
Inser the data to be displayed in the file
DO 9 TIMES.
  MOVE SY-INDEX TO ITAB-FIELD1.
  ITAB-FIELD2 = ITAB-FIELD3 = ITAB-FIELD1.
  APPEND ITAB.
ENDDO.
Create the file
MOVE FILE TO FILENAME.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    FILENAME                        = FILENAME
    FILETYPE                        = 'ASC'
    WRITE_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                        = ITAB
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.
ELSE.
  IF OPEN = 'X'.
Open file if it's requested
    CALL FUNCTION 'WS_EXECUTE'
      EXPORTING
        DOCUMENT    = 'X'
        COMMANDLINE = FILE
        PROGRAM     = 'EXCEL'
      EXCEPTIONS
        OTHERS      = 99.
  ENDIF.
ENDIF.
Max