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

8
Batch/DTSBX430.cob
View File

@ -1,6 +1,6 @@
00001 IDENTIFICATION DIVISION. 09/06/25
00001 IDENTIFICATION DIVISION. 03/10/25
00002 PROGRAM-ID. DTSBX430. DTSBX430
00003 AUTHOR. NGC. LV254
00003 AUTHOR. NGC. LV253
00004 DATE-WRITTEN. APRIL 2005. DTSBX430
00005 DATE-COMPILED. DTSBX430
00006 SKIP3 DTSBX430
@ -161,7 +161,7 @@
00161 CL119
00162 CL*59
00163 WORKING-STORAGE SECTION. DTSBX430
001635 77 PAN-VALET PICTURE X(24) VALUE '254DTSBX430 09/06/25'. DTSBX430
001635 77 PAN-VALET PICTURE X(24) VALUE '253DTSBX430 03/10/25'. DTSBX430
00164 77 PAN-VALET PICTURE X(24) VALUE '015DTSBX422 10/07/14'. DTSBX430
00165 77 PAN-VALET PICTURE X(24) VALUE '047DTSBX422 09/27/14'. DTSBX430
00166 SKIP3 DTSBX430
@ -764,7 +764,7 @@
00763 01 LX42-LINK-AREA. DTSBX430
00764 ++INCLUDE DTSILX42 CL112
00765 DTSBX430
00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL254
00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL253
00767 DTSBX430
00768 DTSBX430-MAIN. CL*47
00769 * DISPLAY 'LX42-LINK-AREA' LX42-LINK-AREA CL*80