SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 03:36:32 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Merge branch 'main' into mbtools/exception_location

Browse Source
This commit is contained in:
Lars Hvam 2025-04-28 11:34:10 +02:00 committed by GitHub
commit dab1141bdd
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
12 changed files with 401 additions and 508 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/env/zcl_abapgit_env_factory.clas.xml vendored
View File

@ -5,7 +5,7 @@
<VSEOCLASS> <VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_ENV_FACTORY</CLSNAME> <CLSNAME>ZCL_ABAPGIT_ENV_FACTORY</CLSNAME>
<LANGU>E</LANGU> <LANGU>E</LANGU>
<DESCRIPT>ZCL_ABAPGIT_ENV_FACTORY</DESCRIPT> <DESCRIPT>abapGit - Environment Factory</DESCRIPT>
<STATE>1</STATE> <STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL> <CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT> <FIXPT>X</FIXPT>

2
src/env/zcl_abapgit_env_injector.clas.xml vendored
View File

@ -5,7 +5,7 @@
<VSEOCLASS> <VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_ENV_INJECTOR</CLSNAME> <CLSNAME>ZCL_ABAPGIT_ENV_INJECTOR</CLSNAME>
<LANGU>E</LANGU> <LANGU>E</LANGU>
<DESCRIPT>ZCL_ABAPGIT_ENV_INJECTOR</DESCRIPT> <DESCRIPT>abapGit - Environment Injector</DESCRIPT>
<STATE>1</STATE> <STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL> <CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT> <FIXPT>X</FIXPT>

2
src/env/zif_abapgit_user_record.intf.xml vendored
View File

@ -5,7 +5,7 @@
<VSEOINTERF> <VSEOINTERF>
<CLSNAME>ZIF_ABAPGIT_USER_RECORD</CLSNAME> <CLSNAME>ZIF_ABAPGIT_USER_RECORD</CLSNAME>
<LANGU>E</LANGU> <LANGU>E</LANGU>
<DESCRIPT>ZIF_ABAPGIT_USER_RECORD</DESCRIPT> <DESCRIPT>abapGit - User Record</DESCRIPT>
<EXPOSURE>2</EXPOSURE> <EXPOSURE>2</EXPOSURE>
<STATE>1</STATE> <STATE>1</STATE>
<UNICODE>X</UNICODE> <UNICODE>X</UNICODE>

126
src/objects/zcl_abapgit_object_dcls.clas.abap
View File

