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: 

how to use FM SAP_CONVERT_TO_CSV_FORMAT!!!

Former Member
0 Kudos

HI SDNs,

How to use this FM SAP_CONVERT_TO_CSV_FORMAT.

what is the purpose of using this FM.

Reward sure if it is helpful to me.

Senthil kumar

1 ACCEPTED SOLUTION

Former Member
0 Kudos

hi

CSV means a text file, where the columns are separated by a character ";".

The best way to change a list to CSV is to create an internal table in the ABAP, with the structure of the required CSV.

You have to fill in this internal table.

Because you are running the program in background, you can't download the file, the best would be to store the file on the server in a separated directory.

1ST capture file from application server to internal table using open dataset and close data set.

Use the Function Module SAP_CONVERT_TO_CSV_FORMAT to convert the internal table into Comma separated format then download this internal table using the Function Module GUI_DOWNLOAD.

EX-

Coding -

TYPE-POOLS: truxs.

TYPES:

BEGIN OF ty_Line,

vbeln LIKE vbap-vbeln,

posnr LIKE vbap-posnr,

END OF ty_Line.

TYPES: ty_Lines TYPE STANDARD TABLE of ty_Line WITH DEFAULT KEY.

DATA: itab TYPE ty_Lines.

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.txt'

TABLES

data_tab = itab1

EXCEPTIONS

OTHERS = 1.

regards

navjot

Message was edited by:

navjot sharma

12 REPLIES 12

former_member588853
Active Contributor
0 Kudos

hi,

I have never used this FM but I can say you to go to where used list and find out ..

Former Member
0 Kudos

hi

CSV means a text file, where the columns are separated by a character ";".

The best way to change a list to CSV is to create an internal table in the ABAP, with the structure of the required CSV.

You have to fill in this internal table.

Because you are running the program in background, you can't download the file, the best would be to store the file on the server in a separated directory.

1ST capture file from application server to internal table using open dataset and close data set.

Use the Function Module SAP_CONVERT_TO_CSV_FORMAT to convert the internal table into Comma separated format then download this internal table using the Function Module GUI_DOWNLOAD.

EX-

Coding -

TYPE-POOLS: truxs.

TYPES:

BEGIN OF ty_Line,

vbeln LIKE vbap-vbeln,

posnr LIKE vbap-posnr,

END OF ty_Line.

TYPES: ty_Lines TYPE STANDARD TABLE of ty_Line WITH DEFAULT KEY.

DATA: itab TYPE ty_Lines.

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.txt'

TABLES

data_tab = itab1

EXCEPTIONS

OTHERS = 1.

regards

navjot

Message was edited by:

navjot sharma

0 Kudos

Hi sharma,

your coding sounds good.

