1。 在例程开始时，条件=>从source_package中删除的数据=>我认为您可以将其移至DTP的过滤条件。

2。 如果您的数据库是HANA，请尝试将逻辑移至过程或创建HANA视图。

3。 将/BIC/TABLE5上的选择移到/BIC/TABLE4的选择之外，因为那里没有关系（条件仅是活动版本）。 我还认为您可以用TVARVC替换TABLE4，TABLE5。

还有更多...我尝试如下所示，您可以考虑：

数据：lv_date TYPE数据。
 数据：lv_maxdate TYPE基准。
 数据：lv_flag TYPE C长度1。
 数据：lv_count类型i值1。
 数据：lv_date_type TYPE/bic/oig_tic9038。
 数据：lv_adhoc_date TYPE数据。
 数据：来自TYPE数据的lv_date。
 数据：lv_dateto TYPE基准。
 FIELD-SYMBOLS：类似于result_package的行。
 在哪里删除source_package（/bic/table1是INITIAL或
                             /bic/table2是INITIAL）或
                             /bic/table3是INITIAL。
 检查source_package是否为INITIAL。
 *阅读临时历史加载日期
 SELECT CALDAY
      /bic/g_tic9038
      /bic/g_mcc2037
   INTO（lv_adhoc_date，
         lv_date_type，
         lv_flag）
   从/bic/table5
  objvers ='A'。
 从/bic/table4选择SELECT MAX（calday）到lv_maxdate中。
 lv_datefrom = COND#（当lv_date_type ='FROM'
                        AND lv_flag ='X'
                        AND lv_adhoc_date不是初始的
                       然后lv_adhoc_date
                       ELSE lv_maxdate）。
 lv_dateto = COND#（当lv_date_type ='TO'
                      AND lv_flag ='X'
                      AND lv_adhoc_date不是初始的
                     然后lv_adhoc_date
                     ELSE sy-datum）。
 *仅使用源数据中的有效值（如果其晚于目标DSO最大值）
 *日期或临时日期
 在/bic/table2  lv_dateto处删除source_package。
 循环AT source_package ASSIGNING 。
     lv_date = <源字段>-/bic/table2。
     lv_count = 0。
     lv_date <= <源字段>-/bic/table1。
 *基于有效期至和有效期自每日以每日格式创建条目
 *持续时间
     在result_package ASSIGNING 上附加初始行。
     <结果字段>-/bic/carc0200 = <源字段>-/bic/e02matnr。
     <结果字段>-/bic/cstc0100 = <源字段>-/bic/e02werks。
     <结果字段>-/bic/carc0302 = <源字段>-/bic/e02zrange。
      -calday = lv_date。
     -/bic/g_mcc2013 =''。
     <结果字段>-/bic/carc0405 = <源字段>-/bic/table2。
     <结果字段>-/bic/carc0406 = <源字段>-/bic/table1。
 ******************************************************  ********************
     <结果字段> -recordmode = <源字段> -recordmode。
     <结果字段>-记录= lv_count。
 ******************************************************  ********************
     lv_date = lv_date + 1。
     lv_count = lv_count + 1。
     结束。
 结局。
 从result_package删除相邻的重复项
 比较/bic/carc0200
         /bic/cstc0100
           卡尔迪。