Fixes #3

sapmentors · Mar 6, 2019 · 1d09eb8 · 1d09eb8
1 parent c9a1e5f
commit 1d09eb8
Show file tree

Hide file tree

Showing 3 changed files with 70 additions and 33 deletions.
diff --git a/build/SAPlink_Daily.nugg b/build/SAPlink_Daily.nugg
@@ -2853,6 +2853,10 @@ endmethod.</source>
   data filter     type ref to if_ixml_node_filter.
   data iterator   type ref to if_ixml_node_iterator.
 
+  data: ls_iact type rsmpe_act,
+        ls_ipfk type rsmpe_pfk,
+        ls_imen type rsmpe_men.
+
   _objname = objname.
 
   stat_node =  pfstat_node.
@@ -3031,7 +3035,15 @@ endmethod.</source>
   xtrkey-sub_type = &apos;CUAD&apos;.
   xtrkey-sub_name = _program.
 
-  xadm-actcode = &apos;X&apos;. &quot; Issues #276
+  loop at iact into ls_iact.
+    xadm-actcode = ls_iact-code.
+  endloop.
+  loop at ipfk into ls_ipfk.
+    xadm-pfkcode = ls_ipfk-code.
+  endloop.
+  loop at imen into ls_imen.
+    xadm-mencode = ls_imen-code.
+  endloop.
 
   call function &apos;RS_CUA_INTERNAL_WRITE&apos;
     exporting

diff --git a/build/zsaplink_installer.txt b/build/zsaplink_installer.txt
@@ -24,16 +24,16 @@ CLASS ZCX_SAPLINK DEFINITION
   .
 public section.
 
-  constants ERROR_MESSAGE type SOTR_CONC value '005056A7624D1ED6908BB83135080B54' .
-  constants EXISTING type SOTR_CONC value '005056A7624D1ED6908BB83135082B54' .
-  constants INCORRECT_FILE_FORMAT type SOTR_CONC value '005056A7624D1ED6908BB83135084B54' .
-  constants LOCKED type SOTR_CONC value '005056A7624D1ED6908BB83135086B54' .
-  data MSG type STRING value '44F7518323DB08BC02000000A7E42BB6' .
-  constants NOT_AUTHORIZED type SOTR_CONC value '005056A7624D1ED6908BB83135088B54' .
-  constants NOT_FOUND type SOTR_CONC value '005056A7624D1ED6908BB8313508AB54' .
-  constants NO_PLUGIN type SOTR_CONC value '005056A7624D1ED6908BB8313508CB54' .
-  constants SYSTEM_ERROR type SOTR_CONC value '005056A7624D1ED6908BB8313508EB54' .
-  constants ZCX_SAPLINK type SOTR_CONC value '005056A7624D1ED6908BB83135090B54' .
+  constants ERROR_MESSAGE type SOTR_CONC value '005056C000081ED696E10D9EF345B892'. "#EC NOTEXT
+  constants EXISTING type SOTR_CONC value '005056C000081ED696E10D9EF345D892'. "#EC NOTEXT
+  constants INCORRECT_FILE_FORMAT type SOTR_CONC value '005056C000081ED696E10D9EF345F892'. "#EC NOTEXT
+  constants LOCKED type SOTR_CONC value '005056C000081ED696E10D9EF3461892'. "#EC NOTEXT
+  data MSG type STRING value '44F7518323DB08BC02000000A7E42BB6'. "#EC NOTEXT
+  constants NOT_AUTHORIZED type SOTR_CONC value '005056C000081ED696E10D9EF3463892'. "#EC NOTEXT
+  constants NOT_FOUND type SOTR_CONC value '005056C000081ED696E10D9EF3465892'. "#EC NOTEXT
+  constants NO_PLUGIN type SOTR_CONC value '005056C000081ED696E10D9EF3467892'. "#EC NOTEXT
+  constants SYSTEM_ERROR type SOTR_CONC value '005056C000081ED696E10D9EF3469892'. "#EC NOTEXT
+  constants ZCX_SAPLINK type SOTR_CONC value '005056C000081ED696E10D9EF346B892'. "#EC NOTEXT
   data OBJECT type STRING .
 
   methods CONSTRUCTOR
