/ Published in: Other

Expand |
Embed | Plain Text
method end_routine. *=== Segments === field-symbols: <result_fields> type _ty_s_tg_1. data: monitor_rec type rstmonitor. *$*$ begin of routine - insert your code only below this line *-* * interne tabelle auf basis des dso ZCACSBW4 für look-up definieren data: lth_zcacsbw4 type hashed table of /bic/azcacsbw400 with unique key is_docid is_pstyear icm_troide icm_troty initial size 0. * feldsymbol zur internen tabelle für look-up definieren field-symbols: <lf_zcacsbw4> type /bic/azcacsbw400. * prefetch der daten aus dso für look-up - zur vereinfachung werden * alle docid's selektiert. ergebnismenge ist ggf. etwas umfangreicher * als unbedingt nötig - bringt aber trotzdem performancevorteile select * into corresponding fields of table lth_zcacsbw4 from /bic/azcacsbw400 for all entries in result_package where is_docid = result_package-is_docid. if sy-subrc = 0. "... endif. * optional weitere look-ups selektieren * ... * ... * datenpaket mit den informationen aus dem look-up aktualisiert loop at result_package assigning <result_fields>. * look-up über schlüsselfelder lesen und ergebnis zurückschreiben read table lth_zcacsbw4 assigning <lf_zcacsbw4> with table key is_docid = <result_fields>-is_docid is_pstyear = <result_fields>-is_pstyear icm_troide = <result_fields>-icm_reobid icm_troty = <result_fields>-icm_reobty. if sy-subrc = 0. <result_fields>-/bic/zicm_pamt = <lf_zcacsbw4>-/bic/zicm_pamt. endif. * optional weitere look-ups auslesen * ... * ... endloop. *$*$ end of routine - insert your code only before this line *-* endmethod. "end_routine
You need to login to post a comment.