BPS Help with user exit.----- Quick one for Marc.B?

Question

Hi All,
       I'm using an user exit to prefix the GL/account with '2' to make it a stat account.In the fields to be changed , i have included all the characteristics like gl account,region,line of business...key fig name..etc.However when i run the exit, my key figure amount is doubling up.Need a quick fix or a second pair of eyes..also found that xth_data cannot be used in MODIFY statement because of hash table .so I'm using a collect.But as soon as i exit out of the loop, the key figure amount doubles....any pointers????
Here is the code.................................
FUNCTION Z_SEM_PREFIX_2ACCOUNTS.
""Local interface:
*"  IMPORTING
*"     REFERENCE(I_AREA) TYPE  UPC_Y_AREA
*"     REFERENCE(I_PLEVEL) TYPE  UPC_Y_PLEVEL
*"     REFERENCE(I_PACKAGE) TYPE  UPC_Y_PACKAGE
*"     REFERENCE(I_METHOD) TYPE  UPC_Y_METHOD
*"     REFERENCE(I_PARAM) TYPE  UPC_Y_PARAM
*"     REFERENCE(IT_EXITP) TYPE  UPF_YT_EXITP
*"     REFERENCE(ITO_CHASEL) TYPE  UPC_YTO_CHASEL
*"     REFERENCE(ITO_CHA) TYPE  UPC_YTO_CHA
*"     REFERENCE(ITO_KYF) TYPE  UPC_YTO_KYF
*"  EXPORTING
*"     REFERENCE(ET_MESG) TYPE  UPC_YT_MESG
*"  CHANGING
*"     REFERENCE(XTH_DATA) TYPE  HASHED TABLE
  DATA:
    ls_data   TYPE t_s_alloc,
    lth_data  TYPE t_th_alloc.
*Loop thru the data and check if its a valid GL account.
*If its a valid GL account, Prefix '2' to the beginning of the
*account and also add 'DDD' to the transaction type in order to
*identify the record.once the prefixing is over , you will have the  old as well as the new set of records.
*records as they will not have the 'LOB' flag in the transaction type.
  lth_data = xth_data.
  LOOP AT lth_data INTO ls_data.
    if ls_data-s_chas-0gl_account
                                is not initial.
       if ls_data-s_chas-0gl_account+3(1) = '0' AND
         ls_data-s_chas-0gl_account+4(1) <> '0'.
          concatenate '000' '2'
          ls_data-s_chas-0gl_account+4(6)
          into ls_data-s_chas-0gl_account.
          ls_data-s_chas-zoctrtype = 'LOB'.
       endif.
   endif.
  collect ls_data into lth_data.
  ENDLOOP.
DELETE Lth_data
        where s_chas-0gl_account+3(1) <> '2' and
              s_chas-zbpsflag = 'C'.
  xth_data = lth_data.
ENDFUNCTION.

Answer 1

Hi Sudz,
you got it almost right. If you do the collect the system will add the changed records to the exiting ones since you start with lth_data = xth_data. So use the following logic:
start with empty table
refresh lth_data.
now process all exiting data
LOOP AT xth_data INTO ls_data.
if ls_data-s_chas-0gl_account is not initial.
if ls_data-s_chas-0gl_account+3(1) = '0' AND
ls_data-s_chas-0gl_account+4(1) <> '0'.
concatenate '000' '2' ls_data-s_chas-0gl_account+4(6)
into ls_data-s_chas-0gl_account.
ls_data-s_chas-zoctrtype = 'LOB'.
endif.
endif.
and collect the new data
collect ls_data into lth_data.
ENDLOOP.
return only the new data
xth_data = lth_data.
Regards,
Marc
SAP NetWeaver RIG