‎2007 Mar 14 6:12 AM
Hi Gurus,
Iam not able to under stand this code,
pls explian me ,where can we get it data and where w eput that.
LOOP AT t_x1vbap INTO wa_x1vbap.
MOVE-CORRESPONDING wa_x1vbap TO wa_x1vbapx.
wa_x1vbapx-zauart = wa_x1vbap-auart.
wa_x1vbapx-zvkorg = wa_x1vbap-vkorg.
wa_x1vbapx-zvtweg = wa_x1vbap-vtweg.
wa_x1vbapx-zspart = wa_x1vbap-spart.
wa_x1vbapx-zkunnr = wa_x1vbap-kunnr.
wa_x1vbapx-zkunwe = wa_x1vbap-kunwe.
wa_x1vbapx-zbstnk = wa_x1vbap-bstnk.
wa_x1vbapx-zmatnr = wa_x1vbap-matnr.
wa_x1vbapx-zvrkme = wa_x1vbap-vrkme.
wa_x1vbapx-zwerks = wa_x1vbap-werks.
wa_x1vbapx-zvdatu = wa_x1vbap-edatu.
wa_x1vbapx-zacq1 = wa_x1vbap-accepted_qty.
wa_x1vbapx-zyyykwmeng = wa_x1vbap-accepted_qty.
APPEND wa_x1vbapx TO t_x1vbapx.
MOVE-CORRESPONDING wa_x1vbap TO wa_set.
APPEND wa_set TO t_set.
ENDLOOP.
Thanks,
Mohan.
‎2007 Mar 14 6:20 AM
LOOP AT t_x1vbap INTO wa_x1vbap.
MOVE-CORRESPONDING wa_x1vbap TO wa_x1vbapx.
/* here the fields having same field names as in wa_x1vbap is move to wa_x1vbapx
wa_x1vbapx-zauart = wa_x1vbap-auart.
wa_x1vbapx-zvkorg = wa_x1vbap-vkorg.
wa_x1vbapx-zvtweg = wa_x1vbap-vtweg.
wa_x1vbapx-zspart = wa_x1vbap-spart.
wa_x1vbapx-zkunnr = wa_x1vbap-kunnr.
wa_x1vbapx-zkunwe = wa_x1vbap-kunwe.
wa_x1vbapx-zbstnk = wa_x1vbap-bstnk.
wa_x1vbapx-zmatnr = wa_x1vbap-matnr.
wa_x1vbapx-zvrkme = wa_x1vbap-vrkme.
wa_x1vbapx-zwerks = wa_x1vbap-werks.
wa_x1vbapx-zvdatu = wa_x1vbap-edatu.
wa_x1vbapx-zacq1 = wa_x1vbap-accepted_qty.
wa_x1vbapx-zyyykwmeng = wa_x1vbap-accepted_qty.
/* here some other fields of in wa_x1vbap is move to wa_x1vbapx
APPEND wa_x1vbapx TO t_x1vbapx.
/* here total work area wa_x1vbapx append to table
MOVE-CORRESPONDING wa_x1vbap TO wa_set.
/* here the fields having same field names as in wa_x1vbap is move to wa_set
APPEND wa_set TO t_set.
ENDLOOP.
regards
ananth
‎2007 Mar 14 6:20 AM
LOOP AT t_x1vbap INTO wa_x1vbap.
MOVE-CORRESPONDING wa_x1vbap TO wa_x1vbapx.
/* here the fields having same field names as in wa_x1vbap is move to wa_x1vbapx
wa_x1vbapx-zauart = wa_x1vbap-auart.
wa_x1vbapx-zvkorg = wa_x1vbap-vkorg.
wa_x1vbapx-zvtweg = wa_x1vbap-vtweg.
wa_x1vbapx-zspart = wa_x1vbap-spart.
wa_x1vbapx-zkunnr = wa_x1vbap-kunnr.
wa_x1vbapx-zkunwe = wa_x1vbap-kunwe.
wa_x1vbapx-zbstnk = wa_x1vbap-bstnk.
wa_x1vbapx-zmatnr = wa_x1vbap-matnr.
wa_x1vbapx-zvrkme = wa_x1vbap-vrkme.
wa_x1vbapx-zwerks = wa_x1vbap-werks.
wa_x1vbapx-zvdatu = wa_x1vbap-edatu.
wa_x1vbapx-zacq1 = wa_x1vbap-accepted_qty.
wa_x1vbapx-zyyykwmeng = wa_x1vbap-accepted_qty.
/* here some other fields of in wa_x1vbap is move to wa_x1vbapx
APPEND wa_x1vbapx TO t_x1vbapx.
/* here total work area wa_x1vbapx append to table
MOVE-CORRESPONDING wa_x1vbap TO wa_set.
/* here the fields having same field names as in wa_x1vbap is move to wa_set
APPEND wa_set TO t_set.
ENDLOOP.
regards
ananth
‎2007 Mar 14 6:20 AM
Hi Mohan ,
this looks simple..u r looping at internaltabl t_x1vbap into another internal table t_x1vbapx. To do this move-corr is used and components having diff names are done with direct assignment.
‎2007 Mar 14 6:21 AM
HI Reddy ,
LOOP AT t_x1vbap INTO wa_x1vbap.
<b>* This move corresponding will move the values of the fields in two structures wa_x1vbap , wa_x1vbapx which have the same field name .</b>
MOVE-CORRESPONDING wa_x1vbap TO wa_x1vbapx.
<b>* The fields which doenot have the same name are explicitly assigned below
from wa_x1vbap TO wa_x1vbapx</b>
wa_x1vbapx-zauart = wa_x1vbap-auart.
wa_x1vbapx-zvkorg = wa_x1vbap-vkorg.
wa_x1vbapx-zvtweg = wa_x1vbap-vtweg.
wa_x1vbapx-zspart = wa_x1vbap-spart.
wa_x1vbapx-zkunnr = wa_x1vbap-kunnr.
wa_x1vbapx-zkunwe = wa_x1vbap-kunwe.
wa_x1vbapx-zbstnk = wa_x1vbap-bstnk.
wa_x1vbapx-zmatnr = wa_x1vbap-matnr.
wa_x1vbapx-zvrkme = wa_x1vbap-vrkme.
wa_x1vbapx-zwerks = wa_x1vbap-werks.
wa_x1vbapx-zvdatu = wa_x1vbap-edatu.
wa_x1vbapx-zacq1 = wa_x1vbap-accepted_qty.
wa_x1vbapx-zyyykwmeng = wa_x1vbap-accepted_qty.
<b>* This values are moved to table t_x1vbapx.</b>
APPEND wa_x1vbapx TO t_x1vbapx.
<b>* This move corresponding moves the values of the fields in two structures wa_x1vbap , wa_set which have the same name .</b>
MOVE-CORRESPONDING wa_x1vbap TO wa_set.
<b>*This values are moved to table t_set.</b>
APPEND wa_set TO t_set.
ENDLOOP.
‎2007 Mar 14 6:23 AM
Hi
the loop at statemnt brings the contents from table t_x1vbap to work area wa_x1vbap. and from the work area all the data of fields in workarea wa_x1vbap are moved to another workarea wa_x1vbapx.
and the corresponding data from wa_x1vbap is moved to wa_x1vbapx.
and all that data is being pushed into the internal table t_x1vbapx from workarea wa_x1vbapx,
and from the work area all the data of fields in workarea wa_x1vbap are moved to another workarea wa_set ,
and all that data is being pushed into the internal table t_set from workarea wa_set.
LOOP AT t_x1vbap INTO wa_x1vbap.
MOVE-CORRESPONDING wa_x1vbap TO wa_x1vbapx.
wa_x1vbapx-zauart = wa_x1vbap-auart.
wa_x1vbapx-zvkorg = wa_x1vbap-vkorg.
wa_x1vbapx-zvtweg = wa_x1vbap-vtweg.
wa_x1vbapx-zspart = wa_x1vbap-spart.
wa_x1vbapx-zkunnr = wa_x1vbap-kunnr.
wa_x1vbapx-zkunwe = wa_x1vbap-kunwe.
wa_x1vbapx-zbstnk = wa_x1vbap-bstnk.
wa_x1vbapx-zmatnr = wa_x1vbap-matnr.
wa_x1vbapx-zvrkme = wa_x1vbap-vrkme.
wa_x1vbapx-zwerks = wa_x1vbap-werks.
wa_x1vbapx-zvdatu = wa_x1vbap-edatu.
wa_x1vbapx-zacq1 = wa_x1vbap-accepted_qty.
wa_x1vbapx-zyyykwmeng = wa_x1vbap-accepted_qty.
APPEND wa_x1vbapx TO t_x1vbapx.
MOVE-CORRESPONDING wa_x1vbap TO wa_set.
APPEND wa_set TO t_set.
ENDLOOP.
regards,
kiran kumar k
‎2007 Mar 14 6:34 AM
Here we are using totally 3 tables.
T_X1VBAP.
t_x1vbapx.
t_set.
These 3 tables contains some common fields.
For the table t_x1vbapx:
So we can use the move corresponding statment.
After that for uncommon(names are not equal) fields we are explicitly assigning the values individually.
And then appending the work are to the table.
For the table t_set:
We are using just move corresponding statement .
And then appending the work area to the table.
So from one table we are filling 2 another tables.
Regards,
Balakrishna.N