BPS function exit how to

Question

Hi all,
I have some bad fund in my cube. So to correct these bad funds, I am using function exit in BPS. My question is: Do I need to implement the initialization function and exit function both. how could I write these function modules.
does anybody have sample coding for these functions.
any help appreciated.
Thanks.
BNP

Answer 1

Thanks ATW and all.
But I still could not figure it out.
I am trying to summarize my problem and code here.
FUNCTION Z_INFOPROV_FUND_EXIT.
""Local Interface:
*"  IMPORTING
*"     REFERENCE(I_AREA) TYPE  UPC_Y_AREA OPTIONAL
*"     REFERENCE(I_PLEVEL) TYPE  UPC_Y_PLEVEL OPTIONAL
*"     REFERENCE(I_METHOD) TYPE  UPC_Y_METHOD OPTIONAL
*"     REFERENCE(I_PARAM) TYPE  UPC_Y_PARAM OPTIONAL
*"     REFERENCE(I_PACKAGE) TYPE  UPC_Y_PACKAGE OPTIONAL
*"     REFERENCE(IT_EXITP) TYPE  UPF_YT_EXITP OPTIONAL
*"     REFERENCE(ITO_CHASEL) TYPE  UPC_YTO_CHASEL OPTIONAL
*"     REFERENCE(ITO_CHA) TYPE  UPC_YTO_CHA OPTIONAL
*"     REFERENCE(ITO_KYF) TYPE  UPC_YTO_KYF OPTIONAL
*"  EXPORTING
*"     REFERENCE(ET_MESG) TYPE  UPC_YT_MESG
*"  CHANGING
*"     REFERENCE(XTH_DATA) TYPE  HASHED TABLE
functional requirement.
correct fund value in the given cube zxxx1.
*characteristics                  key values
*fund     fund center             key1    key2
*1A2      4562389                 300     500     -
line 1
*to correct the fund above, I am adding these two records
*2A2      4562389                 300     500     -
line2
*1A2      4562389                -300    -500     -
line3
*I am trying to accomplish the above scenario.
*Could you please tell me what I am missing.
*Here is my code
  TYPES: begin of f_c,
             v_from type /BIC/OIZVAL_FROM,
             fund   type /BI0/OIFUND,
         end of   f_c.
  Data:  t_fund type table of f_c,
         w_fund type f_c,
         old_fund(10) type c..
  FIELD-SYMBOLS: <fundctr> type any,
                 <fund>    type any,
                 <s_kyfs>  type any,
                 <s_chas>  type any.
  field-symbols: <t_data> type hashed table,
                 <chavl>  type any,
                 <value>  type any,
                 <s_data> type any.
  data: ls_data type ref to data,
        lt_data type ref to data,
        l_chavl type upc_y_chavlint,
        ls_chasel type upc_ys_chasel,
        ls_charng type upc_ys_charng.
  data: l_app type ref to cl_upx_application.
  l_app = cl_upx_application=>get_instance( i_area ).
  lt_data = l_app->create_th_data( ).
  assign lt_data->* to <t_data>.
  ls_data = l_app->create_s_data( ).
  assign ls_data->* to <s_data>.
  <t_data> = xth_data.
  clear xth_data.
transaction data
  loop at <t_data> assigning <s_data>.
    ASSIGN COMPONENT 'S_CHAS' OF STRUCTURE <s_data> TO <s_chas>.
    ASSIGN COMPONENT 'S_KYFS' OF STRUCTURE <s_data> TO <s_kyfs>.
    check sy-subrc eq 0.
    ASSIGN COMPONENT '0FUND' OF STRUCTURE <s_chas> TO <fund>.
    check sy-subrc eq 0.
    check not <fund> is initial. "no need to check for blank fund
    old_fund = <fund>. "holding old fund for third record above
   here add new record with new fund but with same key figures and characteristics
    ASSIGN COMPONENT '0FUNDS_CTR' OF STRUCTURE <s_chas> TO <fundctr>.
    check sy-subrc eq 0.
    select /BIC/ZVAL_FROM fund into table t_fund from /BIC/AZFMDERIV00
                      where /BIC/ZVAL_FROM <= sy-datum and
                            /BIC/ZSOUR1_TO = <fundctr>.
    check sy-subrc eq 0.
    sort t_fund by v_from descending.
    read table t_fund into w_fund index 1.
    <fund> = w_fund-fund. "new correct fund.
    collect <s_data> into xth_data. "adding line 2 above
   here add new record with all key figures values reversed
   return back old fund now.
    <fund> = old_fund.
    LOOP AT ito_chasel INTO ls_chasel.
    select struture with characteristics
      ASSIGN COMPONENT 'S_KYFS' OF STRUCTURE <s_data> TO <s_kyfs>.
    choose char according to ito_chasel
      ASSIGN COMPONENT ls_chasel-chanm OF STRUCTURE <s_kyfs> TO <value>.
    select value according to ito_chasel
      READ TABLE ls_chasel-t_charng INTO ls_charng INDEX 1.
    set char value
      <value> = ls_charng-low * -1.
    ENDLOOP.
    collect <s_data> into xth_data. "adding line 3 above
  endloop.
ENDFUNCTION.