COOM0003 User-exit: need sample code

[Former Member]

Hello.

If somebody write UE with extension COOM0003, please, reveal your code.

Thanks.

[RaymondGiuseppi]

There is a standard sample given by SAP :

case i_strat.
  when 'C01'.
    e_konty = 'SK'.
    e_receiver-hkont = '0000315000'.
  when 'C02'.
    if i_senderart = 'ORC'.
      e_konty = 'KS'.
      e_receiver-kostl = '4711'.
    else.
      e_konty = 'KS'.
      e_receiver-kostl = '4712'.
    endif.
endcase.

Regards

[Former Member]

Thanks, but I know it sample:

*----------------------------------------------------------------------*
*   INCLUDE LXKOBSF01                                                  *
*----------------------------------------------------------------------*

************************************************************************
* Example: settle to fix G/L account 315000 for strategie C01;
*          settle to fix cost center 4711 for strategie C02 if object
*          type = internal orders, to fix cost center 4712 for other
*          object types.
************************************************************************

Me need real sample, please.