giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

All Z' modified PROD server code merge 09/10/2025

Browse Source
This commit is contained in:
Manoj Patel
2025-10-10 08:02:01 -04:00
parent 7408a12cc6
commit d3af779d95
145 changed files with 6247 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Copybook/DTSIWWGH.cpy
View File

@ -9,9 +9,9 @@
00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIWWGH
00010 * 03/18/2004 MODIFIED FOR NEW WAGE PROCESS. GD DTSIWWGH
00011 * 02/27/2024 MODIFIED FOR UIBS WAGE PROCESSING ZL CL**3
00012 * DTSIWWGH
00013 * KEY = 12 LENGTH = 23 CL**2
00014 * DTSIWWGH
00012 * TAXWGH FILE CHANGE ONLY TO 23 BYTES DTSIWWGH
00013 * KEY = 12 LENGTH = 23 (TAXWGH ONLY) CL**2
00014 * WGH FILE STAYED AT 18 BYTES DTSIWWGH
00015 ***** DTSIWWGH
00016 DTSIWWGH
00017 10 WWGH-KEY-AREA. DTSIWWGH
@ -21,4 +21,4 @@
00021 DTSIWWGH
00022 10 WWGH-DATA-AREA. DTSIWWGH
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH
00024 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
00024* 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2

132
Copybook/DTSNH104 (2).cpy Normal file
View File