@ -12,6 +12,12 @@ CLASS zcl_abapgit_object_dcls DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
zcx_abapgit_type_not_supported. zcx_abapgit_type_not_supported.
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
DATA: mo_dcl_handler TYPE REF TO object. " CL_ACM_DCL_HANDLER
METHODS clear_fields
CHANGING
!cg_data TYPE any
RAISING
zcx_abapgit_exception .
ENDCLASS. ENDCLASS.
@ -20,8 +26,6 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
METHOD constructor. METHOD constructor.
DATA: lo_dcl TYPE REF TO object.
super->constructor( super->constructor(
is_item = is_item is_item = is_item
iv_language = iv_language iv_language = iv_language
@ -31,9 +35,9 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
TRY. TRY.
CALL METHOD ('CL_ACM_DCL_HANDLER_FACTORY')=>('CREATE') CALL METHOD ('CL_ACM_DCL_HANDLER_FACTORY')=>('CREATE')
RECEIVING RECEIVING
ro_handler = lo_dcl. ro_handler = mo_dcl_handler.
CATCH cx_sy_ref_creation. CATCH cx_root.
RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = is_item-obj_type. RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = is_item-obj_type.
ENDTRY. ENDTRY.
@ -42,7 +46,6 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: lr_data TYPE REF TO data, DATA: lr_data TYPE REF TO data,
lo_dcl TYPE REF TO object,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
@ -52,15 +55,14 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
ASSIGN lr_data->* TO <lg_data>. ASSIGN lr_data->* TO <lg_data>.
TRY. TRY.
CALL METHOD ('CL_ACM_DCL_HANDLER_FACTORY')=>('CREATE') CALL METHOD mo_dcl_handler->('READ')
RECEIVING
ro_handler = lo_dcl.
CALL METHOD lo_dcl->('READ')
EXPORTING EXPORTING
iv_dclname = ms_item-obj_name iv_dclname = ms_item-obj_name
IMPORTING IMPORTING
es_dclsrc = <lg_data>. es_dclsrc = <lg_data>.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ASSIGN COMPONENT 'AS4USER' OF STRUCTURE <lg_data> TO <lg_field>. ASSIGN COMPONENT 'AS4USER' OF STRUCTURE <lg_data> TO <lg_field>.
IF sy-subrc = 0. IF sy-subrc = 0.
@ -68,23 +70,16 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
ELSE. ELSE.
rv_user = c_user_unknown. rv_user = c_user_unknown.
ENDIF. ENDIF.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA: lo_dcl TYPE REF TO object, DATA: lx_error TYPE REF TO cx_root.
lx_error TYPE REF TO cx_root.
TRY. TRY.
CALL METHOD ('CL_ACM_DCL_HANDLER_FACTORY')=>('CREATE') CALL METHOD mo_dcl_handler->('DELETE')
RECEIVING
ro_handler = lo_dcl.
CALL METHOD lo_dcl->('DELETE')
EXPORTING EXPORTING
iv_dclname = ms_item-obj_name. iv_dclname = ms_item-obj_name.
@ -100,7 +95,6 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
METHOD zif_abapgit_object~deserialize. METHOD zif_abapgit_object~deserialize.
DATA: lr_data TYPE REF TO data, DATA: lr_data TYPE REF TO data,
lo_dcl TYPE REF TO object,
lx_error TYPE REF TO cx_root, lx_error TYPE REF TO cx_root,
lv_abap_language_version TYPE uccheck. lv_abap_language_version TYPE uccheck.
@ -127,15 +121,11 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
set_abap_language_version( CHANGING cv_abap_language_version = lv_abap_language_version ). set_abap_language_version( CHANGING cv_abap_language_version = lv_abap_language_version ).
ENDIF. ENDIF.
TRY.
tadir_insert( iv_package ). tadir_insert( iv_package ).
CALL METHOD ('CL_ACM_DCL_HANDLER_FACTORY')=>('CREATE')
RECEIVING
ro_handler = lo_dcl.
TRY. TRY.
CALL METHOD lo_dcl->('SAVE') TRY.
CALL METHOD mo_dcl_handler->('SAVE')
EXPORTING EXPORTING
iv_dclname = ms_item-obj_name iv_dclname = ms_item-obj_name
iv_put_state = 'I' iv_put_state = 'I'
@ -144,7 +134,7 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
iv_access_mode = 'INSERT' iv_access_mode = 'INSERT'
iv_abap_language_version = lv_abap_language_version. iv_abap_language_version = lv_abap_language_version.
CATCH cx_sy_dyn_call_param_not_found. CATCH cx_sy_dyn_call_param_not_found.
CALL METHOD lo_dcl->('SAVE') CALL METHOD mo_dcl_handler->('SAVE')
EXPORTING EXPORTING
iv_dclname = ms_item-obj_name iv_dclname = ms_item-obj_name
iv_put_state = 'I' iv_put_state = 'I'
@ -164,24 +154,12 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
METHOD zif_abapgit_object~exists. METHOD zif_abapgit_object~exists.
DATA: lo_dcl TYPE REF TO object, CALL METHOD mo_dcl_handler->('CHECK_EXISTENCE')
lx_error TYPE REF TO cx_root.
TRY.
CALL METHOD ('CL_ACM_DCL_HANDLER_FACTORY')=>('CREATE')
RECEIVING
ro_handler = lo_dcl.
CALL METHOD lo_dcl->('CHECK_EXISTENCE')
EXPORTING EXPORTING
iv_objectname = ms_item-obj_name iv_objectname = ms_item-obj_name
RECEIVING RECEIVING
rv_exists = rv_bool. rv_exists = rv_bool.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ENDMETHOD. ENDMETHOD.
@ -236,7 +214,6 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
METHOD zif_abapgit_object~serialize. METHOD zif_abapgit_object~serialize.
DATA: lr_data TYPE REF TO data, DATA: lr_data TYPE REF TO data,
lo_dcl TYPE REF TO object,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
@ -247,44 +224,17 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
ASSIGN lr_data->* TO <lg_data>. ASSIGN lr_data->* TO <lg_data>.
TRY. TRY.
CALL METHOD ('CL_ACM_DCL_HANDLER_FACTORY')=>('CREATE') CALL METHOD mo_dcl_handler->('READ')
RECEIVING
ro_handler = lo_dcl.
CALL METHOD lo_dcl->('READ')
EXPORTING EXPORTING
iv_dclname = ms_item-obj_name iv_dclname = ms_item-obj_name
IMPORTING IMPORTING
es_dclsrc = <lg_data>. es_dclsrc = <lg_data>.
ASSIGN COMPONENT 'AS4USER' OF STRUCTURE <lg_data> TO <lg_field>. CATCH cx_root INTO lx_error.
ASSERT sy-subrc = 0. zcx_abapgit_exception=>raise_with_text( lx_error ).
CLEAR <lg_field>. ENDTRY.
ASSIGN COMPONENT 'AS4DATE' OF STRUCTURE <lg_data> TO <lg_field>. clear_fields( CHANGING cg_data = <lg_data> ).
ASSERT sy-subrc = 0.
CLEAR <lg_field>.
ASSIGN COMPONENT 'AS4TIME' OF STRUCTURE <lg_data> TO <lg_field>.
ASSERT sy-subrc = 0.
CLEAR <lg_field>.
ASSIGN COMPONENT 'CREATED_BY' OF STRUCTURE <lg_data> TO <lg_field>.
ASSERT sy-subrc = 0.
CLEAR <lg_field>.
ASSIGN COMPONENT 'CREATED_DATE' OF STRUCTURE <lg_data> TO <lg_field>.
ASSERT sy-subrc = 0.
CLEAR <lg_field>.
ASSIGN COMPONENT 'AS4LOCAL' OF STRUCTURE <lg_data> TO <lg_field>.
ASSERT sy-subrc = 0.
CLEAR <lg_field>.
ASSIGN COMPONENT 'ABAP_LANGUAGE_VERSION' OF STRUCTURE <lg_data> TO <lg_field>.
IF sy-subrc = 0.
clear_abap_language_version( CHANGING cv_abap_language_version = <lg_field> ).
ENDIF.
ASSIGN COMPONENT 'SOURCE' OF STRUCTURE <lg_data> TO <lg_field>. ASSIGN COMPONENT 'SOURCE' OF STRUCTURE <lg_data> TO <lg_field>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
@ -298,9 +248,31 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
io_xml->add( iv_name = 'DCLS' io_xml->add( iv_name = 'DCLS'
ig_data = <lg_data> ). ig_data = <lg_data> ).
CATCH cx_root INTO lx_error. ENDMETHOD.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
METHOD clear_fields.
DATA:
BEGIN OF ls_fields_to_clear,
as4user TYPE c,
as4date TYPE d,
as4time TYPE t,
created_by TYPE c,
created_date TYPE d,
as4local TYPE c,
END OF ls_fields_to_clear.
FIELD-SYMBOLS:
<lg_abap_language_version> TYPE any.
MOVE-CORRESPONDING ls_fields_to_clear TO cg_data.
ASSIGN COMPONENT 'ABAP_LANGUAGE_VERSION' OF STRUCTURE cg_data TO <lg_abap_language_version>.
IF sy-subrc = 0.
clear_abap_language_version( CHANGING cv_abap_language_version = <lg_abap_language_version> ).
ENDIF.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.

135
src/objects/zcl_abapgit_object_ddls.clas.abap
View File

@ -20,6 +20,7 @@ CLASS zcl_abapgit_object_ddls DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
zcx_abapgit_exception. zcx_abapgit_exception.
PRIVATE SECTION. PRIVATE SECTION.
DATA mo_ddl_handler TYPE REF TO object. " CL_DD_DDL_HANDLER
METHODS is_baseinfo_supported METHODS is_baseinfo_supported
RETURNING RETURNING
VALUE(rv_supported) TYPE abap_bool . VALUE(rv_supported) TYPE abap_bool .
@ -29,6 +30,12 @@ CLASS zcl_abapgit_object_ddls DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
METHODS format_source_before_serialize METHODS format_source_before_serialize
CHANGING CHANGING
cv_string TYPE string. cv_string TYPE string.
METHODS clear_fields
CHANGING
!cg_data TYPE any
RAISING
zcx_abapgit_exception .
ENDCLASS. ENDCLASS.
@ -38,8 +45,6 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
METHOD constructor. METHOD constructor.
DATA lo_ddl TYPE REF TO object.
super->constructor( super->constructor(
is_item = is_item is_item = is_item
iv_language = iv_language iv_language = iv_language
@ -49,7 +54,8 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
TRY. TRY.
CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE') CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE')
RECEIVING RECEIVING
handler = lo_ddl. handler = mo_ddl_handler.
CATCH cx_root. CATCH cx_root.
RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = is_item-obj_type. RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = is_item-obj_type.
ENDTRY. ENDTRY.
@ -93,13 +99,12 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
METHOD is_baseinfo_supported. METHOD is_baseinfo_supported.
DATA: DATA:
lr_data_baseinfo TYPE REF TO data, lr_data_baseinfo TYPE REF TO data.
lx_error TYPE REF TO cx_root.
TRY. TRY.
CREATE DATA lr_data_baseinfo TYPE ('IF_DD_DDL_TYPES=>TY_S_BASEINFO_STRING_SAVE'). CREATE DATA lr_data_baseinfo TYPE ('IF_DD_DDL_TYPES=>TY_S_BASEINFO_STRING_SAVE').
rv_supported = abap_true. rv_supported = abap_true.
CATCH cx_root INTO lx_error. CATCH cx_root.
rv_supported = abap_false. rv_supported = abap_false.
ENDTRY. ENDTRY.
@ -108,9 +113,7 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
METHOD open_adt_stob. METHOD open_adt_stob.
DATA: lr_data TYPE REF TO data, DATA: lr_data TYPE REF TO data.
lo_ddl TYPE REF TO object,
lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lt_ddnames> TYPE STANDARD TABLE. FIELD-SYMBOLS: <lt_ddnames> TYPE STANDARD TABLE.
FIELD-SYMBOLS: <lt_entity_view> TYPE STANDARD TABLE. FIELD-SYMBOLS: <lt_entity_view> TYPE STANDARD TABLE.
@ -120,7 +123,6 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
FIELD-SYMBOLS: <lg_ddlname> TYPE any. FIELD-SYMBOLS: <lg_ddlname> TYPE any.
TRY.
CREATE DATA lr_data TYPE ('IF_DD_DDL_TYPES=>TY_T_DDOBJ'). CREATE DATA lr_data TYPE ('IF_DD_DDL_TYPES=>TY_T_DDOBJ').
ASSIGN lr_data->* TO <lt_ddnames>. ASSIGN lr_data->* TO <lt_ddnames>.
@ -138,11 +140,7 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
<lg_ddname> = iv_ddls_name. <lg_ddname> = iv_ddls_name.
INSERT <lg_ddnames> INTO TABLE <lt_ddnames>. INSERT <lg_ddnames> INTO TABLE <lt_ddnames>.
CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE') CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~GET_VIEWNAME_FROM_ENTITYNAME')
RECEIVING
handler = lo_ddl.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~GET_VIEWNAME_FROM_ENTITYNAME')
EXPORTING EXPORTING
ddnames = <lt_ddnames> ddnames = <lt_ddnames>
IMPORTING IMPORTING
@ -157,10 +155,6 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
ENDIF. ENDIF.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ENDMETHOD. ENDMETHOD.
@ -180,23 +174,17 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: lo_ddl TYPE REF TO object, DATA: lr_data TYPE REF TO data,
lr_data TYPE REF TO data,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_field> TYPE any. <lg_field> TYPE any.
TRY.
CREATE DATA lr_data TYPE ('DDDDLSRCV'). CREATE DATA lr_data TYPE ('DDDDLSRCV').
ASSIGN lr_data->* TO <lg_data>. ASSIGN lr_data->* TO <lg_data>.
CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE') TRY.
RECEIVING CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~READ')
handler = lo_ddl.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~READ')
EXPORTING EXPORTING
name = ms_item-obj_name name = ms_item-obj_name
get_state = 'A' get_state = 'A'
@ -270,7 +258,6 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
METHOD zif_abapgit_object~deserialize. METHOD zif_abapgit_object~deserialize.
DATA: DATA:
lo_ddl TYPE REF TO object,
lr_data TYPE REF TO data, lr_data TYPE REF TO data,
lr_data_baseinfo TYPE REF TO data, lr_data_baseinfo TYPE REF TO data,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
@ -283,10 +270,10 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
<lg_baseinfo_ddlname> TYPE any, <lg_baseinfo_ddlname> TYPE any,
<lg_abap_language_version> TYPE any. <lg_abap_language_version> TYPE any.
TRY.
CREATE DATA lr_data TYPE ('DDDDLSRCV'). CREATE DATA lr_data TYPE ('DDDDLSRCV').
ASSIGN lr_data->* TO <lg_data>. ASSIGN lr_data->* TO <lg_data>.
TRY.
io_xml->read( EXPORTING iv_name = 'DDLS' io_xml->read( EXPORTING iv_name = 'DDLS'
CHANGING cg_data = <lg_data> ). CHANGING cg_data = <lg_data> ).
@ -299,10 +286,6 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
set_abap_language_version( CHANGING cv_abap_language_version = <lg_abap_language_version> ). set_abap_language_version( CHANGING cv_abap_language_version = <lg_abap_language_version> ).
ENDIF. ENDIF.
CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE')
RECEIVING
handler = lo_ddl.
IF is_baseinfo_supported( ) = abap_true. IF is_baseinfo_supported( ) = abap_true.
CREATE DATA lr_data_baseinfo TYPE ('IF_DD_DDL_TYPES=>TY_S_BASEINFO_STRING_SAVE'). CREATE DATA lr_data_baseinfo TYPE ('IF_DD_DDL_TYPES=>TY_S_BASEINFO_STRING_SAVE').
ASSIGN lr_data_baseinfo->* TO <lg_data_baseinfo>. ASSIGN lr_data_baseinfo->* TO <lg_data_baseinfo>.
@ -317,7 +300,7 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
<lg_baseinfo_ddlname> = ms_item-obj_name. <lg_baseinfo_ddlname> = ms_item-obj_name.
TRY. TRY.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~SAVE') CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~SAVE')
EXPORTING EXPORTING
name = ms_item-obj_name name = ms_item-obj_name
put_state = 'N' put_state = 'N'
@ -325,7 +308,7 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
baseinfo_string = <lg_data_baseinfo> baseinfo_string = <lg_data_baseinfo>
save_language_version = abap_true. save_language_version = abap_true.
CATCH cx_sy_dyn_call_param_not_found. CATCH cx_sy_dyn_call_param_not_found.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~SAVE') CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~SAVE')
EXPORTING EXPORTING
name = ms_item-obj_name name = ms_item-obj_name
put_state = 'N' put_state = 'N'
@ -333,14 +316,14 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
baseinfo_string = <lg_data_baseinfo>. baseinfo_string = <lg_data_baseinfo>.
ENDTRY. ENDTRY.
ELSE. ELSE.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~SAVE') CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~SAVE')
EXPORTING EXPORTING
name = ms_item-obj_name name = ms_item-obj_name
put_state = 'N' put_state = 'N'
ddddlsrcv_wa = <lg_data>. ddddlsrcv_wa = <lg_data>.
ENDIF. ENDIF.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~WRITE_TADIR') CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~WRITE_TADIR')
EXPORTING EXPORTING
objectname = ms_item-obj_name objectname = ms_item-obj_name
devclass = iv_package devclass = iv_package
@ -349,16 +332,14 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
corr_insert( iv_package ). corr_insert( iv_package ).
CATCH cx_root INTO lx_error. CATCH cx_root INTO lx_error.
IF lo_ddl IS NOT INITIAL.
" Attempt clean-up but catch error if it doesn't work " Attempt clean-up but catch error if it doesn't work
TRY. TRY.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~DELETE') CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~DELETE')
EXPORTING EXPORTING
name = ms_item-obj_name name = ms_item-obj_name
prid = 0. prid = 0.
CATCH cx_root ##NO_HANDLER. CATCH cx_root ##NO_HANDLER.
ENDTRY. ENDTRY.
ENDIF.
zcx_abapgit_exception=>raise_with_text( lx_error ). zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY. ENDTRY.
@ -370,15 +351,10 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
METHOD zif_abapgit_object~exists. METHOD zif_abapgit_object~exists.
DATA: lv_state TYPE objstate, DATA: lv_state TYPE objstate.
lo_ddl TYPE REF TO object.
TRY. TRY.
CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE') CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~READ')
RECEIVING
handler = lo_ddl.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~READ')
EXPORTING EXPORTING
name = ms_item-obj_name name = ms_item-obj_name
IMPORTING IMPORTING
@ -457,36 +433,28 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
METHOD zif_abapgit_object~serialize. METHOD zif_abapgit_object~serialize.
DATA: lo_ddl TYPE REF TO object, DATA: lr_data TYPE REF TO data,
lr_data TYPE REF TO data,
lr_data_baseinfo TYPE REF TO data, lr_data_baseinfo TYPE REF TO data,
lt_clr_comps TYPE STANDARD TABLE OF fieldname WITH DEFAULT KEY,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_field> TYPE any, <lg_field> TYPE any,
<lv_comp> LIKE LINE OF lt_clr_comps,
<lt_data_baseinfo> TYPE ANY TABLE, <lt_data_baseinfo> TYPE ANY TABLE,
<lg_data_baseinfo> TYPE any, <lg_data_baseinfo> TYPE any,
<lg_ddlname> TYPE any, <lg_ddlname> TYPE any,
<lg_as4local> TYPE any, <lg_as4local> TYPE any.
<lg_abap_language_version> TYPE any.
TRY.
CREATE DATA lr_data TYPE ('DDDDLSRCV'). CREATE DATA lr_data TYPE ('DDDDLSRCV').
ASSIGN lr_data->* TO <lg_data>. ASSIGN lr_data->* TO <lg_data>.
CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE') TRY.
RECEIVING
handler = lo_ddl.
IF is_baseinfo_supported( ) = abap_true. IF is_baseinfo_supported( ) = abap_true.
CREATE DATA lr_data_baseinfo TYPE ('IF_DD_DDL_TYPES=>TY_T_BASEINFO_STRING'). CREATE DATA lr_data_baseinfo TYPE ('IF_DD_DDL_TYPES=>TY_T_BASEINFO_STRING').
ASSIGN lr_data_baseinfo->* TO <lt_data_baseinfo>. ASSIGN lr_data_baseinfo->* TO <lt_data_baseinfo>.
ASSIGN lr_data_baseinfo->* TO <lg_data_baseinfo>.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~READ') CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~READ')
EXPORTING EXPORTING
name = ms_item-obj_name name = ms_item-obj_name
get_state = 'A' get_state = 'A'
@ -511,7 +479,7 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
ELSE. ELSE.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~READ') CALL METHOD mo_ddl_handler->('IF_DD_DDL_HANDLER~READ')
EXPORTING EXPORTING
name = ms_item-obj_name name = ms_item-obj_name
get_state = 'A' get_state = 'A'
@ -523,24 +491,7 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
zcx_abapgit_exception=>raise_with_text( lx_error ). zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY. ENDTRY.
ASSIGN COMPONENT 'ABAP_LANGUAGE_VERSION' OF STRUCTURE <lg_data> TO <lg_abap_language_version>. clear_fields( CHANGING cg_data = <lg_data> ).
IF sy-subrc = 0.
clear_abap_language_version( CHANGING cv_abap_language_version = <lg_abap_language_version> ).
ENDIF.
APPEND 'AS4USER' TO lt_clr_comps.
APPEND 'AS4DATE' TO lt_clr_comps.
APPEND 'AS4TIME' TO lt_clr_comps.
APPEND 'ACTFLAG' TO lt_clr_comps.
APPEND 'CHGFLAG' TO lt_clr_comps.
APPEND 'ABAP_LANGU_VERSION' TO lt_clr_comps.
LOOP AT lt_clr_comps ASSIGNING <lv_comp>.
ASSIGN COMPONENT <lv_comp> OF STRUCTURE <lg_data> TO <lg_field>.
IF sy-subrc = 0.
CLEAR <lg_field>.
ENDIF.
ENDLOOP.
ASSIGN COMPONENT 'SOURCE' OF STRUCTURE <lg_data> TO <lg_field>. ASSIGN COMPONENT 'SOURCE' OF STRUCTURE <lg_data> TO <lg_field>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
@ -557,4 +508,30 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
ig_data = <lg_data> ). ig_data = <lg_data> ).
ENDMETHOD. ENDMETHOD.
METHOD clear_fields.
DATA:
BEGIN OF ls_fields_to_clear,
as4user TYPE c,
as4date TYPE d,
as4time TYPE t,
actflag TYPE c,
chgflag TYPE c,
abap_langu_version TYPE c,
END OF ls_fields_to_clear.
FIELD-SYMBOLS:
<lg_abap_language_version> TYPE any.
MOVE-CORRESPONDING ls_fields_to_clear TO cg_data.
ASSIGN COMPONENT 'ABAP_LANGUAGE_VERSION' OF STRUCTURE cg_data TO <lg_abap_language_version>.
IF sy-subrc = 0.
clear_abap_language_version( CHANGING cv_abap_language_version = <lg_abap_language_version> ).
ENDIF.
ENDMETHOD.
ENDCLASS. ENDCLASS.

