04-11-2007 11:40 AM
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
04-11-2007 11:43 AM
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
04-11-2007 11:43 AM
hi,
I have never used this FM but I can say you to go to where used list and find out ..
04-11-2007 11:43 AM
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
04-12-2007 5:16 AM
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
04-12-2007 5:22 AM
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
04-12-2007 5:26 AM
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.
04-11-2007 11:44 AM
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
04-11-2007 11:44 AM
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.
04-11-2007 11:47 AM
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.
04-12-2007 5:18 AM
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
04-12-2007 5:36 AM
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
04-12-2007 6:06 AM
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
04-12-2007 9:41 AM
Dear friends,
Finally i got the result using FM SAP_CONVERT_TO_TEX_FORMAT.
Thank u to all....
Senthil kumar