@ -0,0 +1,132 @@
00001 ***** 01/11/19
00002 * DTSNH104
00003 * DTSIX104 EMPLOYER DETERMINATION EXTRACT RECORD LV016
00004 * DTSNH104
00005 * EXCHANGES EMPLOYER DETERMINATION INFORMATION BETWEEN THE DTSNH104
00006 * MAINFRAME AND SQL SERVER DATABASE. DTSNH104
00007 * DTSNH104
00008 * DTSNH104
00009 ***** DTSNH104
00010 DTSNH104
00011 15 X104-REC-TYPE PIC X(03) VALUE '104'. DTSNH104
00012 15 FILLER PIC X(01) VALUE ','. DTSNH104
00013 15 X104-EMP-NO PIC 9(06). DTSNH104
00014 15 FILLER PIC X(01) VALUE ','. DTSNH104
00015 15 X104-STAFF-REVIEW-IND PIC X(01). DTSNH104
00016 88 X104-STAFF-REVIEW-YES-88 VALUE 'Y'. CL**3
00017 88 X104-STAFF-REVIEW-NO-88 VALUE 'N'. CL**3
00018 15 FILLER PIC X(01) VALUE ','. DTSNH104
00019 15 X104-LIAB-CD PIC X(02). DTSNH104
00020 88 X104-LIAB-NO-DETERM-88 VALUE ' '. DTSNH104
00021 88 X104-LIAB-NOT-LIABLE-88 VALUE '00'. DTSNH104
00022 88 X104-LIAB-RATED-REG-88 VALUE '01'. DTSNH104
00023 88 X104-LIAB-RATED-NON-PROF-88 VALUE '02'. DTSNH104
00024 88 X104-LIAB-RATED-DOMESTIC-88 VALUE '04'. DTSNH104
00025 88 X104-LIAB-RATED-FOREIGN-88 VALUE '07'. DTSNH104
00026 88 X104-LIAB-SELF-INS-CITY-88 VALUE '22'. DTSNH104
00027 88 X104-LIAB-SELF-INS-COUNTY-88 VALUE '23'. DTSNH104
00028 88 X104-LIAB-SELF-INS-STATE-88 VALUE '24'. DTSNH104
00029 88 X104-LIAB-SELF-INS-CHURCH-88 VALUE '25'. DTSNH104
00030 88 X104-LIAB-SELF-INS-NON-PROF-88 VALUE '26'. DTSNH104
00031 88 X104-LIAB-RATED-88 VALUE DTSNH104
00032 '01' '02' '04' '07'. DTSNH104
00033 88 X104-LIAB-SELF-INS-88 VALUE DTSNH104
00034 '22' '23' '24' '25' '26'. DTSNH104
00035 88 X104-LIAB-VALID-88 VALUE DTSNH104
00036 '00' '01' '02' '04' '07' '22' '23' '24' '25' '26'. DTSNH104
00037 15 FILLER PIC X(01) VALUE ','. DTSNH104
00038 15 X104-ELIG-CD PIC X(02). DTSNH104
00039 88 X104-ELIG-NO-DETERM-88 VALUE ' '. DTSNH104
00040 88 X104-ELIG-RATED-88 VALUE '00'. DTSNH104
00041 88 X104-ELIG-UCX-88 VALUE '01'. DTSNH104
00042 88 X104-ELIG-UCFE-88 VALUE '02'. DTSNH104
00043 88 X104-ELIG-INTERSTATE-88 VALUE '04'. DTSNH104
00044 88 X104-ELIG-VOLUNTARY-QUIT-88 VALUE '05'. CL**8
00045 88 X104-ELIG-MISCONDUCT-88 VALUE '06'. CL**8
00046 88 X104-ELIG-EB-88 VALUE '07'. CL**8
00047 88 X104-ELIG-SELF-INS-88 VALUE '08'. DTSNH104
00048 88 X104-ELIG-TRA-88 VALUE '09'. CL**8
00049 88 X104-ELIG-DC-GOV-88 VALUE '10'. DTSNH104
00050 88 X104-ELIG-NOT-SUBJECT-88 VALUE '13'. DTSNH104
00051 88 X104-ELIG-TEUC-88 VALUE '16'. CL**8
00052 88 X104-ELIG-VALID-88 VALUE DTSNH104
00053 ' ' '00' '01' '02' '04' '05' '06' '07' CL**8
00054 '08' '09' '10' '13' '16'. CL**8
00055 15 FILLER PIC X(01) VALUE ','. DTSNH104
00056 15 X104-NAICS-CD PIC 9(06). DTSNH104
00057 15 FILLER PIC X(01) VALUE ','. DTSNH104
00058 15 X104-ORG-TYPE PIC X(03). DTSNH104
00059 88 X104-ORG-SOLE-PROPRIETOR-88 VALUE 'S '. DTSNH104
00060 88 X104-ORG-PARTNERSHIP-88 VALUE 'P '. DTSNH104
00061 88 X104-ORG-LTD-LIAB-CO-88 VALUE 'LLC'. DTSNH104
00062 88 X104-ORG-LTD-LIAB-PARTN-88 VALUE 'LLP'. DTSNH104
00063 88 X104-ORG-CORPORATION-88 VALUE 'C '. DTSNH104
00064 88 X104-ORG-J-JOINT-VENT-88 VALUE 'J '. CL**4
00065 88 X104-ORG-S-CORPORATION-88 VALUE 'SC '. CL**4
00066 88 X104-ORG-TRUST-BANK-88 VALUE 'TB '. CL**5
00067 88 X104-ORG-RECEIVERSHIP-88 VALUE 'R '. CL**5
00068 88 X104-ORG-TRUST-PENSION-88 VALUE 'TP '. CL*13
00069 88 X104-ORG-ASSOCIATION-88 VALUE 'ASS'. CL**5
00070 88 X104-ORG-HSEHLD-DMSTIC-88 VALUE 'H '. CL**5
00071 88 X104-ORG-NON-PROFIT-88 VALUE 'NP '. DTSNH104
00072 88 X104-ORG-OTH-NON-GOV-88 VALUE 'ONG'. DTSNH104
00073 88 X104-ORG-UNINC-ASSOC-88 VALUE 'UNA'. CL*14
00074 88 X104-ORG-FED-IND-TRIBE-88 VALUE 'FIT'. CL*14
00075 88 X104-ORG-OTH-88 VALUE 'OTH'. CL*14
00076 88 X104-ORG-STATE-88 VALUE 'ST'. DTSNH104
00077 88 X104-ORG-COUNTY-88 VALUE 'CO '. DTSNH104
00078 88 X104-ORG-CITY-88 VALUE 'CTY'. DTSNH104
00079 88 X104-ORG-SCHOOL-DISTRICT-88 VALUE 'SCH'. DTSNH104
00080 88 X104-ORG-FORGN-GOV-88 VALUE 'FG '. DTSNH104
00081 88 X104-ORG-OTH-GOV-88 VALUE 'OG '. DTSNH104
00082 88 X104-ORG-UNKNOWN-88 VALUE 'UNK'. CL*11
00083 88 X104-ORG-TYPE-VALID-88 VALUE DTSNH104
00084 'S ', 'P ', 'LLC', 'LLP', 'C ', 'SC ', DTSNH104
00085 'H ', 'NP ', 'ONG', 'ST ', 'CO ', 'CTY', DTSNH104
00086 'SCH', 'FG ', 'OG ', 'J ', 'TB ', 'R ', CL*13
00087 'ASS', 'TP ', 'UNK', 'UNA', 'FIT', 'OTH'. CL*14
00088 15 FILLER PIC X(01) VALUE ','. DTSNH104
00089 15 X104-INCORP-STATE PIC X(02). DTSNH104
00090 15 FILLER PIC X(01) VALUE ','. DTSNH104
00091 15 X104-INCORP-DATE PIC X(10). DTSNH104
00092 15 FILLER PIC X(01) VALUE ','. DTSNH104
00093 15 X104-HOUSEHOLD-FILING PIC X(01). DTSNH104
00094 88 X104-HH-ANNUAL-88 VALUE 'A'. DTSNH104
00095 88 X104-HH-QUARTERLY-88 VALUE 'Q'. DTSNH104
00096 15 FILLER PIC X(01) VALUE ','. DTSNH104
00097 15 X104-FIRST-WAGE-DT PIC X(10). DTSNH104
00098 15 FILLER PIC X(01) VALUE ','. DTSNH104
00099 15 X104-FIRST-500-QTR PIC X(06). DTSNH104
00100 15 FILLER PIC X(01) VALUE ','. DTSNH104
00101 15 X104-ACQUIRE-IND PIC X(01). DTSNH104
00102 88 X104-ACQUIRE-YES-88 VALUE 'Y'. CL**2
00103 88 X104-ACQUIRE-NO-88 VALUE 'N'. CL**2
00104 15 FILLER PIC X(01) VALUE ','. DTSNH104
00105 15 X104-MERGER-SPLIT-IND PIC X(01). DTSNH104
00106 88 X104-MERGE-SPLIT-YES-88 VALUE 'Y'. CL**2
00107 88 X104-MERGE-SPLIT-NO-88 VALUE 'N'. CL**2
00108 15 FILLER PIC X(01) VALUE ','. DTSNH104
00109 15 X104-REORG-IND PIC X(01). DTSNH104
00110 88 X104-REORG-YES-88 VALUE 'Y'. CL**2
00111 88 X104-REORG-NO-88 VALUE 'N'. CL**2
00112 15 FILLER PIC X(01) VALUE ','. DTSNH104
00113 15 X104-COMMON-OWN-IND PIC X(01). DTSNH104
00114 88 X104-COMMON-OWN-YES-88 VALUE 'Y'. CL**2
00115 88 X104-COMMON-OWN-NO-88 VALUE 'N'. CL**2
00116 15 FILLER PIC X(01) VALUE ','. DTSNH104
00117 15 X104-SALE-TRANSFER-IND PIC X(01). DTSNH104
00118 88 X104-SALE-TRANSFER-YES-88 VALUE 'Y'. CL**2
00119 88 X104-SALE-TRANSFER-NO-88 VALUE 'N'. CL**2
00120 15 FILLER PIC X(01) VALUE ','. DTSNH104
00121 15 X104-NOT-LIAB-REASON PIC X(01). CL*16
00122 88 X104-NOT-LIAB-NULL-88 VALUE '0'. DTSNH104
00123 88 X104-NOT-LIAB-BUS-ACT-88 VALUE '1'. DTSNH104
00124 88 X104-NOT-LIAB-NO-EMPL-88 VALUE '2'. DTSNH104
00125 88 X104-NOT-LIAB-NO-WAGES-88 VALUE '3'. DTSNH104
00126 88 X104-NOT-LIAB-LOCALIZE-88 VALUE '4'. DTSNH104
00127 88 X104-NOT-LIAB-VALID-88 VALUES DTSNH104
00128 '0' '1' '2' '3' '4'. DTSNH104
00129 15 FILLER PIC X(01) VALUE ','. CL*12
00130 15 X104-INACTIVE-DATE PIC X(10). CL*12
00131 15 FILLER PIC X(01) VALUE ','. CL*15
00132 15 X104-INACTIVE-CODE PIC X(02). CL*16

