topic Re: App server in Application Development and Automation Discussions

App server

Former Member — Mon, 18 Dec 2006 10:41:29 GMT

hello gurus,

this below code works fine now

TABLES mara.

DATA:BEGIN OF itab OCCURS 0,

matnr LIKE mara-matnr,

mtart LIKE mara-mtart,

matkl LIKE mara-matkl,

END OF itab.

DATA:file(200) TYPE c VALUE 'F:\usr\sap\DEV\DVEBMGS00\data\X.txt'.

IF sy-subrc EQ 0.

SELECT matnr mtart matkl

FROM mara INTO TABLE itab

WHERE matnr = matnr.

ELSE.

ENDIF.

OPEN DATASET file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ 0.

LOOP AT itab.

TRANSFER itab TO file.

ENDLOOP.

ELSE.

ENDIF.

CLOSE DATASET file.

I want to have a tab deleimited like aaa | bbb | ccc

into the file what i am writing in application server

senthil

Re: App server

Former Member — Mon, 18 Dec 2006 10:45:10 GMT

HI Senthil,

Do like this:

data ws_char type char200.

OPEN DATASET file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc EQ 0.

LOOP AT itab.

clear ws_char.

concatenate matnr sy-vline mtart sy-vline matkl into ws_char.

concatenate matnr 'I' mtart 'I' matkl into ws_char.

TRANSFER ws_char TO file.

ENDLOOP.

ELSE.

ENDIF.

CLOSE DATASET file.

Reward points if this Helps.

Manish

Re: App server

Former Member — Mon, 18 Dec 2006 10:46:58 GMT

Hi ,

Try thr following code

IF sy-subrc EQ 0.
Data : v_string type string.
LOOP AT itab.
<b>concatenate itab-matnr itab-mtart itab-matkl into v_string separated by '|'.</b>
*TRANSFER itab TO file.
<b>TRANSFER V_STRING TO file.
clear v_string.</b>
ENDLOOP.
ELSE.
ENDIF.
CLOSE DATASET file.

Regards

Arun