REPORT ZEX_DATATOFILE .

*&---------------------------------------------------------------------*
*& ABAPLOVERS: Data Transfer
*&---------------------------------------------------------------------*

* Parameters to enter the path
PARAMETERS FILENAME(128) DEFAULT '/usr/tmp/testfile.dat'
                         LOWER CASE.
* Table Declaration
TABLES VBAK.

* Data Declaration
DATA D_MSG_TEXT(50).

* Get data for file transfer
DATA INT_VBAK LIKE VBAK OCCURS 100
                   WITH HEADER LINE.
SELECT * FROM VBAK INTO TABLE INT_VBAK.
SORT INT_VBAK BY VBELN.
LOOP AT INT_VBAK.
  WRITE: / INT_VBAK-VBELN,
           INT_VBAK-KUNNR.
ENDLOOP.

* Opening the File
OPEN DATASET FILENAME FOR OUTPUT IN TEXT MODE
                      MESSAGE D_MSG_TEXT.
IF SY-SUBRC NE 0.
  WRITE: 'File cannot be opened. Reason:', D_MSG_TEXT.
  EXIT.
ENDIF.
* Transferring Data
LOOP AT INT_VBAK.
  TRANSFER INT_VBAK-VBELN TO FILENAME.
ENDLOOP.
* Closing the File
CLOSE DATASET FILENAME.