@@ -70,7 +70,7 @@ public section.
              zsaplink_plugin_info5  TYPE string,  " Plugin info - part 5
            END OF gts_version_info .
 
-  data NUGGET_LEVEL type INT4 read-only value 0 .
+  data NUGGET_LEVEL type INT4 read-only value 0. "#EC NOTEXT
 
   class-methods GETOBJECTINFOFROMIXMLDOC
     importing
@@ -226,17 +226,17 @@ public section.
   type-pools SEOT .
   type-pools SEOX .
 
-  constants C_XML_KEY_FRIENDS type STRING value 'friends' .
-  constants C_XML_KEY_INHERITANCE type STRING value 'inheritance' .
-  constants C_XML_KEY_SOTR type STRING value 'sotr' .
-  constants C_XML_KEY_SOTRTEXT type STRING value 'sotrText' .
+  constants C_XML_KEY_FRIENDS type STRING value 'friends'. "#EC NOTEXT
+  constants C_XML_KEY_INHERITANCE type STRING value 'inheritance'. "#EC NOTEXT
+  constants C_XML_KEY_SOTR type STRING value 'sotr'. "#EC NOTEXT
+  constants C_XML_KEY_SOTRTEXT type STRING value 'sotrText'. "#EC NOTEXT
 protected section.
 
-  constants C_XML_KEY_ALIAS_METHOD type STRING value 'aliasMethod' .
-  constants C_XML_KEY_CLSDEFERRD type STRING value 'typeClasDef' .
-  constants C_XML_KEY_FORWARDDECLARATION type STRING value 'forwardDeclaration' .
-  constants C_XML_KEY_INTDEFERRD type STRING value 'typeIntfDef' .
-  constants C_XML_KEY_TYPEPUSAGE type STRING value 'typeUsage' .
+  constants C_XML_KEY_ALIAS_METHOD type STRING value 'aliasMethod'. "#EC NOTEXT
+  constants C_XML_KEY_CLSDEFERRD type STRING value 'typeClasDef'. "#EC NOTEXT
+  constants C_XML_KEY_FORWARDDECLARATION type STRING value 'forwardDeclaration'. "#EC NOTEXT
+  constants C_XML_KEY_INTDEFERRD type STRING value 'typeIntfDef'. "#EC NOTEXT
+  constants C_XML_KEY_TYPEPUSAGE type STRING value 'typeUsage'. "#EC NOTEXT
 
   methods CREATE_ALIAS_METHOD
     changing
@@ -285,7 +285,8 @@ CLASS ZSAPLINK_CLASS DEFINITION
   .
 public section.
 
-  data MV_STEAMROLLER type ABAP_BOOL value ABAP_FALSE .
+  type-pools ABAP .
+  data MV_STEAMROLLER type ABAP_BOOL value ABAP_FALSE. "#EC NOTEXT
 
   methods CHECKEXISTS
     redefinition .
@@ -297,14 +298,14 @@ public section.
     redefinition .
 protected section.
 
