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

36
Copybook/DTSIY771.cpy Normal file
View File

@ -0,0 +1,36 @@
00001 ***** 02/01/04
00002 * DTSIY771
00003 * DTSIY771 ETA581 POPULATION 1 - ACTIVE EMPLOYERS LV001
00004 * DTSIY771
00005 * DTSBE770 EXTRACTS RECONSTRUCTION FILE DATA FOR THE COUNT OF DTSIY771
00006 * ACTIVE EMPLOYERS FOR THE ETA581 REPORT. THE RECORDS ARE DTSIY771
00007 * SORTED AND PASSED TO DTSBD771 WHICH BUILDS RECONSTRUCTION DTSIY771
00008 * FILE RECORDS (DTSIX771). DTSIY771
00009 * DTSIY771
00010 ***** DTSIY771
00011 10 Y771-LENGTH PIC S9(04) COMP. DTSIY771
00012 DTSIY771
00013 10 Y771-SORT-AREA. DTSIY771
00014 15 Y771-REC-TYPE PIC X(03). DTSIY771
00015 88 Y771-REC-TYPE-771-88 VALUE '771'. DTSIY771
00016 15 Y771-EMP-NO PIC S9(07) COMP-3. DTSIY771
00017 DTSIY771
00018 10 Y771-DATA-AREA. DTSIY771
00019 15 Y771-EMP-STATUS PIC X(01). DTSIY771
00020 88 Y771-STATUS-ACTIVE-88 VALUE 'A'. DTSIY771
00021 15 Y771-EMP-CLASS PIC X(01). DTSIY771
00022 88 Y771-CLASS-RATED-88 VALUE 'R'. DTSIY771
00023 88 Y771-CLASS-SELF-INS-88 VALUE 'S'. DTSIY771
00024 15 Y771-LIAB-DATE PIC S9(09) COMP-3. DTSIY771
00025 15 Y771-REOPEN-PROCESS-DATE PIC S9(09) COMP-3. DTSIY771
00026 15 Y771-PROCESS-DATE PIC S9(09) COMP-3. DTSIY771
00027 15 Y771-INACTIVE-DATE PIC S9(09) COMP-3. DTSIY771
00028 15 Y771-LIAB-QTR-CNT PIC 9(02). DTSIY771
00029 15 Y771-QTR1-WAGES PIC S9(11)V99 COMP-3. DTSIY771
00030 15 Y771-QTR2-WAGES PIC S9(11)V99 COMP-3. DTSIY771
00031 15 Y771-QTR3-WAGES PIC S9(11)V99 COMP-3. DTSIY771
00032 15 Y771-QTR4-WAGES PIC S9(11)V99 COMP-3. DTSIY771
00033 15 Y771-QTR5-WAGES PIC S9(11)V99 COMP-3. DTSIY771
00034 15 Y771-QTR6-WAGES PIC S9(11)V99 COMP-3. DTSIY771
00035 15 Y771-QTR7-WAGES PIC S9(11)V99 COMP-3. DTSIY771
00036 15 Y771-QTR8-WAGES PIC S9(11)V99 COMP-3. DTSIY771