254
src/objects/zcl_abapgit_object_ddlx.clas.abap
View File

@ -12,20 +12,15 @@ CLASS zcl_abapgit_object_ddlx DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
zcx_abapgit_type_not_supported. zcx_abapgit_type_not_supported.
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
DATA mi_persistence TYPE REF TO if_wb_object_persist . DATA mi_persistence TYPE REF TO if_wb_object_persist.
METHODS get_persistence DATA mi_data_model TYPE REF TO if_wb_object_data_model.
RETURNING DATA mv_object_key TYPE seu_objkey.
VALUE(ri_persistence) TYPE REF TO if_wb_object_persist
RAISING
zcx_abapgit_exception .
METHODS clear_fields METHODS clear_fields
CHANGING CHANGING
!cg_data TYPE any . !cg_data TYPE any
METHODS clear_field RAISING
IMPORTING zcx_abapgit_exception .
!iv_fieldname TYPE csequence
CHANGING
!cg_metadata TYPE any .
ENDCLASS. ENDCLASS.
@ -40,131 +35,47 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
io_files = io_files io_files = io_files
io_i18n_params = io_i18n_params ). io_i18n_params = io_i18n_params ).
mv_object_key = ms_item-obj_name.
TRY. TRY.
get_persistence( ). CREATE OBJECT mi_persistence
CATCH zcx_abapgit_exception. TYPE ('CL_DDLX_ADT_OBJECT_PERSIST').
CREATE OBJECT mi_data_model
TYPE ('CL_DDLX_WB_OBJECT_DATA').
CATCH cx_sy_create_object_error.
RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = is_item-obj_type. RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = is_item-obj_type.
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
METHOD clear_field.
FIELD-SYMBOLS: <lg_field> TYPE data.
ASSIGN COMPONENT iv_fieldname
OF STRUCTURE cg_metadata
TO <lg_field>.
IF sy-subrc = 0.
CLEAR: <lg_field>.
ENDIF.
ENDMETHOD.
METHOD clear_fields.
FIELD-SYMBOLS: <lg_metadata> TYPE any.
ASSIGN COMPONENT 'METADATA'
OF STRUCTURE cg_data
TO <lg_metadata>.
ASSERT sy-subrc = 0.
clear_field( EXPORTING iv_fieldname = 'CHANGED_AT'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'CHANGED_BY'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'CREATED_AT'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'CREATED_BY'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'RESPONSIBLE'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'PACKAGE_REF-NAME'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'CONTAINER_REF-PACKAGE_NAME'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'VERSION'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'RESPONSIBLE'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'MASTER_SYSTEM'
CHANGING cg_metadata = <lg_metadata> ).
clear_field( EXPORTING iv_fieldname = 'ABAP_LANGUAGE_VERSION'
CHANGING cg_metadata = <lg_metadata> ).
ENDMETHOD.
METHOD get_persistence.
DATA: lx_error TYPE REF TO cx_root.
TRY.
IF mi_persistence IS NOT BOUND.
CREATE OBJECT mi_persistence
TYPE ('CL_DDLX_ADT_OBJECT_PERSIST').
ENDIF.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ri_persistence = mi_persistence.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: DATA: lr_data TYPE REF TO data.
lv_object_key TYPE seu_objkey,
li_data_model TYPE REF TO if_wb_object_data_model,
li_persistence TYPE REF TO if_wb_object_persist,
lr_data TYPE REF TO data.
FIELD-SYMBOLS: FIELD-SYMBOLS:
<lg_data> TYPE any, <lg_data> TYPE any,
<lg_changed_by> TYPE data. <lg_changed_by> TYPE data.
lv_object_key = ms_item-obj_name.
TRY.
CREATE DATA lr_data CREATE DATA lr_data
TYPE ('CL_DDLX_WB_OBJECT_DATA=>TY_OBJECT_DATA'). TYPE ('CL_DDLX_WB_OBJECT_DATA=>TY_OBJECT_DATA').
ASSIGN lr_data->* TO <lg_data>. ASSIGN lr_data->* TO <lg_data>.
CREATE OBJECT li_data_model TRY.
TYPE ('CL_DDLX_WB_OBJECT_DATA'). mi_persistence->get(
li_persistence = get_persistence( ).
li_persistence->get(
EXPORTING EXPORTING
p_object_key = lv_object_key p_object_key = mv_object_key
p_version = swbm_version_active p_version = swbm_version_active
CHANGING CHANGING
p_object_data = li_data_model ). p_object_data = mi_data_model ).
CATCH cx_root. CATCH cx_swb_exception.
rv_user = c_user_unknown. rv_user = c_user_unknown.
RETURN. RETURN.
ENDTRY. ENDTRY.
li_data_model->get_data( IMPORTING p_data = <lg_data> ). mi_data_model->get_data( IMPORTING p_data = <lg_data> ).
ASSIGN COMPONENT 'METADATA-CHANGED_BY' OF STRUCTURE <lg_data> TO <lg_changed_by>. ASSIGN COMPONENT 'METADATA-CHANGED_BY' OF STRUCTURE <lg_data> TO <lg_changed_by>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
@ -175,18 +86,13 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA: lv_object_key TYPE seu_objkey, DATA: lx_error TYPE REF TO cx_swb_exception.
lx_error TYPE REF TO cx_root.
lv_object_key = ms_item-obj_name.
TRY. TRY.
mi_persistence->delete( p_object_key = mv_object_key
get_persistence( )->delete( p_object_key = lv_object_key
p_version = swbm_version_active ). p_version = swbm_version_active ).
CATCH cx_root INTO lx_error. CATCH cx_swb_exception INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ). zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY. ENDTRY.
@ -197,9 +103,8 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
METHOD zif_abapgit_object~deserialize. METHOD zif_abapgit_object~deserialize.
DATA: li_data_model TYPE REF TO if_wb_object_data_model, DATA: lr_data TYPE REF TO data,
lr_data TYPE REF TO data, lx_error TYPE REF TO cx_swb_exception.
lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_source> TYPE data, <lg_source> TYPE data,
@ -209,7 +114,6 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
<lg_changed_at> TYPE xsddatetime_z, <lg_changed_at> TYPE xsddatetime_z,
<lg_abap_language_version> TYPE data. <lg_abap_language_version> TYPE data.
TRY.
CREATE DATA lr_data CREATE DATA lr_data
TYPE ('CL_DDLX_WB_OBJECT_DATA=>TY_OBJECT_DATA'). TYPE ('CL_DDLX_WB_OBJECT_DATA=>TY_OBJECT_DATA').
ASSIGN lr_data->* TO <lg_data>. ASSIGN lr_data->* TO <lg_data>.
@ -235,9 +139,6 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
CATCH zcx_abapgit_exception ##NO_HANDLER. CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY. ENDTRY.
CREATE OBJECT li_data_model
TYPE ('CL_DDLX_WB_OBJECT_DATA').
ASSIGN COMPONENT 'METADATA-VERSION' OF STRUCTURE <lg_data> TO <lg_version>. ASSIGN COMPONENT 'METADATA-VERSION' OF STRUCTURE <lg_data> TO <lg_version>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
@ -260,16 +161,16 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
GET TIME STAMP FIELD <lg_changed_at>. GET TIME STAMP FIELD <lg_changed_at>.
ENDIF. ENDIF.
li_data_model->set_data( <lg_data> ). mi_data_model->set_data( <lg_data> ).
get_persistence( )->save( li_data_model ). TRY.
mi_persistence->save( mi_data_model ).
tadir_insert( iv_package ). CATCH cx_swb_exception INTO lx_error.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ). zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY. ENDTRY.
tadir_insert( iv_package ).
zcl_abapgit_objects_activation=>add_item( ms_item ). zcl_abapgit_objects_activation=>add_item( ms_item ).
ENDMETHOD. ENDMETHOD.
@ -277,14 +178,10 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
METHOD zif_abapgit_object~exists. METHOD zif_abapgit_object~exists.
DATA: lv_object_key TYPE seu_objkey.
lv_object_key = ms_item-obj_name.
rv_bool = abap_true. rv_bool = abap_true.
TRY. TRY.
get_persistence( )->get( p_object_key = lv_object_key mi_persistence->get( p_object_key = mv_object_key
p_version = swbm_version_active p_version = swbm_version_active
p_existence_check_only = abap_true ). p_existence_check_only = abap_true ).
@ -345,60 +242,50 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
METHOD zif_abapgit_object~serialize. METHOD zif_abapgit_object~serialize.
DATA: lv_object_key TYPE seu_objkey, DATA: lr_data TYPE REF TO data,
li_data_model TYPE REF TO if_wb_object_data_model, lx_error TYPE REF TO cx_swb_exception.
li_persistence TYPE REF TO if_wb_object_persist,
lr_data TYPE REF TO data,
lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_field> TYPE data. <lg_field> TYPE data.
lv_object_key = ms_item-obj_name.
TRY.
CREATE DATA lr_data CREATE DATA lr_data
TYPE ('CL_DDLX_WB_OBJECT_DATA=>TY_OBJECT_DATA'). TYPE ('CL_DDLX_WB_OBJECT_DATA=>TY_OBJECT_DATA').
ASSIGN lr_data->* TO <lg_data>. ASSIGN lr_data->* TO <lg_data>.
CREATE OBJECT li_data_model TRY.
TYPE ('CL_DDLX_WB_OBJECT_DATA').
li_persistence = get_persistence( ).
IF zcl_abapgit_factory=>get_environment( )->compare_with_inactive( ) = abap_true. IF zcl_abapgit_factory=>get_environment( )->compare_with_inactive( ) = abap_true.
"Retrieve inactive version "Retrieve inactive version
li_persistence->get( mi_persistence->get(
EXPORTING EXPORTING
p_object_key = lv_object_key p_object_key = mv_object_key
p_version = swbm_version_inactive p_version = swbm_version_inactive
CHANGING CHANGING
p_object_data = li_data_model ). p_object_data = mi_data_model ).
IF li_data_model->get_object_name( ) IS INITIAL. IF mi_data_model->get_object_name( ) IS INITIAL.
"Fallback: retrieve active version "Fallback: retrieve active version
li_persistence->get( mi_persistence->get(
EXPORTING EXPORTING
p_object_key = lv_object_key p_object_key = mv_object_key
p_version = swbm_version_active p_version = swbm_version_active
CHANGING CHANGING
p_object_data = li_data_model ). p_object_data = mi_data_model ).
ENDIF. ENDIF.
ELSE. ELSE.
"Retrieve active version "Retrieve active version
li_persistence->get( mi_persistence->get(
EXPORTING EXPORTING
p_object_key = lv_object_key p_object_key = mv_object_key
p_version = swbm_version_active p_version = swbm_version_active
CHANGING CHANGING
p_object_data = li_data_model ). p_object_data = mi_data_model ).
ENDIF. ENDIF.
li_data_model->get_data( IMPORTING p_data = <lg_data> ). CATCH cx_swb_exception INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ASSIGN COMPONENT 'METADATA-ABAP_LANGU_VERSION' OF STRUCTURE <lg_data> TO <lg_field>. mi_data_model->get_data( IMPORTING p_data = <lg_data> ).
IF sy-subrc = 0.
clear_abap_language_version( CHANGING cv_abap_language_version = <lg_field> ).
ENDIF.
clear_fields( CHANGING cg_data = <lg_data> ). clear_fields( CHANGING cg_data = <lg_data> ).
@ -414,9 +301,40 @@ CLASS zcl_abapgit_object_ddlx IMPLEMENTATION.
io_xml->add( iv_name = 'DDLX' io_xml->add( iv_name = 'DDLX'
ig_data = <lg_data> ). ig_data = <lg_data> ).
CATCH cx_root INTO lx_error. ENDMETHOD.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
METHOD clear_fields.
DATA:
BEGIN OF ls_fields_to_clear,
BEGIN OF metadata,
changed_at TYPE d,
changed_by TYPE c,
created_at TYPE d,
created_by TYPE c,
responsible TYPE c,
BEGIN OF package_ref,
name TYPE c,
END OF package_ref,
BEGIN OF container_ref,
name TYPE c,
END OF container_ref,
version TYPE c,
master_system TYPE c,
END OF metadata,
END OF ls_fields_to_clear.
FIELD-SYMBOLS:
<lg_abap_language_version> TYPE any.
MOVE-CORRESPONDING ls_fields_to_clear TO cg_data.
ASSIGN COMPONENT 'METADATA-ABAP_LANGUAGE_VERSION' OF STRUCTURE cg_data TO <lg_abap_language_version>.
IF sy-subrc = 0.
clear_abap_language_version( CHANGING cv_abap_language_version = <lg_abap_language_version> ).
ENDIF.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.

