Press n or j to go to the next uncovered block, b, p or k for the previous block.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x | CLASS zcl_abapgit_object_zag1 DEFINITION PUBLIC INHERITING FROM zcl_abapgit_objects_super FINAL.
PUBLIC SECTION.
INTERFACES zif_abapgit_object.
CLASS-METHODS upsert
IMPORTING
iv_name TYPE zag1-name
iv_value TYPE zag1-value
iv_package TYPE tadir-devclass.
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_type TYPE tadir-object VALUE 'ZAG1'.
ENDCLASS.
CLASS zcl_abapgit_object_zag1 IMPLEMENTATION.
METHOD upsert.
DATA ls_data TYPE zag1.
DATA ls_tadir TYPE tadir.
ASSERT sy-sysid = 'ABC'.
ls_data-name = iv_name.
ls_data-value = iv_value.
MODIFY zag1 FROM ls_data.
ASSERT sy-subrc = 0.
ls_tadir-pgmid = 'R3TR'.
ls_tadir-object = c_type.
ls_tadir-obj_name = condense( to_upper( iv_name ) ).
ls_tadir-devclass = iv_package.
MODIFY tadir FROM ls_tadir.
ASSERT sy-subrc = 0.
ENDMETHOD.
METHOD zif_abapgit_object~serialize.
DATA ls_data TYPE zag1.
SELECT SINGLE * FROM zag1 INTO ls_data WHERE name = ms_item-obj_name.
ASSERT sy-subrc = 0.
io_xml->add( iv_name = 'DATA'
ig_data = ls_data ).
ENDMETHOD.
METHOD zif_abapgit_object~deserialize.
DATA ls_data TYPE zag1.
io_xml->read( EXPORTING iv_name = 'DATA'
CHANGING cg_data = ls_data ).
upsert(
iv_name = ls_data-name
iv_value = ls_data-value
iv_package = iv_package ).
ENDMETHOD.
METHOD zif_abapgit_object~delete.
DELETE FROM zag1 WHERE name = ms_item-obj_name.
DELETE FROM tadir WHERE pgmid = 'R3TR' AND object = c_type AND name = ms_item-obj_name.
ENDMETHOD.
METHOD zif_abapgit_object~exists.
DATA lv_name TYPE zag1-name.
SELECT SINGLE name FROM zag1 INTO lv_name WHERE name = ms_item-obj_name.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by.
rv_user = sy-uname.
ENDMETHOD.
METHOD zif_abapgit_object~jump.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_metadata.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_comparator.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_deserialize_steps.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_deserialize_order.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~map_filename_to_object.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~map_object_to_filename.
RETURN.
ENDMETHOD.
ENDCLASS.
|