Guest User

Untitled

a guest
Jan 20th, 2018
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.34 KB | None | 0 0
  1. ****************************************************************
  2. * COMPARE TWO TABLES
  3.  
  4. * TWO TABLE COMPARISON
  5. * LOGIC: 1 - Loop over itab gt_ebill_ca
  6. * 2 - Read itab gt_fkkvkp with key vkont = gt_ebill-vkont
  7. * 3 - At this point we have read one line from each table, for the same vkont
  8. * 4 - Control block
  9. * 5 - MOVE-CORRESPONDING FROM TABLE A TO OUTPUT WORK AREA (IT HAS SAME NAME AS TABLE)
  10. * 6 - MOVE-CORRESPONDING FROM TABLE B TO OUTPUT WORK AREA
  11. * 7 - INCREMENT MISMATCH COUNTER.
  12. * 8 - APPEND CREATED WORK AREA TO OUTPUT.
  13. LOOP AT gt_ebill_ca.
  14.  
  15. " Reads a table at specified key
  16. READ TABLE gt_fkkvkp WITH KEY vkont = gt_ebill_ca-vkont.
  17.  
  18. IF ( gt_ebill_ca-EMAIL_NOTIFY <> gt_fkkvkp-EMAIL_FIS )
  19. OR ( gt_ebill_ca-SMS_NOTIFY <> gt_fkkvkp-SMSIN_FIS )
  20. OR ( gt_ebill_ca-PAPER_NOTIFY <> gt_fkkvkp-PBILL_FIS ).
  21.  
  22. " Increment counter
  23. ADD 1 to mismatch.
  24.  
  25. " populate work areas
  26. MOVE-CORRESPONDING gt_ebill_ca TO gt_ebill_out.
  27. MOVE-CORRESPONDING gt_fkkvkp TO gt_ebill_out.
  28. MOVE gt_fkkvkp-MONTHLY TO gt_ebill_out-FKMONTHLY.
  29. "MOVE gt_ebill_ca-vkont TO gt_ebill_out-VKONT.
  30. " append to the out_table
  31. APPEND gt_ebill_out.
  32.  
  33. ENDIF.
  34.  
  35. ENDLOOP.
  36.  
  37. ********************************************************************
Add Comment
Please, Sign In to add comment