Not able to update the project using 'BAPI_PROJECT_MAINTAIN'.

Question

I  want to create a project , with reference to an already existing project.
I am using 'BAPI_PROJECT_GETINFO' to get the data of the existing project.
  The bapi gives the following:
1)     e_project_definition.
2)     e_wbs_element_table.
3)     e_wbs_hierarchie_table
I am passing the u2018e_project_definitionu2019 to 'BAPI_PROJECTDEF_CREATE' to create project.The project is created successfully.
But I am not able to update the project with u2018e_wbs_element_tableu2019
and u2018e_wbs_hierarchie_tableu2019. I am using 'BAPI_PROJECT_MAINTAIN' to update the project.
The program is not giving an error, but it is also not updating the E_WBS_ELEMENT_TABLE and E_WBS_HIERARCHIE_TABLE.
I am attaching the code below.
*& Report  ZTEST_PC.
DATA: project_definition   TYPE  bapipr-project_definition,
      with_activities      TYPE  bapipr-with_activities,
      with_milestones      TYPE  bapipr-with_milestones,
      with_subtree         TYPE  bapipr-with_subtree,
      e_project_definition TYPE  bapi_project_definition_ex,
      return               TYPE  bapireturn1.
DATA: i_wbs_element_table         TYPE TABLE OF     bapi_wbs_elements,
      e_wbs_element_table         TYPE TABLE OF     bapi_wbs_element_exp,
      e_wbs_milestone_table   TYPE TABLE OF bapi_wbs_milestone_exp,
      e_wbs_hierarchie_table  TYPE TABLE OF bapi_wbs_hierarchie,
      e_activity_table        TYPE TABLE OF bapi_network_activity_exp,
      e_message_table         TYPE TABLE OF bapi_meth_message.
DATA: wa_wbs_element_table    TYPE      bapi_wbs_element_exp,
      wa_wbs_hierarchie_table TYPE  bapi_wbs_hierarchie.
DATA: l_new_proj_no TYPE  prpss-posid.
DATA: l_project_definition        TYPE  bapi_project_definition.
DATA: l_project_definition_upd    TYPE  bapi_project_definition_up.
DATA: l_project_definition_stru   TYPE  bapi_project_definition.
DATA :l_pspnr      TYPE ps_intnr,
      l_pspid      TYPE ps_pspid,
      l_pro_def(9) TYPE c.
DATA :l_proj  TYPE proj.
DATA :l_len TYPE i VALUE '0'.
DATA: lt_dd03l TYPE TABLE OF dd03l,
      ls_dd03l TYPE dd03l.
DATA: fieldname(50), fieldname1(50) TYPE c.
DATA: p_ddic_name(40), struc(40), fun_struc(50) TYPE c.
FIELD-SYMBOLS: <struc>, <c>, <sc>, <def_field> TYPE any.
DATA : i_method_project    TYPE TABLE OF bapi_method_project,
       wa_method_project   TYPE  bapi_method_project.
DATA : l_index TYPE bapi_method_project-refnumber.
DATA : it_wbs_element_table         TYPE TABLE OF bapi_wbs_element,
       it_wbs_hierarchie_table      TYPE TABLE OF bapi_wbs_hierarchie.
DATA : wl_wbs_element_table         TYPE bapi_wbs_element,
       wl_wbs_hierarchie_table      TYPE bapi_wbs_hierarchie.
DATA : l_wbs_element_table_update   TYPE bapi_wbs_element_update.
DATA : i_wbs_element_table_update   TYPE TABLE OF bapi_wbs_element_update.
Get the project info of the Project 'C01.10995'
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_INPUT'
  EXPORTING
    input  = 'C01.10995'
  IMPORTING
    output = project_definition.
CALL FUNCTION 'BAPI_PROJECT_GETINFO'
  EXPORTING
    project_definition     = project_definition
  IMPORTING
    e_project_definition   = e_project_definition
    return                 = return
  TABLES
    i_wbs_element_table    = i_wbs_element_table
    e_wbs_element_table    = e_wbs_element_table
    e_wbs_milestone_table  = e_wbs_milestone_table
    e_wbs_hierarchie_table = e_wbs_hierarchie_table
    e_activity_table       = e_activity_table
    e_message_table        = e_message_table.
Automate the process the process to get the next number for the func module 'CN_SUCHE_FREIE_NUMMER'.
CLEAR : l_pspnr, l_pspnr, l_pspid, l_pro_def.
SELECT MAX( pspnr ) FROM proj INTO l_pspnr.
SELECT SINGLE * FROM proj INTO l_proj WHERE pspnr EQ l_pspnr.
l_pspid = l_proj-pspid.
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input  = l_pspid
  IMPORTING
    output = l_pspid.
l_pro_def = l_pspid+4(5) + 1.
CONDENSE l_pro_def.
CONCATENATE 'C01.' l_pro_def INTO l_pspid .
function module to generate the nect free number between the given range.
CALL FUNCTION 'CN_SUCHE_FREIE_NUMMER'
  EXPORTING
    search_imp = '2'
    prps_s_imp = l_pspid
    prps_e_imp = 'C01.29999'
    no_dialog  = 'X'
  IMPORTING
    prps_exp   = l_new_proj_no.
IF sy-subrc <> 0.
  EXIT.
ENDIF.
Update the fields of 'l_project_definition_upd' as 'X' for the fields which has values in 'E_PROJECT_DEFINITION'.
Get the New Project Number.
MOVE-CORRESPONDING e_project_definition TO l_project_definition.
l_project_definition-project_definition = l_project_definition-project_definition+0(3).
l_new_proj_no = l_new_proj_no+4(5).
CONCATENATE l_project_definition-project_definition '.' l_new_proj_no INTO l_project_definition-project_definition.
TRANSLATE l_project_definition-project_definition TO UPPER CASE.
MOVE-CORRESPONDING l_project_definition TO l_project_definition_stru.
Create the New project with the New project Number.
CALL FUNCTION 'BAPI_PROJECTDEF_CREATE'
  EXPORTING
    project_definition_stru = l_project_definition_stru.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    wait = ' '.
