topic Re: Error in the code in Application Development and Automation Discussions

Error in the code

Former Member — Wed, 21 May 2008 11:45:32 GMT

Hi all

This code is giving me error as wa_it_file-brgew must be a charater-type data object.

can anybody give me solution.

CONCATENATE wa_it_file-matnr wa_it_file-maktx wa_it_file-msehi wa_it_file-brgew wa_it_file-volum wa_it_file-volum wa_it_file-wheel_width wa_it_file-wheel_diam

INTO v_data SEPARATED BY ','.

CONDENSE v_data NO-GAPS.

TRANSFER v_data TO v_filename.

Re: Error in the code

Former Member — Wed, 21 May 2008 11:47:56 GMT

Hi,

with concatenate all fields must be of type char.

Cheers.

...Reward if useful.

Re: Error in the code

Former Member — Wed, 21 May 2008 11:55:02 GMT

can anybody give me solution.

will reward points.

Re: Error in the code

Former Member — Wed, 21 May 2008 12:05:48 GMT

in ur internal table or work area change type of all fields to CHAR with length same as all have in Data element .

like for quantity give as

BRGEW(16),

then try ur command .

CONCATENATE wa_it_file-matnr wa_it_file-maktx wa_it_file-msehi wa_it_file-brgew wa_it_file-volum wa_it_file-volum wa_it_file-wheel_width wa_it_file-wheel_diam

INTO v_data SEPARATED BY ','.

CONDENSE v_data NO-GAPS.

TRANSFER v_data TO v_filename.

reward if helpful.

Re: Error in the code

Former Member — Wed, 21 May 2008 12:19:19 GMT

HI,

Concatenate is only concatenate charecter type data.

make all fields data type as C in internal table declaration.

than do concatenate.

Gupta

Re: Error in the code

Former Member — Wed, 21 May 2008 12:49:40 GMT

Hello all

thanx so much for ur wonderful replies

m getting this error only for fields

wa_it_file-brgew wa_it_file-volum. I tried to give there length but they are type domain i cannot assign length to them

can anybody give me other solution

Re: Error in the code

Former Member — Wed, 21 May 2008 13:48:12 GMT

Hi all

When I go AL11 and try to open the file. a error is coming as

"unable to display file." what can be the error.

Re: Error in the code

Former Member — Wed, 21 May 2008 14:40:47 GMT

In this code data is not comming in the work area and ultimately file is not getting open.

plz help anybody.

TYPES : BEGIN OF x_mtfile,

matnr TYPE matnr, "Material Number

maktx TYPE maktx, "Material description

prodesc(30) TYPE c, "Material description

salegrp(3) TYPE c, "

msehi TYPE msehi, "Text description of the UOM

brgew TYPE c, "

volum TYPE c, "

length(5) TYPE c, "

wheel_width TYPE zwid, "Wheel Width

wheel_diam TYPE zdiam, "Use diameter to get height

serial(1) TYPE c, "

palqty(10) TYPE c,

unipcar(5) TYPE c, "

unno(4) TYPE c, "

END OF x_mtfile.

*work area declaration for tables.

DATA : wa_mara TYPE MARA.

DATA : wa_makt TYPE MAKT.

DATA : wa_t006a TYPE T006A.

DATA : wa_zmmkaganplant TYPE zmmkaganplant.

*Table declaration for storing data.

DATA : it_file TYPE TABLE OF x_mtfile WITH HEADER LINE.

DATA : wa_it_file TYPE x_mtfile.

DATA : v_data type string.

DATA : v_filename type string.

*variable declaration.

DATA : v_werks type werks_d.

*Default filename.

DATA: v_filename1 LIKE rlgrap-filename VALUE '/interface/SYSID/OUTBOUND/KAGAN/'.

*File path.

CONCATENATE v_filename1 wmara-matnr '_' SY-DATUM '_' SY-UZEIT '.txt' INTO v_filename.

Get the default file name

REPLACE 'SYSID' WITH sy-sysid INTO v_filename.

CONDENSE v_filename NO-GAPS.

Open the file to read the material.

OPEN DATASET v_filename FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

LOOP AT it_file INTO wa_it_file.

IF wmarc-werks IS NOT INITIAL AND wmarc-werks = wa_zmmkaganplant-werks.

IF SY-TCODE = 'MM01'.

IF STRLEN(wmara-matnr) > 15.

MESSAGE e000(zt) WITH 'Invalid material no.'

else.

wa_it_file-matnr = wmara-matnr.

wa_it_file-maktx = stext-maktx.

wa_it_file-msehi = wmara-meins.

wa_it_file-brgew = wmara-brgew.

wa_it_file-volum = wmara-volum.

wa_it_file-wheel_width = wmara-wheel_width.

wa_it_file-wheel_diam = wmara-wheel_diam.

APPEND wa_it_file TO it_file.

IF SY-TCODE = 'MM02'.

SELECT SINGLE

matnr

brgew

volum

wheel_width

wheel_diam

FROM MARA

INTO wa_mara

WHERE matnr = wmara-matnr.

SELECT SINGLE msehi FROM T006A INTO wa_t006a

WHERE msehi = wmara-meins

AND spras = sy-langu.

SELECT SINGLE maktx FROM MAKT INTO wa_makt

WHERE matnr = wmara-matnr.

IF wmara-matnr <> wa_mara-matnr

AND stext-maktx <> wa_makt-maktx

AND wmara-meins <> wa_t006a-msehi

AND wmara-brgew <> wa_mara-brgew

AND wmara-volum <> wa_mara-volum

AND wmara-wheel_width <> wa_mara-wheel_width

AND wmara-wheel_diam <> wa_mara-wheel_diam.

CONCATENATE wa_it_file-matnr wa_it_file-maktx wa_it_file-msehi wa_it_file-brgew wa_it_file-volum wa_it_file-wheel_width wa_it_file-wheel_diam

INTO v_data SEPARATED BY ','.

CONDENSE v_data NO-GAPS.

TRANSFER v_data TO v_filename.

ENDIF.

ENDLOOP.

CLOSE DATASET v_filename.