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

commiting everything bcz i am moving all stuff to another machine 10.57.100.120

Browse Source
This commit is contained in:
faizana
2025-08-29 14:07:12 -04:00
parent ef98c08de5
commit 47c88673c2
42 changed files with 127557 additions and 290 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 DTSIWWGH DTSBU981
00090 ++INCLUDE DTSIWWGZ 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 DTSIWWGH DTSBU981
00133 ++INCLUDE DTSIWWGZ DTSBU981
00134 EJECT DTSBU981
00135 PROCEDURE DIVISION USING L981-LINK-AREA DTSBU981
00136 LINK-REC. DTSBU981