-  constants C_XML_KEY_METHOD_DOCUMENTATION type STRING value 'methodDocumentation' .
-  constants C_XML_KEY_TEXTELEMENT type STRING value 'textElement' .
-  constants C_XML_KEY_TEXTPOOL type STRING value 'textPool' .
-  constants C_XML_KEY_CLASS_DOCUMENTATION type STRING value 'classDocumentation' .
-  constants C_XML_KEY_LANGUAGE type STRING value 'language' .
-  constants C_XML_KEY_OBJECT type STRING value 'OBJECT' .
-  constants C_XML_KEY_SPRAS type STRING value 'SPRAS' .
-  constants C_XML_KEY_TEXTLINE type STRING value 'textLine' .
+  constants C_XML_KEY_METHOD_DOCUMENTATION type STRING value 'methodDocumentation'. "#EC NOTEXT
+  constants C_XML_KEY_TEXTELEMENT type STRING value 'textElement'. "#EC NOTEXT
+  constants C_XML_KEY_TEXTPOOL type STRING value 'textPool'. "#EC NOTEXT
+  constants C_XML_KEY_CLASS_DOCUMENTATION type STRING value 'classDocumentation'. "#EC NOTEXT
+  constants C_XML_KEY_LANGUAGE type STRING value 'language'. "#EC NOTEXT
+  constants C_XML_KEY_OBJECT type STRING value 'OBJECT'. "#EC NOTEXT
+  constants C_XML_KEY_SPRAS type STRING value 'SPRAS'. "#EC NOTEXT
+  constants C_XML_KEY_TEXTLINE type STRING value 'textLine'. "#EC NOTEXT
 
   methods CREATE_DOCUMENTATION .
   methods CREATE_METHOD_DOCUMENTATION
@@ -419,7 +420,7 @@ CLASS ZCX_SAPLINK IMPLEMENTATION.
    ENDIF.
   me->MSG = MSG .
   me->OBJECT = OBJECT .
-    endmethod.
+  endmethod.
 ENDCLASS.
 CLASS ZSAPLINK IMPLEMENTATION.
   method BUILDSOURCESTRING.
@@ -4371,6 +4372,10 @@ CLASS ZSAPLINK_PROGRAM IMPLEMENTATION.
     data filter     type ref to if_ixml_node_filter.
     data iterator   type ref to if_ixml_node_iterator.
 
+    data: ls_iact type rsmpe_act,
+          ls_ipfk type rsmpe_pfk,
+          ls_imen type rsmpe_men.
+
     _objname = objname.
 
     stat_node =  pfstat_node.
@@ -4549,7 +4554,15 @@ CLASS ZSAPLINK_PROGRAM IMPLEMENTATION.
     xtrkey-sub_type = 'CUAD'.
     xtrkey-sub_name = _program.
 
-    xadm-actcode = 'X'. " Issues #276
+    loop at iact into ls_iact.
+      xadm-actcode = ls_iact-code.
+    endloop.
+    loop at ipfk into ls_ipfk.
+      xadm-pfkcode = ls_ipfk-code.
+    endloop.
+    loop at imen into ls_imen.
+      xadm-mencode = ls_imen-code.
+    endloop.
 
     call function 'RS_CUA_INTERNAL_WRITE'
       exporting

diff --git a/core/ZSAPLINK/CLAS/ZSAPLINK_PROGRAM.slnk b/core/ZSAPLINK/CLAS/ZSAPLINK_PROGRAM.slnk
@@ -645,6 +645,10 @@ endmethod.</source>
   data filter     type ref to if_ixml_node_filter.
   data iterator   type ref to if_ixml_node_iterator.
 
+  data: ls_iact type rsmpe_act,
+        ls_ipfk type rsmpe_pfk,
+        ls_imen type rsmpe_men.
+
   _objname = objname.
 
   stat_node =  pfstat_node.
@@ -823,7 +827,15 @@ endmethod.</source>
   xtrkey-sub_type = &apos;CUAD&apos;.
   xtrkey-sub_name = _program.
 
-  xadm-actcode = &apos;X&apos;. &quot; Issues #276
+  loop at iact into ls_iact.
+    xadm-actcode = ls_iact-code.
+  endloop.
+  loop at ipfk into ls_ipfk.
+    xadm-pfkcode = ls_ipfk-code.
+  endloop.
+  loop at imen into ls_imen.
+    xadm-mencode = ls_imen-code.
+  endloop.
 
   call function &apos;RS_CUA_INTERNAL_WRITE&apos;
     exporting