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

Neeraj fixex,

Browse Source
This commit is contained in:
faizana
2025-09-10 02:39:03 -04:00
parent 558b3dcb41
commit f4842b4a6f
2 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
CICS/DTSCS66.cob
View File

@ -517,6 +517,15 @@
00516 GO TO P1000-EXIT. DTSCS66 00516 GO TO P1000-EXIT. DTSCS66
00517 DTSCS66 00517 DTSCS66
00518 *----------------------------------------------------- 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 00519 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS66
00520 * REQUESTED SCREEN TYPE DTSCS66 00520 * REQUESTED SCREEN TYPE DTSCS66
00521 *----------------------------------------------------- DTSCS66 00521 *----------------------------------------------------- DTSCS66

9
CICS/DTSCS67.cob
View File

@ -534,6 +534,15 @@
00533 SET REQ-JUMP TO TRUE DTSCS67 00533 SET REQ-JUMP TO TRUE DTSCS67
00534 GO TO P1000-EXIT. DTSCS67 00534 GO TO P1000-EXIT. DTSCS67
00535 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 00536 *----------------------------------------------------- DTSCS67
00537 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS67 00537 * IF DIFFERENT SCREEN TYPE IS REQUESTED, JUMP TO DTSCS67
00538 * REQUESTED SCREEN TYPE DTSCS67 00538 * REQUESTED SCREEN TYPE DTSCS67