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

Neeraj Changes

Browse Source
This commit is contained in:
faizana
2025-09-16 08:52:41 -04:00
parent c69d1eaef6
commit 8a1f878add
19 changed files with 56 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
CICS/DTSCS14.cob
View File

@ -1124,11 +1124,14 @@
01123 SKIP1 DTSCS14
01124 IF CURSOR-SET-GOTO DTSCS14
01125 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS14
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A
01126 ELSE DTSCS14
01127 IF CURSOR-SET-LINE-NUMBER DTSCS14
01128 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS14
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-LINE-NUMBER-A
01129 ELSE DTSCS14
01130 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS14
01130 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS14
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A.
01131 SKIP1 DTSCS14
01132 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS14
01133 SKIP1 DTSCS14

5
CICS/DTSCS72.cob
View File

@ -1121,11 +1121,14 @@
01120 SKIP1 DTSCS72
01121 IF CURSOR-SET-GOTO DTSCS72
01122 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS72
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A
01123 ELSE DTSCS72
01124 IF CURSOR-SET-LINE-NUMBER DTSCS72
01125 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS72
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-LINE-NUMBER-A
01126 ELSE DTSCS72
01127 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS72
01127 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS72
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A.
01128 SKIP1 DTSCS72
01129 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS72
01130 SKIP1 DTSCS72