omit preceding zeros in exceptions fm call (#6244)

This commit is contained in:
Lars Hvam 2023-05-01 07:50:19 +02:00 committed by GitHub
parent b31bafd31e
commit 3dcf700065
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
6 changed files with 13 additions and 13 deletions

View File

@ -74,13 +74,13 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
suppress_enqueue = space
suppress_transport = space
EXCEPTIONS
header_without_text = 01
index_without_header = 02
no_authority_for_devclass_xxxx = 03
no_docu_found = 04
object_is_already_enqueued = 05
object_is_enqueued_by_corr = 06
user_break = 07.
header_without_text = 1
index_without_header = 2
no_authority_for_devclass_xxxx = 3
no_docu_found = 4
object_is_already_enqueued = 5
object_is_enqueued_by_corr = 6
user_break = 7.
ENDMETHOD.

View File

@ -76,8 +76,8 @@ CLASS ltc_lock IMPLEMENTATION.
_scope = '2'
_wait = ' '
EXCEPTIONS
foreign_lock = 01
system_failure = 02.
foreign_lock = 1
system_failure = 2.
cl_abap_unit_assert=>assert_subrc( exp = 0
act = sy-subrc ).

View File

@ -78,7 +78,7 @@ CLASS zcl_abapgit_object_scvi IMPLEMENTATION.
EXPORTING
scvariant = ls_screen_variant-shdsvci-scvariant
EXCEPTIONS
OTHERS = 01.
OTHERS = 1.
IF sy-subrc <> 0.
MESSAGE e413(ms) WITH ls_screen_variant-shdsvci-scvariant INTO zcx_abapgit_exception=>null.
zcx_abapgit_exception=>raise_t100( ).

View File

@ -77,7 +77,7 @@ CLASS zcl_abapgit_object_stvi IMPLEMENTATION.
EXPORTING
tcvariant = ls_transaction_variant-shdtvciu-tcvariant
EXCEPTIONS
OTHERS = 01.
OTHERS = 1.
IF sy-subrc <> 0.
MESSAGE e413(ms) WITH ls_transaction_variant-shdtvciu-tcvariant INTO zcx_abapgit_exception=>null.
zcx_abapgit_exception=>raise_t100( ).

View File

@ -387,7 +387,7 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION.
obj_name = ms_object_type-objname
obj_type = ms_object_type-objtype
EXCEPTIONS
wrong_type = 01.
wrong_type = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).

View File

@ -460,7 +460,7 @@ CLASS zcl_abapgit_object_ueno IMPLEMENTATION.
obj_name = ms_item-obj_name
obj_type = ms_item-obj_type
EXCEPTIONS
wrong_type = 01.
wrong_type = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).