Syntax error in Transformation routine

Question

Hi Folks,
We are In SP 17.
I have migrated standard 0bpartner_attr transfer rules to a transformation with syntax errors.
I have a routine for a gender, Valid From and Valid To its giving the following erorr.
E:Field "TRAN_STRUCTURE-VALID_FROM" is unknown. It is neither in one of
the specified tables nor defined by a "DATA" statement. "DATA"
statement.
the following is the routine code for Gender.
PROGRAM trans_routine.
      CLASS routine DEFINITION
CLASS lcl_transform DEFINITION.
  PUBLIC SECTION.
Attributs
    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.
  Rule specific types
    TYPES:
      BEGIN OF tys_SC_1,
     Field: XSEXM Male.
        XSEXM           TYPE C LENGTH 1,
     Field: XSEXF Female.
        XSEXF           TYPE C LENGTH 1,
     Field: XSEXU Unknown.
        XSEXU           TYPE C LENGTH 1,
     Field: RECORD.
        RECORD           TYPE RSARECORD,
      END   OF tys_SC_1.
    TYPES:
      BEGIN OF tys_TG_1,
     InfoObject: 0GENDER Gender.
        GENDER           TYPE /BI0/OIGENDER,
      END   OF tys_TG_1.
$$ begin of global - insert your declaration only below this line  -
... "insert your code here
$$ end of global - insert your declaration only before this line   -
    METHODS
      compute_0GENDER
        IMPORTING
          request                  type rsrequest
          datapackid               type rsdatapid
          SOURCE_FIELDS              type tys_SC_1
        EXPORTING
          RESULT                   type tys_TG_1-GENDER
          monitor                  type rstr_ty_t_monitor
        RAISING
          cx_rsrout_abort
          cx_rsrout_skip_record
          cx_rsrout_skip_val.
    METHODS
      invert_0GENDER
        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  *
$$ end of rule type
    TYPES:
      BEGIN OF tys_TG_1_full,
     InfoObject: 0BPARTNER Business Partner.
        BPARTNER           TYPE /BI0/OIBPARTNER,
     InfoObject: 0BP_ACTITL1 First Academic Title.
        BP_ACTITL1           TYPE /BI0/OIBP_ACTITL1,
     InfoObject: 0BP_ACTITL2 Second Academic Title.
        BP_ACTITL2           TYPE /BI0/OIBP_ACTITL2,
     InfoObject: 0BP_BTHNAME BP: Person's Name at Birth.
        BP_BTHNAME           TYPE /BI0/OIBP_BTHNAME,
     InfoObject: 0BP_CAT Business Partner Category.
        BP_CAT           TYPE /BI0/OIBP_CAT,
     InfoObject: 0BP_CONS Business Partner (Consolidated/Cleansing).
        BP_CONS           TYPE /BI0/OIBP_CONS,
     InfoObject: 0BP_CONTACT BP: Contact Permission.
        BP_CONTACT           TYPE /BI0/OIBP_CONTACT,
     InfoObject: 0BP_EXTERN BP Number in External System.
        BP_EXTERN           TYPE /BI0/OIBP_EXTERN,
     InfoObject: 0BP_FSTNAME BP: Person's First Name.
        BP_FSTNAME           TYPE /BI0/OIBP_FSTNAME,
     InfoObject: 0BP_GROUP Business Partner Grouping.
        BP_GROUP           TYPE /BI0/OIBP_GROUP,
     InfoObject: 0BP_GRPNAM1 BP: Name 1 (Group).
        BP_GRPNAM1           TYPE /BI0/OIBP_GRPNAM1,
     InfoObject: 0BP_GRPNAM2 BP: Name 2 (Group).
        BP_GRPNAM2           TYPE /BI0/OIBP_GRPNAM2,
     InfoObject: 0BP_GRPTYPE BP: Group Type.
        BP_GRPTYPE           TYPE /BI0/OIBP_GRPTYPE,
     InfoObject: 0BP_LSTNAME BP: Person's Surname.
        BP_LSTNAME           TYPE /BI0/OIBP_LSTNAME,
     InfoObject: 0BP_MAR_STA BP: Marital Status.
        BP_MAR_STA           TYPE /BI0/OIBP_MAR_STA,
     InfoObject: 0BP_MDLNAME BP: Person's Middle Name or Second First
