From 858d631afe294ee8a96426897756ad673eee6570 Mon Sep 17 00:00:00 2001 From: faizana Date: Wed, 17 Sep 2025 04:51:52 -0400 Subject: [PATCH] Neeraj Code. --- CICS/DTSCS8B.cob | 2 ++ 1 file changed, 2 insertions(+) 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