New programms added, GOback check added by Arturo in program USTRAN41.cob, DTSCU351.cob is not compiled yet, its copy book are missing.

2025-08-23 14:15:17 -04:00
parent cbd5346313
commit deaa6ecb6a
8 changed files with 10309 additions and 9493 deletions
--- a/CICS/UCTRAN41.cob
+++ b/CICS/UCTRAN41.cob
@ -37,9 +37,10 @@
               END-IF
               PERFORM APPLY-SETTING
           END-IF
-
-           EXEC CICS RETURN END-EXEC.
-
+            
+ 
+            EXEC CICS RETURN END-EXEC.
+           GOBACK.
       FLIP-UCTRAN.
           EXEC CICS INQUIRE TERMINAL(EIBTRMID) UCTRANST(UCTRANST)
                END-EXEC