topic Re: Doubt in abap coding in Application Development and Automation Discussions

Doubt in abap coding

Former Member — Tue, 03 Jun 2008 10:40:37 GMT

Hi Experts,

I have doubt, i have an internal table with four column. like below.

KSCHL VALUE DIFF

ZMBO 1.25 12.56

ZMBO 2.31 12.56

ZMBO 4 12.56

ZMBO 5 12.56

ZCHL 4.31 16.87

ZCHL 5.21 16.87

ZCHL 7.35 16.87

ZNLM 0.005 8.03

ZNLM 0.125 8.03

ZNLM 3.65 8.03

ZNLM 4.25 8.03

Now i want to print the above internal table like below,

KSCHL VALUE DIFF

ZMBO 1.25 12.56

ZMBO 2.31 12.56

ZMBO 4 12.56

ZMBO 5 12.56

ZMBO TOTAL 12.56

ZCHL 4.31 16.87

ZCHL 5.21 16.87

ZCHL 7.35 16.87

ZCHL TOTAL 16.87

ZNLM 0.005 8.03

ZNLM 0.125 8.03

ZNLM 3.65 8.03

ZNLM 4.25 8.03

ZNLM TOTAL 8.03

How to print this? Can any one help this. Point will be sure.

Mohana

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 10:43:24 GMT

Hi,

Use AT END OF Statement in your loop. Go through the documentation to understand how this statement should be used.

sort the itab by KSCHL.

Loop at itab.

write:\ ....ur data.

At end of kschl.

write:/ 'ZMBO TOTAL 12.56'.

endat.

endloop.

Shruthi

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 10:44:05 GMT

You can use:

AT END OF KSCHL.

WRITE: 'TOTAL' ....

SKIP.

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 10:45:33 GMT

Hi ,

sort your internal table.

Use control break statements. at end of kschl you print the sum record.

Reward if find useful

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 10:49:34 GMT

Hi,

U can use,

Loop at it_tab into wa_tab.

lv_value = wa_tab-value.

lv_diff = wa_tab-diff.

at end of kschl.

wa_tab1-kschl = wa_tab-kschl.

wa_tab1-value = lv_value.

wa_tab1-diff = lv_diff.

append wa_tab1 to it_tab1.

clear wa_tab1.

end of.

clear wa_tab.

end loop.

thanks

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 10:50:26 GMT

Hi,

sort itab[] by kschl.

Loop at itab.

write:itab-kschl, itab-value, itab-Diff.

at end of kschl.

write:itab-kschl, 'Total' itab-Diff.

endat.

Endloop.

Rgds,

Bujji

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:03:11 GMT

I tried at end of kschl. bt its giving like below,

ZMBO 1.25 12.56

ZMBO Total 12.56

ZMBO 2.31 12.56

ZMBO Total 12.56

ZMBO 4 12.56

ZMBO Total 12.56

ZMBO 5 12.56

ZMBO Total 12.56

ZCHL 4.31 16.87

ZCHL TOTAL 16.87

ZCHL 5.21 16.87

ZCHL TOTAL 16.87

ZCHL 7.35 16.87

ZCHL TOTAL 16.87

Bt i am not expecting this way.

i need after every group i need that total.

Plz help this .

Mohana

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:06:24 GMT

Hi,

Did you sort your internal table by KSCHL before writing the data.

Rgds,

Bujji

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:09:15 GMT

Hi Bujj,

I sorted the internal table with kschl before the loop. but still its giving like the above output only.

Plz help this issue. Plzzzz

Thnx,

Mohana

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:11:24 GMT

Hi,

Other way is shown below

sort by kschl.

read table itab index 1 .

l_kschl = itab-kschl.

Loop at itab.

if l_kschl = itab-kschl.

write:/ ur data...

else.

write"/ l_kschl 'TOTAL 12.56' " the total

l_kschl = itab-kschl.

endif.

endloop.

Shruthi

Edited by: Shruthi R on Jun 3, 2008 1:11 PM

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:20:07 GMT

Hi,

Loop at itab.

IF sy-tabix = 1.

lv_kschl = itab-kschl.

ENDIF.

IF lv_kschl <> itab-kschl.

write:itab-kschl, 'Total' itab-Diff.

lv_kschl = itab-kschl.

ENDIF.

