giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

merge code from dutas git into dutas dev update.

Browse Source
This commit is contained in:
faizana
2025-09-16 11:02:07 -04:00
parent 00bf12a4f5
commit 86d034de9c
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Batch/DTSBS413.cob
View File

@ -1,5 +1,5 @@
00001 IDENTIFICATION DIVISION. 07/04/24 00001 IDENTIFICATION DIVISION. 07/04/24
00002 PROGRAM-ID. DTSBX413. DTSBS413 00002 PROGRAM-ID. DTSBS413. DTSBS413
00003 AUTHOR. SC. LV139 00003 AUTHOR. SC. LV139
00004 DATE-WRITTEN. JUNE 2024. CL129 00004 DATE-WRITTEN. JUNE 2024. CL129
00005 DATE-COMPILED. DTSBS413 00005 DATE-COMPILED. DTSBS413

5
CICS/DTSCS22.cob
View File

@ -1514,11 +1514,14 @@
01513 DTSCS22 01513 DTSCS22
01514 IF CURSOR-SET-GOTO DTSCS22 01514 IF CURSOR-SET-GOTO DTSCS22
01515 MOVE CATB-CURSOR TO MAP-GOTO-L 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 01516 ELSE DTSCS22
01517 IF LCCM-SCR-INQUIRE DTSCS22 01517 IF LCCM-SCR-INQUIRE DTSCS22
01518 MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L 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 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 01521 DTSCS22
01522 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS22 01522 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS22
01523 DTSCS22 01523 DTSCS22