Johan's change, QR-56

2025-09-17 04:43:28 -04:00
parent e2e5d14e27
commit 2bdc775648
1 changed files with 2 additions and 2 deletions
--- 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