Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Hello all ( i am getting out put in text file , i want in CSV format. )

Former Member
0 Kudos

hello all ,

Presently with the below code i am getting out put in text format , but presently user wants out put in CSV format.

CONCATENATE p_file '.TXT' INTO v_filename.

OPEN DATASET v_filename FOR OUTPUT IN TEXT MODE

ENCODING NON-UNICODE MESSAGE v_msg_txt.

IF sy-subrc = 0.

LOOP AT vit_name.

TRANSFER vit_name TO v_filename.

ENDLOOP.

LOOP AT vit_itab2.

TRANSFER vit_itab2 TO v_filename.

ENDLOOP.

please can any one help me.

Thank you in advance

Prem

1 ACCEPTED SOLUTION

Former Member
0 Kudos

HI,

go through this link...

type-pools:TRUXS.

data: begin of itab occurs 0,

vbeln like vbap-vbeln,

posnr like vbap-posnr,

end of itab.data:

itab1 type TRUXS_T_TEXT_DATA.

select vbeln posnr up to 10 rows from vbap into table itab. CALL

FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'

EXPORTING

I_FIELD_SEPERATOR = ','

TABLES

I_TAB_SAP_DATA = itab CHANGING

I_TAB_CONVERTED_DATA = itab1

EXCEPTIONS

CONVERSION_FAILED = 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.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING filename = 'C:\TEMP\test.CSV'

TABLES data_tab = itab1

EXCEPTIONS

OTHERS = 1.

It has all possible ways.

<b>

Reward Useful Points</b>

SIVA

1 REPLY 1

Former Member
0 Kudos

HI,

go through this link...

type-pools:TRUXS.

data: begin of itab occurs 0,

vbeln like vbap-vbeln,

posnr like vbap-posnr,

end of itab.data:

itab1 type TRUXS_T_TEXT_DATA.

select vbeln posnr up to 10 rows from vbap into table itab. CALL

FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'

EXPORTING

I_FIELD_SEPERATOR = ','

TABLES

I_TAB_SAP_DATA = itab CHANGING

I_TAB_CONVERTED_DATA = itab1

EXCEPTIONS

CONVERSION_FAILED = 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.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING filename = 'C:\TEMP\test.CSV'

TABLES data_tab = itab1

EXCEPTIONS

OTHERS = 1.

It has all possible ways.

<b>

Reward Useful Points</b>

SIVA