From 55ee890080d3e4e7b61f1b8073eaab6c7554001d Mon Sep 17 00:00:00 2001 From: "Sercan K.D" Date: Tue, 15 Dec 2020 10:00:29 +0300 Subject: [PATCH] Fix missing i_suppress_dialog parameter syntax error in 731 system (#4328) * Fix missing i_suppress_dialog parameter syntax error in 731 system * replace cx_root with cx_sy_dyn_call_param_not_found * revert back to cx_root because checks have failed "Statement does not exist in ABAPv702(or a parser error)" * Revert "revert back to cx_root because checks have failed" This reverts commit 73b9b2aa6f85ca6a6c3ace648751891a0566e93f. * replace cx_root with cx_sy_dyn_call_param_not_found, sorry i didn't see that extra quote character, should be fine now. * fix whitespace Co-authored-by: larshp --- src/objects/zcl_abapgit_object_devc.clas.abap | 38 +++++++++++++------ 1 file changed, 26 insertions(+), 12 deletions(-) diff --git a/src/objects/zcl_abapgit_object_devc.clas.abap b/src/objects/zcl_abapgit_object_devc.clas.abap index 00d5e53b9..b5a984489 100644 --- a/src/objects/zcl_abapgit_object_devc.clas.abap +++ b/src/objects/zcl_abapgit_object_devc.clas.abap @@ -403,7 +403,7 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION. intern_err = 4 OTHERS = 5. - CATCH cx_root. + CATCH cx_sy_dyn_call_param_not_found. li_package->delete( EXCEPTIONS @@ -419,18 +419,32 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION. zcx_abapgit_exception=>raise_t100( ). ENDIF. - li_package->save( - EXPORTING - i_suppress_dialog = abap_true - EXCEPTIONS - object_invalid = 1 - object_not_changeable = 2 - cancelled_in_corr = 3 - permission_failure = 4 - unexpected_error = 5 - intern_err = 6 - OTHERS = 7 ). + TRY. + CALL METHOD li_package->('SAVE') + EXPORTING + i_suppress_dialog = abap_true + EXCEPTIONS + object_invalid = 1 + object_not_changeable = 2 + cancelled_in_corr = 3 + permission_failure = 4 + unexpected_error = 5 + intern_err = 6 + OTHERS = 7. + CATCH cx_sy_dyn_call_param_not_found. + + li_package->save( + EXCEPTIONS + object_invalid = 1 + object_not_changeable = 2 + cancelled_in_corr = 3 + permission_failure = 4 + unexpected_error = 5 + intern_err = 6 + OTHERS = 7 ). + + ENDTRY. IF sy-subrc <> 0. zcx_abapgit_exception=>raise_t100( ). ENDIF.