diff --git a/CICS/DTSCS66.cob b/CICS/DTSCS66.cob
index 792996b..d2808be 100644
--- a/CICS/DTSCS66.cob
+++ b/CICS/DTSCS66.cob
@@ -517,6 +517,15 @@
 00516         GO TO P1000-EXIT.                                         DTSCS66
 00517                                                                   DTSCS66
 00518 *-----------------------------------------------------            DTSCS66
+RCODE *    TO FIX THE RAINCODE BEAHVIOR: MAP-LINE-NUMBER IS             DTSCS66
+RCODE *    TREATED AS A SIMPLE STRING FIELD                             DTSCS66
+RCODE *-----------------------------------------------------            DTSCS66
+RCODE      IF (MAP-LINE-NUMBER = LOW-VALUES OR SPACES)                  DTSCS66
+RCODE         NEXT SENTENCE                                             DTSCS66
+RCODE      ELSE                                                         DTSCS66
+RCODE         COMPUTE MAP-LINE-NUMBER-N =                               DTSCS66
+RCODE	          FUNCTION NUMVAL(MAP-LINE-NUMBER).                     DTSCS66
+RCODE *-----------------------------------------------------            DTSCS66
 00519 *    IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO               DTSCS66
 00520 *    REQUESTED SCREEN TYPE                                        DTSCS66
 00521 *-----------------------------------------------------            DTSCS66
diff --git a/CICS/DTSCS67.cob b/CICS/DTSCS67.cob
index 2fa2e8b..00a56e2 100644
--- a/CICS/DTSCS67.cob
+++ b/CICS/DTSCS67.cob
@@ -534,6 +534,15 @@
 00533         SET REQ-JUMP TO TRUE                                      DTSCS67
 00534         GO TO P1000-EXIT.                                         DTSCS67
 00535                                                                   DTSCS67
+RCODE *-----------------------------------------------------            DTSCS67
+RCODE *    TO FIX THE RAINCODE BEAHVIOR: MAP-LINE-NUMBER IS             DTSCS67
+RCODE *    TREATED AS A SIMPLE STRING FIELD                             DTSCS67
+RCODE *-----------------------------------------------------            DTSCS67
+RCODE      IF (MAP-LINE-NUMBER = LOW-VALUES OR SPACES)                  DTSCS67
+RCODE         NEXT SENTENCE                                             DTSCS67
+RCODE      ELSE                                                         DTSCS67
+RCODE         COMPUTE MAP-LINE-NUMBER-N =                               DTSCS67
+RCODE	          FUNCTION NUMVAL(MAP-LINE-NUMBER).                     DTSCS67
 00536 *-----------------------------------------------------            DTSCS67
 00537 *    IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO               DTSCS67
 00538 *    REQUESTED SCREEN TYPE                                        DTSCS67