From 86d034de9caefc15fb66f4b268aaa5309b18ae67 Mon Sep 17 00:00:00 2001 From: faizana Date: Tue, 16 Sep 2025 11:02:07 -0400 Subject: [PATCH] merge code from dutas git into dutas dev update. --- Batch/DTSBS413.cob | 2 +- CICS/DTSCS22.cob | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) 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