From 2bdc7756484756c39b67278c3c4b74f40515cff9 Mon Sep 17 00:00:00 2001
From: faizana <Faizan.Ameen@DOES-RAINVM-DEV>
Date: Wed, 17 Sep 2025 04:43:28 -0400
Subject: [PATCH] Johan's change, QR-56

---
 CICS/RCSIGNON.cob | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/CICS/RCSIGNON.cob b/CICS/RCSIGNON.cob
index 17ca097..e22487e 100644
--- a/CICS/RCSIGNON.cob
+++ b/CICS/RCSIGNON.cob
@@ -66,7 +66,7 @@
              RESP(WS-RESP)
              RESP2(WS-RESP2)
            END-EXEC
-           IF WS-RESP NOT = DFHRESP(NORMAL)
+          IF WS-RESP NOT = DFHRESP(NORMAL)
       *Should be replaced with better error-handling
              DISPLAY '=== RECEIVE FAILED'
              EXEC CICS RETURN END-EXEC
@@ -116,7 +116,7 @@
 
            EXEC CICS
              SET TERMINAL(EIBTRMID)
-             UCTRANST('UCTRAN')
+             UCTRANST(DFHVALUE(UCTRAN))
            END-EXEC
 
            EXEC CICS