topic Re: select statement in Application Development and Automation Discussions

select statement

Former Member — Wed, 22 Feb 2006 16:59:20 GMT

Hi Experts,

here are material no's in one internal table.

for each material number i have to select the BOM component whose BOM Alternative Text = 'DEV'.

i'm selecting the BOM component like this. But it is not showing up results when executing..

Please tell me what is the problme with this?

THE CODE IS LIKE THIS:

data: begin of material_data occurs 0,

matnr like mara-matnr,

...................

end of material_data.

data: str1(2) type c value 'O',

str2(2) type c value 'OP',

str3(2) type c value 'M',

str4(2) type c value 'MP'.

i have changed the itab like this....

data: begin of i_bom occurs 0,

stlal like stko-stlal,

stktx like stko-stktx,

stlnr like stko-stlnr,

end of i_bom.

data: begin of i_outsert occurs 0,

idnrk like stpo-idnrk,

end of i_outsert.

data: begin of i_awp occurs 0,

matnr like mara-matnr,

rate like konp-kbetr,

end of i_awp.

data: v_lines type i.

constants: c_unrestr(12) type c value 'DEV'.

perform get_outsert.

form get_outsert.

clear material_data.

refresh material_data.

select matnr from mara into corresponding fields of table

material_data where mtart = 'FERT'.

append material_data.

select single * from mast where matnr = material_data-matnr.

if sy-subrc = 0.

clear i_bom.

refresh i_bom.

select stlal stktx from stko

into i_bom where stlnr = mast-stlnr.

append i_bom.

clear i_bom.

endselect.

endif.

loop at i_bom.

translate i_bom-stktx to upper case.

modify i_bom transporting stktx.

endloop.

clear i_bom.

delete i_bom where stktx(12) <> c_unrestr.

if v_lines = 1.

read table i_bom.

if sy-subrc = 0.

select idnrk from stpo into i_outsert-idnrk

where stlnr = stko-stlnr.

append i_outsert.

endselect.

endif.

if ( i_outsert-idnrk cs str1 ) or ( i_outsert-idnrk cs str2 ).

move i_outsert-idnrk to material_data-component.

elseif ( i_outsert-idnrk cs str3 ) or

( i_outsert-idnrk cs str4 ).

move i_outsert-idnrk to material_data-mguide.

endif.

modify material_data.

endif.

endform. "get_outsert

thnx.

Message was edited by: venu gopal

Re: select statement

Former Member — Wed, 22 Feb 2006 17:05:03 GMT

u have to use loop endloop ,

select matnr from mara into corresponding fields of table

material_data where mtart = 'FERT'.

append material_data.

loop at material_dat.

select single * from mast where matnr = material_data-matnr.

endloop

if sy-subrc = 0.

clear i_bom.

refresh i_bom.

select stlal stktx from stko

into i_bom where stlnr = mast-stlnr.

append i_bom.

clear i_bom.

endselect.

endif.

Re: select statement

Former Member — Wed, 22 Feb 2006 17:06:24 GMT

delete i_bom where stktx(12) <> c_unrestr.

if v_lines = 1.

read table i_bom.

if sy-subrc = 0.

select idnrk from stpo into i_outsert-idnrk

******

where stlnr = stko-stlnr.

****here stko-stlnr *****change it to i_bom-stlnr

put break-points and debug the code whether the values were populating properly or not.

append i_outsert.

endselect.

endif

Message was edited by: Hasmath

Re: select statement

Former Member — Wed, 22 Feb 2006 17:10:45 GMT

hasmath,

but there is no "i_bom-stlnr" declared in that itab.

it gives error, right?

Re: select statement

Former Member — Wed, 22 Feb 2006 17:16:24 GMT

Hi Venu,

In this select statement how will u be getting matnr from material_data , unless u loop at table or use FOR ALL ENTRIES , u will not get that value

select single * from mast where matnr = material_data-matnr.

Re: select statement

Former Member — Wed, 22 Feb 2006 17:21:20 GMT

change this

data: begin of material_data occurs 0,

matnr like mara-matnr,

...................

end of material_data.

data: str1(2) type c value 'O',

str2(2) type c value 'OP',

str3(2) type c value 'M',

str4(2) type c value 'MP'.

data: begin of i_bom occurs 0,

stlal like stko-stlal,

stktx like stko-stktx,

end of i_bom.

data: begin of i_outsert occurs 0,

idnrk like stpo-idnrk,

end of i_outsert.

data: begin of i_awp occurs 0,

matnr like mara-matnr,

rate like konp-kbetr,

end of i_awp.

data: v_lines type i.

constants: c_unrestr(12) type c value 'DEV'.

perform get_outsert.

form get_outsert.

clear material_data.

refresh material_data.

select matnr from mara into corresponding fields of table

material_data where mtart = 'FERT'.

loop at material_data.

select single * from mast where matnr = material_data-matnr.

if sy-subrc = 0.

clear i_bom.

refresh i_bom.

select stlal stktx from stko

into table i_bom where stlnr = mast-stlnr.

endif.

loop at i_bom.

translate i_bom-stktx to upper case.

modify i_bom transporting stktx.

endloop.

clear i_bom.

delete i_bom where stktx(12) <> c_unrestr.

if v_lines = 1.

read table i_bom with key stktx eq c_unrestr.

if sy-subrc = 0.

select idnrk from stpo into table i_outsert

where stlnr = <table>-stlnr.

endif.

