Hi,
i have a question ...
I want to migrate a data flow from 3.x to 7.0.
In the 3.x Transformation, there is a routine (see below). I want to migrate this routine in 7.0 (ABAP Objects).
I cant copy this routine in the class method, because i get syntax errors.
Could you tell me, how is the procedure, to migrate the routine in 7.0 dataflow?
thanxs
PROGRAM UPDATE_ROUTINE.
*$*$ begin of global - insert your declaration only below this line *-*
CONSTANTS: PRG_UPD_RULES LIKE SY-REPID VALUE 'RS_BCT_HR_UPDATE_RULES'.
DATA: EMPLOYEE_MD LIKE /BI0/MEMPLOYEE,
EMPLOYEE_WA LIKE /BI0/MEMPLOYEE,
PERSON_MD LIKE /BI0/MPERSON,
PERSON_WA LIKE /BI0/MPERSON.
DATA: G_RECORD_NO LIKE SY-TABIX.
INCLUDE RS_BCT_HR_UPDATE_RULES_GENERAL.
INCLUDE RS_BCT_HR_PAPA_UPDATE_RULES.
*$*$ end of global - insert your declaration only before this line *-*
FORM compute_key_field
TABLES MONITOR STRUCTURE RSMONITOR "user defined monitoring
USING COMM_STRUCTURE LIKE /BIC/CS0CATS_IS_1
RECORD_NO LIKE SY-TABIX
RECORD_ALL LIKE SY-TABIX
SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
CHANGING RESULT LIKE /BI0/V0CATS_1T-/BIC/Z_EXTERN
RETURNCODE LIKE SY-SUBRC
ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
*
*$*$ begin of routine - insert your code only below this line *-*
* fill the internal table "MONITOR", to make monitor entries
* result value of the routine
if COMM_STRUCTURE-employee ge 90000.
RESULT = 'X'.
else.
RESULT = ''.
endif.
* if the returncode is not equal zero, the result will not be updated
RETURNCODE = 0.
* 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.