topic Re: Expain this code in Application Development and Automation Discussions

Expain this code

Former Member — Wed, 14 Mar 2007 06:12:06 GMT

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.

Re: Expain this code

Former Member — Wed, 14 Mar 2007 06:20:32 GMT

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

Re: Expain this code

Former Member — Wed, 14 Mar 2007 06:20:46 GMT

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.

Re: Expain this code

Former Member — Wed, 14 Mar 2007 06:21:33 GMT

HI Reddy ,

LOOP AT t_x1vbap INTO wa_x1vbap.

* This move corresponding will move the values of the fields in two structures wa_x1vbap , wa_x1vbapx which have the same field name .

MOVE-CORRESPONDING wa_x1vbap TO wa_x1vbapx.

* The fields which doenot have the same name are explicitly assigned below

from 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.

* This values are moved to table t_x1vbapx.

APPEND wa_x1vbapx TO t_x1vbapx.

* This move corresponding moves the values of the fields in two structures wa_x1vbap , wa_set which have the same name .

MOVE-CORRESPONDING wa_x1vbap TO wa_set.

*This values are moved to table t_set.

APPEND wa_set TO t_set.

ENDLOOP.

Re: Expain this code

Former Member — Wed, 14 Mar 2007 06:23:10 GMT

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

Re: Expain this code

Former Member — Wed, 14 Mar 2007 06:34:58 GMT

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