End Routine Issue - It does not move data from E_T_RESULT to RESULT_PACKAGE

Question

Hi,
I am facing an issue with end routine. I have gone through previous posts on, how to write end routine and all.I wrote the end routine accordingly.
Here is my scenario,
I have 0CUST_SALES master data , which has all the Sales Org, Distribution Channel and Division, Sold to Party, Sales Grp and Sales Dist.
I am getting , Sold to party and Distribution channel at the field routine.
I am using, Sold to Party and Dist Channel and Division = '01'- whatever i populated using a field routine  and trying to get the Sales Org, Sales Grp and Sales Dist at the end routine.
It looks like, all the code that i wrote seems correct but it does not populate any values into RESULT_PACKAGE.
Here is the code I wote at the end routine. I am not sure, whats wrong in it. I used, this link to write this routine :
http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/203eb778-461d-2c10-60b3-8a94ee91cbfc&overridelayout=true
Global Declaration----
  DATA : BEGIN OF IT_CUST_SALES,
    DIV TYPE /bi0/pcust_sales-DIVISION,
    DIST_CH TYPE /bi0/pcust_sales-DISTR_CHAN,
    SALES_ORG TYPE /bi0/pcust_sales-SALESORG,
    CUST_SAL TYPE /bi0/pcust_sales-CUST_SALES,
    SALESDIST TYPE /bi0/pcust_sales-SALES_DIST,
    SALESGRP TYPE /bi0/pcust_sales-SALES_GRP,
    END OF IT_CUST_SALES.
DATA: T_CUST_SALES LIKE TABLE OF IT_CUST_SALES.
Start of End Routine
   SELECT DIVISION DISTR_CHAN SALESORG CUST_SALES SALES_DIST SALES_GRP
    from
    /bi0/pcust_sales INTO TABLE T_CUST_SALES for all entries in
    RESULT_PACKAGE
    where CUST_SALES = RESULT_PACKAGE-SOLD_TO
     AND DISTR_CHAN = RESULT_PACKAGE-DISTR_CHAN
     AND DIVISION = '01'.
    LOOP AT RESULT_PACKAGE INTO e_s_result.
      READ TABLE T_CUST_SALES INTO IT_CUST_SALES
          WITH KEY CUST_SAL = e_s_result-SOLD_TO
             DIST_CH = e_s_result-DISTR_CHAN
             DIV = '01'.
      IF SY-SUBRC EQ 0 .
        MOVE IT_CUST_SALES-SALES_ORG TO E_S_RESULT-SALESORG.
        MOVE IT_CUST_SALES-SALESDIST TO E_S_RESULT-SALES_DIST.
        MOVE IT_CUST_SALES-SALESGRP TO E_S_RESULT-SALES_GRP.
        APPEND E_S_RESULT  TO  E_T_RESULT .
      ENDIF.
    ENDLOOP.
    REFRESH RESULT_PACKAGE.
    MOVE E_T_RESULT[] TO RESULT_PACKAGE[] .
End End Routine
Data comes into E_T_RESULT but it does not move to RESULT_PACKAGE. Any inputs will be helpful.
Regards,
Kumar

Answer 1

Hi Hegde,
Declaration is same , its like this.
   datA: e_s_result type tys_TG_1.
    data: e_t_result type tyt_TG_1.
I don't know, when i inserted this code in this post, initially it was OK but once i post i also saw , its not that read friendly.
FYI, i am trying to put the code again, lets see if it works.
  SELECT DIVISION DISTR_CHAN SALESORG CUST_SALES SALES_DIST SALES_GRP
    from    /bi0/pcust_sales INTO TABLE T_CUST_SALES for all entries in
    RESULT_PACKAGE   where CUST_SALES = RESULT_PACKAGE-SOLD_TO
     AND DISTR_CHAN = RESULT_PACKAGE-DISTR_CHAN
     AND DIVISION = '01'.
    LOOP AT RESULT_PACKAGE INTO e_s_result.
      READ TABLE T_CUST_SALES INTO IT_CUST_SALES
          WITH KEY CUST_SAL = e_s_result-SOLD_TO
             DIST_CH = e_s_result-DISTR_CHAN
             DIV = '01'.
      IF SY-SUBRC EQ 0 .
        MOVE IT_CUST_SALES-SALES_ORG TO E_S_RESULT-SALESORG.
        MOVE IT_CUST_SALES-SALESDIST TO E_S_RESULT-SALES_DIST.
        MOVE IT_CUST_SALES-SALESGRP TO E_S_RESULT-SALES_GRP.
        APPEND E_S_RESULT  TO  E_T_RESULT .
      ENDIF.
    ENDLOOP.
    REFRESH RESULT_PACKAGE.
    MOVE E_T_RESULT[] TO RESULT_PACKAGE[] .
Regards,
Kumar