Enhacing 0CO_OM_WBS_6

This question is answered

Hello BW Experts ,

I want to enhance standard data source 0CO_OM_WBS_6

by adding fields HKONT and BSCHL from table BSEG.

The table BSEG is having the primary key fields named

MANDT , BUKRS , BELNR , GJAHR , BUZEI.

Please tell me the User exit code to be written.

I have already added these two fields to the data source.

So please tell me the User exit code to be written to add these two fields .

Thanks in advance.

Regards ,

AMOL.

Correct Answer

April 04, 2006 at 14:26 PM

hi Amol,

user exit zxrsau01 is used, find some steps here

you code may like ...

tables : BSEG.

data : l_s_wbs6 like ICWBSCSTA1,

l_tabix like sy-tabix,

l_HKONT like BSEG-HKONT,

l_BSCHL like BSEG-BSCHL.

case i_datasource.

when '0CO_OM_WBS_6'.

loop at c_t_data into l_s_wbs6.

l_tabix = sy-tabix.

select single HKONT BSCHL into (l_HKONT,l_BSCHL)

from BSEG

where BUKRS = l_s_wbs6-BUKRS and

BELNR = l_s_wbs6-BELNR and

GJAHR = l_s_wbs6-FISCPER+0(4)

and BUZEI = l_s_wbs6-BUZEI.

if sy-subrc = 0.

l_s_wbs6-ZZHKONT = l_HKONT.

l_s_wbs6-ZZBSCHL = l_BSCHL.

modify c_t_data from l_s_wbs6 index l_tabix.

endloop.

hope this helps.

0 Likes 0 View this answer in context