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

82
Copybook/DTSIY104.cpy Normal file
View File

@ -0,0 +1,82 @@
00001 ***** 02/26/08
00002 * DTSIY104
00003 * DTSIY104 LIABILITY DETERMINATION DATA FROM LV001
00004 * EXTERNAL SOURCES, SUCH AS THE WEB DTSIY104
00005 * DTSIY104
00006 * 07/25/2007 INITIAL DEVELOPMENT. GD DTSIY104
00007 * DTSIY104
00008 * THIS RECORD IS PASSED WITHIN THE DTSIT002 DTSIY104
00009 * TRANSACTION RECORD, AND PROCESSED THROUGH DTSIY104
00010 * DTSBD380. DTSIY104
00011 * DTSIY104
00012 ***** DTSIY104
00013 DTSIY104
00014 10 Y104-DATA-AREA. DTSIY104
00015 15 FILLER PIC X(02). DTSIY104
00016 15 Y104-FEIN PIC S9(09) COMP-3. DTSIY104
00017 15 Y104-ENTITY-NAME PIC X(40). DTSIY104
00018 15 Y104-TRADE-NAME PIC X(40). DTSIY104
00019 15 Y104-STAFF-REVIEW-IND PIC X(01). DTSIY104
00020 88 Y104-STAFF-REVIEW-YES-88 VALUE 'Y'. DTSIY104
00021 88 Y104-STAFF-REVIEW-NO-88 VALUE 'N'. DTSIY104
00022 15 Y104-SOURCE-CD PIC X(02). DTSIY104
00023 88 Y104-SOURCE-CNTR-CMPLY-88 VALUE '00'. DTSIY104
00024 88 Y104-SOURCE-PHONE-88 VALUE '01'. DTSIY104
00025 88 Y104-SOURCE-LETTER-88 VALUE '02'. DTSIY104
00026 88 Y104-SOURCE-VOL-88 VALUE '03'. DTSIY104
00027 88 Y104-SOURCE-PRED-88 VALUE '04'. DTSIY104
00028 88 Y104-SOURCE-BEN-88 VALUE '05'. DTSIY104
00029 88 Y104-SOURCE-940-88 VALUE '06'. DTSIY104
00030 88 Y104-SOURCE-UNION-HALL-88 VALUE '07'. DTSIY104
00031 88 Y104-SOURCE-FIELD-REP-88 VALUE '08'. DTSIY104
00032 88 Y104-SOURCE-FOLLOW-UP-88 VALUE '09'. DTSIY104
00033 88 Y104-SOURCE-DEPT-REVENUE-88 VALUE '10'. DTSIY104
00034 88 Y104-SOURCE-WRKR-COMP-88 VALUE '11'. DTSIY104
00035 88 Y104-SOURCE-LIQ-LICENSE-88 VALUE '12'. DTSIY104
00036 88 Y104-SOURCE-FEIN-LIST-88 VALUE '13'. DTSIY104
00037 88 Y104-SOURCE-UC30-STAFF-88 VALUE '14'. DTSIY104
00038 88 Y104-SOURCE-UC30-SYS-88 VALUE '15'. DTSIY104
00039 88 Y104-SOURCE-UC30-88 VALUE '14', '15'.DTSIY104
00040 88 Y104-SOURCE-FISC-AGNT-88 VALUE '16'. DTSIY104
00041 88 Y104-SOURCE-WEB-REG VALUE '17'. DTSIY104
00042 88 Y104-SOURCE-WEB-REG-PRED-88 VALUE '18'. DTSIY104
00043 88 Y104-SOURCE-WEB-REG-SUCC-88 VALUE '19'. DTSIY104
00044 88 Y104-SOURCE-WEB-88 VALUE DTSIY104
00045 '17' THRU '19'. DTSIY104
00046 88 Y104-SOURCE-OTH-88 VALUE '98'. DTSIY104
00047 88 Y104-SOURCE-UNK-88 VALUE '99'. DTSIY104
00048 15 Y104-LIAB-CD PIC X(02). DTSIY104
00049 15 Y104-ELIG-CD PIC X(02). DTSIY104
00050 15 Y104-NAICS PIC 9(06). DTSIY104
00051 15 Y104-OWN-CD PIC X(02). DTSIY104
00052 15 Y104-ORG-TYPE PIC X(03). DTSIY104
00053 88 Y104-ORG-HOUSEHOLD-88 VALUE 'H '. DTSIY104
00054 15 Y104-HOUSEHOLD-FILING PIC X(01). DTSIY104
00055 88 Y104-HH-ANNUAL-88 VALUE 'A'. DTSIY104
00056 88 Y104-HH-QUARTERLY-88 VALUE 'Q'. DTSIY104
00057 15 Y104-CORP-STATE PIC X(02). DTSIY104
00058 15 Y104-CORP-DATE PIC S9(09) COMP-3. DTSIY104
00059 15 Y104-FIRST-WAGE-DT PIC S9(09) COMP-3. DTSIY104
00060 15 Y104-FIRST-500-QTR PIC S9(05) COMP-3. DTSIY104
00061 15 Y104-LAST-WAGE-DT PIC S9(09) COMP-3. DTSIY104
00062 15 Y104-ACQUIRE-IND PIC X(01). DTSIY104
00063 88 Y104-ACQUIRE-YES-88 VALUE 'Y'. DTSIY104
00064 88 Y104-ACQUIRE-NO-88 VALUE 'N'. DTSIY104
00065 15 Y104-MERGE-SPLIT-IND PIC X(01). DTSIY104
00066 88 Y104-MERGE-SPLIT-YES-88 VALUE 'Y'. DTSIY104
00067 88 Y104-MERGE-SPLIT-NO-88 VALUE 'N'. DTSIY104
00068 15 Y104-REORG-IND PIC X(01). DTSIY104
00069 88 Y104-REORG-YES-88 VALUE 'Y'. DTSIY104
00070 88 Y104-REORG-NO-88 VALUE 'N'. DTSIY104
00071 15 Y104-COMMON-OWN-IND PIC X(01). DTSIY104
00072 88 Y104-COMMON-OWN-YES-88 VALUE 'Y'. DTSIY104
00073 88 Y104-COMMON-OWN-NO-88 VALUE 'N'. DTSIY104
00074 15 Y104-SALE-TRANSFER-IND PIC X(01). DTSIY104
00075 15 Y104-FIELD-ZIP PIC X(10). DTSIY104
00076 15 Y104-FIELD-STATE PIC X(02). DTSIY104
00077 15 Y104-NOT-LIAB-REASON PIC X(01). DTSIY104
00078 88 Y104-NOT-LIAB-NULL-88 VALUE '0'. DTSIY104
00079 88 Y104-NOT-LIAB-BUS-ACT-88 VALUE '1'. DTSIY104
00080 88 Y104-NOT-LIAB-NO-EMPL-88 VALUE '2'. DTSIY104
00081 88 Y104-NOT-LIAB-NO-WAGES-88 VALUE '3'. DTSIY104
00082 88 Y104-NOT-LIAB-LOCALIZE-88 VALUE '4'. DTSIY104