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

29
Copybook/EFTIRSKL.cpy Normal file
View File

@ -0,0 +1,29 @@
00001 ***** 10/01/03
00002 * EFTIRSKL
00003 * EFTIFSKL GOVONE FILE SKELETAL RECORD DESCRIPTION LV028
00004 * (512 BYTE VERSION). EFTIRSKL
00005 * EFTIRSKL
00006 * 04/21/2003 REVIEWED AND MODIFIED FOR DC. ZL1 CL**3
00007 * CL**2
00008 ***** EFTIRSKL
00009 CL**2
00010 10 RSKL-LENGTH PIC S9(04) COMP. CL*28
00011 10 RSKL-REC-TYPE PIC X(02). CL**7
00012 88 RSKL-TYPE-GLOBAL-DATA-88 VALUE '01'. CL**7
00013 88 RSKL-TYPE-EMP-STATUS-88 VALUE '10'. CL**7
00014 88 RSKL-TYPE-WAGE-EXP-88 VALUE '11'. CL**7
00015 88 RSKL-TYPE-VALID-EMP-NO-88 VALUE '12'. CL**7
00016 88 RSKL-TYPE-QTR-TAX-RPT-88 VALUE '30'. CL**7
00017 88 RSKL-TYPE-ANN-TAX-RPT-88 VALUE '31'. CL**7
00018 88 RSKL-TYPE-PAYMENT-88 VALUE '32'. CL**7
00019 88 RSKL-TYPE-WAGE-IMP-88 VALUE '33'. CL**7
00020 88 RSKL-TYPE-STATUS-CHANGE-88 VALUE '34'. CL*25
00021 88 RSKL-TYPE-ENROLL-88 VALUE '35'. CL*12
00022 88 RSKL-TYPE-VALID-TRANS VALUE CL*15
00023 '30' '32' '33' '34' '35'. CL*25
00024 10 RSKL-SUB-TYPE PIC X(01). CL*10
00025 88 RSKL-SUB-TYPE-HEADER-88 VALUE '0'. CL*10
00026 88 RSKL-SUB-TYPE-DATA-88 VALUE '1'. CL*10
00027 88 RSKL-SUB-TYPE-TRAILER-88 VALUE '9'. CL*10
00028 CL**9
00029 10 FILLER PIC X(2391). CL*28