advanced code snippet search

Posted By

qrist0ph on 05/06/10


Tagged

abap


Versions (?)

BW Endroutine

 / Published in: Other
 
Expand | Embed | Plain Text 
  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.