Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Logic Required

Go to solution
Former Member

‎10-15-2008 11:51 AM

0 Kudos

Hi,

TYPES:BEGIN OF t_test,

am1 TYPE DMBTR,

am2 TYPE DMBTR,

typ TYPE CHAR2,

pe1 TYPE P DECIMALS 2,

pe2 TYPE P DECIMALS 2,

END OF t_test.

DATA:it_test TYPE TABLE OF t_test.

DATA:wa_test LIKE LINE OF it_test.

wa_test-am1 = '110'.

wa_test-am2 = '190'.

wa_test-typ = 'SE'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '110'.

wa_test-am2 = '190'.

wa_test-typ = 'SE'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '100'.

wa_test-am2 = '240'.

wa_test-typ = 'SR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '100'.

wa_test-am2 = '240'.

wa_test-typ = 'SR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '10'.

wa_test-am2 = '120'.

wa_test-typ = 'HR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '10'.

wa_test-am2 = '120'.

wa_test-typ = 'HR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

I want the output like this in the internal table.

220 380 SE 12 14

200 480 SR 12 14

20 240 HR 12 14

Here in this internal table only 2 amount fields and 2 Rate fields are there. But in my original ionternal table nearly 30 amount fields and 20 Rate fields are there. Could you please help me with logic?

1 ACCEPTED SOLUTION

Go to solution
Former Member

‎10-15-2008 12:32 PM

0 Kudos

Hi,

please find the below code

TYPES:BEGIN OF t_test,

am1 TYPE DMBTR,

am2 TYPE DMBTR,

typ TYPE CHAR2,

pe1 TYPE P DECIMALS 2,

pe2 TYPE P DECIMALS 2,

END OF t_test.

DATA:it_test TYPE TABLE OF t_test,

it_test1 TYPE TABLE OF t_test.

DATA:wa_test LIKE LINE OF it_test,

wa_test1 LIKE LINE OF it_test.

wa_test-am1 = '110'.

wa_test-am2 = '190'.

wa_test-typ = 'SE'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '110'.

wa_test-am2 = '190'.

wa_test-typ = 'SE'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '100'.

wa_test-am2 = '240'.

wa_test-typ = 'SR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '100'.

wa_test-am2 = '240'.

wa_test-typ = 'SR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '10'.

wa_test-am2 = '120'.

wa_test-typ = 'HR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '10'.

wa_test-am2 = '120'.

wa_test-typ = 'HR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

sort it_test by typ.

loop at it_test into wa_test.

read table it_test1 into wa_test1 with key typ = wa_test-typ.

if sy-subrc ne 0.

move-corresponding wa_test to wa_test1.

append wa_test1 to it_test1.

else.

clear: wa_test-pe1,

wa_test-pe2.

collect wa_test into it_test1.

endif.

endloop.

loop at it_test1 into wa_test1.

write:/ wa_test1-am1,wa_test1-am2,wa_test1-typ,wa_test1-pe1,wa_test1-pe2.

endloop.

Regards,

Suresh.

4 REPLIES 4

Go to solution
Former Member

‎10-15-2008 12:18 PM

0 Kudos

Please let me know whether u need 30 fields (logic) or if there is any error.

Go to solution
Former Member

‎10-15-2008 12:19 PM

0 Kudos

please explain your query in detail again,

Go to solution
Former Member

‎10-15-2008 12:20 PM

0 Kudos

you can add a field NUMB in your internal table t_test, when append data into t_test, always set the NUMB = 1, using COLLECT to collect the data in t_test, then divide T_TEST-PE1 by T_TEST-NUMB and divide T_TEST-PE2 by T_TEST-NUMB.

At last, you can get the data you wanted.

Just for your reference.

Go to solution
Former Member

‎10-15-2008 12:32 PM

0 Kudos

Hi,

please find the below code

TYPES:BEGIN OF t_test,

am1 TYPE DMBTR,

am2 TYPE DMBTR,

typ TYPE CHAR2,

pe1 TYPE P DECIMALS 2,

pe2 TYPE P DECIMALS 2,

END OF t_test.

DATA:it_test TYPE TABLE OF t_test,

it_test1 TYPE TABLE OF t_test.

DATA:wa_test LIKE LINE OF it_test,

wa_test1 LIKE LINE OF it_test.

wa_test-am1 = '110'.

wa_test-am2 = '190'.

wa_test-typ = 'SE'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '110'.

wa_test-am2 = '190'.

wa_test-typ = 'SE'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '100'.

wa_test-am2 = '240'.

wa_test-typ = 'SR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '100'.

wa_test-am2 = '240'.

wa_test-typ = 'SR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '10'.

wa_test-am2 = '120'.

wa_test-typ = 'HR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

wa_test-am1 = '10'.

wa_test-am2 = '120'.

wa_test-typ = 'HR'.

wa_test-pe1 = '12'.

wa_test-pe2 = '14'.

APPEND wa_test TO it_test.

CLEAR wa_test.

sort it_test by typ.

loop at it_test into wa_test.

read table it_test1 into wa_test1 with key typ = wa_test-typ.

if sy-subrc ne 0.

move-corresponding wa_test to wa_test1.

append wa_test1 to it_test1.

else.

clear: wa_test-pe1,

wa_test-pe2.

collect wa_test into it_test1.

endif.

endloop.

loop at it_test1 into wa_test1.

write:/ wa_test1-am1,wa_test1-am2,wa_test1-typ,wa_test1-pe1,wa_test1-pe2.

endloop.

Regards,

Suresh.