SAP ABAP internal table to text file on application server AL11

 Use the following code to downloads the internal table data as a text file on application server , which we can access through Transaction Code AL11

REPORT ZK_FILE_TO_APPL_SERVER.

TABLES : KNA1.
*----------------------------------------------------------------------*
*     Data Decalaration
*----------------------------------------------------------------------*
DATA: GT_KNA1 TYPE TABLE OF KNA1,
      GS_KNA1 TYPE KNA1.
DATA: GV_FILE   TYPE RLGRAP-FILENAME.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_KUNNR FOR KNA1-KUNNR OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.


*----------------------------------------------------------------------*
*     START-OF-SELECTION
*----------------------------------------------------------------------*
PERFORM GET_DATA.

IF NOT GT_KNA1[] IS INITIAL.
  PERFORM SAVE_FILE.
ELSE.
  MESSAGE 'No data found' TYPE 'I'.
ENDIF.
*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*

FORM GET_DATA.
*Get data
  SELECT * FROM KNA1
         INTO TABLE GT_KNA1 WHERE KUNNR IN S_KUNNR.
ENDFORM.                    " get_data
*&---------------------------------------------------------------------*
*&      Form  save_file
*&---------------------------------------------------------------------*

FORM SAVE_FILE.
  DATA: LV_DATA TYPE STRING.

*Move complete path to filename
*  gv_file = '/tmp/cust.txt'.
  "Note if we are not passing any specific directory, by default it will
  " get stored in DIR_HOME in AL11 transaction

  CONCATENATE '/tmp/' SY-UNAME SY-DATUM SY-UZEIT '.txt' INTO GV_FILE.


* Open the file in output mode
  OPEN DATASET GV_FILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
  IF SY-SUBRC NE 0.
    MESSAGE 'Unable to create file' TYPE 'I'.
    EXIT.
  ENDIF.

  LOOP AT GT_KNA1 INTO GS_KNA1.
    CONCATENATE GS_KNA1-KUNNR
                GS_KNA1-ANRED
                GS_KNA1-NAME1
                GS_KNA1-LAND1
                GS_KNA1-REGIO
                GS_KNA1-CITYC
     INTO LV_DATA
     SEPARATED BY ','.
*TRANSFER moves the above fields from workarea to file  with comma
*delimited format
    TRANSFER LV_DATA TO GV_FILE.
    CLEAR: GS_KNA1.
  ENDLOOP.
* close the file
  CLOSE DATASET GV_FILE.

  CONCATENATE 'File' GV_FILE 'created' INTO DATA(GV_MSG) SEPARATED BY SPACE.

  MESSAGE GV_MSG TYPE 'I'.

ENDFORM.                    " save_file

             double click on '/tmp' directoty.

             sort files, date wise in descending order 

     

         double click on the file name, to open the file details.