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
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