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

58
Copybook/EWGRECS.cpy Normal file
View File

@ -0,0 +1,58 @@
00001 ******************************************************************02/02/05
00002 * ICESA FORMAT EMPLOYEE RECORD *EWGRECS
00003 * * LV001
00004 * ESP.APPL.PANSLIB(EWGRECS) *EWGRECS
00005 * *EWGRECS
00006 * *EWGRECS
00007 * - CODE S RECORD IS USED TO REPORT WAGE AND *EWGRECS
00008 * TAX DATA FOR AN EMPLOYEE *EWGRECS
00009 * *EWGRECS
00010 * - CODE S RECORD FOLLOWS THE RELATED CODE E *EWGRECS
00011 * - RECORD *EWGRECS
00012 * *EWGRECS
00013 * DATE: - 10-12-95 *EWGRECS
00014 * MODIFIED FOR YEAR 2000 RECORDS 10/08/98 BEJ *EWGRECS
00015 ******************************************************************EWGRECS
00016 EWGRECS
00017 01 WAGE-RECORD-S. EWGRECS
00018 05 S-RECORD-ID PIC X(01) VALUE 'S'. EWGRECS
00019 05 S-SSN PIC X(09). EWGRECS
00020 05 S-EMPLOYEE-INFO. EWGRECS
00021 10 S-LAST-NAME PIC X(20). EWGRECS
00022 10 S-FIRST-NAME PIC X(12). EWGRECS
00023 10 S-MIDDLE-INIT PIC X(01). EWGRECS
00024 05 S-STATE-CODE PIC X(02). EWGRECS
00025 05 S-QTR-YEAR PIC X(04). EWGRECS
00026 05 S-GROSS-WAGE PIC 9(12)V99. EWGRECS
00027 * 05 S-GROSS-WAGE PIC 9(14). EWGRECS
00028 05 S-UNEMP-WAGE PIC 9(12)V99. EWGRECS
00029 05 S-EXCESS-WAGE PIC 9(12)V99. EWGRECS
00030 05 S-TAXABLE-WAGE PIC 9(12)V99. EWGRECS
00031 05 S-DIS-TAXABLE-WAGE PIC 9(15). EWGRECS
00032 05 S-TIP-WAGE PIC 9(09). EWGRECS
00033 05 S-WEEKS-WORKED PIC X(02). EWGRECS
00034 05 S-HOURS-WORKED PIC X(03). EWGRECS
00035 05 S-DATE-FIRST-EMPL PIC X(04). EWGRECS
00036 05 S-DATE-SEPARATED PIC X(04). EWGRECS
00037 05 S-ENTITY-CODE PIC X(04) VALUE 'UTAX'. EWGRECS
00038 05 S-ACCOUNT-NO PIC X(15). EWGRECS
00039 05 S-UNIT-DIV PIC X(15). EWGRECS
00040 05 S-STATE-TAX-WAGE PIC 9(14). EWGRECS
00041 05 S-TAX-WITHHELD PIC 9(14). EWGRECS
00042 05 S-SEASONAL PIC X(02). EWGRECS
00043 05 S-EMPLOYER-INSUR PIC X(01). EWGRECS
00044 05 S-EMPLOYEE-INSUR PIC X(01). EWGRECS
00045 05 S-PROBAT-CODE PIC X(01). EWGRECS
00046 05 S-OFFICER-CODE PIC X(01). EWGRECS
00047 05 S-WAGE-PLAN-CODE PIC X(01). EWGRECS
00048 05 S-MONTH-1 PIC X(01). EWGRECS
00049 05 S-MONTH-2 PIC X(01). EWGRECS
00050 05 S-MONTH-3 PIC X(01). EWGRECS
00051 05 S-REPORTING-QTR-YR. EWGRECS
00052 10 S-REPT-MTH PIC X(02). EWGRECS
00053 10 S-REPT-CNTRY PIC X(02). EWGRECS
00054 10 S-REPT-YR PIC X(02). EWGRECS
00055 05 S-DATE-EMPLOYED PIC X(06). EWGRECS
00056 05 S-DATE-SEPARATED PIC X(06). EWGRECS
00057 05 FILLER PIC X(43). EWGRECS
00058 * 05 FILLER PIC X(61). EWGRECS