topic Re: help with some ABAP code in Application Development and Automation Discussions

help with some ABAP code

Former Member — Thu, 23 Aug 2007 18:06:40 GMT

I am trying to fill the quantity value if it is blank by looking for a record with the key and putting it's value in it. the code is below but the part whee it says where order_qty > 0 is not working. It just hops out even if it is.

CLEAR: T_SCHED_DATA, T_QUANTITY_DATA.

REFRESH: T_SCHED_DATA, T_QUANTITY_DATA.

SELECT DOC_NUMBER S_ORD_ITEM SCHED_LINE DSDEL_DATE REQ_DATE ORDER_QTY

INTO TABLE T_SCHED_DATA

FROM /BIC/AZSCH_O5400

FOR ALL ENTRIES IN DATA_PACKAGE

WHERE

DOC_NUMBER = DATA_PACKAGE-DOC_NUMBER AND

S_ORD_ITEM = DATA_PACKAGE-S_ORD_ITEM AND

SCHED_LINE = DATA_PACKAGE-SCHED_LINE.

SELECT DOC_NUMBER S_ORD_ITEM SCHED_LINE DSDEL_DATE REQ_DATE ORDER_QTY

INTO TABLE T_QUANTITY_DATA

FROM /BIC/AZSCH_O5400

FOR ALL ENTRIES IN T_SCHED_DATA

WHERE

DOC_NUMBER = T_SCHED_DATA-VBELN AND

S_ORD_ITEM = T_SCHED_DATA-POSNR.

T_QUANTITY_DATA2[] = T_QUANTITY_DATA[].

sort t_quantity_data2 by vbeln posnr SCHED_LINE

ascending.

sort t_quantity_data by vbeln posnr SCHED_LINE

ascending.

loop at T_QUANTITY_DATA into LF_DATA

where order_qty > 0.

loop at T_QUANTITY_DATA2 into LF_DATA2

where

vbeln = LF_DATA-VBELN AND

posnr = LF_DATA-POSNR AND

DSDEL_DATE = LF_DATA-DSDEL_DATE AND

SCHED_LINE NE LF_DATA-SCHED_LINE and

order_qty = 0.

lf_data3 = lf_data2.

move LF_DATA-order_qty to lf_data3-order_qty.

append lf_data3 to T_QUANTITY_DATA3.

endloop.

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 18:30:34 GMT

HI,

why dont you check with ur data... you say its going out of that loop.. do you think that this statment is not working.. There is not use in posting the same question again and again.. put a break point and check the data.. ur code is 100 correct...

Thanks

mahesh

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 18:39:00 GMT

We did and had another developer look at it and it is not working and doing the exact same thing

thanks for your help

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 18:40:36 GMT

How is "order_qty" defined? It should be numeric type for your statement to work as expected.

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 18:45:34 GMT

Yes it is defined as numeric

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 18:47:10 GMT

Then it should work, put a breakpoint on the LOOP statement and see if there are any contents in the internal table. Also verify if you have any records with order_qty > 0.

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 18:48:00 GMT

See if your second loop is the one that is an issue, not the first loop.

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 18:51:17 GMT

loop at T_QUANTITY_DATA into LF_DATA

where order_qty > 0. " when this is greater than zero

loop at T_QUANTITY_DATA2 into LF_DATA2

where

vbeln = LF_DATA-VBELN AND

posnr = LF_DATA-POSNR AND

DSDEL_DATE = LF_DATA-DSDEL_DATE AND

SCHED_LINE NE LF_DATA-SCHED_LINE and

order_qty = 0. " how can it be zero here

lf_data3 = lf_data2.

move LF_DATA-order_qty to lf_data3-order_qty.

append lf_data3 to T_QUANTITY_DATA3.

endloop.

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 18:56:02 GMT

It can be zero because we have several lines/document and only the qty is on 1 line so we want to fill the blanks with whatever line is not zero. the one loop looks at the one > 0 and finds a amtch based on the key with qty = o and we wnat to fill it with what is in lf_data-order_qty

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 19:11:21 GMT

its nothing to do with the logic... its only data problem... we cannot help it out..

Re: help with some ABAP code

Former Member — Thu, 23 Aug 2007 20:53:49 GMT

I got it to work but now my last code I need to modify the current recod with the qty but it keeps appending to the table instead of going to that record and modifying.

loop at T_QUANTITY_DATA3[] into LF_DATA3.

read table T_QUANTITY_DATA4[] into lf_data4 with key

vbeln = LF_DATA3-VBELN

posnr = LF_DATA3-POSNR.

T_QUANTITY_DATA5 = T_QUANTITY_DATA3.

move lf_data4-order_qty to lf_data5-order_qty.

append lf_data5 to T_QUANTITY_DATA5.