Skip to Content
0
Former Member
Dec 01, 2009 at 08:48 AM

Migration from 3.x dataflow to 7.0

37 Views

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.