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

Merge branch 'innova-dev-update' of https://gitea.doesworks.net/giteaadmin/DUTAS into innova-dev-update

Browse Source
This commit is contained in:
faizana
2025-09-16 08:43:01 -04:00
parent 7842ff7f77 ece2ee4599
commit c69d1eaef6
269 changed files with 92285 additions and 12929 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

9
CICS/DTSCS66.cob
View File

@ -517,6 +517,15 @@
00516 GO TO P1000-EXIT. DTSCS66
00517 DTSCS66
00518 *----------------------------------------------------- DTSCS66
RCODE * TO FIX THE RAINCODE BEAHVIOR: MAP-LINE-NUMBER IS DTSCS66
RCODE * TREATED AS A SIMPLE STRING FIELD DTSCS66
RCODE *----------------------------------------------------- DTSCS66
RCODE IF (MAP-LINE-NUMBER = LOW-VALUES OR SPACES) DTSCS66
RCODE NEXT SENTENCE DTSCS66
RCODE ELSE DTSCS66
RCODE COMPUTE MAP-LINE-NUMBER-N = DTSCS66
RCODE FUNCTION NUMVAL(MAP-LINE-NUMBER). DTSCS66
RCODE *----------------------------------------------------- DTSCS66
00519 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS66
00520 * REQUESTED SCREEN TYPE DTSCS66
00521 *----------------------------------------------------- DTSCS66

9
CICS/DTSCS67.cob
View File

@ -534,6 +534,15 @@
00533 SET REQ-JUMP TO TRUE DTSCS67
00534 GO TO P1000-EXIT. DTSCS67
00535 DTSCS67
RCODE *----------------------------------------------------- DTSCS67
RCODE * TO FIX THE RAINCODE BEAHVIOR: MAP-LINE-NUMBER IS DTSCS67
RCODE * TREATED AS A SIMPLE STRING FIELD DTSCS67
RCODE *----------------------------------------------------- DTSCS67
RCODE IF (MAP-LINE-NUMBER = LOW-VALUES OR SPACES) DTSCS67
RCODE NEXT SENTENCE DTSCS67
RCODE ELSE DTSCS67
RCODE COMPUTE MAP-LINE-NUMBER-N = DTSCS67
RCODE FUNCTION NUMVAL(MAP-LINE-NUMBER). DTSCS67
00536 *----------------------------------------------------- DTSCS67
00537 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS67
00538 * REQUESTED SCREEN TYPE DTSCS67

1214
CICS/DTSCU072.cob
View File

File diff suppressed because it is too large Load Diff