ABAP Error while Migration of Transfer Rules

Question

HI
I am migrating the standard Transfer Rules for the
Cube : 0COOM_C02
InfoSource: 0CO_OM_CCA_9
When I converted the Transfer rules it gave me syntax error for ABAP.  When i checked for any routines in transformation rules i found 0PART_CCTR and some more info Objects having routines. When i did syntax check i got the following error
<b>
ERROR:</b>
E:Field "C_T_SELECTION" is unknown. It is neither in one of the specified       
tables nor defined by a "DATA" statement. "DATA" statement. "DATA"              
statement.     
<b>CODE    </b>       
DATA:
L_S_SELECTION LIKE LINE OF C_T_SELECTION.
An empty selection means all values
CLEAR C_T_SELECTION.
L_S_SELECTION-FIELDNM = 'RSPAROBVAL'.
L_S_SELECTION-FIELDNM = 'RSPOBART'.
Selection of all values may be not exact
E_EXACT = RS_C_FALSE.
Please help me how to rectify the following error. I am getting the same error for the rules which has the routines.

Answer 1

This is the whole code and it is not declared anywhere
PROGRAM trans_routine.
      CLASS routine DEFINITION
CLASS lcl_transform DEFINITION.
  PUBLIC SECTION.
    TYPES:
      BEGIN OF tys_SC_1,
     Field: RSPOBART Partner (short).
        RSPOBART           TYPE C LENGTH 4,
     Field: RSPAROBVAL Partner IO val..
        RSPAROBVAL           TYPE C LENGTH 28,
      END   OF tys_SC_1.
    TYPES:
      BEGIN OF tys_TG_1,
     InfoObject: 0PART_CCTR Partner Cost Center.
        PART_CCTR           TYPE /BI0/OIPART_CCTR,
      END   OF tys_TG_1.
    DATA:
      p_check_master_data_exist
            TYPE RSODSOCHECKONLY READ-ONLY,
*-    Instance for getting request runtime attributs;
    Available information: Refer to methods of
    interface 'if_rsbk_request_admintab_view'
      p_r_request
            TYPE REF TO if_rsbk_request_admintab_view READ-ONLY.
  PRIVATE SECTION.
    TYPE-POOLS: rsd, rstr.
$$ begin of global - insert your declaration only below this line  -
TABLES: ...
DATA:   ...
$$ end of global - insert your declaration only before this line   -
    METHODS
      compute_0PART_CCTR
        IMPORTING
          request                  type rsrequest
          datapackid               type rsdatapid
          SOURCE_FIELDS              type tys_SC_1
        EXPORTING
          RESULT                   type tys_TG_1-PART_CCTR
          monitor                  type rstr_ty_t_monitor
        RAISING
          cx_rsrout_abort
          cx_rsrout_skip_record
          cx_rsrout_skip_val.
    METHODS
      invert_0PART_CCTR
        IMPORTING
          i_th_fields_outbound         TYPE rstran_t_field_inv
          i_r_selset_outbound          TYPE REF TO cl_rsmds_set
          i_is_main_selection          TYPE rs_bool
          i_r_selset_outbound_complete TYPE REF TO cl_rsmds_set
          i_r_universe_inbound         TYPE REF TO cl_rsmds_universe
        CHANGING
          c_th_fields_inbound          TYPE rstran_t_field_inv
          c_r_selset_inbound           TYPE REF TO cl_rsmds_set
          c_exact                      TYPE rs_bool.
ENDCLASS.                    "routine DEFINITION
$$ begin of 2nd part global - insert your code only below this line  *
... "insert your code here
$$ end of 2nd part global - insert your code only before this line   *
      CLASS routine IMPLEMENTATION
CLASS lcl_transform IMPLEMENTATION.
  METHOD compute_0PART_CCTR.
  IMPORTING
    request     type rsrequest
    datapackid  type rsdatapid
    SOURCE_FIELDS-RSPOBART TYPE C LENGTH 000004
    SOURCE_FIELDS-RSPAROBVAL TYPE C LENGTH 000028
   EXPORTING
     RESULT type tys_TG_1-PART_CCTR
    DATA:
      MONITOR_REC    TYPE rsmonitor.
$$ begin of routine - insert your code only below this line        -
DATA: l_s_errorlog TYPE rssm_s_errorlog_int.
CALL FUNCTION 'CO001_BIW_PARTNER_DECODE'
EXPORTING
DEL  :I_PIOBJSV = TRAN_STRUCTURE-rspobart
I_PIOBJSV = SOURCE_FIELDS-rspobart
DEL  :I_PIOVALUE = TRAN_STRUCTURE-rsparobval
I_PIOVALUE = SOURCE_FIELDS-rsparobval
IMPORTING
E_COSTCENTER = RESULT
E_ACTTYPE =
E_ABC =
E_WBS_ELEMT =
E_VBELN =
E_VBELN_POSNR =
E_KSTRG =
E_COORDER =
EXCEPTIONS
OBJECT_TYPE_NOT_SUPPORTED = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
RESULT = .
returncode <> 0 means skip this record
DEL  :RETURNCODE = 0.
abort <> 0 means skip whole data package !!!
Please adjust the syntax manually.
    - Automatically replaced: COMM_STRUCTURE with SOURCE_FIELDS
    - Automatically replaced: TRAN_STRUCTURE with SOURCE_FIELDS
    - Included the new Exception Handling (instead of ABORT)
$$ end of routine - insert your code only before this line         -
  ENDMETHOD.                    "compute_0PART_CCTR
      Method invert_0PART_CCTR
      This subroutine needs to be implemented only for direct access
      (for better performance) and for the Report/Report Interface
      (drill through).
      The inverse routine should transform a projection and
      a selection for the target to a projection and a selection
      for the source, respectively.
      If the implementation remains empty all fields are filled and
      all values are selected.
  METHOD invert_0PART_CCTR.
$$ begin of inverse routine - insert your code only below this line-
DATA:
L_S_SELECTION LIKE LINE OF C_T_SELECTION.
An empty selection means all values
CLEAR C_T_SELECTION.
L_S_SELECTION-FIELDNM = 'RSPAROBVAL'.
L_S_SELECTION-FIELDNM = 'RSPOBART'.
Selection of all values may be not exact
E_EXACT = RS_C_FALSE.
Please adjust the syntax manually.
    - Automatically replaced: COMM_STRUCTURE with SOURCE_FIELDS
    - Included the new Exception Handling (instead of ABORT)
$$ end of inverse routine - insert your code only before this line -
  ENDMETHOD.                    "invert_0PART_CCTR
ENDCLASS.                    "routine IMPLEMENTATION