10
src/objects/zcl_abapgit_object_samc.clas.abap
View File

@ -21,6 +21,8 @@ CLASS zcl_abapgit_object_samc DEFINITION
REDEFINITION . REDEFINITION .
METHODS get_persistence_class_name METHODS get_persistence_class_name
REDEFINITION . REDEFINITION .
METHODS get_lock_object
REDEFINITION .
PRIVATE SECTION. PRIVATE SECTION.
ENDCLASS. ENDCLASS.
@ -60,4 +62,12 @@ CLASS zcl_abapgit_object_samc IMPLEMENTATION.
rv_persistence_class_name = 'CL_AMC_APPLICATION_OBJ_PERS'. rv_persistence_class_name = 'CL_AMC_APPLICATION_OBJ_PERS'.
ENDMETHOD. ENDMETHOD.
METHOD get_lock_object.
rv_lock_object = 'E_AMC_APPL'.
ENDMETHOD.
ENDCLASS. ENDCLASS.

10
src/objects/zcl_abapgit_object_sapc.clas.abap
View File

@ -21,6 +21,8 @@ CLASS zcl_abapgit_object_sapc DEFINITION
REDEFINITION . REDEFINITION .
METHODS get_persistence_class_name METHODS get_persistence_class_name
REDEFINITION . REDEFINITION .
METHODS get_lock_object
REDEFINITION .
PRIVATE SECTION. PRIVATE SECTION.
ENDCLASS. ENDCLASS.
@ -60,4 +62,12 @@ CLASS zcl_abapgit_object_sapc IMPLEMENTATION.
rv_persistence_class_name = 'CL_APC_APPLICATION_OBJ_PERS'. rv_persistence_class_name = 'CL_APC_APPLICATION_OBJ_PERS'.
ENDMETHOD. ENDMETHOD.
METHOD get_lock_object.
rv_lock_object = 'E_APC_APPL'.
ENDMETHOD.
ENDCLASS. ENDCLASS.

