Need ABAP code for Routine

Question

Hi Gurus My requirement goes like this.
                              I need to write the routine in Transformation from DSO to DSO
Source table
Doc         Amt         Netduedate      Reference Doc
1000      10000     01.01.2010        
1500       5000      30.01.2010        1000
1700       3000      02.02.2010        1000  
In the Above table 1st document is Invoice Document, 2nd and 3rd are Partial Payment Document.
My requirement is 2nd and 3rd record Netduedate value should have 01.01.2010 by referring reference Doc field, for the above Ex We should have the output like this
Target table
Doc         Amt         Netduedate      Reference Doc
1000      10000     01.01.2010        
1500       5000      01.01.2010        1000
1700       3000      01.01.2010        1000  
Please give me the syntax code and where to write the code ie in the start routine or in the field routine. the dataflow is between one DSO to Another DSO
Please Provide me the solution ASAP as this is very Urgency.
Thanks in Advance

Answer 1

If suppose your documents are being loaded in same load,
1. start routine - create internal table like SOURCE_PACKAGE
DATA IT_SOURCE_PACKAGE TYPE TABLE OF SOURCE_PACKAGE.
DATA WA_SOURCE_PACKAGE LIKE LINE OF SOURCE_PACKAGE.
2. copy all records to new internal table, IT_SOURCE_PACKAGE[] = SOURCE_PACKAGE[]
3. delete partial docs, DELETE IT_SOURCE_PACKAGE WHERE REF_DOC IS NOT INITIAL.
4. Sort internal table SORT IT_SOURCE_PACKAGE BY DOC
5. Look for original doc inside loop.
LOOP AT SOURCE_PACKAGE ASSIGNING <SOURCE_FIELDS> WHERE REF_DOC IS NOT INITIAL.
READ TABLE IT_SOURCE_PACKAGE 
      INTO WA_SOURCE_PACKAGE
      WITH KEY DOC = <SOURCE_FIELDS>-REF_DOC  BINARY SEARCH.
IF SYSUBRC EQ 0.
  <SOURCE_FIELDS>-NDUEDATE = WA_SOURCE_PACKAGE -NDUEDATE.
ENDIF.
ENDLOOP.
If the original documents are found in different loads in the source DSO, we need to pull the records from active table of the target DSO after step 2.
-Jijo