SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

clear PRESP and PWORK in IEXT serialization + cleanup (#1987)

Browse Source 
* clear PRESP and PWORK

clear username fields PRESP and PWORK

* remove unused FM exceptions

if sy-subrc is analysed (only <> 0) no detailed FM exceptions are needed, only OTHERS

* set PRESP and PWORK on deserialization

PRESP and PWORK is not set to SY-UNAME by default so set it explicitly
This commit is contained in:
Domi Bigl 2018-10-09 12:24:26 +02:00 committed by Lars Hvam
parent 2eae0b10f8
commit 2644624985
1 changed files with 25 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
src/objects/zcl_abapgit_object_iext.clas.abap
View File

@ -42,14 +42,11 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION.
CALL FUNCTION 'EXTTYPE_READ' CALL FUNCTION 'EXTTYPE_READ'
EXPORTING EXPORTING
pi_cimtyp = mv_extension pi_cimtyp = mv_extension
IMPORTING IMPORTING
pe_attributes = ls_attributes pe_attributes = ls_attributes
EXCEPTIONS EXCEPTIONS
object_not_found = 1 OTHERS = 1.
db_error = 2
no_authority = 3
OTHERS = 4.
rv_user = ls_attributes-plast. rv_user = ls_attributes-plast.
@ -65,15 +62,9 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION.
CALL FUNCTION 'EXTTYPE_DELETE' CALL FUNCTION 'EXTTYPE_DELETE'
EXPORTING EXPORTING
pi_cimtyp = mv_extension pi_cimtyp = mv_extension
EXCEPTIONS EXCEPTIONS
object_not_found = 1 OTHERS = 1.
lock_error = 2
action_not_possible = 3
transport_error = 4
db_error = 5
no_authority = 6
OTHERS = 7.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ). zcx_abapgit_exception=>raise_t100( ).
@ -94,24 +85,18 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION.
cg_data = ls_extension ). cg_data = ls_extension ).
MOVE-CORRESPONDING ls_extension-attributes TO ls_attributes. MOVE-CORRESPONDING ls_extension-attributes TO ls_attributes.
ls_attributes-presp = cl_abap_syst=>get_user_name( ).
ls_attributes-pwork = ls_attributes-presp.
CALL FUNCTION 'EXTTYPE_CREATE' CALL FUNCTION 'EXTTYPE_CREATE'
EXPORTING EXPORTING
pi_cimtyp = mv_extension pi_cimtyp = mv_extension
pi_devclass = iv_package pi_devclass = iv_package
pi_attributes = ls_attributes pi_attributes = ls_attributes
TABLES TABLES
pt_syntax = ls_extension-t_syntax pt_syntax = ls_extension-t_syntax
EXCEPTIONS EXCEPTIONS
object_not_found = 1 OTHERS = 1.
object_exists = 2
action_not_possible = 3
syntax_error = 4
segment_error = 5
transport_error = 6
db_error = 7
no_authority = 8
OTHERS = 9.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ). zcx_abapgit_exception=>raise_t100( ).
@ -124,12 +109,9 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION.
CALL FUNCTION 'EXTTYPE_READ' CALL FUNCTION 'EXTTYPE_READ'
EXPORTING EXPORTING
pi_cimtyp = mv_extension pi_cimtyp = mv_extension
EXCEPTIONS EXCEPTIONS
object_not_found = 1 OTHERS = 1.
db_error = 2
no_authority = 3
OTHERS = 4.
rv_bool = boolc( sy-subrc = 0 ). rv_bool = boolc( sy-subrc = 0 ).
@ -172,15 +154,12 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION.
CALL FUNCTION 'ABAP4_CALL_TRANSACTION' CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
STARTING NEW TASK 'GIT' STARTING NEW TASK 'GIT'
EXPORTING EXPORTING
tcode = 'WE30' tcode = 'WE30'
mode_val = 'E' mode_val = 'E'
TABLES TABLES
using_tab = lt_bdcdata using_tab = lt_bdcdata
EXCEPTIONS EXCEPTIONS
system_failure = 1 OTHERS = 1.
communication_failure = 2
resource_failure = 3
OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ). zcx_abapgit_exception=>raise_t100( ).
@ -195,16 +174,13 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION.
CALL FUNCTION 'EXTTYPE_READ' CALL FUNCTION 'EXTTYPE_READ'
EXPORTING EXPORTING
pi_cimtyp = mv_extension pi_cimtyp = mv_extension
IMPORTING IMPORTING
pe_attributes = ls_extension-attributes pe_attributes = ls_extension-attributes
TABLES TABLES
pt_syntax = ls_extension-t_syntax pt_syntax = ls_extension-t_syntax
EXCEPTIONS EXCEPTIONS
object_not_found = 1 OTHERS = 1.
db_error = 2
no_authority = 3
OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ). zcx_abapgit_exception=>raise_t100( ).
@ -215,7 +191,9 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION.
ls_extension-attributes-credate, ls_extension-attributes-credate,
ls_extension-attributes-cretime, ls_extension-attributes-cretime,
ls_extension-attributes-ldate, ls_extension-attributes-ldate,
ls_extension-attributes-ltime. ls_extension-attributes-ltime,
ls_extension-attributes-pwork,
ls_extension-attributes-presp.
io_xml->add( iv_name = 'IEXT' io_xml->add( iv_name = 'IEXT'
ig_data = ls_extension ). ig_data = ls_extension ).