Loading ODS from Database table

Question

Hello,
I want to create a data base table which would store data from ODS 1 and ODS 2 and then using this table populate ODS 3. I wanted to know how to write the code to populate this table. If someone has any syntax that would be helpful.
thanks
Laura.

Answer 1

check this code for reading data from ODS
DATA : LV_MARKET1 LIKE /BIC/AZDPS00100-G_CWWTER.
DATA : LV_BPARTNER1 LIKE /BI0/PBPARTNER-BPARTNER.
DATA : BEGIN OF LT_BPARTNER1 OCCURS 0,
        BPARTNER LIKE /BI0/PBPARTNER-BPARTNER,
        END OF LT_BPARTNER1.
DATA: BEGIN OF LT_MARKET_RANGE1 OCCURS 0,
         SIGN(1)                 TYPE C,
         OPT(2)                  TYPE C,
         LOW(60)                 TYPE C,
         HIGH(60)                TYPE C,
       END OF LT_MARKET_RANGE1.
TYPES:
   BEGIN OF ET_LINE,
     0BPARTNER TYPE /BI0/OIBPARTNER, " Business Partner
     ZOKACTCAN  TYPE /BIC/OIZOKACTCAN, "Status
   END OF ET_LINE,
   ET_DATA        TYPE ET_LINE.
DATA: TAB_ET          TYPE STANDARD TABLE OF ET_LINE
                        WITH DEFAULT KEY INITIAL SIZE 10.
DATA : REC_ET TYPE ET_LINE.
DATA: TAB_SFC TYPE RSDRI_TH_SFC.
DATA: REC_SFC TYPE RSDRI_S_SFC.
DATA: TAB_SFK TYPE RSDRI_TH_SFK.
DATA: REC_SFK TYPE RSDRI_S_SFK.
DATA:  REC_RANGE       TYPE RSDRI_S_RANGE.
DATA:  TAB_RANGE       TYPE RSDRI_T_RANGE.
IF I_STEP = 2.
   REFRESH : TAB_SFC,
             TAB_SFK,
             TAB_RANGE.
**-What Characteristics you want to input
   REC_SFC-CHANM = '0BPARTNER'.
   INSERT REC_SFC INTO TABLE TAB_SFC.
WHAT KEY FIGURES YOU WANT RETURNED
   REC_SFK-KYFNM = 'ZOKACTCAN'.
   INSERT REC_SFK INTO TABLE TAB_SFK.
   DATA: FIRST_CALL       TYPE RS_BOOL.
   FIRST_CALL = 'X'.
**-- Get the market value from the selection
  LOOP AT I_T_VAR_RANGE INTO WA_RANGE WHERE VNAM EQ 'ZIVC_0G_CWWTER_IMO_03'.
   IMPORT LV_MARKET FROM MEMORY ID 'MKT'.
   LV_MARKET1 = LV_MARKET.
   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
     EXPORTING
       INPUT  = LV_MARKET1
     IMPORTING
       OUTPUT = LV_MARKET1.
   LT_MARKET_RANGE1-SIGN = 'I'.
   LT_MARKET_RANGE1-OPT = 'EQ'.
   LT_MARKET_RANGE1-LOW = LV_MARKET1.
   APPEND LT_MARKET_RANGE1.
  ENDLOOP.
   IF NOT LT_MARKET_RANGE1[] IS INITIAL.
*-- Fetch the Business Partners for the entered Market and BP Type, Disti Type
     SELECT BPARTNER FROM  /BI0/PBPARTNER
                  INTO TABLE LT_BPARTNER1
                  WHERE G_CWWTER IN LT_MARKET_RANGE1
                  AND  /BIC/ZOCCBPTYP IN ('ZDISTSH', 'ZAGENCY')
                  AND  /BIC/ZOCCDSTYP IN ('ABCBROKER', 'BROKER', 'DISTRIBUTO', 'POSONLY').
     IF SY-SUBRC EQ 0.
       LOOP AT LT_BPARTNER1 .
WHERE YOU SET THE PARAMETERS/FILTERS.
         CLEAR REC_RANGE.
         REC_RANGE-CHANM    = '0BPARTNER'.
         REC_RANGE-SIGN     = 'I'.
         REC_RANGE-COMPOP   = 'EQ'.
         REC_RANGE-LOW      =  LT_BPARTNER1-BPARTNER.
         APPEND REC_RANGE TO TAB_RANGE.
       ENDLOOP.
       IF TAB_RANGE[] IS NOT INITIAL.
*-- Get the Key Figure Value for Status for all the Business Partners
         CALL FUNCTION 'RSDRI_INFOPROV_READ'
           EXPORTING
             I_INFOPROV           = 'ZCBPOSPLN'
             I_TH_SFC             = TAB_SFC
             I_TH_SFK             = TAB_SFK
             I_T_RANGE            = TAB_RANGE
             I_ROLLUP_ONLY        = ' '
             I_USE_DB_AGGREGATION = 'X'
           IMPORTING
             E_T_DATA             = TAB_ET
           CHANGING
             C_FIRST_CALL         = FIRST_CALL.