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

From UAT Z's file modified

Browse Source
This commit is contained in:
Manoj Patel
2025-09-19 12:33:15 -04:00
parent 10597a27ba
commit 8dc0204972
40 changed files with 5728 additions and 2063 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Batch/DTSBU981.cob
View File

@ -87,7 +87,7 @@
00087 FD WGH-FILE. DTSBU981
00088 DTSBU981
00089 01 FILE-REC. DTSBU981
00090 ++INCLUDE DTSIWWGZ DTSBU981
00090 ++INCLUDE DTSIWWGH DTSBU981
00091 EJECT DTSBU981
00092 WORKING-STORAGE SECTION. DTSBU981
000925 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU981 04/05/04'. DTSBU981
@ -131,7 +131,7 @@
00130 EJECT DTSBU981
00131 01 LINK-REC. DTSBU981
00132 05 WWGH-REC. DTSBU981
00133 ++INCLUDE DTSIWWGZ DTSBU981
00133 ++INCLUDE DTSIWWGH DTSBU981
00134 EJECT DTSBU981
00135 PROCEDURE DIVISION USING L981-LINK-AREA DTSBU981
00136 LINK-REC. DTSBU981