Posted By

qrist0ph on 05/06/10


Tagged

abap


Versions (?)

BW Endroutine


 / Published in: Other
 

  1. method end_routine.
  2. *=== Segments ===
  3.  
  4. field-symbols:
  5. <result_fields> type _ty_s_tg_1.
  6.  
  7. data:
  8. monitor_rec type rstmonitor.
  9.  
  10. *$*$ begin of routine - insert your code only below this line *-*
  11.  
  12. * interne tabelle auf basis des dso ZCACSBW4 für look-up definieren
  13. data: lth_zcacsbw4 type hashed table of /bic/azcacsbw400
  14. with unique key is_docid
  15. is_pstyear
  16. icm_troide
  17. icm_troty
  18. initial size 0.
  19.  
  20. * feldsymbol zur internen tabelle für look-up definieren
  21. field-symbols: <lf_zcacsbw4> type /bic/azcacsbw400.
  22.  
  23. * prefetch der daten aus dso für look-up - zur vereinfachung werden
  24. * alle docid's selektiert. ergebnismenge ist ggf. etwas umfangreicher
  25. * als unbedingt nötig - bringt aber trotzdem performancevorteile
  26. select *
  27. into corresponding fields of table lth_zcacsbw4
  28. from /bic/azcacsbw400
  29. for all entries in result_package
  30. where is_docid = result_package-is_docid.
  31. if sy-subrc = 0.
  32. "...
  33. endif.
  34.  
  35. * optional weitere look-ups selektieren
  36. * ...
  37. * ...
  38.  
  39. * datenpaket mit den informationen aus dem look-up aktualisiert
  40. loop at result_package assigning <result_fields>.
  41.  
  42. * look-up über schlüsselfelder lesen und ergebnis zurückschreiben
  43. read table lth_zcacsbw4 assigning <lf_zcacsbw4>
  44. with table key is_docid = <result_fields>-is_docid
  45. is_pstyear = <result_fields>-is_pstyear
  46. icm_troide = <result_fields>-icm_reobid
  47. icm_troty = <result_fields>-icm_reobty.
  48. if sy-subrc = 0.
  49. <result_fields>-/bic/zicm_pamt = <lf_zcacsbw4>-/bic/zicm_pamt.
  50. endif.
  51.  
  52. * optional weitere look-ups auslesen
  53. * ...
  54. * ...
  55.  
  56. endloop.
  57.  
  58. *$*$ end of routine - insert your code only before this line *-*
  59. endmethod. "end_routine

Report this snippet  

You need to login to post a comment.