Format ,write itab to screen

Question

Hi all,
Its embarassing as this is a continuation of something from my previous post.But unfortunately I have to do this as Iam new To ABAP and I have to meet a deadline tommorow.
Have an itab structure as follows(Thanks to marcin)
TYPES:BEGIN OF t_itab,
      matnr TYPE matnr,
      land  TYPE c,
      month(5) TYPE c,
      qua TYPE p DECIMALS 2,
     END OF t_itab.
TYPES: tt_itab TYPE TABLE OF t_itab WITH KEY matnr land month.
The output of the itab is as follows:
100                A  11.09             5,00
100                A  12.09             0,00
100                A  01.10             5,00
100                A  02.10             4,00
100                A  03.10             5,00
100                B  11.09             0,00
100                B  12.09             5,00
100                B  01.10             0,00
100                B  02.10             0,00
100                B  03.10             0,00
100                C  11.09             4,00
100                C  12.09             0,00
100                C  01.10             0,00
100                C  02.10             0,00
100                C  03.10             0,00
I have to write a "header" as follows using "Write" statement(In Bold) and arrange,sum up the values of the itab and show it as below.
The last "Sum" row if possible in bold .
Any thing to make it look better in the screen is welcome.
The idea for me was to get the outputLines into a string(Line) and write the line to screen.Iam working on it but it is a slow process.
MaterialNumber  Land   11.09 12.09 01.10  02.10  03.10   Total
100               A      5     0     5      4      5       19
100               B      0     5     0      0      0        5
100               C      4     0     0      0      0        4
           Sum      9     5     5      4        5        28
Thanks
P
Edited by: pazzuzu on Mar 18, 2010 11:51 AM

Answer 1

Hi
For this one you need some exercise to do it; please find the code below;
data: begin of it_output occurs 0,
matnr type matnr,
land   type land1,
month1 TYPE p DECIMALS 2, "define 30 to 40 colums as per your requirement
month2 type p decimals 2,
month30  type p decimals 2,
end of it_output,
begin of it_fieldinfo,
fname(6),
fval(5),
end of it_fieldinfo.
field-symbols <fs_amt> type p decimals 2.
data: l_name(20).
sort t_tab by matnr land month.
loop at t_tab.
read table it_fieldinfo with key fval = month.
if sy-subrc eq 0.
   concatenate 'IT_OUTPUT-' it_fieldinfo-fname into l_name.
   assign (l_name) to <fs_amt>.
   if <fs_amt> is assigned.
      <fs_amt> = t_tab-qua.
  endif.
else.
describe table it_fieldinfo.
add 1 to sy-tfill.
l_name = sy-tfill.
concatenate 'MONTH' l_name into l_name.
shift l_name left deleting leading space.
it_fieldinf0-fname = l_name+0(6).
it_fieldinfo-fval = t_tab-month.
append it_fieldinfo.
concatenate 'IT_OUTPUT-' it_fieldinfo-fname into l_name.
   assign (l_name) to <fs_amt>.
   if <fs_amt> is assigned.
      <fs_amt> = t_tab-qua.
  endif.
endif.
it_output-matnr = t_tab-matnr.
it_output-land  = t_tab-land.
append it_output.
clear: it_output,
          it_fieldinfo,
        t_tab.
endloop.
***write header of the output
write: /2 'Material Number',
          25 'Land'.
data: l_val type i,
        l_no type i.
l_val = 25.
loop at it_fieldinfo.
add 10 to l_Val.
write at pos(10) it_fieldinfo-fval.
clear it_fieldinfo.
endloop.
***write the details
*describe table it_fieldinfo lines l_no.
loop at it_output.
write: /2 it_output-matnr,
          25 it_output-land,
         35 it_output-month1,
       255 it_output-month30.
at last.
sum.
write: / 35 it_output-month1,
       255 it_output-month30.
endat.
clear it_output.
endloop.
I hope it will solve issue. Do some logic building to stop the printing month values at exact no.of months exists in the it_fieldinfo.
Thanks
Praveen