diff --git a/Batch/DTSBS413.cob b/Batch/DTSBS413.cob
index 83fc6ef..c742f83 100644
--- a/Batch/DTSBS413.cob
+++ b/Batch/DTSBS413.cob
@@ -1,5 +1,5 @@
 00001  IDENTIFICATION DIVISION.                                         07/04/24
-00002  PROGRAM-ID.             DTSBX413.                                DTSBS413
+00002  PROGRAM-ID.             DTSBS413.                                DTSBS413
 00003  AUTHOR.                 SC.                                         LV139
 00004  DATE-WRITTEN.           JUNE 2024.                                  CL129
 00005  DATE-COMPILED.                                                   DTSBS413
diff --git a/CICS/DTSCS22.cob b/CICS/DTSCS22.cob
index 0202da8..0c68116 100644
--- a/CICS/DTSCS22.cob
+++ b/CICS/DTSCS22.cob
@@ -1514,11 +1514,14 @@
 01513                                                                   DTSCS22
 01514      IF CURSOR-SET-GOTO                                           DTSCS22
 01515          MOVE CATB-CURSOR TO MAP-GOTO-L                           DTSCS22
+RCODE          MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A             DTSCS22
 01516      ELSE                                                         DTSCS22
 01517      IF LCCM-SCR-INQUIRE                                          DTSCS22
 01518          MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L                 DTSCS22
+RCODE          MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-SELECT-LINE-NO-A   DTSCS22
 01519      ELSE                                                         DTSCS22
-01520          MOVE CATB-CURSOR TO MAP-BATCH-NO-L.                      DTSCS22
+01520          MOVE CATB-CURSOR TO MAP-BATCH-NO-L                       DTSCS22
+RCODE          MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-BATCH-NO-A.        DTSCS22
 01521                                                                   DTSCS22
 01522      SET L851-SEND-DATAONLY-88 TO TRUE.                           DTSCS22
 01523                                                                   DTSCS22