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

8
Batch/DTSBX430.cob
View File

@ -1,6 +1,6 @@
00001 IDENTIFICATION DIVISION. 03/10/25
00001 IDENTIFICATION DIVISION. 09/06/25
00002 PROGRAM-ID. DTSBX430. DTSBX430
00003 AUTHOR. NGC. LV253
00003 AUTHOR. NGC. LV254
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 '253DTSBX430 03/10/25'. DTSBX430
001635 77 PAN-VALET PICTURE X(24) VALUE '254DTSBX430 09/06/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. CL253
00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL254
00767 DTSBX430
00768 DTSBX430-MAIN. CL*47
00769 * DISPLAY 'LX42-LINK-AREA' LX42-LINK-AREA CL*80