write:itab-kschl, itab-value, itab-Diff.

Endloop.

Rgds,

Bujji

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:31:48 GMT

Hi,

The above logic writes only the first row of tht internal table, its not writing the diff total under each group..

Plz help this issue.

maximum point will be sure.

Mohana

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:34:15 GMT

Hi,

Loop at itab.

IF sy-tabix = 1.

lv_kschl = itab-kschl.

ENDIF.

IF lv_kschl NE itab-kschl.

write:itab-kschl, 'Total' itab-Diff.

lv_kschl = itab-kschl.

ENDIF.

write:itab-kschl, itab-value, itab-Diff.

Endloop.

Rgds,

Bujji

Edited by: Bujji on Jun 3, 2008 1:34 PM

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:44:23 GMT

Hi,

Its giving below output, i think we are very close to the output. Plz hlep me,

ZMBO Total 12.56

ZMBO 2.31 12.56

ZMBO 4 12.56

ZMBO 5 12.56

ZCHL TOTAL 16.87

ZCHL 4.31 16.87

ZCHL 5.21 16.87

ZCHL 7.35 16.87

Its not writing under the Each group. Its writing the value above the each group. i need the total under each group..

Plz help this...

Mohana

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:47:27 GMT

Hi,

Loop at itab.

write:itab-kschl, itab-value, itab-Diff.

index = sy-tabix + 1.

clear wa_temp.

Read table itab into wa_temp index index.

IF wa_temp-kschl NE itab-kschl.

write:itab-kschl, 'Total' itab-Diff.

ENDIF.

Endloop.

Rgds,

Bujji

Edited by: Bujji on Jun 3, 2008 1:49 PM

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:51:33 GMT

Hi,

May this will help you Out.

LOOP AT i_tab.

WRITE : i_tab-kschl.

WRITE : i_tab-value.

WRITE : i_tab-diff.

WRITE :/.

AT END OF kschl.

SUM.

WRITE : i_tab-kschl.

WRITE : 'Total' .

WRITE : i_tab-value.

WRITE :/.

ENDAT.

ENDLOOP.

Regards

Supriya Bhatt

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 11:57:55 GMT

Hi ,

Continue from Last message...

Suppose i_tab is your Internal table consisting of:

ZMBO 1.25 12.56

ZMBO 2.31 12.56

ZMBO 4.00 12.56

ZMBO 5.00 12.56

ZCHL 4.31 16.87

ZCHL 5.21 16.87

ZCHL 7.35 16.87

ZNLM 0.005 8.03

ZNLM 0.125 8.03

ZNLM 3.65 8.03

ZNLM 4.25 8.03

Then write the code:

LOOP AT i_tab.

WRITE : i_tab-kschl.

WRITE : i_tab-value.

WRITE : i_tab-diff.

WRITE :/.

AT END OF kschl.

SUM.

WRITE : i_tab-kschl.

WRITE : 'Total' .

WRITE : i_tab-value.

WRITE :/.

ENDAT.

ENDLOOP.

Will give the below output: May this will help you

ZMBO 1.250 12.56

ZMBO 2.31 12.56

ZMBO 4.000 12.56

ZMBO 5.000 12.56

ZMBO Total 12.56

ZCHL 4.31 16.87

ZCHL 5.21 16.87

ZCHL 7.35 16.87

ZCHL Total 16.87

ZNLM 0.005 8.03

ZNLM 0.12 8.03

ZNLM 3.65 8.03

ZNLM 4.25 8.03

ZNLM Total 8.03

Regards:

Supriya Bhatt

Edited by: Supriya Bhatt on Jun 3, 2008 1:59 PM

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 12:08:04 GMT

Hi Bujj,

i am not getting the sentence

Read table itab into wa_temp index index.

can plz tell correct formet? Plz...

Mohana

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 12:13:30 GMT

Hi,

In the loop itself you are reading the next line and compare the next kschl with the current kschl. Index should be the value of sy-tabix + 1.

Has your problem got solved or not?

Rgds,

Bujji

Re: Doubt in abap coding

Former Member — Tue, 03 Jun 2008 12:16:40 GMT

Hi Bujji,

No its not solved, its giving error onthis line.

Read table itab into wa_temp index index.

Plz help the correct syntax line...

Plzzzz