Creating Settlement Rule for WBS Element

           wa_prps     TYPE prps,
t_cobrb     TYPE TABLE OF cobrb,
wa_cobrb    TYPE cobrb.

“Select WBS Elements
SELECT *
FROM prps
INTO TABLE t_prps
WHERE psphi EQ im_projectdefinition-pspnr.

LOOP AT t_prps INTO wa_prps.

wa_cobrb-objnr      = im_projectdefinition-objnr.
ADD 1 TO wa_cobrb-lfdnr.

***    USE THE CONVERSION EXITS !!!
CALL FUNCTION ‘CONVERSION_EXIT_PERBZ_INPUT’
EXPORTING
input  = ‘PER’
IMPORTING
output = wa_cobrb-perbz.

CALL FUNCTION ‘CONVERSION_EXIT_OBART_INPUT’
EXPORTING
input     = ‘PEP’
IMPORTING
output    = wa_cobrb-konty
EXCEPTIONS
not_found = 1
OTHERS    = 2.

IF sy-subrc NE 0.

ENDIF.

wa_cobrb-prozs      = ‘100.00’.
wa_cobrb-kokrs      = wa_prps-pkokr.
wa_cobrb-bukrs      = wa_prps-pbukr.
wa_cobrb-ps_psp_pnr = wa_prps-pspnr.
wa_cobrb-rec_objnr1 = wa_prps-objnr.

APPEND wa_cobrb TO t_cobrb.

ENDLOOP.

     “Create Settlement Rule
CALL FUNCTION ‘K_SRULE_SAVE_UTASK’
TABLES
t_cobrb_insert    = t_cobrb
EXCEPTIONS
srule_utask_error = 1
OTHERS            = 2.

IF sy-subrc NE 0.
“Implement suitable error handling here
ENDIF.