MP Batchs, copybooks, jcls, Procs
This commit is contained in:
132
Copybook/DTSNH104.cpy
Normal file
132
Copybook/DTSNH104.cpy
Normal 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
|
||||
Reference in New Issue
Block a user