12-09-2014 2:32 PM
Hi ABAP experts
We have migrated an update rule from 3.x to 7.0 dataflow.
Syntax check of the next transformation and the generated startroutine is okay.
The datasource, an DSO table, has been filled up with a valid source system value with charateristic 0LOGSYS.
While debugging, SOURCE_SYSTEM at the beginning of the coding is not filled which is incorrect.
Are there any ideas how to fix this issue?
Thanks
SOURCE_SYSTEM = p_r_request->get_logsys( ).
* Migrated update rule call
BREAK-POINT.
Perform routine_9998
.........
FORM routine_9998
TABLES
P_MONITOR structure rsmonitor
P_MONITOR_RECNO structure rsmonitors
DATA_PACKAGE TYPE _ty_t_SC_1_full
CHANGING
ABORT LIKE sy-subrc
RAISING
cx_sy_arithmetic_error
cx_sy_conversion_error.
* init variables
* fill the internal tables "MONITOR" and/or "MONITOR_RECNO",
* to make monitor entries
data: l_isource(30) type c.
data: l_date type d.
data: l_abort type sy-subrc value 0.
*Der Bestandsinit für den Cube 0CML_C01 erfolgt über die INFOSOURCE
*0CML_INIT_BUDAT
l_isource = '0CML_INIT_BUDAT'.
*Aufruf des Bausteins im OLTP
*DESTINATION muss geplegt sein (SM59)
CALL FUNCTION 'BWFS_TIMESTAMPS_READ_ALL_RFC' DESTINATION SOURCE_SYSTEM
EXPORTING
I_INFOSOURCE = l_isource
IMPORTING
E_DATUM_INIT = l_date.
if l_date is not initial.
*Schleife über alle Datensätze, die aus dem OLTP geladeb worden sind.
*Alle Datensätze, deren Buchungsdatum kleiner(gleich) dem*
*Bestandsinit-Datum ist, werden gelöscht.
loop at DATA_PACKAGE.
if DATA_PACKAGE-PSTNG_DATE <= l_date.
delete DATA_PACKAGE index sy-tabix.
endif.
endloop.
12-14-2014 4:09 AM
12-14-2014 4:09 AM