Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Update Routine - Urgent Please

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 -

  • TABLES: ...

  • DATA: ...

$$ 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,

Tags:
Former Member
Not what you were looking for? View more on this topic or Ask a question