add trm-rest version if installed

RegestaItalia · Dec 2, 2024 · 7fc354a · 7fc354a
1 parent 8554773
commit 7fc354a
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 2 deletions.
diff --git a/src/zif_trm.intf.abap b/src/zif_trm.intf.abap
@@ -1,6 +1,6 @@
 INTERFACE zif_trm
   PUBLIC .
 
-  CONSTANTS version TYPE string VALUE '2.0.0' ##NO_TEXT.
+  CONSTANTS version TYPE string VALUE '2.0.1' ##NO_TEXT.
 
 ENDINTERFACE.
diff --git a/src/ztrm.fugr.xml b/src/ztrm.fugr.xml
@@ -1645,12 +1645,20 @@
        <PARAMETER>EV_VERSION</PARAMETER>
        <TYP>STRING</TYP>
       </RSEXP>
+      <RSEXP>
+       <PARAMETER>EV_REST</PARAMETER>
+       <TYP>STRING</TYP>
+      </RSEXP>
      </EXPORT>
      <DOCUMENTATION>
       <RSFDO>
        <PARAMETER>EV_VERSION</PARAMETER>
        <KIND>P</KIND>
       </RSFDO>
+      <RSFDO>
+       <PARAMETER>EV_REST</PARAMETER>
+       <KIND>P</KIND>
+      </RSFDO>
      </DOCUMENTATION>
     </item>
     <item>

diff --git a/src/ztrm.fugr.ztrm_version.abap b/src/ztrm.fugr.ztrm_version.abap
@@ -1,14 +1,21 @@
-FUNCTION ZTRM_VERSION.
+FUNCTION ztrm_version.
 *"----------------------------------------------------------------------
 *"*"Local Interface:
 *"  EXPORTING
 *"     VALUE(EV_VERSION) TYPE  STRING
+*"     VALUE(EV_REST) TYPE  STRING
 *"----------------------------------------------------------------------
   "Avoid raising TRM_RFC_UNAUTHORIZED
   "otherwise clients may not be able to find out if this system has
   "trm-server installed or not
 
   ev_version = zif_trm=>version.
 
+  "read other versions
+  FIELD-SYMBOLS <fs_rest> TYPE string.
+  ASSIGN ('ZIF_TRM_REST')=>('VERSION') TO <fs_rest>.
+  IF <fs_rest> IS ASSIGNED.
+    ev_rest = <fs_rest>.
+  ENDIF.
 
 ENDFUNCTION.