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

refactor DDLS + DDLX + DCLS

Browse Source
This commit is contained in:
Guenter Christian 2025-04-24 10:56:36 +00:00 committed by Christian Guenter
parent 3f673ebe8c
commit ae3369cf4d
3 changed files with 313 additions and 446 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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.

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

@ -13,19 +13,14 @@ CLASS zcl_abapgit_object_ddlx DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
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.