Error in transporting the Transformation to Quality system

Question

Hi All,
I am trying to transport the transformation which has field level routine as well as start and end routine.
I have basically ehanced the standard routine and it works perfectly fine in dev server . I have even loaded the data and generated reports on this cube.
Now i am trying to transport it to Quality system. It throws up some "syntax error in routine" error. Very strange.
All my routine in Dev is working but during transport ther is some issue.
i saw some post on same but they are suggesting to regenerate a new transformation. For me this will be a nightmare as there are so many routnies at field level and as end routine.
Kindly suggest how can i rectify this error.
Note:- I had generated this transformation via old update rules with Migration function.
Thanks & Regards,
Anup

Answer 1

Hi Anindya,
Below is my source code for one field level routine in transformation.
FORM routine_0080
  TABLES
   p_monitor         STRUCTURE rsmonitor
  USING
    COMM_STRUCTURE TYPE _ty_s_sc_1__rule_52
  CHANGING
    RESULT         TYPE _ty_s_tg_1_full-srvclen
    RETURNCODE     LIKE sy-subrc
    ABORT          LIKE sy-subrc
  RAISING
    cx_sy_arithmetic_error
    cx_sy_conversion_error.
* init variables
* fill the internal table "MONITOR", to make monitor entries
  DATA: ultimo LIKE sy-datum.
  IF g_record_no <> RECORD_NO.
    g_record_no = RECORD_NO.
    CLEAR: employee_wa, person_wa.
    CLEAR: employee_md, person_md.
  ENDIF.
  PERFORM read_md_employee
          USING    COMM_STRUCTURE-employee
                   COMM_STRUCTURE-calday
                   RECORD_NO
                   RECORD_ALL
                   SOURCE_SYSTEM
          CHANGING employee_wa
                   RETURNCODE.
  employee_md = employee_wa.
  PERFORM calculate_ultimo
          USING COMM_STRUCTURE-calday+0(6)
                 RECORD_NO
                 RECORD_ALL
                 SOURCE_SYSTEM
          CHANGING ultimo
                   RETURNCODE.
  IF NOT employee_md-entrydate IS INITIAL.
    RESULT = ultimo+0(4) - employee_md-entrydate+0(4).
    IF ultimo+4(4) LT employee_md-entrydate+4(4).
      RESULT = RESULT - 1.
    ENDIF.
  ENDIF.
* result value of the routine
* 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.
  p_monitor[] = MONITOR[].
  CLEAR:
    MONITOR[].
CLASS lcl_transform IMPLEMENTATION.
  METHOD compute_0AGE_RANGE.
*   IMPORTING
*     request     type rsrequest
*     datapackid  type rsdatapid
*     SOURCE_FIELDS-CALDAY TYPE /BI0/OICALDAY
*     SOURCE_FIELDS-EMPLOYEE TYPE /BI0/OIEMPLOYEE
*    EXPORTING
*      RESULT type _ty_s_TG_1-AGE_RANGE
    DATA:
      MONITOR_REC    TYPE rsmonitor.
*$*$ begin of routine - insert your code only below this line        *-*
  Data:
    COMM_STRUCTURE   type _ty_s_SC_1__RULE_20,
    l_subrc          type sy-tabix,
    l_abort          type sy-tabix,
    ls_monitor       TYPE rsmonitor,
    ls_monitor_recno TYPE rsmonitors.
  data:
    l_monitor        type standard table of rsmonitor.
  REFRESH:
    MONITOR.
* Runtime attributs
    SOURCE_SYSTEM  = p_r_request->get_logsys( ).
    MOVE-CORRESPONDING SOURCE_FIELDS to COMM_STRUCTURE.
*  Migrated update rule call
  Perform routine_0070
  TABLES
    l_monitor
  USING
    COMM_STRUCTURE
  CHANGING
    RESULT
    l_subrc
    l_abort.
*-- Convert Messages in Transformation format
    LOOP AT l_monitor INTO ls_monitor.
      move-CORRESPONDING ls_monitor to MONITOR_REC.
      append monitor_rec to MONITOR.
    ENDLOOP.
    IF l_subrc <> 0.
      RAISE EXCEPTION TYPE CX_RSROUT_SKIP_RECORD.
    ENDIF.
    IF l_abort <> 0.
      RAISE EXCEPTION TYPE CX_RSROUT_ABORT.
    ENDIF.
I am not able to change the code which are marked with " * ". Where can i change the code here?
Regards,
Anup