Split R3 table's records into detailed set of records for extracting to BI

Question

Hello, everybody,
In R3 table i have records:
<i>Document_numberA-Material_numberA-Date1-Date2-Date3-Amount1-Amount2---Amount3</i>
I have extract data to BI ODS in format:
<i>Document_numberA-Material_numberA-Date1---Amount1
Document_numberA-Material_numberA-Date2---Amount2
Document_numberA-Material_numberA-Date3---Amount3</i>
<i>Document_numberB-Material_numberB-Date1---Amount1</i>
How i have define extractor and loading mechanism?
Could you give me a suggestion?
Thanks in advance.
Best Regards,
Arunas Stonys

Answer 1

Hello, everybody,
I have created a START ROUTINE, but it doesn't replaces <b>YEARS</b> and <b>AMOUNTS</b>.
<b>Code:</b>
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: BANFN Paraiškos nume..
        BANFN           TYPE C LENGTH 10,
     Field: BANFPO Paraiškos pozc..
        BANFPO           TYPE N LENGTH 5,
     Field: TXZ01 Pavadinimas.
        TXZ01           TYPE C LENGTH 40,
     Field: FISTL L&#279;š&#371; centras.
        FISTL           TYPE C LENGTH 16,
     Field: FKBER Programa.
        FKBER           TYPE C LENGTH 16,
     Field: FIPOS Biudž.straips..
        FIPOS           TYPE C LENGTH 14,
     Field: GEBER Finan. šaltinis.
        GEBER           TYPE C LENGTH 10,
     Field: FIPEX Straipsnis.
        FIPEX           TYPE C LENGTH 24,
     Field: ZZYEAR1 Metai 1.
        ZZYEAR1           TYPE N LENGTH 4,
     Field: ZZYEAR2 Metai 2.
        ZZYEAR2           TYPE N LENGTH 4,
     Field: ZZYEAR3 Metai 3.
        ZZYEAR3           TYPE N LENGTH 4,
     Field: ZZSUM1 Suma 1.
        ZZSUM1           TYPE P LENGTH 7 DECIMALS 2,
     Field: ZZSUM2 Suma 2.
        ZZSUM2           TYPE P LENGTH 7 DECIMALS 2,
     Field: ZZSUM3 Suma 3.
        ZZSUM3           TYPE P LENGTH 7 DECIMALS 2,
     Field: WAERS Valiuta.
        WAERS           TYPE C LENGTH 5,
     Field: BSART Paraiškos tipas.
        BSART           TYPE C LENGTH 4,
     Field: ERDAT Pakeista.
        ERDAT           TYPE D,
     Field: RECORD Record Number.
        RECORD           TYPE RSARECORD,
      END   OF tys_SC_1.
    TYPES:
      tyt_SC_1        TYPE STANDARD TABLE OF tys_SC_1
                        WITH NON-UNIQUE DEFAULT KEY.
$$ 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
      start_routine
        IMPORTING
          request                  type rsrequest
          datapackid               type rsdatapid
        EXPORTING
          monitor                  type rstr_ty_t_monitors
        CHANGING
          SOURCE_PACKAGE              type tyt_SC_1
        RAISING
          cx_rsrout_abort.
    METHODS
      inverse_start_routine
        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 start_routine
      Calculation of source package via start routine
  <-> source package
  METHOD start_routine.
*=== Segments ===
    FIELD-SYMBOLS:
      <SOURCE_FIELDS>    TYPE tys_SC_1.
    DATA:
      MONITOR_REC     TYPE rstmonitor.
*$*$ begin of routine - insert your code only below this line        *-*
... "insert your code here
    DATA:
          ls_SOURCE_PACKAGE type tys_SC_1,
          lt_SOURCE_PACKAGE like table of ls_SOURCE_PACKAGE,
          l_tabix like sy-tabix.
    loop at SOURCE_PACKAGE into ls_SOURCE_PACKAGE.
       l_tabix = sy-tabix.
       ls_SOURCE_PACKAGE-BANFN   = ls_SOURCE_PACKAGE-BANFN.
       ls_SOURCE_PACKAGE-BANFPO  = ls_SOURCE_PACKAGE-BANFPO.
       ls_SOURCE_PACKAGE-TXZ01   = ls_SOURCE_PACKAGE-TXZ01.
       ls_SOURCE_PACKAGE-FISTL   = ls_SOURCE_PACKAGE-FISTL.
       ls_SOURCE_PACKAGE-FKBER   = ls_SOURCE_PACKAGE-FKBER.
       ls_SOURCE_PACKAGE-FIPOS   = ls_SOURCE_PACKAGE-FIPOS.
       ls_SOURCE_PACKAGE-GEBER   = ls_SOURCE_PACKAGE-GEBER.
       ls_SOURCE_PACKAGE-FIPEX   = ls_SOURCE_PACKAGE-FIPEX.
       ls_SOURCE_PACKAGE-WAERS   = ls_SOURCE_PACKAGE-WAERS.
       ls_SOURCE_PACKAGE-BSART   = ls_SOURCE_PACKAGE-BSART.
       ls_SOURCE_PACKAGE-ERDAT   = ls_SOURCE_PACKAGE-ERDAT.
       ls_SOURCE_PACKAGE-RECORD  = ls_SOURCE_PACKAGE-RECORD.
       ls_SOURCE_PACKAGE-ZZYEAR1 = ls_SOURCE_PACKAGE-ZZYEAR1.
       ls_SOURCE_PACKAGE-ZZSUM1  = ls_SOURCE_PACKAGE-ZZSUM1.
       append ls_SOURCE_PACKAGE to lt_SOURCE_PACKAGE.
       ls_SOURCE_PACKAGE-ZZYEAR1 = ls_SOURCE_PACKAGE-ZZYEAR2.
       ls_SOURCE_PACKAGE-ZZSUM1 = ls_SOURCE_PACKAGE-ZZSUM2.
       append ls_SOURCE_PACKAGE to lt_SOURCE_PACKAGE.
       ls_SOURCE_PACKAGE-ZZYEAR1 = ls_SOURCE_PACKAGE-ZZYEAR3.
       ls_SOURCE_PACKAGE-ZZSUM1 = ls_SOURCE_PACKAGE-ZZSUM3.
       append ls_SOURCE_PACKAGE to lt_SOURCE_PACKAGE.
       delete SOURCE_PACKAGE index l_tabix.
    endloop.
    move lt_SOURCE_PACKAGE[] to SOURCE_PACKAGE[].
*--  fill table "MONITOR" with values of structure "MONITOR_REC"
*-   to make monitor entries
... "to cancel the update process
   raise exception type CX_RSROUT_ABORT.
$$ end of routine - insert your code only before this line         -
  ENDMETHOD.                    "start_routine
      Method inverse_start_routine
      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 inverse_start_routine.
$$ 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.                    "inverse_start_routine
ENDCLASS.                    "routine IMPLEMENTATION
<b>Could you look at code and tell what is wrong?</b>
Thanks in advance!
Best Regards,
Arunas Stonys
Arunas Stonys