Skip to content
Permalink
Browse files
Fixes #3
  • Loading branch information
Mustafa Kerim Yılmaz committed Mar 6, 2019
1 parent c9a1e5f commit 1d09eb8eb3f591d6573f66002ba0769c2e164d72
Showing with 70 additions and 33 deletions.
  1. +13 −1 build/SAPlink_Daily.nugg
  2. +44 −31 build/zsaplink_installer.txt
  3. +13 −1 core/ZSAPLINK/CLAS/ZSAPLINK_PROGRAM.slnk
@@ -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
@@ -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
@@ -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

0 comments on commit 1d09eb8

Please sign in to comment.