Fix the COBOL logon program to call UCTRAN41 and remove unneeded code.

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('        ')
@@ -125,7 +114,11 @@
              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.