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

20
Batch/DTSBX417.cob
View File

@ -1,6 +1,6 @@
00001 IDENTIFICATION DIVISION. 05/23/19
00001 IDENTIFICATION DIVISION. 09/06/25
00002 PROGRAM-ID. DTSBX417. DTSBX417
00003 AUTHOR. NGC. LV077
00003 AUTHOR. NGC. LV078
00004 DATE-WRITTEN. APRIL 2005. DTSBX417
00005 DATE-COMPILED. DTSBX417
00006 SKIP3 DTSBX417
@ -147,7 +147,7 @@
00147 05 SORT-DATA PIC X(512). DTSBX417
00148 DTSBX417
00149 WORKING-STORAGE SECTION. DTSBX417
001495 77 PAN-VALET PICTURE X(24) VALUE '077DTSBX417 05/23/19'. DTSBX417
001495 77 PAN-VALET PICTURE X(24) VALUE '078DTSBX417 09/06/25'. DTSBX417
00150 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX420 10/07/14'. DTSBX417
00151 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX420 10/07/14'. DTSBX417
00152 SKIP3 DTSBX417
@ -1207,10 +1207,10 @@
01206 MOVE +91 TO SORT-SEQ1 DTSBX417
01207 MOVE X120-REC TO SORT-DATA DTSBX417
01208 DTSBX417
01209 WHEN WEB-IMP-TYPE-REL-88 DTSBX417
01210 PERFORM P1200G-REL THRU P1200G-EXIT DTSBX417
01211 MOVE +5 TO SORT-SEQ1 DTSBX417
01212 MOVE X130-REC TO SORT-DATA DTSBX417
01209 * WHEN WEB-IMP-TYPE-REL-88 CL*78
01210 * PERFORM P1200G-REL THRU P1200G-EXIT CL*78
01211 * MOVE +5 TO SORT-SEQ1 CL*78
01212 * MOVE X130-REC TO SORT-DATA CL*78
01213 DTSBX417
01214 *** WHEN WEB-IMP-TYPE-IND-88 DTSBX417
01215 * MOVE +6 TO SORT-SEQ1 DTSBX417
@ -1459,9 +1459,9 @@
01458 P1200F-EXIT. DTSBX417
01459 EXIT. DTSBX417
01460 DTSBX417
01461 P1200G-REL. DTSBX417
01462 P1200G-EXIT. DTSBX417
01463 EXIT. DTSBX417
01461 *P1200G-REL. CL*78
01462 *P1200G-EXIT. CL*78
01463 * EXIT. CL*78
01464 DTSBX417
01465 P1200H-RPT. DTSBX417
01466 * DISPLAY '01200H-RPT ' CL**9