95
src/objects/zcl_abapgit_object_saxx_super.clas.abap
View File

@ -8,21 +8,27 @@ CLASS zcl_abapgit_object_saxx_super DEFINITION
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES zif_abapgit_object . INTERFACES zif_abapgit_object .
METHODS constructor
IMPORTING
is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras
io_files TYPE REF TO zcl_abapgit_objects_files OPTIONAL
io_i18n_params TYPE REF TO zcl_abapgit_i18n_params OPTIONAL.
PROTECTED SECTION. PROTECTED SECTION.
METHODS get_persistence_class_name METHODS get_persistence_class_name ABSTRACT
ABSTRACT
RETURNING RETURNING
VALUE(rv_persistence_class_name) TYPE seoclsname . VALUE(rv_persistence_class_name) TYPE seoclsname .
METHODS get_data_class_name METHODS get_data_class_name ABSTRACT
ABSTRACT
RETURNING RETURNING
VALUE(rv_data_class_name) TYPE seoclsname . VALUE(rv_data_class_name) TYPE seoclsname .
METHODS get_data_structure_name METHODS get_data_structure_name ABSTRACT
ABSTRACT
RETURNING RETURNING
VALUE(rv_data_structure_name) TYPE string . VALUE(rv_data_structure_name) TYPE string .
METHODS get_lock_object ABSTRACT
RETURNING
VALUE(rv_lock_object) TYPE string.
METHODS create_channel_objects METHODS create_channel_objects
RAISING RAISING
zcx_abapgit_type_not_supported . zcx_abapgit_type_not_supported .
@ -34,6 +40,7 @@ CLASS zcl_abapgit_object_saxx_super DEFINITION
DATA mv_data_structure_name TYPE string . DATA mv_data_structure_name TYPE string .
DATA mv_appl_obj_cls_name TYPE seoclsname . DATA mv_appl_obj_cls_name TYPE seoclsname .
DATA mv_persistence_cls_name TYPE seoclsname . DATA mv_persistence_cls_name TYPE seoclsname .
DATA mv_object_key TYPE seu_objkey .
METHODS get_data METHODS get_data
EXPORTING EXPORTING
@ -47,26 +54,34 @@ CLASS zcl_abapgit_object_saxx_super DEFINITION
RAISING RAISING
zcx_abapgit_exception . zcx_abapgit_exception .
METHODS get_names . METHODS get_names .
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION. CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD constructor.
super->constructor(
is_item = is_item
iv_language = iv_language
io_files = io_files
io_i18n_params = io_i18n_params ).
mv_object_key = ms_item-obj_name.
ENDMETHOD.
METHOD create_channel_objects. METHOD create_channel_objects.
get_names( ). get_names( ).
TRY. TRY.
IF mi_appl_obj_data IS NOT BOUND.
CREATE OBJECT mi_appl_obj_data TYPE (mv_appl_obj_cls_name). CREATE OBJECT mi_appl_obj_data TYPE (mv_appl_obj_cls_name).
ENDIF.
IF mi_persistence IS NOT BOUND.
CREATE OBJECT mi_persistence TYPE (mv_persistence_cls_name). CREATE OBJECT mi_persistence TYPE (mv_persistence_cls_name).
ENDIF.
CATCH cx_root. CATCH cx_sy_create_object_error.
RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = ms_item-obj_type. RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = ms_item-obj_type.
ENDTRY. ENDTRY.
@ -75,20 +90,17 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD get_data. METHOD get_data.
DATA: lv_object_key TYPE seu_objkey, DATA: lx_error TYPE REF TO cx_swb_exception.
lx_error TYPE REF TO cx_root.
lv_object_key = ms_item-obj_name.
TRY. TRY.
mi_persistence->get( mi_persistence->get(
EXPORTING EXPORTING
p_object_key = lv_object_key p_object_key = mv_object_key
p_version = 'A' p_version = 'A'
CHANGING CHANGING
p_object_data = mi_appl_obj_data ). p_object_data = mi_appl_obj_data ).
CATCH cx_root INTO lx_error. CATCH cx_swb_exception INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ). zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY. ENDTRY.
@ -117,17 +129,15 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD lock. METHOD lock.
DATA: lv_objname TYPE trobj_name, DATA: lv_objname TYPE trobj_name,
lv_object_key TYPE seu_objkey,
lv_objtype TYPE trobjtype. lv_objtype TYPE trobjtype.
lv_objname = ms_item-obj_name. lv_objname = ms_item-obj_name.
lv_object_key = ms_item-obj_name.
lv_objtype = ms_item-obj_type. lv_objtype = ms_item-obj_type.
mi_persistence->lock( mi_persistence->lock(
EXPORTING EXPORTING
p_objname_tr = lv_objname p_objname_tr = lv_objname
p_object_key = lv_object_key p_object_key = mv_object_key
p_objtype_tr = lv_objtype p_objtype_tr = lv_objtype
EXCEPTIONS EXCEPTIONS
foreign_lock = 1 foreign_lock = 1
@ -144,15 +154,13 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD unlock. METHOD unlock.
DATA: lv_objname TYPE trobj_name, DATA: lv_objname TYPE trobj_name,
lv_object_key TYPE seu_objkey,
lv_objtype TYPE trobjtype. lv_objtype TYPE trobjtype.
lv_objname = ms_item-obj_name. lv_objname = ms_item-obj_name.
lv_object_key = ms_item-obj_name.
lv_objtype = ms_item-obj_type. lv_objtype = ms_item-obj_type.
mi_persistence->unlock( p_objname_tr = lv_objname mi_persistence->unlock( p_objname_tr = lv_objname
p_object_key = lv_object_key p_object_key = mv_object_key
p_objtype_tr = lv_objtype ). p_objtype_tr = lv_objtype ).
ENDMETHOD. ENDMETHOD.
@ -163,7 +171,6 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
DATA: lr_data TYPE REF TO data. DATA: lr_data TYPE REF TO data.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_header> TYPE any,
<lg_changed_by> TYPE any. <lg_changed_by> TYPE any.
CREATE DATA lr_data TYPE (mv_data_structure_name). CREATE DATA lr_data TYPE (mv_data_structure_name).
@ -171,9 +178,7 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
get_data( IMPORTING eg_data = <lg_data> ). get_data( IMPORTING eg_data = <lg_data> ).
ASSIGN COMPONENT 'HEADER' OF STRUCTURE <lg_data> TO <lg_header>. ASSIGN COMPONENT 'HEADER-CHANGED_BY' OF STRUCTURE <lg_data> TO <lg_changed_by>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'CHANGED_BY' OF STRUCTURE <lg_header> TO <lg_changed_by>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
IF <lg_changed_by> IS NOT INITIAL. IF <lg_changed_by> IS NOT INITIAL.
@ -187,15 +192,9 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA: lv_object_key TYPE seu_objkey.
lv_object_key = ms_item-obj_name.
TRY. TRY.
lock( ). lock( ).
mi_persistence->delete( mv_object_key ).
mi_persistence->delete( lv_object_key ).
unlock( ). unlock( ).
CATCH cx_swb_exception. CATCH cx_swb_exception.
@ -229,13 +228,9 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
TRY. TRY.
lock( ). lock( ).
corr_insert( iv_package ). corr_insert( iv_package ).
mi_appl_obj_data->set_data( <lg_data> ). mi_appl_obj_data->set_data( <lg_data> ).
mi_persistence->save( mi_appl_obj_data ). mi_persistence->save( mi_appl_obj_data ).
unlock( ). unlock( ).
CATCH cx_swb_exception. CATCH cx_swb_exception.
@ -247,16 +242,12 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD zif_abapgit_object~exists. METHOD zif_abapgit_object~exists.
DATA: lv_object_key TYPE seu_objkey.
lv_object_key = ms_item-obj_name.
TRY. TRY.
mi_persistence->get( p_object_key = lv_object_key mi_persistence->get( p_object_key = mv_object_key
p_version = 'A' p_version = 'A'
p_existence_check_only = abap_true ). p_existence_check_only = abap_true ).
CATCH cx_swb_object_does_not_exist cx_swb_exception. CATCH cx_swb_exception.
rv_bool = abap_false. rv_bool = abap_false.
RETURN. RETURN.
ENDTRY. ENDTRY.
@ -293,7 +284,18 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked. METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false. DATA: lv_argument TYPE seqg3-garg,
lv_lock_object TYPE string.
lv_lock_object = get_lock_object( ).
lv_argument = mv_object_key.
OVERLAY lv_argument WITH ' '.
lv_argument = lv_argument && '*'.
rv_is_locked = exists_a_lock_entry_for(
iv_lock_object = lv_lock_object
iv_argument = lv_argument ).
ENDMETHOD. ENDMETHOD.
@ -365,4 +367,5 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
ig_data = <lg_data> ). ig_data = <lg_data> ).
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.

