From 7fc354a181ac61168e0e9235bb617fedf9322245 Mon Sep 17 00:00:00 2001
From: Simone Gaffurini <simone.gaffurini@regestaitalia.it>
Date: Mon, 2 Dec 2024 15:05:00 +0000
Subject: [PATCH] add trm-rest version if installed

---
 src/zif_trm.intf.abap           | 2 +-
 src/ztrm.fugr.xml               | 8 ++++++++
 src/ztrm.fugr.ztrm_version.abap | 9 ++++++++-
 3 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/src/zif_trm.intf.abap b/src/zif_trm.intf.abap
index 62e4ca2..9f06c66 100644
--- 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
index 83e9541..acc9163 100644
--- 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
index 6b35fbf..a92538c 100644
--- a/src/ztrm.fugr.ztrm_version.abap
+++ b/src/ztrm.fugr.ztrm_version.abap
@@ -1,8 +1,9 @@
-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
@@ -10,5 +11,11 @@ FUNCTION ZTRM_VERSION.
 
   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.