62
Copybook/DTSWX120 (2).cpy Normal file
View File

@ -0,0 +1,62 @@
00001 ***** 03/25/15
00002 * DTSWX120
00003 * DTSWX120 EMPLOYER OWNER/PARNTER-OFFICER EXTRACT RECORD. LV005
00004 * DTSWX120
00005 * EXCHANGES OWNER/PARTNER/OFFICER DATA BETWEEN MAINFRAME AND DTSWX120
00006 * SQL SERVER DATABASE. DTSWX120
00007 * DTSWX120
00008 * 11-10-14 ESSP IS PASSING COMMAS IN ADDRESS FIELDS, OUR CL**2
00009 * DELIMITER IN BX205 IS A COMMA FIELDS ARE BEING CL**2
00010 * CUTOFF, TO FIX PROBLEM DO NOT CALL BX205 FOR CL**2
00011 * ADDRESSES. MODIFIED W120 RECORD TO PASS ONLY CL**4
00012 * SIZE NEEDED FROM ESSP TO X120 ZL1 CL**4
00013 ***** DTSWX120
00014 DTSWX120
00015 15 W120-REC-TYPE PIC X(03) VALUE '120'. CL**4
00016 15 FILLER PIC X(01) VALUE ','. DTSWX120
00017 15 W120-EMP-NO PIC 9(06). CL**4
00018 15 FILLER PIC X(01) VALUE ','. DTSWX120
00019 15 W120-TYPE-IND PIC X(02). CL**4
00020 88 W120-TYPE-OPO-88 VALUE '00'. CL**4
00021 88 W120-TYPE-RPT-BSNS-88 VALUE '03'. CL**4
00022 88 W120-TYPE-RPT-TECH-88 VALUE '04'. CL**4
00023 88 W120-TYPE-FR500-88 VALUE '05'. CL**4
00024 88 W120-TYPE-CHARGE-88 VALUE '06'. CL**4
00025 88 W120-TYPE-BENEFITS-88 VALUE '07'. CL**4
00026 88 W120-TYPE-STATUS-88 VALUE '08'. CL**4
00027 15 FILLER PIC X(01) VALUE ','. DTSWX120
00028 15 W120-OPO-ESSP-FNAME. CL**4
00029 25 W120-OPO-FIRST-NAME PIC X(20). CL**4
00030 25 W120-OPO-FIRST-FILLER PIC X(20). CL**4
00031 15 FILLER PIC X(01) VALUE ','. DTSWX120
00032 15 W120-OPO-MID-INIT PIC X(01). CL**4
00033 15 FILLER PIC X(01) VALUE ','. DTSWX120
00034 15 W120-OPO-ESSP-LNAME. CL**4
00035 25 W120-OPO-LAST-NAME PIC X(20). CL**4
00036 25 W120-OPO-LAST-FILLER PIC X(20). CL**4
00037 15 FILLER PIC X(01) VALUE ','. DTSWX120
00038 15 W120-OPO-MEMBER-NAME PIC X(40). CL**4
00039 15 FILLER PIC X(01) VALUE ','. DTSWX120
00040 15 W120-OPO-SSN PIC X(09). CL**4
00041 15 FILLER PIC X(01) VALUE ','. DTSWX120
00042 15 W120-OPO-TITLE PIC X(40). CL**4
00043 15 FILLER PIC X(01) VALUE ','. DTSWX120
00044 15 W120-OPO-ATTENTION PIC X(40). CL**4
00045 15 FILLER PIC X(01) VALUE ','. DTSWX120
00046 15 W120-OPO-STREET-1 PIC X(40). CL**4
00047 15 FILLER PIC X(01) VALUE ','. DTSWX120
00048 15 W120-OPO-STREET-2 PIC X(40). CL**4
00049 15 FILLER PIC X(01) VALUE ','. DTSWX120
00050 15 W120-OPO-ESSP-CITY. CL**4
00051 25 W120-OPO-CITY PIC X(20). CL**4
00052 25 W120-OPO-CITY-FILLER PIC X(05). CL**4
00053 15 FILLER PIC X(01) VALUE ','. DTSWX120
00054 15 W120-OPO-STATE PIC X(02). CL**4
00055 15 FILLER PIC X(01) VALUE ','. DTSWX120
00056 15 W120-OPO-ZIP PIC X(10). CL**4
00057 15 FILLER PIC X(01) VALUE ','. DTSWX120
00058 15 W120-OPO-PHONE PIC X(15). CL**4
00059 15 FILLER PIC X(01) VALUE ','. DTSWX120
00060 15 W120-OPO-FAX PIC X(16). CL**5
00061 15 FILLER PIC X(01) VALUE ','. DTSWX120
00062 15 W120-OPO-EMAIL PIC X(40). CL**4

5
Copybook/WSDATES (2).cpy Normal file
View File

@ -0,0 +1,5 @@
00001 01 WS-SYSTEM-DATE-TIME. 04/29/04
00002 05 WS-SYSTEM-DATE PIC 9(06). WSDATES
00003 05 WS-SYSTEM-TIME PIC 9(08). LV001
00004 05 WS-SYSTEM-DAY PIC 9(05). WSDATES
00005 05 WS-SYSTEM-DOW PIC 9(01). WSDATES