but i want comma (,) instead of ( .

i changed the field I_FIELD_SEPERATOR = ','

but its not working... any other suggestions...

Senthil kumar

0 Kudos

Use SAP_CONVERT_TO_TEX_FORMAT.

This function module will take any internal table as input and convert the data accordingly, using various formatting options defined at data element level, and it will give you the output in text format. In addition, this function will make use of any delimiter you want.

The program below demonstrates the above functionality. Here, we are reading data from table EKKO and downloading the data as '|' delimited file.

Code

REPORT y_ss_test_ekko .

  • To hold selection data

DATA: i_ekko TYPE STANDARD TABLE OF ekko.

  • To hold converted text data

DATA: i_text(4096) TYPE c OCCURS 0.

  • Selection Screen

PARAMETERS: p_ebeln LIKE ekko-ebeln.

  • Select data into an ITAB based on the selection Criteria

SELECT * FROM ekko

INTO TABLE i_ekko

WHERE ebeln = p_ebeln.

  • Process further only if found some data

IF NOT i_ekko[] IS INITIAL.

  • Convert data in internal table to a delimited text data

CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'

EXPORTING

i_field_seperator = '|'

TABLES

i_tab_sap_data = i_ekko

CHANGING

i_tab_converted_data = i_text

EXCEPTIONS

conversion_failed = 1

OTHERS = 2.

IF sy-subrc <> 0.

WRITE: / 'Program failed to Convert data.'.

ELSE.

  • Download convert data to Presentation Server

CALL FUNCTION 'DOWNLOAD'

TABLES

data_tab = i_text

EXCEPTIONS

OTHERS = 8.

IF sy-subrc <> 0.

WRITE: / 'Program failed to download data.'.

ENDIF.

ENDIF.

ENDIF.

You would have to modify the above code according to your requirements.

Regards,

navjot

reawrd points for all helpfull answers

0 Kudos

Hi Senthil,

this program will clearly tells u how to create a ',' seperator file..<b>or else</b>..u can use the FM .SAP_CONVERT_TO_TEX_FORMAT

<b>inserting Commas,fullstops,symbols or whatever u want as seperator.</b>

TABLES:

SPFLI.

DATA:

T_SPFLI LIKE STANDARD TABLE OF SPFLI,

T_UPLOAD LIKE STANDARD TABLE OF SPFLI.

DATA:

W_CHAR(20) TYPE C.

FIELD-SYMBOLS <FS>.

DATA:

BEGIN OF T_TABLE OCCURS 0,

CHAR(255) TYPE C,

END OF T_TABLE.

SELECT *

FROM SPFLI

INTO TABLE T_SPFLI.

****inserting Commas or whatever u want as seperator.

<b>LOOP AT T_SPFLI INTO SPFLI.

DO.

ASSIGN COMPONENT SY-INDEX OF STRUCTURE SPFLI TO <FS>.

IF SY-SUBRC NE 0.

EXIT.

ELSE.

MOVE <FS> TO W_CHAR.

IF SY-INDEX EQ 1.

T_TABLE-CHAR = <FS>.

ELSE.

CONCATENATE T_TABLE-CHAR ',' W_CHAR INTO T_TABLE-CHAR.

ENDIF.

ENDIF.

ENDDO.

CONDENSE T_TABLE-CHAR.

APPEND T_TABLE.

ENDLOOP.</b>

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

  • BIN_FILESIZE =

FILENAME = 'D:\GUI\CSV_SPFLI'

  • FILETYPE = 'ASC'

  • APPEND = ' '

  • WRITE_FIELD_SEPARATOR = ' '

  • HEADER = '00'

  • TRUNC_TRAILING_BLANKS = ' '

  • WRITE_LF = 'X'

  • COL_SELECT = ' '

  • COL_SELECT_MASK = ' '

  • DAT_MODE = ' '

  • CONFIRM_OVERWRITE = ' '

  • NO_AUTH_CHECK = ' '

  • CODEPAGE = ' '

  • IGNORE_CERR = ABAP_TRUE

  • REPLACEMENT = '#'

  • WRITE_BOM = ' '

  • TRUNC_TRAILING_BLANKS_EOL = 'X'

  • WK1_N_FORMAT = ' '

  • WK1_N_SIZE = ' '

  • WK1_T_FORMAT = ' '

  • WK1_T_SIZE = ' '

  • IMPORTING

  • FILELENGTH =

TABLES

DATA_TAB = T_TABLE

  • FIELDNAMES =

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

GUI_REFUSE_FILETRANSFER = 3

INVALID_TYPE = 4

NO_AUTHORITY = 5

UNKNOWN_ERROR = 6

HEADER_NOT_ALLOWED = 7

SEPARATOR_NOT_ALLOWED = 8

FILESIZE_NOT_ALLOWED = 9

HEADER_TOO_LONG = 10

DP_ERROR_CREATE = 11

DP_ERROR_SEND = 12

DP_ERROR_WRITE = 13

UNKNOWN_DP_ERROR = 14

ACCESS_DENIED = 15

DP_OUT_OF_MEMORY = 16

DISK_FULL = 17

DP_TIMEOUT = 18

FILE_NOT_FOUND = 19

DATAPROVIDER_EXCEPTION = 20

CONTROL_FLUSH_ERROR = 21

OTHERS = 22

.

IF SY-SUBRC <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Former Member
0 Kudos

hi Senthil,

the FM SAP_CONVERT_TO_CSV_FORMAT. will take lot of time even if there are less number of records , I suggest not to use this

I had tried it once in my project but removed that as it is not efficient ,

Use th code which i had given in ur previous question

Former Member
0 Kudos

this is used to convert internal table data into CSV format data...when u used this FM it converts data into CSV format wherein, each field is been separated by comma and u can use the data for download purposes.

Former Member
0 Kudos

hi Senthil,

Please see the sample code below:


CONSTANTS: C_FIELD_SEPARATOR VALUE ';'.

CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
       EXPORTING
            I_FIELD_SEPERATOR    = C_FIELD_SEPARATOR
            I_LINE_HEADER        = I_LINE_HEADER
            I_FILENAME           = I_FILENAME
       TABLES
            I_TAB_SAP_DATA       = I_TAB_SAP_DATA
       CHANGING
            I_TAB_CONVERTED_DATA = I_TAB_CONVERTED_DATA
       EXCEPTIONS
            CONVERSION_FAILED    = C_RC4.

Hope this helps,

Sajan Joseph.

Former Member
0 Kudos

Hi,

Instead of the FM SAP_CONVERT_TO_CSV_FORMAT...You can use the FM

SAP_CONVERT_TO_TEX_FORMAT...Which does the same thing..Also you can pass comma ',' in the parameter I_FIELD_SEPERATOR

Thanks,

Naren

Former Member
0 Kudos

hi,

This Fm is used to create CSV file

Go through this link.I hope this will help you to create a CSV files.

http://www.dalestech.com/Media/files/docs/file/Programming_with_file_class_100.pdf

Check this sample code..

REPORT ZTESTAA.

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.

ENDIF.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

FILENAME = 'C:\TEMP\test.txt'

TABLES

DATA_TAB = ITAB1

EXCEPTIONS

OTHERS = 1.

____________________________

try this..

SAP_CONVERT_TO_CSV_FORMAT

a sample of the same..

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.txt'

TABLES

DATA_TAB = ITAB1

EXCEPTIONS

OTHERS = 1.

check this thread

sri

0 Kudos

hi ,

herewith just i paste my codings.

please alter the path to download according to your system and also give line-size 1000.

expecting ur replies....

thanks..

Senthil kumar....

TABLES : VBRK,

VBRP,

VBAK,

KNA1,

KONV,

KNVV,

J_1IEXCDTL.

DATA : BEGIN OF ITAB OCCURS 0,

WERKS LIKE VBRP-WERKS,

EIKTO LIKE KNVV-EIKTO,

MATNR LIKE VBRP-MATNR,

BSTNK LIKE VBAK-BSTNK,

POSEX LIKE VBAP-POSEX,

VBELN LIKE VBRK-VBELN,

FKDAT LIKE VBRK-FKDAT,

FKIMG LIKE VBRP-FKIMG,

TRSNAM(18) TYPE C,

CARNO(18) TYPE C,

PUCDT TYPE D,

DRI1(18) TYPE C,

DRI2(18) TYPE C,

STAMT(18) TYPE C,

STPER(18) TYPE C,

DRILI(18) TYPE C,

PACDET(18) TYPE C,

TOTAL LIKE KONV-KWERT,

PR00 LIKE KONV-KWERT,

CHAPID LIKE J_1IEXCDTL-CHAPID,

KBETR LIKE KONV-KBETR,

JMOD LIKE KONV-KWERT,

JSED LIKE KONV-KWERT,

SALVAL LIKE KONV-KWERT,

JIN1 LIKE KONV-KWERT,

JIN2 LIKE KONV-KWERT,

JIN5 LIKE KONV-KWERT,

JIN6 LIKE KONV-KWERT,

TOTAT LIKE KONV-KWERT,

SURCH LIKE KONV-KWERT,

LRTEXT LIKE TLINE-TDLINE,

CRTEXT LIKE TLINE-TDLINE,

SALTX LIKE KONV-KBETR,

TOTX(3) TYPE C,

PR001 LIKE KONV-KWERT,

BASVAL LIKE KONV-KWERT,

FRET LIKE KONV-KWERT,

INSUR(18) TYPE C,

VBELN1 LIKE VBRK-VBELN,

BSTNK1 LIKE VBAK-BSTNK,

VKORG LIKE VBRK-VKORG,

VTWEG LIKE VBRK-VTWEG,

SPART LIKE VBRK-SPART,

KUNAG LIKE VBRK-KUNAG,

KNUMV LIKE VBRK-KNUMV,

POSNR LIKE VBRP-POSNR,

AUBEL LIKE VBRP-AUBEL,

END OF ITAB.

DATA : BEGIN OF ITAB1 OCCURS 0,

CHAPID LIKE J_1IEXCDTL-CHAPID,

MATNR LIKE VBRP-MATNR,

WERKS LIKE VBRP-WERKS,

END OF ITAB1.

DATA: BEGIN OF ITAB2 OCCURS 0,

KNUMV LIKE KONV-KNUMV,

KPOSN LIKE KONV-KPOSN,

KSCHL LIKE KONV-KSCHL,

KBETR LIKE KONV-KBETR,

KWERT LIKE KONV-KWERT,

END OF ITAB2.

DATA : BEGIN OF ITAB3 OCCURS 0,

WERKS LIKE VBRP-WERKS,

EIKTO LIKE KNVV-EIKTO,

MATNR LIKE VBRP-MATNR,

BSTNK LIKE VBAK-BSTNK,

POSEX LIKE VBAP-POSEX,

VBELN LIKE VBRK-VBELN,

FKDAT LIKE VBRK-FKDAT,

FKIMG LIKE VBRP-FKIMG,

TRSNAM(18) TYPE C,

CARNO(18) TYPE C,

PUCDT TYPE D,

DRI1(18) TYPE C,

DRI2(18) TYPE C,

STAMT(18) TYPE C,

STPER(18) TYPE C,

DRILI(18) TYPE C,

PACDET(18) TYPE C,

TOTAL LIKE KONV-KWERT,

PR00 LIKE KONV-KWERT,

CHAPID LIKE J_1IEXCDTL-CHAPID,

KBETR LIKE KONV-KBETR,

JMOD LIKE KONV-KWERT,

JSED LIKE KONV-KWERT,

SALVAL LIKE KONV-KWERT,

JIN1 LIKE KONV-KWERT,

JIN2 LIKE KONV-KWERT,

JIN5 LIKE KONV-KWERT,

JIN6 LIKE KONV-KWERT,

TOTAT LIKE KONV-KWERT,

SURCH LIKE KONV-KWERT,

LRTEXT LIKE TLINE-TDLINE,

CRTEXT LIKE TLINE-TDLINE,

SALTX LIKE KONV-KBETR,

TOTX(3) TYPE C,

PR001 LIKE KONV-KWERT,

BASVAL LIKE KONV-KWERT,

FRET LIKE KONV-KWERT,

INSUR(18) TYPE C,

VBELN1 LIKE VBRK-VBELN,

BSTNK1 LIKE VBAK-BSTNK,

END OF ITAB3.

DATA : ITEXT LIKE TLINE OCCURS 0 WITH HEADER LINE.

DATA : TEXTNAME LIKE STXH-TDNAME.

SELECTION-SCREEN BEGIN OF BLOCK B1.

SELECT-OPTIONS VBELN FOR VBRK-VBELN.

SELECTION-SCREEN END OF BLOCK B1.

START-OF-SELECTION.

SELECT A~VBELN A~VKORG A~VTWEG A~SPART A~FKDAT A~KUNAG A~KNUMV

B~POSNR B~MATNR B~FKIMG B~WERKS B~AUBEL

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM VBRK AS A INNER JOIN VBRP AS B ON A~VBELN EQ B~VBELN

WHERE A~VBELN IN VBELN.

SELECT CHAPID MATNR WERKS FROM J_1IEXCDTL INTO TABLE ITAB1 FOR ALL ENTRIES

IN ITAB WHERE MATNR EQ ITAB-MATNR AND WERKS EQ ITAB-WERKS.

SELECT KNUMV KPOSN KSCHL KBETR KWERT FROM KONV INTO CORRESPONDING FIELDS OF TABLE ITAB2

FOR ALL ENTRIES IN ITAB

WHERE KSCHL IN ('PR00', 'JMOD', 'JSED', 'JIN1', 'JIN2', 'JIN5', 'JIN6') AND KNUMV EQ ITAB-KNUMV.

LOOP AT ITAB.

CLEAR : ITAB-BASVAL, ITAB-TOTAL.

SELECT SINGLE EIKTO FROM KNVV INTO ITAB-EIKTO

WHERE VKORG EQ ITAB-VKORG AND VTWEG EQ ITAB-VTWEG AND

SPART EQ ITAB-SPART AND KUNNR EQ ITAB-KUNAG.

SELECT SINGLE BSTNK FROM VBAK INTO ITAB-BSTNK

WHERE VBELN EQ ITAB-AUBEL.

SELECT SINGLE POSEX FROM VBAP INTO ITAB-POSEX

WHERE VBELN EQ ITAB-AUBEL.

READ TABLE ITAB1 WITH KEY MATNR = ITAB-MATNR

WERKS = ITAB-WERKS.

ITAB-CHAPID = ITAB1-CHAPID.

READ TABLE ITAB2 WITH KEY KNUMV = ITAB-KNUMV

KPOSN = ITAB-POSNR

KSCHL = 'PR00'.

IF SY-SUBRC EQ 0.

ITAB-PR00 = ITAB2-KWERT.

ENDIF.

READ TABLE ITAB2 WITH KEY KNUMV = ITAB-KNUMV

KPOSN = ITAB-POSNR

KSCHL = 'JMOD'.

IF SY-SUBRC EQ 0.

ITAB-JMOD = ITAB2-KWERT.

ITAB-KBETR = ITAB2-KBETR / 10.

ENDIF.

READ TABLE ITAB2 WITH KEY KNUMV = ITAB-KNUMV

KPOSN = ITAB-POSNR

KSCHL = 'JSED'.

IF SY-SUBRC EQ 0.

ITAB-JSED = ITAB2-KWERT.

ENDIF.

READ TABLE ITAB2 WITH KEY KNUMV = ITAB-KNUMV

KPOSN = ITAB-POSNR

KSCHL = 'JIN1'.

IF SY-SUBRC EQ 0.

ITAB-JIN1 = ITAB2-KWERT.

ITAB-SALTX = ITAB2-KBETR / 10.

ENDIF.

READ TABLE ITAB2 WITH KEY KNUMV = ITAB-KNUMV

KPOSN = ITAB-POSNR

KSCHL = 'JIN2'.

IF SY-SUBRC EQ 0.

ITAB-JIN2 = ITAB2-KWERT.

ENDIF.

READ TABLE ITAB2 WITH KEY KNUMV = ITAB-KNUMV

KPOSN = ITAB-POSNR

KSCHL = 'JIN5'.

IF SY-SUBRC EQ 0.

ITAB-JIN5 = ITAB2-KWERT.

ENDIF.

READ TABLE ITAB2 WITH KEY KNUMV = ITAB-KNUMV

KPOSN = ITAB-POSNR

KSCHL = 'JIN6'.

IF SY-SUBRC EQ 0.

ITAB-JIN6 = ITAB2-KWERT.

ENDIF.

ITAB-BASVAL = ITAB-FKIMG * ITAB-PR00.

*Sum up all the values

ITAB-TOTAL = ITAB-PR00 + ITAB-JMOD + ITAB-JSED + ITAB-JIN1 + ITAB-JIN2 + ITAB-JIN5 + ITAB-JIN6.

  • Getting header text

TEXTNAME = ITAB-VBELN.

  • LR NO

PERFORM READ_TEXT TABLES ITEXT USING 'I002' 'VBBK' TEXTNAME.

READ TABLE ITEXT INDEX 1.

IF SY-SUBRC EQ 0.

ITAB-LRTEXT = ITEXT-TDLINE.

ENDIF.

  • Truck No

PERFORM READ_TEXT TABLES ITEXT USING 'I003' 'VBBK' TEXTNAME .

READ TABLE ITEXT INDEX 1.

IF SY-SUBRC EQ 0.

ITAB-CRTEXT = ITEXT-TDLINE.

ENDIF.

MODIFY ITAB.

CLEAR: ITAB, ITAB1, ITAB2.

ENDLOOP.

LOOP AT ITAB.

MOVE ITAB-WERKS TO ITAB3-WERKS.

MOVE ITAB-EIKTO TO ITAB3-EIKTO.

MOVE ITAB-MATNR TO ITAB3-MATNR.

MOVE ITAB-BSTNK TO ITAB3-BSTNK.

MOVE ITAB-POSEX TO ITAB3-POSEX.

MOVE ITAB-VBELN TO ITAB3-VBELN.

MOVE ITAB-FKDAT TO ITAB3-FKDAT.

MOVE ITAB-FKIMG TO ITAB3-FKIMG.

MOVE ITAB-TRSNAM TO ITAB3-TRSNAM.

MOVE ITAB-CARNO TO ITAB3-CARNO.

MOVE ITAB-PUCDT TO ITAB3-PUCDT.

MOVE ITAB-DRI1 TO ITAB3-DRI1.

MOVE ITAB-DRI2 TO ITAB3-DRI2.

MOVE ITAB-STAMT TO ITAB3-STAMT.

MOVE ITAB-STPER TO ITAB3-STPER.

MOVE ITAB-DRILI TO ITAB3-DRILI.

MOVE ITAB-PACDET TO ITAB3-PACDET.

MOVE ITAB-TOTAL TO ITAB3-TOTAL.

MOVE ITAB-PR00 TO ITAB3-PR00.

MOVE ITAB-CHAPID TO ITAB3-CHAPID.

MOVE ITAB-KBETR TO ITAB3-KBETR.

MOVE ITAB-JMOD TO ITAB3-JMOD.

MOVE ITAB-JSED TO ITAB3-JSED.

MOVE ITAB-SALVAL TO ITAB3-SALVAL.

MOVE ITAB-JIN1 TO ITAB3-JIN1.

MOVE ITAB-JIN2 TO ITAB3-JIN2.

MOVE ITAB-JIN5 TO ITAB3-JIN5.

MOVE ITAB-JIN6 TO ITAB3-JIN6.

MOVE ITAB-TOTAT TO ITAB3-TOTAT.

MOVE ITAB-SURCH TO ITAB3-SURCH.

MOVE ITAB-LRTEXT TO ITAB3-LRTEXT.

MOVE ITAB-CRTEXT TO ITAB3-CRTEXT.

MOVE ITAB-SALTX TO ITAB3-SALTX.

MOVE ITAB-TOTX TO ITAB3-TOTX.

MOVE ITAB-PR00 TO ITAB3-PR001.

MOVE ITAB-BASVAL TO ITAB3-BASVAL.

MOVE ITAB-FRET TO ITAB3-FRET.

MOVE ITAB-INSUR TO ITAB3-INSUR.

MOVE ITAB-VBELN TO ITAB3-VBELN1.

MOVE ITAB-BSTNK TO ITAB3-BSTNK1.

APPEND ITAB3.

CLEAR ITAB3.

ENDLOOP.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

FILENAME = 'C:\WINNT\Profiles\Administrator\Desktop\inv1.txt'

  • FILENAME = 'C:\Documents and Settings\All Users\Desktop\inv.txt'

FILETYPE = 'ASC'

  • WRITE_FIELD_SEPARATOR = 'X'

TABLES

DATA_TAB = ITAB3.

LOOP AT ITAB3.

WRITE 😕 ITAB3-WERKS,',', ITAB3-EIKTO,',', ITAB3-MATNR,',', ITAB3-BSTNK,',', ITAB3-POSEX,',', ITAB3-VBELN,

',',ITAB3-FKDAT,',', ITAB3-FKIMG,',', ITAB3-TRSNAM,',', ITAB3-CARNO,',', ITAB3-PUCDT,',', ITAB3-DRI1,

',',ITAB3-DRI2,',', ITAB3-STAMT,',', ITAB3-STPER,',', ITAB3-DRILI,',', ITAB3-PACDET,',',ITAB3-TOTAL,

',', ITAB3-PR00,',', ITAB3-CHAPID,',',ITAB3-KBETR,',',ITAB3-JMOD,',', ITAB3-JSED,',',ITAB3-SALVAL,

',', ITAB3-JIN1,',', ITAB3-JIN2,',', ITAB3-JIN5,',', ITAB3-JIN6,',', ITAB3-TOTAT,',',ITAB3-SURCH,

',', ITAB3-LRTEXT,',', ITAB3-CRTEXT,',', ITAB3-SALTX,',',ITAB3-TOTX,',', ITAB3-PR00,',', ITAB3-BASVAL,

',',ITAB3-FRET,',', ITAB3-INSUR,',', ITAB3-VBELN,',', ITAB3-BSTNK.

ENDLOOP.

FORM READ_TEXT TABLES ITEXT STRUCTURE TLINE

USING P_ID P_OBJ P_NAME.

REFRESH ITEXT.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = P_ID

LANGUAGE = SY-LANGU

NAME = P_NAME

OBJECT = P_OBJ

TABLES

LINES = ITEXT

EXCEPTIONS

ID = 1

LANGUAGE = 2

NAME = 3

NOT_FOUND = 4

OBJECT = 5

REFERENCE_CHECK = 6

WRONG_ACCESS_TO_ARCHIVE = 7

OTHERS = 8.

ENDFORM. " READ_TEXT

0 Kudos

Dear friends,

Finally i got the result using FM SAP_CONVERT_TO_TEX_FORMAT.

Thank u to all....

Senthil kumar