if ( i_outsert-idnrk cs str1 ) or ( i_outsert-idnrk cs str2 ).

move i_outsert-idnrk to material_data-component.

elseif ( i_outsert-idnrk cs str3 ) or

( i_outsert-idnrk cs str4 ).

move i_outsert-idnrk to material_data-mguide.

endif.

modify material_data.

endif.

endloop.

endform. "get_outsert

regards

kishore

Re: select statement

Former Member — Wed, 22 Feb 2006 17:21:25 GMT

thnx shekar.

yes. u r ture.

i've changed and checking that.

Re: select statement

Former Member — Wed, 22 Feb 2006 17:21:48 GMT

First change this.

select matnr from mara into corresponding fields of table

material_data where mtart = 'FERT'.

if sy-subrc = 0.

loop at material_data

select single * from mast

where matnr = material_data-matnr .

exit.

endloop.

Also change this.

Add this field in Internal table i_bom (stlnr)

read table i_bom.

if sy-subrc = 0.

select idnrk from stpo into i_outsert-idnrk

where stlnr = i_bom-stlnr.

append i_outsert.

endselect.

endif.

Re: select statement

Former Member — Wed, 22 Feb 2006 17:48:33 GMT

if sy-subrc = 0.

select idnrk from stpo into i_outsert-idnrk

where stlnr = i_bom-stlnr.

but there is no values for "i_bom-stlnr". we are not selecting data for that field.

plz tell me what can be done to correct that?

thnx

Re: select statement

Former Member — Wed, 22 Feb 2006 17:54:49 GMT

Once you delete data from I_BOM based upon the text condition, check if table is initial.

Also you need to select STLNR from MAST to I_BOM internal table. This will be used for further processing.

Check in debug mode if you are getting values after each step.

If still you have problems, post your code. I shall have a look and get back to you.

Message was edited by: Ashish Gundawar

Re: select statement

suresh_datti — Wed, 22 Feb 2006 17:55:11 GMT

Hi Venu,

I remember reading somewhere that you shouldn't be reading BOM data directly from a Table.. but instead retrieve the data via a function call..like 'CO_MP_BOM_READ'.

Regards,

Suresh Datti

Re: select statement

Former Member — Wed, 22 Feb 2006 17:55:38 GMT

u can add stlnr into internal table i_bom

Re: select statement

Former Member — Wed, 22 Feb 2006 18:02:18 GMT

ashish,

please tell me where should i have to do this select for stlnr.

in the code, i'm filling the i_bom with data like this.

clear i_bom.

refresh i_bom.

select stlal stktx from stko

into i_bom where stlnr = mast-stlnr.

append i_bom.

clear i_bom.

endselect.

should i have to select the stlnr before this select statement.

plz tell me.

thnx

Re: select statement

Former Member — Wed, 22 Feb 2006 18:04:43 GMT

Check this out

data: begin of i_bom occurs 0,

stlnr like stko-stlnr,

stlal like stko-stlal,

stktx like stko-stktx,

end of i_bom.

clear i_bom.

refresh i_bom.

select STLNR stlal stktx from stko

into i_bom where stlnr = mast-stlnr.

append i_bom.

clear i_bom.

endselect.

Re: select statement

suresh_datti — Wed, 22 Feb 2006 18:06:43 GMT

just a small correction ..

use the following SELECT for better performance..

select STLNR stlal stktx from stko

into table i_bom where stlnr = mast-stlnr.

Regards,

Suresh Datti

Re: select statement

Former Member — Wed, 22 Feb 2006 18:39:20 GMT

when debugging the code, i could see the values for internal table i_bom.

but when checking that with,

if v_lines = 1.

there it is showing v_lines = 0.

i dont understand why it is showing up like that?

could you please let me know.

thnx.

Re: select statement

Former Member — Wed, 22 Feb 2006 18:42:45 GMT

u r populating the value of v_lines anywhere in the code

if u want no of records in i_BOM , then u have to write

DESCRIBE TABLE I_BOM LINES V_LINES

Message was edited by: Sekhar

Re: select statement

Former Member — Wed, 22 Feb 2006 18:43:28 GMT

Hi Venu,

Where are you populating V_lines .

After delete write the following :

Describe table I_BOM lines V_lines.

Then V_lins shows no.of lines in I_BOM.

Regards,

Lanka

Re: select statement

suresh_datti — Wed, 22 Feb 2006 18:46:52 GMT

insert the following statement before if v_lines = 1.

v_lines = lines( i_bom ).

Regards,

Suresh Datti

Re: select statement

Former Member — Wed, 22 Feb 2006 19:14:08 GMT

friends it is working fine..

but while debugging it is going to short dump after the statement,

if ( i_outsert-idnrk cs str1 ) or ( i_outsert-idnrk cs str2 ).

write i_outsert-idnrk to material_data-component.

elseif ( i_outsert-idnrk cs str3 ) or

( i_outsert-idnrk cs str4 ).

write i_outsert-idnrk to material_data-mguide.

endif.

modify material_data.

the values are getting transfered from i_outsert to material_data,

but after the statement,

modify material_data..

it is going to short dump saying that...

"TABLE ILLEGAL STATEMENT".

could you please tell me what could be the reason for this?

the MATERIAL_DATA itab is like this:

data: begin of material_Data occurs 0,

matnr like mara-matnr,

component like stpo-idnrk,

mguide like stpo-idnrk,

end of material_data.

thnx.