Help with an Update rule

Question

Hello,
I'm trying to write an update rule to transfer some data from one cube to another. I'll try to explain as much as i can :).
I have an info object FACID (contains the facility ID for XYZ facilities), which has various attributes including one called ZR profit center (ZRPC). This is in both cubes.
1. I need to only transfer records from cube 1 to cube 2 where the ZRPC has a value.
2. I need to convert the FACID record to ZRPC record.
3. I also need to import a Statistical Key Figure (SKF) for those concerned records.
Cube one:
FACID         ZRPC       SKF
1000            4000         PD1
1234            4456         PD2
5678            5688         PD3
4562                            PD4
3457                            PD5
2467            4566         PD6
Cube two:
FACID        SKF
4000          PD1
4456          PD2
5688          PD3
4566          PD6
I hope that makes sense. I need help in the the ABAP program, since I don't have the requisite knowledge to write a complicated program.
Sam
PS: Ok, Ok... Who am I kidding.I don't have the knowledge to write even a simple ABAP program. :):)

Answer 1

Hi,
[code]
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line -
TABLES: ...             " << This u can define in the TOP include
Global table. referred to in update routines.
DATA: ...
$$ 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/CSDB_VW_KHAT_SHIFT_HOURS
RECORD_NO LIKE SY-TABIX
RECORD_ALL LIKE SY-TABIX
SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
CHANGING RESULT LIKE /BIC/AHCA_O00500-PROFIT_CTR
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
select * from CI_C001 into table i_CI_C001 where zrpc ne space.
select * from RI_C001 into table i_RI_C001 for all entries in i_CI_C001
where ZFACID eq i_CI_C001-zrpc.
loop at i_CI_001.
read table i_RI_C001 with key ZFACID = i_CI_C001-zrpc.
if sy-subrc eq 0.
update RI_C001 set skf = i_CI_C001-skf.
endif.
endloop.
commit work.
if sy-subrc ne 0                           " <<  Inserted this code
  rollback.                                   " <<           "
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 -
ENDFORM.
[/code]
aRs