*Name.
        BP_MDLNAME           TYPE /BI0/OIBP_MDLNAME,
     InfoObject: 0BP_SECNAME BP: Person's Second Surname.
        BP_SECNAME           TYPE /BI0/OIBP_SECNAME,
     InfoObject: 0CHANGEDBY Changed by.
        CHANGEDBY           TYPE /BI0/OICHANGEDBY,
     InfoObject: 0CH_AT Time of Last Change.
        CH_AT           TYPE /BI0/OICH_AT,
     InfoObject: 0CH_ON Last changed on.
        CH_ON           TYPE /BI0/OICH_ON,
     InfoObject: 0CREATEDBY Name of person who created the object.
        CREATEDBY           TYPE /BI0/OICREATEDBY,
     InfoObject: 0CREATEDON Date on which the record was created.
        CREATEDON           TYPE /BI0/OICREATEDON,
     InfoObject: 0CREA_TIME Time Created.
        CREA_TIME           TYPE /BI0/OICREA_TIME,
     InfoObject: 0GENDER Gender.
        GENDER           TYPE /BI0/OIGENDER,
     InfoObject: 0LEGALFORM Legal Status of Organization.
        LEGALFORM           TYPE /BI0/OILEGALFORM,
     InfoObject: 0NAME_ORG1 BP: Organization Name 1.
        NAME_ORG1           TYPE /BI0/OINAME_ORG1,
     InfoObject: 0NAME_ORG2 BP: Organization Name 2.
        NAME_ORG2           TYPE /BI0/OINAME_ORG2,
     InfoObject: 0NAME_ORG3 BP: Organization Name 3.
        NAME_ORG3           TYPE /BI0/OINAME_ORG3,
     InfoObject: 0NAME_ORG4 BP: Organization Name 4.
        NAME_ORG4           TYPE /BI0/OINAME_ORG4,
     InfoObject: 0NATION Nationality.
        NATION           TYPE /BI0/OINATION,
     InfoObject: 0TITLE_SPPL Name Supplement, for example, Noble Title
        TITLE_SPPL           TYPE /BI0/OITITLE_SPPL,
     InfoObject: 0BP_TYPE Partner:Partner Type.
        BP_TYPE           TYPE /BI0/OIBP_TYPE,
     InfoObject: 0GN_PAR_SSY Source System of a Partner.
        GN_PAR_SSY           TYPE /BI0/OIGN_PAR_SSY,
     InfoObject: 0LOGSYS Source System.
        LOGSYS           TYPE RSDLOGSYS,
     InfoObject: 0RECORDMODE BW Delta Process: Record Mode.
        RECORDMODE           TYPE RODMUPDMOD,
     InfoObject: 0BP_GUID GUID of Business Partner.
        BP_GUID           TYPE /BI0/OIBP_GUID,
     InfoObject: 0BPDATEFROM GP Attributes Valid from.
        BPDATEFROM           TYPE /BI0/OIBPDATEFROM,
     InfoObject: 0BPDATETO GP Attributes Valid to.
        BPDATETO           TYPE /BI0/OIBPDATETO,
     Field: RECORD Data record number.
        RECORD           TYPE RSARECORD,
      END   OF tys_TG_1_full.
Additional declaration for transfer rule interface
  DATA:
    g_t_errorlog TYPE rssm_t_errorlog_int,
    RECORD_ALL   LIKE SY-TABIX.
global definitions from transfer rules
DATA: gs_cob_pro TYPE rsd_s_cob_pro,
      gt_viobj   TYPE rsd_t_viobj,
      gs_viobj   TYPE rsd_s_viobj.
DATA:   l_s_errorlog TYPE rssm_s_errorlog_int,
        l_text TYPE string.
