From bb8fcc809e7c273d514a356c69277a0aebfde8bc Mon Sep 17 00:00:00 2001
From: Johan Fabry <johan@raincode.com>
Date: Mon, 8 Sep 2025 09:34:53 -0400
Subject: [PATCH] Fix disabling UCTRAN41 so that it at least does not ABEND

---
 CICS/UCTRAN41.cob | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/CICS/UCTRAN41.cob b/CICS/UCTRAN41.cob
index 182b2e6..744854b 100644
--- a/CICS/UCTRAN41.cob
+++ b/CICS/UCTRAN41.cob
@@ -17,6 +17,8 @@
 
        PROCEDURE DIVISION.
 
+           EXEC CICS RETURN END-EXEC.
+
            MOVE EIBTRMID TO EIBTRMID
            MOVE EIBTRNID TO EIBTRNID