Skip to content
Permalink
Browse files

Fixes #3

  • Loading branch information...
Mustafa Kerim Yılmaz
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.
You can’t perform that action at this time.
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session.