COBOL updates and fixes

Tom-Latham · Tom-Latham · commit deef25c6d9cb · 2023-11-15T15:53:50.000Z
diff --git a/base/src/lgacdb01.cbl b/base/src/lgacdb01.cbl
@@ -173,7 +173,7 @@
 
            EXEC CICS LINK Program(LGACVS01)
                 Commarea(DFHCOMMAREA)
-                LENGTH(233)
+                LENGTH(225)
            END-EXEC.
 
            MOVE DB2-CUSTOMERNUM-INT TO D2-CUSTOMER-NUM.
diff --git a/base/src/lgucdb01.cbl b/base/src/lgucdb01.cbl
@@ -135,7 +135,7 @@
 
            EXEC CICS LINK Program(LGUCVS01)
                 Commarea(DFHCOMMAREA)
-                LENGTH(233)
+                LENGTH(225)
            END-EXEC.
 
       * Return to caller
