Enhancement code

Hi,
I am sending the code which we have written to populate data for the Zfields for the datasrc 0FI_GL_4,pls check it if anything wrong is there in the program & let me know.I highlighted my code in bold
tables: knvv, mara.
data: l_s_icctrcst like s001biws,
 l_counter,
 l_s_icctract like icctract,
 l_s_icctrsta like icctrsta,
 l_tabix like sy-tabix.
...local data for generic datasource ZFI_AR_4.........................
tables: knb4.
data: l_s_zoxid30047 like zoxid30047,
 jah like knb4-jah01,
 mon like knb4-mon01,
 ags like knb4-ags01,
 vzs like knb4-vzs01,
 agn like knb4-agn01,
 vzn like knb4-vzn01,
 anz like knb4-anz01.
data: begin of temp_data occurs 0,
 bukrs like l_s_zoxid30047-bukrs,
 kunnr like l_s_zoxid30047-kunnr,
 fiscper like l_s_zoxid30047-fiscper,
 agsxx like l_s_zoxid30047-agsxx,
 vzsxx like l_s_zoxid30047-vzsxx,
 agnxx like l_s_zoxid30047-agnxx,
 vznxx like l_s_zoxid30047-vznxx,
 anzxx like l_s_zoxid30047-anzxx,
 end of temp_data.
*{ INSERT ECCK990135 3
DATA: L_S TYPE DTFIGL_4.
LOOP AT C_T_DATA INTO l_s.
L_TABIX = SY-TABIX.
l_s-ZZSTATE = 'A'.
l_s-ZZUSERFLD1 = 'A'.
MODIFY C_T_DATA FROM L_S INDEX L_TABIX.
ENDLOOP.
APPEND L_S TO C_T_DATA.
*} INSERT
case i_datasource.
when '2LIS_01_S001'.
Endless loop for debugging *
 l_counter = 7.
 while l_counter = 7.
 endwhile.
find corresponding master data record in KNVV
 loop at c_t_data into l_s_icctrcst.
 l_tabix = sy-tabix.
 select single * from knvv where kunnr = l_s_icctrcst-kunnr
 and vkorg = l_s_icctrcst-vkorg
 and vtweg = l_s_icctrcst-vtweg
 and spart = l_s_icctrcst-spart.
fill additional fields with master data
 if sy-subrc = 0.
 l_s_icctrcst-zzkdgrp = knvv-kdgrp.
 l_s_icctrcst-zzbzirk = knvv-bzirk.
 modify c_t_data from l_s_icctrcst index l_tabix.
 endif.
 endloop.
when '2LIS_02_S850' or '2LIS_02_S851' or '2LIS_02_S852' or
 '2LIS_02_S853' or '2LIS_02_S854' or '2LIS_02_S855' or
 '2LIS_02_S856' or '2LIS_02_S857' or '2LIS_02_S858' or
 '2LIS_02_S859' or '2LIS_02_S860' or '2LIS_02_S861' or
 '2LIS_02_S862' or '2LIS_02_S863' or '2LIS_02_S864' or
 '2LIS_02_S865' or '2LIS_02_S866' or '2LIS_02_S867' or
 '2LIS_02_S868' or '2LIS_02_S869' or '2LIS_02_S870' or
 '2LIS_02_S930' or '2LIS_02_S931' or '2LIS_02_S932' or
 '2LIS_02_S933' or '2LIS_02_S934' or '2LIS_02_S935' or
 '2LIS_02_S936' or '2LIS_02_S937' or '2LIS_02_S938' or
 '2LIS_02_S939' or '2LIS_02_S940' or '2LIS_02_S941' or
 '2LIS_02_S942' or '2LIS_02_S943' or '2LIS_02_S944' or
 '2LIS_02_S945' or '2LIS_02_S946' or '2LIS_02_S947' or
 '2LIS_02_S948' or '2LIS_02_S949'.
Endless loop for debugging *
l_counter = 7.
 while l_counter = 7.
 endwhile.
