Report-wrong o/p

Question

hi all, in the code below am getting a wrong o/p that o/p values are repeated,kindly check n plz help me...
loop at it_docu where awtyp = 'BKPF'.
select AUGBL
             INTO TABLE IT1
               from bseg
               where   bukrs = '1000'
                   and belnr = it_docu-docnr
                   and gjahr = it_docu-ac_gjahr.
endloop.
delete adjacent duplicates from it1 comparing augbl.
loop at IT1.
write :/ it1-augbl.
endloop.
every helpfull answers will be rewarded

Answer 1

Hello Sreejith,
     As you have written the codes it may give the output incorrect and also the runtime will be high.
     Firstly if you have declared the tables it_docu and it1 wit header line or with occurs statement then remove that and declare them simply.
     Then declare the datas below first.
TABLES: bseg.
DATA: wa_docu LIKE LINE OF it_docu,
            wa1      LIKE LINE OF it1.
Then at the place of the code what you have written replace the following code-
*LOOP AT it_docu INTO wa_docu *
                           WHERE wa_docu-awtyp = 'BKPF'.
     READ TABLE bseg WITH KEY
                                           bukrs = '1000'
                                           belnr = wa_docu-docnr
                                           gjahr = wa_docu-ac_gjahr.
      IF sy-subrc = 0.
               wa1-augbl = bseg-augbl.
               APPEND wa1 TO it1.
               CLEAR wa1.
      ENDIF.
ENDLOOP.
SORT it1.
DELETE ADJACENT DUPLICATES FROM it1
                                                    COMPARING augbl.
LOOP AT it1 INTO wa1.
           WRITE :/ wa1-augbl.
ENDLOOP.
Edited by: GAURAV SINGH on May 20, 2008 1:20 PM