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

All Z' modified PROD server code merge 09/10/2025

Browse Source
This commit is contained in:
Manoj Patel
2025-10-10 08:02:01 -04:00
parent 7408a12cc6
commit d3af779d95
145 changed files with 6247 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Batch/DTSBX418.cob
View File

@ -1,6 +1,6 @@
00001 IDENTIFICATION DIVISION. 08/27/25
00001 IDENTIFICATION DIVISION. 04/03/15
00002 PROGRAM-ID. DTSBX418. DTSBX418
00003 AUTHOR. NGC. LV052
00003 AUTHOR. NGC. LV051
00004 DATE-WRITTEN. APRIL 2005. DTSBX418
00005 DATE-COMPILED. DTSBX418
00006 SKIP3 DTSBX418
@ -142,7 +142,7 @@
00142 05 SORT-DATA PIC X(512). DTSBX418
00143 DTSBX418
00144 WORKING-STORAGE SECTION. DTSBX418
001445 77 PAN-VALET PICTURE X(24) VALUE '052DTSBX418 08/27/25'. DTSBX418
001445 77 PAN-VALET PICTURE X(24) VALUE '051DTSBX418 04/03/15'. DTSBX418
00145 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX418 10/07/14'. CL*49
00146 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX418 10/07/14'. CL*49
00147 SKIP3 DTSBX418
@ -566,8 +566,8 @@
00565 MOVE W-CURR-RUN-DATE TO LX42-CURR-RUN-DATE. DTSBX418
00566 MOVE L005-DATE TO LX42-SYS-DATE. DTSBX418
00567 MOVE L005-TIME TO LX42-SYS-TIME. DTSBX418
00568 * MOVE ZERO TO LX42-BATCH-NO CL*52
00569 MOVE ZERO TO LX42-PSEUDO-BATCH-NO CL*52
00568 * MOVE ZERO TO LX42-BATCH-NO DTSBX418
00568 MOVE ZERO TO LX42-PSEUDO-BATCH-NO DTSBX418
00570 LX42-LAST-DETERM-EMP DTSBX418
00571 LX42-RPT-CNT DTSBX418
00572 LX42-RPT-REMIT-AMT DTSBX418