Data transfer

Former Member — Mon, 09 Jul 2007 08:51:01 GMT

How can we transfer data to a file? Any one give me the code?

Re: Data transfer

Former Member — Mon, 09 Jul 2007 08:52:35 GMT

&----

*& Transferring data to a file

&----

REPORT ztransfer.

PARAMETERS FILENAME(128) DEFAULT '/usr/tmp/testfile.dat'

LOWER CASE.

TABLES CUSTOMERS.

DATA MSG_TEXT(50).

DATA ALL_CUSTOMERS LIKE CUSTOMERS OCCURS 100

WITH HEADER LINE.

SELECT * FROM CUSTOMERS INTO TABLE ALL_CUSTOMERS.

SORT ALL_CUSTOMERS BY CITY.

LOOP AT ALL_CUSTOMERS.

WRITE: / ALL_CUSTOMERS-CITY,

ALL_CUSTOMERS-NAME.

ENDLOOP.

OPEN DATASET FILENAME FOR OUTPUT IN TEXT MODE

MESSAGE MSG_TEXT.

IF SY-SUBRC NE 0.

WRITE: 'File cannot be opened. Reason:', MSG_TEXT.

EXIT.

ENDIF.

LOOP AT ALL_CUSTOMERS.

TRANSFER ALL_CUSTOMERS-NAME TO FILENAME.

ENDLOOP.

CLOSE DATASET FILENAME.