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