FORM compute_BPDATEFROM
   CHANGING
    RESULT         TYPE tys_TG_1_full-BPDATEFROM
    RETURNCODE     LIKE sy-subrc
    ABORT          LIKE sy-subrc
  RAISING
    cx_sy_arithmetic_error
    cx_sy_conversion_error.
  INCLUDE rs_bct_bupa_form_valid_from.
ENDFORM.                    "BPDATEFROM
FORM compute_BPDATETO
   CHANGING
    RESULT         TYPE tys_TG_1_full-BPDATETO
    RETURNCODE     LIKE sy-subrc
    ABORT          LIKE sy-subrc
  RAISING
    cx_sy_arithmetic_error
    cx_sy_conversion_error.
  INCLUDE rs_bct_bupa_form_valid_to.
ENDFORM.                    "BPDATETO
FORM compute_GENDER
   CHANGING
    RESULT         TYPE tys_TG_1_full-GENDER
    RETURNCODE     LIKE sy-subrc
    ABORT          LIKE sy-subrc
  RAISING
    cx_sy_arithmetic_error
    cx_sy_conversion_error.
INCLUDE rs_bct_bupa_form_gender.
ENDFORM.                    "GENDER
FORM compute_GN_PAR_SSY
   CHANGING
    RESULT         TYPE tys_TG_1_full-GN_PAR_SSY
    RETURNCODE     LIKE sy-subrc
    ABORT          LIKE sy-subrc
  RAISING
    cx_sy_arithmetic_error
    cx_sy_conversion_error.
INCLUDE rs_bct_bupa_form_gn_par_ssy.
ENDFORM.                    "GN_PAR_SSY
$$ end of 2nd part global - insert your code only before this line   *
      CLASS routine IMPLEMENTATION
CLASS lcl_transform IMPLEMENTATION.
  METHOD compute_0GENDER.
  IMPORTING
    request     type rsrequest
    datapackid  type rsdatapid
    SOURCE_FIELDS-XSEXM TYPE C LENGTH 000001
    SOURCE_FIELDS-XSEXF TYPE C LENGTH 000001
    SOURCE_FIELDS-XSEXU TYPE C LENGTH 000001
   EXPORTING
     RESULT type tys_TG_1-GENDER
    DATA:
      MONITOR_REC    TYPE rsmonitor.
*$*$ begin of routine - insert your code only below this line        *-*
  Data:
    l_s_error_log    type rssm_s_errorlog_int,
    l_subrc          type sy-tabix,
    l_abort          type sy-tabix,
    ls_monitor       TYPE rsmonitor,
    ls_monitor_recno TYPE rsmonitors.
REFRESH:
  monitor,
  monitor_recno.
Migrated transfer rule call
  Perform compute_GENDER
    CHANGING
      RESULT
      l_subrc
      l_abort.
*-- Convert Messages in Transformation format
    LOOP AT G_T_ERRORLOG INTO l_s_error_log.
      move-CORRESPONDING l_s_error_log to MONITOR_REC.
      append monitor_rec to MONITOR.
    ENDLOOP.
    IF l_subrc <> 0.
      RAISE EXCEPTION TYPE cx_rsrout_skip_val.
    ENDIF.
    IF l_abort <> 0.
      RAISE EXCEPTION TYPE CX_RSROUT_ABORT.
    ENDIF.
$$ end of routine - insert your code only before this line         -
  ENDMETHOD.                    "compute_0GENDER
      Method invert_0GENDER
      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_0GENDER.
$$ begin of inverse routine - insert your code only below this line-
... "insert your code here
$$ end of inverse routine - insert your code only before this line -
  ENDMETHOD.                    "invert_0GENDER
ENDCLASS.                    "routine IMPLEMENTATION
let me know how to correct the above code.
thanks

Answer 1

Hi,
the field tran_structure is no more available. The name changed to source_fields. Additionally there is no datapak available. It is now source_fields_table. You might need to use field symbols to access the fields.
regards
Siggi