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

As per Srujani's email ,on sep-15, these are the updated programs.

Browse Source
This commit is contained in:
faizana
2025-09-16 09:03:29 -04:00
parent 8a1f878add
commit 00bf12a4f5
8 changed files with 8863 additions and 5190 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. 04/03/15
00001 IDENTIFICATION DIVISION. 08/27/25
00002 PROGRAM-ID. DTSBX418. DTSBX418
00003 AUTHOR. NGC. LV051
00003 AUTHOR. NGC. LV052
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 '051DTSBX418 04/03/15'. DTSBX418
001445 77 PAN-VALET PICTURE X(24) VALUE '052DTSBX418 08/27/25'. 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 DTSBX418
00568 MOVE ZERO TO LX42-PSEUDO-BATCH-NO DTSBX418
00568 * MOVE ZERO TO LX42-BATCH-NO CL*52
00569 MOVE ZERO TO LX42-PSEUDO-BATCH-NO CL*52
00570 LX42-LAST-DETERM-EMP DTSBX418
00571 LX42-RPT-CNT DTSBX418
00572 LX42-RPT-REMIT-AMT DTSBX418