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

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Copybook/DTSXL771.cpy Normal file
View File

@ -0,0 +1,27 @@
00001 ***** 02/01/04
00002 * DTSXL771
00003 * DTSXL771 DTSBX771 PROGRAM LINKAGE LV001
00004 * ETA581 ACTIVE EMPLOYER COUNTS DTSXL771
00005 * DTSXL771
00006 * INITIAL DEVELOPMENT. 11/28/2002 GD. DTSXL771
00007 * DTSXL771
00008 * DTSBX770 READS ETA581 DATA VALIDATION TRANSACTION RECORDS DTSXL771
00009 * CREATED BY DTSBE770, AND CALLS DTSBX771 TO BUILD DTSIX771 DTSXL771
00010 * DATA VALIDATION RECORDS AND BUILD ETA581 ACTIVE EMPLOYER DTSXL771
00011 * COUNTS. DTSXL771
00012 * DTSXL771
00013 ***** DTSXL771
00014 DTSXL771
00015 10 XL771-CMND-CD PIC X(01). DTSXL771
00016 88 XL771-CMD-INIT-88 VALUE '0'. DTSXL771
00017 88 XL771-CMD-PROCESS-88 VALUE '1'. DTSXL771
00018 88 XL771-CMD-TERMINATE-88 VALUE '2'. DTSXL771
00019 DTSXL771
00020 10 XL771-DATA-AREA. DTSXL771
00021 15 XL771-CON-EMP-CNT PIC S9(07) COMP-3. DTSXL771
00022 15 XL771-REIMB-EMP-CNT PIC S9(07) COMP-3. DTSXL771
00023 15 XL771-TOT-EMP-CNT PIC S9(07) COMP-3. DTSXL771
00024 DTSXL771
00025 10 XL771-RESULT-IND PIC X(01). DTSXL771
00026 88 XL771-OK-88 VALUE '0'. DTSXL771
00027 88 XL771-ERROR-88 VALUE '1'. DTSXL771