Question about a start routine

Question

Hello,
I'm trying to write a start routine to make some changes to the data while it is brought into a cube from another.
Here is the scenario:
FACID has ZRPROFCTR as an attribute. FACID is in cube 1 and 2.
0PROFIT_CTR is an characteristic in cube 2.
I need to load data from cube 1 to cube 2. During this process, i need to check if ZRPROFCTR has any value. if there is a value, i need to change 0PROFIT_CTR value to ZRPROFCTR. If there is no value for ZPROFCTR, I don't want to make any changes to 0PROFIT_CTR.
Here is the abap code that i have come up with and tried.
[code]
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: ...
TABLES: /BIC/MFACID.
DATA: BEGIN OF INT_TAB1 OCCURS 5000,
       facid  LIKE /BIc/PFacid,
       ZRPROFCTR LIKE /BI0/PPROFIT_CTR.
DATA: END OF INT_TAB1.
DATA:   ...
DATA: WA LIKE LINE OF INT_TAB1.
$$ 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/CS8CFI_C021.
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
    DATA: TEMP_DATAPACKAGE TYPE TABLE OF DATA_PACKAGE_STRUCTURE.
    TEMP_DATAPACKAGE[] = DATA_PACKAGE[].
    REFRESH DATA_PACKAGE.
DATA: S_DATA LIKE LINE OF TEMP_DATAPACKAGE.
SELECT /BIc/facid /BIC/ZRPROFCTR
    INTO CORRESPONDING FIELDS OF TABLE INT_TAB1
    FROM /BIC/MFACID
    WHERE /BIC/ZRPROFCTR IS NOT NULL.
LOOP AT TEMP_DATAPACKAGE INTO S_DATA.
READ TABLE INT_TAB1 INTO WA with key
FACID = S_DATA-/BIC/FACID.
IF WA-ZRPROFCTR NE ''.
S_DATA-PROFIT_CTR = WA-ZRPROFCTR.
ENDIF.
APPEND S_DATA TO DATA_PACKAGE.
ENDLOOP.
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.
[/code]
The update rules have not been changed (0PROFIT_CTR to 0PROFIT_CTR). After running the infopackage, I'm not seeing any change in the 0PROFIT_CTR, although the ZRPROFCTR contains values and those values should be written on to 0PROFIT_CTR.
Can someone see if I'm making a mistake somewhere?
Thanks
Sam

Answer 1

Hi Sandeep and Adam,
I'm trying to run the following code. The infopackage does not complete. I had it run for around 50 mins for just 64 records and then I terminated it. The records arrive till PSA and then nothing. After termination, I got a short dump. I'm including the ABAP program and the short dump.
Could you look at it and see what I need to change?
[code]
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: ...
TABLES: /BIC/PFACID.
Defining a Structure
TYPES: BEGIN OF INT_STR1,
facid LIKE /BIC/PFacid,
ZRPROFCTR LIKE /BI0/PPROFIT_CTR,
END OF INT_STR1.
Defining the internal table
DATA: INT_TAB1 TYPE HASHED TABLE OF INT_STR1
WITH UNIQUE KEY facid.
Defining work area
DATA: WA LIKE LINE OF INT_TAB1.
DATA:   ...
$$ 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/CS8CFI_C021.
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
DATA: S_DATA LIKE LINE OF DATA_PACKAGE.
SELECT /BIC/FACID /BIC/ZRPROFCTR
INTO CORRESPONDING FIELDS OF TABLE INT_TAB1
FROM /BIC/PFACID
WHERE /BIC/ZRPROFCTR <> ''
AND OBJVERS = 'A'.
LOOP AT DATA_PACKAGE INTO S_DATA.
      READ TABLE INT_TAB1 INTO WA with key
      FACID = S_DATA-/BIC/FACID.
If found
      IF sy-subrc = 0.
          IF WA-ZRPROFCTR IS NOT INITIAL.
              S_DATA-PROFIT_CTR = WA-ZRPROFCTR.
          ENDIF.
          APPEND S_DATA TO DATA_PACKAGE.
      ENDIF.
Else do nothing
ENDLOOP.
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.
[/code]
Runtime Error          ITAB_DUPLICATE_KEY
Date and Time          05/03/2007 09:06:23
ShrtText
There is already a line with the same key.
What happened?
Error in ABAP application program.
The current ABAP program "GP25ZWCICDSLL174BI92GUBOC53" had to be terminated
because one of the
statements could not be executed.
This is probably due to an error in the ABAP program.
Error analysis
You wanted to add an entry to table
"\PROGRAM=GP25ZWCICDSLL174BI92GUBOC53\DATA=INT_TAB1", which you declared
with a UNIQUE KEY. However, there was already an entry with the
same key.
This may have been in an INSERT or MOVE statement, or within a
SELECT ... INTO statement.
In particular, you cannot insert more than one initial line into a
table with a unique key using the INSERT INITIAL LINE... statement.
Thanks
Sam