# HG changeset patch
# User Jean-François Piéronne <jf.pieronne@laposte.net>
# Date 1603796860 -3600
#      Tue Oct 27 12:07:40 2020 +0100
# Node ID a30b320626d1527a5a67967ce799e92666aa5b20
# Parent  d4674f83a42c4903bec5b0d9be587228e248c003
Remove duplicate get_logical

diff --git a/examples/rpc_server_cob.cob b/examples/rpc_server_cob.cob
--- a/examples/rpc_server_cob.cob
+++ b/examples/rpc_server_cob.cob
@@ -82,10 +82,6 @@
     GIVING STS.
     CALL "LIB$GET_LOGICAL"
     USING
-        BY DESCRIPTOR "RMQ_HOSTNAME", AMQP_HOSTNAME
-    GIVING STS.
-    CALL "LIB$GET_LOGICAL"
-    USING
         BY DESCRIPTOR "RMQ_PASSWORD", AMQP_PASSWORD
     GIVING STS.
     CALL "LIB$GET_LOGICAL"