3
src/objects/zcl_abapgit_object_stvi.clas.abap
View File

@ -197,6 +197,9 @@ CLASS zcl_abapgit_object_stvi IMPLEMENTATION.
zcx_abapgit_exception=>raise_t100( ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
SORT ls_transaction_variant-shdtvsvciu ASCENDING.
SORT ls_transaction_variant-shdfvguicu ASCENDING.
* Clear all user details * Clear all user details
CLEAR: ls_transaction_variant-shdtvciu-crdate, CLEAR: ls_transaction_variant-shdtvciu-crdate,
ls_transaction_variant-shdtvciu-cruser, ls_transaction_variant-shdtvciu-cruser,

2
src/test/zcl_abapgit_gui_page_template.clas.xml
View File

@ -5,7 +5,7 @@
<VSEOCLASS> <VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_GUI_PAGE_TEMPLATE</CLSNAME> <CLSNAME>ZCL_ABAPGIT_GUI_PAGE_TEMPLATE</CLSNAME>
<LANGU>E</LANGU> <LANGU>E</LANGU>
<DESCRIPT>abapGit GUI page template (for copy/paste)</DESCRIPT> <DESCRIPT>abapGit - GUI Page Template (for copy/paste)</DESCRIPT>
<STATE>1</STATE> <STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL> <CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT> <FIXPT>X</FIXPT>

2
src/zcx_abapgit_type_not_supported.clas.xml
View File

@ -5,7 +5,7 @@
<VSEOCLASS> <VSEOCLASS>
<CLSNAME>ZCX_ABAPGIT_TYPE_NOT_SUPPORTED</CLSNAME> <CLSNAME>ZCX_ABAPGIT_TYPE_NOT_SUPPORTED</CLSNAME>
<LANGU>E</LANGU> <LANGU>E</LANGU>
<DESCRIPT>Object type not supported</DESCRIPT> <DESCRIPT>abapGit - Object Type Not Supported</DESCRIPT>
<CATEGORY>40</CATEGORY> <CATEGORY>40</CATEGORY>
<STATE>1</STATE> <STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL> <CLSCCINCL>X</CLSCCINCL>