Hi All,
I have the following scenario in BW. We are extracting data from R/3 system to ODS and from ODS to InfoCube. This division is having 16 Intra partner companies and another trading partners. While we are extracting from R/3 all these partner company codes are coming to ODS.
Now as per the cleint request while we are extracting from ODS to Infocube the 16 Intra partner companies must convert their company code to one company code "T1003", and other company codes must be come as it is in their form. I am new to coding still i managed to do some coding in Update rules on the Partner company infoobject.
Following is the routine i created, but its giving every thing blank in the partner company field. Please assist me in this regard. Your quick help will be highly appreciated.
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line -
$$ end of global - insert your declaration only before this line -
FORM compute_key_field
TABLES MONITOR STRUCTURE RSMONITOR "user defined monitoring
USING COMM_STRUCTURE LIKE /BIC/CS8ZO_CS_SP
RECORD_NO LIKE SY-TABIX
RECORD_ALL LIKE SY-TABIX
SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
CHANGING RESULT LIKE /BIC/VZB_CS_SPT-PCOMPANY
RETURNCODE LIKE SY-SUBRC
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
We will import the new Trading Partner Company code for the
current extraction and replace the SAPO Intra company codes
to standard company code.
DATA results TYPE c.
CASE COMM_STRUCTURE-pcompany .
WHEN '001100' OR '001200' OR '001300' OR '001400' OR '001500' OR
'001600' OR '002100' OR '003100' OR '003200' OR '004100' OR '004200'
OR '005100' OR '005200' OR '006100' OR '006200' OR '009000'
OR '009500' OR '009999' OR 'POD'.
results = 'T1003'.
WHEN OTHERS .
RETURNCODE = 0.
ENDCASE.
ABORT = 0.
$$ end of routine - insert your code only before this line -
*
ENDFORM.
Kind Regards,
Bluesky