+!!!BW220: 'do NOT activate' lines with '+' for use in BW220!!!
*+=========>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 data: l_sbw220 like s870biws. "BW220: s870biws should exist!!!
*+ find corresponding master data record in MARA
 loop at c_t_data into l_sbw220.
 l_tabix = sy-tabix.
 select single * from mara where matnr = l_sbw220-matnr.
*+ fill additional fields with master data
 if sy-subrc = 0.
 l_sbw220-zzbismt = mara-bismt.
 modify c_t_data from l_sbw220 index l_tabix.
 endif.
 endloop.
...generic datasource ZFI_AR_4........................................
when 'ZFI_AR_4'.
 clear temp_data. refresh temp_data.
 loop at c_t_data into l_s_zoxid30047.
 do 16 times
 varying jah from l_s_zoxid30047-jah01 next l_s_zoxid30047-jah02
 varying mon from l_s_zoxid30047-mon01 next l_s_zoxid30047-mon02
 varying ags from l_s_zoxid30047-ags01 next l_s_zoxid30047-ags02
 varying vzs from l_s_zoxid30047-vzs01 next l_s_zoxid30047-vzs02
 varying agn from l_s_zoxid30047-agn01 next l_s_zoxid30047-agn02
 varying vzn from l_s_zoxid30047-vzn01 next l_s_zoxid30047-vzn02
 varying anz from l_s_zoxid30047-anz01 next l_s_zoxid30047-anz02.
...fill comp. code, fiscal variant, debitor...........................
 move: l_s_zoxid30047-bukrs to temp_data-bukrs,
 l_s_zoxid30047-kunnr to temp_data-kunnr.
...fill fiscal period.................................................
 move: jah to temp_data-fiscper(4),
 '0' to temp_data-fiscper+4(1),
 mon to temp_data-fiscper+5(2).
 check not temp_data-fiscper is initial.
...fill value fields..................................................
 move: ags to temp_data-agsxx,
 vzs to temp_data-vzsxx,
 agn to temp_data-agnxx,
 vzn to temp_data-vznxx,
 anz to temp_data-anzxx.
 append temp_data.
 enddo.
 endloop.
 clear c_t_data. refresh c_t_data.
 loop at temp_data.
 move-corresponding temp_data to l_s_zoxid30047.
 collect l_s_zoxid30047 into c_t_data.
 endloop.
*{ INSERT ECCK990135 1
when OTHERS.
*DATA:l_s_icctrcst like s001biws.
*DATA: L_S TYPE DTFIGL_4.
TABLES BSEG.
LOOP AT C_T_DATA INTO l_s.
L_TABIX = SY-TABIX.
select single * from bseg where BUKRS = L_S-BUKRS
 AND BELNR = L_S-BELNR
 AND GJAHR = L_S-GJAHR.
l_s-ZZSTATE = BSEG-ZZSTATE.
l_s-ZZUSERFLD1 = BSEG-ZZUSERFLD1.
MODIFY C_T_DATA FROM L_S INDEX L_TABIX.
ENDLOOP.
*} INSERT
*{ DELETE ECCK990135 2
*\ exit.
*\endcase.
*} DELETE
endcase.
My problem is whenever I go to RSA3 any check for any datasrc how many records exist it is giving me the short dump as following
Runtime Errors UC_OBJECTS_NOT_CONVERTIBLE
Date and Time 10.07.2006 14:21:05
ShrtText
Data objects in a Unicode program are not convertible.
What happened?
Error in ABAP application program.
The current ABAP program "SAPLXRSA" 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
The statement
"MOVE src TO dst"
requires the operands "dst" and "src" to be comvertible.
Since this statement occurs in a Unicode program, the special
convertibility rules for Unicode programs apply. In this case, the
following rules have been broken:
Trigger Location of Runtime Error
Program SAPLXRSA
Include ZXRSAU01
Row 214
Module type (FUNCTION)
Module Name EXIT_SAPLRSAP_001
Source Code Extract
Line
SourceCde
184
...fill fiscal period.................................................
185
move: jah to temp_data-fiscper(4),
186
'0' to temp_data-fiscper+4(1),
187
mon to temp_data-fiscper+5(2).
188
check not temp_data-fiscper is initial.
189
...fill value fields..................................................
190
move: ags to temp_data-agsxx,
191
vzs to temp_data-vzsxx,
192
agn to temp_data-agnxx,
193
vzn to temp_data-vznxx,
194
anz to temp_data-anzxx.
195
append temp_data.
196
enddo.
197
198
endloop.
199
200
clear c_t_data. refresh c_t_data.
201
loop at temp_data.
202
move-corresponding temp_data to l_s_zoxid30047.
203
collect l_s_zoxid30047 into c_t_data.
204
endloop.
205
*{ INSERT ECCK990135
206
 1
207
when OTHERS.
208
break-point.
209
*Begin Code for 0FI_GL_4
210
*DATA:l_s_icctrcst like s001biws.
211
DATA: L_S TYPE DTFIGL_4.
212
*data l_s type c_t_data.
213
TABLES BSEG.
>>>>>
LOOP AT C_T_DATA into l_s.
215
L_TABIX = SY-TABIX.
216
select single * from bseg where BUKRS = L_S-BUKRS
217
AND BELNR = L_S-BELNR
218
AND GJAHR = L_S-GJAHR.
219
l_s-ZZSTATE = BSEG-ZZSTATE.
220
l_s-ZZUSERFLD1 = BSEG-ZZUSERFLD1.
221
l_s-ZZUSERFLD2 = BSEG-ZZUSERFLD2.
222
MODIFY C_T_DATA FROM L_S INDEX L_TABIX.
223
ENDLOOP.
224
225
*END CODE FOR 0FI_GL_4
|
|
What is the problem with my code what changes need to be made

Hi Priya,
Are you getting any error messages... Code looks fine.. but I can't see the declarations of Internal table L_S.
Try to debug the code... Place breakpoint at where you have written your code & then go to rsa3 and exectue with your extractor.
Regards,

Similar Messages

Reg: DS enhancement code in production

Hi to all,
We are now in the production support. I want to change the DS enhanced code which is written in the implementation bcoz of performance reason. What is the procedure to do that and is there any prerequisites to take. No need to code help here.
Thanks,
Babu.

Hi Babu,
You just need to change the code in EXIT from development system and then do a transport. The code changes will be directly reflected in production after transport.
You don't need to worry about any delta or anything else as there are no structural changes and new code will start executing from next extraction onward.
Just transport the EXIT FM, no need to transport DS or anything else. If you are doing further structural enhancement then you will have to transport other objects accordingly. But if you are only doing code changes then just transport EXIT.
Regards,
Durgesh.

How to make "Read Report" pick up enhancement code as well

I want to enhance a SAP ECC6 program - H99CWTR0 (Wage type reporter). I need to add some more master data objects from other HR tables.
I have succesfully applied implicit enhancements to this program to allow my users to select extra data objects and to retrieve the relevant data from the database. However, the program reads a subroutine pool called H99CWTR0_ALV_TEMPLATE and makes dynamic run time changes and generates a temporary subroutine pool. I have also had to apply implicit enhancements to the template but this is not read by H99CWTR0. So I am unable to to keep the shared data segment in line with the driver program H99CWTR0 which leads to an ABAP dump.
I would prefer to make all changes to SAP programs using the enhancement framework rather than having to clone SAP programs into the "Z" namespace.
Is there a way of making the "Read report" pick up the implicit enhancement code as well as all the other includes in the template?

Hi Prabhu
The dump text said -
"The length of COMMON PART "DRIVER_DATA_EXCHANGE" in program "%_T0DYT0" is different from the corresponding area in the calling program "H99CWTR0".
Length of the COMMON PART in program %_T0DYT0: 1224 bytes
Length of the COMMON PART in program H99CWTR0: 1232 bytes
There is probably an error in the program "H99CWTR0"."
My enhancement to H99CWTR0 is being accessed, but the equivalent enhancement to H99CWTR0_ALV_TEMPLATE is not. Hence the discrepancy in the length of common shared data segment.
The ABAP line "read report iv_template into lt_code." in include H99CWTR0_FORMS is not reading the implicit ehancement code I added. So when the ABAP line "generate subroutine pool lt_code name ov_driver message mm line ll" is called to generate the temporary subroutine code my code is lost.
Regards
Phil Smith

Dtaa source Enhancement code

Hi All,
I am enhancing the DS: 2LIS_11_VAITM with fields EDATU,ZZADATE from VBEP Table.
Could any body provide me the code for this
Regards,
Madhu

Hi.....
Check this........
Data source Enhancement Code Samples
Data source Enhancement
Re: writing custom code for enhancing the generic data source
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/302d4b15-5847-2a10-93bb-9c45d9f06b16
Hope this helps you.......
Regards,
Debjani.......

Enhancement Code (URGENT)

Hi All,
Can any one help in this regard,
Actually my task is,
I created a Master data Attribute Generic data source using Table(LFA1), after that i enhanced the datasource by append structure where i added a filed ZMATNR (filed from MARA table). So, now i have to write a code to populate data into ZMATNR in extract structure and i want to see the data of that field in RSA3. So, please help in this regard......
Technical Information:-
Datasource Name : ZGDSM
Extract Structure Name : ZOXID30102
Append Structure Name : ZENHANCE
Field Name in Append Structure: Component - ZMATNR, Component Type - MATNR
Field Name in Extract Structure : ZMATNR
Please help me in writing this enhancement code......
Thanks in Advance
Regards
Ramakrishna K

Hi,
U can check the sample code:
WHEN 'ZGDSM'.
data: ws_t_data type ZOXID30102.
data: w_matnr type matnr.
Populate the added fields
    LOOP AT i_t_data INTO ws_t_data.
      l_index = sy-tabix.
      select matnr from mara
      into w_matnr where lifnr = ws_t_data-lifner (Use u r condition/logic)
      IF sy-subrc EQ 0.
        ws_t_data-zmatnr = w_matnr.
      ENDIF.
      MODIFY i_t_data FROM ws_t_data INDEX l_index.
    ENDLOOP.
Thanks,
Debasish
    CLEAR i_t_data.
    REFRESH i_t_data.
    i_t_data[] = lt_employee[].

Should enhancements (code plug-ins) be activated in target after transport?

Hi all,
I have recently implemented some enhancements via the code plug-ins as can be referenced via transaction se19. They all worked well in the development system but in QA I had to re-open each one in display mode in order to re-activate them. Is this a requirement for all such enhancements (i.e. should we always activate them in each target environment after sending their transports into a target environment)?
Thank you.

Hi,
If the enhancement implemenation was transported in a active state, I dont think you need to reactivated them in each new system.
But if it was transported in a inactive state you have to activate in each new system.
Thanks,
Poonam.

Enhancement code to 0cs_om_opa_1

Hi Guru's,
I am looking for code to enhance the datasource.
Fields need to append.
KDAUF,KDPOS,AUART----AUFK Table
GWLEN-BGMKOBJ Table
Aufnr is key for AUFK table and objnr is key for BGMKOBJ table.
Thanks,
Rakesh

Hi,
The below code should help you to get your field populated.
Tables: AUFK, BGMKOBJ.
DATA: L_S_ICORDCST LIKE ICORDCST.
CASE I_DATASOURCE.
WHEN '0cs_om_opa_1'.
LOOP AT C_T_DATA INTO L_S_ICORDCST.
SELECT SINGLE KDAUF KDPOS AUART FROM AUFK
INTO (L_S_ICORDCST-ZZKDAUF, L_S_ICORDCST-ZZKDPOS, L_S_ICORDCST-ZZAUART)
WHERE AUFNR = L_S_ICORDCST-AUFNR.
SELECT SINGLE GWLEN
FROM BGMKOBJ
INTO L_S_ICORDCST-ZZGWLEN
WHERE OBJNR = L_S_ICORDCST-OBJNR.
MODIFY C_T_DATA FROM L_S_ICORDCST.
ENDLOOP.
Hope this helps
Regards,
Akhan

Enhancement code for FM :FAGL_GET_TT_DATA_LEAD Please ?

Hi Guys,
I want to enhance the function module FAGL_GET_TT_DATA_LEAD (that gets the data from FAGLFLEXT) to read the FAGLFLEXA table.Can any one get me an idea on how to enhance it ....
If possible please send me brief code steps aswell ...
Thanks in adnvace

Issue resolved by myself, 0FI_GL_10 data source is new to ECC 6.0 and is a part of New GL Implementation. This ERROR I'm getting, is because of new GL is not implemented in our company yet.
Thanks to all

Enhance sorce code in Function module option

Dear Expets ,
          Please let me the advantage of the button - enhance source code in the menu bar of the standard function module.
          Can i write my own logic there .
          I am planning to modify the function module - CK_F_INTERNAL_ACTIVITY_VAL - based on certain condition.
Thanks,
Dev

Hi,
The option mentioned is a part of the enhancement framework provided by SAP to write Implict enhancements
Search for Keyword "Implict enhancements" in SDN and elsewhere to get a brief idea
Using this we can write codes in specific areas of the code as indicated by SAP.
To view these locations -> click on the " enhance source code " button and then go to EDIT->Enhancement Operations -> show Implicit Enhancements ...SAP will highlight the areas where code can be written.
Right Click on the area required->Enhancement Impelemtation -> Create
It asks for a "Enhancement Implementation" as a table control pop-up -> Creata a new one using the "create Icon" and give a suitable name .Your enhancement code will be save under this.
In case you plan to undo the changes,go to the spot created Right Click ->Enhancement Impelemtation -> Undo
Always use the "Where -used list" to analyse the impact of the changes when the function module code is changed and use this "Implict enhancement" only as the last option to edit source code.Implicit options may not always be available for all source codes and at all locations desired.
Hope it helps!
Regards
Byju

CMOD exit_rsap_saplr_001 for transactional data ABAP CODE

Hi please confirm that you want to convey that i can write the actual code in CMOD exit_rsap_saplr_001 for transactional data?? if i put 20 data sources enhancement code in there is'nt that too bulky and will cause the failing all extractor if one code is wrong if you still suggest that i can go ahead with 20 similar codes as below . please see my code below which i have used for all 20 datasources with little modification
if you can recommend some changes in code to improve performance would be great
case i_datasource.
WHEN '0CUSTOMER_ATTR'.
loop at i_t_data into l_s_BIW_KNA1_S.
l_tabix = sy-tabix.
clear i_knvp.
select single * from KNVP into i_knvp where KUNNR = l_s_BIW_KNA1_S-KUNNR.
if sy-subrc = 0.
l_s_BIW_KNA1_S-ZZPARFN = i_knvp-PARVW.
l_s_BIW_KNA1_S-ZZCUSNOBP = i_knvp-KUNN2.
modify i_t_data from l_s_BIW_KNA1_S index l_tabix.
endif.
endloop.
endcase.
Thanks
Poonam

Check this simple code for Z...include into the FM EXIT_SAPLRSAP_001 where zcomp is new field added into the datasource 8zsales2.
data : l_s_/BIC/CE8ZSALES2 like /BIC/CE8ZSALES2,
l_tabix like sy-tabix.
case i_datasource.
when '8ZSALES2'.
loop at c_T_DATA into l_s_/BIC/CE8ZSALES2.
l_tabix = sy-tabix.
fill the new field
select comp_code from /BI0/MCOMP_CODE into l_s_/BIC/CE8ZSALES2-zcomp
where comp_code = '1000'.
if sy-subrc = 0.
*l_s_ZFIAA_IS001_TXT50 = ANLA_TXT50.
modify c_t_data from l_s_/BIC/CE8ZSALES2 index l_tabix.
endif.
endselect.
endloop.
endcase.
Edited by: Rohan Kumar on Jan 16, 2008 8:21 AM

Enhancement works only in debug mode

Hi all,
Need help with the issue that I have.I have written an enhancement , in one of the includes that is being called by MIRA(LMR1MF1H) tcode, to set the document type , based on condition.Below is the code snippet :
Import the flags from memory id
import is_invo from memory id 'IS_INVO'.
import is_crme from memory id 'IS_CRME'.
import is_pdf from memory id 'IS_PDF'.
* Check whether PDF or scanned document and change doc type to Y3 or Y4
if is_pdf eq 'X'.
*    Check if invoice
     if is_invo eq 'X'.
       rbkpv-blart = 'Y3'.
     elseif is_crme eq 'X'.
       rbkpv-blart = 'Y4'.
     endif.
wait up to 1 seconds.
endif.
* Free memory
free memory id 'IS_INVO'.
free memory id 'IS_CRME'.
free memory id 'IS_PDF'.
Now, When I execute directly, the document type is not getting set...I assume the control is not going to my code at all..as there is no other place where the doc type gets modified...
However, when i execute in debug mode, it works perfectly fine...Any inputs on why this behaviour ?

Hi ,
I am not sure what is going wrong..I think the control is not going to the enhancement point at all ! I set a default value for the flag and still the document type doesnt change..Let me explain the flow of the code, that is written, it may help you guys in understanding..
I have a Z report, in which, I am preparing the bdc data and also setting the flag is_pdf, based on some criteria.
In this Z report, I am calling transaction MIRA.Now, MIRA tcode is calling FORM init_miro( in the include LMR1MF1H).Just before this form ends , I have my enhancement code(given above in my first post) written, to change the doc type...
Now, to test, I set the is_pdf flag to 'X', but still the doc type doesnt change...so I assume the control is not going there at all
Also, I am not sure how to use the shared buffer concept..please suggest..

Shud i make use of enhancement fwk here ?

hi,
i have extended an idoc and i need to populate the extra segments before sending it out to EDI (outbound). typically we write this code in an user exit. any idea if i can make use of enhancement fwk in this situation ? if so how ?
thks

Recommendation is - You can write your code inside an include and place the include between Enhancement and Endenhancement.
There are few points you have note down while using Enhancement framework.
Do not directly write code in the enhancement frame work, write the code inside an include program
Caution while using CHECK statement inside enhancement code. The check statement based on where it is used, it will exit the block. If you just want to exit the enhancement part of the include - do not use Check.

Purchasing Info Record - Enhancement

I have a challenge. Depening on who eg which deparment in a plant is ordering a material the info record - price is different. So I need a field in which I can store who I am as a customer in the Info Record. Has anyone knowledge if an exit exists for this kind of enhancement?

Hi wesley
refer the thread below which states that you can add enhancement code to MM06IO01in the PBO module of MM06IO01_MODIFY_SCREEN
Material Info Record User Exit Help
BR
Manthan

Enhancement point is not processed in Q-System

We are using SAP SCM 7.0, based on NW 7.0 EhP 1.
In the development system we created a new enhancement point (implicit) where everything works fine.
After transport to Q system no enhancement point is processed although the coding is there and listed as 'active'.
BAdI implementations are processed, though.
Do you have a general advise what could be wrong?
We don't have a switch for this Z enhancement.
Thanks,
Michael

Hi Michael, 
 
I haven't encountered this problem yet, but there's reports in the forum that another activation helped, e.g. see this thread Implicit Enhancement Code not wrking after transport (and if you do a search you'll find more reports like that). People, who encountered this issue, seem to usually say that during debugging the enhancement code doesn't show up, though in the editor it is visible and marked as active. 
 
Cheers, harald

Data source Enhancement for Sales Item

Dear SDN Mates,
We are enhancing the data source 2LIS_11_VAITM, when i try to enchance extraction structure it is not allowing to enhance. Showing a message :"2LIS_11_VAITM does not allow enhancing or append structure"
Mates if you came across these difficulties please let me know and suggest any ideas.
Thanks and Regards
Arun S

Hi,
Have a look at these links:
[SAP BW Data Source Enhancement|https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/302d4b15-5847-2a10-93bb-9c45d9f06b16]
[Data Source Enhancement|Data source Enhancement Code Samples;
Hope it helps...
Regards,
Ashish
Edited by: Ashish Tewari on May 11, 2009 12:16 PM

Enhancement code

Similar Messages

Maybe you are looking for