topic Re: Explain the following ABAP Code please in Application Development and Automation Discussions

Explain the following ABAP Code please

Former Member — Mon, 23 Jul 2007 13:10:44 GMT

Hi,

Can any one please explain me what this code is performing

(Convert this machine language into human language in detail please)

Data: i_t_data like ZOXWRD0054.

case i_datasource.

when ' Z_TRM_LMS'.

Loop at c_t_data into i_t_data.

Select single bonus_cat perfinc active from ztrm_labdlycat into

(i_t_data-zzbonus, i_t_data-zzperf, i_t_data-zzactive)

Where locat = i_t_data-locat and

exrsn = i_t_data-exrsn and

apobj = i_t_data-apobj.

Modify c_t_data from i_t_data.

Endloop.

Endcase.

Thanks in advance

Re: Explain the following ABAP Code please

Pawan_Kesari — Mon, 23 Jul 2007 13:47:16 GMT

When the i_datasource = ' Z_TRM_LMS'

Code is getting values BONUS_CAT PERFINC and ACTIVE from table ZTRM_LABDLYCAT and updating all records of the the internal table C_T_DATA.

Re: Explain the following ABAP Code please

RaymondGiuseppi — Mon, 23 Jul 2007 14:30:43 GMT

This include is related to BW extractor or assimilated product.

For each record extracted by the standard extractor, access to a custom table to fill fields appended to the DataSource.

The use of select single is bad-performance, better select for all entries in the current InfoPackage and then LOOP and READ FROM TABLE to update records.

Regards

Re: Explain the following ABAP Code please

Former Member — Mon, 23 Jul 2007 14:50:20 GMT

HI,

This is a code written in a user exit in BW.

*-- Declare a work area (Temporary storage) same as the structure ZOXWRD0054

Data: i_t_data like ZOXWRD0054.

the program has already a variable called i_datasource and we use Case statement to perform various actions for different values

say if a = 0

do something

if b= 0

do someting..

like this.. Case is used to branch to differnt part of the code based on the value of i_datasouce variable

case i_datasource.

*-- When the value of i_datasouce is 'Z_TRM_LMS' then execute the code between loop and endloop.

when ' Z_TRM_LMS'.

*-- Loop will process record by record

Loop at c_t_data into i_t_data.

*-- Select a single occurence of bonus_cat perfinc active fields from the table ztrm_labdlycat where the values of the fields locat is equal to value in i_t_data-locat and

exrsn is equal to value in i_t_data-exrsn and

apobj is equal to value in i_t_data-apobj.

and copy the values bonus_cat perfinc active from which are in table ztrm_labdlycat into the variables (i_t_data-zzbonus, i_t_data-zzperf, i_t_data-zzactive)

Select single bonus_cat perfinc active from ztrm_labdlycat into

(i_t_data-zzbonus, i_t_data-zzperf, i_t_data-zzactive)

Where locat = i_t_data-locat and

exrsn = i_t_data-exrsn and

apobj = i_t_data-apobj.

*-- Here you are trying to modify the content of the table c_t_data with the new values that the select stament above has returned..

Modify c_t_data from i_t_data.

Endloop.

Endcase.

Hope this help do let me know if any thing else is required

Thanks

Mahesh