Whether the fields of a single row in an internal table has got value.

Question

I am doing an archiving report in PS Module.
The table RPSCO has 12 fields which represent each month.The records in the table are based on OBJNR  and YEAR
Now i need to check for the latest year which month has some value .If any of the month  has got some value i need to take that month.
Sample table given below.
OBJNR           year    Month1    month2      month3    so on
1)PR00002409  2006     0.00     0.00     664.70-     0.00 0.00     0.00     0.00     0.00     0.00                                                                      
0.00     0.00     0.00     0.00
2)PR00002409  2005     0.00     0.00     0.00     0.00     0.00     0.00     0.00 0.00     0.00     0.00     48.70     127.20     0.00
In this case the output should be Month3.Because the latest year is 2006 and Month is Month3.

Answer 1

Hi Susmita,
You have to use DO VARYING option from field 3 onwards.
Below is the sample program to check whether the field has a value or not.
tables: rpsco.
data: it_rpsco like rpsco occurs 0 with header line.
data: v_wlp type rpsco-wlp00,
      v_wtp type rpsco-wtp00,
      v_pos type i.
select * from rpsco into table it_rpsco where gjahr = '2007'.
if lines( it_rpsco ) gt 0.
loop at it_rpsco.
  clear v_pos.
  do 16 times varying v_wlp from it_rpsco-wlp00 next it_rpsco-wlp01
              varying v_wtp from it_rpsco-wtp00 next it_rpsco-wtp01.
   v_pos = v_pos + 1.
   if not v_wlp is initial.
     write:/5 v_pos , 35 v_wlp, 70 v_wtp.
     exit.
   endif.
  enddo.
endloop.
endif.
Regards,
Kumar Bandanadham
Edited by: Velangini Showry Maria Kumar Bandanadham on Jun 1, 2009 9:30 AM