ALV - output to file

Question

Hello,
I am trying to save the ALV displayed data as a text file and I would like
to keep the headings from be outputted to the text file. I would appreciate
any help you may have.

Answer 1

Hi,
If u want to save the output of the ALV dispay on text file....
then execute the following code.....and in the out put ur having an icon with Local file(CtrlShiftF9) u will get options select where u  want to store data......
TABLES:Z50889_BMS_TABLE, SSCRFIELDS.
TYPE-POOLS:SLIS.
TYPES:BEGIN OF ST_TAB1,
      EMPID TYPE ZKKEMPID,          "Employee ID
      EMPNAME TYPE ZKKNAME,         "Employee Name
      EMPDEPARTMENT TYPE ZKKDEPT,   "Department
      EMPPROJECT TYPE ZKKPROJECT,   "Project
      EMPLOGIN TYPE ZKKLOGIN,       "Login Time
      EMPSALARY TYPE ZKKSALARY,     "EMployee Salary
      END OF ST_TAB1.
DATA:
*Declaration of internal table to store data
      WA_TAB1 TYPE  ST_TAB1,
      IT_TAB1 TYPE STANDARD TABLE OF ST_TAB1,
*Declaration of variables used in the program
      V_NUMBER LIKE Z50889_BMS_TABLE-EMPID,
      V_PROG TYPE SY-REPID,
*Declaration of internal table for the funtion codes
      IT_EXC TYPE TABLE OF RSEXFCODE,
      WA_EXC TYPE          RSEXFCODE,
*Declaration of internal table and work area to the display
      IT_FIELDCAT  TYPE SLIS_T_FIELDCAT_ALV,
      WA_FIELDCAT  TYPE SLIS_FIELDCAT_ALV,
      WA_LAYOUT TYPE SLIS_LAYOUT_ALV,
      IT_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENTS TYPE SLIS_ALV_EVENT.
*Declaration of selection-screen block
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
SELECT-OPTIONS:SO_NUM  FOR  V_NUMBER.
SELECTION-SCREEN END OF BLOCK B1.
INITIALIZATION.
  SSCRFIELDS-FUNCTXT_01 = 'CREATE'.
  SSCRFIELDS-FUNCTXT_02 = 'CHANGE'.
  WA_EXC-FCODE  = 'ONLI'.
  APPEND WA_EXC TO IT_EXC.
  V_PROG = SY-CPROG.
START-OF-SELECTION.
  PERFORM FETCH_DATA.
  PERFORM DISPLAY.
*&      Form  to fetch_data from the table  Z50889_BMS_TABLE
FORM FETCH_DATA .
  SELECT EMPID EMPNAME EMPDEPARTMENT EMPPROJECT EMPLOGIN EMPSALARY FROM
  Z50889_BMS_TABLE INTO TABLE IT_TAB1 WHERE EMPID IN SO_NUM.
ENDFORM.                    " fetch_data
*&      Form to  display the output
FORM DISPLAY .
  PERFORM INITIALIZE_BLOCK.
  PERFORM FIELD_CATALOG.
  PERFORM LAYOUT.
  PERFORM EVENTS.
  PERFORM APPEND_TO_LAYOUT.
  PERFORM BLOCK_DISPLAY.
ENDFORM.                    " display
*&      Form  initialize_block
FORM INITIALIZE_BLOCK .
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
    EXPORTING
      I_CALLBACK_PROGRAM = V_PROG.
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  IT_EXCLUDING                   = IT_EXCLUDING
CALL FUNCTION 'REUSE_ALV_CHECKBOX_SET'
  CHANGING
    CT_FIELDCAT       = IT_FIELDCAT
ENDFORM.                    " initialize_block
*&      Form for field_catalog
FORM FIELD_CATALOG .
  WA_FIELDCAT-FIELDNAME = 'EMPID'.
  WA_FIELDCAT-SELTEXT_L = 'EMPLOYEE ID'.
  WA_FIELDCAT-COL_POS     = 0.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'EMPNAME'.
  WA_FIELDCAT-SELTEXT_L = 'EMPLOYEE NAME'.
  WA_FIELDCAT-COL_POS     = 1.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'EMPDEPARTMENT'.
  WA_FIELDCAT-SELTEXT_L = 'DEPARTMENT'.
  WA_FIELDCAT-COL_POS     = 3.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'EMPPROJECT'.
  WA_FIELDCAT-SELTEXT_L = 'PROJECT'.
  WA_FIELDCAT-COL_POS     = 4.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'EMPLOGIN'.
  WA_FIELDCAT-SELTEXT_L = 'LOGIN TIME'.
  WA_FIELDCAT-COL_POS     = 5.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'EMPSALARY'.
  WA_FIELDCAT-SELTEXT_L = 'SALARY'.
  WA_FIELDCAT-COL_POS     = 6.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
ENDFORM.                    " field_catalog
*&      Form  layout
FORM LAYOUT .
  WA_LAYOUT-ZEBRA ='X'.
  WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  WA_LAYOUT-WINDOW_TITLEBAR = 'EMPLOYEE DETAILS'.
ENDFORM.                    " layout
*&      Form  events
      text
-->  p1        text
<--  p2        text
FORM EVENTS .
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 1
    IMPORTING
      ET_EVENTS       = IT_EVENTS[]
    EXCEPTIONS
      LIST_TYPE_WRONG = 1
      OTHERS          = 2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " events
*&      Form  APPEND_TO_LAYOUT
FORM APPEND_TO_LAYOUT .
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
    EXPORTING
      IS_LAYOUT                  = WA_LAYOUT
      IT_FIELDCAT                = IT_FIELDCAT
      I_TABNAME                  = 'IT_TAB1'
      IT_EVENTS                  = IT_EVENTS
    TABLES
      T_OUTTAB                   = IT_TAB1
    EXCEPTIONS
      PROGRAM_ERROR              = 1
      MAXIMUM_OF_APPENDS_REACHED = 2
      OTHERS                     = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " APPEND_TO_LAYOUT
*&      Form to call  BLOCK_DISPLAY
FORM BLOCK_DISPLAY .
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
    EXCEPTIONS
      PROGRAM_ERROR = 1
      OTHERS        = 2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " BLOCK_DISPLAY