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

56
Copybook/DTSIX793.cpy Normal file
View File

@ -0,0 +1,56 @@
00001 ***** 08/26/19
00002 * DTSIX793
00003 * DTSIX793 IRS QUARTERLY FUTA EXTRACT RECORD LV004
00004 * DTSIX793
00005 * GENERATE LETTER TO EMPLOYERS NOT FOUND ON DUTAS. CL**4
00006 * DTSIX793
00007 ***** DTSIX793
00008 DTSIX793
00009 05 QEUP-CHARACTER-CNT PIC S9(04) COMP. CL**4
00010 05 QEUP-HEX-ZERO PIC S9(04) COMP. CL**4
00011 05 QEUP-FEIN-X PIC X(09). CL**4
00012 05 QEUP-FEIN CL**4
00013 REDEFINES QEUP-FEIN-X PIC 9(09). CL**4
00014 05 QEUP-TRANSACTION-DATE PIC X(08). CL**4
00015 05 QEUP-XREF-FEIN PIC X(09). CL**4
00016 05 QEUP-FORMER-NAME-CONTROL PIC X(04). CL**4
00017 05 QEUP-ZIP-CODE. CL**4
00018 10 QEUP-ZIP-1-5 PIC X(05). CL**4
00019 10 QEUP-ZIP-6-9 PIC X(04). CL**4
00020 10 QEUP-ZIP-10-12 PIC X(03). CL**4
00021 05 QEUP-STATE-CODE PIC X(02). CL**4
00022 05 QEUP-CITY PIC X(22). CL**4
00023 05 QEUP-STREET-ADDRESS PIC X(35). CL**4
00024 05 QEUP-NAME-LINE-1 PIC X(35). CL**4
00025 05 QEUP-NAME-LINE-2 PIC X(35). CL**4
00026 05 QEUP-NAME-LINE-3 PIC X(35). CL**4
00027 05 QEUP-NAME-LINE-4 PIC X(35). CL**4
00028 05 QEUP-CHECK-DIGITS PIC X(02). CL**4
00029 05 QEUP-FILING-REQUIREMENTS. CL**4
00030 10 QEUP-FORM-940-IND PIC X(01). CL**4
00031 88 QEUP-FORM-940-NO-88 VALUE 'N'. CL**4
00032 88 QEUP-FORM-940-YES-88 VALUE 'Y'. CL**4
00033 10 QEUP-FORM-940EZ-IND PIC X(01). CL**4
00034 88 QEUP-FORM-940EZ-NO-88 VALUE 'N'. CL**4
00035 88 QEUP-FORM-940EZ-YES-88 VALUE 'Y'. CL**4
00036 10 QEUP-FORM-941-IND PIC X(01). CL**4
00037 88 QEUP-FORM-941-NO-88 VALUE 'N'. CL**4
00038 88 QEUP-FORM-941-YES-88 VALUE 'Y'. CL**4
00039 10 QEUP-FORM-942-IND PIC X(01). CL**4
00040 88 QEUP-FORM-942-NO-88 VALUE 'N'. CL**4
00041 88 QEUP-FORM-942-YES-88 VALUE 'Y'. CL**4
00042 10 QEUP-FORM-943-IND PIC X(01). CL**4
00043 88 QEUP-FORM-943-NO-88 VALUE 'N'. CL**4
00044 88 QEUP-FORM-943-YES-88 VALUE 'Y'. CL**4
00045 05 QEUP-CURRENT-NAME-CONTROL PIC X(04). CL**4
00046 05 QEUP-TRANSACTION-CODES. CL**4
00047 10 QEUP-TRAN-NEW-ACCOUNT-IND PIC X(01). CL**4
00048 88 QEUP-TRAN-NEW-ACCOUNT-NO-88 VALUE 'N'. CL**4
00049 88 QEUP-TRAN-NEW-ACCOUNT-YES-88 VALUE 'Y'. CL**4
00050 10 QEUP-TRAN-FEIN-CHANGE-IND PIC X(01). CL**4
00051 88 QEUP-TRAN-FEIN-CHANGE-NO-88 VALUE 'N'. CL**4
00052 88 QEUP-TRAN-FEIN-CHANGE-YES-88 VALUE 'Y'. CL**4
00053 10 QEUP-TRAN-NAME-CHANGE-IND PIC X(01). CL**4
00054 88 QEUP-TRAN-NAME-CHANGE-NO-88 VALUE 'N'. CL**4
00055 88 QEUP-TRAN-NAME-CHANGE-YES-88 VALUE 'Y'. CL**4
00056 EJECT CL**4