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

Screen18, screen 13, and screen L1 are fixed.

Browse Source
This commit is contained in:
faizana
2025-09-13 06:24:12 -04:00
parent f4842b4a6f
commit c59b4762c2
6 changed files with 887 additions and 938 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
CICS/DTSCS18.cob
View File

@ -1305,11 +1305,14 @@
01304 SKIP1 DTSCS18
01305 IF CURSOR-SET-GOTO DTSCS18
01306 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS18
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A
01307 ELSE DTSCS18
01308 IF CURSOR-SET-LINE-NUMBER DTSCS18
01309 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS18
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-LINE-NUMBER-A
01310 ELSE DTSCS18
01311 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS18
01311 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS18
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A.
01312 SKIP1 DTSCS18
01313 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS18
01314 SKIP1 DTSCS18