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

Neeraj Code.

Browse Source
This commit is contained in:
faizana
2025-09-17 04:51:52 -04:00
parent 2bdc775648
commit 858d631afe
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
CICS/DTSCS8B.cob
View File

@ -1001,8 +1001,10 @@
01000 SKIP1 DTSCS8B 01000 SKIP1 DTSCS8B
01001 IF CURSOR-SET-GOTO DTSCS8B 01001 IF CURSOR-SET-GOTO DTSCS8B
01002 MOVE CATB-CURSOR TO MAP-GOTO-L 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 01003 ELSE DTSCS8B
01004 MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L 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 01005 SKIP1 DTSCS8B
01006 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS8B 01006 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS8B
01007 SKIP1 DTSCS8B 01007 SKIP1 DTSCS8B