Add exposure to workflow class attributes (#5603)

* Add exposure to workflow class attributes

* Add constant seoc_state_implemented to abaplint

* Also add seoc_state_implemented to ci/abaplint

Co-authored-by: Marc Bernard <59966492+mbtools@users.noreply.github.com>
Co-authored-by: Lars Hvam <larshp@hotmail.com>

abaplint.json

@@ -28,6 +28,7 @@
       "seoc_exposure_private",
       "seoc_exposure_protected",
       "seoc_exposure_public",
+      "seoc_state_implemented",
       "seoc_version_active",
       "seoc_version_inactive",
       "seok_access_free",

ci/abaplint.json

@@ -41,6 +41,7 @@
       "seoc_exposure_private",
       "seoc_exposure_protected",
       "seoc_exposure_public",
+      "seoc_state_implemented",
       "seoc_version_active",
       "seoc_version_inactive",
       "seok_access_free",

src/objects/oo/zcl_abapgit_oo_base.clas.abap

@@ -32,6 +32,8 @@ CLASS ZCL_ABAPGIT_OO_BASE IMPLEMENTATION.
       INSERT INITIAL LINE INTO TABLE rt_vseoattrib ASSIGNING <ls_vseoattrib>.
       MOVE-CORRESPONDING <ls_attribute> TO <ls_vseoattrib>.
       <ls_vseoattrib>-clsname = iv_clsname.
+      <ls_vseoattrib>-state = seoc_state_implemented.
+      <ls_vseoattrib>-exposure = <ls_attribute>-exposure.
       UNASSIGN <ls_vseoattrib>.
     ENDLOOP.
     UNASSIGN <ls_attribute>.
@@ -134,7 +136,7 @@ CLASS ZCL_ABAPGIT_OO_BASE IMPLEMENTATION.
 
 
   METHOD zif_abapgit_oo_object_fnc~read_attributes.
-    SELECT cmpname attbusobj attkeyfld
+    SELECT cmpname attbusobj attkeyfld exposure
       FROM seocompodf
       INTO CORRESPONDING FIELDS OF TABLE rt_attributes
       WHERE clsname = iv_object_name

src/zif_abapgit_definitions.intf.abap

@@ -234,6 +234,7 @@ INTERFACE zif_abapgit_definitions
       cmpname   TYPE seocmpname,
       attkeyfld TYPE seokeyfld,
       attbusobj TYPE seobusobj,
+      exposure  TYPE seoexpose,
     END OF ty_obj_attribute .
   TYPES:
     ty_obj_attribute_tt TYPE STANDARD TABLE OF ty_obj_attribute WITH DEFAULT KEY