ABAP routine to join two ODS objects into one

Question

Hi there,
i have two ODS objects related to each other. and i want to load them into another ODS object and join them so to say.
as far as i got now, it seems that the only way to do this is an ABAP routine in the update rules. ca nanyone give me a hint on how to do this? no clue how ABAP works yet.
i suppose there must be some template or something because i think others must have had the same issue before. anyone who already solved this?
i'd appreciate your help,
regards,
stefan

Answer 1

HI Stefan,
First add VTS_KUN (customer code)
VTS_BEDA (order date)
in ODS2 VTSNWBP2 and don't map to any field intransfer rule.
write this code in start routine of udpate rule between VTSNWBP2 and VTSNWBDN.
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
<u>TABLES: /BIC/AVTS_NWBE00.</u>
DATA:   ...
$$ end of global - insert your declaration only before this line   -
The follow definition is new in the BW3.x
TYPES:
  BEGIN OF DATA_PACKAGE_STRUCTURE.
     INCLUDE STRUCTURE <i>/BIC/CS8ZODS2</i>.
TYPES:
     RECNO   LIKE sy-tabix,
  END OF DATA_PACKAGE_STRUCTURE.
DATA:
  DATA_PACKAGE TYPE STANDARD TABLE OF DATA_PACKAGE_STRUCTURE
       WITH HEADER LINE
       WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.
FORM startup
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
           MONITOR_RECNO STRUCTURE RSMONITORS " monitoring with record n
           DATA_PACKAGE STRUCTURE DATA_PACKAGE
  USING    RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal tables "MONITOR" and/or "MONITOR_RECNO",
to make monitor entries
<b>DATA:  S_DATA TYPE STANDARD TABLE OF DATA_PACKAGE_STRUCTURE
       WITH HEADER LINE
       WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.
DATA:  ITEM_TABLE TYPE STANDARD TABLE OF /BIC/AVTS_NWBE00
       WITH HEADER LINE
       WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.
*start of modification
*Populating the order number data from ODS1 table
SELECT * FROM  /BIC/AVTS_NWBE00 INTO TABLE ITEM_TABLE.
SORT DATA_PACKAGE BY VTS_BES  ASCENDING.
SORT <u><i>ITEM_TABLE</i></u> BY VTS_BES  ASCENDING.
LOOP AT DATA_PACKAGE INTO S_DATA.
   LOOP AT ITEM_TABLE WHERE VTS_BES = S_DATA-VTS_BES.
     MOVE-CORRESPONDING item_table to s_data.
     APPEND S_DATA.
   ENDLOOP.
ENDLOOP.
DATA_PACKAGE[] = S_DATA[].</b>
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
*TABLES: /BIC/AVTS_NWBE00.--ODS1 table
Lemme know this is working.
Regards,
San!
Message was edited by: San!