Re: Issue in Logic ?

Hi karan,

Please look into the below code. Debug the code and do the necessary modifications if required.

TYPES : BEGIN OF TY_NEW,
           KTEXT TYPE T009C-KTEXT,
           DMBTR TYPE BSEG-DMBTR,
           POPER TYPE T009C-POPER,
   END OF TY_NEW.

   DATA : IT_NEW TYPE TABLE OF TY_NEW,
          WA_NEW TYPE TY_NEW.

   SORT IT_FINAL2 BY POPER.
   LOOP AT IT_FINAL INTO WA_FINAL.
     READ TABLE IT_FINAL2 INTO WA_FINAL2 WITH KEY POPER = WA_FINAL-MONAT BINARY SEARCH.
     IF SY-SUBRC = 0.
       WA_NEW-DMBTR = WA_FINAL-DMBTR.
       WA_NEW-KTEXT = WA_FINAL2-KTEXT.
       WA_NEW-POPER = WA_FINAL2-POPER.
       COLLECT WA_NEW INTO IT_NEW.
       CLEAR: WA_NEW, WA_FINAL1, WA_FINAL2.
     ENDIF.
   ENDLOOP.


  
   SORT IT_FINAL2 BY POPER.
  
   LOOP AT IT_NEW INTO WA_NEW.
     IF WA_NEW-POPER = '001' AND WA_NEW-KTEXT = 'APR'.
       WA_FINAL1-V1 = WA_NEW-DMBTR.
     ELSEIF WA_NEW-POPER = '002' AND WA_NEW-KTEXT = 'MAI'.
       WA_FINAL1-V2 = WA_NEW-DMBTR.
     ELSEIF WA_NEW-POPER = '003' AND WA_NEW-KTEXT = 'JUN'.
       WA_FINAL1-V3 = WA_NEW-DMBTR.
     ELSEIF WA_NEW-POPER = '004' AND WA_NEW-KTEXT = 'JUL'.
       WA_FINAL1-V4 = WA_NEW-DMBTR.
     ELSEIF WA_NEW-POPER = '005' AND WA_NEW-KTEXT = 'AUG'.
       WA_FINAL1-V5 = WA_NEW-DMBTR.
       ELSEIF WA_NEW-POPER = '006' AND WA_NEW-KTEXT = 'SEP'.
       WA_FINAL1-V5 = WA_NEW-DMBTR.
       ELSEIF WA_NEW-POPER = '007' AND WA_NEW-KTEXT = 'OKT'.
       WA_FINAL1-V5 = WA_NEW-DMBTR.

"similary write it for the remaining.
     ENDIF.
     READ TABLE IT_FINAL2 INTO WA_FINAL2 WITH KEY POPER = WA_NEW-POPER BINARY SEARCH.
     IF SY-SUBRC = 0.
       WA_FINAL1-NAME3 = WA_FINAL-NAME3.
       WA_FINAL1-DMBTR = WA_FINAL-DMBTR.
       WA_FINAL1-POPER = WA_FINAL2-POPER.
       WA_FINAL1-KTEXT = WA_FINAL2-KTEXT.
       APPEND WA_FINAL1 TO IT_MAIN.
     ENDIF.
     CLEAR:  WA_FINAL1, WA_NEW, WA_FINAL2.
   ENDLOOP.