From 27dde5abfad0aab0e3cdc6b63e978a502cd1a424 Mon Sep 17 00:00:00 2001
From: Johan Fabry <johan@raincode.com>
Date: Fri, 12 Sep 2025 16:11:02 -0400
Subject: [PATCH] Fix #2 for UCTRAN41 to perform actual work

---
 CICS/UCTRAN41.cob | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

diff --git a/CICS/UCTRAN41.cob b/CICS/UCTRAN41.cob
index 744854b..4bf054b 100644
--- a/CICS/UCTRAN41.cob
+++ b/CICS/UCTRAN41.cob
@@ -5,22 +5,15 @@
        DATA DIVISION.
        WORKING-STORAGE SECTION.
 
-       01  CAPARM           PIC X(1).
        01  UCTRANST         PIC X(8).
-       01  EIBTRMID         PIC X(4).
-       01  EIBTRNID         PIC X(4).
-       01  EIBCALEN         PIC S9(4) COMP.
 
        LINKAGE SECTION.
        01  DFHCOMMAREA.
-           05  FILLER       PIC X(1).
+           05  CAPARM       PIC X(1).
 
        PROCEDURE DIVISION.
 
-           EXEC CICS RETURN END-EXEC.
-
-           MOVE EIBTRMID TO EIBTRMID
-           MOVE EIBTRNID TO EIBTRNID
+      *     EXEC CICS RETURN END-EXEC.
 
            IF EIBTRMID = SPACES
                EXEC CICS ABEND ABCODE('UCTR') END-EXEC
@@ -29,20 +22,20 @@
            IF EIBCALEN = 0
                PERFORM FLIP-UCTRAN
            ELSE
-               EXEC CICS RETRIEVE INTO(CAPARM) LENGTH(1) END-EXEC
                IF CAPARM = 'U'
                    MOVE 'UCTRAN' TO UCTRANST
-               ELSE IF CAPARM = 'L'
-                   MOVE 'NOUCTRAN' TO UCTRANST
                ELSE
-                   EXEC CICS ABEND ABCODE('UCTR') END-EXEC
+                   IF CAPARM = 'L'
+                       MOVE 'NOUCTRAN' TO UCTRANST
+                   ELSE
+                       EXEC CICS ABEND ABCODE('UCTR') END-EXEC
+                   END-IF
                END-IF
                PERFORM APPLY-SETTING
            END-IF
             
- 
             EXEC CICS RETURN END-EXEC.
-           GOBACK.
+
        FLIP-UCTRAN.
            EXEC CICS INQUIRE TERMINAL(EIBTRMID) UCTRANST(UCTRANST)
                 END-EXEC