From 7842ff7f7765be1ebf025cd3e3861760d544e973 Mon Sep 17 00:00:00 2001
From: Johan Fabry <johan@raincode.com>
Date: Mon, 15 Sep 2025 14:01:52 -0400
Subject: [PATCH] Fix the COBOL logon program to call UCTRAN41 and remove
 unneeded code.

---
 CICS/RCSIGNON.cob | 30 ++++++++----------------------
 1 file changed, 8 insertions(+), 22 deletions(-)

diff --git a/CICS/RCSIGNON.cob b/CICS/RCSIGNON.cob
index bf04ec8..17ca097 100644
--- a/CICS/RCSIGNON.cob
+++ b/CICS/RCSIGNON.cob
@@ -24,31 +24,22 @@
           05 LK-DATA    PIC X(1).
        PROCEDURE DIVISION.
 
-         DISPLAY '=== Hello!'.
-
          IF EIBCALEN = 0
            EXEC CICS 
                GETMAIN SET(ADDRESS OF DFHCOMMAREA)
                FLENGTH(LENGTH OF DFHCOMMAREA) 
            END-EXEC
-           DISPLAY '=== Sending Map'
+
            MOVE 0 TO LK-DATA
            PERFORM SEND-MAP
          END-IF.
 
          IF LK-DATA = 0
-           DISPLAY '=== Receiving Map'
            MOVE 1 TO LK-DATA
            PERFORM REC-MAP
          END-IF.
 
-         IF LK-DATA = 1
-           DISPLAY '=== New user logged on'
-           MOVE 2 TO LK-DATA
-           PERFORM SHOW-ID
-         END-IF.
-
-         DISPLAY "=== You should never get here! (" LK-DATA ")".
+         DISPLAY "=== You should never get here!".
          GOBACK.
 
        SEND-MAP.
@@ -86,8 +77,6 @@
       * Remove from possible mem dumps
            MOVE SPACES TO PASSWO
 
-           DISPLAY '=== Signon'
-
            EXEC CICS SIGNON
       *       USERID('LETMEIN0')
              USERID('        ')
@@ -124,8 +113,12 @@
                LENGTH(LENGTH OF DFHCOMMAREA)
              END-EXEC
            END-IF
-           
-           DISPLAY "=== Switching user"
+
+           EXEC CICS
+             SET TERMINAL(EIBTRMID)
+             UCTRANST('UCTRAN')
+           END-EXEC
+
            EXEC CICS
               SEND MAP('SUXESS') MAPSET('SIGNON')
               ERASE
@@ -134,15 +127,8 @@
            END-EXEC
            EXEC CICS
              RETURN TRANSID('DTS')
-      *       COMMAREA(DFHCOMMAREA)
-      *       LENGTH(LENGTH OF DFHCOMMAREA)
            END-EXEC.
 
-       SHOW-ID.
-           EXEC CICS ASSIGN USERID(WS-USERID) END-EXEC
-           DISPLAY '=== CICS USERID:' WS-USERID
-           EXEC CICS LINK PROGRAM('DTSCDRV') END-EXEC
-           GOBACK.