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

40
Copybook/DTSIX153.cpy Normal file
View File

@ -0,0 +1,40 @@
00001 ***** 02/08/13
00002 * DTSIX153
00003 * DTSIX153 EMPLOYEE WORKER NAME EXTRACT RECORD LV001
00004 * DTSIX153
00005 * THIS RECORD PASSES WAGE RECORDS WITHOUT SSNS TO THE SERVER DTSIX153
00006 * DATABASE. THESE WAGES ARE NOT ADDED TO THE REGULAR WAGE DTSIX153
00007 * FILE, BUT ARE STORED SEPARATELY SO THE WAGES CAN BE FOUND DTSIX153
00008 * BY NAME IF THE WORKER FILES A CLAIM. DTSIX153
00009 * DTSIX153
00010 ***** DTSIX153
00011 DTSIX153
00012 15 X153-REC-TYPE PIC X(03) VALUE '153'. DTSIX153
00013 15 FILLER PIC X(01) VALUE ','. DTSIX153
00014 15 X153-EMP-NO PIC 9(06). DTSIX153
00015 15 FILLER PIC X(01) VALUE ','. DTSIX153
00016 15 X153-QUARTER PIC X(06). DTSIX153
00017 15 FILLER PIC X(01) VALUE ','. DTSIX153
00018 15 X153-EARNINGS PIC --------9.99. DTSIX153
00019 15 FILLER PIC X(01) VALUE ','. DTSIX153
00020 15 X153-BATCH PIC 9(05). DTSIX153
00021 15 FILLER PIC X(01) VALUE ','. DTSIX153
00022 15 X153-ITEM PIC 9(03). DTSIX153
00023 15 FILLER PIC X(01) VALUE ','. DTSIX153
00024 15 X153-WAGE-SOURCE PIC 9(02). DTSIX153
00025 88 X153-ICESA-88 VALUE 1. DTSIX153
00026 88 X153-PAPER-RPT-88 VALUE 2. DTSIX153
00027 88 X153-WAGE-ONLY-DISK-88 VALUE 3. DTSIX153
00028 88 X153-ANNUAL-RPT-88 VALUE 4. DTSIX153
00029 88 X153-WEB-RPT-88 VALUE 5. DTSIX153
00030 88 X153-AMENDMENT-88 VALUE 6. DTSIX153
00031 88 X153-BENEFITS-88 VALUE 7. DTSIX153
00032 88 X153-UNKNOWN-88 VALUE 0. DTSIX153
00033 15 FILLER PIC X(01) VALUE ','. DTSIX153
00034 15 X153-LAST-NAME PIC X(20). DTSIX153
00035 15 FILLER PIC X(01) VALUE ','. DTSIX153
00036 15 X153-FIRST-NAME PIC X(15). DTSIX153
00037 15 FILLER PIC X(01) VALUE ','. DTSIX153
00038 15 X153-MID-INIT PIC X(01). DTSIX153
00039 15 FILLER PIC X(01) VALUE ','. DTSIX153
00040 15 X153-DATE PIC X(10). DTSIX153