Populate internal table i_method_project for the bapi_project_maintain func module.
CLEAR : wa_wbs_element_table,wl_wbs_element_table,wa_wbs_hierarchie_table,
        wl_wbs_hierarchie_table, it_wbs_element_table, it_wbs_hierarchie_table.
CLEAR : wa_method_project, i_method_project, l_index .
l_index = 0.
LOOP AT e_wbs_element_table INTO wa_wbs_element_table.
  MOVE-CORRESPONDING wa_wbs_element_table TO wl_wbs_element_table .
  APPEND  wl_wbs_element_table  TO it_wbs_element_table .
  wa_method_project-objecttype = 'WBS_ELEMENT'.
  wa_method_project-method     = 'CREATE'.
  wa_method_project-objectkey  = wa_wbs_element_table-wbs_element.
  l_len = strlen( wa_wbs_element_table-wbs_element ).
Setting Levels as reference number.
  CASE l_len.
    WHEN '9'.
      l_index = 1.
    WHEN '12'.
      l_index = 2.
    WHEN '15'.
      l_index = 3.
    WHEN '18'.
      l_index = 4.
  ENDCASE.
  wa_method_project-refnumber  =  l_index .
  TRANSLATE wa_method_project-objectkey TO UPPER CASE.
  APPEND wa_method_project TO i_method_project.
  CLEAR :wa_method_project, l_index.
ENDLOOP.
l_index = l_index + 1.
wa_method_project-refnumber  = ' '.  "l_index .
wa_method_project-objecttype = ' '.  "'WBS_ELEMENT'.
wa_method_project-method     = 'SAVE'.
wa_method_project-objectkey  = ' '.
APPEND wa_method_project TO i_method_project.
CLEAR wa_method_project.
LOOP AT e_wbs_hierarchie_table INTO wa_wbs_hierarchie_table.
  MOVE-CORRESPONDING wa_wbs_hierarchie_table TO wl_wbs_hierarchie_table.
  APPEND wl_wbs_hierarchie_table TO it_wbs_hierarchie_table.
ENDLOOP.
Update the fields of 'l_project_definition_upd' as 'X' for the fields which has values in 'E_PROJECT_DEFINITION' respectively.
CLEAR : l_project_definition_upd.
p_ddic_name = 'BAPI_PROJECT_DEFINITION_UP'.
struc       = 'l_project_definition_upd'.
fun_struc   = 'E_PROJECT_DEFINITION'.
TRANSLATE: p_ddic_name TO UPPER CASE,
           struc       TO UPPER CASE.
SELECT * FROM dd03l INTO TABLE lt_dd03l WHERE tabname = p_ddic_name.
LOOP AT lt_dd03l INTO ls_dd03l.
  ASSIGN ls_dd03l-fieldname TO <c>.
  fieldname = ls_dd03l-fieldname .
  CONCATENATE fun_struc '-' fieldname INTO fieldname.
  ASSIGN (struc) TO <struc>.
  ASSIGN COMPONENT <c> OF STRUCTURE <struc> TO <sc>.
  ASSIGN (fieldname) TO <def_field>.
  IF NOT <def_field> IS INITIAL  .
    <sc> = 'X'.
  ENDIF.
ENDLOOP.
Update the fields of 'l_wbs_element_table_update' as 'X' for the fields which has values in 'e_wbs_element_table' respectively.
READ TABLE e_wbs_element_table INTO wa_wbs_element_table INDEX '1'.
CLEAR : l_wbs_element_table_update, fieldname1, p_ddic_name, struc, fun_struc .
p_ddic_name = 'BAPI_WBS_ELEMENT_UPDATE'.
struc       = 'l_wbs_element_table_update'.
fun_struc   = 'WA_WBS_ELEMENT_TABLE'.
TRANSLATE: p_ddic_name TO UPPER CASE,
           struc       TO UPPER CASE.
SELECT * FROM dd03l INTO TABLE lt_dd03l WHERE tabname = p_ddic_name.
LOOP AT lt_dd03l INTO ls_dd03l.
  ASSIGN ls_dd03l-fieldname TO <c>.
  fieldname = ls_dd03l-fieldname .
  CONCATENATE fun_struc '-' fieldname INTO fieldname.
  ASSIGN (struc) TO <struc>.
  ASSIGN COMPONENT <c> OF STRUCTURE <struc> TO <sc>.
  ASSIGN (fieldname) TO <def_field>.
  IF NOT <def_field> IS INITIAL  .
    <sc> = 'X'.
  ENDIF.
ENDLOOP.
Append the value of l_wbs_element_table_update TO the table i_wbs_element_table_update for Bapi_project_maintain.
CLEAR i_wbs_element_table_update.
APPEND l_wbs_element_table_update TO i_wbs_element_table_update.
CALL FUNCTION 'BAPI_PROJECT_MAINTAIN'
  EXPORTING
    i_project_definition       = l_project_definition
    i_project_definition_upd   = l_project_definition_upd
  TABLES
    i_method_project           = i_method_project
    i_wbs_element_table_update = i_wbs_element_table_update
    i_wbs_element_table        = it_wbs_element_table.
   i_wbs_hierarchie_table     = it_wbs_hierarchie_table.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    wait = ' '.
Please help me to solve the issue.

Answer 1

I am not sure why it is not working??  Try for any other alternate function modules.
But i see one issue with your coding, always check the return table message type and use commit work, instead of sy-subrc check. This fails for BAPI's