diff --git a/CICS/DTSCS8B.cob b/CICS/DTSCS8B.cob
index 9edf549..10a6f8b 100644
--- a/CICS/DTSCS8B.cob
+++ b/CICS/DTSCS8B.cob
@@ -1001,8 +1001,10 @@
 01000      SKIP1                                                        DTSCS8B
 01001      IF CURSOR-SET-GOTO                                           DTSCS8B
 01002          MOVE CATB-CURSOR TO MAP-GOTO-L                           DTSCS8B
+RCODE          MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A             DTSCS8B
 01003      ELSE                                                         DTSCS8B
 01004          MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L                 DTSCS8B
+RCODE          MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-SELECT-LINE-NO-A.  DTSCS8B
 01005      SKIP1                                                        DTSCS8B
 01006      SET L851-SEND-DATAONLY-88 TO TRUE.                           DTSCS8B
 01007      SKIP1                                                        DTSCS8B