Update newly added IO in Cube.. ABAP help ?

Question

Hi Experts,
Need some help here.  I'm trying to write my first abap code.  I have been reading the forum here and trying to understand some abap logic.  The scenario is, I have added another field in my cube: CALMTH2, which I basically am trying to populate with some little abap that I have tried to learn.  There is 0calmth in my cube already.  I am adding some logic in the update rules to populate this field. Now 0calmth is getting values from the ods - del date field.  But I was assuming to do some coding so I can derive that same date from 0calmth into my new field calmth2. Below is the code that I have written in my update rules, but I end up with the following error. 
"E:Field "/BI0/OICALMONTH-0CALMONTH" is unknown. It is neither in one of the specified tables nor defined by a "DATA" statement."
DATA:   CALMTH2 TYPE C.
CALMTH2 = /BI0/OICALMONTH-0CALMONTH.
RESULT = CALMTH2.
I don't really understand how the tables are used in the coding.  Please help me out here with your expertise.  Thanks.

Answer 1

Hi,
I am posting a sample code to store the text of purchasing group in a field. I am keeping all the standard comments so that it would be easier for you to identify the place where you need to put your logic.
In the start routine, you define an internal table to store all text values of purchasing group ( so that you don't hit database everytime). Then in update routine, for each purchasing grp coming from comm str, you read the internal table and passing the text as reult.
Hope it helps.
Regards,
Praveen
Start Routine*************
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: /bi0/tpur_group.
DATA:   it_tab LIKE /bi0/tpur_group OCCURS 0 WITH HEADER LINE.
$$ end of global - insert your declaration only before this line   -
The follow definition is new in the BW3.x
TYPES:
  BEGIN OF DATA_PACKAGE_STRUCTURE.
     INCLUDE STRUCTURE /BIC/CS8ZPURSCL.
TYPES:
     RECNO   LIKE sy-tabix,
  END OF DATA_PACKAGE_STRUCTURE.
DATA:
  DATA_PACKAGE TYPE STANDARD TABLE OF DATA_PACKAGE_STRUCTURE
       WITH HEADER LINE
       WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.
FORM startup
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
           MONITOR_RECNO STRUCTURE RSMONITORS " monitoring with record n
           DATA_PACKAGE STRUCTURE DATA_PACKAGE
  USING    RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal tables "MONITOR" and/or "MONITOR_RECNO",
to make monitor entries
select *
    from /BI0/TPUR_GROUP
    into table it_tab.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
Update Routine************
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: /bi0/tpur_group.
DATA:   it_tab LIKE /bi0/tpur_group OCCURS 0 WITH HEADER LINE.
$$ end of global - insert your declaration only before this line   -
FORM compute_data_field
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
  USING    COMM_STRUCTURE LIKE /BIC/CS8ZPURSCL
           RECORD_NO LIKE SY-TABIX
           RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING RESULT LIKE /BIC/AZPURPO0100-/BIC/ZBUYERNM
           RETURNCODE LIKE SY-SUBRC "Do not use!
           ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal table "MONITOR", to make monitor entries
  READ TABLE it_tab WITH KEY pur_group = COMM_STRUCTURE-pur_group.
result value of the routine
  IF sy-subrc EQ 0.
    RESULT = it_tab-txtsh.
  ELSE.
    CLEAR RESULT.
  ENDIF.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -