topic Re: Customer exit and optimization in Application Development and Automation Discussions

Customer exit and optimization

Former Member — Thu, 17 Mar 2016 13:31:13 GMT

Hello All,

In the Customer Exit (tcode cmod in R/3) for a specific DataSource I have an access to a table, as in this example

SELECT kostl UP TO 1 ROWS FROM cobrb INTO c_opa_6-zzbiocosts

WHERE objnr = aufk-objnr

AND perbz = 'PER'.

ENDSELECT.

For performance reasons I want to access to this table outside of the datapackage loop and to use FOR ALL ENTRIES option.

How can I implement this possible solution?

Any help or simple example will be greatly appreciated.

Thanks in advance for your kind support.

Regards,

Giovanni

Re: Customer exit and optimization

Former Member — Thu, 17 Mar 2016 13:43:13 GMT

It would help if you gave the enhancement name and function module you are looking at because there might then be another exit (such as a BTE etc) that does what you want, but not knowing what exit you are using we can't help.

Also, I hope you're not using SELECT-ENDSELECT blocks....

Rich

Re: Customer exit and optimization

RaymondGiuseppi — Thu, 17 Mar 2016 15:16:46 GMT

Customer exits EXIT_SAPLRSAP_001 and EXIT_SAPLRSAP_002 receive a batch of records by package, so yes you could use a FOR ALL ENTRIES IN it_data or ct_data. Only exceptions would come from buffered tables.

But in you example you read data related to an InfoObject (Order), not from the actual document (0CO_OM_OPA_6 actual cost in delta mode?) so shouldn't this data be appended to an attribute 0COORDER filled with 0COORDER_ATTR, then used in some attributes of the final Info Provider. In your solution what will happen if order is modified after extraction of those costs?

Regards,

Raymond

Re: Customer exit and optimization

Former Member — Thu, 17 Mar 2016 16:04:00 GMT

Giovanni,

You mentioned DataSource and data package in your message, so I am assuming this is BW related.
However, it is not clear as to which DataSource user exit you are working on.

Assumptions: (1) the data structure already has OBJNR in it.

(2) redundant OBJNR values will exist in the data package

t_objnr[] = c_t_data[].

SORT t_objnr BY objnr.

DELETE ADJACENT DUPLICATES FROM t_objnr COMPARING objnr.

SELECT objnr

kostl

INTO TABLE t_kostl

FROM cobrb

FOR ALL ENTRIES IN t_objnr

WHERE objnr = t_objnr-objnr

AND perbz = 'PER'.

SORT t_kostl by OBJNR.

FREE t_objnr.