DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
29
Copybook/BARIL001.cpy
Normal file
29
Copybook/BARIL001.cpy
Normal file
@ -0,0 +1,29 @@
|
||||
00001 ***** 04/07/02
|
||||
00002 * BARIL001
|
||||
00003 * BARIL001 FORMAT BARCODE DATA. LV001
|
||||
00004 * BARIL001
|
||||
00005 ***** BARIL001
|
||||
00006 SKIP1 BARIL001
|
||||
00007 10 L001-REC-LENGTH PIC 9(04) COMP. BARIL001
|
||||
00008 SKIP1 BARIL001
|
||||
00009 10 L001-SYSTEM PIC X(03). BARIL001
|
||||
00010 88 L001-SYSTEM-TAX VALUE 'TAX'. BARIL001
|
||||
00011 88 L001-SYSTEM-CHK VALUE 'CHK'. BARIL001
|
||||
00012 88 L001-SYSTEM-SYP VALUE 'SYP'. BARIL001
|
||||
00013 88 L001-SYSTEM-BEN VALUE 'BEN'. BARIL001
|
||||
00014 SKIP1 BARIL001
|
||||
00015 10 L001-INPUT-DATA PIC X(40). BARIL001
|
||||
00016 SKIP1 BARIL001
|
||||
00017 10 L001-BARCODED-DATA PIC X(50). BARIL001
|
||||
00018 SKIP1 BARIL001
|
||||
00019 10 L001-FONT-FORMAT-USED PIC X(02). BARIL001
|
||||
00020 88 L001-SETB-FONT1 VALUE 'B1'. BARIL001
|
||||
00021 88 L001-SETB-FONT2 VALUE 'B2'. BARIL001
|
||||
00022 88 L001-SETB-FONT3 VALUE 'B3'. BARIL001
|
||||
00023 88 L001-SETC-FONT2 VALUE 'C2'. BARIL001
|
||||
00024 SKIP1 BARIL001
|
||||
00025 10 L001-DATA-CONVERTED PIC 9(01). BARIL001
|
||||
00026 88 L001-CONVERTED-NORMAL VALUE 0. BARIL001
|
||||
00027 88 L001-NOT-CONVERTED VALUE 1. BARIL001
|
||||
00028 SKIP1 BARIL001
|
||||
00029 10 FILLER PIC X(50). BARIL001
|
||||
29
Copybook/BARIL599.cpy
Normal file
29
Copybook/BARIL599.cpy
Normal file
@ -0,0 +1,29 @@
|
||||
00001 ***** 03/26/13
|
||||
00002 * BARIL599
|
||||
00003 * BARIL599 FORMAT BARCODE DATA. LV001
|
||||
00004 * BARIL599
|
||||
00005 ***** BARIL599
|
||||
00006 SKIP1 BARIL599
|
||||
00007 10 L599-REC-LENGTH PIC 9(04) COMP. BARIL599
|
||||
00008 SKIP1 BARIL599
|
||||
00009 10 L599-SYSTEM PIC X(03). BARIL599
|
||||
00010 88 L599-SYSTEM-TAX VALUE 'TAX'. BARIL599
|
||||
00011 88 L599-SYSTEM-CHK VALUE 'CHK'. BARIL599
|
||||
00012 88 L599-SYSTEM-SYP VALUE 'SYP'. BARIL599
|
||||
00013 88 L599-SYSTEM-BEN VALUE 'BEN'. BARIL599
|
||||
00014 SKIP1 BARIL599
|
||||
00015 10 L599-INPUT-DATA PIC X(40). BARIL599
|
||||
00016 SKIP1 BARIL599
|
||||
00017 10 L599-BARCODED-DATA PIC X(50). BARIL599
|
||||
00018 SKIP1 BARIL599
|
||||
00019 10 L599-FONT-FORMAT-USED PIC X(02). BARIL599
|
||||
00020 88 L599-SETB-FONT1 VALUE 'B1'. BARIL599
|
||||
00021 88 L599-SETB-FONT2 VALUE 'B2'. BARIL599
|
||||
00022 88 L599-SETB-FONT3 VALUE 'B3'. BARIL599
|
||||
00023 88 L599-SETC-FONT2 VALUE 'C2'. BARIL599
|
||||
00024 SKIP1 BARIL599
|
||||
00025 10 L599-DATA-CONVERTED PIC 9(01). BARIL599
|
||||
00026 88 L599-CONVERTED-NORMAL VALUE 0. BARIL599
|
||||
00027 88 L599-NOT-CONVERTED VALUE 1. BARIL599
|
||||
00028 SKIP1 BARIL599
|
||||
00029 10 FILLER PIC X(50). BARIL599
|
||||
235
Copybook/CHGIC001.cpy
Normal file
235
Copybook/CHGIC001.cpy
Normal file
@ -0,0 +1,235 @@
|
||||
00001 ***** 12/03/09
|
||||
00002 * CHGIC001
|
||||
00003 * CHGIC001 FISCAL AGENT NAMES AND CODES. LV021
|
||||
00004 * CHGIC001
|
||||
00005 * NOTE: THE FRICK COMPANY TURNED INTO CHGIC001
|
||||
00006 * TALX UCM Services, Inc./UC eXpress (07/02) CHGIC001
|
||||
00007 * CHGIC001
|
||||
00008 * CHGIC001
|
||||
00009 * NOTE: GATES MCDONALD TURNED INTO CHGIC001
|
||||
00010 * TALX UCM Services East, Inc./UC eXpress (07/02) CHGIC001
|
||||
00011 * CHGIC001
|
||||
00012 ***** CHGIC001
|
||||
00013 CHGIC001
|
||||
00014 10 FISCAL-AGENT-TABLE. CHGIC001
|
||||
00015 *** **01 CHGIC001
|
||||
00016 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00017 'ADP'. CHGIC001
|
||||
00018 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00019 'ADP CALIFORNIA '. CHGIC001
|
||||
00020 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00021 'ADV'. CHGIC001
|
||||
00022 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00023 'ADVANTAGE BUSINESS SERVICE '. CHGIC001
|
||||
00024 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00025 'BA '. CHGIC001
|
||||
00026 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00027 'BANK OF AMERICA '. CHGIC001
|
||||
00028 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00029 'BAR'. CHGIC001
|
||||
00030 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00031 'BARNETT ASSOC. '. CHGIC001
|
||||
00032 *** **05 CHGIC001
|
||||
00033 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00034 'CD '. CHGIC001
|
||||
00035 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00036 'CONTROL DATA '. CHGIC001
|
||||
00037 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00038 'CER'. CHGIC001
|
||||
00039 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00040 'CERIDIAN '. CHGIC001
|
||||
00041 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00042 'CIT'. CHGIC001
|
||||
00043 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00044 'CITADEL '. CHGIC001
|
||||
00045 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00046 'EU '. CHGIC001
|
||||
00047 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00048 'EMPLOYERS UNITY, INC '. CHGIC001
|
||||
00049 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00050 'FP '. CHGIC001
|
||||
00051 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00052 'FIRST PAY '. CHGIC001
|
||||
00053 *** **10 CHGIC001
|
||||
00054 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00055 'GM '. CHGIC001
|
||||
00056 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00057 'GATESMCDONALD '. CHGIC001
|
||||
00058 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00059 'JF '. CHGIC001
|
||||
00060 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00061 'FRICK COMPANY '. CHGIC001
|
||||
00062 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00063 'JJ '. CHGIC001
|
||||
00064 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00065 'JON JAY ASSOC. '. CHGIC001
|
||||
00066 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00067 'PA '. CHGIC001
|
||||
00068 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00069 'PAY AMERICA '. CHGIC001
|
||||
00070 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00071 'PB '. CHGIC001
|
||||
00072 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00073 'PRO BUSINESS '. CHGIC001
|
||||
00074 *** **15 CHGIC001
|
||||
00075 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00076 'PC '. CHGIC001
|
||||
00077 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00078 'PAYCHEX '. CHGIC001
|
||||
00079 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00080 'PP '. CHGIC001
|
||||
00081 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00082 'PRIME PAY '. CHGIC001
|
||||
00083 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00084 'REH'. CHGIC001
|
||||
00085 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00086 'R E HARRINGTON '. CHGIC001
|
||||
00087 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00088 'SC '. CHGIC001
|
||||
00089 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00090 'STAFF CONSULTANTS '. CHGIC001
|
||||
00091 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00092 'STS'. CHGIC001
|
||||
00093 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00094 'STS '. CHGIC001
|
||||
00095 *** **20 CHGIC001
|
||||
00096 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00097 'TA '. CHGIC001
|
||||
00098 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00099 'TALX UCM Services, Inc./UC eXpress '. CHGIC001
|
||||
00100 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00101 'TAE'. CHGIC001
|
||||
00102 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00103 'TALX UCM Services East, Inc./UC eXp'. CHGIC001
|
||||
00104 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00105 'UC '. CHGIC001
|
||||
00106 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00107 'UC CONSULTANTS '. CHGIC001
|
||||
00108 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00109 'ADA'. CHGIC001
|
||||
00110 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00111 'CORPORATE PAYROLL SERVICES '. CHGIC001
|
||||
00112 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00113 'PER'. CHGIC001
|
||||
00114 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00115 'PERQUEST '. CHGIC001
|
||||
00116 *** ' '. **25 CHGIC001
|
||||
00117 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00118 'PAI'. CHGIC001
|
||||
00119 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00120 'PAY CHOICE '. CHGIC001
|
||||
00121 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00122 ' '. CHGIC001
|
||||
00123 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00124 ' '. CHGIC001
|
||||
00125 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00126 ' '. CHGIC001
|
||||
00127 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00128 ' '. CHGIC001
|
||||
00129 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00130 ' '. CHGIC001
|
||||
00131 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00132 ' '. CHGIC001
|
||||
00133 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00134 ' '. CHGIC001
|
||||
00135 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00136 ' '. CHGIC001
|
||||
00137 *** **30 CHGIC001
|
||||
00138 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00139 ' '. CHGIC001
|
||||
00140 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00141 ' '. CHGIC001
|
||||
00142 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00143 ' '. CHGIC001
|
||||
00144 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00145 ' '. CHGIC001
|
||||
00146 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00147 ' '. CHGIC001
|
||||
00148 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00149 ' '. CHGIC001
|
||||
00150 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00151 ' '. CHGIC001
|
||||
00152 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00153 ' '. CHGIC001
|
||||
00154 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00155 ' '. CHGIC001
|
||||
00156 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00157 ' '. CHGIC001
|
||||
00158 *** **35 CHGIC001
|
||||
00159 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00160 ' '. CHGIC001
|
||||
00161 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00162 ' '. CHGIC001
|
||||
00163 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00164 ' '. CHGIC001
|
||||
00165 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00166 ' '. CHGIC001
|
||||
00167 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00168 ' '. CHGIC001
|
||||
00169 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00170 ' '. CHGIC001
|
||||
00171 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00172 ' '. CHGIC001
|
||||
00173 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00174 ' '. CHGIC001
|
||||
00175 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00176 ' '. CHGIC001
|
||||
00177 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00178 ' '. CHGIC001
|
||||
00179 *** **40 CHGIC001
|
||||
00180 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00181 ' '. CHGIC001
|
||||
00182 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00183 ' '. CHGIC001
|
||||
00184 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00185 ' '. CHGIC001
|
||||
00186 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00187 ' '. CHGIC001
|
||||
00188 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00189 ' '. CHGIC001
|
||||
00190 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00191 ' '. CHGIC001
|
||||
00192 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00193 ' '. CHGIC001
|
||||
00194 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00195 ' '. CHGIC001
|
||||
00196 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00197 ' '. CHGIC001
|
||||
00198 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00199 ' '. CHGIC001
|
||||
00200 *** **45 CHGIC001
|
||||
00201 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00202 ' '. CHGIC001
|
||||
00203 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00204 ' '. CHGIC001
|
||||
00205 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00206 ' '. CHGIC001
|
||||
00207 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00208 ' '. CHGIC001
|
||||
00209 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00210 ' '. CHGIC001
|
||||
00211 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00212 ' '. CHGIC001
|
||||
00213 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00214 ' '. CHGIC001
|
||||
00215 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00216 ' '. CHGIC001
|
||||
00217 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00218 ' '. CHGIC001
|
||||
00219 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00220 ' '. CHGIC001
|
||||
00221 *** **50 CHGIC001
|
||||
00222 15 FILLER PIC X(03) VALUE CHGIC001
|
||||
00223 ' '. CHGIC001
|
||||
00224 15 FILLER PIC X(35) VALUE CHGIC001
|
||||
00225 ' '. CHGIC001
|
||||
00226 CHGIC001
|
||||
00227 10 FILLER REDEFINES FISCAL-AGENT-TABLE CHGIC001
|
||||
00228 OCCURS 50 TIMES CHGIC001
|
||||
00229 INDEXED BY FISCAL-AGENT-IDX. CHGIC001
|
||||
00230 15 FISCAL-AGENT-CODE PIC X(03). CHGIC001
|
||||
00231 15 FISCAL-AGENT-NAME PIC X(35). CHGIC001
|
||||
00232 CHGIC001
|
||||
00233 10 FISCAL-AGENT-CNT PIC S9(04) COMP CHGIC001
|
||||
00234 VALUE +50. CHGIC001
|
||||
00235 **** CHGIC001
|
||||
25
Copybook/CHGIL001.cpy
Normal file
25
Copybook/CHGIL001.cpy
Normal file
@ -0,0 +1,25 @@
|
||||
00001 ***** 06/23/04
|
||||
00002 * CHGIL001
|
||||
00003 * CHGIL001 CHARGE PRINT LINKAGE LV036
|
||||
00004 * CHGIL001
|
||||
00005 * CHGIL001
|
||||
00006 * CHGIL001
|
||||
00007 ***** CHGIL001
|
||||
00008 10 CHG-LINK1-COMMAND PIC X(01). CHGIL001
|
||||
00009 88 CHG-LINK1-CMD-INIT-88 VALUE 'I'. CHGIL001
|
||||
00010 88 CHG-LINK1-CMD-PROCESS-88 VALUE 'P'. CHGIL001
|
||||
00011 88 CHG-LINK1-CMD-CLOSE-88 VALUE 'C'. CHGIL001
|
||||
00012 10 CHG-LINK1-PERIOD-BEGIN PIC S9(08) COMP-3. CHGIL001
|
||||
00013 10 CHG-LINK1-PERIOD-END PIC S9(08) COMP-3. CHGIL001
|
||||
00014 10 CHG-LINK1-RUN-TYPE PIC X(03). CHGIL001
|
||||
00015 88 CHG-LINK1-RUN-TYPE-QTRLY-88 VALUE 'QTR'. CHGIL001
|
||||
00016 88 CHG-LINK1-RUN-TYPE-ANN-88 VALUE 'ANN'. CHGIL001
|
||||
00017 88 CHG-LINK1-RUN-TYPE-EMP-88 VALUE 'EMP'. CHGIL001
|
||||
00018 88 CHG-LINK1-RUN-TYPE-RPTS-88 VALUE 'RPT'. CHGIL001
|
||||
00019 88 CHG-LINK1-RUN-TYPE-AGTS-88 VALUE 'AGT'. CHGIL001
|
||||
00020 88 CHG-LINK1-RUN-TYPE-SPC-88 VALUE 'EMP' 'MNE'. CHGIL001
|
||||
00021 10 CHG-LINK1-SELF-INS-STEP PIC X(01). CHGIL001
|
||||
00022 88 CHG-LINK1-SELF-INS-STEP1-88 VALUE '1'. CHGIL001
|
||||
00023 88 CHG-LINK1-SELF-INS-STEP2-88 VALUE '2'. CHGIL001
|
||||
00024 CHGIL001
|
||||
00025 10 CHG-LINK1-FILLER PIC X(65). CHGIL001
|
||||
23
Copybook/CHGIL030.cpy
Normal file
23
Copybook/CHGIL030.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
00001 ***** 02/26/03
|
||||
00002 * CHGIL030
|
||||
00003 * CHGIL030 TOTAL BENEFITS PAID LINKAGE LV003
|
||||
00004 * CHGIL030
|
||||
00005 * CHGIL030
|
||||
00006 * CHGIL030
|
||||
00007 ***** CHGIL030
|
||||
00008 10 CG-L030-COMMAND PIC X(01). CHGIL030
|
||||
00009 88 CG-L030-CMND-INIT-88 VALUE '0'. CHGIL030
|
||||
00010 88 CG-L030-CMND-PROCESS-88 VALUE '1'. CHGIL030
|
||||
00011 88 CG-L030-CMND-TERM-88 VALUE '2'. CHGIL030
|
||||
00012 CHGIL030
|
||||
00013 10 CG-L030-INPUT. CHGIL030
|
||||
00014 15 CG-L030-SSN PIC 9(09). CHGIL030
|
||||
00015 15 CG-L030-START-DATE PIC S9(09) COMP-3. CHGIL030
|
||||
00016 15 CG-L030-END-DATE PIC S9(09) COMP-3. CHGIL030
|
||||
00017 15 CG-L030-BYE PIC S9(09) COMP-3. CHGIL030
|
||||
00018 15 CG-L030-PROGRAM PIC X(01). CHGIL030
|
||||
00019 CHGIL030
|
||||
00020 10 CG-L030-RETURN. CHGIL030
|
||||
00021 15 CG-L030-TOT-CHG PIC S9(11)V99 COMP-3. CHGIL030
|
||||
00022 CHGIL030
|
||||
00023 10 FILLER PIC X(66). CHGIL030
|
||||
24
Copybook/CHGIL100.cpy
Normal file
24
Copybook/CHGIL100.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
00001 ***** 07/05/02
|
||||
00002 * CHGIL100
|
||||
00003 * CHGIL100 EMPLOYER MASTER FILE EDIT LINKAGE LV005
|
||||
00004 * CHGIL100
|
||||
00005 * CHGIL100
|
||||
00006 * CHGIL100
|
||||
00007 ***** CHGIL100
|
||||
00008 10 L100-REQUEST-AREA. CHGIL100
|
||||
00009 15 L100-EMP-NO PIC S9(07) COMP-3. CHGIL100
|
||||
00010 15 L100-EXP-TRN-EFF-DATE PIC S9(09) COMP-3. CHGIL100
|
||||
00011 CHGIL100
|
||||
00012 10 L100-RETURN-AREA. CHGIL100
|
||||
00013 15 L100-RETURN-CODE PIC X(02). CHGIL100
|
||||
00014 88 L100-OK-88 VALUE '00'. CHGIL100
|
||||
00015 88 L100-NO-REC-FOUND-88 VALUE '01'. CHGIL100
|
||||
00016 88 L100-POOL-ACCT-88 VALUE '02'. CHGIL100
|
||||
00017 15 L100-EMP-TYPE PIC 9(02). CHGIL100
|
||||
00018 88 L100-EMP-TYPE-NULL-88 VALUE 99. CHGIL100
|
||||
00019 88 L100-NOT-LIABLE-88 VALUE 13. CHGIL100
|
||||
00020 15 L100-FISCAL-AGENT-CD PIC X(03). CHGIL100
|
||||
00021 15 L100-PRIMARY-NAME PIC X(40). CHGIL100
|
||||
00022 15 L100-SUCCESSOR PIC S9(07) COMP-3. CHGIL100
|
||||
00023 CHGIL100
|
||||
00024 10 L100-FILLER PIC X(60). CHGIL100
|
||||
85
Copybook/CHGIM001.cpy
Normal file
85
Copybook/CHGIM001.cpy
Normal file
@ -0,0 +1,85 @@
|
||||
00001 ***** 02/26/24
|
||||
00002 * CHGIM001
|
||||
00003 * CHGIM001 CHARGE RECORD PRODUCED IN CHGBD100. LV023
|
||||
00004 * CHGIM001
|
||||
00005 * THE DATA IN THIS RECORD IS BASED ON DATA IN ESPRPT04. CHGIM001
|
||||
00006 * CHG1-CHARGE-PROGRAM IS DERIVED FROM CHARGE-SUPP-CODE CHGIM001
|
||||
00007 * IN THE DUCAS VERSION OF THE RECORD. IF A NEW BENEFIT CHGIM001
|
||||
00008 * PROGRAM IS ESTABLISHED, ADD A NEW LEVEL-88 AND MODIFY CHGIM001
|
||||
00009 * THE CODE IN CHGBD100 P1500. CHGIM001
|
||||
00010 * CHGIM001
|
||||
00011 * 03/05/2009 CHANGED CHG1-CHARGE-PROGRAM FROM NUMERIC CHGIM001
|
||||
00012 * TO CHARACTER. CHGIM001
|
||||
00013 * ADDED LEVEL-88 FOR FED ADDITIONAL COMP - GD CHGIM001
|
||||
00014 * CHGIM001
|
||||
00015 * 08/05/2009 ADDED LEVEL-88 FOR TRAINING EXTENSION CHGIM001
|
||||
00016 * ADDITIONAL BENEFITS, DEPENDENT ALLOWANCE - GD CHGIM001
|
||||
00017 * CHGIM001
|
||||
00018 * 11/17/2009 ADDED LEVEL-88 FOR EUC 2008 TIERS 3 AND 4 - GD CHGIM001
|
||||
00019 * CHGIM001
|
||||
00020 * 03/31/2010 ADDED LEVEL-88 FOR SPECIAL PAYMENTS - GD CHGIM001
|
||||
00021 * 03/18/2013 ADDED LEVEL-88 FOR STC - GD CHGIM001
|
||||
00022 * 09/25/2014 CHANGED STC TO UCPIA - ZL1 CHGIM001
|
||||
00023 * 03/25/2015 ADDED DUA - ZL1 CL**4
|
||||
00024 * 03/25/2016 ADDED GPA - ZL1 CL**4
|
||||
00025 * 04/03/2020 ADDED PUA FPUC FRUR PEUC - ZL1 CL**4
|
||||
00026 * 09/18/2020 ADDED LWA LOST WAGES ASSISTANCE 5033 - ZL1 CL*14
|
||||
00027 * 12/08/2020 ADDED PUA STIMULUS 5034 CODE 37 - ZL1 CL*16
|
||||
00028 * 12/15/2021 ADDED DUC 5036 CODE 39 - ZL1 CL*20
|
||||
00029 * CHGIM001
|
||||
00030 ***** CHGIM001
|
||||
00031 CHGIM001
|
||||
00032 10 CHG1-SORT-KEY-AREA. CHGIM001
|
||||
00033 15 CHG1-SSN PIC S9(10) COMP-3. CHGIM001
|
||||
00034 15 CHG1-BYE PIC S9(09) COMP-3. CHGIM001
|
||||
00035 15 CHG1-EMP-NO PIC S9(07) COMP-3. CHGIM001
|
||||
00036 15 CHG1-KEY-FILLER PIC X(01). CHGIM001
|
||||
00037 CHGIM001
|
||||
00038 10 CHG1-DATA-AREA. CHGIM001
|
||||
00039 15 CHG1-CHARGE-DATE PIC S9(09) COMP-3. CHGIM001
|
||||
00040 15 CHG1-CHARGE-CODE PIC 9(01). CHGIM001
|
||||
00041 88 CHG1-CHARGE-ADJ VALUE 3. CHGIM001
|
||||
00042 88 CHG1-CHARGE-BEN VALUE 4. CHGIM001
|
||||
00043 88 CHG1-CHARGE-OP-ESTABLISH VALUE 5. CHGIM001
|
||||
00044 88 CHG1-CHARGE-OP-RECOUP VALUE 6. CHGIM001
|
||||
00045 88 CHG1-CHARGE-IB6 VALUE 7. CHGIM001
|
||||
00046 88 CHG1-CHARGE-OP-WAIVER VALUE 8. CHGIM001
|
||||
00047 88 CHG1-CHARGE-OTHER VALUE 9. CHGIM001
|
||||
00048 88 CHG1-CHARGE-ALL-ADJ VALUE 3, 6, CL*23
|
||||
00049 7, 8, 9. CHGIM001
|
||||
00050 15 CHG1-CHARGE-PROGRAM PIC X(01). CL*19
|
||||
00051 88 CHG1-CHARGE-PROG-UI VALUE '1'. CHGIM001
|
||||
00052 88 CHG1-CHARGE-PROG-EB VALUE '2'. CHGIM001
|
||||
00053 88 CHG1-CHARGE-PROG-TEUC VALUE '3'. CHGIM001
|
||||
00054 88 CHG1-CHARGE-PROG-TEUCA VALUE '4'. CHGIM001
|
||||
00055 88 CHG1-CHARGE-PROG-FAC VALUE '5'. CHGIM001
|
||||
00056 88 CHG1-CHARGE-PROG-FSB VALUE '6'. CHGIM001
|
||||
00057 88 CHG1-CHARGE-PROG-FSC VALUE '7'. CHGIM001
|
||||
00058 88 CHG1-CHARGE-PROG-DUA VALUE '8'. CHGIM001
|
||||
00059 88 CHG1-CHARGE-PROG-TR2 VALUE '9'. CHGIM001
|
||||
00060 88 CHG1-CHARGE-PROG-TRA VALUE '0'. CHGIM001
|
||||
00061 88 CHG1-CHARGE-PROG-STEPLDR VALUE 'A'. CHGIM001
|
||||
00062 88 CHG1-CHARGE-PROG-AB VALUE 'B'. CHGIM001
|
||||
00063 88 CHG1-CHARGE-PROG-TRAINING VALUE 'C'. CL*12
|
||||
00064 88 CHG1-CHARGE-PROG-DEPENDENTS VALUE 'D'. CHGIM001
|
||||
00065 88 CHG1-CHARGE-PROG-EUC08-2PLUS VALUE 'E'. CHGIM001
|
||||
00066 88 CHG1-CHARGE-PROG-EUC08TR3 VALUE 'F'. CHGIM001
|
||||
00067 88 CHG1-CHARGE-PROG-EUC08TR4 VALUE 'G'. CHGIM001
|
||||
00068 88 CHG1-CHARGE-PROG-SPECIAL-PAY VALUE 'H'. CHGIM001
|
||||
00069 88 CHG1-CHARGE-PROG-UCPIA-88 VALUE 'I'. CHGIM001
|
||||
00070 88 CHG1-CHARGE-PROG-GPA-88 VALUE 'J'. CL**4
|
||||
00071 88 CHG1-CHARGE-PROG-PUA-88 VALUE 'U'. CL**6
|
||||
00072 88 CHG1-CHARGE-PROG-FPUC-88 VALUE 'L'. CL**5
|
||||
00073 88 CHG1-CHARGE-PROG-FRUR-88 VALUE 'M'. CL**4
|
||||
00074 88 CHG1-CHARGE-PROG-PEUC-88 VALUE 'N'. CL*13
|
||||
00075 88 CHG1-CHARGE-PROG-REUR-88 VALUE 'Y'. CL*11
|
||||
00076 88 CHG1-CHARGE-PROG-LWA-88 VALUE 'X'. CL*15
|
||||
00077 88 CHG1-CHARGE-PROG-MEUC-88 VALUE 'V'. CL*21
|
||||
00078 88 CHG1-CHARGE-PROG-PUA-STIM-88 VALUE 'R'. CL*18
|
||||
00079 88 CHG1-CHARGE-PROG-DUC-88 VALUE 'U'. CL*22
|
||||
00080 15 CHG1-CHARGE-PAY-TYPE PIC X(01). CHGIM001
|
||||
00081 88 CHG1-CHARGE-PAY-OP-RECOUP VALUE '8'. CHGIM001
|
||||
00082 15 CHG1-CHARGE-NAME PIC X(32). CHGIM001
|
||||
00083 15 CHG1-CHARGE-EMP-TYPE PIC 9(02). CHGIM001
|
||||
00084 15 CHG1-CHARGE-CURR-AMT PIC S9(08)V99 COMP-3. CHGIM001
|
||||
00085 15 CHG1-DATA-FILLER PIC X(40). CHGIM001
|
||||
124
Copybook/CHGIM002.cpy
Normal file
124
Copybook/CHGIM002.cpy
Normal file
@ -0,0 +1,124 @@
|
||||
00001 ***** 05/25/22
|
||||
00002 * CHGIM002
|
||||
00003 * CHGIM002 DAILY BENEFIT CHARGE DATA LV021
|
||||
00004 * THIS RECORD CONTAINS BENEFIT CHARGE DATA CHGIM002
|
||||
00005 * ACCUMULATED BY DATE/EMPLOYER/SS/BYE/BENEFIT PROGRAMCHGIM002
|
||||
00006 * CHGIM002
|
||||
00007 * 03/05/2009 CHANGED CHG1-CHARGE-PROGRAM FROM NUMERIC CHGIM002
|
||||
00008 * TO CHARACTER. CHGIM002
|
||||
00009 * ADDED LEVEL-88 FOR FED ADDITIONAL COMP - GD CHGIM002
|
||||
00010 * CHGIM002
|
||||
00011 * 08/05/2009 ADDED LEVEL-88 FOR TRAINING, DEPENDENTS CHGIM002
|
||||
00012 * AND AB ZL1 CHGIM002
|
||||
00013 * CHGIM002
|
||||
00014 * 11/17/2009 ADDED LEVEL-88 FOR EUC 2008 TIERS 3 AND 4 - GD CHGIM002
|
||||
00015 * CHGIM002
|
||||
00016 * 03/31/2010 ADDED LEVEL-88 FOR SPECIAL PAYMENTS - GD CHGIM002
|
||||
00017 * 03/31/2010 ADDED LEVEL-88 FOR SPECIAL PAYMENTS - GD CL**2
|
||||
00018 * CHGIM002
|
||||
00019 * 04/05/2020 ADDED LEVEL-88 FOR PUA, FPUC, FRUR CL**2
|
||||
00020 * ZL1 CL**2
|
||||
00021 * 09/18/2020 ADDED LEVEL-88 FOR LWA CL*16
|
||||
00022 * 12/08/2020 ADDED LEVEL-88 FOR PUA STIMULUS CL*18
|
||||
00023 * ZL1 CL*16
|
||||
00024 ***** CHGIM002
|
||||
00025 10 CHG2-KEY-AREA. CHGIM002
|
||||
00026 15 CHG2-CHARGE-DATE PIC S9(09) COMP-3. CHGIM002
|
||||
00027 15 CHG2-EMP-NO PIC S9(07) COMP-3. CHGIM002
|
||||
00028 15 CHG2-SSN PIC S9(10) COMP-3. CHGIM002
|
||||
00029 15 CHG2-BYE PIC S9(09) COMP-3. CHGIM002
|
||||
00030 15 CHG2-PROGRAM PIC X(01). CHGIM002
|
||||
00031 88 CHG2-PROG-UI VALUE '1'. CHGIM002
|
||||
00032 88 CHG2-PROG-EB VALUE '2'. CHGIM002
|
||||
00033 88 CHG2-PROG-TEUC VALUE '3'. CHGIM002
|
||||
00034 88 CHG2-PROG-TEUCA VALUE '4'. CHGIM002
|
||||
00035 88 CHG2-PROG-FAC VALUE '5'. CHGIM002
|
||||
00036 88 CHG2-PROG-FSB VALUE '6'. CHGIM002
|
||||
00037 88 CHG2-PROG-FSC VALUE '7'. CHGIM002
|
||||
00038 88 CHG2-PROG-DUA VALUE '8'. CHGIM002
|
||||
00039 88 CHG2-PROG-TR2 VALUE '9'. CHGIM002
|
||||
00040 88 CHG2-PROG-TRA VALUE '0'. CHGIM002
|
||||
00041 88 CHG2-PROG-STEPLDR VALUE 'A'. CHGIM002
|
||||
00042 88 CHG2-PROG-AB VALUE 'B'. CHGIM002
|
||||
00043 88 CHG2-PROG-TRAINING VALUE 'C'. CL*14
|
||||
00044 88 CHG2-PROG-DEPENDENTS VALUE 'D'. CHGIM002
|
||||
00045 88 CHG2-PROG-EUC08-2PLUS VALUE 'E'. CHGIM002
|
||||
00046 88 CHG2-PROG-EUC08TR3 VALUE 'F'. CHGIM002
|
||||
00047 88 CHG2-PROG-EUC08TR4 VALUE 'G'. CHGIM002
|
||||
00048 88 CHG2-PROG-SPECIAL-PAY VALUE 'H'. CHGIM002
|
||||
00049 88 CHG2-PROG-UCPIA VALUE 'I'. CL**3
|
||||
00050 88 CHG2-PROG-GPA VALUE 'J'. CL**3
|
||||
00051 88 CHG2-PROG-PUA VALUE 'U'. CL**6
|
||||
00052 88 CHG2-PROG-PFUC VALUE 'L'. CL**3
|
||||
00053 88 CHG2-PROG-FRUR VALUE 'M'. CL**3
|
||||
00054 88 CHG2-PROG-PEUC VALUE 'N'. CL*15
|
||||
00055 88 CHG2-PROG-REUR VALUE 'Y'. CL*12
|
||||
00056 88 CHG2-PROG-LWA VALUE 'X'. CL*16
|
||||
00057 88 CHG2-PROG-PUA-STIM VALUE 'R'. CL*19
|
||||
00058 88 CHG2-PROG-DUC VALUE 'R'. CL*20
|
||||
00059 CHGIM002
|
||||
00060 10 CHG2-DATA-AREA. CHGIM002
|
||||
00061 15 CHG2-EMP-TYPE PIC 9(02). CHGIM002
|
||||
00062 88 CHG2-EMP-TYPE-CONTRIB-88 VALUE 00. CHGIM002
|
||||
00063 88 CHG2-EMP-TYPE-UCX-88 VALUE 01. CHGIM002
|
||||
00064 88 CHG2-EMP-TYPE-UCFE-88 VALUE 02. CHGIM002
|
||||
00065 88 CHG2-EMP-TYPE-FED-88 VALUE 01, 02. CHGIM002
|
||||
00066 88 CHG2-EMP-TYPE-CWC-88 VALUE 04. CHGIM002
|
||||
00067 88 CHG2-EMP-TYPE-VOL-QUIT-88 VALUE 05. CL*21
|
||||
00068 88 CHG2-EMP-TYPE-MISCONDUCT-88 VALUE 06. CL*21
|
||||
00069 88 CHG2-EMP-TYPE-EB-88 VALUE 07. CL*21
|
||||
00070 88 CHG2-EMP-TYPE-SELF-INS-88 VALUE 08. CHGIM002
|
||||
00071 88 CHG2-EMP-TYPE-TRA-88 VALUE 09. CL*21
|
||||
00072 88 CHG2-EMP-TYPE-DC-GOV-88 VALUE 10. CHGIM002
|
||||
00073 88 CHG2-EMP-TYPE-NOT-LIAB-88 VALUE 13. CHGIM002
|
||||
00074 88 CHG2-EMP-TYPE-CONT-88 VALUE 15. CHGIM002
|
||||
00075 88 CHG2-EMP-TYPE-TEUC-88 VALUE 16. CHGIM002
|
||||
00076 88 CHG2-EMP-TYPE-DOM-V-88 VALUE 17. CHGIM002
|
||||
00077 88 CHG2-EMP-TYPE-STEP-88 VALUE 18. CHGIM002
|
||||
00078 88 CHG2-EMP-TYPE-EUC08-88 VALUE 19. CHGIM002
|
||||
00079 88 CHG2-EMP-TYPE-FAC-88 VALUE 20. CHGIM002
|
||||
00080 88 CHG2-EMP-TYPE-AB-88 VALUE 21. CHGIM002
|
||||
00081 88 CHG2-EMP-TYPE-DEPND-88 VALUE 22. CHGIM002
|
||||
00082 88 CHG2-EMP-TYPE-TRAIN-88 VALUE 23. CHGIM002
|
||||
00083 88 CHG2-EMP-TYPE-EUC08-2PL-88 VALUE 24. CHGIM002
|
||||
00084 88 CHG2-EMP-TYPE-EUC08TR3-88 VALUE 25. CHGIM002
|
||||
00085 88 CHG2-EMP-TYPE-EUC08TR4-88 VALUE 26. CHGIM002
|
||||
00086 88 CHG2-EMP-TYPE-SPEC-PAY-88 VALUE 27. CHGIM002
|
||||
00087 88 CHG2-EMP-TYPE-UCPIA-88 VALUE 28. CL**2
|
||||
00088 88 CHG2-EMP-TYP2-PUA-88 VALUE 29. CL**2
|
||||
00089 88 CHG2-EMP-TYPE-GPA-88 VALUE 31. CL**2
|
||||
00090 88 CHG2-EMP-TYPE-FPUC-88 VALUE 32. CL**2
|
||||
00091 88 CHG2-EMP-TYPE-FRUR-88 VALUE 33. CL**2
|
||||
00092 88 CHG2-EMP-TYPE-PEUC-88 VALUE 34. CL**4
|
||||
00093 88 CHG2-EMP-TYPE-REUR-88 VALUE 35. CL*11
|
||||
00094 88 CHG2-EMP-TYPE-LWA-88 VALUE 36. CL*16
|
||||
00095 88 CHG2-EMP-TYPE-PUAS-88 VALUE 37. CL*17
|
||||
00096 88 CHG2-EMP-TYPE-MEUC-88 VALUE 38. CL*20
|
||||
00097 88 CHG2-EMP-TYPE-DUC-88 VALUE 39. CL*20
|
||||
00098 88 CHG2-EMP-TYPE-POOL-88 VALUE 03, 05, 06, CHGIM002
|
||||
00099 04, 15, 16, CHGIM002
|
||||
00100 17, 18, 19, CL*14
|
||||
00101 20, 21, 22, CL*14
|
||||
00102 23, 24, 25, CL*14
|
||||
00103 26, 27, 28, CL*14
|
||||
00104 29, 31, 32, CL*14
|
||||
00105 33, 34, 35. CL*14
|
||||
00106 88 CHG2-EMP-TYPE-VALID-88 VALUE 00, 01, 02, CHGIM002
|
||||
00107 05, 06, 07, CHGIM002
|
||||
00108 08, 10, 13, CHGIM002
|
||||
00109 15, 16, 17, CHGIM002
|
||||
00110 18, 19, 20, CHGIM002
|
||||
00111 21, 22, 23, CHGIM002
|
||||
00112 24, 25, 26, CL**2
|
||||
00113 27, 28, 29, CL**2
|
||||
00114 31, 32, 33, CL**5
|
||||
00115 34, 35, 36, CL*17
|
||||
00116 37 38, 39. CL*20
|
||||
00117 CHGIM002
|
||||
00118 15 CHG2-CURR-BEN-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00119 15 CHG2-CURR-ADJ-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00120 15 CHG2-TOT-BEN-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00121 15 CHG2-TOT-ADJ-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00122 15 CHG2-OP-RECOVER-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00123 CHGIM002
|
||||
00124 10 CHG2-DATA-FILLER PIC X(11). CHGIM002
|
||||
56
Copybook/CHGIM003.cpy
Normal file
56
Copybook/CHGIM003.cpy
Normal file
@ -0,0 +1,56 @@
|
||||
00001 ***** 04/24/20
|
||||
00002 * CHGIM003
|
||||
00003 * CHGIM003 PRINT PARM RECORD PRODUCED IN CHGBD210. LV005
|
||||
00004 * CHGIM003
|
||||
00005 * CHGIM003
|
||||
00006 * CHGIM003
|
||||
00007 ***** CHGIM003
|
||||
00008 05 CHG3-RUN-TYPE PIC X(03). CHGIM003
|
||||
00009 88 CHG3-RUN-TYPE-QTRLY-88 VALUE 'QTR' 'QTE'. CHGIM003
|
||||
00010 88 CHG3-RUN-TYPE-QTR-88 VALUE 'QTR'. CHGIM003
|
||||
00011 88 CHG3-RUN-TYPE-QTR-EMP-88 VALUE 'QTE'. CHGIM003
|
||||
00012 88 CHG3-RUN-TYPE-ANN-88 VALUE 'ANN'. CHGIM003
|
||||
00013 88 CHG3-RUN-TYPE-ANN-EMP-88 VALUE 'ANE'. CHGIM003
|
||||
00014 88 CHG3-RUN-TYPE-ANNUAL-88 VALUE 'ANN' 'ANE'. CHGIM003
|
||||
00015 88 CHG3-RUN-TYPE-MON-88 VALUE 'MON'. CHGIM003
|
||||
00016 88 CHG3-RUN-TYPE-MON-EMP-88 VALUE 'MNE'. CHGIM003
|
||||
00017 88 CHG3-RUN-TYPE-MONTHLY-88 VALUE 'MON' 'MNE'. CHGIM003
|
||||
00018 88 CHG3-RUN-TYPE-WK-88 VALUE 'WK '. CHGIM003
|
||||
00019 88 CHG3-RUN-TYPE-WK-EMP-88 VALUE 'WKE'. CHGIM003
|
||||
00020 88 CHG3-RUN-TYPE-WEEKLY-88 VALUE 'WK ' 'WKE'. CHGIM003
|
||||
00021 88 CHG3-RUN-TYPE-EMP-88 VALUE 'EMP'. CHGIM003
|
||||
00022 88 CHG3-RUN-TYPE-RPTS-88 VALUE 'RPT'. CHGIM003
|
||||
00023 88 CHG3-RUN-TYPE-AGENT-88 VALUE 'AGT'. CHGIM003
|
||||
00024 88 CHG3-RUN-TYPE-TEUC-88 VALUE 'TEU'. CHGIM003
|
||||
00025 88 CHG3-RUN-TYPE-FPUC-88 VALUE 'PUC'. CL**2
|
||||
00026 CHGIM003
|
||||
00027 88 CHG3-RUN-TYPE-SPECIAL-88 VALUE 'EMP' 'RPT' CHGIM003
|
||||
00028 'AGT'. CHGIM003
|
||||
00029 88 CHG3-RUN-TYPE-VALID-88 VALUE 'QTR' 'ANN' CHGIM003
|
||||
00030 'EMP' 'RPT' CHGIM003
|
||||
00031 'AGT' 'ANE' CHGIM003
|
||||
00032 'MON' 'MNE' CHGIM003
|
||||
00033 'WKE' 'TEU' CL**2
|
||||
00034 'PUC'. CL**2
|
||||
00035 05 CHG3-BEGIN-DATE PIC S9(09) COMP-3. CHGIM003
|
||||
00036 05 CHG3-END-DATE PIC S9(09) COMP-3. CHGIM003
|
||||
00037 CHGIM003
|
||||
00038 05 CHG3-RPT-TYPES. CHGIM003
|
||||
00039 10 CHG3-RPT-TYPE-RATED-IND PIC X(01). CHGIM003
|
||||
00040 88 CHG3-RPT-TYPE-RATED-88 VALUE 'Y'. CHGIM003
|
||||
00041 10 CHG3-RPT-TYPE-SELF-INS-IND PIC X(01). CHGIM003
|
||||
00042 88 CHG3-RPT-TYPE-SELF-INS-88 VALUE 'Y'. CHGIM003
|
||||
00043 10 CHG3-RPT-TYPE-CWC-IND PIC X(01). CHGIM003
|
||||
00044 88 CHG3-RPT-TYPE-CWC-88 VALUE 'Y'. CHGIM003
|
||||
00045 10 CHG3-RPT-TYPE-FED-IND PIC X(01). CHGIM003
|
||||
00046 88 CHG3-RPT-TYPE-FED-88 VALUE 'Y'. CHGIM003
|
||||
00047 10 CHG3-RPT-TYPE-TEUC-IND PIC X(01). CHGIM003
|
||||
00048 88 CHG3-RPT-TYPE-TEUC-88 VALUE 'Y'. CHGIM003
|
||||
00049 10 CHG3-RPT-TYPE-DC-IND PIC X(01). CHGIM003
|
||||
00050 88 CHG3-RPT-TYPE-DC-88 VALUE 'Y'. CHGIM003
|
||||
00051 10 CHG3-RPT-TYPE-FPUC-IND PIC X(01). CL**2
|
||||
00052 88 CHG3-RPT-TYPE-FPUC-88 VALUE 'Y'. CL**2
|
||||
00053 CHGIM003
|
||||
00054 05 CHG3-EMP-NO PIC S9(07) COMP-3. CHGIM003
|
||||
00055 05 FILLER PIC X(56). CL**5
|
||||
00056 CHGIM003
|
||||
83
Copybook/CHGIM004.cpy
Normal file
83
Copybook/CHGIM004.cpy
Normal file
@ -0,0 +1,83 @@
|
||||
00001 ***** 12/15/21
|
||||
00002 * CHGIM004
|
||||
00003 * CHGIM004 CHARGE PRINT RECORD LV019
|
||||
00004 * CHGIM004
|
||||
00005 * 03/09/2009 CHANGED CHG4-PROGRAM FROM NUMERIC TO CHARACTER GDCHGIM004
|
||||
00006 * 08/05/2009 CHANGED 88 LEVEL FOR TRAINING, DEPENDENTS CHGIM004
|
||||
00007 * AND AB ZL1 CHGIM004
|
||||
00008 * 03/31/2010 CHANGED 88 LEVEL FOR SPECIAL PAYMENTS GD CHGIM004
|
||||
00009 * 09/26/2014 ADDED 88 LEVEL FOR UCPIA ZL1 CHGIM004
|
||||
00010 * 04/06/2020 ADDED 88 LEVEL FOR PUA FPUC FRUR ZL1 CL**2
|
||||
00011 * 04/24/2020 ADDED 88 LEVEL FOR PEUC ZL1 CL**6
|
||||
00012 * 09/18/2020 ADDED 88 LEVEL FOR LWA ZL1 CL*15
|
||||
00013 * 12/08/2020 ADDED 88 LEVEL FOR PUA SUTIMULS ZL1 CL*16
|
||||
00014 ***** CHGIM004
|
||||
00015 10 CHG4-SORT-KEY-AREA. CHGIM004
|
||||
00016 15 CHG4-REPORT-TYPE PIC X(01). CHGIM004
|
||||
00017 88 CHG4-RPT-TYPE-RATED-88 VALUE '1'. CHGIM004
|
||||
00018 88 CHG4-RPT-TYPE-SELF-INS-88 VALUE '2'. CHGIM004
|
||||
00019 88 CHG4-RPT-TYPE-CWC-88 VALUE '3'. CHGIM004
|
||||
00020 88 CHG4-RPT-TYPE-FED-88 VALUE '4'. CHGIM004
|
||||
00021 88 CHG4-RPT-TYPE-TEUC-88 VALUE '5'. CHGIM004
|
||||
00022 88 CHG4-RPT-TYPE-DC-88 VALUE '6'. CHGIM004
|
||||
00023 88 CHG4-RPT-TYPE-FPUC-88 VALUE '7'. CL**3
|
||||
00024 88 CHG4-RPT-TYPE-NULL-88 VALUE 'N'. CHGIM004
|
||||
00025 15 CHG4-EMP-NO PIC S9(07) COMP-3. CHGIM004
|
||||
00026 15 CHG4-SSN PIC S9(09) COMP-3. CHGIM004
|
||||
00027 15 CHG4-BYE PIC S9(09) COMP-3. CHGIM004
|
||||
00028 15 CHG4-PROGRAM PIC X(01). CHGIM004
|
||||
00029 88 CHG4-PROG-UI VALUE '1'. CHGIM004
|
||||
00030 88 CHG4-PROG-EB VALUE '2'. CHGIM004
|
||||
00031 88 CHG4-PROG-TEUC VALUE '3'. CHGIM004
|
||||
00032 88 CHG4-PROG-TEUCA VALUE '4'. CHGIM004
|
||||
00033 88 CHG4-PROG-FAC VALUE '5'. CHGIM004
|
||||
00034 88 CHG4-PROG-FSB VALUE '6'. CHGIM004
|
||||
00035 88 CHG4-PROG-FSC VALUE '7'. CHGIM004
|
||||
00036 88 CHG4-PROG-DUA VALUE '8'. CHGIM004
|
||||
00037 88 CHG4-PROG-TR2 VALUE '9'. CHGIM004
|
||||
00038 88 CHG4-PROG-TRA VALUE '0'. CHGIM004
|
||||
00039 88 CHG4-PROG-STEPLDR VALUE 'A'. CHGIM004
|
||||
00040 88 CHG4-PROG-AB VALUE 'B'. CHGIM004
|
||||
00041 88 CHG4-PROG-TRAINING VALUE 'C'. CL*13
|
||||
00042 88 CHG4-PROG-DEPENDENTS VALUE 'D'. CHGIM004
|
||||
00043 88 CHG4-PROG-EUC08-2PLUS VALUE 'E'. CL**2
|
||||
00044 88 CHG4-PROG-EUC08TR3 VALUE 'F'. CL**2
|
||||
00045 88 CHG4-PROG-EUC08TR4 VALUE 'G'. CL**2
|
||||
00046 88 CHG4-PROG-SPECIAL-PAY VALUE 'H'. CL**2
|
||||
00047 88 CHG4-PROG-UCPIA VALUE 'I'. CL**2
|
||||
00048 88 CHG4-PROG-GPA VALUE 'J'. CL**4
|
||||
00049 88 CHG4-PROG-PUA VALUE 'U'. CL**7
|
||||
00050 88 CHG4-PROG-FPUC VALUE 'L'. CL**5
|
||||
00051 88 CHG4-PROG-FRUR VALUE 'M'. CL**4
|
||||
00052 88 CHG4-PROG-PEUC VALUE 'N'. CL*14
|
||||
00053 88 CHG4-PROG-REUR VALUE 'Y'. CL*12
|
||||
00054 88 CHG4-PROG-LWA VALUE 'X'. CL*15
|
||||
00055 88 CHG4-PROG-PUA-STIM VALUE 'R'. CL*18
|
||||
00056 88 CHG4-PROG-DUC VALUE 'R'. CL*19
|
||||
00057 CL**2
|
||||
00058 10 CHG4-DATA-AREA. CHGIM004
|
||||
00059 15 CHG4-CLMNT-NAME PIC X(32). CHGIM004
|
||||
00060 15 CHG4-EMP-TYPE PIC 9(02). CHGIM004
|
||||
00061 15 CHG4-CURR-BEN-AMT PIC S9(08)V99 COMP-3. CHGIM004
|
||||
00062 15 CHG4-CURR-ADJ-AMT PIC S9(08)V99 COMP-3. CHGIM004
|
||||
00063 15 CHG4-TOT-BEN-AMT PIC S9(08)V99 COMP-3. CHGIM004
|
||||
00064 15 CHG4-TOT-ADJ-AMT PIC S9(08)V99 COMP-3. CHGIM004
|
||||
00065 15 CHG4-OP-RECOVER-AMT PIC S9(08)V99 COMP-3. CHGIM004
|
||||
00066 15 CHG4-EMP-NAME-CHK PIC X(04). CHGIM004
|
||||
00067 15 CHG4-FISCAL-AGENT-CD PIC X(03). CHGIM004
|
||||
00068 88 CHG4-FISC-AG-NONE-88 VALUE SPACES. CHGIM004
|
||||
00069 CHGIM004
|
||||
00070 15 CHG4-SUCC-EMP-NO PIC S9(07) COMP-3. CHGIM004
|
||||
00071 15 CHG4-PRED-EMP-NO PIC S9(07) COMP-3. CHGIM004
|
||||
00072 15 CHG4-PERCENT-XFER PIC S9V9(04) COMP-3. CHGIM004
|
||||
00073 CHGIM004
|
||||
00074 10 CHG4-ADDR-AREA. CHGIM004
|
||||
00075 15 CHG4-FMT-ADDR. CHGIM004
|
||||
00076 20 CHG4-FMT-LINE OCCURS 5 TIMES CHGIM004
|
||||
00077 INDEXED BY CHG4-FMT-IDX CHGIM004
|
||||
00078 PIC X(40). CHGIM004
|
||||
00079 15 CHG4-ZIP PIC X(10). CHGIM004
|
||||
00080 15 CHG4-ADVANCED-BARCODE PIC X(14). CHGIM004
|
||||
00081 CHGIM004
|
||||
00082 CHGIM004
|
||||
00083 10 CHG4-DATA-FILLER PIC X(66). CHGIM004
|
||||
67
Copybook/CHGIM005.cpy
Normal file
67
Copybook/CHGIM005.cpy
Normal file
@ -0,0 +1,67 @@
|
||||
00001 ***** 12/15/21
|
||||
00002 * CHGIM005
|
||||
00003 * CHGIM005 BENEFIT CHARGES BY EMPLOYER LV010
|
||||
00004 * CHGIM005
|
||||
00005 * THIS FILE IS CREATED AND USED IN THE EXPERIENCE RATING CHGIM005
|
||||
00006 * PROCESS. IT STORES BENEFIT CHARGES FOR THE REPORTING CHGIM005
|
||||
00007 * PERIOD SUMMED BY EMPLOYER, SSN AND BYE. CHGIM005
|
||||
00008 * CHGIM005
|
||||
00009 * 03/09/2009 CHANGED CHG5-PROGRAM FROM NUMERIC TO CHARACTER. CHGIM005
|
||||
00010 * 11/20/2009 ADDED NEW CODES TEIR3 AND 4. CHGIM005
|
||||
00011 * 04/03/2020 ADDED NEW CODES PUA FPUC FRUR ZL1 CL**2
|
||||
00012 * 09/18/2020 ADDED NEW CODE LWA ZL1 CL**6
|
||||
00013 * 12/08/2020 ADDED NEW CODE PUA STIMULUS ZL1 CL**7
|
||||
00014 ***** CHGIM005
|
||||
00015 10 CHG5-SORT-KEY-AREA. CHGIM005
|
||||
00016 15 CHG5-EMP-NO PIC S9(07) COMP-3. CHGIM005
|
||||
00017 15 CHG5-BYE PIC S9(09) COMP-3. CHGIM005
|
||||
00018 15 CHG5-SSN PIC S9(09) COMP-3. CHGIM005
|
||||
00019 15 CHG5-PROGRAM PIC X(01). CHGIM005
|
||||
00020 88 CHG5-PROG-UI VALUE '1'. CHGIM005
|
||||
00021 88 CHG5-PROG-EB VALUE '2'. CHGIM005
|
||||
00022 88 CHG5-PROG-TEUC VALUE '3'. CHGIM005
|
||||
00023 88 CHG5-PROG-TEUCA VALUE '4'. CHGIM005
|
||||
00024 88 CHG5-PROG-FAC VALUE '5'. CHGIM005
|
||||
00025 88 CHG5-PROG-FSB VALUE '6'. CHGIM005
|
||||
00026 88 CHG5-PROG-FSC VALUE '7'. CHGIM005
|
||||
00027 88 CHG5-PROG-DUA VALUE '8'. CHGIM005
|
||||
00028 88 CHG5-PROG-TR2 VALUE '9'. CHGIM005
|
||||
00029 88 CHG5-PROG-TRA VALUE '0'. CHGIM005
|
||||
00030 88 CHG5-PROG-STEPLDR VALUE 'A'. CHGIM005
|
||||
00031 88 CHG5-PROG-AB VALUE 'B'. CHGIM005
|
||||
00032 88 CHG5-PROG-TRAINING VALUE 'C'. CHGIM005
|
||||
00033 88 CHG5-PROG-DEPENDENTS VALUE 'D'. CHGIM005
|
||||
00034 88 CHG5-PROG-EUC08-2PLUS VALUE 'E'. CL**2
|
||||
00035 88 CHG5-PROG-EUC08TR3 VALUE 'F'. CL**2
|
||||
00036 88 CHG5-PROG-EUC08TR4 VALUE 'G'. CL**2
|
||||
00037 88 CHG5-PROG-SPECIAL-PAY VALUE 'H'. CL**2
|
||||
00038 88 CHG5-PROG-UCPIA-88 VALUE 'I'. CL**2
|
||||
00039 88 CHG5-PROG-GPA-88 VALUE 'J'. CL**2
|
||||
00040 88 CHG5-PROG-PUA-88 VALUE 'U'. CL**5
|
||||
00041 88 CHG5-PROG-PFUC-88 VALUE 'L'. CL**2
|
||||
00042 88 CHG5-PROG-FRUR-88 VALUE 'M'. CL**2
|
||||
00043 88 CHG5-PROG-PEUC-88 VALUE 'N'. CL**2
|
||||
00044 88 CHG5-PROG-REUR-88 VALUE 'Y'. CL**4
|
||||
00045 88 CHG5-PROG-LWA-88 VALUE 'X'. CL**6
|
||||
00046 88 CHG5-PROG-PUA-STIM-88 VALUE 'R'. CL**9
|
||||
00047 88 CHG5-PROG-DUC-88 VALUE 'R'. CL*10
|
||||
00048 CL**2
|
||||
00049 CHGIM005
|
||||
00050 15 CHG5-TYPE PIC 9(01). CHGIM005
|
||||
00051 88 CHG5-TYPE-ORIG-88 VALUE 1. CHGIM005
|
||||
00052 88 CHG5-TYPE-PRED-88 VALUE 2. CHGIM005
|
||||
00053 88 CHG5-TYPE-SUCC-88 VALUE 3. CHGIM005
|
||||
00054 15 CHG5-PRED-EMP-NO PIC S9(07) COMP-3. CHGIM005
|
||||
00055 15 CHG5-SUCC-EMP-NO PIC S9(07) COMP-3. CHGIM005
|
||||
00056 15 CHG5-REL-EFF-DT PIC S9(09) COMP-3. CHGIM005
|
||||
00057 15 CHG5-SEQUENCE PIC S9(04) COMP. CHGIM005
|
||||
00058 CHGIM005
|
||||
00059 10 CHG5-DATA. CHGIM005
|
||||
00060 15 CHG5-EMP-STATUS PIC X(01). CHGIM005
|
||||
00061 88 CHG5-STATUS-ACT-88 VALUE 'A'. CHGIM005
|
||||
00062 88 CHG5-STATUS-INACT-88 VALUE 'I'. CHGIM005
|
||||
00063 88 CHG5-STATUS-NEVERSUB-88 VALUE 'N'. CHGIM005
|
||||
00064 88 CHG5-STATUS-UNK-88 VALUE 'U'. CHGIM005
|
||||
00065 88 CHG5-STATUS-SUB-88 VALUE 'A' 'I'. CHGIM005
|
||||
00066 15 CHG5-TOT-CHG-AMT PIC S9(09)V99 COMP-3. CHGIM005
|
||||
00067 15 CHG5-PERCENT-XFER PIC S9V9(04) COMP-3. CHGIM005
|
||||
14
Copybook/CHGIM006.cpy
Normal file
14
Copybook/CHGIM006.cpy
Normal file
@ -0,0 +1,14 @@
|
||||
00001 ***** 09/20/00
|
||||
00002 * CHGIM006
|
||||
00003 * CHGIM006 FISCAL AGENT LIST OF COVERED EMPLOYERS LV036
|
||||
00004 * CHGIM006
|
||||
00005 * FISCAL AGENTS REPORT EMPLOYERS FOR WHOM THEY PROVIDE CHGIM006
|
||||
00006 * BENEFIT CHARGE DATA USING THIS FILE FORMAT. CHGIM006
|
||||
00007 * CHGIM006
|
||||
00008 ***** CHGIM006
|
||||
00009 10 CHG6-KEY-AREA. CHGIM006
|
||||
00010 15 CHG6-EMP-NO PIC 9(06). CHGIM006
|
||||
00011 CHGIM006
|
||||
00012 10 CHG6-DATA-AREA. CHGIM006
|
||||
00013 15 CHG6-FISCAL-AGENT-NAME PIC X(35). CHGIM006
|
||||
00014 15 CHG6-EMPLOYER-NAME PIC X(39). CL*36
|
||||
19
Copybook/CHGIM007.cpy
Normal file
19
Copybook/CHGIM007.cpy
Normal file
@ -0,0 +1,19 @@
|
||||
00001 ***** 06/26/00
|
||||
00002 * CHGIM007
|
||||
00003 * CHGIM007 FISCAL AGENT OUTPUT CHARGE RECORD LV044
|
||||
00004 * CHGIM007
|
||||
00005 * CHGBR100 WRITES OUTPUT RECORDS IN CHGIM007
|
||||
00006 * THIS FORMAT TO A DISK FILE. CHGIM007
|
||||
00007 * CHGBD400 READS THIS DISK FILE AT THE END OF THE CHARGE CHGIM007
|
||||
00008 * PROCESS, AND BUILDS TAPE FILES FOR EACH FISCAL AGENT. CHGIM007
|
||||
00009 * CHGIM007
|
||||
00010 ***** CHGIM007
|
||||
00011 10 CHG5-SORT-KEY-AREA. CHGIM007
|
||||
00012 15 CHG7-EMP-NO PIC 9(06). CHGIM007
|
||||
00013 15 CHG7-SSN PIC 9(09). CHGIM007
|
||||
00014 15 CHG7-TOT-CHG-AMT PIC S9(10)V99. CHGIM007
|
||||
00015 15 CHG7-BYE PIC 9(06). CHGIM007
|
||||
00016 15 CHG7-CLMNT-NAME PIC X(32). CHGIM007
|
||||
00017 15 CHG7-START-DATE PIC 9(06). CHGIM007
|
||||
00018 15 CHG7-END-DATE PIC 9(06). CHGIM007
|
||||
00019 15 FILLER7 PIC X(56). CL*44
|
||||
27
Copybook/CHGIM008.cpy
Normal file
27
Copybook/CHGIM008.cpy
Normal file
@ -0,0 +1,27 @@
|
||||
00001 ***** 04/20/00
|
||||
00002 * CHGIM008
|
||||
00003 * CHGIM008 FISCAL AGENT OUTPUT CHARGE RECORD AND LV039
|
||||
00004 * SELF-INSURANCE OUTPUT CHARGE RECORD. CHGIM008
|
||||
00005 * CHGIM008
|
||||
00006 * CHGBR100 AND CHGBR110 PROGRAMS WRITE OUTPUT RECORDS IN CHGIM008
|
||||
00007 * THIS FORMAT TO A DISK FILES. CHGIM008
|
||||
00008 * CHGBD400 READS THIS DISK FILE AT THE END OF THE CHARGE CHGIM008
|
||||
00009 * PROCESS, AND BUILDS TAPE FILES FOR EACH FISCAL AGENT. CHGIM008
|
||||
00010 * CHGIM008
|
||||
00011 * THIS COPYBOOK IS SET UP WITH EIGHT BYTES DATE FOR Y2K CHGIM008
|
||||
00012 * COMPLIANCE PURPOSE. THE RECORD HAS 136 BYTES LONG. CHGIM008
|
||||
00013 * THE FIRST THREE BYTES AGENT CODE WILL USE THE SORT CHGIM008
|
||||
00014 * UTILITY TO CHOP OFF BEFORE THE FILE WILL CONTAIN 133 CHGIM008
|
||||
00015 * BYTES LONG AND SEND BACK TO THE FISCAL AGENT. CHGIM008
|
||||
00016 * CHGIM008
|
||||
00017 ***** CHGIM008
|
||||
00018 10 CHG5-SORT-KEY-AREA. CHGIM008
|
||||
00019 15 CHG8-FISCAL-AGENT-CD PIC X(03). CHGIM008
|
||||
00020 15 CHG8-EMP-NO PIC 9(06). CHGIM008
|
||||
00021 15 CHG8-SSN PIC 9(09). CHGIM008
|
||||
00022 15 CHG8-TOT-CHG-AMT PIC S9(10)V99. CHGIM008
|
||||
00023 15 CHG8-BYE PIC 9(08). CHGIM008
|
||||
00024 15 CHG8-CLMNT-NAME PIC X(32). CHGIM008
|
||||
00025 15 CHG8-START-DATE PIC 9(08). CHGIM008
|
||||
00026 15 CHG8-END-DATE PIC 9(08). CHGIM008
|
||||
00027 15 FILLER1 PIC X(50). CHGIM008
|
||||
27
Copybook/CHGIM009.cpy
Normal file
27
Copybook/CHGIM009.cpy
Normal file
@ -0,0 +1,27 @@
|
||||
00001 ***** 06/26/00
|
||||
00002 * CHGIM009
|
||||
00003 * CHGIM009 IS SET UP USING 133 BYTES AFTER CHOP OFF LV044
|
||||
00004 * THE FISCAL AGENT CODE FOR INPUT/CONVERSION CL*42
|
||||
00005 * PURPOSE. CL*42
|
||||
00006 * CL*42
|
||||
00007 * CHGBR100 AND CHGBR110 PROGRAMS WRITE OUTPUT RECORDS IN CHGIM009
|
||||
00008 * THIS FORMAT TO A DISK FILES. CHGIM009
|
||||
00009 * CHGBD400 READS THIS DISK FILE AT THE END OF THE CHARGE CHGIM009
|
||||
00010 * PROCESS, AND BUILDS TAPE FILES FOR EACH FISCAL AGENT. CHGIM009
|
||||
00011 * CHGIM009
|
||||
00012 * THIS COPYBOOK IS SET UP WITH EIGHT BYTES DATE FOR Y2K CHGIM009
|
||||
00013 * COMPLIANCE PURPOSE. THE RECORD HAS 136 BYTES LONG. CHGIM009
|
||||
00014 * THE FIRST THREE BYTES AGENT CODE WILL USE THE SORT CHGIM009
|
||||
00015 * UTILITY TO CHOP OFF BEFORE THE FILE WILL CONTAIN 133 CHGIM009
|
||||
00016 * BYTES LONG AND SEND BACK TO THE FISCAL AGENT. CHGIM009
|
||||
00017 * CHGIM009
|
||||
00018 ***** CHGIM009
|
||||
00019 10 CHG5-SORT-KEY-AREA. CHGIM009
|
||||
00020 15 CHG9-EMP-NO PIC 9(06). CL*41
|
||||
00021 15 CHG9-SSN PIC 9(09). CL*41
|
||||
00022 15 CHG9-TOT-CHG-AMT PIC S9(10)V99. CL*41
|
||||
00023 15 CHG9-BYE PIC 9(08). CL*41
|
||||
00024 15 CHG9-CLMNT-NAME PIC X(32). CL*41
|
||||
00025 15 CHG9-START-DATE PIC 9(08). CL*41
|
||||
00026 15 CHG9-END-DATE PIC 9(08). CL*41
|
||||
00027 15 FILLER PIC X(50). CL*44
|
||||
21
Copybook/CHGIM010.cpy
Normal file
21
Copybook/CHGIM010.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
00001 ***** 10/10/03
|
||||
00002 * CHGIM010
|
||||
00003 * CHGIM010 QUARTERLY DC AGENCY WAGES LV001
|
||||
00004 * THIS RECORD CONTAINS QUARTERLY WAGE INFORMATION CHGIM010
|
||||
00005 * FROM DC GOVERNMENT, INCLUDING THE 2 LETTER CODE CHGIM010
|
||||
00006 * OF THE SPECIFIC AGENCY. CHGIM010
|
||||
00007 * CHGIM010
|
||||
00008 * THIS FILE IS USED TO ALLOCATE CHARGES FOR DC CHGIM010
|
||||
00009 * GOVERNMENT EMPLOYER TO THE SPECIFIC AGENCY CHGIM010
|
||||
00010 * RESPONSIBLE. CHGIM010
|
||||
00011 * CHGIM010
|
||||
00012 * KEY = 10 REC LEN = 20 CHGIM010
|
||||
00013 ***** CHGIM010
|
||||
00014 10 CHG10-KEY-AREA. CHGIM010
|
||||
00015 15 CHG10-SSN PIC S9(09) COMP-3. CHGIM010
|
||||
00016 15 CHG10-YRQ PIC S9(05) COMP-3. CHGIM010
|
||||
00017 15 CHG10-DC-AGENCY-CD PIC X(02). CHGIM010
|
||||
00018 CHGIM010
|
||||
00019 10 CHG10-DATA-AREA. CHGIM010
|
||||
00020 15 CHG10-EMP-NO PIC S9(07) COMP-3. CHGIM010
|
||||
00021 15 CHG10-WAGES PIC S9(09)V99 COMP-3. CHGIM010
|
||||
63
Copybook/CHGIM012.cpy
Normal file
63
Copybook/CHGIM012.cpy
Normal file
@ -0,0 +1,63 @@
|
||||
00001 ***** 03/19/13
|
||||
00002 * CHGIM012
|
||||
00003 * CHGIM012 CHARGE INTERFACE RECORD FOR STC. LV007
|
||||
00004 * CHGIM012
|
||||
00005 * USED IN CHGBD102, WHICH READS DATA FROM THE STC CL**3
|
||||
00006 * SUB-SYSTEM AND FORMATS CHGIM001 RECORDS FOR INPUT CL**3
|
||||
00007 * TO CHGBD200. CL**3
|
||||
00008 * CHGIM012
|
||||
00009 * 03/18/2013 INITIAL DEVELOPMENT GD CL**3
|
||||
00010 * CHGIM012
|
||||
00011 ***** CHGIM012
|
||||
00012 CHGIM012
|
||||
00013 10 CHG12-SORT-KEY-AREA. CL**3
|
||||
00014 15 CHG12-SSN PIC 9(09). CL**4
|
||||
00015 15 CHG12-SSN-X REDEFINES CHG12-SSN CL**7
|
||||
00016 PIC X(09). CL**7
|
||||
00017 15 FILLER PIC X(01). CL**4
|
||||
00018 15 CHG12-EMP-NO PIC 9(06). CL**4
|
||||
00019 15 CHG12-EMP-X REDEFINES CHG12-EMP-NO CL**7
|
||||
00020 PIC X(06). CL**7
|
||||
00021 15 FILLER PIC X(01). CL**4
|
||||
00022 15 CHG12-BYE PIC X(10). CL**4
|
||||
00023 15 FILLER PIC X(01). CL**4
|
||||
00024 CHGIM012
|
||||
00025 10 CHG12-DATA-AREA. CL**3
|
||||
00026 15 CHG12-CHARGE-DATE PIC X(10). CL**4
|
||||
00027 15 FILLER PIC X(01). CL**4
|
||||
00028 15 CHG12-CHARGE-PROGRAM PIC X(01). CL**3
|
||||
00029 88 CHG12-CHARGE-PROG-UI VALUE '1'. CL**3
|
||||
00030 88 CHG12-CHARGE-PROG-EB VALUE '2'. CL**3
|
||||
00031 88 CHG12-CHARGE-PROG-TEUC VALUE '3'. CL**3
|
||||
00032 88 CHG12-CHARGE-PROG-TEUCA VALUE '4'. CL**3
|
||||
00033 88 CHG12-CHARGE-PROG-FAC VALUE '5'. CL**3
|
||||
00034 88 CHG12-CHARGE-PROG-FSB VALUE '6'. CL**3
|
||||
00035 88 CHG12-CHARGE-PROG-FSC VALUE '7'. CL**3
|
||||
00036 88 CHG12-CHARGE-PROG-DUA VALUE '8'. CL**3
|
||||
00037 88 CHG12-CHARGE-PROG-TR2 VALUE '9'. CL**3
|
||||
00038 88 CHG12-CHARGE-PROG-TRA VALUE '0'. CL**3
|
||||
00039 88 CHG12-CHARGE-PROG-STEPLDR VALUE 'A'. CL**3
|
||||
00040 88 CHG12-CHARGE-PROG-AB VALUE 'B'. CL**3
|
||||
00041 88 CHG12-CHARGE-PROG-TRAINING VALUE 'C'. CL**3
|
||||
00042 88 CHG12-CHARGE-PROG-DEPENDENTS VALUE 'D'. CL**3
|
||||
00043 88 CHG12-CHARGE-PROG-EUC08-2PLUS VALUE 'E'. CL**3
|
||||
00044 88 CHG12-CHARGE-PROG-EUC08TR3 VALUE 'F'. CL**3
|
||||
00045 88 CHG12-CHARGE-PROG-EUC08TR4 VALUE 'G'. CL**3
|
||||
00046 88 CHG12-CHARGE-PROG-SPECIAL-PAY VALUE 'H'. CL**3
|
||||
00047 88 CHG12-CHARGE-PROG-STC-88 VALUE 'I'. CL**3
|
||||
00048 15 FILLER PIC X(01). CL**4
|
||||
00049 15 CHG12-CHARGE-EMP-TYPE PIC 9(02). CL**3
|
||||
00050 15 FILLER PIC X(01). CL**4
|
||||
00051 15 CHG12-CHARGE-CODE PIC 9(01). CL**4
|
||||
00052 88 CHG12-CHARGE-ADJ VALUE 3. CL**4
|
||||
00053 88 CHG12-CHARGE-BEN VALUE 4. CL**4
|
||||
00054 88 CHG12-CHARGE-OP-ESTABLISH VALUE 5. CL**4
|
||||
00055 88 CHG12-CHARGE-OP-RECOUP VALUE 6. CL**4
|
||||
00056 88 CHG12-CHARGE-IB6 VALUE 7. CL**4
|
||||
00057 88 CHG12-CHARGE-OP-WAIVER VALUE 8. CL**4
|
||||
00058 88 CHG12-CHARGE-OTHER VALUE 9. CL**4
|
||||
00059 88 CHG12-CHARGE-ALL-ADJ VALUE 3, 5, 6, CL**4
|
||||
00060 7, 8, 9. CL**4
|
||||
00061 15 FILLER PIC X(01). CL**4
|
||||
00062 15 CHG12-CHARGE-CURR-AMT PIC 9(11).99. CL**6
|
||||
00063 15 CHG12-DATA-FILLER PIC X(40). CL**3
|
||||
60
Copybook/CHGIM030.cpy
Normal file
60
Copybook/CHGIM030.cpy
Normal file
@ -0,0 +1,60 @@
|
||||
00001 ***** 12/15/21
|
||||
00002 * CHGIM030
|
||||
00003 * CHGIM030 DAILY TOTAL BENEFIT CHARGE DATA LV013
|
||||
00004 * THIS RECORD CONTAINS THE TOTAL BENEFIT CHARGE CHGIM030
|
||||
00005 * AMOUNT FOR EACH SSN/BYE FOR EACH DATE ON WHICH CHGIM030
|
||||
00006 * THERE WAS A CHANGE IN THE BENEFITS CLAIM. CHGIM030
|
||||
00007 * CHGIM030
|
||||
00008 * 03/05/2009 CHANGED CHG1-CHARGE-PROGRAM FROM NUMERIC CHGIM030
|
||||
00009 * TO CHARACTER. CHGIM030
|
||||
00010 * ADDED LEVEL-88 FOR FED ADDITIONAL COMP - GD CHGIM030
|
||||
00011 * CHGIM030
|
||||
00012 * 08/05/2009 ADDED 88 LEVEL FOR TRAINING, DEPENDENTS CHGIM030
|
||||
00013 * AND AB ZL1 CHGIM030
|
||||
00014 * CHGIM030
|
||||
00015 * 11/17/2009 ADDED 88 LEVEL FOR EUC 2008 TIERS 3 AND 4 - GD CHGIM030
|
||||
00016 * CHGIM030
|
||||
00017 * 03/31/2010 ADDED 88 LEVEL FOR SPECIAL PAYMENTS - GD CHGIM030
|
||||
00018 * 09/26/2014 ADDED 88 LEVEL FOR UCPIA - GD CHGIM030
|
||||
00019 * 09/18/2020 ADDED 88 LEVEL FOR LWA - ZL1 CL**9
|
||||
00020 * 12/08/2020 ADDED 88 LEVEL FOR PUA STIMULUS - ZL1 CL*10
|
||||
00021 * CHGIM030
|
||||
00022 * CHGIM030
|
||||
00023 * KEY = 16 REC LEN = 22 CHGIM030
|
||||
00024 ***** CHGIM030
|
||||
00025 10 CHG30-KEY-AREA. CHGIM030
|
||||
00026 15 CHG30-SSN PIC S9(09) COMP-3. CHGIM030
|
||||
00027 15 CHG30-CHARGE-DATE PIC S9(09) COMP-3. CHGIM030
|
||||
00028 15 CHG30-BYE PIC S9(09) COMP-3. CHGIM030
|
||||
00029 15 CHG30-PROGRAM PIC X(01). CHGIM030
|
||||
00030 88 CHG30-PROG-UI VALUE '1'. CHGIM030
|
||||
00031 88 CHG30-PROG-EB VALUE '2'. CHGIM030
|
||||
00032 88 CHG30-PROG-TEUC VALUE '3'. CHGIM030
|
||||
00033 88 CHG30-PROG-TEUCA VALUE '4'. CHGIM030
|
||||
00034 88 CHG30-PROG-FAC VALUE '5'. CHGIM030
|
||||
00035 88 CHG30-PROG-FSB VALUE '6'. CHGIM030
|
||||
00036 88 CHG30-PROG-FSC VALUE '7'. CHGIM030
|
||||
00037 88 CHG30-PROG-DUA VALUE '8'. CHGIM030
|
||||
00038 88 CHG30-PROG-TR2 VALUE '9'. CHGIM030
|
||||
00039 88 CHG30-PROG-TRA VALUE '0'. CHGIM030
|
||||
00040 88 CHG30-PROG-STEPLDR VALUE 'A'. CHGIM030
|
||||
00041 88 CHG30-PROG-AB VALUE 'B'. CHGIM030
|
||||
00042 88 CHG30-PROG-TRAINING VALUE 'C'. CL**8
|
||||
00043 88 CHG30-PROG-DEPENDENTS VALUE 'D'. CHGIM030
|
||||
00044 88 CHG30-PROG-EUC08-2PLUS VALUE 'E'. CHGIM030
|
||||
00045 88 CHG30-PROG-EUC08-TIER3 VALUE 'F'. CHGIM030
|
||||
00046 88 CHG30-PROG-EUC08-TIER4 VALUE 'G'. CHGIM030
|
||||
00047 88 CHG30-PROG-SPECIAL-PAY VALUE 'H'. CHGIM030
|
||||
00048 88 CHG30-PROG-UCPIA VALUE 'I'. CHGIM030
|
||||
00049 88 CHG30-PROG-GPA-88 VALUE 'J'. CL**2
|
||||
00050 88 CHG30-PROG-PUA-88 VALUE 'U'. CL**3
|
||||
00051 88 CHG30-PROG-PFUC-88 VALUE 'L'. CL**2
|
||||
00052 88 CHG30-PROG-FRUR-88 VALUE 'M'. CL**2
|
||||
00053 88 CHG30-PROG-PEUC-88 VALUE 'N'. CL**8
|
||||
00054 88 CHG30-PROG-REUR-88 VALUE 'Y'. CL**7
|
||||
00055 88 CHG30-PROG-LWA-88 VALUE 'X'. CL**9
|
||||
00056 88 CHG30-PROG-PUA-STIM-88 VALUE 'R'. CL*12
|
||||
00057 88 CHG30-PROG-DUC-88 VALUE 'R'. CL*13
|
||||
00058 CHGIM030
|
||||
00059 10 CHG30-DATA-AREA. CHGIM030
|
||||
00060 15 CHG30-TOT-CHG-AMT PIC S9(08)V99 COMP-3. CHGIM030
|
||||
22
Copybook/CHGIM040.cpy
Normal file
22
Copybook/CHGIM040.cpy
Normal file
@ -0,0 +1,22 @@
|
||||
00001 ***** 10/10/03
|
||||
00002 * CHGIM040
|
||||
00003 * CHGIM040 QUARTERLY DC WAGE DATA FROM PAYROLL LV001
|
||||
00004 * THIS RECORD CONTAINS QUARTERLY WAGE INFORMATION CHGIM040
|
||||
00005 * FROM DC GOVERNMENT. CHGIM040
|
||||
00006 * CHGIM040
|
||||
00007 * THIS IS THE ORIGINAL INPUT FILE DC USES TO CHGIM040
|
||||
00008 * REPORT QUARTERLY WAGES. CHGIM040
|
||||
00009 * CHGIM040
|
||||
00010 * RECORD LENGTH = 90 CHGIM040
|
||||
00011 ***** CHGIM040
|
||||
00012 10 CHG40-MONTH PIC X(01). CHGIM040
|
||||
00013 10 CHG40-YEAR PIC X(02). CHGIM040
|
||||
00014 10 CHG40-EMP-NO PIC X(06). CHGIM040
|
||||
00015 10 FILLER PIC X(08). CHGIM040
|
||||
00016 10 CHG40-SSN PIC 9(09). CHGIM040
|
||||
00017 10 FILLER PIC X(05). CHGIM040
|
||||
00018 10 CHG40-WAGES PIC S9(07)V99. CHGIM040
|
||||
00019 10 CHG40-NAME PIC X(28). CHGIM040
|
||||
00020 10 FILLER PIC X(01). CHGIM040
|
||||
00021 10 CHG40-DC-AGENCY-CD PIC X(02). CHGIM040
|
||||
00022 10 FILLER PIC X(19). CHGIM040
|
||||
12
Copybook/DESIL110.cpy
Normal file
12
Copybook/DESIL110.cpy
Normal file
@ -0,0 +1,12 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DESIL110
|
||||
00003 * DESIL110 ELECTRONIC MEDIA TRACKING LV001
|
||||
00004 * SELECTED LOG NUMBER TABLE DESIL110
|
||||
00005 * DESIL110
|
||||
00006 ***** DESIL110
|
||||
00007 15 L110-LOG-CNT PIC S9(04) COMP. DESIL110
|
||||
00008 15 L110-LOG-MAX PIC S9(04) COMP. DESIL110
|
||||
00009 15 L110-LOG-NO-TABLE OCCURS 500 TIMES DESIL110
|
||||
00010 INDEXED BY LOG-IDX. DESIL110
|
||||
00011 20 L110-LOG-NO PIC 9(10). DESIL110
|
||||
00012 DESIL110
|
||||
60
Copybook/DESIL200.cpy
Normal file
60
Copybook/DESIL200.cpy
Normal file
@ -0,0 +1,60 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DESIL200
|
||||
00003 * DESIL200 ELECTRONIC MEDIA TRACKING LV001
|
||||
00004 * LOG UPDATE LINKAGE DESIL200
|
||||
00005 * DESIL200
|
||||
00006 * DESBD200 IS CALLED FROM ALL PROGRAMS THAT DESIL200
|
||||
00007 * PROCESS WAGE DATA. IT UPDATES THE DESIL200
|
||||
00008 * ELECTRONIC MEDIA LOG AND MESSAGE RECORDS, DESIL200
|
||||
00009 * AND BUILDS EMPLOYER HISTORY RECORDS. DESIL200
|
||||
00010 * DESIL200
|
||||
00011 * THE CALLING PROGRAM PASSES THE COMMAND CODE, DESIL200
|
||||
00012 * LOG NUMBER AND ITS OWN NAME TO DESBD200 IN THE DESIL200
|
||||
00013 * COMMAND AREA. DESIL200
|
||||
00014 * DESIL200
|
||||
00015 * IF THE CALLING PROGRAM HAS SET L200-CMD-INIT DESIL200
|
||||
00016 * TO TRUE, BD200 WILL CHECK WHETHER THE ITEM DESIL200
|
||||
00017 * HAS BEEN PROCESSED IN A PREVIOUS RUN. IF SO, DESIL200
|
||||
00018 * IT WILL DELETE ANY RECORDS CREATED DURING DESIL200
|
||||
00019 * THAT RUN. DESIL200
|
||||
00020 * DESIL200
|
||||
00021 * IF THE CALLING PROGRAM HAS SET DESIL200
|
||||
00022 * L200-CMD-EMP-COMPLETE TO TRUE, THE CALLING DESIL200
|
||||
00023 * PROGRAM WILL PASS DATA ABOUT THE EMPLOYER IN DESIL200
|
||||
00024 * THE COMPLETION AREA. DESIL200
|
||||
00025 * DESIL200
|
||||
00026 * IF THE CALLING PROGRAM HAS SET DESIL200
|
||||
00027 * L200-CMD-TERMINATE TO TRUE, THE CALLING PROGRAM DESIL200
|
||||
00028 * WILL PASS DATA ABOUT THE LAST EMPLOYER PROCESSED, DESIL200
|
||||
00029 * IF ANY, IN THE COMPLETION AREA. DESIL200
|
||||
00030 * DESIL200
|
||||
00031 * DESBD200 WILL PASS A RETURN CODE BACK TO THE DESIL200
|
||||
00032 * CALLING PROGRAM. DESIL200
|
||||
00033 * DESIL200
|
||||
00034 * DESBD200 WILL PERFORM A CONTOLLED ABEND IF THE DESIL200
|
||||
00035 * CALLING PROGRAM PASSES AN INVALID LOG NUMBER. DESIL200
|
||||
00036 ***** DESIL200
|
||||
00037 10 L200-COMMAND-AREA. DESIL200
|
||||
00038 15 L200-COMMAND-CD PIC X(01). DESIL200
|
||||
00039 88 L200-CMD-INIT-88 VALUE '0'. DESIL200
|
||||
00040 88 L200-CMD-EMP-COMPLETE-88 VALUE '1'. DESIL200
|
||||
00041 88 L200-CMD-TERMINATE-88 VALUE '2'. DESIL200
|
||||
00042 DESIL200
|
||||
00043 15 L200-LOG-NO PIC X(10). DESIL200
|
||||
00044 15 FILLER REDEFINES L200-LOG-NO. DESIL200
|
||||
00045 20 L200-LOG-NO-PFX PIC X(04). DESIL200
|
||||
00046 20 L200-LOG-NO-SFX PIC X(06). DESIL200
|
||||
00047 15 L200-PROG-NAME PIC X(08). DESIL200
|
||||
00048 DESIL200
|
||||
00049 DESIL200
|
||||
00050 10 L200-COMPLETION-AREA. DESIL200
|
||||
00051 15 L200-EMP-NO PIC S9(07) COMP-3. DESIL200
|
||||
00052 15 L200-REPORTING-DATE PIC 9(08). DESIL200
|
||||
00053 15 L200-TOT-CNT PIC 9(07). DESIL200
|
||||
00054 15 L200-SUCCESS-CNT PIC 9(07). DESIL200
|
||||
00055 DESIL200
|
||||
00056 10 L200-RETURN-CD PIC X(01). DESIL200
|
||||
00057 88 L200-SUCCESSFUL-88 VALUE '0'. DESIL200
|
||||
00058 88 L200-ERROR-88 VALUE '1'. DESIL200
|
||||
00059 DESIL200
|
||||
00060 DESIL200
|
||||
28
Copybook/DESIR101.cpy
Normal file
28
Copybook/DESIR101.cpy
Normal file
@ -0,0 +1,28 @@
|
||||
00001 ***** 08/28/02
|
||||
00002 * DESIR101
|
||||
00003 * DESIR101 ELECTRONIC MEDIA PACKING LIST LV001
|
||||
00004 * REPORT RECORD. DESIR101
|
||||
00005 * DESIR101
|
||||
00006 * DESIR101
|
||||
00007 * 03/13/2001 INITIAL DEVELOPMENT. GD DESIR101
|
||||
00008 * 03/29/2002 ADDED R101-FORMAT-CD. GB DESIR101
|
||||
00009 * R101-DATA-TYPE-CD DESIR101
|
||||
00010 * R101-MEDIUM-TYPE-CD DESIR101
|
||||
00011 * DESIR101
|
||||
00012 ***** DESIR101
|
||||
00013 DESIR101
|
||||
00014 10 R101-LENGTH PIC S9(04) COMP. DESIR101
|
||||
00015 DESIR101
|
||||
00016 10 R101-SORT-AREA. DESIR101
|
||||
00017 15 R101-REC-TYPE PIC X(03) VALUE '101'. DESIR101
|
||||
00018 15 R101-BOX-NO PIC X(08). DESIR101
|
||||
00019 15 R101-LOG-NO PIC 9(06). DESIR101
|
||||
00020 DESIR101
|
||||
00021 10 R101-DATA-AREA. DESIR101
|
||||
00022 15 R101-ELF-ID PIC S9(07) COMP-3. DESIR101
|
||||
00023 15 R101-ELF-NAME PIC X(40). DESIR101
|
||||
00024 15 R101-OPID PIC X(08). DESIR101
|
||||
00025 15 R101-JOBNAME PIC X(08). DESIR101
|
||||
00026 15 R101-FORMAT-CD PIC X(03). DESIR101
|
||||
00027 15 R101-DATA-TYPE-CD PIC X(02). DESIR101
|
||||
00028 15 R101-MEDIUM-TYPE-CD PIC X(02). DESIR101
|
||||
35
Copybook/DESIR102.cpy
Normal file
35
Copybook/DESIR102.cpy
Normal file
@ -0,0 +1,35 @@
|
||||
00001 ***** 08/28/02
|
||||
00002 * DESIR102
|
||||
00003 * DTSIR102 ELECTRONIC MEDIA ERROR NOTICE LV001
|
||||
00004 * REPORT RECORD. DESIR102
|
||||
00005 * DESIR102
|
||||
00006 * DESIR102
|
||||
00007 * 03/13/2001 INITIAL DEVELOPMENT. GD DESIR102
|
||||
00008 * DESIR102
|
||||
00009 ***** DESIR102
|
||||
00010 DESIR102
|
||||
00011 10 R102-LENGTH PIC S9(04) COMP. DESIR102
|
||||
00012 DESIR102
|
||||
00013 10 R102-SORT-AREA. DESIR102
|
||||
00014 15 R102-REC-TYPE PIC X(03) VALUE '102'. DESIR102
|
||||
00015 15 R102-BOX-NO PIC X(08). DESIR102
|
||||
00016 15 R102-ELF-ID PIC S9(07) COMP-3. DESIR102
|
||||
00017 DESIR102
|
||||
00018 10 R102-DATA-AREA. DESIR102
|
||||
00019 15 R102-RPT-TYPE PIC X(01). DESIR102
|
||||
00020 88 R102-RPT-TYPE-CONFIRM-88 VALUE '0'. DESIR102
|
||||
00021 88 R102-RPT-TYPE-ERROR-88 VALUE '1'. DESIR102
|
||||
00022 15 R102-LOG-NO PIC 9(10). DESIR102
|
||||
00023 15 R102-FORMAT-CD PIC X(03). DESIR102
|
||||
00024 15 R102-MAIL-DATE PIC S9(09) COMP-3. DESIR102
|
||||
00025 15 R102-OPID PIC X(08). DESIR102
|
||||
00026 15 R102-FMT-ADDR. DESIR102
|
||||
00027 20 R102-FMT-LINE OCCURS 5 TIMES DESIR102
|
||||
00028 INDEXED BY R102-FMT-IDX DESIR102
|
||||
00029 PIC X(40). DESIR102
|
||||
00030 15 R102-ZIP PIC X(10). DESIR102
|
||||
00031 15 R102-ADVANCED-BARCODE PIC X(14). DESIR102
|
||||
00032 DESIR102
|
||||
00033 15 R102-ERR-CNT PIC S9(04) COMP. DESIR102
|
||||
00034 15 R102-ERR-TABLE OCCURS 50 TIMES. DESIR102
|
||||
00035 20 R102-ERROR PIC X(60). DESIR102
|
||||
26
Copybook/DESIR110.cpy
Normal file
26
Copybook/DESIR110.cpy
Normal file
@ -0,0 +1,26 @@
|
||||
00001 ***** 08/28/02
|
||||
00002 * DESIR110
|
||||
00003 * DESIR110 ELECTRONIC MEDIA STATISTICS LV001
|
||||
00004 * REPORT RECORD. DESIR110
|
||||
00005 * DESIR110
|
||||
00006 * DESIR110
|
||||
00007 * 03/21/2001 INITIAL DEVELOPMENT. GD DESIR110
|
||||
00008 * DESIR110
|
||||
00009 ***** DESIR110
|
||||
00010 DESIR110
|
||||
00011 10 R110-LENGTH PIC S9(04) COMP. DESIR110
|
||||
00012 DESIR110
|
||||
00013 10 R110-SORT-AREA. DESIR110
|
||||
00014 15 R110-REC-TYPE PIC X(03) VALUE '110'. DESIR110
|
||||
00015 DESIR110
|
||||
00016 10 R110-DATA-AREA. DESIR110
|
||||
00017 15 R110-START-DATE PIC S9(09) COMP-3. DESIR110
|
||||
00018 15 R110-END-DATE PIC S9(09) COMP-3. DESIR110
|
||||
00019 15 R110-RECEIVED-CNT PIC 9(07). DESIR110
|
||||
00020 15 R110-SUCCESSFUL-CNT PIC 9(07). DESIR110
|
||||
00021 15 R110-ERROR-CNT PIC 9(07). DESIR110
|
||||
00022 15 R110-FAILED-CNT PIC 9(07). DESIR110
|
||||
00023 15 R110-IN-PROCESS-CNT PIC 9(07). DESIR110
|
||||
00024 15 R110-WAGE-SUCCESS-CNT PIC 9(07). DESIR110
|
||||
00025 15 R110-WAGE-ERROR-CNT PIC 9(07). DESIR110
|
||||
00026 15 R110-WAGE-FAILED-CNT PIC 9(07). DESIR110
|
||||
7052
Copybook/DESIR980.cpy
Normal file
7052
Copybook/DESIR980.cpy
Normal file
File diff suppressed because it is too large
Load Diff
31
Copybook/DOESILBL.cpy
Normal file
31
Copybook/DOESILBL.cpy
Normal file
@ -0,0 +1,31 @@
|
||||
00001 ***** 11/28/05
|
||||
00002 * DOESILBL
|
||||
00003 * DOESILBL LABEL REPORT RECORD. LV003
|
||||
00004 * DOESILBL
|
||||
00005 * DOESILBL
|
||||
00006 * 02/15/2001 ADDED FOR DC. ZL1 DOESILBL
|
||||
00007 * DOESILBL
|
||||
00008 ***** DOESILBL
|
||||
00009 * CL**2
|
||||
00010 * 09/29/2004 MODIFIED FOR 45 CHARACTER LABEL CL**2
|
||||
00011 * CL**2
|
||||
00012 * LVL 2 MODIFICATIONS CL**2
|
||||
00013 ***** REW CL**2
|
||||
00014 DOESILBL
|
||||
00015 10 ILBL-LENGTH PIC S9(04) COMP. DOESILBL
|
||||
00016 DOESILBL
|
||||
00017 10 ILBL-SORT-AREA. DOESILBL
|
||||
00018 15 ILBL-REC-TYPE PIC X(03) VALUE 'LBL'. DOESILBL
|
||||
00019 15 ILBL-APPLICATION-ID PIC X(02). DOESILBL
|
||||
00020 88 ILBL-APP-TAX-88 VALUE '01'. DOESILBL
|
||||
00021 88 ILBL-APP-DOCS-88 VALUE '02'. DOESILBL
|
||||
00022 88 ILBL-APP-JOB-SRVC VALUE '03'. DOESILBL
|
||||
00023 88 ILBL-APP-OTHER VALUE '04'. DOESILBL
|
||||
00024 DOESILBL
|
||||
00025 DOESILBL
|
||||
00026 DOESILBL
|
||||
00027 10 ILBL-DATA-AREA. DOESILBL
|
||||
00028 15 ILBL-FMT-LINE OCCURS 8 TIMES INDEXED BY DOESILBL
|
||||
00029 ILBL-FMT-IDX DOESILBL
|
||||
00030 * PIC X(40). CL**3
|
||||
00031 PIC X(45). CL**2
|
||||
89
Copybook/DTSIAADJ.cpy
Normal file
89
Copybook/DTSIAADJ.cpy
Normal file
@ -0,0 +1,89 @@
|
||||
00001 ***** 05/20/13
|
||||
00002 * DTSIAADJ
|
||||
00003 * DTSIAADJ ACCOUNTING TRANSACTION FILE 'ADJUSTMENT' LV011
|
||||
00004 * TRANSACTION RECORD DEFINITION. DTSIAADJ
|
||||
00005 * DTSIAADJ
|
||||
00006 * DTSIAADJ
|
||||
00007 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIAADJ
|
||||
00008 * 04/22/2004 ADDED AADJ-CMP-ESTB-ABSTIME, WHICH DTSIAADJ
|
||||
00009 * LINKS THE ADJUSTMENT TRANSACTION TO DTSIAADJ
|
||||
00010 * A COMPROMISE SETTLEMENT (MCMP) REC. GD DTSIAADJ
|
||||
00011 * 08/14/2012 ADDED AADJ-FILING-SCHED-88. GD DTSIAADJ
|
||||
00012 * DTSIAADJ
|
||||
00013 ***** DTSIAADJ
|
||||
00014 DTSIAADJ
|
||||
00015 10 AADJ-KEY-AREA. DTSIAADJ
|
||||
00016 15 AADJ-DOC-NO. DTSIAADJ
|
||||
00017 20 AADJ-BATCH-NO PIC S9(05) COMP-3. DTSIAADJ
|
||||
00018 20 AADJ-ITEM-NO PIC S9(03) COMP-3. DTSIAADJ
|
||||
00019 DTSIAADJ
|
||||
00020 10 AADJ-DATA-AREA. DTSIAADJ
|
||||
00021 15 AADJ-REC-TYPE PIC X(01). DTSIAADJ
|
||||
00022 88 AADJ-ADJ-88 VALUE 'A'. DTSIAADJ
|
||||
00023 DTSIAADJ
|
||||
00024 DTSIAADJ
|
||||
00025 15 AADJ-NAME-CHECK PIC X(04). DTSIAADJ
|
||||
00026 DTSIAADJ
|
||||
00027 15 AADJ-EMP-NO PIC S9(07) COMP-3. DTSIAADJ
|
||||
00028 DTSIAADJ
|
||||
00029 15 AADJ-ADJ-TYPE PIC X(02). DTSIAADJ
|
||||
00030 88 AADJ-CHARGE-88 VALUE 'CH'. DTSIAADJ
|
||||
00031 88 AADJ-WAIVE-88 VALUE 'WV'. DTSIAADJ
|
||||
00032 88 AADJ-TOLER-88 VALUE 'TL'. DTSIAADJ
|
||||
00033 88 AADJ-AUTO-88 VALUE 'CA'. DTSIAADJ
|
||||
00034 88 AADJ-MANUAL-88 VALUE 'CM'. DTSIAADJ
|
||||
00035 88 AADJ-WAGE-RPT-88 VALUE 'WG'. DTSIAADJ
|
||||
00036 88 AADJ-DUE-DATE-88 VALUE 'QD'. DTSIAADJ
|
||||
00037 88 AADJ-WAIVE-DATE-88 VALUE 'WD'. DTSIAADJ
|
||||
00038 88 AADJ-INT-DATE-88 VALUE 'ID'. DTSIAADJ
|
||||
00039 88 AADJ-WRITE-OFF-88 VALUE 'WO'. DTSIAADJ
|
||||
00040 88 AADJ-WRITE-OFF-REV-88 VALUE 'WR'. DTSIAADJ
|
||||
00041 88 AADJ-FILING-SCHED-88 VALUE 'FS'. DTSIAADJ
|
||||
00042 DTSIAADJ
|
||||
00043 15 AADJ-AMT PIC S9(09)V9(02) COMP-3. DTSIAADJ
|
||||
00044 DTSIAADJ
|
||||
00045 15 AADJ-RECEIVED-DATE PIC S9(09) COMP-3. DTSIAADJ
|
||||
00046 DTSIAADJ
|
||||
00047 15 AADJ-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIAADJ
|
||||
00048 DTSIAADJ
|
||||
00049 15 AADJ-APPLIC-YRQ PIC S9(05) COMP-3. DTSIAADJ
|
||||
00050 DTSIAADJ
|
||||
00051 15 AADJ-APPLIC-IND PIC X(02). DTSIAADJ
|
||||
00052 88 AADJ-UI-88 VALUE 'UI'. DTSIAADJ
|
||||
00053 88 AADJ-SUR-88 VALUE 'SU'. DTSIAADJ
|
||||
00054 88 AADJ-INT-88 VALUE 'I '. DTSIAADJ
|
||||
00055 88 AADJ-LATE-PEN-88 VALUE 'LP'. DTSIAADJ
|
||||
00056 88 AADJ-NSF-PEN-88 VALUE 'NP'. DTSIAADJ
|
||||
00057 88 AADJ-MISC-PEN-88 VALUE 'MP'. DTSIAADJ
|
||||
00058 88 AADJ-CREDIT-88 VALUE 'CR'. DTSIAADJ
|
||||
00059 88 AADJ-LP-INT-88 VALUE 'PI'. DTSIAADJ
|
||||
00060 DTSIAADJ
|
||||
00061 15 AADJ-APPLIC-DOC-NO. DTSIAADJ
|
||||
00062 20 AADJ-APPLIC-BATCH-NO DTSIAADJ
|
||||
00063 PIC S9(05) COMP-3. DTSIAADJ
|
||||
00064 20 AADJ-APPLIC-ITEM-NO PIC S9(03) COMP-3. DTSIAADJ
|
||||
00065 DTSIAADJ
|
||||
00066 15 AADJ-DATE-1 PIC S9(09) COMP-3. DTSIAADJ
|
||||
00067 DTSIAADJ
|
||||
00068 15 AADJ-DATE-2 PIC S9(09) COMP-3. DTSIAADJ
|
||||
00069 DTSIAADJ
|
||||
00070 15 AADJ-INT-SPAN-IND PIC X(01). DTSIAADJ
|
||||
00071 88 AADJ-INT-SPAN-1-88 VALUE '1'. DTSIAADJ
|
||||
00072 88 AADJ-INT-SPAN-2-88 VALUE '2'. DTSIAADJ
|
||||
00073 DTSIAADJ
|
||||
00074 15 AADJ-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIAADJ
|
||||
00075 DTSIAADJ
|
||||
00076 15 AADJ-DISREGARD-EDITS-IND DTSIAADJ
|
||||
00077 PIC X(01). DTSIAADJ
|
||||
00078 DTSIAADJ
|
||||
00079 15 AADJ-RESPONSIBLE-ACTIVITY DTSIAADJ
|
||||
00080 PIC X(03). DTSIAADJ
|
||||
00081 DTSIAADJ
|
||||
00082 15 AADJ-RESPONSIBLE-OP-ID PIC X(08). DTSIAADJ
|
||||
00083 DTSIAADJ
|
||||
00084 15 AADJ-CMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIAADJ
|
||||
00085 DTSIAADJ
|
||||
00086 15 FILLER PIC X(19). DTSIAADJ
|
||||
00087 DTSIAADJ
|
||||
00088 15 AADJ-PROCESSED-DATE PIC S9(09) COMP-3. DTSIAADJ
|
||||
00089 88 AADJ-NOT-PROCESSED-88 VALUE ZERO. DTSIAADJ
|
||||
34
Copybook/DTSIAATH.cpy
Normal file
34
Copybook/DTSIAATH.cpy
Normal file
@ -0,0 +1,34 @@
|
||||
00001 ***** 12/30/09
|
||||
00002 * DTSIAATH
|
||||
00003 * DTSIAATH ACCOUNTING TRANSACTION HISTORY FILE RECORD LV001
|
||||
00004 * DEFINITION. DTSIAATH
|
||||
00005 * DTSIAATH
|
||||
00006 * 12/11/2009 INITIAL DEVELOPMENT GD DTSIAATH
|
||||
00007 * DTSIAATH
|
||||
00008 ***** DTSIAATH
|
||||
00009 DTSIAATH
|
||||
00010 10 AATH-KEY-AREA. DTSIAATH
|
||||
00011 15 AATH-DOC-NO. DTSIAATH
|
||||
00012 20 AATH-BATCH-NO PIC S9(05) COMP-3. DTSIAATH
|
||||
00013 20 AATH-ITEM-NO PIC S9(03) COMP-3. DTSIAATH
|
||||
00014 DTSIAATH
|
||||
00015 10 AATH-DATA-AREA. DTSIAATH
|
||||
00016 15 AATH-REC-TYPE PIC X(01). DTSIAATH
|
||||
00017 88 AATH-ADJ-88 VALUE 'A'. DTSIAATH
|
||||
00018 88 AATH-HDR-88 VALUE 'H'. DTSIAATH
|
||||
00019 88 AATH-PAY-88 VALUE 'P'. DTSIAATH
|
||||
00020 88 AATH-RPT-88 VALUE 'R'. DTSIAATH
|
||||
00021 88 AATH-ATX-88 VALUE 'T'. DTSIAATH
|
||||
00022 DTSIAATH
|
||||
00023 15 AATH-DATA-FILLER PIC X(122). DTSIAATH
|
||||
00024 DTSIAATH
|
||||
00025 10 AATH-AUDIT-AREA. DTSIAATH
|
||||
00026 15 AATH-ACTION PIC X(01). DTSIAATH
|
||||
00027 88 AATH-ACTION-ADD-88 VALUE 'A'. DTSIAATH
|
||||
00028 88 AATH-ACTION-UPD-88 VALUE 'U'. DTSIAATH
|
||||
00029 88 AATH-ACTION-DEL-88 VALUE 'D'. DTSIAATH
|
||||
00030 15 AATH-OP-ID PIC X(08). DTSIAATH
|
||||
00031 15 AATH-DATE PIC S9(09) COMP-3. DTSIAATH
|
||||
00032 15 AATH-TIME PIC S9(07) COMP-3. DTSIAATH
|
||||
00033 DTSIAATH
|
||||
00034 10 AATH-FILLER PIC X(110). DTSIAATH
|
||||
140
Copybook/DTSIAATX.cpy
Normal file
140
Copybook/DTSIAATX.cpy
Normal file
@ -0,0 +1,140 @@
|
||||
00001 ***** 02/11/08
|
||||
00002 * DTSIAATX
|
||||
00003 * DTSIAATX ACCOUNTING TRANSACTION FILE 'ANNUAL REPORT' LV005
|
||||
00004 * TRANSACTION RECORD DEFINITION. DTSIAATX
|
||||
00005 * DTSIAATX
|
||||
00006 * DTSIAATX
|
||||
00007 * 12/27/2001 INITIAL DEVELOPMENT. GD DTSIAATX
|
||||
00008 * 02/06/2008 ADDED STATUS CHANGE IND. GD DTSIAATX
|
||||
00009 * DTSIAATX
|
||||
00010 ***** DTSIAATX
|
||||
00011 DTSIAATX
|
||||
00012 10 AATX-KEY-AREA. DTSIAATX
|
||||
00013 15 AATX-DOC-NO. DTSIAATX
|
||||
00014 20 AATX-BATCH-NO PIC S9(05) COMP-3. DTSIAATX
|
||||
00015 20 AATX-ITEM-NO PIC S9(03) COMP-3. DTSIAATX
|
||||
00016 DTSIAATX
|
||||
00017 10 AATX-DATA-AREA. DTSIAATX
|
||||
00018 15 AATX-REC-TYPE PIC X(01). DTSIAATX
|
||||
00019 88 AATX-ATX-88 VALUE 'T'. DTSIAATX
|
||||
00020 DTSIAATX
|
||||
00021 15 AATX-NAME-CHECK PIC X(04). DTSIAATX
|
||||
00022 88 AATX-NAME-CHECK-NO-ENTRY-88 VALUE SPACES. DTSIAATX
|
||||
00023 DTSIAATX
|
||||
00024 15 AATX-EMP-NO PIC S9(07) COMP-3. DTSIAATX
|
||||
00025 88 AATX-EMP-NO-NO-ENTRY-88 VALUE +0. DTSIAATX
|
||||
00026 DTSIAATX
|
||||
00027 15 AATX-RPT-TYPE PIC X(02). DTSIAATX
|
||||
00028 88 AATX-ORIG-88 VALUE 'OR'. DTSIAATX
|
||||
00029 88 AATX-EMP-AMEND-88 VALUE 'EA'. DTSIAATX
|
||||
00030 88 AATX-AUDIT-88 VALUE 'AU'. DTSIAATX
|
||||
00031 88 AATX-FLD-SUP-88 VALUE 'FS'. DTSIAATX
|
||||
00032 88 AATX-ADMIN-CORR-88 VALUE 'AC'. DTSIAATX
|
||||
00033 88 AATX-ESTIM-88 VALUE 'ES'. DTSIAATX
|
||||
00034 88 AATX-WITHDRW-88 VALUE 'WD'. DTSIAATX
|
||||
00035 88 AATX-TAX-ADJ-88 VALUE 'TA'. DTSIAATX
|
||||
00036 88 AATX-CLM-AFF-88 VALUE 'CA'. DTSIAATX
|
||||
00037 88 AATX-INTERSTATE-88 VALUE 'IS'. DTSIAATX
|
||||
00038 88 AATX-SUPPLEM-88 VALUE 'EA' 'AU' DTSIAATX
|
||||
00039 'FS' 'AC'. DTSIAATX
|
||||
00040 88 AATX-ADJ-TAX-ONLY-88 VALUE 'ES' 'TA'. DTSIAATX
|
||||
00041 DTSIAATX
|
||||
00042 15 AATX-YRQ PIC S9(05) COMP-3. DTSIAATX
|
||||
00043 88 AATX-YRQ-NO-ENTRY-88 VALUE +0. DTSIAATX
|
||||
00044 DTSIAATX
|
||||
00045 15 AATX-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIAATX
|
||||
00046 88 AATX-TOT-WAGE-NO-ENTRY-88 DTSIAATX
|
||||
00047 VALUE -99999999999.99. DTSIAATX
|
||||
00048 DTSIAATX
|
||||
00049 15 AATX-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIAATX
|
||||
00050 88 AATX-EXCESS-WAGE-NO-ENTRY-88 DTSIAATX
|
||||
00051 VALUE -99999999999.99. DTSIAATX
|
||||
00052 DTSIAATX
|
||||
00053 15 AATX-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIAATX
|
||||
00054 88 AATX-TAX-WAGE-NO-ENTRY-88 DTSIAATX
|
||||
00055 VALUE -99999999999.99. DTSIAATX
|
||||
00056 DTSIAATX
|
||||
00057 15 AATX-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAATX
|
||||
00058 88 AATX-REMIT-AMT-NO-ENTRY-88 DTSIAATX
|
||||
00059 VALUE -999999999.99. DTSIAATX
|
||||
00060 DTSIAATX
|
||||
00061 15 AATX-WAIVE-BOTH-IND PIC X(01). DTSIAATX
|
||||
00062 88 AATX-WAIVE-BOTH-YES-88 VALUE 'Y'. DTSIAATX
|
||||
00063 88 AATX-WAIVE-BOTH-NO-88 VALUE 'N'. DTSIAATX
|
||||
00064 DTSIAATX
|
||||
00065 15 AATX-WAIVE-INT-IND PIC X(01). DTSIAATX
|
||||
00066 88 AATX-WAIVE-INT-YES-88 VALUE 'Y'. DTSIAATX
|
||||
00067 88 AATX-WAIVE-INT-NO-88 VALUE 'N'. DTSIAATX
|
||||
00068 DTSIAATX
|
||||
00069 15 AATX-WAIVE-LATE-PEN-IND PIC X(01). DTSIAATX
|
||||
00070 88 AATX-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIAATX
|
||||
00071 88 AATX-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIAATX
|
||||
00072 DTSIAATX
|
||||
00073 15 AATX-TOTAL-EMPL-CNT PIC S9(07) COMP-3. DTSIAATX
|
||||
00074 88 AATX-TOTAL-NO-ENTRY-88 VALUE +9999999. DTSIAATX
|
||||
00075 DTSIAATX
|
||||
00076 15 AATX-JAN-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00077 88 AATX-JAN-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00078 DTSIAATX
|
||||
00079 15 AATX-FEB-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00080 88 AATX-FEB-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00081 DTSIAATX
|
||||
00082 15 AATX-MAR-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00083 88 AATX-MAR-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00084 DTSIAATX
|
||||
00085 15 AATX-APR-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00086 88 AATX-APR-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00087 DTSIAATX
|
||||
00088 15 AATX-MAY-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00089 88 AATX-MAY-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00090 DTSIAATX
|
||||
00091 15 AATX-JUN-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00092 88 AATX-JUN-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00093 DTSIAATX
|
||||
00094 15 AATX-JUL-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00095 88 AATX-JUL-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00096 DTSIAATX
|
||||
00097 15 AATX-AUG-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00098 88 AATX-AUG-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00099 DTSIAATX
|
||||
00100 15 AATX-SEP-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00101 88 AATX-SEP-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00102 DTSIAATX
|
||||
00103 15 AATX-OCT-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00104 88 AATX-OCT-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00105 DTSIAATX
|
||||
00106 15 AATX-NOV-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00107 88 AATX-NOV-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00108 DTSIAATX
|
||||
00109 15 AATX-DEC-EMPL-CNT PIC S9(05) COMP-3. DTSIAATX
|
||||
00110 88 AATX-DEC-NO-ENTRY-88 VALUE +99999. DTSIAATX
|
||||
00111 DTSIAATX
|
||||
00112 15 AATX-VERIFIED-IND PIC X(01). DTSIAATX
|
||||
00113 88 AATX-VERIFIED-YES-88 VALUE 'Y'. DTSIAATX
|
||||
00114 88 AATX-VERIFIED-NO-88 VALUE ' '. DTSIAATX
|
||||
00115 DTSIAATX
|
||||
00116 15 AATX-RECEIVED-DATE PIC S9(09) COMP-3. DTSIAATX
|
||||
00117 DTSIAATX
|
||||
00118 15 AATX-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIAATX
|
||||
00119 DTSIAATX
|
||||
00120 15 AATX-RESPONSIBLE-ACTIVITY DTSIAATX
|
||||
00121 PIC X(03). DTSIAATX
|
||||
00122 DTSIAATX
|
||||
00123 15 AATX-RESPONSIBLE-OP-ID PIC X(08). DTSIAATX
|
||||
00124 DTSIAATX
|
||||
00125 15 AATX-DISREGARD-EDITS-IND DTSIAATX
|
||||
00126 PIC X(01). DTSIAATX
|
||||
00127 DTSIAATX
|
||||
00128 15 AATX-PASSED-FULL-EDITS-IND DTSIAATX
|
||||
00129 PIC X(01). DTSIAATX
|
||||
00130 88 AATX-PASSED-FULL-EDITS-NO-88 VALUE 'N'. DTSIAATX
|
||||
00131 88 AATX-PASSED-FULL-EDITS-YES-88 VALUE 'Y'. DTSIAATX
|
||||
00132 DTSIAATX
|
||||
00133 15 AATX-STATUS-CHANGE-IND PIC X(01). DTSIAATX
|
||||
00134 88 AATX-STATUS-CHANGE-NO-88 VALUE 'N'. DTSIAATX
|
||||
00135 88 AATX-STATUS-CHANGE-YES-88 VALUE 'Y'. DTSIAATX
|
||||
00136 DTSIAATX
|
||||
00137 15 FILLER PIC X(09). DTSIAATX
|
||||
00138 DTSIAATX
|
||||
00139 15 AATX-PROCESSED-DATE PIC S9(09) COMP-3. DTSIAATX
|
||||
00140 88 AATX-NOT-PROCESSED-88 VALUE ZERO. DTSIAATX
|
||||
70
Copybook/DTSIAHDR.cpy
Normal file
70
Copybook/DTSIAHDR.cpy
Normal file
@ -0,0 +1,70 @@
|
||||
00001 ***** 04/23/12
|
||||
00002 * DTSIAHDR
|
||||
00003 * DTSIAHDR ACCOUNTING TRANSACTION FILE 'HEADER' LV001
|
||||
00004 * RECORD DEFINITION. DTSIAHDR
|
||||
00005 * DTSIAHDR
|
||||
00006 * DTSIAHDR
|
||||
00007 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIAHDR
|
||||
00008 * 12/07/2005 ADDED BANK BATCH NUMBER. GD DTSIAHDR
|
||||
00009 * 04/04/2011 ADDED DEPOSIT-ID FOR WALK-IN DTSIAHDR
|
||||
00010 * PAYMENTS THROUGH TREASURY. GD DTSIAHDR
|
||||
00011 * DTSIAHDR
|
||||
00012 ***** DTSIAHDR
|
||||
00013 DTSIAHDR
|
||||
00014 10 AHDR-KEY-AREA. DTSIAHDR
|
||||
00015 15 AHDR-DOC-NO. DTSIAHDR
|
||||
00016 20 AHDR-BATCH-NO PIC S9(05) COMP-3. DTSIAHDR
|
||||
00017 20 AHDR-ITEM-NO PIC S9(03) COMP-3. DTSIAHDR
|
||||
00018 DTSIAHDR
|
||||
00019 DTSIAHDR
|
||||
00020 10 AHDR-DATA-AREA. DTSIAHDR
|
||||
00021 15 AHDR-REC-TYPE PIC X(01). DTSIAHDR
|
||||
00022 88 AHDR-HDR-88 VALUE 'H'. DTSIAHDR
|
||||
00023 DTSIAHDR
|
||||
00024 DTSIAHDR
|
||||
00025 15 AHDR-BATCH-BALANCED-IND PIC X(01). DTSIAHDR
|
||||
00026 88 AHDR-BATCH-BALANCED-NO-88 VALUE 'N'. DTSIAHDR
|
||||
00027 88 AHDR-BATCH-BALANCED-YES-88 VALUE 'Y'. DTSIAHDR
|
||||
00028 DTSIAHDR
|
||||
00029 15 AHDR-BATCH-HELD-IND PIC X(01). DTSIAHDR
|
||||
00030 88 AHDR-BATCH-HELD-NO-88 VALUE 'N'. DTSIAHDR
|
||||
00031 88 AHDR-BATCH-HELD-YES-88 VALUE 'Y'. DTSIAHDR
|
||||
00032 DTSIAHDR
|
||||
00033 15 AHDR-ESTB-OP-ID PIC X(08). DTSIAHDR
|
||||
00034 88 AHDR-ESTB-SYSTEM-88 VALUE 'SYSTEM'. DTSIAHDR
|
||||
00035 DTSIAHDR
|
||||
00036 15 AHDR-ESTB-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00037 DTSIAHDR
|
||||
00038 15 AHDR-CHNG-OP-ID PIC X(08). DTSIAHDR
|
||||
00039 DTSIAHDR
|
||||
00040 15 AHDR-CHNG-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00041 DTSIAHDR
|
||||
00042 15 AHDR-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00043 DTSIAHDR
|
||||
00044 15 AHDR-RECEIVED-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00045 DTSIAHDR
|
||||
00046 15 AHDR-LAST-USED-ITEM-NO PIC S9(03) COMP-3. DTSIAHDR
|
||||
00047 DTSIAHDR
|
||||
00048 15 AHDR-CONTROL-TRAN-CNT PIC S9(03) COMP-3. DTSIAHDR
|
||||
00049 DTSIAHDR
|
||||
00050 15 AHDR-ATC-FILE-TRAN-CNT PIC S9(03) COMP-3. DTSIAHDR
|
||||
00051 DTSIAHDR
|
||||
00052 15 AHDR-PROC-TRAN-CNT PIC S9(03) COMP-3. DTSIAHDR
|
||||
00053 DTSIAHDR
|
||||
00054 15 AHDR-CONTROL-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAHDR
|
||||
00055 DTSIAHDR
|
||||
00056 15 AHDR-ATC-FILE-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAHDR
|
||||
00057 DTSIAHDR
|
||||
00058 15 AHDR-PROC-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAHDR
|
||||
00059 DTSIAHDR
|
||||
00060 15 AHDR-ANNUAL-BATCH-IND PIC X(01). DTSIAHDR
|
||||
00061 88 AHDR-ANNUAL-BATCH-YES-88 VALUE 'Y'. DTSIAHDR
|
||||
00062 88 AHDR-ANNUAL-BATCH-NO-88 VALUE 'N'. DTSIAHDR
|
||||
00063 DTSIAHDR
|
||||
00064 15 AHDR-BANK-BATCH-NO PIC S9(05) COMP-3. DTSIAHDR
|
||||
00065 DTSIAHDR
|
||||
00066 15 AHDR-CHK-SCAN-DATE PIC S9(09) COMP-3. DTSIAHDR
|
||||
00067 DTSIAHDR
|
||||
00068 15 AHDR-DEPOSIT-ID PIC S9(11) COMP-3. DTSIAHDR
|
||||
00069 DTSIAHDR
|
||||
00070 15 FILLER PIC X(11). DTSIAHDR
|
||||
35
Copybook/DTSIALEN.cpy
Normal file
35
Copybook/DTSIALEN.cpy
Normal file
@ -0,0 +1,35 @@
|
||||
00001 ***** 06/29/02
|
||||
00002 * DTSIALEN
|
||||
00003 * DTSIALEN ACCOUNTING TRANSACTION FILE RECORD LENGTHS. LV005
|
||||
00004 * DTSIALEN
|
||||
00005 * DTSIALEN
|
||||
00006 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIALEN
|
||||
00007 * DTSIALEN
|
||||
00008 ***** DTSIALEN
|
||||
00009 DTSIALEN
|
||||
00010 10 ALEN-LENGTHS. DTSIALEN
|
||||
00011 15 ALEN-ADJ-LENGTH PIC S9(04) COMP VALUE +100. DTSIALEN
|
||||
00012 DTSIALEN
|
||||
00013 15 ALEN-HDR-LENGTH PIC S9(04) COMP VALUE +96. DTSIALEN
|
||||
00014 DTSIALEN
|
||||
00015 15 ALEN-PAY-LENGTH PIC S9(04) COMP VALUE +96. DTSIALEN
|
||||
00016 DTSIALEN
|
||||
00017 15 ALEN-RPT-LENGTH PIC S9(04) COMP VALUE +128. DTSIALEN
|
||||
00018 DTSIALEN
|
||||
00019 15 ALEN-ATX-LENGTH PIC S9(04) COMP VALUE +128. DTSIALEN
|
||||
00020 DTSIALEN
|
||||
00021 DTSIALEN
|
||||
00022 15 ALEN-MAX-LENGTH PIC S9(04) COMP VALUE +128. DTSIALEN
|
||||
00023 DTSIALEN
|
||||
00024 15 ALEN-KEY-LENGTH PIC S9(04) COMP VALUE +5. DTSIALEN
|
||||
00025 DTSIALEN
|
||||
00026 DTSIALEN
|
||||
00027 15 ALEN-ADJ-PREFIX PIC X(04) VALUE 'AADJ'. DTSIALEN
|
||||
00028 DTSIALEN
|
||||
00029 15 ALEN-HDR-PREFIX PIC X(04) VALUE 'AHDR'. DTSIALEN
|
||||
00030 DTSIALEN
|
||||
00031 15 ALEN-PAY-PREFIX PIC X(04) VALUE 'APAY'. DTSIALEN
|
||||
00032 DTSIALEN
|
||||
00033 15 ALEN-RPT-PREFIX PIC X(04) VALUE 'ARPT'. DTSIALEN
|
||||
00034 DTSIALEN
|
||||
00035 15 ALEN-ATX-PREFIX PIC X(04) VALUE 'AATX'. DTSIALEN
|
||||
102
Copybook/DTSIAPAY.cpy
Normal file
102
Copybook/DTSIAPAY.cpy
Normal file
@ -0,0 +1,102 @@
|
||||
00001 ***** 09/18/12
|
||||
00002 * DTSIAPAY
|
||||
00003 * DTSIAPAY ACCOUNTING TRANSACTION 'PAYMENT' LV021
|
||||
00004 * TRANSACTION RECORD DEFINITION. DTSIAPAY
|
||||
00005 * DTSIAPAY
|
||||
00006 * DTSIAPAY
|
||||
00007 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIAPAY
|
||||
00008 * 04/07/2003 MODIFIED FOR ELECTRONIC PAYMENT - DTSIAPAY
|
||||
00009 * ADDED TRACE NUMBER. GD DTSIAPAY
|
||||
00010 * 02/10/2010 MODIFIED FOR MCHK - CHECK SEQUENCE DTSIAPAY
|
||||
00011 * NUMBER ADDED. GD DTSIAPAY
|
||||
00012 * 03/08/2011 ADDED PAY TYPES NP AND NR FOR DTSIAPAY
|
||||
00013 * NON-DOES PAYMENTS. GD DTSIAPAY
|
||||
00014 * 01/09/2012 ADDED THE REFUND ID IDENTIFYING DTSIAPAY
|
||||
00015 * THE REFUND IN THE SERVER DB GD DTSIAPAY
|
||||
00016 * DTSIAPAY
|
||||
00017 ***** DTSIAPAY
|
||||
00018 DTSIAPAY
|
||||
00019 10 APAY-KEY-AREA. DTSIAPAY
|
||||
00020 15 APAY-DOC-NO. DTSIAPAY
|
||||
00021 20 APAY-BATCH-NO PIC S9(05) COMP-3. DTSIAPAY
|
||||
00022 20 APAY-ITEM-NO PIC S9(03) COMP-3. DTSIAPAY
|
||||
00023 DTSIAPAY
|
||||
00024 10 APAY-DATA-AREA. DTSIAPAY
|
||||
00025 15 APAY-REC-TYPE PIC X(01). DTSIAPAY
|
||||
00026 88 APAY-PAY-88 VALUE 'P'. DTSIAPAY
|
||||
00027 DTSIAPAY
|
||||
00028 DTSIAPAY
|
||||
00029 15 APAY-NAME-CHECK PIC X(04). DTSIAPAY
|
||||
00030 DTSIAPAY
|
||||
00031 15 APAY-EMP-NO PIC S9(07) COMP-3. DTSIAPAY
|
||||
00032 DTSIAPAY
|
||||
00033 15 APAY-PAY-TYPE PIC X(02). DTSIAPAY
|
||||
00034 88 APAY-OR-PAY-88 VALUE 'OR'. DTSIAPAY
|
||||
00035 88 APAY-PAYMENT-88 VALUE 'PA'. DTSIAPAY
|
||||
00036 88 APAY-PAY-REV-88 VALUE 'PR'. DTSIAPAY
|
||||
00037 88 APAY-REFUND-88 VALUE 'RF'. DTSIAPAY
|
||||
00038 88 APAY-REF-REV-88 VALUE 'RR'. DTSIAPAY
|
||||
00039 88 APAY-NG-CHECK-88 VALUE 'NG'. DTSIAPAY
|
||||
00040 88 APAY-NON-DOES-PAY-88 VALUE 'NP'. DTSIAPAY
|
||||
00041 88 APAY-NON-DOES-REV-88 VALUE 'NR'. DTSIAPAY
|
||||
00042 DTSIAPAY
|
||||
00043 15 APAY-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIAPAY
|
||||
00044 DTSIAPAY
|
||||
00045 15 APAY-WAIVE-INT-IND PIC X(01). DTSIAPAY
|
||||
00046 88 APAY-WAIVE-INT-YES-88 VALUE 'Y'. DTSIAPAY
|
||||
00047 88 APAY-WAIVE-INT-NO-88 VALUE 'N'. DTSIAPAY
|
||||
00048 DTSIAPAY
|
||||
00049 15 APAY-WAIVE-LATE-PEN-IND PIC X(01). DTSIAPAY
|
||||
00050 88 APAY-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIAPAY
|
||||
00051 88 APAY-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIAPAY
|
||||
00052 DTSIAPAY
|
||||
00053 15 APAY-NSF-PEN-CHARGE-IND PIC X(01). DTSIAPAY
|
||||
00054 88 APAY-NSF-PEN-CHARGE-YES-88 VALUE 'Y'. DTSIAPAY
|
||||
00055 88 APAY-NSF-PEN-CHARGE-NO-88 VALUE 'N'. DTSIAPAY
|
||||
00056 DTSIAPAY
|
||||
00057 15 APAY-RECEIVED-DATE PIC S9(09) COMP-3. DTSIAPAY
|
||||
00058 DTSIAPAY
|
||||
00059 15 APAY-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIAPAY
|
||||
00060 DTSIAPAY
|
||||
00061 15 APAY-APPLIC-YRQ PIC S9(05) COMP-3. DTSIAPAY
|
||||
00062 DTSIAPAY
|
||||
00063 15 APAY-APPLIC-IND PIC X(02). DTSIAPAY
|
||||
00064 88 APAY-UI-TAX-88 VALUE 'UI'. DTSIAPAY
|
||||
00065 88 APAY-SUR-88 VALUE 'SU'. DTSIAPAY
|
||||
00066 88 APAY-INT-88 VALUE 'I '. DTSIAPAY
|
||||
00067 88 APAY-LATE-PEN-88 VALUE 'LP'. DTSIAPAY
|
||||
00068 88 APAY-NSF-PEN-88 VALUE 'NP'. DTSIAPAY
|
||||
00069 88 APAY-MISC-PEN-88 VALUE 'MP'. DTSIAPAY
|
||||
00070 88 APAY-CREDIT-88 VALUE 'CR'. DTSIAPAY
|
||||
00071 DTSIAPAY
|
||||
00072 15 APAY-APPLIC-DOC-NO. DTSIAPAY
|
||||
00073 20 APAY-APPLIC-BATCH-NO DTSIAPAY
|
||||
00074 PIC S9(05) COMP-3. DTSIAPAY
|
||||
00075 20 APAY-APPLIC-ITEM-NO PIC S9(03) COMP-3. DTSIAPAY
|
||||
00076 DTSIAPAY
|
||||
00077 15 APAY-DISREGARD-EDITS-IND DTSIAPAY
|
||||
00078 PIC X(01). DTSIAPAY
|
||||
00079 DTSIAPAY
|
||||
00080 15 APAY-RESPONSIBLE-ACTIVITY DTSIAPAY
|
||||
00081 PIC X(03). DTSIAPAY
|
||||
00082 DTSIAPAY
|
||||
00083 15 APAY-RESPONSIBLE-OP-ID PIC X(08). DTSIAPAY
|
||||
00084 DTSIAPAY
|
||||
00085 15 APAY-ANNUAL-RPT-IND PIC X(01). DTSIAPAY
|
||||
00086 88 APAY-ANNUAL-RPT-NULL-88 VALUE '0'. DTSIAPAY
|
||||
00087 88 APAY-ANNUAL-RPT-PMT-88 VALUE '1'. DTSIAPAY
|
||||
00088 88 APAY-ANNUAL-RPT-WD-88 VALUE '2'. DTSIAPAY
|
||||
00089 DTSIAPAY
|
||||
00090 15 APAY-TRACE-NO PIC S9(13) COMP-3. DTSIAPAY
|
||||
00091 DTSIAPAY
|
||||
00092 15 APAY-NSF-MNTE-ABSTIME PIC S9(15) COMP-3. DTSIAPAY
|
||||
00093 DTSIAPAY
|
||||
00094 15 APAY-CHECK-SCAN-DT PIC S9(09) COMP-3. DTSIAPAY
|
||||
00095 15 APAY-CHECK-SEQUENCE PIC S9(05) COMP-3. DTSIAPAY
|
||||
00096 DTSIAPAY
|
||||
00097 15 APAY-REFUND-ID PIC S9(09) COMP-3. DTSIAPAY
|
||||
00098 DTSIAPAY
|
||||
00099 15 FILLER PIC X(05). DTSIAPAY
|
||||
00100 DTSIAPAY
|
||||
00101 15 APAY-PROCESSED-DATE PIC S9(09) COMP-3. DTSIAPAY
|
||||
00102 88 APAY-NOT-PROCESSED-88 VALUE ZERO. DTSIAPAY
|
||||
137
Copybook/DTSIARPT.cpy
Normal file
137
Copybook/DTSIARPT.cpy
Normal file
@ -0,0 +1,137 @@
|
||||
00001 ***** 04/05/13
|
||||
00002 * DTSIARPT
|
||||
00003 * DTSIARPT ACCOUNTING TRANSACTION FILE 'REPORT' LV009
|
||||
00004 * TRANSACTION RECORD DEFINITION. DTSIARPT
|
||||
00005 * DTSIARPT
|
||||
00006 * DTSIARPT
|
||||
00007 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIARPT
|
||||
00008 * 04/07/2003 MODIFIED FOR ELECTRONIC FILING - DTSIARPT
|
||||
00009 * ADDED TRACE NUMBER AND DTSIARPT
|
||||
00010 * PSEUDO-DOC NUMBER. GD DTSIARPT
|
||||
00011 * 10/06/2005 ADDED ARPT-STATUS-CHNG-IND GD DTSIARPT
|
||||
00012 * 02/10/2010 MODIFIED FOR MCHK - CHECK SEQUENCE DTSIARPT
|
||||
00013 * NUMBER ADDED. GD DTSIARPT
|
||||
00014 * 09/27/2012 ADDED CLAIMANT WAGE REPORT TYPE - CL**3
|
||||
00015 * CW. GD CL**3
|
||||
00016 * 05/08/2013 ADDED ANNUAL REPORT INDICATOR GD CL**8
|
||||
00017 * DTSIARPT
|
||||
00018 ***** DTSIARPT
|
||||
00019 DTSIARPT
|
||||
00020 10 ARPT-KEY-AREA. DTSIARPT
|
||||
00021 15 ARPT-DOC-NO. DTSIARPT
|
||||
00022 20 ARPT-BATCH-NO PIC S9(05) COMP-3. DTSIARPT
|
||||
00023 20 ARPT-ITEM-NO PIC S9(03) COMP-3. DTSIARPT
|
||||
00024 DTSIARPT
|
||||
00025 10 ARPT-DATA-AREA. DTSIARPT
|
||||
00026 15 ARPT-REC-TYPE PIC X(01). DTSIARPT
|
||||
00027 88 ARPT-RPT-88 VALUE 'R'. DTSIARPT
|
||||
00028 DTSIARPT
|
||||
00029 15 ARPT-NAME-CHECK PIC X(04). DTSIARPT
|
||||
00030 88 ARPT-NAME-CHECK-NO-ENTRY-88 VALUE SPACES. DTSIARPT
|
||||
00031 DTSIARPT
|
||||
00032 15 ARPT-EMP-NO PIC S9(07) COMP-3. DTSIARPT
|
||||
00033 88 ARPT-EMP-NO-NO-ENTRY-88 VALUE +0. DTSIARPT
|
||||
00034 DTSIARPT
|
||||
00035 15 ARPT-RPT-TYPE PIC X(02). DTSIARPT
|
||||
00036 88 ARPT-ORIG-88 VALUE 'OR'. DTSIARPT
|
||||
00037 88 ARPT-EMP-AMEND-88 VALUE 'EA'. DTSIARPT
|
||||
00038 88 ARPT-AUDIT-88 VALUE 'AU'. DTSIARPT
|
||||
00039 88 ARPT-FLD-SUP-88 VALUE 'FS'. DTSIARPT
|
||||
00040 88 ARPT-ADMIN-CORR-88 VALUE 'AC'. DTSIARPT
|
||||
00041 88 ARPT-ESTIM-88 VALUE 'ES'. DTSIARPT
|
||||
00042 88 ARPT-CLMT-WAGE-88 VALUE 'CW'. CL**2
|
||||
00043 88 ARPT-TAX-WAGE-88 VALUE 'TW'. CL**9
|
||||
00044 88 ARPT-WITHDRW-88 VALUE 'WD'. DTSIARPT
|
||||
00045 88 ARPT-SUPPLEM-88 VALUE 'EA' 'AU' DTSIARPT
|
||||
00046 'FS' 'AC'. DTSIARPT
|
||||
00047 DTSIARPT
|
||||
00048 15 ARPT-YRQ PIC S9(05) COMP-3. DTSIARPT
|
||||
00049 88 ARPT-YRQ-NO-ENTRY-88 VALUE +0. DTSIARPT
|
||||
00050 DTSIARPT
|
||||
00051 15 ARPT-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIARPT
|
||||
00052 88 ARPT-TOT-WAGE-NO-ENTRY-88 DTSIARPT
|
||||
00053 VALUE -99999999999.99. DTSIARPT
|
||||
00054 DTSIARPT
|
||||
00055 15 ARPT-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIARPT
|
||||
00056 88 ARPT-EXCESS-WAGE-NO-ENTRY-88 DTSIARPT
|
||||
00057 VALUE -99999999999.99. DTSIARPT
|
||||
00058 DTSIARPT
|
||||
00059 15 ARPT-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIARPT
|
||||
00060 88 ARPT-TAX-WAGE-NO-ENTRY-88 DTSIARPT
|
||||
00061 VALUE -99999999999.99. DTSIARPT
|
||||
00062 DTSIARPT
|
||||
00063 15 ARPT-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIARPT
|
||||
00064 88 ARPT-REMIT-AMT-NO-ENTRY-88 DTSIARPT
|
||||
00065 VALUE -999999999.99. DTSIARPT
|
||||
00066 DTSIARPT
|
||||
00067 15 ARPT-WAGE-RPT-IND PIC X(01). DTSIARPT
|
||||
00068 88 ARPT-WAGE-RPT-YES-88 VALUE 'Y'. DTSIARPT
|
||||
00069 88 ARPT-WAGE-RPT-NO-88 VALUE 'N'. DTSIARPT
|
||||
00070 88 ARPT-WAGE-RPT-NO-ENTRY-88 VALUE 'D'. DTSIARPT
|
||||
00071 DTSIARPT
|
||||
00072 15 ARPT-WAIVE-BOTH-IND PIC X(01). DTSIARPT
|
||||
00073 88 ARPT-WAIVE-BOTH-YES-88 VALUE 'Y'. DTSIARPT
|
||||
00074 88 ARPT-WAIVE-BOTH-NO-88 VALUE 'N'. DTSIARPT
|
||||
00075 DTSIARPT
|
||||
00076 15 ARPT-WAIVE-INT-IND PIC X(01). DTSIARPT
|
||||
00077 88 ARPT-WAIVE-INT-YES-88 VALUE 'Y'. DTSIARPT
|
||||
00078 88 ARPT-WAIVE-INT-NO-88 VALUE 'N'. DTSIARPT
|
||||
00079 DTSIARPT
|
||||
00080 15 ARPT-WAIVE-LATE-PEN-IND PIC X(01). DTSIARPT
|
||||
00081 88 ARPT-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIARPT
|
||||
00082 88 ARPT-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIARPT
|
||||
00083 DTSIARPT
|
||||
00084 15 ARPT-TOTAL-EMPL-CNT PIC S9(07) COMP-3. DTSIARPT
|
||||
00085 88 ARPT-TOTAL-NO-ENTRY-88 VALUE +9999999. DTSIARPT
|
||||
00086 DTSIARPT
|
||||
00087 15 ARPT-1ST-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIARPT
|
||||
00088 88 ARPT-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIARPT
|
||||
00089 DTSIARPT
|
||||
00090 15 ARPT-2ND-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIARPT
|
||||
00091 88 ARPT-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIARPT
|
||||
00092 DTSIARPT
|
||||
00093 15 ARPT-3RD-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIARPT
|
||||
00094 88 ARPT-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIARPT
|
||||
00095 DTSIARPT
|
||||
00096 15 ARPT-VERIFIED-IND PIC X(01). DTSIARPT
|
||||
00097 88 ARPT-VERIFIED-YES-88 VALUE 'Y'. DTSIARPT
|
||||
00098 88 ARPT-VERIFIED-NO-88 VALUE ' '. DTSIARPT
|
||||
00099 DTSIARPT
|
||||
00100 15 ARPT-RECEIVED-DATE PIC S9(09) COMP-3. DTSIARPT
|
||||
00101 DTSIARPT
|
||||
00102 15 ARPT-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIARPT
|
||||
00103 DTSIARPT
|
||||
00104 15 ARPT-RESPONSIBLE-ACTIVITY DTSIARPT
|
||||
00105 PIC X(03). DTSIARPT
|
||||
00106 DTSIARPT
|
||||
00107 15 ARPT-RESPONSIBLE-OP-ID PIC X(08). DTSIARPT
|
||||
00108 DTSIARPT
|
||||
00109 15 ARPT-DISREGARD-EDITS-IND DTSIARPT
|
||||
00110 PIC X(01). DTSIARPT
|
||||
00111 DTSIARPT
|
||||
00112 15 ARPT-PASSED-FULL-EDITS-IND DTSIARPT
|
||||
00113 PIC X(01). DTSIARPT
|
||||
00114 88 ARPT-PASSED-FULL-EDITS-NO-88 VALUE 'N'. DTSIARPT
|
||||
00115 88 ARPT-PASSED-FULL-EDITS-YES-88 VALUE 'Y'. DTSIARPT
|
||||
00116 DTSIARPT
|
||||
00117 15 ARPT-TRACE-NO PIC S9(13) COMP-3. DTSIARPT
|
||||
00118 DTSIARPT
|
||||
00119 15 ARPT-PSEUDO-DOC-NO. DTSIARPT
|
||||
00120 20 ARPT-PSEUDO-BATCH-NO PIC S9(05) COMP-3. DTSIARPT
|
||||
00121 20 ARPT-PSEUDO-ITEM-NO PIC S9(03) COMP-3. DTSIARPT
|
||||
00122 DTSIARPT
|
||||
00123 15 ARPT-STATUS-CHNG-IND PIC X(01). DTSIARPT
|
||||
00124 88 ARPT-STATUS-CHNG-YES-88 VALUE 'Y'. DTSIARPT
|
||||
00125 88 ARPT-STATUS-CHNG-NO-88 VALUE 'N'. DTSIARPT
|
||||
00126 DTSIARPT
|
||||
00127 15 ARPT-CHECK-SCAN-DT PIC S9(09) COMP-3. DTSIARPT
|
||||
00128 15 ARPT-CHECK-SEQUENCE PIC S9(03) COMP-3. DTSIARPT
|
||||
00129 DTSIARPT
|
||||
00130 15 ARPT-ANNUAL-IND PIC X(01). CL**8
|
||||
00131 88 ARPT-ANNUAL-YES-88 VALUE 'Y'. CL**8
|
||||
00132 88 ARPT-ANNUAL-NO-88 VALUE 'N'. CL**8
|
||||
00133 CL**8
|
||||
00134 15 FILLER PIC X(12). CL**8
|
||||
00135 CL**5
|
||||
00136 15 ARPT-PROCESSED-DATE PIC S9(09) COMP-3. DTSIARPT
|
||||
00137 88 ARPT-NOT-PROCESSED-88 VALUE ZERO. DTSIARPT
|
||||
23
Copybook/DTSIASKL.cpy
Normal file
23
Copybook/DTSIASKL.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
00001 ***** 06/29/02
|
||||
00002 * DTSIASKL
|
||||
00003 * DTSIASKL ACCOUNTING TRANSACTION FILE 'SKELETAL' RECORD LV006
|
||||
00004 * DEFINITION. DTSIASKL
|
||||
00005 * DTSIASKL
|
||||
00006 * 08/13/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIASKL
|
||||
00007 * DTSIASKL
|
||||
00008 ***** DTSIASKL
|
||||
00009 DTSIASKL
|
||||
00010 10 ASKL-KEY-AREA. DTSIASKL
|
||||
00011 15 ASKL-DOC-NO. DTSIASKL
|
||||
00012 20 ASKL-BATCH-NO PIC S9(05) COMP-3. DTSIASKL
|
||||
00013 20 ASKL-ITEM-NO PIC S9(03) COMP-3. DTSIASKL
|
||||
00014 DTSIASKL
|
||||
00015 10 ASKL-DATA-AREA. DTSIASKL
|
||||
00016 15 ASKL-REC-TYPE PIC X(01). DTSIASKL
|
||||
00017 88 ASKL-ADJ-88 VALUE 'A'. DTSIASKL
|
||||
00018 88 ASKL-HDR-88 VALUE 'H'. DTSIASKL
|
||||
00019 88 ASKL-PAY-88 VALUE 'P'. DTSIASKL
|
||||
00020 88 ASKL-RPT-88 VALUE 'R'. DTSIASKL
|
||||
00021 88 ASKL-ATX-88 VALUE 'T'. DTSIASKL
|
||||
00022 DTSIASKL
|
||||
00023 15 ASKL-DATA-FILLER PIC X(122). DTSIASKL
|
||||
829
Copybook/DTSIC031.cpy
Normal file
829
Copybook/DTSIC031.cpy
Normal file
@ -0,0 +1,829 @@
|
||||
00001 ***** 12/08/21
|
||||
00002 * DTSIC031
|
||||
00003 * DTSIC031 EMPLOYER REGISTRATION CODES VALUES LV042
|
||||
00004 * AND DESCRIPTIONS. DTSIC031
|
||||
00005 * DTSIC031
|
||||
00006 * 05-09-2012 CORRECTED OCCURS COUNTER FOR LIABILITY CODE. GD DTSIC031
|
||||
00007 * 04/29/2013 ADDED SUTA DUMPING CODE (MREL RECORD) GD DTSIC031
|
||||
00008 * 09=25=2014 ADDES CODE FOR UCPIA 15% PENALTY ZL1 DTSIC031
|
||||
00009 * 03=25=2015 ADDES CODES FOR DUA AND GPA ACCOUNTS ZL1 DTSIC031
|
||||
00010 * 04=07=2020 ADDES FPUC AND FRUR PANDEMIC CODES ZL1 DTSIC031
|
||||
00011 * 04/24/2020 ADDED PEUC ZL1 DTSIC031
|
||||
00012 * 05/08/2020 ADDED RATED EMPLOYER UNEMPLOYENT RELIEF ZL1 DTSIC031
|
||||
00013 * 09/02/2020 ADDED LWA ZL1 DTSIC031
|
||||
00014 * 12/05/2020 ADDED PUA STIMULUS CODE 37 ZL1 DTSIC031
|
||||
00015 * 02/16/2021 ADDED MEUC CODE 38 ZL1 DTSIC031
|
||||
00016 * 12/06/2021 ADDED MEUC CODE 39 ZL1 DTSIC031
|
||||
00017 ***** DTSIC031
|
||||
00018 SKIP1 DTSIC031
|
||||
00019 ***** DTSIC031
|
||||
00020 * OPTION 01 = MPRF-EMP-CLASS DTSIC031
|
||||
00021 ***** DTSIC031
|
||||
00022 10 C031-01-AREA. DTSIC031
|
||||
00023 15 FILLER PIC X(01) VALUE 'C'. DTSIC031
|
||||
00024 15 FILLER PIC X(10) VALUE 'CHARGING'. DTSIC031
|
||||
00025 15 FILLER PIC X(40) DTSIC031
|
||||
00026 VALUE 'CHARGING ONLY'. DTSIC031
|
||||
00027 15 FILLER PIC X(01) VALUE 'R'. DTSIC031
|
||||
00028 15 FILLER PIC X(10) VALUE 'RATED'. DTSIC031
|
||||
00029 15 FILLER PIC X(40) DTSIC031
|
||||
00030 VALUE 'RATED (PRIVATE CONTRIBUTORY)'. DTSIC031
|
||||
00031 15 FILLER PIC X(01) VALUE 'S'. DTSIC031
|
||||
00032 15 FILLER PIC X(10) VALUE 'SELF INSRD'. DTSIC031
|
||||
00033 15 FILLER PIC X(40) DTSIC031
|
||||
00034 VALUE 'SELF INSURED (REIMBURSING)'. DTSIC031
|
||||
00035 15 FILLER PIC X(01) VALUE 'U'. DTSIC031
|
||||
00036 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031
|
||||
00037 15 FILLER PIC X(40) DTSIC031
|
||||
00038 VALUE 'UNKNOWN'. DTSIC031
|
||||
00039 SKIP1 DTSIC031
|
||||
00040 10 FILLER REDEFINES C031-01-AREA. DTSIC031
|
||||
00041 15 C031-01-ENTRY OCCURS 4 TIMES DTSIC031
|
||||
00042 INDEXED BY C031-01-IDX. DTSIC031
|
||||
00043 20 C031-01-CD PIC X(01). DTSIC031
|
||||
00044 20 C031-01-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00045 20 C031-01-LONG-DSCR PIC X(40). DTSIC031
|
||||
00046 SKIP3 DTSIC031
|
||||
00047 ***** DTSIC031
|
||||
00048 * OPTION 02 = MPRF-EMP-STATUS DTSIC031
|
||||
00049 ***** DTSIC031
|
||||
00050 10 C031-02-AREA. DTSIC031
|
||||
00051 15 FILLER PIC X(01) VALUE 'A'. DTSIC031
|
||||
00052 15 FILLER PIC X(10) VALUE 'ACTIVE'. DTSIC031
|
||||
00053 15 FILLER PIC X(40) DTSIC031
|
||||
00054 VALUE 'ACTIVE'. DTSIC031
|
||||
00055 15 FILLER PIC X(01) VALUE 'I'. DTSIC031
|
||||
00056 15 FILLER PIC X(10) VALUE 'INACTIVE'. DTSIC031
|
||||
00057 15 FILLER PIC X(40) DTSIC031
|
||||
00058 VALUE 'INACTIVE'. DTSIC031
|
||||
00059 15 FILLER PIC X(01) VALUE 'N'. DTSIC031
|
||||
00060 15 FILLER PIC X(10) VALUE 'NEVER SUBJ'. DTSIC031
|
||||
00061 15 FILLER PIC X(40) DTSIC031
|
||||
00062 VALUE 'NEVER SUBJECT'. DTSIC031
|
||||
00063 15 FILLER PIC X(01) VALUE 'U'. DTSIC031
|
||||
00064 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031
|
||||
00065 15 FILLER PIC X(40) DTSIC031
|
||||
00066 VALUE 'UNKNOWN - SUBJECTIVITY NOT DETERMINED'. DTSIC031
|
||||
00067 SKIP1 DTSIC031
|
||||
00068 10 FILLER REDEFINES C031-02-AREA. DTSIC031
|
||||
00069 15 C031-02-ENTRY OCCURS 4 TIMES DTSIC031
|
||||
00070 INDEXED BY C031-02-IDX. DTSIC031
|
||||
00071 20 C031-02-CD PIC X(01). DTSIC031
|
||||
00072 20 C031-02-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00073 20 C031-02-LONG-DSCR PIC X(40). DTSIC031
|
||||
00074 SKIP3 DTSIC031
|
||||
00075 ***** DTSIC031
|
||||
00076 * OPTION 03 = MPRF-ELIGIBLE-CD DTSIC031
|
||||
00077 ***** DTSIC031
|
||||
00078 10 C031-03-AREA. DTSIC031
|
||||
00079 15 FILLER PIC X(03) VALUE '000'. DTSIC031
|
||||
00080 15 FILLER PIC X(10) VALUE 'CONTRIB'. DTSIC031
|
||||
00081 15 FILLER PIC X(40) DTSIC031
|
||||
00082 VALUE 'CONTRIBUTORY - PRIVATE SECTOR'. DTSIC031
|
||||
00083 15 FILLER PIC X(03) VALUE '001'. DTSIC031
|
||||
00084 15 FILLER PIC X(10) VALUE 'UCX'. DTSIC031
|
||||
00085 15 FILLER PIC X(40) DTSIC031
|
||||
00086 VALUE 'CHARGING ONLY - UCX'. DTSIC031
|
||||
00087 15 FILLER PIC X(03) VALUE '002'. DTSIC031
|
||||
00088 15 FILLER PIC X(10) VALUE 'UCFE'. DTSIC031
|
||||
00089 15 FILLER PIC X(40) DTSIC031
|
||||
00090 VALUE 'CHARGING ONLY - UCFE'. DTSIC031
|
||||
00091 15 FILLER PIC X(03) VALUE '004'. DTSIC031
|
||||
00092 15 FILLER PIC X(10) VALUE 'INTERSTATE'. DTSIC031
|
||||
00093 15 FILLER PIC X(40) DTSIC031
|
||||
00094 VALUE 'CHARGING ONLY - INTERSTATE'. DTSIC031
|
||||
00095 15 FILLER PIC X(03) VALUE '005'. DTSIC031
|
||||
00096 15 FILLER PIC X(10) VALUE 'VOL QUIT'. DTSIC031
|
||||
00097 15 FILLER PIC X(40) DTSIC031
|
||||
00098 VALUE 'CHARGING ONLY - VOLUNTARY QUIT'. DTSIC031
|
||||
00099 15 FILLER PIC X(03) VALUE '006'. DTSIC031
|
||||
00100 15 FILLER PIC X(10) VALUE 'MISCONDUCT'. DTSIC031
|
||||
00101 15 FILLER PIC X(40) DTSIC031
|
||||
00102 VALUE 'CHARGING ONLY - MISCONDUCT'. DTSIC031
|
||||
00103 15 FILLER PIC X(03) VALUE '007'. DTSIC031
|
||||
00104 15 FILLER PIC X(10) VALUE 'EB'. DTSIC031
|
||||
00105 15 FILLER PIC X(40) DTSIC031
|
||||
00106 VALUE 'CHARGING ONLY - EXTENDED BENEFITS'. DTSIC031
|
||||
00107 15 FILLER PIC X(03) VALUE '008'. DTSIC031
|
||||
00108 15 FILLER PIC X(10) VALUE 'SELF INSRD'. DTSIC031
|
||||
00109 15 FILLER PIC X(40) DTSIC031
|
||||
00110 VALUE 'SELF INSURED'. DTSIC031
|
||||
00111 15 FILLER PIC X(03) VALUE '009'. DTSIC031
|
||||
00112 15 FILLER PIC X(10) VALUE 'TRA'. DTSIC031
|
||||
00113 15 FILLER PIC X(40) DTSIC031
|
||||
00114 VALUE 'CHARGING ONLY - TRA'. DTSIC031
|
||||
00115 15 FILLER PIC X(03) VALUE '010'. DTSIC031
|
||||
00116 15 FILLER PIC X(10) VALUE 'DC GOVT'. DTSIC031
|
||||
00117 15 FILLER PIC X(40) DTSIC031
|
||||
00118 VALUE 'CHARGING ONLY - DC GOVERNMENT'. DTSIC031
|
||||
00119 15 FILLER PIC X(03) VALUE '013'. DTSIC031
|
||||
00120 15 FILLER PIC X(10) VALUE 'NOT SUBJ'. DTSIC031
|
||||
00121 15 FILLER PIC X(40) DTSIC031
|
||||
00122 VALUE 'ACCOUNTS NOT SUBJECT'. DTSIC031
|
||||
00123 15 FILLER PIC X(03) VALUE '015'. DTSIC031
|
||||
00124 15 FILLER PIC X(10) VALUE 'CONT EMP'. DTSIC031
|
||||
00125 15 FILLER PIC X(40) DTSIC031
|
||||
00126 VALUE 'CONTINUED EMPLOYMENT'. DTSIC031
|
||||
00127 15 FILLER PIC X(03) VALUE '016'. DTSIC031
|
||||
00128 15 FILLER PIC X(10) VALUE 'TEUC '. DTSIC031
|
||||
00129 15 FILLER PIC X(40) DTSIC031
|
||||
00130 VALUE 'TEUC '. DTSIC031
|
||||
00131 15 FILLER PIC X(03) VALUE '017'. DTSIC031
|
||||
00132 15 FILLER PIC X(10) VALUE 'DOM VIOL'. DTSIC031
|
||||
00133 15 FILLER PIC X(40) DTSIC031
|
||||
00134 VALUE 'DOMESTIC VIOLENCE '. DTSIC031
|
||||
00135 15 FILLER PIC X(03) VALUE '018'. DTSIC031
|
||||
00136 15 FILLER PIC X(10) VALUE 'EDU STEP'. DTSIC031
|
||||
00137 15 FILLER PIC X(40) DTSIC031
|
||||
00138 VALUE 'EDUCATION STEPLADDER'. DTSIC031
|
||||
00139 15 FILLER PIC X(03) VALUE '019'. DTSIC031
|
||||
00140 15 FILLER PIC X(10) VALUE 'EUC 2008'. DTSIC031
|
||||
00141 15 FILLER PIC X(40) DTSIC031
|
||||
00142 VALUE 'CHARGING ONLY - EUC 2008 '. DTSIC031
|
||||
00143 15 FILLER PIC X(03) VALUE '020'. DTSIC031
|
||||
00144 15 FILLER PIC X(10) VALUE 'FAC '. DTSIC031
|
||||
00145 15 FILLER PIC X(40) DTSIC031
|
||||
00146 VALUE 'CHRG ONLY - FED ADDL COMPENSATION '. DTSIC031
|
||||
00147 15 FILLER PIC X(03) VALUE '021'. DTSIC031
|
||||
00148 15 FILLER PIC X(10) VALUE 'AB '. DTSIC031
|
||||
00149 15 FILLER PIC X(40) DTSIC031
|
||||
00150 VALUE 'CHRG ONLY - ADDITIONAL BENEFITS '. DTSIC031
|
||||
00151 15 FILLER PIC X(03) VALUE '022'. DTSIC031
|
||||
00152 15 FILLER PIC X(10) VALUE 'DEPENDNT'. DTSIC031
|
||||
00153 15 FILLER PIC X(40) DTSIC031
|
||||
00154 VALUE 'CHRG ONLY - DEPENDENT ALLOWANCE '. DTSIC031
|
||||
00155 15 FILLER PIC X(03) VALUE '023'. DTSIC031
|
||||
00156 15 FILLER PIC X(10) VALUE 'TRAINING'. DTSIC031
|
||||
00157 15 FILLER PIC X(40) DTSIC031
|
||||
00158 VALUE 'CHRG ONLY - TRAINING EXTEN BEN PRG'. DTSIC031
|
||||
00159 15 FILLER PIC X(03) VALUE '024'. DTSIC031
|
||||
00160 15 FILLER PIC X(10) VALUE 'EUC08 2+'. DTSIC031
|
||||
00161 15 FILLER PIC X(40) DTSIC031
|
||||
00162 VALUE 'CHRG ONLY - EUC 2008 TIER 2 PLUS '. DTSIC031
|
||||
00163 15 FILLER PIC X(03) VALUE '025'. DTSIC031
|
||||
00164 15 FILLER PIC X(10) VALUE 'EUC08TR3'. DTSIC031
|
||||
00165 15 FILLER PIC X(40) DTSIC031
|
||||
00166 VALUE 'CHRG ONLY - EUC 2008 TIER 3 '. DTSIC031
|
||||
00167 15 FILLER PIC X(03) VALUE '026'. DTSIC031
|
||||
00168 15 FILLER PIC X(10) VALUE 'EUC08TR4'. DTSIC031
|
||||
00169 15 FILLER PIC X(40) DTSIC031
|
||||
00170 VALUE 'CHRG ONLY - EUC 2008 TIER 4 '. DTSIC031
|
||||
00171 15 FILLER PIC X(03) VALUE '027'. DTSIC031
|
||||
00172 15 FILLER PIC X(10) VALUE 'SPECIAL PA'. DTSIC031
|
||||
00173 15 FILLER PIC X(40) DTSIC031
|
||||
00174 VALUE 'Y '. DTSIC031
|
||||
00175 15 FILLER PIC X(03) VALUE '028'. DTSIC031
|
||||
00176 15 FILLER PIC X(10) VALUE 'UCPIA UNEM'. DTSIC031
|
||||
00177 15 FILLER PIC X(40) DTSIC031
|
||||
00178 VALUE 'PLOY COMP PROGRAM INTEGRITY AMEND '. DTSIC031
|
||||
00179 15 FILLER PIC X(03) VALUE '029'. DTSIC031
|
||||
00180 15 FILLER PIC X(10) VALUE 'DUA DISAST'. DTSIC031
|
||||
00181 15 FILLER PIC X(40) DTSIC031
|
||||
00182 VALUE 'ER UNEMPLOYMENT ASSISTANCE '. DTSIC031
|
||||
00183 15 FILLER PIC X(03) VALUE '031'. DTSIC031
|
||||
00184 15 FILLER PIC X(10) VALUE 'GPA GENERA'. DTSIC031
|
||||
00185 15 FILLER PIC X(40) DTSIC031
|
||||
00186 VALUE 'L PURPOSE ACCOUNT '. DTSIC031
|
||||
00187 15 FILLER PIC X(03) VALUE '032'. DTSIC031
|
||||
00188 15 FILLER PIC X(10) VALUE 'FPUC FEDER'. DTSIC031
|
||||
00189 15 FILLER PIC X(40) DTSIC031
|
||||
00190 VALUE 'AL PANDEMIC UNEMPLOYMENT COMP '. DTSIC031
|
||||
00191 15 FILLER PIC X(03) VALUE '033'. DTSIC031
|
||||
00192 15 FILLER PIC X(10) VALUE 'FRUR FEDER'. DTSIC031
|
||||
00193 15 FILLER PIC X(40) DTSIC031
|
||||
00194 VALUE 'AL REIMBURSING UNEMPLOYMENT RELIEF'. DTSIC031
|
||||
00195 15 FILLER PIC X(03) VALUE '034'. DTSIC031
|
||||
00196 15 FILLER PIC X(10) VALUE 'PEUC PANDE'. DTSIC031
|
||||
00197 15 FILLER PIC X(40) DTSIC031
|
||||
00198 VALUE 'MIC EMERGENCY UNEMPLOYMENT COMP '. DTSIC031
|
||||
00199 15 FILLER PIC X(03) VALUE '035'. DTSIC031
|
||||
00200 15 FILLER PIC X(10) VALUE 'REUR RATED'. DTSIC031
|
||||
00201 15 FILLER PIC X(40) DTSIC031
|
||||
00202 VALUE 'EMPLOYER UNEMPLOYMENT RELIEF '. DTSIC031
|
||||
00203 15 FILLER PIC X(03) VALUE '036'. DTSIC031
|
||||
00204 15 FILLER PIC X(10) VALUE 'LWA '. DTSIC031
|
||||
00205 15 FILLER PIC X(40) DTSIC031
|
||||
00206 VALUE 'LOST WAGES ASSISTANCE '. DTSIC031
|
||||
00207 15 FILLER PIC X(03) VALUE '037'. DTSIC031
|
||||
00208 15 FILLER PIC X(10) VALUE 'PUA STMULS'. DTSIC031
|
||||
00209 15 FILLER PIC X(40) DTSIC031
|
||||
00210 VALUE 'PUA STIMULUS '. DTSIC031
|
||||
00211 15 FILLER PIC X(03) VALUE '038'. DTSIC031
|
||||
00212 15 FILLER PIC X(10) VALUE 'MEUC '. DTSIC031
|
||||
00213 15 FILLER PIC X(40) DTSIC031
|
||||
00214 VALUE 'MIXED EMPLOYER UNEMPLOYMENT COMP '. DTSIC031
|
||||
00215 15 FILLER PIC X(03) VALUE '039'. DTSIC031
|
||||
00216 15 FILLER PIC X(10) VALUE 'DUC '. DTSIC031
|
||||
00217 15 FILLER PIC X(40) DTSIC031
|
||||
00218 VALUE 'DISTRICT UNEMPLOYMENT COMP '. DTSIC031
|
||||
00219 SKIP1 DTSIC031
|
||||
00220 10 FILLER REDEFINES C031-03-AREA. DTSIC031
|
||||
00221 15 C031-03-ENTRY OCCURS 35 TIMES DTSIC031
|
||||
00222 INDEXED BY C031-03-IDX. DTSIC031
|
||||
00223 20 C031-03-CD PIC X(03). DTSIC031
|
||||
00224 20 C031-03-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00225 20 C031-03-LONG-DSCR PIC X(40). DTSIC031
|
||||
00226 SKIP3 DTSIC031
|
||||
00227 ***** DTSIC031
|
||||
00228 * OPTION 04 = MPRF-ORG-TYPE DTSIC031
|
||||
00229 ***** DTSIC031
|
||||
00230 10 C031-04-AREA. DTSIC031
|
||||
00231 15 FILLER PIC X(03) VALUE 'S '. DTSIC031
|
||||
00232 15 FILLER PIC X(10) VALUE 'SOLE PROP'. DTSIC031
|
||||
00233 15 FILLER PIC X(40) DTSIC031
|
||||
00234 VALUE 'SOLE PROPRIETORSHIP'. DTSIC031
|
||||
00235 15 FILLER PIC X(03) VALUE 'P '. DTSIC031
|
||||
00236 15 FILLER PIC X(10) VALUE 'PARTNERSHP'. DTSIC031
|
||||
00237 15 FILLER PIC X(40) DTSIC031
|
||||
00238 VALUE 'PARTNERSHIP'. DTSIC031
|
||||
00239 15 FILLER PIC X(03) VALUE 'LLC'. DTSIC031
|
||||
00240 15 FILLER PIC X(10) VALUE 'LM LIAB CO'. DTSIC031
|
||||
00241 15 FILLER PIC X(40) DTSIC031
|
||||
00242 VALUE 'LIMITED LIABILITY COMPANY'. DTSIC031
|
||||
00243 15 FILLER PIC X(03) VALUE 'LLP'. DTSIC031
|
||||
00244 15 FILLER PIC X(10) VALUE 'LM LIAB PR'. DTSIC031
|
||||
00245 15 FILLER PIC X(40) DTSIC031
|
||||
00246 VALUE 'LIMITED LIABILITY PARTNERSHIP'. DTSIC031
|
||||
00247 15 FILLER PIC X(03) VALUE 'C '. DTSIC031
|
||||
00248 15 FILLER PIC X(10) VALUE 'CORP'. DTSIC031
|
||||
00249 15 FILLER PIC X(40) DTSIC031
|
||||
00250 VALUE 'CORPORATION'. DTSIC031
|
||||
00251 15 FILLER PIC X(03) VALUE 'SC '. DTSIC031
|
||||
00252 15 FILLER PIC X(10) VALUE 'S-CORP'. DTSIC031
|
||||
00253 15 FILLER PIC X(40) DTSIC031
|
||||
00254 VALUE 'S-CORPORATION'. DTSIC031
|
||||
00255 15 FILLER PIC X(03) VALUE 'J '. DTSIC031
|
||||
00256 15 FILLER PIC X(10) VALUE 'JOINT VNTR'. DTSIC031
|
||||
00257 15 FILLER PIC X(40) DTSIC031
|
||||
00258 VALUE 'JOINT VENTURE'. DTSIC031
|
||||
00259 15 FILLER PIC X(03) VALUE 'H '. DTSIC031
|
||||
00260 15 FILLER PIC X(10) VALUE 'HOUSEHOLD'. DTSIC031
|
||||
00261 15 FILLER PIC X(40) DTSIC031
|
||||
00262 VALUE 'HOUSEHOLD/DOMESTIC'. DTSIC031
|
||||
00263 15 FILLER PIC X(03) VALUE 'TB '. DTSIC031
|
||||
00264 15 FILLER PIC X(10) VALUE 'TRST BNKR'. DTSIC031
|
||||
00265 15 FILLER PIC X(40) DTSIC031
|
||||
00266 VALUE 'TRUSTEE IN BANKRUPTCY'. DTSIC031
|
||||
00267 15 FILLER PIC X(03) VALUE 'R '. DTSIC031
|
||||
00268 15 FILLER PIC X(10) VALUE 'RCVRSHIP'. DTSIC031
|
||||
00269 15 FILLER PIC X(40) DTSIC031
|
||||
00270 VALUE 'RECEIVERSHIP'. DTSIC031
|
||||
00271 15 FILLER PIC X(03) VALUE 'ASS'. DTSIC031
|
||||
00272 15 FILLER PIC X(10) VALUE 'ASSOC'. DTSIC031
|
||||
00273 15 FILLER PIC X(40) DTSIC031
|
||||
00274 VALUE 'ASSOCIATION'. DTSIC031
|
||||
00275 15 FILLER PIC X(03) VALUE 'NP '. DTSIC031
|
||||
00276 15 FILLER PIC X(10) VALUE 'NON-PROFIT'. DTSIC031
|
||||
00277 15 FILLER PIC X(40) DTSIC031
|
||||
00278 VALUE 'NON-PROFIT'. DTSIC031
|
||||
00279 15 FILLER PIC X(03) VALUE 'T/P'. DTSIC031
|
||||
00280 15 FILLER PIC X(10) VALUE 'TRST/PENSN'. DTSIC031
|
||||
00281 15 FILLER PIC X(40) DTSIC031
|
||||
00282 VALUE 'TRUSTS/PENSIONS'. DTSIC031
|
||||
00283 15 FILLER PIC X(03) VALUE 'ONG'. DTSIC031
|
||||
00284 15 FILLER PIC X(10) VALUE 'OTHR NON-G'. DTSIC031
|
||||
00285 15 FILLER PIC X(40) DTSIC031
|
||||
00286 VALUE 'OTHER - NOT GOVERNMENT'. DTSIC031
|
||||
00287 15 FILLER PIC X(03) VALUE 'ST '. DTSIC031
|
||||
00288 15 FILLER PIC X(10) VALUE 'STATE GOVT'. DTSIC031
|
||||
00289 15 FILLER PIC X(40) DTSIC031
|
||||
00290 VALUE 'STATE GOVERNMENT'. DTSIC031
|
||||
00291 15 FILLER PIC X(03) VALUE 'CO '. DTSIC031
|
||||
00292 15 FILLER PIC X(10) VALUE 'CNTY GOVT'. DTSIC031
|
||||
00293 15 FILLER PIC X(40) DTSIC031
|
||||
00294 VALUE 'COUNTY GOVERNMENT'. DTSIC031
|
||||
00295 15 FILLER PIC X(03) VALUE 'CTY'. DTSIC031
|
||||
00296 15 FILLER PIC X(10) VALUE 'CITY GOVT'. DTSIC031
|
||||
00297 15 FILLER PIC X(40) DTSIC031
|
||||
00298 VALUE 'CITY GOVERNMENT'. DTSIC031
|
||||
00299 15 FILLER PIC X(03) VALUE 'SCH'. DTSIC031
|
||||
00300 15 FILLER PIC X(10) VALUE 'SCHOO DIST'. DTSIC031
|
||||
00301 15 FILLER PIC X(40) DTSIC031
|
||||
00302 VALUE 'SCHOOL DISTRICT'. DTSIC031
|
||||
00303 15 FILLER PIC X(03) VALUE 'FG '. DTSIC031
|
||||
00304 15 FILLER PIC X(10) VALUE 'FRGN GOVT'. DTSIC031
|
||||
00305 15 FILLER PIC X(40) DTSIC031
|
||||
00306 VALUE 'FOREIGN GOVERNMENT'. DTSIC031
|
||||
00307 15 FILLER PIC X(03) VALUE 'OG '. DTSIC031
|
||||
00308 15 FILLER PIC X(10) VALUE 'OTHER GOVT'. DTSIC031
|
||||
00309 15 FILLER PIC X(40) DTSIC031
|
||||
00310 VALUE 'OTHER GOVERNMENT'. DTSIC031
|
||||
00311 15 FILLER PIC X(03) VALUE 'UNK'. DTSIC031
|
||||
00312 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031
|
||||
00313 15 FILLER PIC X(40) DTSIC031
|
||||
00314 VALUE 'UNKNOWN'. DTSIC031
|
||||
00315 15 FILLER PIC X(03) VALUE 'UNA'. DTSIC031
|
||||
00316 15 FILLER PIC X(10) VALUE 'UINC ASSO'. DTSIC031
|
||||
00317 15 FILLER PIC X(40) DTSIC031
|
||||
00318 VALUE 'UNINCORPORATED ASSOCIATION'. DTSIC031
|
||||
00319 15 FILLER PIC X(03) VALUE 'FIT'. DTSIC031
|
||||
00320 15 FILLER PIC X(10) VALUE 'IND TRIBE'. DTSIC031
|
||||
00321 15 FILLER PIC X(40) DTSIC031
|
||||
00322 VALUE 'FED RECOGNIZED INDIAN TRIBES'. DTSIC031
|
||||
00323 15 FILLER PIC X(03) VALUE 'OTH'. DTSIC031
|
||||
00324 15 FILLER PIC X(10) VALUE 'OTHER '. DTSIC031
|
||||
00325 15 FILLER PIC X(40) DTSIC031
|
||||
00326 VALUE 'OTHER '. DTSIC031
|
||||
00327 SKIP1 DTSIC031
|
||||
00328 10 FILLER REDEFINES C031-04-AREA. DTSIC031
|
||||
00329 15 C031-04-ENTRY OCCURS 24 TIMES DTSIC031
|
||||
00330 INDEXED BY C031-04-IDX. DTSIC031
|
||||
00331 20 C031-04-CD PIC X(03). DTSIC031
|
||||
00332 20 C031-04-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00333 20 C031-04-LONG-DSCR PIC X(40). DTSIC031
|
||||
00334 SKIP3 DTSIC031
|
||||
00335 ***** DTSIC031
|
||||
00336 * OPTION 05 = MPRF-FISCAL-AGENT-CD DTSIC031
|
||||
00337 ***** DTSIC031
|
||||
00338 10 C031-05-AREA. DTSIC031
|
||||
00339 15 FILLER PIC X(03) VALUE ' '. DTSIC031
|
||||
00340 15 FILLER PIC X(10) VALUE 'NO AGENT'. DTSIC031
|
||||
00341 15 FILLER PIC X(40) DTSIC031
|
||||
00342 VALUE 'NO ONE IS A FISCAL AGENT'. DTSIC031
|
||||
00343 15 FILLER PIC X(03) VALUE 'ADV'. DTSIC031
|
||||
00344 15 FILLER PIC X(10) VALUE 'ADVANTAGE'. DTSIC031
|
||||
00345 15 FILLER PIC X(40) DTSIC031
|
||||
00346 VALUE 'ADVANTAGE BUSINESS SERVICE'. DTSIC031
|
||||
00347 15 FILLER PIC X(03) VALUE 'BAR'. DTSIC031
|
||||
00348 15 FILLER PIC X(10) VALUE 'BARNETT'. DTSIC031
|
||||
00349 15 FILLER PIC X(40) DTSIC031
|
||||
00350 VALUE 'BARNETT ASSOC.'. DTSIC031
|
||||
00351 15 FILLER PIC X(03) VALUE 'FP '. DTSIC031
|
||||
00352 15 FILLER PIC X(10) VALUE 'FIRST PAY'. DTSIC031
|
||||
00353 15 FILLER PIC X(40) DTSIC031
|
||||
00354 VALUE 'FIRST PAY'. DTSIC031
|
||||
00355 15 FILLER PIC X(03) VALUE 'JJ '. DTSIC031
|
||||
00356 15 FILLER PIC X(10) VALUE 'JON JAY'. DTSIC031
|
||||
00357 15 FILLER PIC X(40) DTSIC031
|
||||
00358 VALUE 'JON JAY ASSOC.'. DTSIC031
|
||||
00359 15 FILLER PIC X(03) VALUE 'PC '. DTSIC031
|
||||
00360 15 FILLER PIC X(10) VALUE 'PAYCHEX'. DTSIC031
|
||||
00361 15 FILLER PIC X(40) DTSIC031
|
||||
00362 VALUE 'PAYCHEX'. DTSIC031
|
||||
00363 15 FILLER PIC X(03) VALUE 'PA '. DTSIC031
|
||||
00364 15 FILLER PIC X(10) VALUE 'PAY AMERCA'. DTSIC031
|
||||
00365 15 FILLER PIC X(40) DTSIC031
|
||||
00366 VALUE 'PAY AMERICA'. DTSIC031
|
||||
00367 15 FILLER PIC X(03) VALUE 'PP '. DTSIC031
|
||||
00368 15 FILLER PIC X(10) VALUE 'PRIME PAY'. DTSIC031
|
||||
00369 15 FILLER PIC X(40) DTSIC031
|
||||
00370 VALUE 'PRIME PAY'. DTSIC031
|
||||
00371 15 FILLER PIC X(03) VALUE 'UC '. DTSIC031
|
||||
00372 15 FILLER PIC X(10) VALUE 'UC'. DTSIC031
|
||||
00373 15 FILLER PIC X(40) DTSIC031
|
||||
00374 VALUE 'UC CONSULTANTS'. DTSIC031
|
||||
00375 15 FILLER PIC X(03) VALUE 'SC '. DTSIC031
|
||||
00376 15 FILLER PIC X(10) VALUE 'STAFF CNSL'. DTSIC031
|
||||
00377 15 FILLER PIC X(40) DTSIC031
|
||||
00378 VALUE 'STAFF CONSULTANTS'. DTSIC031
|
||||
00379 15 FILLER PIC X(03) VALUE 'ADP'. DTSIC031
|
||||
00380 15 FILLER PIC X(10) VALUE 'ADP'. DTSIC031
|
||||
00381 15 FILLER PIC X(40) DTSIC031
|
||||
00382 VALUE 'ADP'. DTSIC031
|
||||
00383 15 FILLER PIC X(03) VALUE 'CD '. DTSIC031
|
||||
00384 15 FILLER PIC X(10) VALUE 'CNTRL DATA'. DTSIC031
|
||||
00385 15 FILLER PIC X(40) DTSIC031
|
||||
00386 VALUE 'CONTROL DATA'. DTSIC031
|
||||
00387 15 FILLER PIC X(03) VALUE 'REH'. DTSIC031
|
||||
00388 15 FILLER PIC X(10) VALUE 'HARRINGTON'. DTSIC031
|
||||
00389 15 FILLER PIC X(40) DTSIC031
|
||||
00390 VALUE 'R E HARRINGTON'. DTSIC031
|
||||
00391 15 FILLER PIC X(03) VALUE 'JF '. DTSIC031
|
||||
00392 15 FILLER PIC X(10) VALUE 'J FRICK'. DTSIC031
|
||||
00393 15 FILLER PIC X(40) DTSIC031
|
||||
00394 VALUE 'JAMES FRICK'. DTSIC031
|
||||
00395 15 FILLER PIC X(03) VALUE 'BA '. DTSIC031
|
||||
00396 15 FILLER PIC X(10) VALUE 'BK AMERICA'. DTSIC031
|
||||
00397 15 FILLER PIC X(40) DTSIC031
|
||||
00398 VALUE 'BANK OF AMERICA'. DTSIC031
|
||||
00399 15 FILLER PIC X(03) VALUE 'GM '. DTSIC031
|
||||
00400 15 FILLER PIC X(10) VALUE 'G MCDONALD'. DTSIC031
|
||||
00401 15 FILLER PIC X(40) DTSIC031
|
||||
00402 VALUE 'GATES MCDONALD'. DTSIC031
|
||||
00403 15 FILLER PIC X(03) VALUE 'GIB'. DTSIC031
|
||||
00404 15 FILLER PIC X(10) VALUE 'GIBBENS'. DTSIC031
|
||||
00405 15 FILLER PIC X(40) DTSIC031
|
||||
00406 VALUE 'GIBBENS'. DTSIC031
|
||||
00407 15 FILLER PIC X(03) VALUE 'EU '. DTSIC031
|
||||
00408 15 FILLER PIC X(10) VALUE 'EMPR UNITY'. DTSIC031
|
||||
00409 15 FILLER PIC X(40) DTSIC031
|
||||
00410 VALUE 'EMPLOYERS UNITY'. DTSIC031
|
||||
00411 15 FILLER PIC X(03) VALUE 'CER'. DTSIC031
|
||||
00412 15 FILLER PIC X(10) VALUE 'CERIDAN'. DTSIC031
|
||||
00413 15 FILLER PIC X(40) DTSIC031
|
||||
00414 VALUE 'CERIDAN'. DTSIC031
|
||||
00415 15 FILLER PIC X(03) VALUE 'STS'. DTSIC031
|
||||
00416 15 FILLER PIC X(10) VALUE 'STS'. DTSIC031
|
||||
00417 15 FILLER PIC X(40) DTSIC031
|
||||
00418 VALUE 'STS'. DTSIC031
|
||||
00419 15 FILLER PIC X(03) VALUE 'CIT'. DTSIC031
|
||||
00420 15 FILLER PIC X(10) VALUE 'CITADEL'. DTSIC031
|
||||
00421 15 FILLER PIC X(40) DTSIC031
|
||||
00422 VALUE 'CITADEL'. DTSIC031
|
||||
00423 15 FILLER PIC X(03) VALUE 'ACT'. DTSIC031
|
||||
00424 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC031
|
||||
00425 15 FILLER PIC X(40) DTSIC031
|
||||
00426 VALUE 'OTHER ACCOUNTANT'. DTSIC031
|
||||
00427 SKIP1 DTSIC031
|
||||
00428 10 FILLER REDEFINES C031-05-AREA. DTSIC031
|
||||
00429 15 C031-05-ENTRY OCCURS 22 TIMES DTSIC031
|
||||
00430 INDEXED BY C031-05-IDX. DTSIC031
|
||||
00431 20 C031-05-CD PIC X(03). DTSIC031
|
||||
00432 20 C031-05-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00433 20 C031-05-LONG-DSCR PIC X(40). DTSIC031
|
||||
00434 SKIP3 DTSIC031
|
||||
00435 ***** DTSIC031
|
||||
00436 * OPTION 10 = MERA-SOURCE-CD DTSIC031
|
||||
00437 ***** DTSIC031
|
||||
00438 10 C031-10-AREA. DTSIC031
|
||||
00439 15 FILLER PIC X(02) VALUE '00'. DTSIC031
|
||||
00440 15 FILLER PIC X(10) VALUE 'CNTRC CMPL'. DTSIC031
|
||||
00441 15 FILLER PIC X(40) DTSIC031
|
||||
00442 VALUE 'CONTRACT COMPLIANCE'. DTSIC031
|
||||
00443 15 FILLER PIC X(02) VALUE '01'. DTSIC031
|
||||
00444 15 FILLER PIC X(10) VALUE 'PHONE CALL'. DTSIC031
|
||||
00445 15 FILLER PIC X(40) DTSIC031
|
||||
00446 VALUE 'TELEPHONE CALL'. DTSIC031
|
||||
00447 15 FILLER PIC X(02) VALUE '02'. DTSIC031
|
||||
00448 15 FILLER PIC X(10) VALUE 'WRITTEN RQ'. DTSIC031
|
||||
00449 15 FILLER PIC X(40) DTSIC031
|
||||
00450 VALUE 'WRITTEN REQUEST'. DTSIC031
|
||||
00451 15 FILLER PIC X(02) VALUE '03'. DTSIC031
|
||||
00452 15 FILLER PIC X(10) VALUE 'VOLUNTARY'. DTSIC031
|
||||
00453 15 FILLER PIC X(40) DTSIC031
|
||||
00454 VALUE 'VOLUNTARY REGISTRATION'. DTSIC031
|
||||
00455 15 FILLER PIC X(02) VALUE '04'. DTSIC031
|
||||
00456 15 FILLER PIC X(10) VALUE 'UC-30 PRED'. DTSIC031
|
||||
00457 15 FILLER PIC X(40) DTSIC031
|
||||
00458 VALUE 'UC-30 OF PREDECESSOR'. DTSIC031
|
||||
00459 15 FILLER PIC X(02) VALUE '05'. DTSIC031
|
||||
00460 15 FILLER PIC X(10) VALUE 'BEN REQST'. DTSIC031
|
||||
00461 15 FILLER PIC X(40) DTSIC031
|
||||
00462 VALUE 'REQUEST FROM BENEFITS (193)'. DTSIC031
|
||||
00463 15 FILLER PIC X(02) VALUE '06'. DTSIC031
|
||||
00464 15 FILLER PIC X(10) VALUE '940 CERT'. DTSIC031
|
||||
00465 15 FILLER PIC X(40) DTSIC031
|
||||
00466 VALUE '940 CERTIFICATION'. DTSIC031
|
||||
00467 15 FILLER PIC X(02) VALUE '07'. DTSIC031
|
||||
00468 15 FILLER PIC X(10) VALUE 'UNION HALL'. DTSIC031
|
||||
00469 15 FILLER PIC X(40) DTSIC031
|
||||
00470 VALUE 'UNION HALL'. DTSIC031
|
||||
00471 15 FILLER PIC X(02) VALUE '08'. DTSIC031
|
||||
00472 15 FILLER PIC X(10) VALUE 'FIELD REP'. DTSIC031
|
||||
00473 15 FILLER PIC X(40) DTSIC031
|
||||
00474 VALUE 'FIELD REPRESENTATIVE'. DTSIC031
|
||||
00475 15 FILLER PIC X(02) VALUE '09'. DTSIC031
|
||||
00476 15 FILLER PIC X(10) VALUE 'FOLLOW UP'. DTSIC031
|
||||
00477 15 FILLER PIC X(40) DTSIC031
|
||||
00478 VALUE 'FOLLOW UP'. DTSIC031
|
||||
00479 15 FILLER PIC X(02) VALUE '10'. DTSIC031
|
||||
00480 15 FILLER PIC X(10) VALUE 'DEPT REV'. DTSIC031
|
||||
00481 15 FILLER PIC X(40) DTSIC031
|
||||
00482 VALUE 'DEPARTMENT OF REVENUE'. DTSIC031
|
||||
00483 15 FILLER PIC X(02) VALUE '11'. DTSIC031
|
||||
00484 15 FILLER PIC X(10) VALUE 'WORKR COMP'. DTSIC031
|
||||
00485 15 FILLER PIC X(40) DTSIC031
|
||||
00486 VALUE 'WORKERS COMPENSATION LIST'. DTSIC031
|
||||
00487 15 FILLER PIC X(02) VALUE '12'. DTSIC031
|
||||
00488 15 FILLER PIC X(10) VALUE 'LIQ LICENS'. DTSIC031
|
||||
00489 15 FILLER PIC X(40) DTSIC031
|
||||
00490 VALUE 'LIQUOR LICENSE LIST'. DTSIC031
|
||||
00491 15 FILLER PIC X(02) VALUE '13'. DTSIC031
|
||||
00492 15 FILLER PIC X(10) VALUE 'FEIN LIST'. DTSIC031
|
||||
00493 15 FILLER PIC X(40) DTSIC031
|
||||
00494 VALUE 'FEIN LIST'. DTSIC031
|
||||
00495 15 FILLER PIC X(02) VALUE '14'. DTSIC031
|
||||
00496 15 FILLER PIC X(10) VALUE 'UC-30 RCVD'. DTSIC031
|
||||
00497 15 FILLER PIC X(40) DTSIC031
|
||||
00498 VALUE 'UC-30 RECEIVED UNSOLICITED'. DTSIC031
|
||||
00499 15 FILLER PIC X(02) VALUE '15'. DTSIC031
|
||||
00500 15 FILLER PIC X(10) VALUE 'UC-30 SYS '. DTSIC031
|
||||
00501 15 FILLER PIC X(40) DTSIC031
|
||||
00502 VALUE 'UC-30 PROCESSED BY SYSTEM '. DTSIC031
|
||||
00503 15 FILLER PIC X(02) VALUE '16'. DTSIC031
|
||||
00504 15 FILLER PIC X(10) VALUE 'FISC AGENT'. DTSIC031
|
||||
00505 15 FILLER PIC X(40) DTSIC031
|
||||
00506 VALUE 'REGISTRATION FROM FISCAL AGENT'. DTSIC031
|
||||
00507 15 FILLER PIC X(02) VALUE '17'. DTSIC031
|
||||
00508 15 FILLER PIC X(10) VALUE 'WEB REGIST'. DTSIC031
|
||||
00509 15 FILLER PIC X(40) DTSIC031
|
||||
00510 VALUE 'REGISTRATION FROM WEB '. DTSIC031
|
||||
00511 15 FILLER PIC X(02) VALUE '18'. DTSIC031
|
||||
00512 15 FILLER PIC X(10) VALUE 'WEB PRED '. DTSIC031
|
||||
00513 15 FILLER PIC X(40) DTSIC031
|
||||
00514 VALUE 'PRED REGISTRATION FROM WEB '. DTSIC031
|
||||
00515 15 FILLER PIC X(02) VALUE '19'. DTSIC031
|
||||
00516 15 FILLER PIC X(10) VALUE 'WEB SUCC '. DTSIC031
|
||||
00517 15 FILLER PIC X(40) DTSIC031
|
||||
00518 VALUE 'SUCC REGISTRATION FROM WEB '. DTSIC031
|
||||
00519 15 FILLER PIC X(02) VALUE '98'. DTSIC031
|
||||
00520 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC031
|
||||
00521 15 FILLER PIC X(40) DTSIC031
|
||||
00522 VALUE 'OTHER'. DTSIC031
|
||||
00523 15 FILLER PIC X(02) VALUE '99'. DTSIC031
|
||||
00524 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031
|
||||
00525 15 FILLER PIC X(40) DTSIC031
|
||||
00526 VALUE 'UNKNOWN'. DTSIC031
|
||||
00527 15 FILLER PIC X(02) VALUE 'NA'. DTSIC031
|
||||
00528 15 FILLER PIC X(10) VALUE 'NO CYCLE A'. DTSIC031
|
||||
00529 15 FILLER PIC X(40) DTSIC031
|
||||
00530 VALUE 'NO CYCLE A'. DTSIC031
|
||||
00531 SKIP1 DTSIC031
|
||||
00532 10 FILLER REDEFINES C031-10-AREA. DTSIC031
|
||||
00533 15 C031-10-ENTRY OCCURS 23 TIMES DTSIC031
|
||||
00534 INDEXED BY C031-10-IDX. DTSIC031
|
||||
00535 20 C031-10-CD PIC X(02). DTSIC031
|
||||
00536 20 C031-10-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00537 20 C031-10-LONG-DSCR PIC X(40). DTSIC031
|
||||
00538 SKIP3 DTSIC031
|
||||
00539 ***** DTSIC031
|
||||
00540 * OPTION 11 = MERA-STATUS-CD DTSIC031
|
||||
00541 ***** DTSIC031
|
||||
00542 10 C031-11-AREA. DTSIC031
|
||||
00543 15 FILLER PIC X(02) VALUE '00'. DTSIC031
|
||||
00544 15 FILLER PIC X(10) VALUE 'SETUP'. DTSIC031
|
||||
00545 15 FILLER PIC X(40) DTSIC031
|
||||
00546 VALUE 'SETUP'. DTSIC031
|
||||
00547 15 FILLER PIC X(02) VALUE '01'. DTSIC031
|
||||
00548 15 FILLER PIC X(10) VALUE '1ST LT SNT'. DTSIC031
|
||||
00549 15 FILLER PIC X(40) DTSIC031
|
||||
00550 VALUE 'FIRST LETTER SENT'. DTSIC031
|
||||
00551 15 FILLER PIC X(02) VALUE '02'. DTSIC031
|
||||
00552 15 FILLER PIC X(10) VALUE '2ND LT SNT'. DTSIC031
|
||||
00553 15 FILLER PIC X(40) DTSIC031
|
||||
00554 VALUE 'SECOND LETTER SENT'. DTSIC031
|
||||
00555 15 FILLER PIC X(02) VALUE '05'. DTSIC031
|
||||
00556 15 FILLER PIC X(10) VALUE 'COOP AGNCY'. DTSIC031
|
||||
00557 15 FILLER PIC X(40) DTSIC031
|
||||
00558 VALUE 'LTR TO COOP (OUT OF STATE) AGENCY SENT'. DTSIC031
|
||||
00559 15 FILLER PIC X(02) VALUE '06'. DTSIC031
|
||||
00560 15 FILLER PIC X(10) VALUE 'FLD ASSIGN'. DTSIC031
|
||||
00561 15 FILLER PIC X(40) DTSIC031
|
||||
00562 VALUE 'FIELD ASSIGNMENT GENERATED'. DTSIC031
|
||||
00563 15 FILLER PIC X(02) VALUE '09'. DTSIC031
|
||||
00564 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC031
|
||||
00565 15 FILLER PIC X(40) DTSIC031
|
||||
00566 VALUE 'CYCLE IS UNDER MANUAL CONTROL'. DTSIC031
|
||||
00567 15 FILLER PIC X(02) VALUE '11'. DTSIC031
|
||||
00568 15 FILLER PIC X(10) VALUE 'ER FRM RCV'. DTSIC031
|
||||
00569 15 FILLER PIC X(40) DTSIC031
|
||||
00570 VALUE 'EMPLOYER REGISTRATION FORM RECEIVED'. DTSIC031
|
||||
00571 15 FILLER PIC X(02) VALUE '12'. DTSIC031
|
||||
00572 15 FILLER PIC X(10) VALUE 'HOLD'. DTSIC031
|
||||
00573 15 FILLER PIC X(40) DTSIC031
|
||||
00574 VALUE 'HOLD - TAKE NO ACTION'. DTSIC031
|
||||
00575 15 FILLER PIC X(02) VALUE '13'. DTSIC031
|
||||
00576 15 FILLER PIC X(10) VALUE 'NOT ACTIVE'. DTSIC031
|
||||
00577 15 FILLER PIC X(40) DTSIC031
|
||||
00578 VALUE 'CYCLE "A" NOT ACTIVE'. DTSIC031
|
||||
00579 15 FILLER PIC X(02) VALUE '21'. DTSIC031
|
||||
00580 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC031
|
||||
00581 15 FILLER PIC X(40) DTSIC031
|
||||
00582 VALUE 'MOST RECENT DETERMINATION: NOT LIABLE'. DTSIC031
|
||||
00583 15 FILLER PIC X(02) VALUE '31'. DTSIC031
|
||||
00584 15 FILLER PIC X(10) VALUE 'FND LIABLE'. DTSIC031
|
||||
00585 15 FILLER PIC X(40) DTSIC031
|
||||
00586 VALUE 'MOST RECENT DETERMINATION: LIABLE'. DTSIC031
|
||||
00587 SKIP1 DTSIC031
|
||||
00588 10 FILLER REDEFINES C031-11-AREA. DTSIC031
|
||||
00589 15 C031-11-ENTRY OCCURS 11 TIMES DTSIC031
|
||||
00590 INDEXED BY C031-11-IDX. DTSIC031
|
||||
00591 20 C031-11-CD PIC X(02). DTSIC031
|
||||
00592 20 C031-11-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00593 20 C031-11-LONG-DSCR PIC X(40). DTSIC031
|
||||
00594 SKIP3 DTSIC031
|
||||
00595 ***** DTSIC031
|
||||
00596 * OPTION 12 = MERA-LETTER-1-CD DTSIC031
|
||||
00597 ***** DTSIC031
|
||||
00598 10 C031-12-AREA. DTSIC031
|
||||
00599 15 FILLER PIC X(02) VALUE '01'. DTSIC031
|
||||
00600 15 FILLER PIC X(10) VALUE 'GENERIC'. DTSIC031
|
||||
00601 15 FILLER PIC X(40) DTSIC031
|
||||
00602 VALUE 'GENERIC'. DTSIC031
|
||||
00603 15 FILLER PIC X(02) VALUE '02'. DTSIC031
|
||||
00604 15 FILLER PIC X(10) VALUE 'EMPLYR REQ'. DTSIC031
|
||||
00605 15 FILLER PIC X(40) DTSIC031
|
||||
00606 VALUE 'EMPLOYER REQUESTED'. DTSIC031
|
||||
00607 15 FILLER PIC X(02) VALUE '04'. DTSIC031
|
||||
00608 15 FILLER PIC X(10) VALUE 'UC-30 RCVD'. DTSIC031
|
||||
00609 15 FILLER PIC X(40) DTSIC031
|
||||
00610 VALUE 'UC-30 RECEIVED'. DTSIC031
|
||||
00611 15 FILLER PIC X(02) VALUE '05'. DTSIC031
|
||||
00612 15 FILLER PIC X(10) VALUE 'CLMNT WGES'. DTSIC031
|
||||
00613 15 FILLER PIC X(40) DTSIC031
|
||||
00614 VALUE 'CLAIMANT WAGES'. DTSIC031
|
||||
00615 SKIP1 DTSIC031
|
||||
00616 10 FILLER REDEFINES C031-12-AREA. DTSIC031
|
||||
00617 15 C031-12-ENTRY OCCURS 4 TIMES DTSIC031
|
||||
00618 INDEXED BY C031-12-IDX. DTSIC031
|
||||
00619 20 C031-12-CD PIC X(02). DTSIC031
|
||||
00620 20 C031-12-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00621 20 C031-12-LONG-DSCR PIC X(40). DTSIC031
|
||||
00622 SKIP3 DTSIC031
|
||||
00623 ***** DTSIC031
|
||||
00624 * OPTION 17 = MREL-RELATIONSHIP-CD DTSIC031
|
||||
00625 ***** DTSIC031
|
||||
00626 10 C031-17-AREA. DTSIC031
|
||||
00627 15 FILLER PIC X(02) VALUE '01'. DTSIC031
|
||||
00628 15 FILLER PIC X(10) VALUE 'CHNG OWNER'. DTSIC031
|
||||
00629 15 FILLER PIC X(40) DTSIC031
|
||||
00630 VALUE 'CHANGE OF OWNERSHIP'. DTSIC031
|
||||
00631 15 FILLER PIC X(02) VALUE '02'. DTSIC031
|
||||
00632 15 FILLER PIC X(10) VALUE 'ACQUIRED'. DTSIC031
|
||||
00633 15 FILLER PIC X(40) DTSIC031
|
||||
00634 VALUE 'ACQUIRED'. DTSIC031
|
||||
00635 15 FILLER PIC X(02) VALUE '03'. DTSIC031
|
||||
00636 15 FILLER PIC X(10) VALUE 'MERGER'. DTSIC031
|
||||
00637 15 FILLER PIC X(40) DTSIC031
|
||||
00638 VALUE 'MERGER'. DTSIC031
|
||||
00639 15 FILLER PIC X(02) VALUE '04'. DTSIC031
|
||||
00640 15 FILLER PIC X(10) VALUE 'INCORPORAT'. DTSIC031
|
||||
00641 15 FILLER PIC X(40) DTSIC031
|
||||
00642 VALUE 'INCORPORATED'. DTSIC031
|
||||
00643 15 FILLER PIC X(02) VALUE '05'. DTSIC031
|
||||
00644 15 FILLER PIC X(10) VALUE 'SPLIT'. DTSIC031
|
||||
00645 15 FILLER PIC X(40) DTSIC031
|
||||
00646 VALUE 'SPLIT'. DTSIC031
|
||||
00647 15 FILLER PIC X(02) VALUE '08'. DTSIC031
|
||||
00648 15 FILLER PIC X(10) VALUE 'REG ->REIM'. DTSIC031
|
||||
00649 15 FILLER PIC X(40) DTSIC031
|
||||
00650 VALUE 'REGULAR TO REIMBURSING'. DTSIC031
|
||||
00651 15 FILLER PIC X(02) VALUE '09'. DTSIC031
|
||||
00652 15 FILLER PIC X(10) VALUE 'REIM ->REG'. DTSIC031
|
||||
00653 15 FILLER PIC X(40) DTSIC031
|
||||
00654 VALUE 'REIMBURSING TO REGULAR'. DTSIC031
|
||||
00655 15 FILLER PIC X(02) VALUE '96'. DTSIC031
|
||||
00656 15 FILLER PIC X(10) VALUE 'EXP RAT VD'. DTSIC031
|
||||
00657 15 FILLER PIC X(40) DTSIC031
|
||||
00658 VALUE 'EXPERIENCE RATING RECORD VOID'. DTSIC031
|
||||
00659 15 FILLER PIC X(02) VALUE '97'. DTSIC031
|
||||
00660 15 FILLER PIC X(10) VALUE 'EXP RAT TR'. DTSIC031
|
||||
00661 15 FILLER PIC X(40) DTSIC031
|
||||
00662 VALUE 'EXPERIENCE RATING RECORD TRANSFERRED'. DTSIC031
|
||||
00663 15 FILLER PIC X(02) VALUE '98'. DTSIC031
|
||||
00664 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC031
|
||||
00665 15 FILLER PIC X(40) DTSIC031
|
||||
00666 VALUE 'OTHER'. DTSIC031
|
||||
00667 15 FILLER PIC X(02) VALUE '99'. DTSIC031
|
||||
00668 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031
|
||||
00669 15 FILLER PIC X(40) DTSIC031
|
||||
00670 VALUE 'UNKNOWN'. DTSIC031
|
||||
00671 SKIP1 DTSIC031
|
||||
00672 10 FILLER REDEFINES C031-17-AREA. DTSIC031
|
||||
00673 15 C031-17-ENTRY OCCURS 11 TIMES DTSIC031
|
||||
00674 INDEXED BY C031-17-IDX. DTSIC031
|
||||
00675 20 C031-17-CD PIC X(02). DTSIC031
|
||||
00676 20 C031-17-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00677 20 C031-17-LONG-DSCR PIC X(40). DTSIC031
|
||||
00678 SKIP3 DTSIC031
|
||||
00679 ***** DTSIC031
|
||||
00680 * OPTION 18 = MREL-SUTA-DUMPING-CD DTSIC031
|
||||
00681 ***** DTSIC031
|
||||
00682 10 C031-18-AREA. DTSIC031
|
||||
00683 15 FILLER PIC X(01) VALUE 'M'. DTSIC031
|
||||
00684 15 FILLER PIC X(10) VALUE 'MANDATORY '. DTSIC031
|
||||
00685 15 FILLER PIC X(40) DTSIC031
|
||||
00686 VALUE 'SUTA DUMPING: MANDATORY TRANSFER'. DTSIC031
|
||||
00687 15 FILLER PIC X(01) VALUE 'P'. DTSIC031
|
||||
00688 15 FILLER PIC X(10) VALUE 'PROHIBITED'. DTSIC031
|
||||
00689 15 FILLER PIC X(40) DTSIC031
|
||||
00690 VALUE 'SUTA DUMPING: PROHIBITED TRANSFER'. DTSIC031
|
||||
00691 DTSIC031
|
||||
00692 10 FILLER REDEFINES C031-18-AREA. DTSIC031
|
||||
00693 15 C031-18-ENTRY OCCURS 2 TIMES DTSIC031
|
||||
00694 INDEXED BY C031-18-IDX. DTSIC031
|
||||
00695 20 C031-18-CD PIC X(02). DTSIC031
|
||||
00696 20 C031-18-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00697 20 C031-18-LONG-DSCR PIC X(40). DTSIC031
|
||||
00698 ***** DTSIC031
|
||||
00699 * OPTION 22 = MSOL-LIAB-CD DTSIC031
|
||||
00700 ***** DTSIC031
|
||||
00701 10 C031-22-AREA. DTSIC031
|
||||
00702 15 FILLER PIC X(02) VALUE '01'. DTSIC031
|
||||
00703 15 FILLER PIC X(10) VALUE 'REGULAR'. DTSIC031
|
||||
00704 15 FILLER PIC X(40) DTSIC031
|
||||
00705 VALUE 'REGULAR'. DTSIC031
|
||||
00706 15 FILLER PIC X(02) VALUE '02'. DTSIC031
|
||||
00707 15 FILLER PIC X(10) VALUE 'NON-PROFIT'. DTSIC031
|
||||
00708 15 FILLER PIC X(40) DTSIC031
|
||||
00709 VALUE 'NON-PROFIT'. DTSIC031
|
||||
00710 15 FILLER PIC X(02) VALUE '04'. DTSIC031
|
||||
00711 15 FILLER PIC X(10) VALUE 'DOMESTIC'. DTSIC031
|
||||
00712 15 FILLER PIC X(40) DTSIC031
|
||||
00713 VALUE 'HOUSEHOLD/DOMESTIC'. DTSIC031
|
||||
00714 15 FILLER PIC X(02) VALUE '05'. DTSIC031
|
||||
00715 15 FILLER PIC X(10) VALUE 'SUCCESSOR'. DTSIC031
|
||||
00716 15 FILLER PIC X(40) DTSIC031
|
||||
00717 VALUE 'SUCCESSOR'. DTSIC031
|
||||
00718 15 FILLER PIC X(02) VALUE '06'. DTSIC031
|
||||
00719 15 FILLER PIC X(10) VALUE 'FUTA'. DTSIC031
|
||||
00720 15 FILLER PIC X(40) DTSIC031
|
||||
00721 VALUE 'FUTA'. DTSIC031
|
||||
00722 15 FILLER PIC X(02) VALUE '07'. DTSIC031
|
||||
00723 15 FILLER PIC X(10) VALUE 'FRGN GOVT'. DTSIC031
|
||||
00724 15 FILLER PIC X(40) DTSIC031
|
||||
00725 VALUE 'FOREIGN GOVERNMENT'. DTSIC031
|
||||
00726 15 FILLER PIC X(02) VALUE '08'. DTSIC031
|
||||
00727 15 FILLER PIC X(10) VALUE 'REG VOLUN'. DTSIC031
|
||||
00728 15 FILLER PIC X(40) DTSIC031
|
||||
00729 VALUE 'REGULAR: VOLUNTARY ELECTION'. DTSIC031
|
||||
00730 15 FILLER PIC X(02) VALUE '09'. DTSIC031
|
||||
00731 15 FILLER PIC X(10) VALUE 'REG OTHER'. DTSIC031
|
||||
00732 15 FILLER PIC X(40) DTSIC031
|
||||
00733 VALUE 'REGULAR: OTHER'. DTSIC031
|
||||
00734 15 FILLER PIC X(02) VALUE '10'. DTSIC031
|
||||
00735 15 FILLER PIC X(10) VALUE 'REG CVRTD'. DTSIC031
|
||||
00736 15 FILLER PIC X(40) DTSIC031
|
||||
00737 VALUE 'REGULAR: CONVERTED (UNKNOWN)'. DTSIC031
|
||||
00738 15 FILLER PIC X(02) VALUE '11'. DTSIC031
|
||||
00739 15 FILLER PIC X(10) VALUE 'REG UNKNW'. DTSIC031
|
||||
00740 15 FILLER PIC X(40) DTSIC031
|
||||
00741 VALUE 'REGULAR: UNKNOWN'. DTSIC031
|
||||
00742 DTSIC031
|
||||
00743 15 FILLER PIC X(02) VALUE '21'. DTSIC031
|
||||
00744 15 FILLER PIC X(10) VALUE 'SLF SCHOOL'. DTSIC031
|
||||
00745 15 FILLER PIC X(40) DTSIC031
|
||||
00746 VALUE 'SELF INSURED: SCHOOL DISTRICT'. DTSIC031
|
||||
00747 15 FILLER PIC X(02) VALUE '22'. DTSIC031
|
||||
00748 15 FILLER PIC X(10) VALUE 'SELF CITY'. DTSIC031
|
||||
00749 15 FILLER PIC X(40) DTSIC031
|
||||
00750 VALUE 'SELF INSURED: CITY'. DTSIC031
|
||||
00751 15 FILLER PIC X(02) VALUE '23'. DTSIC031
|
||||
00752 15 FILLER PIC X(10) VALUE 'SELF CNTY'. DTSIC031
|
||||
00753 15 FILLER PIC X(40) DTSIC031
|
||||
00754 VALUE 'SELF INSURED: COUNTY'. DTSIC031
|
||||
00755 15 FILLER PIC X(02) VALUE '24'. DTSIC031
|
||||
00756 15 FILLER PIC X(10) VALUE 'SELF STATE'. DTSIC031
|
||||
00757 15 FILLER PIC X(40) DTSIC031
|
||||
00758 VALUE 'SELF INSURED: STATE'. DTSIC031
|
||||
00759 15 FILLER PIC X(02) VALUE '25'. DTSIC031
|
||||
00760 15 FILLER PIC X(10) VALUE 'CHURCH'. DTSIC031
|
||||
00761 15 FILLER PIC X(40) DTSIC031
|
||||
00762 VALUE 'CHURCH'. DTSIC031
|
||||
00763 15 FILLER PIC X(02) VALUE '26'. DTSIC031
|
||||
00764 15 FILLER PIC X(10) VALUE 'NON-PROFIT'. DTSIC031
|
||||
00765 15 FILLER PIC X(40) DTSIC031
|
||||
00766 VALUE 'NON-PROFIT'. DTSIC031
|
||||
00767 15 FILLER PIC X(02) VALUE '27'. DTSIC031
|
||||
00768 15 FILLER PIC X(10) VALUE 'SELF OTHER'. DTSIC031
|
||||
00769 15 FILLER PIC X(40) DTSIC031
|
||||
00770 VALUE 'SELF INSURED: OTHER'. DTSIC031
|
||||
00771 15 FILLER PIC X(02) VALUE '28'. DTSIC031
|
||||
00772 15 FILLER PIC X(10) VALUE 'SELF CVRTD'. DTSIC031
|
||||
00773 15 FILLER PIC X(40) DTSIC031
|
||||
00774 VALUE 'SELF INSURED: CONVERTED (UNKNOWN)'. DTSIC031
|
||||
00775 15 FILLER PIC X(02) VALUE '29'. DTSIC031
|
||||
00776 15 FILLER PIC X(10) VALUE 'SELF UNKNW'. DTSIC031
|
||||
00777 15 FILLER PIC X(40) DTSIC031
|
||||
00778 VALUE 'SELF INSURED: UNKNOWN'. DTSIC031
|
||||
00779 15 FILLER PIC X(02) VALUE '30'. DTSIC031
|
||||
00780 15 FILLER PIC X(10) VALUE 'SELF VOLUN'. DTSIC031
|
||||
00781 15 FILLER PIC X(40) DTSIC031
|
||||
00782 VALUE 'SELF INSURED: VOLUNTARY ELECTION'. DTSIC031
|
||||
00783 SKIP1 DTSIC031
|
||||
00784 10 FILLER REDEFINES C031-22-AREA. DTSIC031
|
||||
00785 15 C031-22-ENTRY OCCURS 20 TIMES DTSIC031
|
||||
00786 INDEXED BY C031-22-IDX. DTSIC031
|
||||
00787 20 C031-22-CD PIC X(02). DTSIC031
|
||||
00788 20 C031-22-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00789 20 C031-22-LONG-DSCR PIC X(40). DTSIC031
|
||||
00790 SKIP3 DTSIC031
|
||||
00791 ***** DTSIC031
|
||||
00792 * OPTION 23 = MSOL-INACT-CD DTSIC031
|
||||
00793 ***** DTSIC031
|
||||
00794 10 C031-23-AREA. DTSIC031
|
||||
00795 15 FILLER PIC X(02) VALUE ' '. DTSIC031
|
||||
00796 15 FILLER PIC X(10) VALUE 'ACTIVE'. DTSIC031
|
||||
00797 15 FILLER PIC X(40) DTSIC031
|
||||
00798 VALUE 'SPAN IS ACTIVE'. DTSIC031
|
||||
00799 15 FILLER PIC X(02) VALUE '01'. DTSIC031
|
||||
00800 15 FILLER PIC X(10) VALUE 'ADMIN OUT'. DTSIC031
|
||||
00801 15 FILLER PIC X(40) DTSIC031
|
||||
00802 VALUE 'ADMINISTRATIVELY OUT OF BUSINESS'. DTSIC031
|
||||
00803 15 FILLER PIC X(02) VALUE '02'. DTSIC031
|
||||
00804 15 FILLER PIC X(10) VALUE 'OUT OF BUS'. DTSIC031
|
||||
00805 15 FILLER PIC X(40) DTSIC031
|
||||
00806 VALUE 'OUT OF BUSINESS'. DTSIC031
|
||||
00807 15 FILLER PIC X(02) VALUE '04'. DTSIC031
|
||||
00808 15 FILLER PIC X(10) VALUE 'WTHDWN DUP'. DTSIC031
|
||||
00809 15 FILLER PIC X(40) DTSIC031
|
||||
00810 VALUE 'WITHDRAWN - DUPLICATE ACCOUNT'. DTSIC031
|
||||
00811 15 FILLER PIC X(02) VALUE '05'. DTSIC031
|
||||
00812 15 FILLER PIC X(10) VALUE 'WTHDWN CAN'. DTSIC031
|
||||
00813 15 FILLER PIC X(40) DTSIC031
|
||||
00814 VALUE 'WITHDRAWN - CANCELED ACCOUNT'. DTSIC031
|
||||
00815 15 FILLER PIC X(02) VALUE '06'. DTSIC031
|
||||
00816 15 FILLER PIC X(10) VALUE 'SUCCEEDED'. DTSIC031
|
||||
00817 15 FILLER PIC X(40) DTSIC031
|
||||
00818 VALUE 'SUCCEEDED'. DTSIC031
|
||||
00819 15 FILLER PIC X(02) VALUE '07'. DTSIC031
|
||||
00820 15 FILLER PIC X(10) VALUE 'PAY METHOD'. DTSIC031
|
||||
00821 15 FILLER PIC X(40) DTSIC031
|
||||
00822 VALUE 'CHANGED METHOD OF PAYMENT'. DTSIC031
|
||||
00823 SKIP1 DTSIC031
|
||||
00824 10 FILLER REDEFINES C031-23-AREA. DTSIC031
|
||||
00825 15 C031-23-ENTRY OCCURS 7 TIMES DTSIC031
|
||||
00826 INDEXED BY C031-23-IDX. DTSIC031
|
||||
00827 20 C031-23-CD PIC X(02). DTSIC031
|
||||
00828 20 C031-23-SHORT-DSCR PIC X(10). DTSIC031
|
||||
00829 20 C031-23-LONG-DSCR PIC X(40). DTSIC031
|
||||
871
Copybook/DTSIC032.cpy
Normal file
871
Copybook/DTSIC032.cpy
Normal file
@ -0,0 +1,871 @@
|
||||
00001 ***** 08/19/13
|
||||
00002 * DTSIC032
|
||||
00003 * DTSIC032 ACCOUNTING CODES VALUES AND DESCRIPTIONS. LV012
|
||||
00004 * DTSIC032
|
||||
00005 * DTSIC032
|
||||
00006 * 11/05/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIC032
|
||||
00007 * DTSIC032
|
||||
00008 * 05/27/1999 PICKUP MODIFICATIONS. DTSIC032
|
||||
00009 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSIC032
|
||||
00010 * DTSIC032
|
||||
00011 * 07/12/2007 ADDED ANNUAL FILER NOT LIABLE TO DTSIC032
|
||||
00012 * QUARTER REPORT TYPES. DTSIC032
|
||||
00013 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00014 * DTSIC032
|
||||
00015 * 03/09/2011 ADDED NP AND NR PAYMENT TYPES FOR DTSIC032
|
||||
00016 * NON-DOES CHECK PROCESSING. DTSIC032
|
||||
00017 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00018 * DTSIC032
|
||||
00019 * 04/12/2011 ADDED NH PAYMENT TYPE FOR NON-DOES DTSIC032
|
||||
00020 * CHECKS RETURNED BY THE BANK. DTSIC032
|
||||
00021 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00022 * DTSIC032
|
||||
00023 * 09/27/2012 REMOVED NH PAYMENT TYPE. DTSIC032
|
||||
00024 * ADDED CLAIMANT WAGE REPORTS: CW AND CZ.DTSIC032
|
||||
00025 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00026 * DTSIC032
|
||||
00027 * 04/05/2013 ADDED TAX WAGE ADJUSTMENT REPORT TYPE. DTSIC032
|
||||
00028 * REFERENCE: PROGRAMMER: GD DTSIC032
|
||||
00029 * DTSIC032
|
||||
00030 * 07/26/2013 ADDED SUTA DUMPING PAYMENT TYPE. DTSIC032
|
||||
00031 * REFERENCE: TICKET 1969 PROGRAMMER: GD DTSIC032
|
||||
00032 * DTSIC032
|
||||
00033 ***** DTSIC032
|
||||
00034 DTSIC032
|
||||
00035 ***** DTSIC032
|
||||
00036 * OPTION 01 = MQTR-CURR-RPT-TYPE DTSIC032
|
||||
00037 ***** DTSIC032
|
||||
00038 10 C032-01-AREA. DTSIC032
|
||||
00039 15 FILLER PIC X(01) VALUE 'N'. DTSIC032
|
||||
00040 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC032
|
||||
00041 15 FILLER PIC X(40) DTSIC032
|
||||
00042 VALUE 'NOT LIABLE'. DTSIC032
|
||||
00043 15 FILLER PIC X(01) VALUE 'L'. DTSIC032
|
||||
00044 15 FILLER PIC X(10) VALUE 'LBL NOT DU'. DTSIC032
|
||||
00045 15 FILLER PIC X(40) DTSIC032
|
||||
00046 VALUE 'LIABLE (NOT YET DUE)'. DTSIC032
|
||||
00047 15 FILLER PIC X(01) VALUE 'D'. DTSIC032
|
||||
00048 15 FILLER PIC X(10) VALUE 'DELINQUENT'. DTSIC032
|
||||
00049 15 FILLER PIC X(40) DTSIC032
|
||||
00050 VALUE 'DELINQUENT'. DTSIC032
|
||||
00051 15 FILLER PIC X(01) VALUE 'E'. DTSIC032
|
||||
00052 15 FILLER PIC X(10) VALUE 'ESTIMATED'. DTSIC032
|
||||
00053 15 FILLER PIC X(40) DTSIC032
|
||||
00054 VALUE 'ESTIMATED'. DTSIC032
|
||||
00055 15 FILLER PIC X(01) VALUE 'O'. DTSIC032
|
||||
00056 15 FILLER PIC X(10) VALUE 'ORIGINAL'. DTSIC032
|
||||
00057 15 FILLER PIC X(40) DTSIC032
|
||||
00058 VALUE 'ORIGINAL'. DTSIC032
|
||||
00059 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00060 15 FILLER PIC X(10) VALUE 'AMENDED'. DTSIC032
|
||||
00061 15 FILLER PIC X(40) DTSIC032
|
||||
00062 VALUE 'AMENDED'. DTSIC032
|
||||
00063 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00064 15 FILLER PIC X(10) VALUE 'AUDIT'. DTSIC032
|
||||
00065 15 FILLER PIC X(40) DTSIC032
|
||||
00066 VALUE 'AUDIT'. DTSIC032
|
||||
00067 15 FILLER PIC X(01) VALUE 'F'. DTSIC032
|
||||
00068 15 FILLER PIC X(10) VALUE 'FIELD (NA)'. DTSIC032
|
||||
00069 15 FILLER PIC X(40) DTSIC032
|
||||
00070 VALUE 'FIELD (NOT AUDIT)'. DTSIC032
|
||||
00071 15 FILLER PIC X(01) VALUE 'C'. DTSIC032
|
||||
00072 15 FILLER PIC X(10) VALUE 'ADMIN CORR'. DTSIC032
|
||||
00073 15 FILLER PIC X(40) DTSIC032
|
||||
00074 VALUE 'ADMINISTRATIVE CORRECTION'. DTSIC032
|
||||
00075 15 FILLER PIC X(01) VALUE 'P'. DTSIC032
|
||||
00076 15 FILLER PIC X(10) VALUE 'PICKUP '. DTSIC032
|
||||
00077 15 FILLER PIC X(40) DTSIC032
|
||||
00078 VALUE 'PICKUP'. DTSIC032
|
||||
00079 15 FILLER PIC X(01) VALUE 'H'. DTSIC032
|
||||
00080 15 FILLER PIC X(10) VALUE 'ANN NOT LB'. DTSIC032
|
||||
00081 15 FILLER PIC X(40) DTSIC032
|
||||
00082 VALUE 'ANNUAL FILER NOT LIABLE'. DTSIC032
|
||||
00083 15 FILLER PIC X(01) VALUE 'B'. DTSIC032
|
||||
00084 15 FILLER PIC X(10) VALUE 'CLMT WAGE '. DTSIC032
|
||||
00085 15 FILLER PIC X(40) DTSIC032
|
||||
00086 VALUE 'CLAIMANT WAGE REPORT '. DTSIC032
|
||||
00087 15 FILLER PIC X(01) VALUE 'T'. DTSIC032
|
||||
00088 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. DTSIC032
|
||||
00089 15 FILLER PIC X(40) DTSIC032
|
||||
00090 VALUE 'TAX WAGE ADJUSTMENT '. DTSIC032
|
||||
00091 DTSIC032
|
||||
00092 10 FILLER REDEFINES C032-01-AREA. DTSIC032
|
||||
00093 15 C032-01-ENTRY OCCURS 13 TIMES DTSIC032
|
||||
00094 INDEXED BY C032-01-IDX. DTSIC032
|
||||
00095 20 C032-01-CD PIC X(01). DTSIC032
|
||||
00096 20 C032-01-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00097 20 C032-01-LONG-DSCR PIC X(40). DTSIC032
|
||||
00098 SKIP3 DTSIC032
|
||||
00099 ***** DTSIC032
|
||||
00100 * OPTION 02 = MQTR-MISS-RPT-CUOFF-CD DTSIC032
|
||||
00101 ***** DTSIC032
|
||||
00102 10 C032-02-AREA. DTSIC032
|
||||
00103 15 FILLER PIC X(01) VALUE '0'. DTSIC032
|
||||
00104 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC032
|
||||
00105 15 FILLER PIC X(40) DTSIC032
|
||||
00106 VALUE 'NOT LIABLE'. DTSIC032
|
||||
00107 15 FILLER PIC X(01) VALUE '1'. DTSIC032
|
||||
00108 15 FILLER PIC X(10) VALUE 'TIMELY'. DTSIC032
|
||||
00109 15 FILLER PIC X(40) DTSIC032
|
||||
00110 VALUE 'LIABLE AND TIMELY ORIGINAL REPORT'. DTSIC032
|
||||
00111 15 FILLER PIC X(01) VALUE '2'. DTSIC032
|
||||
00112 15 FILLER PIC X(10) VALUE 'UNTIMELY'. DTSIC032
|
||||
00113 15 FILLER PIC X(40) DTSIC032
|
||||
00114 VALUE 'LIABLE AND UNTIMELY ORIGINAL REPORT'. DTSIC032
|
||||
00115 15 FILLER PIC X(01) VALUE '3'. DTSIC032
|
||||
00116 15 FILLER PIC X(10) VALUE 'EXTEN DATE'. DTSIC032
|
||||
00117 15 FILLER PIC X(40) DTSIC032
|
||||
00118 VALUE 'NO DELINQ NOTICE - EXTENDED DUE DATE'. DTSIC032
|
||||
00119 15 FILLER PIC X(01) VALUE '4'. DTSIC032
|
||||
00120 15 FILLER PIC X(10) VALUE 'NO ADDRESS'. DTSIC032
|
||||
00121 15 FILLER PIC X(40) DTSIC032
|
||||
00122 VALUE 'NO DELINQ NOTICE - NO TAX ADDRESS'. DTSIC032
|
||||
00123 15 FILLER PIC X(01) VALUE '8'. DTSIC032
|
||||
00124 15 FILLER PIC X(10) VALUE 'NO DELINQ'. DTSIC032
|
||||
00125 15 FILLER PIC X(40) DTSIC032
|
||||
00126 VALUE 'NO DELINQ NOTICE - OTHER'. DTSIC032
|
||||
00127 15 FILLER PIC X(01) VALUE '9'. DTSIC032
|
||||
00128 15 FILLER PIC X(10) VALUE 'DELINQ'. DTSIC032
|
||||
00129 15 FILLER PIC X(40) DTSIC032
|
||||
00130 VALUE 'DELINQUENCY NOTICE SENT'. DTSIC032
|
||||
00131 15 FILLER PIC X(01) VALUE 'C'. DTSIC032
|
||||
00132 15 FILLER PIC X(10) VALUE 'CONVERSION'. DTSIC032
|
||||
00133 15 FILLER PIC X(40) DTSIC032
|
||||
00134 VALUE 'CODE UNDETERMINABLE AT CONVERSION'. DTSIC032
|
||||
00135 15 FILLER PIC X(01) VALUE 'Z'. DTSIC032
|
||||
00136 15 FILLER PIC X(10) VALUE 'NOT YET '. DTSIC032
|
||||
00137 15 FILLER PIC X(40) DTSIC032
|
||||
00138 VALUE 'MISSING REPORT RUN HAS NOT YET OCCURRED'. DTSIC032
|
||||
00139 DTSIC032
|
||||
00140 10 FILLER REDEFINES C032-02-AREA. DTSIC032
|
||||
00141 15 C032-02-ENTRY OCCURS 9 TIMES DTSIC032
|
||||
00142 INDEXED BY C032-02-IDX. DTSIC032
|
||||
00143 20 C032-02-CD PIC X(01). DTSIC032
|
||||
00144 20 C032-02-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00145 20 C032-02-LONG-DSCR PIC X(40). DTSIC032
|
||||
00146 SKIP3 DTSIC032
|
||||
00147 ***** DTSIC032
|
||||
00148 * OPTION 03 = MQTR-TAX-DUE-DATE-IND DTSIC032
|
||||
00149 ***** DTSIC032
|
||||
00150 10 C032-03-AREA. DTSIC032
|
||||
00151 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00152 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC032
|
||||
00153 15 FILLER PIC X(40) DTSIC032
|
||||
00154 VALUE 'TAX DUE DATE - MANUAL (USER) CONTROL'. DTSIC032
|
||||
00155 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00156 15 FILLER PIC X(10) VALUE 'AUTOMATIC'. DTSIC032
|
||||
00157 15 FILLER PIC X(40) DTSIC032
|
||||
00158 VALUE 'TAX DUE DT - AUTOMATIC (SYSTEM) CONTROL'. DTSIC032
|
||||
00159 DTSIC032
|
||||
00160 10 FILLER REDEFINES C032-03-AREA. DTSIC032
|
||||
00161 15 C032-03-ENTRY OCCURS 2 TIMES DTSIC032
|
||||
00162 INDEXED BY C032-03-IDX. DTSIC032
|
||||
00163 20 C032-03-CD PIC X(01). DTSIC032
|
||||
00164 20 C032-03-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00165 20 C032-03-LONG-DSCR PIC X(40). DTSIC032
|
||||
00166 SKIP3 DTSIC032
|
||||
00167 ***** DTSIC032
|
||||
00168 * OPTION 04 = MQTR-RPT-DUE-DATE-IND DTSIC032
|
||||
00169 ***** DTSIC032
|
||||
00170 10 C032-04-AREA. DTSIC032
|
||||
00171 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00172 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC032
|
||||
00173 15 FILLER PIC X(40) DTSIC032
|
||||
00174 VALUE 'RPT DUE DATE - MANUAL (USER) CONTROL'. DTSIC032
|
||||
00175 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00176 15 FILLER PIC X(10) VALUE 'AUTOMATIC'. DTSIC032
|
||||
00177 15 FILLER PIC X(40) DTSIC032
|
||||
00178 VALUE 'RPT DUE DT - AUTOMATIC (SYSTEM) CONTROL'. DTSIC032
|
||||
00179 DTSIC032
|
||||
00180 10 FILLER REDEFINES C032-04-AREA. DTSIC032
|
||||
00181 15 C032-04-ENTRY OCCURS 2 TIMES DTSIC032
|
||||
00182 INDEXED BY C032-04-IDX. DTSIC032
|
||||
00183 20 C032-04-CD PIC X(01). DTSIC032
|
||||
00184 20 C032-04-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00185 20 C032-04-LONG-DSCR PIC X(40). DTSIC032
|
||||
00186 SKIP3 DTSIC032
|
||||
00187 ***** DTSIC032
|
||||
00188 * OPTION 05 = MQTR-INT-CHARGE-IND DTSIC032
|
||||
00189 ***** DTSIC032
|
||||
00190 10 C032-05-AREA. DTSIC032
|
||||
00191 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00192 15 FILLER PIC X(10) VALUE 'AUTOMATIC'. DTSIC032
|
||||
00193 15 FILLER PIC X(40) DTSIC032
|
||||
00194 VALUE 'AUTOMATIC INTEREST CHARGING'. DTSIC032
|
||||
00195 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00196 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC032
|
||||
00197 15 FILLER PIC X(40) DTSIC032
|
||||
00198 VALUE 'MANUAL INTEREST CHARGING'. DTSIC032
|
||||
00199 DTSIC032
|
||||
00200 10 FILLER REDEFINES C032-05-AREA. DTSIC032
|
||||
00201 15 C032-05-ENTRY OCCURS 2 TIMES DTSIC032
|
||||
00202 INDEXED BY C032-05-IDX. DTSIC032
|
||||
00203 20 C032-05-CD PIC X(01). DTSIC032
|
||||
00204 20 C032-05-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00205 20 C032-05-LONG-DSCR PIC X(40). DTSIC032
|
||||
00206 SKIP3 DTSIC032
|
||||
00207 ***** DTSIC032
|
||||
00208 * OPTION 06 = MQTR-PEN-CHARGE-IND DTSIC032
|
||||
00209 ***** DTSIC032
|
||||
00210 10 C032-06-AREA. DTSIC032
|
||||
00211 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00212 15 FILLER PIC X(10) VALUE 'AUTOMATIC'. DTSIC032
|
||||
00213 15 FILLER PIC X(40) DTSIC032
|
||||
00214 VALUE 'AUTOMATIC PENALTY CHARGING'. DTSIC032
|
||||
00215 15 FILLER PIC X(01) VALUE 'M'. DTSIC032
|
||||
00216 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC032
|
||||
00217 15 FILLER PIC X(40) DTSIC032
|
||||
00218 VALUE 'MANUAL PENALTY CHARGING'. DTSIC032
|
||||
00219 DTSIC032
|
||||
00220 10 FILLER REDEFINES C032-06-AREA. DTSIC032
|
||||
00221 15 C032-06-ENTRY OCCURS 2 TIMES DTSIC032
|
||||
00222 INDEXED BY C032-06-IDX. DTSIC032
|
||||
00223 20 C032-06-CD PIC X(01). DTSIC032
|
||||
00224 20 C032-06-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00225 20 C032-06-LONG-DSCR PIC X(40). DTSIC032
|
||||
00226 SKIP3 DTSIC032
|
||||
00227 ***** DTSIC032
|
||||
00228 * OPTION 11 = MQTR-ACCT-IND DTSIC032
|
||||
00229 ***** DTSIC032
|
||||
00230 10 C032-11-AREA. DTSIC032
|
||||
00231 15 FILLER PIC X(02) VALUE 'UI'. DTSIC032
|
||||
00232 15 FILLER PIC X(10) VALUE 'UI TAX'. DTSIC032
|
||||
00233 15 FILLER PIC X(40) DTSIC032
|
||||
00234 VALUE 'UI TAX'. DTSIC032
|
||||
00235 15 FILLER PIC X(02) VALUE 'SU'. DTSIC032
|
||||
00236 15 FILLER PIC X(10) VALUE 'SUR TAX'. DTSIC032
|
||||
00237 15 FILLER PIC X(40) DTSIC032
|
||||
00238 VALUE 'SUR TAX'. DTSIC032
|
||||
00239 15 FILLER PIC X(02) VALUE 'I '. DTSIC032
|
||||
00240 15 FILLER PIC X(10) VALUE 'INTEREST'. DTSIC032
|
||||
00241 15 FILLER PIC X(40) DTSIC032
|
||||
00242 VALUE 'INTEREST'. DTSIC032
|
||||
00243 15 FILLER PIC X(02) VALUE 'LP'. DTSIC032
|
||||
00244 15 FILLER PIC X(10) VALUE 'LT PAY PEN'. DTSIC032
|
||||
00245 15 FILLER PIC X(40) DTSIC032
|
||||
00246 VALUE 'LATE PAYMENT PENALTY'. DTSIC032
|
||||
00247 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00248 15 FILLER PIC X(10) VALUE 'NSF PEN'. DTSIC032
|
||||
00249 15 FILLER PIC X(40) DTSIC032
|
||||
00250 VALUE 'NSF CHECK PENALTY'. DTSIC032
|
||||
00251 15 FILLER PIC X(02) VALUE 'MP'. DTSIC032
|
||||
00252 15 FILLER PIC X(10) VALUE 'MISC PEN'. DTSIC032
|
||||
00253 15 FILLER PIC X(40) DTSIC032
|
||||
00254 VALUE 'MISCELLANEOUS PENALTY'. DTSIC032
|
||||
00255 DTSIC032
|
||||
00256 10 FILLER REDEFINES C032-11-AREA. DTSIC032
|
||||
00257 15 C032-11-ENTRY OCCURS 6 TIMES DTSIC032
|
||||
00258 INDEXED BY C032-11-IDX. DTSIC032
|
||||
00259 20 C032-11-CD PIC X(02). DTSIC032
|
||||
00260 20 C032-11-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00261 20 C032-11-LONG-DSCR PIC X(40). DTSIC032
|
||||
00262 SKIP3 DTSIC032
|
||||
00263 ***** DTSIC032
|
||||
00264 * OPTION 12 = MDST-ACCT-IND DTSIC032
|
||||
00265 ***** DTSIC032
|
||||
00266 10 C032-12-AREA. DTSIC032
|
||||
00267 15 FILLER PIC X(02) VALUE 'UI'. DTSIC032
|
||||
00268 15 FILLER PIC X(10) VALUE 'UI TAX'. DTSIC032
|
||||
00269 15 FILLER PIC X(40) DTSIC032
|
||||
00270 VALUE 'UI TAX'. DTSIC032
|
||||
00271 15 FILLER PIC X(02) VALUE 'SU'. DTSIC032
|
||||
00272 15 FILLER PIC X(10) VALUE 'SUR TAX'. DTSIC032
|
||||
00273 15 FILLER PIC X(40) DTSIC032
|
||||
00274 VALUE 'SUR TAX'. DTSIC032
|
||||
00275 15 FILLER PIC X(02) VALUE 'I '. DTSIC032
|
||||
00276 15 FILLER PIC X(10) VALUE 'INTEREST'. DTSIC032
|
||||
00277 15 FILLER PIC X(40) DTSIC032
|
||||
00278 VALUE 'INTEREST'. DTSIC032
|
||||
00279 15 FILLER PIC X(02) VALUE 'LP'. DTSIC032
|
||||
00280 15 FILLER PIC X(10) VALUE 'LT PAY PEN'. DTSIC032
|
||||
00281 15 FILLER PIC X(40) DTSIC032
|
||||
00282 VALUE 'LATE PAYMENT PENALTY'. DTSIC032
|
||||
00283 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00284 15 FILLER PIC X(10) VALUE 'NSF PEN'. DTSIC032
|
||||
00285 15 FILLER PIC X(40) DTSIC032
|
||||
00286 VALUE 'NSF CHECK PENALTY'. DTSIC032
|
||||
00287 15 FILLER PIC X(02) VALUE 'MP'. DTSIC032
|
||||
00288 15 FILLER PIC X(10) VALUE 'MISC PEN'. DTSIC032
|
||||
00289 15 FILLER PIC X(40) DTSIC032
|
||||
00290 VALUE 'MISCELLANEOUS PENALTY'. DTSIC032
|
||||
00291 15 FILLER PIC X(02) VALUE 'CA'. DTSIC032
|
||||
00292 15 FILLER PIC X(10) VALUE 'CREDIT'. DTSIC032
|
||||
00293 15 FILLER PIC X(40) DTSIC032
|
||||
00294 VALUE 'CREDIT AVAILABLE'. DTSIC032
|
||||
00295 15 FILLER PIC X(02) VALUE 'CT'. DTSIC032
|
||||
00296 15 FILLER PIC X(10) VALUE 'CR TOLERAN'. DTSIC032
|
||||
00297 15 FILLER PIC X(40) DTSIC032
|
||||
00298 VALUE 'CREDIT TOLERANCE'. DTSIC032
|
||||
00299 15 FILLER PIC X(02) VALUE 'CW'. DTSIC032
|
||||
00300 15 FILLER PIC X(10) VALUE 'CR WRT OFF'. DTSIC032
|
||||
00301 15 FILLER PIC X(40) DTSIC032
|
||||
00302 VALUE 'CREDIT WRITTEN OFF'. DTSIC032
|
||||
00303 DTSIC032
|
||||
00304 10 FILLER REDEFINES C032-12-AREA. DTSIC032
|
||||
00305 15 C032-12-ENTRY OCCURS 9 TIMES DTSIC032
|
||||
00306 INDEXED BY C032-12-IDX. DTSIC032
|
||||
00307 20 C032-12-CD PIC X(02). DTSIC032
|
||||
00308 20 C032-12-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00309 20 C032-12-LONG-DSCR PIC X(40). DTSIC032
|
||||
00310 SKIP3 DTSIC032
|
||||
00311 ***** DTSIC032
|
||||
00312 * OPTION 16 = MREV-FATE DTSIC032
|
||||
00313 ***** DTSIC032
|
||||
00314 10 C032-16-AREA. DTSIC032
|
||||
00315 15 FILLER PIC X(02) VALUE 'RF'. DTSIC032
|
||||
00316 15 FILLER PIC X(10) VALUE 'REFUNDED'. DTSIC032
|
||||
00317 15 FILLER PIC X(40) DTSIC032
|
||||
00318 VALUE 'REFUNDED'. DTSIC032
|
||||
00319 15 FILLER PIC X(02) VALUE 'RV'. DTSIC032
|
||||
00320 15 FILLER PIC X(10) VALUE 'REVERSED'. DTSIC032
|
||||
00321 15 FILLER PIC X(40) DTSIC032
|
||||
00322 VALUE 'REVERSED'. DTSIC032
|
||||
00323 15 FILLER PIC X(02) VALUE 'PU'. DTSIC032
|
||||
00324 15 FILLER PIC X(10) VALUE 'PURGED'. DTSIC032
|
||||
00325 15 FILLER PIC X(40) DTSIC032
|
||||
00326 VALUE 'PURGED'. DTSIC032
|
||||
00327 15 FILLER PIC X(02) VALUE 'NR'. DTSIC032
|
||||
00328 15 FILLER PIC X(10) VALUE 'NONDOES RV'. DTSIC032
|
||||
00329 15 FILLER PIC X(40) DTSIC032
|
||||
00330 VALUE 'NON-DOES CHECK REVERSED'. DTSIC032
|
||||
00331 15 FILLER PIC X(02) VALUE 'NH'. DTSIC032
|
||||
00332 15 FILLER PIC X(10) VALUE 'NONDOES NF'. DTSIC032
|
||||
00333 15 FILLER PIC X(40) DTSIC032
|
||||
00334 VALUE 'NON-DOES CHECK - NSF '. DTSIC032
|
||||
00335 DTSIC032
|
||||
00336 10 FILLER REDEFINES C032-16-AREA. DTSIC032
|
||||
00337 15 C032-16-ENTRY OCCURS 5 TIMES DTSIC032
|
||||
00338 INDEXED BY C032-16-IDX. DTSIC032
|
||||
00339 20 C032-16-CD PIC X(02). DTSIC032
|
||||
00340 20 C032-16-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00341 20 C032-16-LONG-DSCR PIC X(40). DTSIC032
|
||||
00342 SKIP3 DTSIC032
|
||||
00343 ***** DTSIC032
|
||||
00344 * OPTION 17 = ASKL-REC-TYPE DTSIC032
|
||||
00345 ***** DTSIC032
|
||||
00346 10 C032-17-AREA. DTSIC032
|
||||
00347 15 FILLER PIC X(01) VALUE 'A'. DTSIC032
|
||||
00348 15 FILLER PIC X(10) VALUE 'ADJUSTMENT'. DTSIC032
|
||||
00349 15 FILLER PIC X(40) DTSIC032
|
||||
00350 VALUE 'ADJUSTMENT'. DTSIC032
|
||||
00351 15 FILLER PIC X(01) VALUE 'H'. DTSIC032
|
||||
00352 15 FILLER PIC X(10) VALUE 'HEADER'. DTSIC032
|
||||
00353 15 FILLER PIC X(40) DTSIC032
|
||||
00354 VALUE 'HEADER'. DTSIC032
|
||||
00355 15 FILLER PIC X(01) VALUE 'P'. DTSIC032
|
||||
00356 15 FILLER PIC X(10) VALUE 'PAYMENT'. DTSIC032
|
||||
00357 15 FILLER PIC X(40) DTSIC032
|
||||
00358 VALUE 'PAYMENT'. DTSIC032
|
||||
00359 15 FILLER PIC X(01) VALUE 'R'. DTSIC032
|
||||
00360 15 FILLER PIC X(10) VALUE 'REPORT'. DTSIC032
|
||||
00361 15 FILLER PIC X(40) DTSIC032
|
||||
00362 VALUE 'REPORT'. DTSIC032
|
||||
00363 DTSIC032
|
||||
00364 10 FILLER REDEFINES C032-17-AREA. DTSIC032
|
||||
00365 15 C032-17-ENTRY OCCURS 4 TIMES DTSIC032
|
||||
00366 INDEXED BY C032-17-IDX. DTSIC032
|
||||
00367 20 C032-17-CD PIC X(01). DTSIC032
|
||||
00368 20 C032-17-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00369 20 C032-17-LONG-DSCR PIC X(40). DTSIC032
|
||||
00370 SKIP3 DTSIC032
|
||||
00371 ***** DTSIC032
|
||||
00372 * OPTIONS 21 = ARPT-RPT-TYPE, DTSIC032
|
||||
00373 * 22 = MRPT-RPT-TYPE DTSIC032
|
||||
00374 ***** DTSIC032
|
||||
00375 10 C032-21-22-AREA. DTSIC032
|
||||
00376 15 FILLER PIC X(02) VALUE 'OR'. DTSIC032
|
||||
00377 15 FILLER PIC X(10) VALUE 'ORIGINAL'. DTSIC032
|
||||
00378 15 FILLER PIC X(40) DTSIC032
|
||||
00379 VALUE 'ORIGINAL EMPLOYER REPORT'. DTSIC032
|
||||
00380 15 FILLER PIC X(02) VALUE 'EA'. DTSIC032
|
||||
00381 15 FILLER PIC X(10) VALUE 'EMP AMEND'. DTSIC032
|
||||
00382 15 FILLER PIC X(40) DTSIC032
|
||||
00383 VALUE 'EMPLOYER AMENDMENT'. DTSIC032
|
||||
00384 15 FILLER PIC X(02) VALUE 'AU'. DTSIC032
|
||||
00385 15 FILLER PIC X(10) VALUE 'AUDIT'. DTSIC032
|
||||
00386 15 FILLER PIC X(40) DTSIC032
|
||||
00387 VALUE 'AUDIT ADJUSTMENT'. DTSIC032
|
||||
00388 15 FILLER PIC X(02) VALUE 'FS'. DTSIC032
|
||||
00389 15 FILLER PIC X(10) VALUE 'FIELD SUP'. DTSIC032
|
||||
00390 15 FILLER PIC X(40) DTSIC032
|
||||
00391 VALUE 'FIELD SUPPORT (NON-AUDIT) ADJUSTMENT'. DTSIC032
|
||||
00392 15 FILLER PIC X(02) VALUE 'AC'. DTSIC032
|
||||
00393 15 FILLER PIC X(10) VALUE 'ADMN CORR'. DTSIC032
|
||||
00394 15 FILLER PIC X(40) DTSIC032
|
||||
00395 VALUE 'ADMINISTRATIVE CORRECTION'. DTSIC032
|
||||
00396 15 FILLER PIC X(02) VALUE 'ES'. DTSIC032
|
||||
00397 15 FILLER PIC X(10) VALUE 'ESTIMATED'. DTSIC032
|
||||
00398 15 FILLER PIC X(40) DTSIC032
|
||||
00399 VALUE 'REPORT ESTIMATED BY THE DEPARTMENT'. DTSIC032
|
||||
00400 15 FILLER PIC X(02) VALUE 'WD'. DTSIC032
|
||||
00401 15 FILLER PIC X(10) VALUE 'WITHDRAWAL'. DTSIC032
|
||||
00402 15 FILLER PIC X(40) DTSIC032
|
||||
00403 VALUE 'WITHDRAWAL - WITHDRAWS ALL PREVIOUS RPTS'. DTSIC032
|
||||
00404 15 FILLER PIC X(02) VALUE 'CW'. DTSIC032
|
||||
00405 15 FILLER PIC X(10) VALUE 'CLAIMNT WG'. DTSIC032
|
||||
00406 15 FILLER PIC X(40) DTSIC032
|
||||
00407 VALUE 'CLAIMANT WAGE REPORT - BLOCKED CLAIM '. DTSIC032
|
||||
00408 15 FILLER PIC X(02) VALUE 'CZ'. DTSIC032
|
||||
00409 15 FILLER PIC X(10) VALUE 'CW REVERSE'. DTSIC032
|
||||
00410 15 FILLER PIC X(40) DTSIC032
|
||||
00411 VALUE 'CLAIMANT WAGE REPORT - REVERSAL '. DTSIC032
|
||||
00412 15 FILLER PIC X(02) VALUE 'TW'. DTSIC032
|
||||
00413 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. DTSIC032
|
||||
00414 15 FILLER PIC X(40) DTSIC032
|
||||
00415 VALUE 'TAX WAGE ADJUSTMENT '. DTSIC032
|
||||
00416 DTSIC032
|
||||
00417 10 FILLER REDEFINES C032-21-22-AREA. DTSIC032
|
||||
00418 15 C032-21-22-ENTRY OCCURS 10 TIMES DTSIC032
|
||||
00419 INDEXED BY C032-21-22-IDX. DTSIC032
|
||||
00420 20 C032-21-22-CD PIC X(02). DTSIC032
|
||||
00421 20 C032-21-22-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00422 20 C032-21-22-LONG-DSCR PIC X(40). DTSIC032
|
||||
00423 SKIP3 DTSIC032
|
||||
00424 ***** DTSIC032
|
||||
00425 * OPTION 22 --- SEE OPTION 21 DTSIC032
|
||||
00426 ***** DTSIC032
|
||||
00427 SKIP3 DTSIC032
|
||||
00428 ***** DTSIC032
|
||||
00429 * OPTIONS 23 = APAY-PAY-TYPE, DTSIC032
|
||||
00430 ***** DTSIC032
|
||||
00431 10 C032-23-AREA. DTSIC032
|
||||
00432 15 FILLER PIC X(02) VALUE 'PA'. DTSIC032
|
||||
00433 15 FILLER PIC X(10) VALUE 'PA PAYMENT'. DTSIC032
|
||||
00434 15 FILLER PIC X(40) DTSIC032
|
||||
00435 VALUE 'PA PAYMENT'. DTSIC032
|
||||
00436 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00437 15 FILLER PIC X(10) VALUE 'NON-DOES P'. DTSIC032
|
||||
00438 15 FILLER PIC X(40) DTSIC032
|
||||
00439 VALUE 'NON-DOES CHECK '. DTSIC032
|
||||
00440 15 FILLER PIC X(02) VALUE 'PR'. DTSIC032
|
||||
00441 15 FILLER PIC X(10) VALUE 'PAY REV'. DTSIC032
|
||||
00442 15 FILLER PIC X(40) DTSIC032
|
||||
00443 VALUE 'PAYMENT REVERSAL'. DTSIC032
|
||||
00444 15 FILLER PIC X(02) VALUE 'NG'. DTSIC032
|
||||
00445 15 FILLER PIC X(10) VALUE 'NG CHECK'. DTSIC032
|
||||
00446 15 FILLER PIC X(40) DTSIC032
|
||||
00447 VALUE 'NO GOOD CHECK'. DTSIC032
|
||||
00448 15 FILLER PIC X(02) VALUE 'RF'. DTSIC032
|
||||
00449 15 FILLER PIC X(10) VALUE 'REFUND'. DTSIC032
|
||||
00450 15 FILLER PIC X(40) DTSIC032
|
||||
00451 VALUE 'REFUND'. DTSIC032
|
||||
00452 15 FILLER PIC X(02) VALUE 'RR'. DTSIC032
|
||||
00453 15 FILLER PIC X(10) VALUE 'REF REV'. DTSIC032
|
||||
00454 15 FILLER PIC X(40) DTSIC032
|
||||
00455 VALUE 'REFUND REVERSAL'. DTSIC032
|
||||
00456 15 FILLER PIC X(02) VALUE 'NR'. DTSIC032
|
||||
00457 15 FILLER PIC X(10) VALUE 'NONDOES RV'. DTSIC032
|
||||
00458 15 FILLER PIC X(40) DTSIC032
|
||||
00459 VALUE 'NON-DOES CHECK REVERSAL'. DTSIC032
|
||||
00460 DTSIC032
|
||||
00461 10 FILLER REDEFINES C032-23-AREA. DTSIC032
|
||||
00462 15 C032-23-ENTRY OCCURS 7 TIMES DTSIC032
|
||||
00463 INDEXED BY C032-23-IDX. DTSIC032
|
||||
00464 20 C032-23-CD PIC X(02). DTSIC032
|
||||
00465 20 C032-23-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00466 20 C032-23-LONG-DSCR PIC X(40). DTSIC032
|
||||
00467 SKIP3 DTSIC032
|
||||
00468 ***** DTSIC032
|
||||
00469 * OPTIONS 24 = MPAY-PAY-TYPE, DTSIC032
|
||||
00470 ***** DTSIC032
|
||||
00471 10 C032-24-AREA. DTSIC032
|
||||
00472 15 FILLER PIC X(02) VALUE 'PA'. DTSIC032
|
||||
00473 15 FILLER PIC X(10) VALUE 'PA PAYMENT'. DTSIC032
|
||||
00474 15 FILLER PIC X(40) DTSIC032
|
||||
00475 VALUE 'PA PAYMENT'. DTSIC032
|
||||
00476 15 FILLER PIC X(02) VALUE 'OR'. DTSIC032
|
||||
00477 15 FILLER PIC X(10) VALUE 'OR PAYMENT'. DTSIC032
|
||||
00478 15 FILLER PIC X(40) DTSIC032
|
||||
00479 VALUE 'ORIGINAL REPORT PAYMENT'. DTSIC032
|
||||
00480 15 FILLER PIC X(02) VALUE 'EA'. DTSIC032
|
||||
00481 15 FILLER PIC X(10) VALUE 'EA PAYMENT'. DTSIC032
|
||||
00482 15 FILLER PIC X(40) DTSIC032
|
||||
00483 VALUE 'EMPLOYER AMENDMENT REPORT PAYMENT'. DTSIC032
|
||||
00484 15 FILLER PIC X(02) VALUE 'AU'. DTSIC032
|
||||
00485 15 FILLER PIC X(10) VALUE 'AU PAYMENT'. DTSIC032
|
||||
00486 15 FILLER PIC X(40) DTSIC032
|
||||
00487 VALUE 'AUDIT ADJUSTMENT REPORT PAYMENT'. DTSIC032
|
||||
00488 15 FILLER PIC X(02) VALUE 'FS'. DTSIC032
|
||||
00489 15 FILLER PIC X(10) VALUE 'FS PAYMENT'. DTSIC032
|
||||
00490 15 FILLER PIC X(40) DTSIC032
|
||||
00491 VALUE 'FIELD SUPPORT REPORT PAYMENT'. DTSIC032
|
||||
00492 15 FILLER PIC X(02) VALUE 'AC'. DTSIC032
|
||||
00493 15 FILLER PIC X(10) VALUE 'AC PAYMENT'. DTSIC032
|
||||
00494 15 FILLER PIC X(40) DTSIC032
|
||||
00495 VALUE 'ADMIN CORR REPORT PAYMENT'. DTSIC032
|
||||
00496 15 FILLER PIC X(02) VALUE 'ES'. DTSIC032
|
||||
00497 15 FILLER PIC X(10) VALUE 'ES PAYMENT'. DTSIC032
|
||||
00498 15 FILLER PIC X(40) DTSIC032
|
||||
00499 VALUE 'ESTIMATED REPORT PAYMENT'. DTSIC032
|
||||
00500 15 FILLER PIC X(02) VALUE 'WD'. DTSIC032
|
||||
00501 15 FILLER PIC X(10) VALUE 'WD PAYMENT'. DTSIC032
|
||||
00502 15 FILLER PIC X(40) DTSIC032
|
||||
00503 VALUE 'WITHDRAWAL REPORT PAYMENT'. DTSIC032
|
||||
00504 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00505 15 FILLER PIC X(10) VALUE 'NON-DOES P'. DTSIC032
|
||||
00506 15 FILLER PIC X(40) DTSIC032
|
||||
00507 VALUE 'NON-DOES CHECK '. DTSIC032
|
||||
00508 15 FILLER PIC X(02) VALUE 'PR'. DTSIC032
|
||||
00509 15 FILLER PIC X(10) VALUE 'PAY REV'. DTSIC032
|
||||
00510 15 FILLER PIC X(40) DTSIC032
|
||||
00511 VALUE 'PAYMENT REVERSAL'. DTSIC032
|
||||
00512 15 FILLER PIC X(02) VALUE 'NG'. DTSIC032
|
||||
00513 15 FILLER PIC X(10) VALUE 'NG CHECK'. DTSIC032
|
||||
00514 15 FILLER PIC X(40) DTSIC032
|
||||
00515 VALUE 'NO GOOD CHECK'. DTSIC032
|
||||
00516 15 FILLER PIC X(02) VALUE 'RF'. DTSIC032
|
||||
00517 15 FILLER PIC X(10) VALUE 'REFUND'. DTSIC032
|
||||
00518 15 FILLER PIC X(40) DTSIC032
|
||||
00519 VALUE 'REFUND'. DTSIC032
|
||||
00520 15 FILLER PIC X(02) VALUE 'RR'. DTSIC032
|
||||
00521 15 FILLER PIC X(10) VALUE 'REF REV'. DTSIC032
|
||||
00522 15 FILLER PIC X(40) DTSIC032
|
||||
00523 VALUE 'REFUND REVERSAL'. DTSIC032
|
||||
00524 15 FILLER PIC X(02) VALUE 'NR'. DTSIC032
|
||||
00525 15 FILLER PIC X(10) VALUE 'NONDOES RV'. DTSIC032
|
||||
00526 15 FILLER PIC X(40) DTSIC032
|
||||
00527 VALUE 'NON-DOES CHECK REVERSAL'. DTSIC032
|
||||
00528 DTSIC032
|
||||
00529 10 FILLER REDEFINES C032-24-AREA. DTSIC032
|
||||
00530 15 C032-24-ENTRY OCCURS 14 TIMES DTSIC032
|
||||
00531 INDEXED BY C032-24-IDX. DTSIC032
|
||||
00532 20 C032-24-CD PIC X(02). DTSIC032
|
||||
00533 20 C032-24-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00534 20 C032-24-LONG-DSCR PIC X(40). DTSIC032
|
||||
00535 SKIP3 DTSIC032
|
||||
00536 ***** DTSIC032
|
||||
00537 * OPTIONS 25 = AADJ-ADJ-TYPE, DTSIC032
|
||||
00538 * 26 = MADJ-ADJ-TYPE DTSIC032
|
||||
00539 ***** DTSIC032
|
||||
00540 10 C032-25-26-AREA. DTSIC032
|
||||
00541 15 FILLER PIC X(02) VALUE 'CH'. DTSIC032
|
||||
00542 15 FILLER PIC X(10) VALUE 'CHARGED'. DTSIC032
|
||||
00543 15 FILLER PIC X(40) DTSIC032
|
||||
00544 VALUE 'CHARGED'. DTSIC032
|
||||
00545 15 FILLER PIC X(02) VALUE 'WV'. DTSIC032
|
||||
00546 15 FILLER PIC X(10) VALUE 'WAIVER'. DTSIC032
|
||||
00547 15 FILLER PIC X(40) DTSIC032
|
||||
00548 VALUE 'WAIVER'. DTSIC032
|
||||
00549 15 FILLER PIC X(02) VALUE 'TL'. DTSIC032
|
||||
00550 15 FILLER PIC X(10) VALUE 'TOLERANCE'. DTSIC032
|
||||
00551 15 FILLER PIC X(40) DTSIC032
|
||||
00552 VALUE 'TOLERANCE'. DTSIC032
|
||||
00553 15 FILLER PIC X(02) VALUE 'CA'. DTSIC032
|
||||
00554 15 FILLER PIC X(10) VALUE 'AUTO CHG'. DTSIC032
|
||||
00555 15 FILLER PIC X(40) DTSIC032
|
||||
00556 VALUE 'AUTOMATIC (PENALTY OR INTEREST) CHARGING'. DTSIC032
|
||||
00557 15 FILLER PIC X(02) VALUE 'CM'. DTSIC032
|
||||
00558 15 FILLER PIC X(10) VALUE 'MANUAL CHG'. DTSIC032
|
||||
00559 15 FILLER PIC X(40) DTSIC032
|
||||
00560 VALUE 'MANUAL (PENALTY OR INTEREST) CHARGING'. DTSIC032
|
||||
00561 15 FILLER PIC X(02) VALUE 'WG'. DTSIC032
|
||||
00562 15 FILLER PIC X(10) VALUE 'WAGE RPT'. DTSIC032
|
||||
00563 15 FILLER PIC X(40) DTSIC032
|
||||
00564 VALUE 'WAGE REPORT RECEIVED INDICATOR'. DTSIC032
|
||||
00565 15 FILLER PIC X(02) VALUE 'QD'. DTSIC032
|
||||
00566 15 FILLER PIC X(10) VALUE 'DUE DATES'. DTSIC032
|
||||
00567 15 FILLER PIC X(40) DTSIC032
|
||||
00568 VALUE 'REPORT DUE DATE AND TAX DUE DATE'. DTSIC032
|
||||
00569 15 FILLER PIC X(02) VALUE 'WD'. DTSIC032
|
||||
00570 15 FILLER PIC X(10) VALUE 'WAIVER DT'. DTSIC032
|
||||
00571 15 FILLER PIC X(40) DTSIC032
|
||||
00572 VALUE 'WAIVER DATE RANGE (PENALTY OR INTEREST)'. DTSIC032
|
||||
00573 15 FILLER PIC X(02) VALUE 'ID'. DTSIC032
|
||||
00574 15 FILLER PIC X(10) VALUE 'INT DATE'. DTSIC032
|
||||
00575 15 FILLER PIC X(40) DTSIC032
|
||||
00576 VALUE 'INTEREST DATE RANGE'. DTSIC032
|
||||
00577 15 FILLER PIC X(02) VALUE 'WO'. DTSIC032
|
||||
00578 15 FILLER PIC X(10) VALUE 'WRITE OFF'. DTSIC032
|
||||
00579 15 FILLER PIC X(40) DTSIC032
|
||||
00580 VALUE 'WRITE OFF RECEIVABLES'. DTSIC032
|
||||
00581 15 FILLER PIC X(02) VALUE 'WR'. DTSIC032
|
||||
00582 15 FILLER PIC X(10) VALUE 'WO REMOVE'. DTSIC032
|
||||
00583 15 FILLER PIC X(40) DTSIC032
|
||||
00584 VALUE 'RESTORE WRITTEN OFF RECEIVABLES'. DTSIC032
|
||||
00585 DTSIC032
|
||||
00586 10 FILLER REDEFINES C032-25-26-AREA. DTSIC032
|
||||
00587 15 C032-25-26-ENTRY OCCURS 11 TIMES DTSIC032
|
||||
00588 INDEXED BY C032-25-26-IDX. DTSIC032
|
||||
00589 20 C032-25-26-CD PIC X(02). DTSIC032
|
||||
00590 20 C032-25-26-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00591 20 C032-25-26-LONG-DSCR PIC X(40). DTSIC032
|
||||
00592 SKIP3 DTSIC032
|
||||
00593 ***** DTSIC032
|
||||
00594 * OPTION 26 --- SEE OPTION 25 DTSIC032
|
||||
00595 ***** DTSIC032
|
||||
00596 SKIP3 DTSIC032
|
||||
00597 ***** DTSIC032
|
||||
00598 * OPTIONS 27 = ARPT-RPT-TYPE-RIGHT DTSIC032
|
||||
00599 * 28 = MRPT-RPT-TYPE-RIGHT DTSIC032
|
||||
00600 ***** DTSIC032
|
||||
00601 10 C032-27-28-AREA. DTSIC032
|
||||
00602 15 FILLER PIC X(02) VALUE 'OR'. DTSIC032
|
||||
00603 15 FILLER PIC X(10) VALUE ' ORIGINAL'. DTSIC032
|
||||
00604 15 FILLER PIC X(40) DTSIC032
|
||||
00605 VALUE ' ORIGINAL EMPLOYER REPORT'. DTSIC032
|
||||
00606 15 FILLER PIC X(02) VALUE 'EA'. DTSIC032
|
||||
00607 15 FILLER PIC X(10) VALUE ' EMP AMEND'. DTSIC032
|
||||
00608 15 FILLER PIC X(40) DTSIC032
|
||||
00609 VALUE ' EMPLOYER AMENDMENT'. DTSIC032
|
||||
00610 15 FILLER PIC X(02) VALUE 'AU'. DTSIC032
|
||||
00611 15 FILLER PIC X(10) VALUE ' AUDIT'. DTSIC032
|
||||
00612 15 FILLER PIC X(40) DTSIC032
|
||||
00613 VALUE ' AUDIT ADJUSTMENT'. DTSIC032
|
||||
00614 15 FILLER PIC X(02) VALUE 'FS'. DTSIC032
|
||||
00615 15 FILLER PIC X(10) VALUE ' FIELD SUP'. DTSIC032
|
||||
00616 15 FILLER PIC X(40) DTSIC032
|
||||
00617 VALUE ' FIELD SUPPORT (NON-AUDIT) ADJUSTMENT'. DTSIC032
|
||||
00618 15 FILLER PIC X(02) VALUE 'AC'. DTSIC032
|
||||
00619 15 FILLER PIC X(10) VALUE ' ADMN CORR'. DTSIC032
|
||||
00620 15 FILLER PIC X(40) DTSIC032
|
||||
00621 VALUE ' ADMINISTRATIVE CORRECTION'. DTSIC032
|
||||
00622 15 FILLER PIC X(02) VALUE 'ES'. DTSIC032
|
||||
00623 15 FILLER PIC X(10) VALUE ' ESTIMATED'. DTSIC032
|
||||
00624 15 FILLER PIC X(40) DTSIC032
|
||||
00625 VALUE ' REPORT ESTIMATED BY THE DEPARTMENT'. DTSIC032
|
||||
00626 15 FILLER PIC X(02) VALUE 'WD'. DTSIC032
|
||||
00627 15 FILLER PIC X(10) VALUE 'WITHDRAWAL'. DTSIC032
|
||||
00628 15 FILLER PIC X(40) DTSIC032
|
||||
00629 VALUE 'WITHDRAWAL - WITHDRAWS ALL PREVIOUS RPTS'. DTSIC032
|
||||
00630 15 FILLER PIC X(02) VALUE 'CW'. DTSIC032
|
||||
00631 15 FILLER PIC X(10) VALUE 'CLAIMNT WG'. DTSIC032
|
||||
00632 15 FILLER PIC X(40) DTSIC032
|
||||
00633 VALUE 'CLAIMANT WAGE REPORT - BLOCKED CLAIM '. DTSIC032
|
||||
00634 15 FILLER PIC X(02) VALUE 'CZ'. DTSIC032
|
||||
00635 15 FILLER PIC X(10) VALUE ' CW REV'. DTSIC032
|
||||
00636 15 FILLER PIC X(40) DTSIC032
|
||||
00637 VALUE 'CLAIMANT WAGE REPORT - REVERSAL '. DTSIC032
|
||||
00638 DTSIC032
|
||||
00639 10 FILLER REDEFINES C032-27-28-AREA. DTSIC032
|
||||
00640 15 C032-27-28-ENTRY OCCURS 9 TIMES DTSIC032
|
||||
00641 INDEXED BY C032-27-28-IDX. DTSIC032
|
||||
00642 20 C032-27-28-CD PIC X(02). DTSIC032
|
||||
00643 20 C032-27-28-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00644 20 C032-27-28-LONG-DSCR PIC X(40). DTSIC032
|
||||
00645 SKIP3 DTSIC032
|
||||
00646 ***** DTSIC032
|
||||
00647 * OPTION 28 --- SEE OPTION 27 DTSIC032
|
||||
00648 ***** DTSIC032
|
||||
00649 SKIP3 DTSIC032
|
||||
00650 ***** DTSIC032
|
||||
00651 * OPTIONS 31 = APAY-APPLIC-IND, DTSIC032
|
||||
00652 * 32 = MPAY-APPLIC-IND, DTSIC032
|
||||
00653 * 36 = MJRN-ACCT-ROW DTSIC032
|
||||
00654 ***** DTSIC032
|
||||
00655 10 C032-31--36-AREA. DTSIC032
|
||||
00656 15 FILLER PIC X(02) VALUE 'UI'. DTSIC032
|
||||
00657 15 FILLER PIC X(10) VALUE 'UI TAX'. DTSIC032
|
||||
00658 15 FILLER PIC X(40) DTSIC032
|
||||
00659 VALUE 'UI TAX'. DTSIC032
|
||||
00660 15 FILLER PIC X(02) VALUE 'SU'. DTSIC032
|
||||
00661 15 FILLER PIC X(10) VALUE 'SUR TAX'. DTSIC032
|
||||
00662 15 FILLER PIC X(40) DTSIC032
|
||||
00663 VALUE 'SUR TAX'. DTSIC032
|
||||
00664 15 FILLER PIC X(02) VALUE 'I '. DTSIC032
|
||||
00665 15 FILLER PIC X(10) VALUE 'INTEREST'. DTSIC032
|
||||
00666 15 FILLER PIC X(40) DTSIC032
|
||||
00667 VALUE 'INTEREST'. DTSIC032
|
||||
00668 15 FILLER PIC X(02) VALUE 'LP'. DTSIC032
|
||||
00669 15 FILLER PIC X(10) VALUE 'LT PAY PEN'. DTSIC032
|
||||
00670 15 FILLER PIC X(40) DTSIC032
|
||||
00671 VALUE 'LATE PAYMENT PENALTY'. DTSIC032
|
||||
00672 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00673 15 FILLER PIC X(10) VALUE 'NSF PEN'. DTSIC032
|
||||
00674 15 FILLER PIC X(40) DTSIC032
|
||||
00675 VALUE 'NSF CHECK PENALTY'. DTSIC032
|
||||
00676 15 FILLER PIC X(02) VALUE 'MP'. DTSIC032
|
||||
00677 15 FILLER PIC X(10) VALUE 'MISC PEN'. DTSIC032
|
||||
00678 15 FILLER PIC X(40) DTSIC032
|
||||
00679 VALUE 'MISCELLANEOUS PENALTY'. DTSIC032
|
||||
00680 15 FILLER PIC X(02) VALUE 'CR'. DTSIC032
|
||||
00681 15 FILLER PIC X(10) VALUE 'CREDIT'. DTSIC032
|
||||
00682 15 FILLER PIC X(40) DTSIC032
|
||||
00683 VALUE 'CREDIT'. DTSIC032
|
||||
00684 DTSIC032
|
||||
00685 10 FILLER REDEFINES C032-31--36-AREA. DTSIC032
|
||||
00686 15 C032-31--36-ENTRY OCCURS 7 TIMES DTSIC032
|
||||
00687 INDEXED BY C032-31--36-IDX. DTSIC032
|
||||
00688 20 C032-31--36-CD PIC X(02). DTSIC032
|
||||
00689 20 C032-31--36-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00690 20 C032-31--36-LONG-DSCR PIC X(40). DTSIC032
|
||||
00691 SKIP3 DTSIC032
|
||||
00692 ***** DTSIC032
|
||||
00693 * OPTION 32 --- SEE OPTION 31 DTSIC032
|
||||
00694 ***** DTSIC032
|
||||
00695 SKIP3 DTSIC032
|
||||
00696 ***** DTSIC032
|
||||
00697 * OPTIONS 33 = AADJ-APPLIC-IND, DTSIC032
|
||||
00698 * 34 = MADJ-APPLIC-IND DTSIC032
|
||||
00699 ***** DTSIC032
|
||||
00700 10 C032-33--34-AREA. DTSIC032
|
||||
00701 15 FILLER PIC X(02) VALUE 'UI'. DTSIC032
|
||||
00702 15 FILLER PIC X(10) VALUE 'UI TAX'. DTSIC032
|
||||
00703 15 FILLER PIC X(40) DTSIC032
|
||||
00704 VALUE 'UI TAX'. DTSIC032
|
||||
00705 15 FILLER PIC X(02) VALUE 'SU'. DTSIC032
|
||||
00706 15 FILLER PIC X(10) VALUE 'SUR TAX'. DTSIC032
|
||||
00707 15 FILLER PIC X(40) DTSIC032
|
||||
00708 VALUE 'SUR TAX'. DTSIC032
|
||||
00709 15 FILLER PIC X(02) VALUE 'I '. DTSIC032
|
||||
00710 15 FILLER PIC X(10) VALUE 'INTEREST'. DTSIC032
|
||||
00711 15 FILLER PIC X(40) DTSIC032
|
||||
00712 VALUE 'INTEREST'. DTSIC032
|
||||
00713 15 FILLER PIC X(02) VALUE 'LP'. DTSIC032
|
||||
00714 15 FILLER PIC X(10) VALUE 'LT PAY PEN'. DTSIC032
|
||||
00715 15 FILLER PIC X(40) DTSIC032
|
||||
00716 VALUE 'LATE PAYMENT PENALTY'. DTSIC032
|
||||
00717 15 FILLER PIC X(02) VALUE 'NP'. DTSIC032
|
||||
00718 15 FILLER PIC X(10) VALUE 'NSF PEN'. DTSIC032
|
||||
00719 15 FILLER PIC X(40) DTSIC032
|
||||
00720 VALUE 'NSF CHECK PENALTY'. DTSIC032
|
||||
00721 15 FILLER PIC X(02) VALUE 'MP'. DTSIC032
|
||||
00722 15 FILLER PIC X(10) VALUE 'MISC PEN'. DTSIC032
|
||||
00723 15 FILLER PIC X(40) DTSIC032
|
||||
00724 VALUE 'MISCELLANEOUS PENALTY'. DTSIC032
|
||||
00725 15 FILLER PIC X(02) VALUE 'CR'. DTSIC032
|
||||
00726 15 FILLER PIC X(10) VALUE 'CREDIT'. DTSIC032
|
||||
00727 15 FILLER PIC X(40) DTSIC032
|
||||
00728 VALUE 'CREDIT'. DTSIC032
|
||||
00729 15 FILLER PIC X(02) VALUE 'PI'. DTSIC032
|
||||
00730 15 FILLER PIC X(10) VALUE 'PEN & INT'. DTSIC032
|
||||
00731 15 FILLER PIC X(40) DTSIC032
|
||||
00732 VALUE 'LATE PAYMENT PENALTY AND INTEREST'. DTSIC032
|
||||
00733 DTSIC032
|
||||
00734 10 FILLER REDEFINES C032-33--34-AREA. DTSIC032
|
||||
00735 15 C032-33--34-ENTRY OCCURS 8 TIMES DTSIC032
|
||||
00736 INDEXED BY C032-33--34-IDX. DTSIC032
|
||||
00737 20 C032-33--34-CD PIC X(02). DTSIC032
|
||||
00738 20 C032-33--34-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00739 20 C032-33--34-LONG-DSCR PIC X(40). DTSIC032
|
||||
00740 SKIP3 DTSIC032
|
||||
00741 ***** DTSIC032
|
||||
00742 * OPTION 34 --- SEE OPTION 33 DTSIC032
|
||||
00743 ***** DTSIC032
|
||||
00744 SKIP3 DTSIC032
|
||||
00745 ***** DTSIC032
|
||||
00746 * OPTION 36 --- SEE OPTION 31 DTSIC032
|
||||
00747 ***** DTSIC032
|
||||
00748 SKIP3 DTSIC032
|
||||
00749 ***** DTSIC032
|
||||
00750 * OPTION 37 = MJRN-ACCT-COL DTSIC032
|
||||
00751 ***** DTSIC032
|
||||
00752 10 C032-37-AREA. DTSIC032
|
||||
00753 15 FILLER PIC X(02) VALUE 'CH'. DTSIC032
|
||||
00754 15 FILLER PIC X(10) VALUE 'CHARGED'. DTSIC032
|
||||
00755 15 FILLER PIC X(40) DTSIC032
|
||||
00756 VALUE 'CHARGED'. DTSIC032
|
||||
00757 15 FILLER PIC X(02) VALUE 'PD'. DTSIC032
|
||||
00758 15 FILLER PIC X(10) VALUE 'PAID'. DTSIC032
|
||||
00759 15 FILLER PIC X(40) DTSIC032
|
||||
00760 VALUE 'PAID'. DTSIC032
|
||||
00761 15 FILLER PIC X(02) VALUE 'WV'. DTSIC032
|
||||
00762 15 FILLER PIC X(10) VALUE 'WAIVED'. DTSIC032
|
||||
00763 15 FILLER PIC X(40) DTSIC032
|
||||
00764 VALUE 'WAIVED'. DTSIC032
|
||||
00765 15 FILLER PIC X(02) VALUE 'WO'. DTSIC032
|
||||
00766 15 FILLER PIC X(10) VALUE 'WRITE OFF'. DTSIC032
|
||||
00767 15 FILLER PIC X(40) DTSIC032
|
||||
00768 VALUE 'WRITTEN OFF'. DTSIC032
|
||||
00769 15 FILLER PIC X(02) VALUE 'TL'. DTSIC032
|
||||
00770 15 FILLER PIC X(10) VALUE 'TOLERATED'. DTSIC032
|
||||
00771 15 FILLER PIC X(40) DTSIC032
|
||||
00772 VALUE 'TOLERATED'. DTSIC032
|
||||
00773 DTSIC032
|
||||
00774 10 FILLER REDEFINES C032-37-AREA. DTSIC032
|
||||
00775 15 C032-37-ENTRY OCCURS 5 TIMES DTSIC032
|
||||
00776 INDEXED BY C032-37-IDX. DTSIC032
|
||||
00777 20 C032-37-CD PIC X(02). DTSIC032
|
||||
00778 20 C032-37-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00779 20 C032-37-LONG-DSCR PIC X(40). DTSIC032
|
||||
00780 SKIP3 DTSIC032
|
||||
00781 ***** DTSIC032
|
||||
00782 * OPTION 41 = APRT-RESPONSIBLE-ACTIVITY DTSIC032
|
||||
00783 ***** DTSIC032
|
||||
00784 10 C032-41-AREA. DTSIC032
|
||||
00785 15 FILLER PIC X(03) VALUE 'VOL'. DTSIC032
|
||||
00786 15 FILLER PIC X(10) VALUE 'VOLUNTARY'. DTSIC032
|
||||
00787 15 FILLER PIC X(40) DTSIC032
|
||||
00788 VALUE 'VOLUNTARY COMPLIANCE'. DTSIC032
|
||||
00789 15 FILLER PIC X(03) VALUE 'BNK'. DTSIC032
|
||||
00790 15 FILLER PIC X(10) VALUE 'BNKRPT DTS'. DTSIC032
|
||||
00791 15 FILLER PIC X(40) DTSIC032
|
||||
00792 VALUE 'BANKRUPTCY DISTRIBUTION'. DTSIC032
|
||||
00793 15 FILLER PIC X(03) VALUE 'DPC'. DTSIC032
|
||||
00794 15 FILLER PIC X(10) VALUE 'DEF PAY'. DTSIC032
|
||||
00795 15 FILLER PIC X(40) DTSIC032
|
||||
00796 VALUE 'DEFERRED PAYMENT CONTRACT'. DTSIC032
|
||||
00797 15 FILLER PIC X(03) VALUE 'DQ1'. DTSIC032
|
||||
00798 15 FILLER PIC X(10) VALUE 'DLNQ LTR 1'. DTSIC032
|
||||
00799 15 FILLER PIC X(40) DTSIC032
|
||||
00800 VALUE 'DELINQUENCY LETTER ONE'. DTSIC032
|
||||
00801 15 FILLER PIC X(03) VALUE 'DQ2'. DTSIC032
|
||||
00802 15 FILLER PIC X(10) VALUE 'DLNQ LTR 2'. DTSIC032
|
||||
00803 15 FILLER PIC X(40) DTSIC032
|
||||
00804 VALUE 'DELINQUENCY LETTER TWO'. DTSIC032
|
||||
00805 15 FILLER PIC X(03) VALUE 'FIN'. DTSIC032
|
||||
00806 15 FILLER PIC X(10) VALUE 'FINAL NOTE'. DTSIC032
|
||||
00807 15 FILLER PIC X(40) DTSIC032
|
||||
00808 VALUE 'FINAL NOTICE'. DTSIC032
|
||||
00809 15 FILLER PIC X(03) VALUE 'LEV'. DTSIC032
|
||||
00810 15 FILLER PIC X(10) VALUE 'LEVY'. DTSIC032
|
||||
00811 15 FILLER PIC X(40) DTSIC032
|
||||
00812 VALUE 'LEVY'. DTSIC032
|
||||
00813 15 FILLER PIC X(03) VALUE 'LIN'. DTSIC032
|
||||
00814 15 FILLER PIC X(10) VALUE 'LIEN'. DTSIC032
|
||||
00815 15 FILLER PIC X(40) DTSIC032
|
||||
00816 VALUE 'LIEN'. DTSIC032
|
||||
00817 15 FILLER PIC X(03) VALUE 'QB '. DTSIC032
|
||||
00818 15 FILLER PIC X(10) VALUE 'QTRLY BILL'. DTSIC032
|
||||
00819 15 FILLER PIC X(40) DTSIC032
|
||||
00820 VALUE 'QUARTERLY BILL (UC-223)'. DTSIC032
|
||||
00821 15 FILLER PIC X(03) VALUE 'SUB'. DTSIC032
|
||||
00822 15 FILLER PIC X(10) VALUE 'SUBPOENA'. DTSIC032
|
||||
00823 15 FILLER PIC X(40) DTSIC032
|
||||
00824 VALUE 'SUBPOENA'. DTSIC032
|
||||
00825 15 FILLER PIC X(03) VALUE 'TEL'. DTSIC032
|
||||
00826 15 FILLER PIC X(10) VALUE 'PHONE PWR'. DTSIC032
|
||||
00827 15 FILLER PIC X(40) DTSIC032
|
||||
00828 VALUE 'PHONE POWER'. DTSIC032
|
||||
00829 15 FILLER PIC X(03) VALUE 'VIS'. DTSIC032
|
||||
00830 15 FILLER PIC X(10) VALUE 'FLD VISIT'. DTSIC032
|
||||
00831 15 FILLER PIC X(40) DTSIC032
|
||||
00832 VALUE 'FIELD REPRESENTATIVE VISIT'. DTSIC032
|
||||
00833 15 FILLER PIC X(03) VALUE 'TRN'. DTSIC032
|
||||
00834 15 FILLER PIC X(10) VALUE 'AUTO TNSF'. DTSIC032
|
||||
00835 15 FILLER PIC X(40) DTSIC032
|
||||
00836 VALUE 'AUTOMATIC TRANSFER BY SYSTEM'. DTSIC032
|
||||
00837 15 FILLER PIC X(03) VALUE 'SYS'. DTSIC032
|
||||
00838 15 FILLER PIC X(10) VALUE 'SYS GENED'. DTSIC032
|
||||
00839 15 FILLER PIC X(40) DTSIC032
|
||||
00840 VALUE 'AUTOMATICALLY GENERATED BY SYSTEM'. DTSIC032
|
||||
00841 15 FILLER PIC X(03) VALUE 'SDP'. DTSIC032
|
||||
00842 15 FILLER PIC X(10) VALUE 'SUTA DUMP'. DTSIC032
|
||||
00843 15 FILLER PIC X(40) DTSIC032
|
||||
00844 VALUE 'SUTA DUMPING '. DTSIC032
|
||||
00845 DTSIC032
|
||||
00846 10 FILLER REDEFINES C032-41-AREA. DTSIC032
|
||||
00847 15 C032-41-ENTRY OCCURS 15 TIMES DTSIC032
|
||||
00848 INDEXED BY C032-41-IDX. DTSIC032
|
||||
00849 20 C032-41-CD PIC X(03). DTSIC032
|
||||
00850 20 C032-41-SHORT-DSCR PIC X(10). DTSIC032
|
||||
00851 20 C032-41-LONG-DSCR PIC X(40). DTSIC032
|
||||
00852 SKIP3 DTSIC032
|
||||
00853 ***** DTSIC032
|
||||
00854 * OPTION 42 --- SEE OPTION 41 DTSIC032
|
||||
00855 ***** DTSIC032
|
||||
00856 SKIP3 DTSIC032
|
||||
00857 ***** DTSIC032
|
||||
00858 * OPTION 43 --- SEE OPTION 41 DTSIC032
|
||||
00859 ***** DTSIC032
|
||||
00860 SKIP3 DTSIC032
|
||||
00861 ***** DTSIC032
|
||||
00862 * OPTION 44 --- SEE OPTION 41 DTSIC032
|
||||
00863 ***** DTSIC032
|
||||
00864 SKIP3 DTSIC032
|
||||
00865 ***** DTSIC032
|
||||
00866 * OPTION 45 --- SEE OPTION 41 DTSIC032
|
||||
00867 ***** DTSIC032
|
||||
00868 SKIP3 DTSIC032
|
||||
00869 ***** DTSIC032
|
||||
00870 * OPTION 46 --- SEE OPTION 41 DTSIC032
|
||||
00871 ***** DTSIC032
|
||||
158
Copybook/DTSIC033.cpy
Normal file
158
Copybook/DTSIC033.cpy
Normal file
@ -0,0 +1,158 @@
|
||||
00001 ***** 04/05/13
|
||||
00002 * DTSIC033
|
||||
00003 * DTSIC033 REPORT TYPE CODES VALUES AND DESCRIPTIONS. LV004
|
||||
00004 * DTSIC033
|
||||
00005 * DTSIC033
|
||||
00006 * 11/09/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIC033
|
||||
00007 * DTSIC033
|
||||
00008 * 05/17/1999 MODIFIED FOR PICKUP. DTSIC033
|
||||
00009 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSIC033
|
||||
00010 * DTSIC033
|
||||
00011 * 11/19/2012 MODIFIED FOR CLAIMANT WAGE REPORTS. CL**3
|
||||
00012 * REFERENCE: PROGRAMMER: GD CL**3
|
||||
00013 * CL**3
|
||||
00014 * 04/01/2013 MODIFIED FOR ANNUAL FILERS NOT LIABLE CL**3
|
||||
00015 * FOR A PARTICULAR QUARTER WITHIN THE CL**3
|
||||
00016 * YEAR. CL**3
|
||||
00017 * REFERENCE: TKT 1474 PROGRAMMER: GD CL**3
|
||||
00018 * CL**3
|
||||
00019 ***** DTSIC033
|
||||
00020 DTSIC033
|
||||
00021 ***** DTSIC033
|
||||
00022 * OPTION 01 = MQTR-CURR-RPT-TYPE/PURSUED DTSIC033
|
||||
00023 ***** DTSIC033
|
||||
00024 10 C033-01-AREA. DTSIC033
|
||||
00025 15 FILLER PIC X(02) VALUE 'NN'. DTSIC033
|
||||
00026 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC033
|
||||
00027 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC033
|
||||
00028 15 FILLER PIC X(40) DTSIC033
|
||||
00029 VALUE 'NOT LIABLE PURSUIT NO'. DTSIC033
|
||||
00030 15 FILLER PIC X(02) VALUE 'NY'. DTSIC033
|
||||
00031 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
|
||||
00032 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
|
||||
00033 15 FILLER PIC X(40) DTSIC033
|
||||
00034 VALUE 'NOT LIABLE PURSUIT YES'. DTSIC033
|
||||
00035 15 FILLER PIC X(02) VALUE 'LN'. DTSIC033
|
||||
00036 15 FILLER PIC X(10) VALUE 'LIABLE '. DTSIC033
|
||||
00037 15 FILLER PIC X(10) VALUE ' LIABLE'. DTSIC033
|
||||
00038 15 FILLER PIC X(40) DTSIC033
|
||||
00039 VALUE 'LIABLE PURSUIT NO '. DTSIC033
|
||||
00040 15 FILLER PIC X(02) VALUE 'LY'. DTSIC033
|
||||
00041 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
|
||||
00042 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
|
||||
00043 15 FILLER PIC X(40) DTSIC033
|
||||
00044 VALUE 'LIABLE PURSUIT YES'. DTSIC033
|
||||
00045 15 FILLER PIC X(02) VALUE 'DN'. DTSIC033
|
||||
00046 15 FILLER PIC X(10) VALUE 'NOT PURSUE'. DTSIC033
|
||||
00047 15 FILLER PIC X(10) VALUE 'NOT PURSUE'. DTSIC033
|
||||
00048 15 FILLER PIC X(40) DTSIC033
|
||||
00049 VALUE 'DELINQUENT NOT PURSUED'. DTSIC033
|
||||
00050 15 FILLER PIC X(02) VALUE 'DY'. DTSIC033
|
||||
00051 15 FILLER PIC X(10) VALUE 'PURSUED '. DTSIC033
|
||||
00052 15 FILLER PIC X(10) VALUE ' PURSUED'. DTSIC033
|
||||
00053 15 FILLER PIC X(40) DTSIC033
|
||||
00054 VALUE 'DELINQUENT PURSUED YES'. DTSIC033
|
||||
00055 15 FILLER PIC X(02) VALUE 'EN'. DTSIC033
|
||||
00056 15 FILLER PIC X(10) VALUE 'EST/NOT PR'. DTSIC033
|
||||
00057 15 FILLER PIC X(10) VALUE 'EST/NOT PR'. DTSIC033
|
||||
00058 15 FILLER PIC X(40) DTSIC033
|
||||
00059 VALUE 'ESTIMATED NOT PURSUED'. DTSIC033
|
||||
00060 15 FILLER PIC X(02) VALUE 'EY'. DTSIC033
|
||||
00061 15 FILLER PIC X(10) VALUE 'EST/PURSUE'. DTSIC033
|
||||
00062 15 FILLER PIC X(10) VALUE 'EST/PURSUE'. DTSIC033
|
||||
00063 15 FILLER PIC X(40) DTSIC033
|
||||
00064 VALUE 'ESTIMATED AND PURSUED'. DTSIC033
|
||||
00065 15 FILLER PIC X(02) VALUE 'ON'. DTSIC033
|
||||
00066 15 FILLER PIC X(10) VALUE 'ORIGINAL'. DTSIC033
|
||||
00067 15 FILLER PIC X(10) VALUE ' ORIGINAL'. DTSIC033
|
||||
00068 15 FILLER PIC X(40) DTSIC033
|
||||
00069 VALUE 'ORIGINAL AND NOT PURSUED'. DTSIC033
|
||||
00070 15 FILLER PIC X(02) VALUE 'OY'. DTSIC033
|
||||
00071 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
|
||||
00072 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
|
||||
00073 15 FILLER PIC X(40) DTSIC033
|
||||
00074 VALUE 'ORIGINAL AND PURSUED'. DTSIC033
|
||||
00075 15 FILLER PIC X(02) VALUE 'MN'. DTSIC033
|
||||
00076 15 FILLER PIC X(10) VALUE 'EMP AMEND'. DTSIC033
|
||||
00077 15 FILLER PIC X(10) VALUE ' EMP AMEND'. DTSIC033
|
||||
00078 15 FILLER PIC X(40) DTSIC033
|
||||
00079 VALUE 'AMENDED AND NOT PURSUED'. CL**2
|
||||
00080 15 FILLER PIC X(02) VALUE 'MY'. DTSIC033
|
||||
00081 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
|
||||
00082 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
|
||||
00083 15 FILLER PIC X(40) DTSIC033
|
||||
00084 VALUE 'AMNEDED AND PURSUED'. DTSIC033
|
||||
00085 15 FILLER PIC X(02) VALUE 'AN'. DTSIC033
|
||||
00086 15 FILLER PIC X(10) VALUE 'AUDIT'. DTSIC033
|
||||
00087 15 FILLER PIC X(10) VALUE ' AUDIT'. DTSIC033
|
||||
00088 15 FILLER PIC X(40) DTSIC033
|
||||
00089 VALUE 'AUDIT AND NOT PURSUED '. DTSIC033
|
||||
00090 15 FILLER PIC X(02) VALUE 'AY'. DTSIC033
|
||||
00091 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
|
||||
00092 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
|
||||
00093 15 FILLER PIC X(40) DTSIC033
|
||||
00094 VALUE 'AUDIT AND PURSUED '. DTSIC033
|
||||
00095 15 FILLER PIC X(02) VALUE 'FN'. DTSIC033
|
||||
00096 15 FILLER PIC X(10) VALUE 'FIELD'. DTSIC033
|
||||
00097 15 FILLER PIC X(10) VALUE ' FIELD'. DTSIC033
|
||||
00098 15 FILLER PIC X(40) DTSIC033
|
||||
00099 VALUE 'FIELD AND NOT PURSUED'. DTSIC033
|
||||
00100 15 FILLER PIC X(02) VALUE 'FY'. DTSIC033
|
||||
00101 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
|
||||
00102 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
|
||||
00103 15 FILLER PIC X(40) DTSIC033
|
||||
00104 VALUE 'FIELD AND PURSUED'. DTSIC033
|
||||
00105 15 FILLER PIC X(02) VALUE 'CN'. DTSIC033
|
||||
00106 15 FILLER PIC X(10) VALUE 'ADMIN CORR'. DTSIC033
|
||||
00107 15 FILLER PIC X(10) VALUE 'ADMIN CORR'. DTSIC033
|
||||
00108 15 FILLER PIC X(40) DTSIC033
|
||||
00109 VALUE 'ADMIN AND NOT PURSUED'. DTSIC033
|
||||
00110 15 FILLER PIC X(02) VALUE 'CY'. DTSIC033
|
||||
00111 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
|
||||
00112 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
|
||||
00113 15 FILLER PIC X(40) DTSIC033
|
||||
00114 VALUE 'ADMIN AND PURSUED'. DTSIC033
|
||||
00115 15 FILLER PIC X(02) VALUE 'BY'. CL**2
|
||||
00116 15 FILLER PIC X(10) VALUE 'CLMT WAGE '. CL**2
|
||||
00117 15 FILLER PIC X(10) VALUE ' CLMT WAGE'. CL**2
|
||||
00118 15 FILLER PIC X(40) CL**2
|
||||
00119 VALUE 'CLAIMANT WAGE AND PURSUED'. CL**2
|
||||
00120 15 FILLER PIC X(02) VALUE 'BN'. CL**2
|
||||
00121 15 FILLER PIC X(10) VALUE 'CLMT WAGE '. CL**2
|
||||
00122 15 FILLER PIC X(10) VALUE ' CLMT WAGE'. CL**2
|
||||
00123 15 FILLER PIC X(40) CL**2
|
||||
00124 VALUE 'CLAIMANT WAGE AND NOT PURSUED'. CL**2
|
||||
00125 15 FILLER PIC X(02) VALUE 'TN'. CL**4
|
||||
00126 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. CL**4
|
||||
00127 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. CL**4
|
||||
00128 15 FILLER PIC X(40) CL**4
|
||||
00129 VALUE 'TAX WAGE ADJ AND NOT PURSUED'. CL**4
|
||||
00130 15 FILLER PIC X(02) VALUE 'TY'. CL**4
|
||||
00131 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. CL**4
|
||||
00132 15 FILLER PIC X(10) VALUE 'TAX WG ADJ'. CL**4
|
||||
00133 15 FILLER PIC X(40) CL**4
|
||||
00134 VALUE 'TAX WAGE ADJ AND PURSUED '. CL**4
|
||||
00135 15 FILLER PIC X(02) VALUE 'PN'. DTSIC033
|
||||
00136 15 FILLER PIC X(10) VALUE 'PICKUP '. DTSIC033
|
||||
00137 15 FILLER PIC X(10) VALUE ' PICKUP'. DTSIC033
|
||||
00138 15 FILLER PIC X(40) DTSIC033
|
||||
00139 VALUE 'PICKUP '. DTSIC033
|
||||
00140 15 FILLER PIC X(02) VALUE 'PY'. DTSIC033
|
||||
00141 15 FILLER PIC X(10) VALUE 'ERROR'. DTSIC033
|
||||
00142 15 FILLER PIC X(10) VALUE ' ERROR'. DTSIC033
|
||||
00143 15 FILLER PIC X(40) DTSIC033
|
||||
00144 VALUE 'ERROR '. DTSIC033
|
||||
00145 15 FILLER PIC X(02) VALUE 'HN'. CL**3
|
||||
00146 15 FILLER PIC X(10) VALUE 'ANN NOT LB'. CL**3
|
||||
00147 15 FILLER PIC X(10) VALUE 'ANN NOT LB'. CL**3
|
||||
00148 15 FILLER PIC X(40) CL**3
|
||||
00149 VALUE 'ANNUAL - NOT LIABLE'. CL**3
|
||||
00150 DTSIC033
|
||||
00151 10 FILLER REDEFINES C033-01-AREA. DTSIC033
|
||||
00152 15 C033-01-ENTRY OCCURS 25 TIMES CL**4
|
||||
00153 INDEXED BY C033-01-IDX. DTSIC033
|
||||
00154 20 C033-01-CD PIC X(02). DTSIC033
|
||||
00155 20 C033-01-SHORT-DSCR PIC X(10). DTSIC033
|
||||
00156 20 C033-01-SHORT-DSCR-RIGHT DTSIC033
|
||||
00157 PIC X(10). DTSIC033
|
||||
00158 20 C033-01-LONG-DSCR PIC X(40). DTSIC033
|
||||
328
Copybook/DTSIC034.cpy
Normal file
328
Copybook/DTSIC034.cpy
Normal file
@ -0,0 +1,328 @@
|
||||
00001 ***** 12/09/04
|
||||
00002 * DTSIC034
|
||||
00003 * DTSIC034 COLLECTIONS CODES VALUES AND DESCRIPTIONS. LV007
|
||||
00004 * DTSIC034
|
||||
00005 ***** DTSIC034
|
||||
00006 SKIP1 DTSIC034
|
||||
00007 ***** DTSIC034
|
||||
00008 * OPTION 01 = MAPL-STATUS-CD DTSIC034
|
||||
00009 ***** DTSIC034
|
||||
00010 10 C034-01-AREA. DTSIC034
|
||||
00011 15 FILLER PIC X(01) VALUE 'O'. DTSIC034
|
||||
00012 15 FILLER PIC X(10) VALUE 'OPEN'. DTSIC034
|
||||
00013 15 FILLER PIC X(40) DTSIC034
|
||||
00014 VALUE 'OPEN'. DTSIC034
|
||||
00015 15 FILLER PIC X(01) VALUE 'C'. DTSIC034
|
||||
00016 15 FILLER PIC X(10) VALUE 'CLOSED'. DTSIC034
|
||||
00017 15 FILLER PIC X(40) DTSIC034
|
||||
00018 VALUE 'CLOSED'. DTSIC034
|
||||
00019 SKIP1 DTSIC034
|
||||
00020 10 FILLER REDEFINES C034-01-AREA. DTSIC034
|
||||
00021 15 C034-01-ENTRY OCCURS 2 TIMES DTSIC034
|
||||
00022 INDEXED BY C034-01-IDX. DTSIC034
|
||||
00023 20 C034-01-CD PIC X(01). DTSIC034
|
||||
00024 20 C034-01-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00025 20 C034-01-LONG-DSCR PIC X(40). DTSIC034
|
||||
00026 SKIP3 DTSIC034
|
||||
00027 ***** DTSIC034
|
||||
00028 * OPTION 02 = MAPL-TYPE DTSIC034
|
||||
00029 ***** DTSIC034
|
||||
00030 10 C034-02-AREA. DTSIC034
|
||||
00031 15 FILLER PIC X(01) VALUE 'A'. DTSIC034
|
||||
00032 15 FILLER PIC X(10) VALUE 'AUDIT'. DTSIC034
|
||||
00033 15 FILLER PIC X(40) DTSIC034
|
||||
00034 VALUE 'AUDIT'. DTSIC034
|
||||
00035 15 FILLER PIC X(01) VALUE 'S'. DTSIC034
|
||||
00036 15 FILLER PIC X(10) VALUE 'STATUS DTR'. DTSIC034
|
||||
00037 15 FILLER PIC X(40) DTSIC034
|
||||
00038 VALUE 'STATUS DETERMINATION'. DTSIC034
|
||||
00039 15 FILLER PIC X(01) VALUE 'R'. DTSIC034
|
||||
00040 15 FILLER PIC X(10) VALUE 'RATE'. DTSIC034
|
||||
00041 15 FILLER PIC X(40) DTSIC034
|
||||
00042 VALUE 'RATE'. DTSIC034
|
||||
00043 15 FILLER PIC X(01) VALUE 'B'. DTSIC034
|
||||
00044 15 FILLER PIC X(10) VALUE 'BILL'. DTSIC034
|
||||
00045 15 FILLER PIC X(40) DTSIC034
|
||||
00046 VALUE 'BILL'. DTSIC034
|
||||
00047 15 FILLER PIC X(01) VALUE 'O'. DTSIC034
|
||||
00048 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC034
|
||||
00049 15 FILLER PIC X(40) DTSIC034
|
||||
00050 VALUE 'OTHER'. DTSIC034
|
||||
00051 SKIP1 DTSIC034
|
||||
00052 10 FILLER REDEFINES C034-02-AREA. DTSIC034
|
||||
00053 15 C034-02-ENTRY OCCURS 5 TIMES DTSIC034
|
||||
00054 INDEXED BY C034-02-IDX. DTSIC034
|
||||
00055 20 C034-02-CD PIC X(01). DTSIC034
|
||||
00056 20 C034-02-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00057 20 C034-02-LONG-DSCR PIC X(40). DTSIC034
|
||||
00058 SKIP3 DTSIC034
|
||||
00059 ***** DTSIC034
|
||||
00060 * OPTION 05 = MCOL-SUBPOENA-ACTIVITY-CD DTSIC034
|
||||
00061 ***** DTSIC034
|
||||
00062 10 C034-05-AREA. DTSIC034
|
||||
00063 15 FILLER PIC X(01) VALUE ' '. DTSIC034
|
||||
00064 15 FILLER PIC X(10) VALUE 'NONE'. DTSIC034
|
||||
00065 15 FILLER PIC X(40) DTSIC034
|
||||
00066 VALUE 'NO SUBPOENA ACTIVITY RECORDED'. DTSIC034
|
||||
00067 15 FILLER PIC X(01) VALUE 'I'. DTSIC034
|
||||
00068 15 FILLER PIC X(10) VALUE 'ISSUED'. DTSIC034
|
||||
00069 15 FILLER PIC X(40) DTSIC034
|
||||
00070 VALUE 'ISSUED'. DTSIC034
|
||||
00071 15 FILLER PIC X(01) VALUE 'S'. DTSIC034
|
||||
00072 15 FILLER PIC X(10) VALUE 'SERVED'. DTSIC034
|
||||
00073 15 FILLER PIC X(40) DTSIC034
|
||||
00074 VALUE 'SERVED'. DTSIC034
|
||||
00075 15 FILLER PIC X(01) VALUE 'A'. DTSIC034
|
||||
00076 15 FILLER PIC X(10) VALUE 'APPEARED'. DTSIC034
|
||||
00077 15 FILLER PIC X(40) DTSIC034
|
||||
00078 VALUE 'APPEARED'. DTSIC034
|
||||
00079 15 FILLER PIC X(01) VALUE 'N'. DTSIC034
|
||||
00080 15 FILLER PIC X(10) VALUE 'NO SHOW'. DTSIC034
|
||||
00081 15 FILLER PIC X(40) DTSIC034
|
||||
00082 VALUE 'NO SHOW'. DTSIC034
|
||||
00083 15 FILLER PIC X(01) VALUE 'C'. DTSIC034
|
||||
00084 15 FILLER PIC X(10) VALUE 'CANCELLED'. DTSIC034
|
||||
00085 15 FILLER PIC X(40) DTSIC034
|
||||
00086 VALUE 'CANCELLED'. DTSIC034
|
||||
00087 15 FILLER PIC X(01) VALUE 'O'. DTSIC034
|
||||
00088 15 FILLER PIC X(10) VALUE 'COURT ORD'. DTSIC034
|
||||
00089 15 FILLER PIC X(40) DTSIC034
|
||||
00090 VALUE 'COURT ORDER ISSUED'. DTSIC034
|
||||
00091 SKIP1 DTSIC034
|
||||
00092 10 FILLER REDEFINES C034-05-AREA. DTSIC034
|
||||
00093 15 C034-05-ENTRY OCCURS 7 TIMES DTSIC034
|
||||
00094 INDEXED BY C034-05-IDX. DTSIC034
|
||||
00095 20 C034-05-CD PIC X(01). DTSIC034
|
||||
00096 20 C034-05-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00097 20 C034-05-LONG-DSCR PIC X(40). DTSIC034
|
||||
00098 SKIP3 DTSIC034
|
||||
00099 ***** DTSIC034
|
||||
00100 * OPTION 06 = MCOL-BNK-CHAPTER DTSIC034
|
||||
00101 ***** DTSIC034
|
||||
00102 10 C034-06-AREA. DTSIC034
|
||||
00103 15 FILLER PIC X(02) VALUE ' '. DTSIC034
|
||||
00104 15 FILLER PIC X(10) VALUE 'NOT BANKRP'. DTSIC034
|
||||
00105 15 FILLER PIC X(40) DTSIC034
|
||||
00106 VALUE 'NO BANKRUPTCY ASSOCIATED WITH EMPLOYER'. DTSIC034
|
||||
00107 15 FILLER PIC X(02) VALUE '07'. DTSIC034
|
||||
00108 15 FILLER PIC X(10) VALUE 'CHAPTER 7'. DTSIC034
|
||||
00109 15 FILLER PIC X(40) DTSIC034
|
||||
00110 VALUE 'CHAPTER 7'. DTSIC034
|
||||
00111 15 FILLER PIC X(02) VALUE '11'. DTSIC034
|
||||
00112 15 FILLER PIC X(10) VALUE 'CHAPTER 11'. DTSIC034
|
||||
00113 15 FILLER PIC X(40) DTSIC034
|
||||
00114 VALUE 'CHAPTER 11'. DTSIC034
|
||||
00115 15 FILLER PIC X(02) VALUE '12'. DTSIC034
|
||||
00116 15 FILLER PIC X(10) VALUE 'CHAPTER 12'. DTSIC034
|
||||
00117 15 FILLER PIC X(40) DTSIC034
|
||||
00118 VALUE 'CHAPTER 12'. DTSIC034
|
||||
00119 15 FILLER PIC X(02) VALUE '13'. DTSIC034
|
||||
00120 15 FILLER PIC X(10) VALUE 'CHAPTER 13'. DTSIC034
|
||||
00121 15 FILLER PIC X(40) DTSIC034
|
||||
00122 VALUE 'CHAPTER 13'. DTSIC034
|
||||
00123 SKIP1 DTSIC034
|
||||
00124 10 FILLER REDEFINES C034-06-AREA. DTSIC034
|
||||
00125 15 C034-06-ENTRY OCCURS 5 TIMES DTSIC034
|
||||
00126 INDEXED BY C034-06-IDX. DTSIC034
|
||||
00127 20 C034-06-CD PIC X(02). DTSIC034
|
||||
00128 20 C034-06-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00129 20 C034-06-LONG-DSCR PIC X(40). DTSIC034
|
||||
00130 SKIP3 DTSIC034
|
||||
00131 ***** DTSIC034
|
||||
00132 * OPTION 08 = MDPC-STATUS-CD DTSIC034
|
||||
00133 ***** DTSIC034
|
||||
00134 10 C034-08-AREA. DTSIC034
|
||||
00135 15 FILLER PIC X(01) VALUE 'O'. DTSIC034
|
||||
00136 15 FILLER PIC X(10) VALUE 'OPEN'. DTSIC034
|
||||
00137 15 FILLER PIC X(40) DTSIC034
|
||||
00138 VALUE 'DPC MONITORED BY SYSTEM FOR SATISFACTION'. DTSIC034
|
||||
00139 15 FILLER PIC X(01) VALUE 'M'. DTSIC034
|
||||
00140 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC034
|
||||
00141 15 FILLER PIC X(40) DTSIC034
|
||||
00142 VALUE 'MANUAL - DPC NOT MONITORED BY THE SYSTEM'. DTSIC034
|
||||
00143 15 FILLER PIC X(01) VALUE 'P'. DTSIC034
|
||||
00144 15 FILLER PIC X(10) VALUE 'PENDING'. DTSIC034
|
||||
00145 15 FILLER PIC X(40) DTSIC034
|
||||
00146 VALUE 'PENDING - WAITING FOR EMPLOYER SIGNATURE'. DTSIC034
|
||||
00147 15 FILLER PIC X(01) VALUE 'S'. DTSIC034
|
||||
00148 15 FILLER PIC X(10) VALUE 'SATISFIED'. DTSIC034
|
||||
00149 15 FILLER PIC X(40) DTSIC034
|
||||
00150 VALUE 'DPC HAS BEEN SATISFIED'. DTSIC034
|
||||
00151 15 FILLER PIC X(01) VALUE 'W'. DTSIC034
|
||||
00152 15 FILLER PIC X(10) VALUE 'WITHDRAWN'. DTSIC034
|
||||
00153 15 FILLER PIC X(40) DTSIC034
|
||||
00154 VALUE 'DPC HAS BEEN WITHDRAWN'. DTSIC034
|
||||
00155 SKIP1 DTSIC034
|
||||
00156 10 FILLER REDEFINES C034-08-AREA. DTSIC034
|
||||
00157 15 C034-08-ENTRY OCCURS 5 TIMES DTSIC034
|
||||
00158 INDEXED BY C034-08-IDX. DTSIC034
|
||||
00159 20 C034-08-CD PIC X(01). DTSIC034
|
||||
00160 20 C034-08-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00161 20 C034-08-LONG-DSCR PIC X(40). DTSIC034
|
||||
00162 SKIP3 DTSIC034
|
||||
00163 ***** DTSIC034
|
||||
00164 * OPTION 09 = MDPC-PMT-FREQUENCY DTSIC034
|
||||
00165 ***** DTSIC034
|
||||
00166 10 C034-09-AREA. DTSIC034
|
||||
00167 15 FILLER PIC X(01) VALUE 'W'. DTSIC034
|
||||
00168 15 FILLER PIC X(10) VALUE 'WEEKLY'. DTSIC034
|
||||
00169 15 FILLER PIC X(40) DTSIC034
|
||||
00170 VALUE 'WEEKLY'. DTSIC034
|
||||
00171 15 FILLER PIC X(01) VALUE 'B'. DTSIC034
|
||||
00172 15 FILLER PIC X(10) VALUE 'BI-WEEKLY'. DTSIC034
|
||||
00173 15 FILLER PIC X(40) DTSIC034
|
||||
00174 VALUE 'BI-WEEKLY'. DTSIC034
|
||||
00175 15 FILLER PIC X(01) VALUE 'M'. DTSIC034
|
||||
00176 15 FILLER PIC X(10) VALUE 'MONTHLY'. DTSIC034
|
||||
00177 15 FILLER PIC X(40) DTSIC034
|
||||
00178 VALUE 'MONTHLY'. DTSIC034
|
||||
00179 15 FILLER PIC X(01) VALUE 'O'. DTSIC034
|
||||
00180 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC034
|
||||
00181 15 FILLER PIC X(40) DTSIC034
|
||||
00182 VALUE 'OTHER'. DTSIC034
|
||||
00183 SKIP1 DTSIC034
|
||||
00184 10 FILLER REDEFINES C034-09-AREA. DTSIC034
|
||||
00185 15 C034-09-ENTRY OCCURS 4 TIMES DTSIC034
|
||||
00186 INDEXED BY C034-09-IDX. DTSIC034
|
||||
00187 20 C034-09-CD PIC X(01). DTSIC034
|
||||
00188 20 C034-09-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00189 20 C034-09-LONG-DSCR PIC X(40). DTSIC034
|
||||
00190 SKIP3 DTSIC034
|
||||
00191 ***** DTSIC034
|
||||
00192 * OPTION 10 = MLEV-STATUS-CD DTSIC034
|
||||
00193 ***** DTSIC034
|
||||
00194 10 C034-10-AREA. DTSIC034
|
||||
00195 15 FILLER PIC X(01) VALUE 'I'. DTSIC034
|
||||
00196 15 FILLER PIC X(10) VALUE 'INACTIVE'. DTSIC034
|
||||
00197 15 FILLER PIC X(40) DTSIC034
|
||||
00198 VALUE 'INACTIVE - NO LEVY ISSUED'. DTSIC034
|
||||
00199 15 FILLER PIC X(01) VALUE 'O'. DTSIC034
|
||||
00200 15 FILLER PIC X(10) VALUE 'OPEN'. DTSIC034
|
||||
00201 15 FILLER PIC X(40) DTSIC034
|
||||
00202 VALUE 'OPEN - LEVY ISSUED'. DTSIC034
|
||||
00203 15 FILLER PIC X(01) VALUE 'C'. DTSIC034
|
||||
00204 15 FILLER PIC X(10) VALUE 'CLOSED'. DTSIC034
|
||||
00205 15 FILLER PIC X(40) DTSIC034
|
||||
00206 VALUE 'CLOSED - LEVY NO LONGER ACTIVE'. DTSIC034
|
||||
00207 SKIP1 DTSIC034
|
||||
00208 10 FILLER REDEFINES C034-10-AREA. DTSIC034
|
||||
00209 15 C034-10-ENTRY OCCURS 3 TIMES DTSIC034
|
||||
00210 INDEXED BY C034-10-IDX. DTSIC034
|
||||
00211 20 C034-10-CD PIC X(01). DTSIC034
|
||||
00212 20 C034-10-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00213 20 C034-10-LONG-DSCR PIC X(40). DTSIC034
|
||||
00214 SKIP3 DTSIC034
|
||||
00215 ***** DTSIC034
|
||||
00216 * OPTION 11 = MLIN-STATUS-CD DTSIC034
|
||||
00217 ***** DTSIC034
|
||||
00218 10 C034-11-AREA. DTSIC034
|
||||
00219 15 FILLER PIC X(01) VALUE 'O'. DTSIC034
|
||||
00220 15 FILLER PIC X(10) VALUE 'OPEN'. DTSIC034
|
||||
00221 15 FILLER PIC X(40) DTSIC034
|
||||
00222 VALUE 'OPEN - LIEN PACKAGE PRINTED'. DTSIC034
|
||||
00223 15 FILLER PIC X(01) VALUE 'C'. DTSIC034
|
||||
00224 15 FILLER PIC X(10) VALUE 'CONVERTED'. DTSIC034
|
||||
00225 15 FILLER PIC X(40) DTSIC034
|
||||
00226 VALUE 'PACKAGE NOT PRINTED, FUNCTIONS PERFORMED'. DTSIC034
|
||||
00227 15 FILLER PIC X(01) VALUE 'M'. DTSIC034
|
||||
00228 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC034
|
||||
00229 15 FILLER PIC X(40) DTSIC034
|
||||
00230 VALUE 'PKG NOT PRINTED, FUNCTIONS NOT PERFORMED'. DTSIC034
|
||||
00231 15 FILLER PIC X(01) VALUE 'R'. DTSIC034
|
||||
00232 15 FILLER PIC X(10) VALUE 'RELEASED'. DTSIC034
|
||||
00233 15 FILLER PIC X(40) DTSIC034
|
||||
00234 VALUE 'RELEASED'. DTSIC034
|
||||
00235 15 FILLER PIC X(01) VALUE 'W'. DTSIC034
|
||||
00236 15 FILLER PIC X(10) VALUE 'WITHDRAWN'. DTSIC034
|
||||
00237 15 FILLER PIC X(40) DTSIC034
|
||||
00238 VALUE 'WITHDRAWN'. DTSIC034
|
||||
00239 SKIP1 DTSIC034
|
||||
00240 10 FILLER REDEFINES C034-11-AREA. DTSIC034
|
||||
00241 15 C034-11-ENTRY OCCURS 5 TIMES DTSIC034
|
||||
00242 INDEXED BY C034-11-IDX. DTSIC034
|
||||
00243 20 C034-11-CD PIC X(01). DTSIC034
|
||||
00244 20 C034-11-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00245 20 C034-11-LONG-DSCR PIC X(40). DTSIC034
|
||||
00246 SKIP3 DTSIC034
|
||||
00247 ***** DTSIC034
|
||||
00248 * OPTION 12 = MRPT-RESPONSIBLE-ACTIVITY DTSIC034
|
||||
00249 ***** DTSIC034
|
||||
00250 10 C034-12-AREA. DTSIC034
|
||||
00251 15 FILLER PIC X(03) VALUE 'BNK'. DTSIC034
|
||||
00252 15 FILLER PIC X(10) VALUE 'BNKRPT DST'. DTSIC034
|
||||
00253 15 FILLER PIC X(40) DTSIC034
|
||||
00254 VALUE 'BANKRUPTCY DISTRIBUTION '. DTSIC034
|
||||
00255 15 FILLER PIC X(03) VALUE 'DPC'. DTSIC034
|
||||
00256 15 FILLER PIC X(10) VALUE 'DPC'. DTSIC034
|
||||
00257 15 FILLER PIC X(40) DTSIC034
|
||||
00258 VALUE 'DEFERRED PAYMENT CONTRACT'. DTSIC034
|
||||
00259 15 FILLER PIC X(03) VALUE 'DQ1'. DTSIC034
|
||||
00260 15 FILLER PIC X(10) VALUE 'DEL LTR 1'. DTSIC034
|
||||
00261 15 FILLER PIC X(40) DTSIC034
|
||||
00262 VALUE 'DELINQUENCY LETTER 1'. DTSIC034
|
||||
00263 15 FILLER PIC X(03) VALUE 'DQ2'. DTSIC034
|
||||
00264 15 FILLER PIC X(10) VALUE 'DEL LTR 2'. DTSIC034
|
||||
00265 15 FILLER PIC X(40) DTSIC034
|
||||
00266 VALUE 'DELINQUENCY LETTER 2'. DTSIC034
|
||||
00267 15 FILLER PIC X(03) VALUE 'FIN'. DTSIC034
|
||||
00268 15 FILLER PIC X(10) VALUE 'FIN NOT'. DTSIC034
|
||||
00269 15 FILLER PIC X(40) DTSIC034
|
||||
00270 VALUE 'FINAL NOTICE'. DTSIC034
|
||||
00271 15 FILLER PIC X(03) VALUE 'LEV'. DTSIC034
|
||||
00272 15 FILLER PIC X(10) VALUE 'LEVY'. DTSIC034
|
||||
00273 15 FILLER PIC X(40) DTSIC034
|
||||
00274 VALUE 'LEVY'. DTSIC034
|
||||
00275 15 FILLER PIC X(03) VALUE 'LIN'. DTSIC034
|
||||
00276 15 FILLER PIC X(10) VALUE 'LIEN'. DTSIC034
|
||||
00277 15 FILLER PIC X(40) DTSIC034
|
||||
00278 VALUE 'LIEN'. DTSIC034
|
||||
00279 15 FILLER PIC X(03) VALUE ' QB'. DTSIC034
|
||||
00280 15 FILLER PIC X(10) VALUE 'QTRLY BILL'. DTSIC034
|
||||
00281 15 FILLER PIC X(40) DTSIC034
|
||||
00282 VALUE 'QUARTERLY BILL (UC-223)'. DTSIC034
|
||||
00283 15 FILLER PIC X(03) VALUE 'SUB'. DTSIC034
|
||||
00284 15 FILLER PIC X(10) VALUE 'SUBPOENA'. DTSIC034
|
||||
00285 15 FILLER PIC X(40) DTSIC034
|
||||
00286 VALUE 'SUBPOENA'. DTSIC034
|
||||
00287 15 FILLER PIC X(03) VALUE 'TEL'. DTSIC034
|
||||
00288 15 FILLER PIC X(10) VALUE 'TELEPHONE'. DTSIC034
|
||||
00289 15 FILLER PIC X(40) DTSIC034
|
||||
00290 VALUE 'PHONE POWER'. DTSIC034
|
||||
00291 15 FILLER PIC X(03) VALUE 'VIS'. DTSIC034
|
||||
00292 15 FILLER PIC X(10) VALUE 'FLD REP VI'. DTSIC034
|
||||
00293 15 FILLER PIC X(40) DTSIC034
|
||||
00294 VALUE 'FIELD REP. VISIT'. DTSIC034
|
||||
00295 15 FILLER PIC X(03) VALUE 'VOL'. DTSIC034
|
||||
00296 15 FILLER PIC X(10) VALUE 'VOL COMP'. DTSIC034
|
||||
00297 15 FILLER PIC X(40) DTSIC034
|
||||
00298 VALUE 'VOLUNTARY COMPLIANCE'. DTSIC034
|
||||
00299 SKIP1 DTSIC034
|
||||
00300 10 FILLER REDEFINES C034-12-AREA. DTSIC034
|
||||
00301 15 C034-12-ENTRY OCCURS 12 TIMES DTSIC034
|
||||
00302 INDEXED BY C034-12-IDX. DTSIC034
|
||||
00303 20 C034-12-CD PIC X(03). DTSIC034
|
||||
00304 20 C034-12-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00305 20 C034-12-LONG-DSCR PIC X(40). DTSIC034
|
||||
00306 ***** DTSIC034
|
||||
00307 * OPTION 13 = MCMP-STATUS-CD DTSIC034
|
||||
00308 ***** DTSIC034
|
||||
00309 10 C034-13-AREA. DTSIC034
|
||||
00310 15 FILLER PIC X(01) VALUE 'P'. DTSIC034
|
||||
00311 15 FILLER PIC X(10) VALUE 'PENDING '. DTSIC034
|
||||
00312 15 FILLER PIC X(40) DTSIC034
|
||||
00313 VALUE 'PENDING '. DTSIC034
|
||||
00314 15 FILLER PIC X(01) VALUE 'F'. DTSIC034
|
||||
00315 15 FILLER PIC X(10) VALUE 'FINAL '. DTSIC034
|
||||
00316 15 FILLER PIC X(40) DTSIC034
|
||||
00317 VALUE 'FINAL '. DTSIC034
|
||||
00318 15 FILLER PIC X(01) VALUE 'W'. DTSIC034
|
||||
00319 15 FILLER PIC X(10) VALUE 'WITHDRAWN '. DTSIC034
|
||||
00320 15 FILLER PIC X(40) DTSIC034
|
||||
00321 VALUE 'WITHDRAWN '. DTSIC034
|
||||
00322 SKIP1 DTSIC034
|
||||
00323 10 FILLER REDEFINES C034-13-AREA. DTSIC034
|
||||
00324 15 C034-13-ENTRY OCCURS 03 TIMES DTSIC034
|
||||
00325 INDEXED BY C034-13-IDX. DTSIC034
|
||||
00326 20 C034-13-CD PIC X(01). DTSIC034
|
||||
00327 20 C034-13-SHORT-DSCR PIC X(10). DTSIC034
|
||||
00328 20 C034-13-LONG-DSCR PIC X(40). DTSIC034
|
||||
68
Copybook/DTSIC035.cpy
Normal file
68
Copybook/DTSIC035.cpy
Normal file
@ -0,0 +1,68 @@
|
||||
00001 ***** 04/05/04
|
||||
00002 * DTSIC035
|
||||
00003 * DTSIC035 OPO TYPE CODES VALUES AND DESCRIPTIONS. LV003
|
||||
00004 * DTSIC035
|
||||
00005 * DTSIC035
|
||||
00006 * 04/23/2003 INITIAL DEVELOPMENT. GD DTSIC035
|
||||
00007 * DTSIC035
|
||||
00008 * DTSIC035
|
||||
00009 ***** DTSIC035
|
||||
00010 DTSIC035
|
||||
00011 ***** DTSIC035
|
||||
00012 * OPTION 01 = MOPO-TYPE DTSIC035
|
||||
00013 ***** DTSIC035
|
||||
00014 10 C035-01-AREA. DTSIC035
|
||||
00015 15 FILLER PIC X(02) VALUE '00'. DTSIC035
|
||||
00016 15 FILLER PIC X(10) VALUE 'OPO '. DTSIC035
|
||||
00017 15 FILLER PIC X(10) VALUE ' OPO'. DTSIC035
|
||||
00018 15 FILLER PIC X(40) DTSIC035
|
||||
00019 VALUE 'OWNER/PARTNER/OFFICER'. DTSIC035
|
||||
00020 15 FILLER PIC X(02) VALUE '01'. DTSIC035
|
||||
00021 15 FILLER PIC X(10) VALUE 'EFT '. DTSIC035
|
||||
00022 15 FILLER PIC X(10) VALUE ' EFT'. DTSIC035
|
||||
00023 15 FILLER PIC X(40) DTSIC035
|
||||
00024 VALUE 'EFT (VENDOR) '. DTSIC035
|
||||
00025 15 FILLER PIC X(02) VALUE '02'. DTSIC035
|
||||
00026 15 FILLER PIC X(10) VALUE 'EFT '. DTSIC035
|
||||
00027 15 FILLER PIC X(10) VALUE ' EFT'. DTSIC035
|
||||
00028 15 FILLER PIC X(40) DTSIC035
|
||||
00029 VALUE 'EFT (DOES) '. DTSIC035
|
||||
00030 15 FILLER PIC X(02) VALUE '03'. DTSIC035
|
||||
00031 15 FILLER PIC X(10) VALUE 'RPT-BSNS '. DTSIC035
|
||||
00032 15 FILLER PIC X(10) VALUE ' RPT-BSNS'. DTSIC035
|
||||
00033 15 FILLER PIC X(40) DTSIC035
|
||||
00034 VALUE 'REPORTING - BUSINESS'. DTSIC035
|
||||
00035 15 FILLER PIC X(02) VALUE '04'. DTSIC035
|
||||
00036 15 FILLER PIC X(10) VALUE 'RPT-TECH '. DTSIC035
|
||||
00037 15 FILLER PIC X(10) VALUE ' RPT-TECH'. DTSIC035
|
||||
00038 15 FILLER PIC X(40) DTSIC035
|
||||
00039 VALUE 'REPORTING - TECHNICAL '. DTSIC035
|
||||
00040 15 FILLER PIC X(02) VALUE '05'. DTSIC035
|
||||
00041 15 FILLER PIC X(10) VALUE 'FR500 '. DTSIC035
|
||||
00042 15 FILLER PIC X(10) VALUE ' FR500'. DTSIC035
|
||||
00043 15 FILLER PIC X(40) DTSIC035
|
||||
00044 VALUE 'FR500 '. DTSIC035
|
||||
00045 15 FILLER PIC X(02) VALUE '06'. DTSIC035
|
||||
00046 15 FILLER PIC X(10) VALUE 'CHARGING '. DTSIC035
|
||||
00047 15 FILLER PIC X(10) VALUE ' CHARGING'. DTSIC035
|
||||
00048 15 FILLER PIC X(40) DTSIC035
|
||||
00049 VALUE 'CHARGING '. DTSIC035
|
||||
00050 15 FILLER PIC X(02) VALUE '07'. DTSIC035
|
||||
00051 15 FILLER PIC X(10) VALUE 'BENEFITS '. DTSIC035
|
||||
00052 15 FILLER PIC X(10) VALUE ' BENEFITS'. DTSIC035
|
||||
00053 15 FILLER PIC X(40) DTSIC035
|
||||
00054 VALUE 'BENEFITS '. DTSIC035
|
||||
00055 15 FILLER PIC X(02) VALUE '08'. DTSIC035
|
||||
00056 15 FILLER PIC X(10) VALUE 'STATUS '. DTSIC035
|
||||
00057 15 FILLER PIC X(10) VALUE ' STATUS'. DTSIC035
|
||||
00058 15 FILLER PIC X(40) DTSIC035
|
||||
00059 VALUE 'STATUS '. DTSIC035
|
||||
00060 DTSIC035
|
||||
00061 10 FILLER REDEFINES C035-01-AREA. DTSIC035
|
||||
00062 15 C035-01-ENTRY OCCURS 9 TIMES DTSIC035
|
||||
00063 INDEXED BY C035-01-IDX. DTSIC035
|
||||
00064 20 C035-01-CD PIC X(02). DTSIC035
|
||||
00065 20 C035-01-SHORT-DSCR PIC X(10). DTSIC035
|
||||
00066 20 C035-01-SHORT-DSCR-RIGHT DTSIC035
|
||||
00067 PIC X(10). DTSIC035
|
||||
00068 20 C035-01-LONG-DSCR PIC X(40). DTSIC035
|
||||
261
Copybook/DTSIC036.cpy
Normal file
261
Copybook/DTSIC036.cpy
Normal file
@ -0,0 +1,261 @@
|
||||
00001 ***** 05/25/07
|
||||
00002 * DTSIC036
|
||||
00003 * DTSIC036 FIELD SUPPORT CODES VALUES AND DESCRIPTIONS. LV006
|
||||
00004 * DTSIC036
|
||||
00005 ***** DTSIC036
|
||||
00006 SKIP3 DTSIC036
|
||||
00007 ***** DTSIC036
|
||||
00008 * OPTION 01 = MFAS-EMP-SIZE-IND DTSIC036
|
||||
00009 ***** DTSIC036
|
||||
00010 10 C036-01-AREA. DTSIC036
|
||||
00011 15 FILLER PIC X(01) VALUE ' '. DTSIC036
|
||||
00012 15 FILLER PIC X(10) VALUE 'NON-AUDIT'. DTSIC036
|
||||
00013 15 FILLER PIC X(40) DTSIC036
|
||||
00014 VALUE 'NOT AN AUDIT ASSIGNMENT'. DTSIC036
|
||||
00015 15 FILLER PIC X(01) VALUE 'L'. DTSIC036
|
||||
00016 15 FILLER PIC X(10) VALUE 'LARGE'. DTSIC036
|
||||
00017 15 FILLER PIC X(40) DTSIC036
|
||||
00018 VALUE 'LARGE'. DTSIC036
|
||||
00019 15 FILLER PIC X(01) VALUE 'S'. DTSIC036
|
||||
00020 15 FILLER PIC X(10) VALUE 'SMALL'. DTSIC036
|
||||
00021 15 FILLER PIC X(40) DTSIC036
|
||||
00022 VALUE 'SMALL'. DTSIC036
|
||||
00023 SKIP1 DTSIC036
|
||||
00024 10 FILLER REDEFINES C036-01-AREA. DTSIC036
|
||||
00025 15 C036-01-ENTRY OCCURS 3 TIMES DTSIC036
|
||||
00026 INDEXED BY C036-01-IDX. DTSIC036
|
||||
00027 20 C036-01-CD PIC X(01). DTSIC036
|
||||
00028 20 C036-01-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00029 20 C036-01-LONG-DSCR PIC X(40). DTSIC036
|
||||
00030 SKIP3 DTSIC036
|
||||
00031 ***** DTSIC036
|
||||
00032 * OPTION 02 = MFAS-STATUS-IND DTSIC036
|
||||
00033 ***** DTSIC036
|
||||
00034 10 C036-02-AREA. DTSIC036
|
||||
00035 15 FILLER PIC X(01) VALUE 'A'. DTSIC036
|
||||
00036 15 FILLER PIC X(10) VALUE 'ACTIVE'. DTSIC036
|
||||
00037 15 FILLER PIC X(40) DTSIC036
|
||||
00038 VALUE 'ACTIVE'. DTSIC036
|
||||
00039 15 FILLER PIC X(01) VALUE 'C'. DTSIC036
|
||||
00040 15 FILLER PIC X(10) VALUE 'COMPLETED'. DTSIC036
|
||||
00041 15 FILLER PIC X(40) DTSIC036
|
||||
00042 VALUE 'COMPLETED'. DTSIC036
|
||||
00043 15 FILLER PIC X(01) VALUE 'P'. DTSIC036
|
||||
00044 15 FILLER PIC X(10) VALUE 'PROCESSED'. DTSIC036
|
||||
00045 15 FILLER PIC X(40) DTSIC036
|
||||
00046 VALUE 'PROCESSED'. DTSIC036
|
||||
00047 15 FILLER PIC X(01) VALUE 'H'. DTSIC036
|
||||
00048 15 FILLER PIC X(10) VALUE 'HELD'. DTSIC036
|
||||
00049 15 FILLER PIC X(40) DTSIC036
|
||||
00050 VALUE 'HELD'. DTSIC036
|
||||
00051 15 FILLER PIC X(01) VALUE 'K'. DTSIC036
|
||||
00052 15 FILLER PIC X(10) VALUE 'KILLED'. DTSIC036
|
||||
00053 15 FILLER PIC X(40) DTSIC036
|
||||
00054 VALUE 'KILLED (CANCELED)'. DTSIC036
|
||||
00055 SKIP1 DTSIC036
|
||||
00056 10 FILLER REDEFINES C036-02-AREA. DTSIC036
|
||||
00057 15 C036-02-ENTRY OCCURS 5 TIMES DTSIC036
|
||||
00058 INDEXED BY C036-02-IDX. DTSIC036
|
||||
00059 20 C036-02-CD PIC X(01). DTSIC036
|
||||
00060 20 C036-02-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00061 20 C036-02-LONG-DSCR PIC X(40). DTSIC036
|
||||
00062 SKIP3 DTSIC036
|
||||
00063 ***** DTSIC036
|
||||
00064 * OPTION 03 = MFAS-AUDIT-SEL-REASON DTSIC036
|
||||
00065 ***** DTSIC036
|
||||
00066 10 C036-03-AREA. DTSIC036
|
||||
00067 15 FILLER PIC X(02) VALUE '01'. DTSIC036
|
||||
00068 15 FILLER PIC X(10) VALUE 'RANDOM'. DTSIC036
|
||||
00069 15 FILLER PIC X(40) DTSIC036
|
||||
00070 VALUE 'RANDOM'. DTSIC036
|
||||
00071 15 FILLER PIC X(02) VALUE '02'. DTSIC036
|
||||
00072 15 FILLER PIC X(10) VALUE 'LARGE EMP '. DTSIC036
|
||||
00073 15 FILLER PIC X(40) DTSIC036
|
||||
00074 VALUE 'LARGE EMPLOYER'. DTSIC036
|
||||
00075 15 FILLER PIC X(02) VALUE '03'. DTSIC036
|
||||
00076 15 FILLER PIC X(10) VALUE 'REQUEST '. DTSIC036
|
||||
00077 15 FILLER PIC X(40) DTSIC036
|
||||
00078 VALUE 'REQUEST'. DTSIC036
|
||||
00079 SKIP1 DTSIC036
|
||||
00080 10 FILLER REDEFINES C036-03-AREA. DTSIC036
|
||||
00081 15 C036-03-ENTRY OCCURS 3 TIMES DTSIC036
|
||||
00082 INDEXED BY C036-03-IDX. DTSIC036
|
||||
00083 20 C036-03-CD PIC X(02). DTSIC036
|
||||
00084 20 C036-03-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00085 20 C036-03-LONG-DSCR PIC X(40). DTSIC036
|
||||
00086 SKIP3 DTSIC036
|
||||
00087 ***** DTSIC036
|
||||
00088 * OPTION 04 = MAUR-EMP-SIZE-IND DTSIC036
|
||||
00089 ***** DTSIC036
|
||||
00090 10 C036-04-AREA. DTSIC036
|
||||
00091 15 FILLER PIC X(01) VALUE 'L'. DTSIC036
|
||||
00092 15 FILLER PIC X(10) VALUE 'LARGE'. DTSIC036
|
||||
00093 15 FILLER PIC X(40) DTSIC036
|
||||
00094 VALUE 'LARGE'. DTSIC036
|
||||
00095 15 FILLER PIC X(01) VALUE 'S'. DTSIC036
|
||||
00096 15 FILLER PIC X(10) VALUE 'SMALL'. DTSIC036
|
||||
00097 15 FILLER PIC X(40) DTSIC036
|
||||
00098 VALUE 'SMALL'. DTSIC036
|
||||
00099 SKIP1 DTSIC036
|
||||
00100 10 FILLER REDEFINES C036-04-AREA. DTSIC036
|
||||
00101 15 C036-04-ENTRY OCCURS 2 TIMES DTSIC036
|
||||
00102 INDEXED BY C036-04-IDX. DTSIC036
|
||||
00103 20 C036-04-CD PIC X(01). DTSIC036
|
||||
00104 20 C036-04-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00105 20 C036-04-LONG-DSCR PIC X(40). DTSIC036
|
||||
00106 SKIP3 DTSIC036
|
||||
00107 ***** DTSIC036
|
||||
00108 * OPTION 05 = MAUR-ERROR-TYPE DTSIC036
|
||||
00109 ***** DTSIC036
|
||||
00110 10 C036-05-AREA. DTSIC036
|
||||
00111 15 FILLER PIC X(02) VALUE '51'. DTSIC036
|
||||
00112 15 FILLER PIC X(10) VALUE 'IND CONTRC'. DTSIC036
|
||||
00113 15 FILLER PIC X(40) DTSIC036
|
||||
00114 VALUE 'INDEPENDENT CONTRACTOR'. DTSIC036
|
||||
00115 15 FILLER PIC X(02) VALUE '52'. DTSIC036
|
||||
00116 15 FILLER PIC X(10) VALUE 'OFFICR WGS'. DTSIC036
|
||||
00117 15 FILLER PIC X(40) DTSIC036
|
||||
00118 VALUE 'CORPORATE OFFICER WAGES'. DTSIC036
|
||||
00119 15 FILLER PIC X(02) VALUE '53'. DTSIC036
|
||||
00120 15 FILLER PIC X(10) VALUE 'TIPS'. DTSIC036
|
||||
00121 15 FILLER PIC X(40) DTSIC036
|
||||
00122 VALUE 'TIPS'. DTSIC036
|
||||
00123 15 FILLER PIC X(02) VALUE '54'. DTSIC036
|
||||
00124 15 FILLER PIC X(10) VALUE 'MEALS'. DTSIC036
|
||||
00125 15 FILLER PIC X(40) DTSIC036
|
||||
00126 VALUE 'MEALS AND LODGING'. DTSIC036
|
||||
00127 15 FILLER PIC X(02) VALUE '55'. DTSIC036
|
||||
00128 15 FILLER PIC X(10) VALUE 'CASUAL LBR'. DTSIC036
|
||||
00129 15 FILLER PIC X(40) DTSIC036
|
||||
00130 VALUE 'CASUAL AND SPOT LABOR'. DTSIC036
|
||||
00131 15 FILLER PIC X(02) VALUE '56'. DTSIC036
|
||||
00132 15 FILLER PIC X(10) VALUE 'BENEFT PLN'. DTSIC036
|
||||
00133 15 FILLER PIC X(40) DTSIC036
|
||||
00134 VALUE 'BENEFIT PLANS'. DTSIC036
|
||||
00135 15 FILLER PIC X(02) VALUE '57'. DTSIC036
|
||||
00136 15 FILLER PIC X(10) VALUE 'EXPNS REIM'. DTSIC036
|
||||
00137 15 FILLER PIC X(40) DTSIC036
|
||||
00138 VALUE 'EXPENSE REIMBURSEMENT'. DTSIC036
|
||||
00139 15 FILLER PIC X(02) VALUE '58'. DTSIC036
|
||||
00140 15 FILLER PIC X(10) VALUE 'EXEMPT EMP'. DTSIC036
|
||||
00141 15 FILLER PIC X(40) DTSIC036
|
||||
00142 VALUE 'EXEMPT EMPLOYEES REPORTED IN ERROR'. DTSIC036
|
||||
00143 15 FILLER PIC X(02) VALUE '59'. DTSIC036
|
||||
00144 15 FILLER PIC X(10) VALUE 'WG BAS ERR'. DTSIC036
|
||||
00145 15 FILLER PIC X(40) DTSIC036
|
||||
00146 VALUE 'WAGE BASE ERROR'. DTSIC036
|
||||
00147 15 FILLER PIC X(02) VALUE '60'. DTSIC036
|
||||
00148 15 FILLER PIC X(10) VALUE 'COMMISSION'. DTSIC036
|
||||
00149 15 FILLER PIC X(40) DTSIC036
|
||||
00150 VALUE 'COMMISSIONS'. DTSIC036
|
||||
00151 15 FILLER PIC X(02) VALUE '61'. DTSIC036
|
||||
00152 15 FILLER PIC X(10) VALUE 'BONUSES'. DTSIC036
|
||||
00153 15 FILLER PIC X(40) DTSIC036
|
||||
00154 VALUE 'BONUSES'. DTSIC036
|
||||
00155 15 FILLER PIC X(02) VALUE '62'. DTSIC036
|
||||
00156 15 FILLER PIC X(10) VALUE 'DOMESTIC'. DTSIC036
|
||||
00157 15 FILLER PIC X(40) DTSIC036
|
||||
00158 VALUE 'DOMESTIC'. DTSIC036
|
||||
00159 15 FILLER PIC X(02) VALUE '63'. DTSIC036
|
||||
00160 15 FILLER PIC X(10) VALUE 'SEVER PAY'. DTSIC036
|
||||
00161 15 FILLER PIC X(40) DTSIC036
|
||||
00162 VALUE 'SEVERANCE PAY'. DTSIC036
|
||||
00163 15 FILLER PIC X(02) VALUE '64'. DTSIC036
|
||||
00164 15 FILLER PIC X(10) VALUE 'ARITH ERR'. DTSIC036
|
||||
00165 15 FILLER PIC X(40) DTSIC036
|
||||
00166 VALUE 'ARITHMETIC ERROR'. DTSIC036
|
||||
00167 15 FILLER PIC X(02) VALUE '65'. DTSIC036
|
||||
00168 15 FILLER PIC X(10) VALUE 'MISCLASS '. DTSIC036
|
||||
00169 15 FILLER PIC X(40) DTSIC036
|
||||
00170 VALUE 'MISC MISCLASSIFIED WORKERS'. DTSIC036
|
||||
00171 15 FILLER PIC X(02) VALUE '66'. DTSIC036
|
||||
00172 15 FILLER PIC X(10) VALUE 'UNRPT MIS'. DTSIC036
|
||||
00173 15 FILLER PIC X(40) DTSIC036
|
||||
00174 VALUE 'OTHER UNREPORTED MISCLASSIFIED WORKERS'. DTSIC036
|
||||
00175 15 FILLER PIC X(02) VALUE '67'. DTSIC036
|
||||
00176 15 FILLER PIC X(10) VALUE 'EMPL OMIT'. DTSIC036
|
||||
00177 15 FILLER PIC X(40) DTSIC036
|
||||
00178 VALUE 'EMPLOYEES OMITTED'. DTSIC036
|
||||
00179 15 FILLER PIC X(02) VALUE '68'. DTSIC036
|
||||
00180 15 FILLER PIC X(10) VALUE 'WGE UNRPT'. DTSIC036
|
||||
00181 15 FILLER PIC X(40) DTSIC036
|
||||
00182 VALUE 'WAGES UNREPORTED'. DTSIC036
|
||||
00183 15 FILLER PIC X(02) VALUE '69'. DTSIC036
|
||||
00184 15 FILLER PIC X(10) VALUE 'INTERNS '. DTSIC036
|
||||
00185 15 FILLER PIC X(40) DTSIC036
|
||||
00186 VALUE 'INTERNS MISCLASSIFIED'. DTSIC036
|
||||
00187 15 FILLER PIC X(02) VALUE '70'. DTSIC036
|
||||
00188 15 FILLER PIC X(10) VALUE 'WRONG ST '. DTSIC036
|
||||
00189 15 FILLER PIC X(40) DTSIC036
|
||||
00190 VALUE 'WAGES REPORTED TO WRONG STATE'. DTSIC036
|
||||
00191 15 FILLER PIC X(02) VALUE '71'. DTSIC036
|
||||
00192 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
||||
00193 15 FILLER PIC X(40) DTSIC036
|
||||
00194 VALUE 'UNDEFINED'. DTSIC036
|
||||
00195 15 FILLER PIC X(02) VALUE '72'. DTSIC036
|
||||
00196 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
||||
00197 15 FILLER PIC X(40) DTSIC036
|
||||
00198 VALUE 'UNDEFINED'. DTSIC036
|
||||
00199 15 FILLER PIC X(02) VALUE '73'. DTSIC036
|
||||
00200 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
||||
00201 15 FILLER PIC X(40) DTSIC036
|
||||
00202 VALUE 'UNDEFINED'. DTSIC036
|
||||
00203 15 FILLER PIC X(02) VALUE '74'. DTSIC036
|
||||
00204 15 FILLER PIC X(10) VALUE 'UNDEFINED'. DTSIC036
|
||||
00205 15 FILLER PIC X(40) DTSIC036
|
||||
00206 VALUE 'UNDEFINED'. DTSIC036
|
||||
00207 15 FILLER PIC X(02) VALUE '75'. DTSIC036
|
||||
00208 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC036
|
||||
00209 15 FILLER PIC X(40) DTSIC036
|
||||
00210 VALUE 'OTHER'. DTSIC036
|
||||
00211 SKIP1 DTSIC036
|
||||
00212 10 FILLER REDEFINES C036-05-AREA. DTSIC036
|
||||
00213 15 C036-05-ENTRY OCCURS 25 TIMES DTSIC036
|
||||
00214 INDEXED BY C036-05-IDX. DTSIC036
|
||||
00215 20 C036-05-CD PIC X(02). DTSIC036
|
||||
00216 20 C036-05-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00217 20 C036-05-LONG-DSCR PIC X(40). DTSIC036
|
||||
00218 SKIP3 DTSIC036
|
||||
00219 ***** DTSIC036
|
||||
00220 * OPTION 06 = MAUR-MONEY-REASON-CD DTSIC036
|
||||
00221 ***** DTSIC036
|
||||
00222 10 C036-06-AREA. DTSIC036
|
||||
00223 15 FILLER PIC X(01) VALUE '0'. DTSIC036
|
||||
00224 15 FILLER PIC X(10) VALUE 'N/A'. DTSIC036
|
||||
00225 15 FILLER PIC X(40) DTSIC036
|
||||
00226 VALUE 'NOT APPLICABLE: DUE AMT = COLLECT AMT'. DTSIC036
|
||||
00227 15 FILLER PIC X(01) VALUE '1'. DTSIC036
|
||||
00228 15 FILLER PIC X(10) VALUE 'WAIVER '. DTSIC036
|
||||
00229 15 FILLER PIC X(40) DTSIC036
|
||||
00230 VALUE 'WAIVER GRANTED'. DTSIC036
|
||||
00231 15 FILLER PIC X(01) VALUE '2'. DTSIC036
|
||||
00232 15 FILLER PIC X(10) VALUE 'DPC SIGNED'. DTSIC036
|
||||
00233 15 FILLER PIC X(40) DTSIC036
|
||||
00234 VALUE 'DEFERRED PAYMENT CONTRACT SIGNED'. DTSIC036
|
||||
00235 15 FILLER PIC X(01) VALUE '3'. DTSIC036
|
||||
00236 15 FILLER PIC X(10) VALUE 'EMP REFUSE'. DTSIC036
|
||||
00237 15 FILLER PIC X(40) DTSIC036
|
||||
00238 VALUE 'EMP REFUSED TO SIGN AUDIT - WILL APPEAL'. DTSIC036
|
||||
00239 15 FILLER PIC X(01) VALUE '4'. DTSIC036
|
||||
00240 15 FILLER PIC X(10) VALUE 'REFUSE PAY'. DTSIC036
|
||||
00241 15 FILLER PIC X(40) DTSIC036
|
||||
00242 VALUE 'EMP REFUSED TO PAY'. DTSIC036
|
||||
00243 15 FILLER PIC X(01) VALUE '5'. DTSIC036
|
||||
00244 15 FILLER PIC X(10) VALUE 'REQ BILL'. DTSIC036
|
||||
00245 15 FILLER PIC X(40) DTSIC036
|
||||
00246 VALUE 'EMP REQUESTED BILL'. DTSIC036
|
||||
00247 15 FILLER PIC X(01) VALUE '8'. DTSIC036
|
||||
00248 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC036
|
||||
00249 15 FILLER PIC X(40) DTSIC036
|
||||
00250 VALUE 'OTHER'. DTSIC036
|
||||
00251 15 FILLER PIC X(01) VALUE '9'. DTSIC036
|
||||
00252 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC036
|
||||
00253 15 FILLER PIC X(40) DTSIC036
|
||||
00254 VALUE 'UNKNOWN'. DTSIC036
|
||||
00255 SKIP1 DTSIC036
|
||||
00256 10 FILLER REDEFINES C036-06-AREA. DTSIC036
|
||||
00257 15 C036-06-ENTRY OCCURS 8 TIMES DTSIC036
|
||||
00258 INDEXED BY C036-06-IDX. DTSIC036
|
||||
00259 20 C036-06-CD PIC X(01). DTSIC036
|
||||
00260 20 C036-06-SHORT-DSCR PIC X(10). DTSIC036
|
||||
00261 20 C036-06-LONG-DSCR PIC X(40). DTSIC036
|
||||
37
Copybook/DTSIC037.cpy
Normal file
37
Copybook/DTSIC037.cpy
Normal file
@ -0,0 +1,37 @@
|
||||
00001 ***** 11/04/98
|
||||
00002 * DTSIC037
|
||||
00003 * DTSIC037 MISCELLANEOULS CODES VALUES AND DESCRIPTIONS. LV003
|
||||
00004 * DTSIC037
|
||||
00005 ***** DTSIC037
|
||||
00006 SKIP1 DTSIC037
|
||||
00007 ***** DTSIC037
|
||||
00008 * OPTION 01 = MTCK-TYPE DTSIC037
|
||||
00009 ***** DTSIC037
|
||||
00010 10 C037-01-AREA. DTSIC037
|
||||
00011 15 FILLER PIC X(03) VALUE 'MAN'. DTSIC037
|
||||
00012 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC037
|
||||
00013 15 FILLER PIC X(40) DTSIC037
|
||||
00014 VALUE 'MANUAL'. DTSIC037
|
||||
00015 15 FILLER PIC X(03) VALUE 'ERA'. DTSIC037
|
||||
00016 15 FILLER PIC X(10) VALUE 'CYCLE A'. DTSIC037
|
||||
00017 15 FILLER PIC X(40) DTSIC037
|
||||
00018 VALUE 'EMPLOYER REGISTRATION CYCLE A'. DTSIC037
|
||||
00019 15 FILLER PIC X(03) VALUE 'L01'. DTSIC037
|
||||
00020 15 FILLER PIC X(10) VALUE 'LIEN FILE'. DTSIC037
|
||||
00021 15 FILLER PIC X(40) DTSIC037
|
||||
00022 VALUE 'LIEN FILING INFORMATION'. DTSIC037
|
||||
00023 15 FILLER PIC X(03) VALUE 'LTE'. DTSIC037
|
||||
00024 15 FILLER PIC X(10) VALUE 'LATE RPT'. DTSIC037
|
||||
00025 15 FILLER PIC X(40) DTSIC037
|
||||
00026 VALUE 'LATE REPORT ANALYSIS'. DTSIC037
|
||||
00027 15 FILLER PIC X(03) VALUE 'DPC'. DTSIC037
|
||||
00028 15 FILLER PIC X(10) VALUE 'PEND DPC'. DTSIC037
|
||||
00029 15 FILLER PIC X(40) DTSIC037
|
||||
00030 VALUE 'PENDING DEFERRED PAYMENT CONTRACT'. DTSIC037
|
||||
00031 SKIP1 DTSIC037
|
||||
00032 10 FILLER REDEFINES C037-01-AREA. DTSIC037
|
||||
00033 15 C037-01-ENTRY OCCURS 5 TIMES CL**3
|
||||
00034 INDEXED BY C037-01-IDX. DTSIC037
|
||||
00035 20 C037-01-CD PIC X(03). DTSIC037
|
||||
00036 20 C037-01-SHORT-DSCR PIC X(10). DTSIC037
|
||||
00037 20 C037-01-LONG-DSCR PIC X(40). DTSIC037
|
||||
193
Copybook/DTSIC038.cpy
Normal file
193
Copybook/DTSIC038.cpy
Normal file
@ -0,0 +1,193 @@
|
||||
00001 ***** 02/02/99
|
||||
00002 * DTSIC038
|
||||
00003 * DTSIC038 LMI CODES VALUES AND DESCRIPTIONS. LV004
|
||||
00004 * DTSIC038
|
||||
00005 * CL**2
|
||||
00006 * 02/02/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00007 * CL**2
|
||||
00008 ***** DTSIC038
|
||||
00009 CL**2
|
||||
00010 CL**2
|
||||
00011 ***** CL**2
|
||||
00012 * OPTION 01 = MPRF-SIC-AUXILIARY-CD CL**2
|
||||
00013 * CL**2
|
||||
00014 * OPTION 02 = MPRF-NAICS-AUXILIARY-CD CL**2
|
||||
00015 ***** CL**2
|
||||
00016 10 C038-01-02-AREA. CL**2
|
||||
00017 15 FILLER PIC X(01) VALUE '0'. CL**2
|
||||
00018 15 FILLER PIC X(10) VALUE 'UNKNOWN'. CL**2
|
||||
00019 15 FILLER PIC X(40) CL**2
|
||||
00020 VALUE 'UNKNOWN'. CL**2
|
||||
00021 15 FILLER PIC X(01) VALUE '1'. CL**2
|
||||
00022 15 FILLER PIC X(10) VALUE 'ADMIN'. CL**2
|
||||
00023 15 FILLER PIC X(40) CL**2
|
||||
00024 VALUE 'CENTRAL ADMINISTRATIVE OFFICE'. CL**2
|
||||
00025 15 FILLER PIC X(01) VALUE '2'. CL**2
|
||||
00026 15 FILLER PIC X(10) VALUE 'RESEARCH'. CL**2
|
||||
00027 15 FILLER PIC X(40) CL**2
|
||||
00028 VALUE 'RESEARCH, DEVELOPMENT, AND TESTING'. CL**2
|
||||
00029 15 FILLER PIC X(01) VALUE '3'. CL**2
|
||||
00030 15 FILLER PIC X(10) VALUE 'WAREHOUSE'. CL**2
|
||||
00031 15 FILLER PIC X(40) CL**2
|
||||
00032 VALUE 'STORAGE (WAREHOUSE)'. CL**2
|
||||
00033 15 FILLER PIC X(01) VALUE '5'. CL**2
|
||||
00034 15 FILLER PIC X(10) VALUE 'OPR ESTBL'. CL**2
|
||||
00035 15 FILLER PIC X(40) CL**2
|
||||
00036 VALUE 'NOT AN AUXILIARY UNIT'. CL**2
|
||||
00037 15 FILLER PIC X(01) VALUE '9'. CL**2
|
||||
00038 15 FILLER PIC X(10) VALUE 'OTHER'. CL**2
|
||||
00039 15 FILLER PIC X(40) CL**2
|
||||
00040 VALUE 'OTHER AUXILIARY'. CL**2
|
||||
00041 CL**2
|
||||
00042 10 FILLER REDEFINES C038-01-02-AREA. CL**2
|
||||
00043 15 C038-01-02-ENTRY OCCURS 6 TIMES CL**2
|
||||
00044 INDEXED BY C038-01-02-IDX. CL**2
|
||||
00045 20 C038-01-02-CD PIC X(01). CL**2
|
||||
00046 20 C038-01-02-SHORT-DSCR PIC X(10). CL**2
|
||||
00047 20 C038-01-02-LONG-DSCR PIC X(40). CL**2
|
||||
00048 CL**2
|
||||
00049 CL**2
|
||||
00050 ***** DTSIC038
|
||||
00051 * OPTION 03 = MPRF-OWN-CD CL**2
|
||||
00052 ***** DTSIC038
|
||||
00053 CL**2
|
||||
00054 10 C038-03-AREA. CL**2
|
||||
00055 15 FILLER PIC X(02) VALUE '10'. CL**2
|
||||
00056 15 FILLER PIC X(10) VALUE 'FED GOV'. CL**2
|
||||
00057 15 FILLER PIC X(40) DTSIC038
|
||||
00058 VALUE 'FEDERAL GOVERNMENT'. CL**2
|
||||
00059 15 FILLER PIC X(02) VALUE '20'. CL**2
|
||||
00060 15 FILLER PIC X(10) VALUE 'STATE GOV'. CL**2
|
||||
00061 15 FILLER PIC X(40) DTSIC038
|
||||
00062 VALUE 'STATE GOVERNMENT'. CL**2
|
||||
00063 15 FILLER PIC X(02) VALUE '30'. CL**2
|
||||
00064 15 FILLER PIC X(10) VALUE 'LOCAL GOV'. CL**2
|
||||
00065 15 FILLER PIC X(40) CL**2
|
||||
00066 VALUE 'LOCAL GOVERNMENT'. CL**2
|
||||
00067 15 FILLER PIC X(02) VALUE '40'. CL**2
|
||||
00068 15 FILLER PIC X(10) VALUE 'INTERNAT'. CL**2
|
||||
00069 15 FILLER PIC X(40) CL**2
|
||||
00070 VALUE 'INTERNATIONAL'. CL**2
|
||||
00071 15 FILLER PIC X(02) VALUE '50'. CL**2
|
||||
00072 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00073 15 FILLER PIC X(40) CL**2
|
||||
00074 VALUE 'PRIVATE'. CL**2
|
||||
00075 15 FILLER PIC X(02) VALUE '51'. CL**2
|
||||
00076 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00077 15 FILLER PIC X(40) CL**2
|
||||
00078 VALUE 'PRIVATE'. CL**2
|
||||
00079 15 FILLER PIC X(02) VALUE '52'. CL**2
|
||||
00080 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00081 15 FILLER PIC X(40) CL**2
|
||||
00082 VALUE 'PRIVATE'. CL**2
|
||||
00083 15 FILLER PIC X(02) VALUE '53'. CL**2
|
||||
00084 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00085 15 FILLER PIC X(40) CL**2
|
||||
00086 VALUE 'PRIVATE'. CL**2
|
||||
00087 15 FILLER PIC X(02) VALUE '54'. CL**2
|
||||
00088 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00089 15 FILLER PIC X(40) CL**2
|
||||
00090 VALUE 'PRIVATE'. CL**2
|
||||
00091 15 FILLER PIC X(02) VALUE '55'. CL**2
|
||||
00092 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00093 15 FILLER PIC X(40) CL**2
|
||||
00094 VALUE 'PRIVATE'. CL**2
|
||||
00095 15 FILLER PIC X(02) VALUE '56'. CL**2
|
||||
00096 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00097 15 FILLER PIC X(40) CL**2
|
||||
00098 VALUE 'PRIVATE'. CL**2
|
||||
00099 15 FILLER PIC X(02) VALUE '57'. CL**2
|
||||
00100 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00101 15 FILLER PIC X(40) CL**2
|
||||
00102 VALUE 'PRIVATE'. CL**2
|
||||
00103 15 FILLER PIC X(02) VALUE '58'. CL**2
|
||||
00104 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00105 15 FILLER PIC X(40) CL**2
|
||||
00106 VALUE 'PRIVATE'. CL**2
|
||||
00107 15 FILLER PIC X(02) VALUE '59'. CL**2
|
||||
00108 15 FILLER PIC X(10) VALUE 'PRIVATE'. CL**2
|
||||
00109 15 FILLER PIC X(40) CL**2
|
||||
00110 VALUE 'PRIVATE'. CL**2
|
||||
00111 15 FILLER PIC X(02) VALUE '99'. CL**4
|
||||
00112 15 FILLER PIC X(10) VALUE 'NOT DETRM'. CL**4
|
||||
00113 15 FILLER PIC X(40) CL**4
|
||||
00114 VALUE 'NOT DETERMINED'. CL**4
|
||||
00115 CL**2
|
||||
00116 10 FILLER REDEFINES C038-03-AREA. CL**2
|
||||
00117 15 C038-03-ENTRY OCCURS 15 TIMES CL**4
|
||||
00118 INDEXED BY C038-03-IDX. CL**2
|
||||
00119 20 C038-03-CD PIC X(02). CL**2
|
||||
00120 20 C038-03-SHORT-DSCR PIC X(10). CL**2
|
||||
00121 20 C038-03-LONG-DSCR PIC X(40). CL**2
|
||||
00122 CL**2
|
||||
00123 CL**2
|
||||
00124 ***** CL**2
|
||||
00125 * OPTION 04 = MPRF-MULTI-IND CL**2
|
||||
00126 ***** CL**2
|
||||
00127 CL**2
|
||||
00128 10 C038-04-AREA. CL**2
|
||||
00129 15 FILLER PIC X(01) VALUE 'N'. CL**2
|
||||
00130 15 FILLER PIC X(10) VALUE 'SINGLE'. CL**2
|
||||
00131 15 FILLER PIC X(40) CL**2
|
||||
00132 VALUE 'SINGLE UNIT'. CL**2
|
||||
00133 15 FILLER PIC X(01) VALUE 'Y'. CL**2
|
||||
00134 15 FILLER PIC X(10) VALUE 'MULTIPLE'. CL**2
|
||||
00135 15 FILLER PIC X(40) CL**2
|
||||
00136 VALUE 'MULTIPLE ESTABLISHMENTS'. CL**2
|
||||
00137 CL**2
|
||||
00138 10 FILLER REDEFINES C038-04-AREA. CL**2
|
||||
00139 15 C038-04-ENTRY OCCURS 2 TIMES CL**2
|
||||
00140 INDEXED BY C038-04-IDX. CL**2
|
||||
00141 20 C038-04-CD PIC X(01). CL**2
|
||||
00142 20 C038-04-SHORT-DSCR PIC X(10). CL**2
|
||||
00143 20 C038-04-LONG-DSCR PIC X(40). CL**2
|
||||
00144 CL**2
|
||||
00145 CL**2
|
||||
00146 ***** CL**2
|
||||
00147 * OPTION 05 = MPRF-WARD-CD CL**2
|
||||
00148 ***** CL**2
|
||||
00149 CL**2
|
||||
00150 10 C038-05-AREA. CL**2
|
||||
00151 15 FILLER PIC X(02) VALUE '00'. CL**2
|
||||
00152 15 FILLER PIC X(10) VALUE 'UNKNOWN'. CL**2
|
||||
00153 15 FILLER PIC X(40) CL**2
|
||||
00154 VALUE 'UNKNOWN'. CL**2
|
||||
00155 15 FILLER PIC X(02) VALUE '01'. CL**2
|
||||
00156 15 FILLER PIC X(10) VALUE '1ST WARD'. CL**2
|
||||
00157 15 FILLER PIC X(40) CL**2
|
||||
00158 VALUE 'FIRST WARD'. CL**2
|
||||
00159 15 FILLER PIC X(02) VALUE '02'. CL**2
|
||||
00160 15 FILLER PIC X(10) VALUE '2ND WARD'. CL**2
|
||||
00161 15 FILLER PIC X(40) CL**2
|
||||
00162 VALUE 'SECOND WARD'. CL**2
|
||||
00163 15 FILLER PIC X(02) VALUE '03'. CL**2
|
||||
00164 15 FILLER PIC X(10) VALUE '3RD WARD'. CL**2
|
||||
00165 15 FILLER PIC X(40) CL**2
|
||||
00166 VALUE 'THIRD WARD'. CL**2
|
||||
00167 15 FILLER PIC X(02) VALUE '04'. CL**2
|
||||
00168 15 FILLER PIC X(10) VALUE '4TH WARD'. CL**2
|
||||
00169 15 FILLER PIC X(40) CL**2
|
||||
00170 VALUE 'FOURTH WARD'. CL**2
|
||||
00171 15 FILLER PIC X(02) VALUE '05'. CL**2
|
||||
00172 15 FILLER PIC X(10) VALUE '5TH WARD'. CL**2
|
||||
00173 15 FILLER PIC X(40) CL**2
|
||||
00174 VALUE 'FIFTH WARD'. CL**2
|
||||
00175 15 FILLER PIC X(02) VALUE '06'. CL**2
|
||||
00176 15 FILLER PIC X(10) VALUE '6TH WARD'. CL**2
|
||||
00177 15 FILLER PIC X(40) CL**2
|
||||
00178 VALUE 'SIXTH WARD'. CL**2
|
||||
00179 15 FILLER PIC X(02) VALUE '07'. CL**2
|
||||
00180 15 FILLER PIC X(10) VALUE '7TH WARD'. CL**2
|
||||
00181 15 FILLER PIC X(40) CL**2
|
||||
00182 VALUE 'SEVENTH WARD'. CL**2
|
||||
00183 15 FILLER PIC X(02) VALUE '08'. CL**2
|
||||
00184 15 FILLER PIC X(10) VALUE '8TH WARD'. CL**2
|
||||
00185 15 FILLER PIC X(40) CL**2
|
||||
00186 VALUE 'EIGTH WARD'. CL**2
|
||||
00187 CL**2
|
||||
00188 10 FILLER REDEFINES C038-05-AREA. CL**2
|
||||
00189 15 C038-05-ENTRY OCCURS 9 TIMES CL**2
|
||||
00190 INDEXED BY C038-05-IDX. CL**3
|
||||
00191 20 C038-05-CD PIC X(02). CL**2
|
||||
00192 20 C038-05-SHORT-DSCR PIC X(10). CL**2
|
||||
00193 20 C038-05-LONG-DSCR PIC X(40). CL**2
|
||||
165
Copybook/DTSIC041.cpy
Normal file
165
Copybook/DTSIC041.cpy
Normal file
@ -0,0 +1,165 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIC041
|
||||
00003 * DTSIC041 ELECTRONIC FILER CODES VALUES LV001
|
||||
00004 * AND DESCRIPTIONS. DTSIC041
|
||||
00005 * DTSIC041
|
||||
00006 ***** DTSIC041
|
||||
00007 SKIP1 DTSIC041
|
||||
00008 ***** DTSIC041
|
||||
00009 * OPTION 01 = EPRF-DATA-TYPE-CD DTSIC041
|
||||
00010 ***** DTSIC041
|
||||
00011 10 C041-01-AREA. DTSIC041
|
||||
00012 15 FILLER PIC X(02) VALUE '01'. DTSIC041
|
||||
00013 15 FILLER PIC X(10) VALUE 'PRINT UC30'. DTSIC041
|
||||
00014 15 FILLER PIC X(40) DTSIC041
|
||||
00015 VALUE 'PRINT UC-30 FOR EMPLOYER '. DTSIC041
|
||||
00016 15 FILLER PIC X(02) VALUE '02'. DTSIC041
|
||||
00017 15 FILLER PIC X(10) VALUE 'BEN CHARGE'. DTSIC041
|
||||
00018 15 FILLER PIC X(40) DTSIC041
|
||||
00019 VALUE 'PROVIDE BENEFIT CHARGE DATA TO EMPLOYERS'. DTSIC041
|
||||
00020 15 FILLER PIC X(02) VALUE '03'. DTSIC041
|
||||
00021 15 FILLER PIC X(10) VALUE 'WAGE '. DTSIC041
|
||||
00022 15 FILLER PIC X(40) DTSIC041
|
||||
00023 VALUE 'QUARTERLY WAGE DETAIL '. DTSIC041
|
||||
00024 15 FILLER PIC X(02) VALUE '04'. DTSIC041
|
||||
00025 15 FILLER PIC X(10) VALUE 'QTRLY FEIN'. DTSIC041
|
||||
00026 15 FILLER PIC X(40) DTSIC041
|
||||
00027 VALUE 'IRS QUARTERLY FEIN CROSSMATCH '. DTSIC041
|
||||
00028 15 FILLER PIC X(02) VALUE '05'. DTSIC041
|
||||
00029 15 FILLER PIC X(10) VALUE 'IRS 940 '. DTSIC041
|
||||
00030 15 FILLER PIC X(40) DTSIC041
|
||||
00031 VALUE 'IRS ANNUAL 940 CERTIFICATION '. DTSIC041
|
||||
00032 15 FILLER PIC X(02) VALUE '06'. DTSIC041
|
||||
00033 15 FILLER PIC X(10) VALUE 'IRS WEEKLY'. DTSIC041
|
||||
00034 15 FILLER PIC X(40) DTSIC041
|
||||
00035 VALUE 'IRS WEEKLY CROSSMATCH '. DTSIC041
|
||||
00036 15 FILLER PIC X(02) VALUE '07'. DTSIC041
|
||||
00037 15 FILLER PIC X(10) VALUE 'RR RETIRE '. DTSIC041
|
||||
00038 15 FILLER PIC X(40) DTSIC041
|
||||
00039 VALUE 'RAILROAD RETIREMENT '. DTSIC041
|
||||
00040 15 FILLER PIC X(02) VALUE '08'. DTSIC041
|
||||
00041 15 FILLER PIC X(10) VALUE 'RECON OUT '. DTSIC041
|
||||
00042 15 FILLER PIC X(40) DTSIC041
|
||||
00043 VALUE 'BANK RECON: TO BANK '. DTSIC041
|
||||
00044 15 FILLER PIC X(02) VALUE '09'. DTSIC041
|
||||
00045 15 FILLER PIC X(10) VALUE 'RECON IN '. DTSIC041
|
||||
00046 15 FILLER PIC X(40) DTSIC041
|
||||
00047 VALUE 'BANK RECON: FROM BANK '. DTSIC041
|
||||
00048 15 FILLER PIC X(02) VALUE '10'. DTSIC041
|
||||
00049 15 FILLER PIC X(10) VALUE '1099 '. DTSIC041
|
||||
00050 15 FILLER PIC X(40) DTSIC041
|
||||
00051 VALUE 'BENEFITS 1099 '. DTSIC041
|
||||
00052 15 FILLER PIC X(02) VALUE '99'. DTSIC041
|
||||
00053 15 FILLER PIC X(10) VALUE 'UNKNOWN '. DTSIC041
|
||||
00054 15 FILLER PIC X(40) DTSIC041
|
||||
00055 VALUE 'UNKNOWN DATA TYPE '. DTSIC041
|
||||
00056 SKIP1 DTSIC041
|
||||
00057 10 FILLER REDEFINES C041-01-AREA. DTSIC041
|
||||
00058 15 C041-01-ENTRY OCCURS 11 TIMES DTSIC041
|
||||
00059 INDEXED BY C041-01-IDX. DTSIC041
|
||||
00060 20 C041-01-CD PIC X(02). DTSIC041
|
||||
00061 20 C041-01-SHORT-DSCR PIC X(10). DTSIC041
|
||||
00062 20 C041-01-LONG-DSCR PIC X(40). DTSIC041
|
||||
00063 SKIP3 DTSIC041
|
||||
00064 ***** DTSIC041
|
||||
00065 * OPTION 02 = EPRF-MEDIUM-TYPE-CD DTSIC041
|
||||
00066 ***** DTSIC041
|
||||
00067 10 C041-02-AREA. DTSIC041
|
||||
00068 15 FILLER PIC X(02) VALUE 'CS'. DTSIC041
|
||||
00069 15 FILLER PIC X(10) VALUE 'CART SL '. DTSIC041
|
||||
00070 15 FILLER PIC X(40) DTSIC041
|
||||
00071 VALUE 'CARTRIDGE - STANDARD LABEL '. DTSIC041
|
||||
00072 15 FILLER PIC X(02) VALUE 'CN'. DTSIC041
|
||||
00073 15 FILLER PIC X(10) VALUE 'CART NL '. DTSIC041
|
||||
00074 15 FILLER PIC X(40) DTSIC041
|
||||
00075 VALUE 'CARTRIDGE - NO LABEL '. DTSIC041
|
||||
00076 15 FILLER PIC X(02) VALUE 'RS'. DTSIC041
|
||||
00077 15 FILLER PIC X(10) VALUE 'REEL SL '. DTSIC041
|
||||
00078 15 FILLER PIC X(40) DTSIC041
|
||||
00079 VALUE 'REEL - STANDARD LABEL '. DTSIC041
|
||||
00080 15 FILLER PIC X(02) VALUE 'RN'. DTSIC041
|
||||
00081 15 FILLER PIC X(10) VALUE 'REEL NL '. DTSIC041
|
||||
00082 15 FILLER PIC X(40) DTSIC041
|
||||
00083 VALUE 'REEL - NO LABEL '. DTSIC041
|
||||
00084 15 FILLER PIC X(02) VALUE 'DK'. DTSIC041
|
||||
00085 15 FILLER PIC X(10) VALUE 'DISKETTE '. DTSIC041
|
||||
00086 15 FILLER PIC X(40) DTSIC041
|
||||
00087 VALUE 'DISKETTE '. DTSIC041
|
||||
00088 15 FILLER PIC X(02) VALUE 'EM'. DTSIC041
|
||||
00089 15 FILLER PIC X(10) VALUE 'E-MAIL '. DTSIC041
|
||||
00090 15 FILLER PIC X(40) DTSIC041
|
||||
00091 VALUE 'E-MAIL '. DTSIC041
|
||||
00092 15 FILLER PIC X(02) VALUE 'FT'. DTSIC041
|
||||
00093 15 FILLER PIC X(10) VALUE 'FTP '. DTSIC041
|
||||
00094 15 FILLER PIC X(40) DTSIC041
|
||||
00095 VALUE 'FILE TRANSFER PROTOCOL '. DTSIC041
|
||||
00096 15 FILLER PIC X(02) VALUE 'WB'. DTSIC041
|
||||
00097 15 FILLER PIC X(10) VALUE 'WEB '. DTSIC041
|
||||
00098 15 FILLER PIC X(40) DTSIC041
|
||||
00099 VALUE 'WORLD WIDE WEB '. DTSIC041
|
||||
00100 15 FILLER PIC X(02) VALUE 'VR'. DTSIC041
|
||||
00101 15 FILLER PIC X(10) VALUE 'IVR '. DTSIC041
|
||||
00102 15 FILLER PIC X(40) DTSIC041
|
||||
00103 VALUE 'INTERACTIVE VOICE RESPONSE '. DTSIC041
|
||||
00104 SKIP1 DTSIC041
|
||||
00105 10 FILLER REDEFINES C041-02-AREA. DTSIC041
|
||||
00106 15 C041-02-ENTRY OCCURS 9 TIMES DTSIC041
|
||||
00107 INDEXED BY C041-02-IDX. DTSIC041
|
||||
00108 20 C041-02-CD PIC X(02). DTSIC041
|
||||
00109 20 C041-02-SHORT-DSCR PIC X(10). DTSIC041
|
||||
00110 20 C041-02-LONG-DSCR PIC X(40). DTSIC041
|
||||
00111 SKIP3 DTSIC041
|
||||
00112 ***** DTSIC041
|
||||
00113 * OPTION 03 = EPRF-FORMAT-CD DTSIC041
|
||||
00114 ***** DTSIC041
|
||||
00115 10 C041-03-AREA. DTSIC041
|
||||
00116 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC041
|
||||
00117 15 FILLER PIC X(10) VALUE 'DC REG '. DTSIC041
|
||||
00118 15 FILLER PIC X(40) DTSIC041
|
||||
00119 VALUE 'DC REGULAR FORMAT '. DTSIC041
|
||||
00120 15 FILLER PIC X(03) VALUE 'DCG'. DTSIC041
|
||||
00121 15 FILLER PIC X(10) VALUE 'DC GOV '. DTSIC041
|
||||
00122 15 FILLER PIC X(40) DTSIC041
|
||||
00123 VALUE 'DC GOVERNMENT FORMAT '. DTSIC041
|
||||
00124 15 FILLER PIC X(03) VALUE 'IC5'. DTSIC041
|
||||
00125 15 FILLER PIC X(10) VALUE 'ICESA275 '. DTSIC041
|
||||
00126 15 FILLER PIC X(40) DTSIC041
|
||||
00127 VALUE 'ICESA 275 BYTE FORMAT '. DTSIC041
|
||||
00128 15 FILLER PIC X(03) VALUE 'IC6'. DTSIC041
|
||||
00129 15 FILLER PIC X(10) VALUE 'ICESA276 '. DTSIC041
|
||||
00130 15 FILLER PIC X(40) DTSIC041
|
||||
00131 VALUE 'ICESA 276 BYTE FORMAT '. DTSIC041
|
||||
00132 15 FILLER PIC X(03) VALUE ' '. DTSIC041
|
||||
00133 15 FILLER PIC X(10) VALUE 'INAPPLICBL'. DTSIC041
|
||||
00134 15 FILLER PIC X(40) DTSIC041
|
||||
00135 VALUE 'INAPPLICABLE '. DTSIC041
|
||||
00136 SKIP1 DTSIC041
|
||||
00137 10 FILLER REDEFINES C041-03-AREA. DTSIC041
|
||||
00138 15 C041-03-ENTRY OCCURS 05 TIMES DTSIC041
|
||||
00139 INDEXED BY C041-03-IDX. DTSIC041
|
||||
00140 20 C041-03-CD PIC X(03). DTSIC041
|
||||
00141 20 C041-03-SHORT-DSCR PIC X(10). DTSIC041
|
||||
00142 20 C041-03-LONG-DSCR PIC X(40). DTSIC041
|
||||
00143 ***** DTSIC041
|
||||
00144 * OPTION 11 = EEMH-RESULT-CD DTSIC041
|
||||
00145 ***** DTSIC041
|
||||
00146 10 C041-11-AREA. DTSIC041
|
||||
00147 15 FILLER PIC X(02) VALUE '01'. DTSIC041
|
||||
00148 15 FILLER PIC X(10) VALUE 'FAILED '. DTSIC041
|
||||
00149 15 FILLER PIC X(40) DTSIC041
|
||||
00150 VALUE 'FAILED EDITS '. DTSIC041
|
||||
00151 15 FILLER PIC X(02) VALUE '03'. DTSIC041
|
||||
00152 15 FILLER PIC X(10) VALUE 'ERRORS '. DTSIC041
|
||||
00153 15 FILLER PIC X(40) DTSIC041
|
||||
00154 VALUE 'PARTIALLY SUCESSFUL - ERRORS FOUND '. DTSIC041
|
||||
00155 15 FILLER PIC X(02) VALUE '04'. DTSIC041
|
||||
00156 15 FILLER PIC X(10) VALUE 'SUCCESSFUL'. DTSIC041
|
||||
00157 15 FILLER PIC X(40) DTSIC041
|
||||
00158 VALUE 'SUCCESSFUL '. DTSIC041
|
||||
00159 SKIP1 DTSIC041
|
||||
00160 10 FILLER REDEFINES C041-11-AREA. DTSIC041
|
||||
00161 15 C041-11-ENTRY OCCURS 03 TIMES DTSIC041
|
||||
00162 INDEXED BY C041-11-IDX. DTSIC041
|
||||
00163 20 C041-11-CD PIC X(02). DTSIC041
|
||||
00164 20 C041-11-SHORT-DSCR PIC X(10). DTSIC041
|
||||
00165 20 C041-11-LONG-DSCR PIC X(40). DTSIC041
|
||||
130
Copybook/DTSIC042.cpy
Normal file
130
Copybook/DTSIC042.cpy
Normal file
@ -0,0 +1,130 @@
|
||||
00001 ***** 01/29/02
|
||||
00002 * DTSIC042
|
||||
00003 * DTSIC042 FILING SCHEDULE CODES VALUES AND DESCRIPTIONS. LV001
|
||||
00004 * DTSIC042
|
||||
00005 ***** DTSIC042
|
||||
00006 SKIP1 DTSIC042
|
||||
00007 ***** DTSIC042
|
||||
00008 * OPTION 01 = MFSC-STATUS-CD DTSIC042
|
||||
00009 ***** DTSIC042
|
||||
00010 10 C042-01-AREA. DTSIC042
|
||||
00011 15 FILLER PIC X(01) VALUE 'P'. DTSIC042
|
||||
00012 15 FILLER PIC X(10) VALUE 'PENDING '. DTSIC042
|
||||
00013 15 FILLER PIC X(40) DTSIC042
|
||||
00014 VALUE 'PENDING - EMP REQUEST OR 1C '. DTSIC042
|
||||
00015 15 FILLER PIC X(01) VALUE 'A'. DTSIC042
|
||||
00016 15 FILLER PIC X(10) VALUE 'PENDING 1A'. DTSIC042
|
||||
00017 15 FILLER PIC X(40) DTSIC042
|
||||
00018 VALUE 'PENDING - POTENTIAL HOUSEHOLD '. DTSIC042
|
||||
00019 15 FILLER PIC X(01) VALUE 'O'. DTSIC042
|
||||
00020 15 FILLER PIC X(10) VALUE 'OPEN '. DTSIC042
|
||||
00021 15 FILLER PIC X(40) DTSIC042
|
||||
00022 VALUE 'OPEN '. DTSIC042
|
||||
00023 15 FILLER PIC X(01) VALUE 'W'. DTSIC042
|
||||
00024 15 FILLER PIC X(10) VALUE 'WITHDRAWN '. DTSIC042
|
||||
00025 15 FILLER PIC X(40) DTSIC042
|
||||
00026 VALUE 'WITHDRAWN '. DTSIC042
|
||||
00027 SKIP1 DTSIC042
|
||||
00028 10 FILLER REDEFINES C042-01-AREA. DTSIC042
|
||||
00029 15 C042-01-ENTRY OCCURS 4 TIMES DTSIC042
|
||||
00030 INDEXED BY C042-01-IDX. DTSIC042
|
||||
00031 20 C042-01-CD PIC X(01). DTSIC042
|
||||
00032 20 C042-01-SHORT-DSCR PIC X(10). DTSIC042
|
||||
00033 20 C042-01-LONG-DSCR PIC X(40). DTSIC042
|
||||
00034 SKIP3 DTSIC042
|
||||
00035 ***** DTSIC042
|
||||
00036 * OPTION 02 = MFSC-FILING-SCHEDULE-CD DTSIC042
|
||||
00037 ***** DTSIC042
|
||||
00038 10 C042-02-AREA. DTSIC042
|
||||
00039 15 FILLER PIC X(01) VALUE 'Q'. DTSIC042
|
||||
00040 15 FILLER PIC X(10) VALUE 'QUARTERLY '. DTSIC042
|
||||
00041 15 FILLER PIC X(40) DTSIC042
|
||||
00042 VALUE 'QUARTERLY '. DTSIC042
|
||||
00043 15 FILLER PIC X(01) VALUE 'A'. DTSIC042
|
||||
00044 15 FILLER PIC X(10) VALUE 'ANNUAL '. DTSIC042
|
||||
00045 15 FILLER PIC X(40) DTSIC042
|
||||
00046 VALUE 'ANNUAL '. DTSIC042
|
||||
00047 SKIP1 DTSIC042
|
||||
00048 10 FILLER REDEFINES C042-02-AREA. DTSIC042
|
||||
00049 15 C042-02-ENTRY OCCURS 2 TIMES DTSIC042
|
||||
00050 INDEXED BY C042-02-IDX. DTSIC042
|
||||
00051 20 C042-02-CD PIC X(01). DTSIC042
|
||||
00052 20 C042-02-SHORT-DSCR PIC X(10). DTSIC042
|
||||
00053 20 C042-02-LONG-DSCR PIC X(40). DTSIC042
|
||||
00054 SKIP3 DTSIC042
|
||||
00055 ***** DTSIC042
|
||||
00056 * OPTION 03 = MFSC-REQUEST-TYPE-CD DTSIC042
|
||||
00057 ***** DTSIC042
|
||||
00058 10 C042-03-AREA. DTSIC042
|
||||
00059 15 FILLER PIC X(02) VALUE '01'. DTSIC042
|
||||
00060 15 FILLER PIC X(10) VALUE 'LIAB DETRM'. DTSIC042
|
||||
00061 15 FILLER PIC X(40) DTSIC042
|
||||
00062 VALUE 'LIABILITY DETERMINATION '. DTSIC042
|
||||
00063 15 FILLER PIC X(02) VALUE '02'. DTSIC042
|
||||
00064 15 FILLER PIC X(10) VALUE 'EMP REQUST'. DTSIC042
|
||||
00065 15 FILLER PIC X(40) DTSIC042
|
||||
00066 VALUE 'EMPLOYER REQUEST '. DTSIC042
|
||||
00067 15 FILLER PIC X(02) VALUE '03'. DTSIC042
|
||||
00068 15 FILLER PIC X(10) VALUE 'ADMIN '. DTSIC042
|
||||
00069 15 FILLER PIC X(40) DTSIC042
|
||||
00070 VALUE 'ADMINISTRATIVE '. DTSIC042
|
||||
00071 15 FILLER PIC X(02) VALUE '04'. DTSIC042
|
||||
00072 15 FILLER PIC X(10) VALUE 'ORG TYPE '. DTSIC042
|
||||
00073 15 FILLER PIC X(40) DTSIC042
|
||||
00074 VALUE 'ORGANIZATION TYPE CHANGE '. DTSIC042
|
||||
00075 15 FILLER PIC X(02) VALUE '09'. DTSIC042
|
||||
00076 15 FILLER PIC X(10) VALUE 'CONVERSION'. DTSIC042
|
||||
00077 15 FILLER PIC X(40) DTSIC042
|
||||
00078 VALUE 'CONVERSION '. DTSIC042
|
||||
00079 SKIP1 DTSIC042
|
||||
00080 10 FILLER REDEFINES C042-03-AREA. DTSIC042
|
||||
00081 15 C042-03-ENTRY OCCURS 5 TIMES DTSIC042
|
||||
00082 INDEXED BY C042-03-IDX. DTSIC042
|
||||
00083 20 C042-03-CD PIC X(02). DTSIC042
|
||||
00084 20 C042-03-SHORT-DSCR PIC X(10). DTSIC042
|
||||
00085 20 C042-03-LONG-DSCR PIC X(40). DTSIC042
|
||||
00086 SKIP1 DTSIC042
|
||||
00087 ***** DTSIC042
|
||||
00088 * OPTION 05 = MFSC-INIT-NOTICE-TYPE DTSIC042
|
||||
00089 ***** DTSIC042
|
||||
00090 10 C042-05-AREA. DTSIC042
|
||||
00091 15 FILLER PIC X(01) VALUE '0'. DTSIC042
|
||||
00092 15 FILLER PIC X(10) VALUE 'POTENTIAL '. DTSIC042
|
||||
00093 15 FILLER PIC X(40) DTSIC042
|
||||
00094 VALUE 'POTENTIAL HOUSEHOLD EMPLOYER (1A) '. DTSIC042
|
||||
00095 15 FILLER PIC X(01) VALUE '1'. DTSIC042
|
||||
00096 15 FILLER PIC X(10) VALUE 'REQUEST '. DTSIC042
|
||||
00097 15 FILLER PIC X(40) DTSIC042
|
||||
00098 VALUE 'EMPLOYER REQUESTED CHANGE '. DTSIC042
|
||||
00099 15 FILLER PIC X(01) VALUE '9'. DTSIC042
|
||||
00100 15 FILLER PIC X(10) VALUE 'CONVERSION'. DTSIC042
|
||||
00101 15 FILLER PIC X(40) DTSIC042
|
||||
00102 VALUE 'CONVERSION '. DTSIC042
|
||||
00103 SKIP1 DTSIC042
|
||||
00104 10 FILLER REDEFINES C042-05-AREA. DTSIC042
|
||||
00105 15 C042-05-ENTRY OCCURS 3 TIMES DTSIC042
|
||||
00106 INDEXED BY C042-05-IDX. DTSIC042
|
||||
00107 20 C042-05-CD PIC X(01). DTSIC042
|
||||
00108 20 C042-05-SHORT-DSCR PIC X(10). DTSIC042
|
||||
00109 20 C042-05-LONG-DSCR PIC X(40). DTSIC042
|
||||
00110 SKIP1 DTSIC042
|
||||
00111 ***** DTSIC042
|
||||
00112 * OPTION 06 = MFSC-CONF-NOTICE-TYPE DTSIC042
|
||||
00113 ***** DTSIC042
|
||||
00114 10 C042-06-AREA. DTSIC042
|
||||
00115 15 FILLER PIC X(01) VALUE '0'. DTSIC042
|
||||
00116 15 FILLER PIC X(10) VALUE 'CONFRM QTR'. DTSIC042
|
||||
00117 15 FILLER PIC X(40) DTSIC042
|
||||
00118 VALUE 'CONFIRM QUARTERLY FILING '. DTSIC042
|
||||
00119 15 FILLER PIC X(01) VALUE '1'. DTSIC042
|
||||
00120 15 FILLER PIC X(10) VALUE 'CONFRM ANN'. DTSIC042
|
||||
00121 15 FILLER PIC X(40) DTSIC042
|
||||
00122 VALUE 'CONFIRM ANNUAL FILING '. DTSIC042
|
||||
00123 SKIP1 DTSIC042
|
||||
00124 10 FILLER REDEFINES C042-06-AREA. DTSIC042
|
||||
00125 15 C042-06-ENTRY OCCURS 2 TIMES DTSIC042
|
||||
00126 INDEXED BY C042-06-IDX. DTSIC042
|
||||
00127 20 C042-06-CD PIC X(01). DTSIC042
|
||||
00128 20 C042-06-SHORT-DSCR PIC X(10). DTSIC042
|
||||
00129 20 C042-06-LONG-DSCR PIC X(40). DTSIC042
|
||||
00130 SKIP1 DTSIC042
|
||||
514
Copybook/DTSIC058.cpy
Normal file
514
Copybook/DTSIC058.cpy
Normal file
@ -0,0 +1,514 @@
|
||||
00001 * 05/24/00
|
||||
00002 *********************** DTSIC058
|
||||
00003 * RATE TABLE I * LV001
|
||||
00004 *********************** DTSIC058
|
||||
00005 01 RATE-TABLE. DTSIC058
|
||||
00006 05 TABLE-OCCURRENCE-COUNTS. DTSIC058
|
||||
00007 07 RATE-TABLE-I-CNT PIC S9(04) COMP VALUE +17. DTSIC058
|
||||
00008 07 RATE-TABLE-II-CNT PIC S9(04) COMP VALUE +17. DTSIC058
|
||||
00009 07 RATE-TABLE-III-CNT PIC S9(04) COMP VALUE +17. DTSIC058
|
||||
00010 07 RATE-TABLE-IV-CNT PIC S9(04) COMP VALUE +17. DTSIC058
|
||||
00011 07 RATE-TABLE-V-CNT PIC S9(04) COMP VALUE +17. DTSIC058
|
||||
00012 07 RATE-TABLE-VI-CNT PIC S9(04) COMP VALUE +17. DTSIC058
|
||||
00013 05 RATE-TABLE-I. DTSIC058
|
||||
00014 07 RATE-TABLE-I1. DTSIC058
|
||||
00015 10 RATE-I1 PIC S9(1)V9(4) COMP-3 VALUE +0.0010. DTSIC058
|
||||
00016 10 MIN-I1 PIC S9(2)V9(5) COMP-3 VALUE +00.08000. DTSIC058
|
||||
00017 10 MAX-I1 PIC S9(2)V9(5) COMP-3 VALUE +00.99999. DTSIC058
|
||||
00018 07 RATE-TABLE-I2. DTSIC058
|
||||
00019 10 RATE-I2 PIC S9(1)V9(4) COMP-3 VALUE +0.0020. DTSIC058
|
||||
00020 10 MIN-I2 PIC S9(2)V9(5) COMP-3 VALUE +00.07500. DTSIC058
|
||||
00021 10 MAX-I2 PIC S9(2)V9(5) COMP-3 VALUE +00.07999. DTSIC058
|
||||
00022 07 RATE-TABLE-I3. DTSIC058
|
||||
00023 10 RATE-I3 PIC S9(1)V9(4) COMP-3 VALUE +0.0050. DTSIC058
|
||||
00024 10 MIN-I3 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00025 10 MAX-I3 PIC S9(2)V9(5) COMP-3 VALUE +00.07499. DTSIC058
|
||||
00026 07 RATE-TABLE-I4. DTSIC058
|
||||
00027 10 RATE-I4 PIC S9(1)V9(4) COMP-3 VALUE +0.0080. DTSIC058
|
||||
00028 10 MIN-I4 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00029 10 MAX-I4 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00030 07 RATE-TABLE-I5. DTSIC058
|
||||
00031 10 RATE-I5 PIC S9(1)V9(4) COMP-3 VALUE +0.0110. DTSIC058
|
||||
00032 10 MIN-I5 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00033 10 MAX-I5 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00034 07 RATE-TABLE-I6. DTSIC058
|
||||
00035 10 RATE-I6 PIC S9(1)V9(4) COMP-3 VALUE +0.0140. DTSIC058
|
||||
00036 10 MIN-I6 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00037 10 MAX-I6 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00038 07 RATE-TABLE-I7. DTSIC058
|
||||
00039 10 RATE-I7 PIC S9(1)V9(4) COMP-3 VALUE +0.0170. DTSIC058
|
||||
00040 10 MIN-I7 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00041 10 MAX-I7 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00042 07 RATE-TABLE-I8. DTSIC058
|
||||
00043 10 RATE-I8 PIC S9(1)V9(4) COMP-3 VALUE +0.0200. DTSIC058
|
||||
00044 10 MIN-I8 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00045 10 MAX-I8 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00046 07 RATE-TABLE-I9. DTSIC058
|
||||
00047 10 RATE-I9 PIC S9(1)V9(4) COMP-3 VALUE +0.0230. DTSIC058
|
||||
00048 10 MIN-I9 PIC S9(2)V9(5) COMP-3 VALUE +00.0400. DTSIC058
|
||||
00049 10 MAX-I9 PIC S9(2)V9(5) COMP-3 VALUE +00.0450. DTSIC058
|
||||
00050 07 RATE-TABLE-I10. DTSIC058
|
||||
00051 10 RATE-I10 PIC S9(1)V9(4) COMP-3 VALUE +0.0260. DTSIC058
|
||||
00052 10 MIN-I10 PIC S9(2)V9(5) COMP-3 VALUE +00.0300. DTSIC058
|
||||
00053 10 MAX-I10 PIC S9(2)V9(5) COMP-3 VALUE +00.0400. DTSIC058
|
||||
00054 07 RATE-TABLE-I11. DTSIC058
|
||||
00055 10 RATE-I11 PIC S9(1)V9(4) COMP-3 VALUE +0.0290. DTSIC058
|
||||
00056 10 MIN-I11 PIC S9(2)V9(5) COMP-3 VALUE +00.0150. DTSIC058
|
||||
00057 10 MAX-I11 PIC S9(2)V9(5) COMP-3 VALUE +00.0300. DTSIC058
|
||||
00058 07 RATE-TABLE-I12. DTSIC058
|
||||
00059 10 RATE-I12 PIC S9(1)V9(4) COMP-3 VALUE +0.0320. DTSIC058
|
||||
00060 10 MIN-I12 PIC S9(2)V9(5) COMP-3 VALUE +00.0000. DTSIC058
|
||||
00061 10 MAX-I12 PIC S9(2)V9(5) COMP-3 VALUE +00.0150. DTSIC058
|
||||
00062 07 RATE-TABLE-I13. DTSIC058
|
||||
00063 10 RATE-I13 PIC S9(1)V9(4) COMP-3 VALUE +0.0420. DTSIC058
|
||||
00064 10 MIN-I13 PIC S9(2)V9(5) COMP-3 VALUE -00.0250. DTSIC058
|
||||
00065 10 MAX-I13 PIC S9(2)V9(5) COMP-3 VALUE +00.0000. DTSIC058
|
||||
00066 07 RATE-TABLE-I14. DTSIC058
|
||||
00067 10 RATE-I14 PIC S9(1)V9(4) COMP-3 VALUE +0.0450. DTSIC058
|
||||
00068 10 MIN-I14 PIC S9(2)V9(5) COMP-3 VALUE -00.0500. DTSIC058
|
||||
00069 10 MAX-I14 PIC S9(2)V9(5) COMP-3 VALUE -00.0250. DTSIC058
|
||||
00070 07 RATE-TABLE-I15. DTSIC058
|
||||
00071 10 RATE-I15 PIC S9(1)V9(4) COMP-3 VALUE +0.0480. DTSIC058
|
||||
00072 10 MIN-I15 PIC S9(2)V9(5) COMP-3 VALUE -00.0750. DTSIC058
|
||||
00073 10 MAX-I15 PIC S9(2)V9(5) COMP-3 VALUE -00.0500. DTSIC058
|
||||
00074 07 RATE-TABLE-I16. DTSIC058
|
||||
00075 10 RATE-I16 PIC S9(1)V9(4) COMP-3 VALUE +0.0510. DTSIC058
|
||||
00076 10 MIN-I16 PIC S9(2)V9(5) COMP-3 VALUE -00.1000. DTSIC058
|
||||
00077 10 MAX-I16 PIC S9(2)V9(5) COMP-3 VALUE -00.0750. DTSIC058
|
||||
00078 07 RATE-TABLE-I17. DTSIC058
|
||||
00079 10 RATE-I17 PIC S9(1)V9(4) COMP-3 VALUE +0.0540. DTSIC058
|
||||
00080 10 MIN-I17 PIC S9(2)V9(5) COMP-3 VALUE -00.9999. DTSIC058
|
||||
00081 10 MAX-I17 PIC S9(2)V9(5) COMP-3 VALUE -00.1000. DTSIC058
|
||||
00082 07 RATE-TABLE-I18. DTSIC058
|
||||
00083 10 RATE-I18 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00084 10 MIN-I18 PIC S9(2)V9(5) COMP-3 VALUE -00.0000. DTSIC058
|
||||
00085 10 MAX-I18 PIC S9(2)V9(5) COMP-3 VALUE -00.0000. DTSIC058
|
||||
00086 07 RATE-TABLE-I19. DTSIC058
|
||||
00087 10 RATE-I19 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00088 10 MIN-I19 PIC S9(2)V9(5) COMP-3 VALUE -00.0000. DTSIC058
|
||||
00089 10 MAX-I19 PIC S9(2)V9(5) COMP-3 VALUE -00.0000. DTSIC058
|
||||
00090 07 RATE-TABLE-I20. DTSIC058
|
||||
00091 10 RATE-I20 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00092 10 MIN-I20 PIC S9(2)V9(5) COMP-3 VALUE -00.0000. DTSIC058
|
||||
00093 10 MAX-I20 PIC S9(2)V9(5) COMP-3 VALUE -00.0000. DTSIC058
|
||||
00094 * DTSIC058
|
||||
00095 *********************** DTSIC058
|
||||
00096 ** RATE TABLE II **** DTSIC058
|
||||
00097 *********************** DTSIC058
|
||||
00098 05 RATE-TABLE-II. DTSIC058
|
||||
00099 07 RATE-TABLE-II1. DTSIC058
|
||||
00100 10 RATE-II1 PIC S9(1)V9(4) COMP-3 VALUE +0.0060. DTSIC058
|
||||
00101 10 MIN-II1 PIC S9(2)V9(5) COMP-3 VALUE +00.08000. DTSIC058
|
||||
00102 10 MAX-II1 PIC S9(2)V9(5) COMP-3 VALUE +00.99999. DTSIC058
|
||||
00103 07 RATE-TABLE-II2. DTSIC058
|
||||
00104 10 RATE-II2 PIC S9(1)V9(4) COMP-3 VALUE +0.0100. DTSIC058
|
||||
00105 10 MIN-II2 PIC S9(2)V9(5) COMP-3 VALUE +00.07500. DTSIC058
|
||||
00106 10 MAX-II2 PIC S9(2)V9(5) COMP-3 VALUE +00.08000. DTSIC058
|
||||
00107 07 RATE-TABLE-II3. DTSIC058
|
||||
00108 10 RATE-II3 PIC S9(1)V9(4) COMP-3 VALUE +0.0130. DTSIC058
|
||||
00109 10 MIN-II3 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00110 10 MAX-II3 PIC S9(2)V9(5) COMP-3 VALUE +00.07500. DTSIC058
|
||||
00111 07 RATE-TABLE-II4. DTSIC058
|
||||
00112 10 RATE-II4 PIC S9(1)V9(4) COMP-3 VALUE +0.0160. DTSIC058
|
||||
00113 10 MIN-II4 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00114 10 MAX-II4 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00115 07 RATE-TABLE-II5. DTSIC058
|
||||
00116 10 RATE-II5 PIC S9(1)V9(4) COMP-3 VALUE +0.0190. DTSIC058
|
||||
00117 10 MIN-II5 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00118 10 MAX-II5 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00119 07 RATE-TABLE-II6. DTSIC058
|
||||
00120 10 RATE-II6 PIC S9(1)V9(4) COMP-3 VALUE +0.0210. DTSIC058
|
||||
00121 10 MIN-II6 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00122 10 MAX-II6 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00123 07 RATE-TABLE-II7. DTSIC058
|
||||
00124 10 RATE-II7 PIC S9(1)V9(4) COMP-3 VALUE +0.0230. DTSIC058
|
||||
00125 10 MIN-II7 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00126 10 MAX-II7 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00127 07 RATE-TABLE-II8. DTSIC058
|
||||
00128 10 RATE-II8 PIC S9(1)V9(4) COMP-3 VALUE +0.0250. DTSIC058
|
||||
00129 10 MIN-II8 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00130 10 MAX-II8 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00131 07 RATE-TABLE-II9. DTSIC058
|
||||
00132 10 RATE-II9 PIC S9(1)V9(4) COMP-3 VALUE +0.0270. DTSIC058
|
||||
00133 10 MIN-II9 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00134 10 MAX-II9 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00135 07 RATE-TABLE-II10. DTSIC058
|
||||
00136 10 RATE-II10 PIC S9(1)V9(4) COMP-3 VALUE +0.0290. DTSIC058
|
||||
00137 10 MIN-II10 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00138 10 MAX-II10 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00139 07 RATE-TABLE-II11. DTSIC058
|
||||
00140 10 RATE-II11 PIC S9(1)V9(4) COMP-3 VALUE +0.0310. DTSIC058
|
||||
00141 10 MIN-II11 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00142 10 MAX-II11 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00143 07 RATE-TABLE-II12. DTSIC058
|
||||
00144 10 RATE-II12 PIC S9(1)V9(4) COMP-3 VALUE +0.0330. DTSIC058
|
||||
00145 10 MIN-II12 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00146 10 MAX-II12 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00147 07 RATE-TABLE-II13. DTSIC058
|
||||
00148 10 RATE-II13 PIC S9(1)V9(4) COMP-3 VALUE +0.0460. DTSIC058
|
||||
00149 10 MIN-II13 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00150 10 MAX-II13 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00151 07 RATE-TABLE-II14. DTSIC058
|
||||
00152 10 RATE-II14 PIC S9(1)V9(4) COMP-3 VALUE +0.0490. DTSIC058
|
||||
00153 10 MIN-II14 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00154 10 MAX-II14 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00155 07 RATE-TABLE-II15. DTSIC058
|
||||
00156 10 RATE-II15 PIC S9(1)V9(4) COMP-3 VALUE +0.0520. DTSIC058
|
||||
00157 10 MIN-II15 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00158 10 MAX-II15 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00159 07 RATE-TABLE-II16. DTSIC058
|
||||
00160 10 RATE-II16 PIC S9(1)V9(4) COMP-3 VALUE +0.0550. DTSIC058
|
||||
00161 10 MIN-II16 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00162 10 MAX-II16 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00163 07 RATE-TABLE-II17. DTSIC058
|
||||
00164 10 RATE-II17 PIC S9(1)V9(4) COMP-3 VALUE +0.0580. DTSIC058
|
||||
00165 10 MIN-II17 PIC S9(2)V9(5) COMP-3 VALUE -00.99999. DTSIC058
|
||||
00166 10 MAX-II17 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00167 07 RATE-TABLE-II18. DTSIC058
|
||||
00168 10 RATE-II18 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00169 10 MIN-II18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00170 10 MAX-II18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00171 07 RATE-TABLE-II19. DTSIC058
|
||||
00172 10 RATE-II19 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00173 10 MIN-II19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00174 10 MAX-II19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00175 07 RATE-TABLE-II20. DTSIC058
|
||||
00176 10 RATE-II20 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00177 10 MIN-II20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00178 10 MAX-II20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00179 ****************** DTSIC058
|
||||
00180 **RATE TABLE III** DTSIC058
|
||||
00181 ****************** DTSIC058
|
||||
00182 05 RATE-TABLE-III. DTSIC058
|
||||
00183 07 RATE-TABLE-III1. DTSIC058
|
||||
00184 10 RATE-III1 PIC S9(1)V9(4) COMP-3 VALUE +0.0100. DTSIC058
|
||||
00185 10 MIN-III1 PIC S9(2)V9(5) COMP-3 VALUE +00.08000. DTSIC058
|
||||
00186 10 MAX-III1 PIC S9(2)V9(5) COMP-3 VALUE +00.99999. DTSIC058
|
||||
00187 07 RATE-TABLE-III2. DTSIC058
|
||||
00188 10 RATE-III2 PIC S9(1)V9(4) COMP-3 VALUE +0.0140. DTSIC058
|
||||
00189 10 MIN-III2 PIC S9(2)V9(5) COMP-3 VALUE +00.07500. DTSIC058
|
||||
00190 10 MAX-III2 PIC S9(2)V9(5) COMP-3 VALUE +00.08000. DTSIC058
|
||||
00191 07 RATE-TABLE-III3. DTSIC058
|
||||
00192 10 RATE-III3 PIC S9(1)V9(4) COMP-3 VALUE +0.0170. DTSIC058
|
||||
00193 10 MIN-III3 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00194 10 MAX-III3 PIC S9(2)V9(5) COMP-3 VALUE +00.07500. DTSIC058
|
||||
00195 07 RATE-TABLE-III4. DTSIC058
|
||||
00196 10 RATE-III4 PIC S9(1)V9(4) COMP-3 VALUE +0.0200. DTSIC058
|
||||
00197 10 MIN-III4 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00198 10 MAX-III4 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00199 07 RATE-TABLE-III5. DTSIC058
|
||||
00200 10 RATE-III5 PIC S9(1)V9(4) COMP-3 VALUE +0.0230. DTSIC058
|
||||
00201 10 MIN-III5 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00202 10 MAX-III5 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00203 07 RATE-TABLE-III6. DTSIC058
|
||||
00204 10 RATE-III6 PIC S9(1)V9(4) COMP-3 VALUE +0.0250. DTSIC058
|
||||
00205 10 MIN-III6 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00206 10 MAX-III6 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00207 07 RATE-TABLE-III7. DTSIC058
|
||||
00208 10 RATE-III7 PIC S9(1)V9(4) COMP-3 VALUE +0.0270. DTSIC058
|
||||
00209 10 MIN-III7 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00210 10 MAX-III7 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00211 07 RATE-TABLE-III8. DTSIC058
|
||||
00212 10 RATE-III8 PIC S9(1)V9(4) COMP-3 VALUE +0.0290. DTSIC058
|
||||
00213 10 MIN-III8 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00214 10 MAX-III8 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00215 07 RATE-TABLE-III9. DTSIC058
|
||||
00216 10 RATE-III9 PIC S9(1)V9(4) COMP-3 VALUE +0.0300. DTSIC058
|
||||
00217 10 MIN-III9 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00218 10 MAX-III9 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00219 07 RATE-TABLE-III10. DTSIC058
|
||||
00220 10 RATE-III10 PIC S9(1)V9(4) COMP-3 VALUE +0.0320. DTSIC058
|
||||
00221 10 MIN-III10 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00222 10 MAX-III10 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00223 07 RATE-TABLE-III11. DTSIC058
|
||||
00224 10 RATE-III11 PIC S9(1)V9(4) COMP-3 VALUE +0.0340. DTSIC058
|
||||
00225 10 MIN-III11 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00226 10 MAX-III11 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00227 07 RATE-TABLE-III12. DTSIC058
|
||||
00228 10 RATE-III12 PIC S9(1)V9(4) COMP-3 VALUE +0.0360. DTSIC058
|
||||
00229 10 MIN-III12 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00230 10 MAX-III12 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00231 07 RATE-TABLE-III13. DTSIC058
|
||||
00232 10 RATE-III13 PIC S9(1)V9(4) COMP-3 VALUE +0.0500. DTSIC058
|
||||
00233 10 MIN-III13 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00234 10 MAX-III13 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00235 07 RATE-TABLE-III14. DTSIC058
|
||||
00236 10 RATE-III14 PIC S9(1)V9(4) COMP-3 VALUE +0.0530. DTSIC058
|
||||
00237 10 MIN-III14 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00238 10 MAX-III14 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00239 07 RATE-TABLE-III15. DTSIC058
|
||||
00240 10 RATE-III15 PIC S9(1)V9(4) COMP-3 VALUE +0.0560. DTSIC058
|
||||
00241 10 MIN-III15 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00242 10 MAX-III15 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00243 07 RATE-TABLE-III16. DTSIC058
|
||||
00244 10 RATE-III16 PIC S9(1)V9(4) COMP-3 VALUE +0.0590. DTSIC058
|
||||
00245 10 MIN-III16 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00246 10 MAX-III16 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00247 07 RATE-TABLE-III17. DTSIC058
|
||||
00248 10 RATE-III17 PIC S9(1)V9(4) COMP-3 VALUE +0.0620. DTSIC058
|
||||
00249 10 MIN-III17 PIC S9(2)V9(5) COMP-3 VALUE -00.99999. DTSIC058
|
||||
00250 10 MAX-III17 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00251 07 RATE-TABLE-III18. DTSIC058
|
||||
00252 10 RATE-III18 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00253 10 MIN-III18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00254 10 MAX-III18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00255 07 RATE-TABLE-III19. DTSIC058
|
||||
00256 10 RATE-III19 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00257 10 MIN-III19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00258 10 MAX-III19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00259 07 RATE-TABLE-III20. DTSIC058
|
||||
00260 10 RATE-III20 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00261 10 MIN-III20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00262 10 MAX-III20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00263 ****************** DTSIC058
|
||||
00264 **RATE TABLE IV** DTSIC058
|
||||
00265 ****************** DTSIC058
|
||||
00266 05 RATE-TABLE-IV. DTSIC058
|
||||
00267 07 RATE-TABLE-IV1. DTSIC058
|
||||
00268 10 RATE-IV1 PIC S9(1)V9(4) COMP-3 VALUE +0.0130. DTSIC058
|
||||
00269 10 MIN-IV1 PIC S9(2)V9(5) COMP-3 VALUE +00.080. DTSIC058
|
||||
00270 10 MAX-IV1 PIC S9(2)V9(5) COMP-3 VALUE +99.999. DTSIC058
|
||||
00271 07 RATE-TABLE-IV2. DTSIC058
|
||||
00272 10 RATE-IV2 PIC S9(1)V9(4) COMP-3 VALUE +0.0170. DTSIC058
|
||||
00273 10 MIN-IV2 PIC S9(2)V9(5) COMP-3 VALUE +00.075. DTSIC058
|
||||
00274 10 MAX-IV2 PIC S9(2)V9(5) COMP-3 VALUE +00.080. DTSIC058
|
||||
00275 07 RATE-TABLE-IV3. DTSIC058
|
||||
00276 10 RATE-IV3 PIC S9(1)V9(4) COMP-3 VALUE +0.0200. DTSIC058
|
||||
00277 10 MIN-IV3 PIC S9(2)V9(5) COMP-3 VALUE +00.070. DTSIC058
|
||||
00278 10 MAX-IV3 PIC S9(2)V9(5) COMP-3 VALUE +00.075. DTSIC058
|
||||
00279 07 RATE-TABLE-IV4. DTSIC058
|
||||
00280 10 RATE-IV4 PIC S9(1)V9(4) COMP-3 VALUE +0.0230. DTSIC058
|
||||
00281 10 MIN-IV4 PIC S9(2)V9(5) COMP-3 VALUE +00.065. DTSIC058
|
||||
00282 10 MAX-IV4 PIC S9(2)V9(5) COMP-3 VALUE +00.070. DTSIC058
|
||||
00283 07 RATE-TABLE-IV5. DTSIC058
|
||||
00284 10 RATE-IV5 PIC S9(1)V9(4) COMP-3 VALUE +0.0260. DTSIC058
|
||||
00285 10 MIN-IV5 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00286 10 MAX-IV5 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00287 07 RATE-TABLE-IV6. DTSIC058
|
||||
00288 10 RATE-IV6 PIC S9(1)V9(4) COMP-3 VALUE +0.0280. DTSIC058
|
||||
00289 10 MIN-IV6 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00290 10 MAX-IV6 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00291 07 RATE-TABLE-IV7. DTSIC058
|
||||
00292 10 RATE-IV7 PIC S9(1)V9(4) COMP-3 VALUE +0.0300. DTSIC058
|
||||
00293 10 MIN-IV7 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00294 10 MAX-IV7 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00295 07 RATE-TABLE-IV8. DTSIC058
|
||||
00296 10 RATE-IV8 PIC S9(1)V9(4) COMP-3 VALUE +0.0320. DTSIC058
|
||||
00297 10 MIN-IV8 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00298 10 MAX-IV8 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00299 07 RATE-TABLE-IV9. DTSIC058
|
||||
00300 10 RATE-IV9 PIC S9(1)V9(4) COMP-3 VALUE +0.0340. DTSIC058
|
||||
00301 10 MIN-IV9 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00302 10 MAX-IV9 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00303 07 RATE-TABLE-IV10. DTSIC058
|
||||
00304 10 RATE-IV10 PIC S9(1)V9(4) COMP-3 VALUE +0.0360. DTSIC058
|
||||
00305 10 MIN-IV10 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00306 10 MAX-IV10 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00307 07 RATE-TABLE-IV11. DTSIC058
|
||||
00308 10 RATE-IV11 PIC S9(1)V9(4) COMP-3 VALUE +0.0380. DTSIC058
|
||||
00309 10 MIN-IV11 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00310 10 MAX-IV11 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00311 07 RATE-TABLE-IV12. DTSIC058
|
||||
00312 10 RATE-IV12 PIC S9(1)V9(4) COMP-3 VALUE +0.0400. DTSIC058
|
||||
00313 10 MIN-IV12 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00314 10 MAX-IV12 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00315 07 RATE-TABLE-IV13. DTSIC058
|
||||
00316 10 RATE-IV13 PIC S9(1)V9(4) COMP-3 VALUE +0.0540. DTSIC058
|
||||
00317 10 MIN-IV13 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00318 10 MAX-IV13 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00319 07 RATE-TABLE-IV14. DTSIC058
|
||||
00320 10 RATE-IV14 PIC S9(1)V9(4) COMP-3 VALUE +0.0570. DTSIC058
|
||||
00321 10 MIN-IV14 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00322 10 MAX-IV14 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00323 07 RATE-TABLE-IV15. DTSIC058
|
||||
00324 10 RATE-IV15 PIC S9(1)V9(4) COMP-3 VALUE +0.0600. DTSIC058
|
||||
00325 10 MIN-IV15 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00326 10 MAX-IV15 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00327 07 RATE-TABLE-IV16. DTSIC058
|
||||
00328 10 RATE-IV16 PIC S9(1)V9(4) COMP-3 VALUE +0.0630. DTSIC058
|
||||
00329 10 MIN-IV16 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00330 10 MAX-IV16 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00331 07 RATE-TABLE-IV17. DTSIC058
|
||||
00332 10 RATE-IV17 PIC S9(1)V9(4) COMP-3 VALUE +0.0660. DTSIC058
|
||||
00333 10 MIN-IV17 PIC S9(2)V9(5) COMP-3 VALUE -00.99999. DTSIC058
|
||||
00334 10 MAX-IV17 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00335 07 RATE-TABLE-IV18. DTSIC058
|
||||
00336 10 RATE-IV18 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00337 10 MIN-IV18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00338 10 MAX-IV18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00339 07 RATE-TABLE-IV19. DTSIC058
|
||||
00340 10 RATE-IV19 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00341 10 MIN-IV19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00342 10 MAX-IV19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00343 07 RATE-TABLE-IV20. DTSIC058
|
||||
00344 10 RATE-IV20 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00345 10 MIN-IV20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00346 10 MAX-IV20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00347 ****************** DTSIC058
|
||||
00348 **RATE TABLE V** DTSIC058
|
||||
00349 ****************** DTSIC058
|
||||
00350 05 RATE-TABLE-V. DTSIC058
|
||||
00351 07 RATE-TABLE-V1. DTSIC058
|
||||
00352 10 RATE-V1 PIC S9(1)V9(4) COMP-3 VALUE +0.0160. DTSIC058
|
||||
00353 10 MIN-V1 PIC S9(2)V9(5) COMP-3 VALUE +00.08000. DTSIC058
|
||||
00354 10 MAX-V1 PIC S9(2)V9(5) COMP-3 VALUE +99.99999. DTSIC058
|
||||
00355 07 RATE-TABLE-V2. DTSIC058
|
||||
00356 10 RATE-V2 PIC S9(1)V9(4) COMP-3 VALUE +0.0200. DTSIC058
|
||||
00357 10 MIN-V2 PIC S9(2)V9(5) COMP-3 VALUE +00.07500. DTSIC058
|
||||
00358 10 MAX-V2 PIC S9(2)V9(5) COMP-3 VALUE +00.08000. DTSIC058
|
||||
00359 07 RATE-TABLE-V3. DTSIC058
|
||||
00360 10 RATE-V3 PIC S9(1)V9(4) COMP-3 VALUE +0.0230. DTSIC058
|
||||
00361 10 MIN-V3 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00362 10 MAX-V3 PIC S9(2)V9(5) COMP-3 VALUE +00.07500. DTSIC058
|
||||
00363 07 RATE-TABLE-V4. DTSIC058
|
||||
00364 10 RATE-V4 PIC S9(1)V9(4) COMP-3 VALUE +0.0260. DTSIC058
|
||||
00365 10 MIN-V4 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00366 10 MAX-V4 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00367 07 RATE-TABLE-V5. DTSIC058
|
||||
00368 10 RATE-V5 PIC S9(1)V9(4) COMP-3 VALUE +0.0290. DTSIC058
|
||||
00369 10 MIN-V5 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00370 10 MAX-V5 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00371 07 RATE-TABLE-V6. DTSIC058
|
||||
00372 10 RATE-V6 PIC S9(1)V9(4) COMP-3 VALUE +0.0310. DTSIC058
|
||||
00373 10 MIN-V6 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00374 10 MAX-V6 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00375 07 RATE-TABLE-V7. DTSIC058
|
||||
00376 10 RATE-V7 PIC S9(1)V9(4) COMP-3 VALUE +0.0330. DTSIC058
|
||||
00377 10 MIN-V7 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00378 10 MAX-V7 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00379 07 RATE-TABLE-V8. DTSIC058
|
||||
00380 10 RATE-V8 PIC S9(1)V9(4) COMP-3 VALUE +0.0350. DTSIC058
|
||||
00381 10 MIN-V8 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00382 10 MAX-V8 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00383 07 RATE-TABLE-V9. DTSIC058
|
||||
00384 10 RATE-V9 PIC S9(1)V9(4) COMP-3 VALUE +0.0370. DTSIC058
|
||||
00385 10 MIN-V9 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00386 10 MAX-V9 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00387 07 RATE-TABLE-V10. DTSIC058
|
||||
00388 10 RATE-V10 PIC S9(1)V9(4) COMP-3 VALUE +0.0390. DTSIC058
|
||||
00389 10 MIN-V10 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00390 10 MAX-V10 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00391 07 RATE-TABLE-V11. DTSIC058
|
||||
00392 10 RATE-V11 PIC S9(1)V9(4) COMP-3 VALUE +0.0410. DTSIC058
|
||||
00393 10 MIN-V11 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00394 10 MAX-V11 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00395 07 RATE-TABLE-V12. DTSIC058
|
||||
00396 10 RATE-V12 PIC S9(1)V9(4) COMP-3 VALUE +0.0420. DTSIC058
|
||||
00397 10 MIN-V12 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00398 10 MAX-V12 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00399 07 RATE-TABLE-V13. DTSIC058
|
||||
00400 10 RATE-V13 PIC S9(1)V9(4) COMP-3 VALUE +0.0580. DTSIC058
|
||||
00401 10 MIN-V13 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00402 10 MAX-V13 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00403 07 RATE-TABLE-V14. DTSIC058
|
||||
00404 10 RATE-V14 PIC S9(1)V9(4) COMP-3 VALUE +0.0610. DTSIC058
|
||||
00405 10 MIN-V14 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00406 10 MAX-V14 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00407 07 RATE-TABLE-V15. DTSIC058
|
||||
00408 10 RATE-V15 PIC S9(1)V9(4) COMP-3 VALUE +0.0640. DTSIC058
|
||||
00409 10 MIN-V15 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00410 10 MAX-V15 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00411 07 RATE-TABLE-V16. DTSIC058
|
||||
00412 10 RATE-V16 PIC S9(1)V9(4) COMP-3 VALUE +0.0670. DTSIC058
|
||||
00413 10 MIN-V16 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00414 10 MAX-V16 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00415 07 RATE-TABLE-V17. DTSIC058
|
||||
00416 10 RATE-V17 PIC S9(1)V9(4) COMP-3 VALUE +0.0700. DTSIC058
|
||||
00417 10 MIN-V17 PIC S9(2)V9(5) COMP-3 VALUE -00.99999. DTSIC058
|
||||
00418 10 MAX-V17 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00419 07 RATE-TABLE-V18. DTSIC058
|
||||
00420 10 RATE-V18 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00421 10 MIN-V18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00422 10 MAX-V18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00423 07 RATE-TABLE-V19. DTSIC058
|
||||
00424 10 RATE-V19 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00425 10 MIN-V19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00426 10 MAX-V19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00427 07 RATE-TABLE-V20. DTSIC058
|
||||
00428 10 RATE-V20 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00429 10 MIN-V20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00430 10 MAX-V20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00431 ****************** DTSIC058
|
||||
00432 **RATE TABLE VI* DTSIC058
|
||||
00433 ****************** DTSIC058
|
||||
00434 05 RATE-TABLE-VI. DTSIC058
|
||||
00435 07 RATE-TABLE-VI1. DTSIC058
|
||||
00436 10 RATE-VI1 PIC S9(1)V9(4) COMP-3 VALUE +0.0190. DTSIC058
|
||||
00437 10 MIN-VI1 PIC S9(2)V9(5) COMP-3 VALUE +00.08000. DTSIC058
|
||||
00438 10 MAX-VI1 PIC S9(2)V9(5) COMP-3 VALUE +99.99999. DTSIC058
|
||||
00439 07 RATE-TABLE-VI2. DTSIC058
|
||||
00440 10 RATE-VI2 PIC S9(1)V9(4) COMP-3 VALUE +0.0230. DTSIC058
|
||||
00441 10 MIN-VI2 PIC S9(2)V9(5) COMP-3 VALUE +00.07500. DTSIC058
|
||||
00442 10 MAX-VI2 PIC S9(2)V9(5) COMP-3 VALUE +00.08000. DTSIC058
|
||||
00443 07 RATE-TABLE-VI3. DTSIC058
|
||||
00444 10 RATE-VI3 PIC S9(1)V9(4) COMP-3 VALUE +0.0260. DTSIC058
|
||||
00445 10 MIN-VI3 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00446 10 MAX-VI3 PIC S9(2)V9(5) COMP-3 VALUE +00.07500. DTSIC058
|
||||
00447 07 RATE-TABLE-VI4. DTSIC058
|
||||
00448 10 RATE-VI4 PIC S9(1)V9(4) COMP-3 VALUE +0.0290. DTSIC058
|
||||
00449 10 MIN-VI4 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00450 10 MAX-VI4 PIC S9(2)V9(5) COMP-3 VALUE +00.07000. DTSIC058
|
||||
00451 07 RATE-TABLE-VI5. DTSIC058
|
||||
00452 10 RATE-VI5 PIC S9(1)V9(4) COMP-3 VALUE +0.0320. DTSIC058
|
||||
00453 10 MIN-VI5 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00454 10 MAX-VI5 PIC S9(2)V9(5) COMP-3 VALUE +00.06500. DTSIC058
|
||||
00455 07 RATE-TABLE-VI6. DTSIC058
|
||||
00456 10 RATE-VI6 PIC S9(1)V9(4) COMP-3 VALUE +0.0340. DTSIC058
|
||||
00457 10 MIN-VI6 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00458 10 MAX-VI6 PIC S9(2)V9(5) COMP-3 VALUE +00.06000. DTSIC058
|
||||
00459 07 RATE-TABLE-VI7. DTSIC058
|
||||
00460 10 RATE-VI7 PIC S9(1)V9(4) COMP-3 VALUE +0.0360. DTSIC058
|
||||
00461 10 MIN-VI7 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00462 10 MAX-VI7 PIC S9(2)V9(5) COMP-3 VALUE +00.05500. DTSIC058
|
||||
00463 07 RATE-TABLE-VI8. DTSIC058
|
||||
00464 10 RATE-VI8 PIC S9(1)V9(4) COMP-3 VALUE +0.0380. DTSIC058
|
||||
00465 10 MIN-VI8 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00466 10 MAX-VI8 PIC S9(2)V9(5) COMP-3 VALUE +00.05000. DTSIC058
|
||||
00467 07 RATE-TABLE-VI9. DTSIC058
|
||||
00468 10 RATE-VI9 PIC S9(1)V9(4) COMP-3 VALUE +0.0400. DTSIC058
|
||||
00469 10 MIN-VI9 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00470 10 MAX-VI9 PIC S9(2)V9(5) COMP-3 VALUE +00.04500. DTSIC058
|
||||
00471 07 RATE-TABLE-VI10. DTSIC058
|
||||
00472 10 RATE-VI10 PIC S9(1)V9(4) COMP-3 VALUE +0.0420. DTSIC058
|
||||
00473 10 MIN-VI10 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00474 10 MAX-VI10 PIC S9(2)V9(5) COMP-3 VALUE +00.04000. DTSIC058
|
||||
00475 07 RATE-TABLE-VI11. DTSIC058
|
||||
00476 10 RATE-VI11 PIC S9(1)V9(4) COMP-3 VALUE +0.0430. DTSIC058
|
||||
00477 10 MIN-VI11 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00478 10 MAX-VI11 PIC S9(2)V9(5) COMP-3 VALUE +00.03000. DTSIC058
|
||||
00479 07 RATE-TABLE-VI12. DTSIC058
|
||||
00480 10 RATE-VI12 PIC S9(1)V9(4) COMP-3 VALUE +0.0440. DTSIC058
|
||||
00481 10 MIN-VI12 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00482 10 MAX-VI12 PIC S9(2)V9(5) COMP-3 VALUE +00.01500. DTSIC058
|
||||
00483 07 RATE-TABLE-VI13. DTSIC058
|
||||
00484 10 RATE-VI13 PIC S9(1)V9(4) COMP-3 VALUE +0.0620. DTSIC058
|
||||
00485 10 MIN-VI13 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00486 10 MAX-VI13 PIC S9(2)V9(5) COMP-3 VALUE +00.00000. DTSIC058
|
||||
00487 07 RATE-TABLE-VI14. DTSIC058
|
||||
00488 10 RATE-VI14 PIC S9(1)V9(4) COMP-3 VALUE +0.0650. DTSIC058
|
||||
00489 10 MIN-VI14 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00490 10 MAX-VI14 PIC S9(2)V9(5) COMP-3 VALUE -00.02500. DTSIC058
|
||||
00491 07 RATE-TABLE-VI15. DTSIC058
|
||||
00492 10 RATE-VI15 PIC S9(1)V9(4) COMP-3 VALUE +0.0680. DTSIC058
|
||||
00493 10 MIN-VI15 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00494 10 MAX-VI15 PIC S9(2)V9(5) COMP-3 VALUE -00.05000. DTSIC058
|
||||
00495 07 RATE-TABLE-VI16. DTSIC058
|
||||
00496 10 RATE-VI16 PIC S9(1)V9(4) COMP-3 VALUE +0.0710. DTSIC058
|
||||
00497 10 MIN-VI16 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00498 10 MAX-VI16 PIC S9(2)V9(5) COMP-3 VALUE -00.07500. DTSIC058
|
||||
00499 07 RATE-TABLE-VI17. DTSIC058
|
||||
00500 10 RATE-VI17 PIC S9(1)V9(4) COMP-3 VALUE +0.0740. DTSIC058
|
||||
00501 10 MIN-VI17 PIC S9(2)V9(5) COMP-3 VALUE -00.99999. DTSIC058
|
||||
00502 10 MAX-VI17 PIC S9(2)V9(5) COMP-3 VALUE -00.10000. DTSIC058
|
||||
00503 07 RATE-TABLE-VI18. DTSIC058
|
||||
00504 10 RATE-VI18 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00505 10 MIN-VI18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00506 10 MAX-VI18 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00507 07 RATE-TABLE-VI19. DTSIC058
|
||||
00508 10 RATE-VI19 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00509 10 MIN-VI19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00510 10 MAX-VI19 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00511 07 RATE-TABLE-VI20. DTSIC058
|
||||
00512 10 RATE-VI20 PIC S9(1)V9(4) COMP-3 VALUE +0.0000. DTSIC058
|
||||
00513 10 MIN-VI20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
00514 10 MAX-VI20 PIC S9(2)V9(5) COMP-3 VALUE -00.00000. DTSIC058
|
||||
25
Copybook/DTSIC072.cpy
Normal file
25
Copybook/DTSIC072.cpy
Normal file
@ -0,0 +1,25 @@
|
||||
00001 ***** 10/11/17
|
||||
00002 * DTSIC072
|
||||
00003 * DTSIC072 STATE POSTAL CODE VALUES. LV008
|
||||
00004 * DTSIC072
|
||||
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH DTSIC072
|
||||
00006 * MODIFIED FOR CANADIAN ADDRESS. 04/30/2002 ZL1 DTSIC072
|
||||
00007 * ADDED 'QC' MODIFIED FOR CANADIAN ADDRESS. 10/11/2017 ZL1 CL**8
|
||||
00008 * DTSIC072
|
||||
00009 ***** DTSIC072
|
||||
00010 DTSIC072
|
||||
00011 05 C072-ST PIC X(02). DTSIC072
|
||||
00012 88 C072-DC-88 VALUE 'DC'. DTSIC072
|
||||
00013 88 C072-BORDER-88 VALUE 'MD' 'VA'. DTSIC072
|
||||
00014 88 C072-US-88 VALUE DTSIC072
|
||||
00015 'AL' 'AK' 'AZ' 'AR' 'CA' 'CO' 'CT' 'DE' 'DC' 'FL' DTSIC072
|
||||
00016 'GA' 'HI' 'ID' 'IL' 'IN' 'IA' 'KS' 'KY' 'LA' 'ME' DTSIC072
|
||||
00017 'MD' 'MA' 'MI' 'MN' 'MS' 'MO' 'MT' 'NE' 'NV' 'NH' DTSIC072
|
||||
00018 'NJ' 'NM' 'NY' 'NC' 'ND' 'OH' 'OK' 'OR' 'PA' 'PR' DTSIC072
|
||||
00019 'RI' 'SC' 'SD' 'TN' 'TX' 'UT' 'VT' 'VA' 'VI' 'WA' DTSIC072
|
||||
00020 'WV' 'WI' 'WY' 'AA' 'AE' 'AP' 'GU' 'MP'. DTSIC072
|
||||
00021 88 C072-CANADA-88 VALUE DTSIC072
|
||||
00022 'AB' 'BC' 'CD' 'MB' 'NB' 'NF' 'NT' 'NS' 'ON' 'PQ' DTSIC072
|
||||
00023 'QC' 'SK' 'YT'. CL**8
|
||||
00024 88 C072-FOREIGN-88 VALUE '**'. DTSIC072
|
||||
00025 88 C072-ARMED-FORCES-88 VALUE 'AA' 'AE' 'AP'. DTSIC072
|
||||
79
Copybook/DTSIC075.cpy
Normal file
79
Copybook/DTSIC075.cpy
Normal file
@ -0,0 +1,79 @@
|
||||
00001 ***** 05/24/00
|
||||
00002 * DTSIC075
|
||||
00003 * DTSIC075 STATE POSTAL CODE / STATE FIPS CODE TABLE. LV001
|
||||
00004 * MOST COMMONLY USED ABBREVIATIONS AT THE TOP. DTSIC075
|
||||
00005 * DTSIC075
|
||||
00006 ***** DTSIC075
|
||||
00007 SKIP1 DTSIC075
|
||||
00008 05 C075-LITERALS. DTSIC075
|
||||
00009 10 FILLER PIC X(04) VALUE 'DE10'. DTSIC075
|
||||
00010 10 FILLER PIC X(04) VALUE 'MD24'. DTSIC075
|
||||
00011 10 FILLER PIC X(04) VALUE 'NJ34'. DTSIC075
|
||||
00012 10 FILLER PIC X(04) VALUE 'PA42'. DTSIC075
|
||||
00013 10 FILLER PIC X(04) VALUE 'VA51'. DTSIC075
|
||||
00014 10 FILLER PIC X(04) VALUE 'WV54'. DTSIC075
|
||||
00015 SKIP1 DTSIC075
|
||||
00016 10 FILLER PIC X(04) VALUE 'AL01'. DTSIC075
|
||||
00017 10 FILLER PIC X(04) VALUE 'AK02'. DTSIC075
|
||||
00018 10 FILLER PIC X(04) VALUE 'AZ04'. DTSIC075
|
||||
00019 10 FILLER PIC X(04) VALUE 'AR05'. DTSIC075
|
||||
00020 10 FILLER PIC X(04) VALUE 'CA06'. DTSIC075
|
||||
00021 10 FILLER PIC X(04) VALUE 'CO08'. DTSIC075
|
||||
00022 10 FILLER PIC X(04) VALUE 'CT09'. DTSIC075
|
||||
00023 10 FILLER PIC X(04) VALUE 'DC11'. DTSIC075
|
||||
00024 10 FILLER PIC X(04) VALUE 'FL12'. DTSIC075
|
||||
00025 10 FILLER PIC X(04) VALUE 'GA13'. DTSIC075
|
||||
00026 10 FILLER PIC X(04) VALUE 'HI15'. DTSIC075
|
||||
00027 10 FILLER PIC X(04) VALUE 'ID16'. DTSIC075
|
||||
00028 10 FILLER PIC X(04) VALUE 'IL17'. DTSIC075
|
||||
00029 10 FILLER PIC X(04) VALUE 'IN18'. DTSIC075
|
||||
00030 10 FILLER PIC X(04) VALUE 'IA19'. DTSIC075
|
||||
00031 10 FILLER PIC X(04) VALUE 'KS20'. DTSIC075
|
||||
00032 10 FILLER PIC X(04) VALUE 'KY21'. DTSIC075
|
||||
00033 10 FILLER PIC X(04) VALUE 'LA22'. DTSIC075
|
||||
00034 10 FILLER PIC X(04) VALUE 'ME23'. DTSIC075
|
||||
00035 10 FILLER PIC X(04) VALUE 'MA25'. DTSIC075
|
||||
00036 10 FILLER PIC X(04) VALUE 'MI26'. DTSIC075
|
||||
00037 10 FILLER PIC X(04) VALUE 'MN27'. DTSIC075
|
||||
00038 10 FILLER PIC X(04) VALUE 'MS28'. DTSIC075
|
||||
00039 10 FILLER PIC X(04) VALUE 'MO29'. DTSIC075
|
||||
00040 10 FILLER PIC X(04) VALUE 'MT30'. DTSIC075
|
||||
00041 10 FILLER PIC X(04) VALUE 'NE31'. DTSIC075
|
||||
00042 10 FILLER PIC X(04) VALUE 'NV32'. DTSIC075
|
||||
00043 10 FILLER PIC X(04) VALUE 'NH33'. DTSIC075
|
||||
00044 10 FILLER PIC X(04) VALUE 'NM35'. DTSIC075
|
||||
00045 10 FILLER PIC X(04) VALUE 'NY36'. DTSIC075
|
||||
00046 10 FILLER PIC X(04) VALUE 'NC37'. DTSIC075
|
||||
00047 10 FILLER PIC X(04) VALUE 'ND38'. DTSIC075
|
||||
00048 10 FILLER PIC X(04) VALUE 'OH39'. DTSIC075
|
||||
00049 10 FILLER PIC X(04) VALUE 'OK40'. DTSIC075
|
||||
00050 10 FILLER PIC X(04) VALUE 'OR41'. DTSIC075
|
||||
00051 10 FILLER PIC X(04) VALUE 'PR43'. DTSIC075
|
||||
00052 10 FILLER PIC X(04) VALUE 'RI44'. DTSIC075
|
||||
00053 10 FILLER PIC X(04) VALUE 'SC45'. DTSIC075
|
||||
00054 10 FILLER PIC X(04) VALUE 'SD46'. DTSIC075
|
||||
00055 10 FILLER PIC X(04) VALUE 'TN47'. DTSIC075
|
||||
00056 10 FILLER PIC X(04) VALUE 'TX48'. DTSIC075
|
||||
00057 10 FILLER PIC X(04) VALUE 'UT49'. DTSIC075
|
||||
00058 10 FILLER PIC X(04) VALUE 'VT50'. DTSIC075
|
||||
00059 10 FILLER PIC X(04) VALUE 'VI52'. DTSIC075
|
||||
00060 10 FILLER PIC X(04) VALUE 'WA53'. DTSIC075
|
||||
00061 10 FILLER PIC X(04) VALUE 'WI55'. DTSIC075
|
||||
00062 10 FILLER PIC X(04) VALUE 'WY56'. DTSIC075
|
||||
00063 10 FILLER PIC X(04) VALUE 'AB07'. DTSIC075
|
||||
00064 10 FILLER PIC X(04) VALUE 'BC07'. DTSIC075
|
||||
00065 10 FILLER PIC X(04) VALUE 'MB07'. DTSIC075
|
||||
00066 10 FILLER PIC X(04) VALUE 'NB07'. DTSIC075
|
||||
00067 10 FILLER PIC X(04) VALUE 'NF07'. DTSIC075
|
||||
00068 10 FILLER PIC X(04) VALUE 'NT07'. DTSIC075
|
||||
00069 10 FILLER PIC X(04) VALUE 'NS07'. DTSIC075
|
||||
00070 10 FILLER PIC X(04) VALUE 'ON07'. DTSIC075
|
||||
00071 10 FILLER PIC X(04) VALUE 'PQ07'. DTSIC075
|
||||
00072 10 FILLER PIC X(04) VALUE 'SK07'. DTSIC075
|
||||
00073 10 FILLER PIC X(04) VALUE 'YT07'. DTSIC075
|
||||
00074 SKIP1 DTSIC075
|
||||
00075 05 FILLER REDEFINES C075-LITERALS. DTSIC075
|
||||
00076 10 C075-LITERAL-GROUP OCCURS 64 TIMES DTSIC075
|
||||
00077 INDEXED BY C075-IDX. DTSIC075
|
||||
00078 15 C075-POSTAL-ST PIC X(02). DTSIC075
|
||||
00079 15 C075-FIPS-ST PIC X(02). DTSIC075
|
||||
392
Copybook/DTSIC119.cpy
Normal file
392
Copybook/DTSIC119.cpy
Normal file
@ -0,0 +1,392 @@
|
||||
00001 ***** 05/04/16
|
||||
00002 * DTSIC119
|
||||
00003 * DTSIC119 AGENCY FACTS CONSTANTS. LV042
|
||||
00004 * DTSIC119
|
||||
00005 * DTSIC119
|
||||
00006 * MODIFICATION HISTORY: DTSIC119
|
||||
00007 * DTSIC119
|
||||
00008 * 11/04/97 MASSIVELY MODIFIED TO REFLECT THE MOVE OF UI DTSIC119
|
||||
00009 * TAX OPERATION FROM DLI TO DOR. DTSIC119
|
||||
00010 * REQ: TCL 208 PROGRAMMER: EHH DTSIC119
|
||||
00011 * DTSIC119
|
||||
00012 * 10/06/1998 REVIEWED AND MODIFIED FOR DC. DTSIC119
|
||||
00013 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSIC119
|
||||
00014 * DTSIC119
|
||||
00015 * 04/20/2000 MODIFIED FOR NAME AND PHONE NUMBER CHANGES DTSIC119
|
||||
00016 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSIC119
|
||||
00017 * DTSIC119
|
||||
00018 * 09/06/2006 MODIFIED FOR NAME CHANGE (bobby tucker) DTSIC119
|
||||
00019 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSIC119
|
||||
00020 * DTSIC119
|
||||
00021 * 07/28/2008 MODIFIED FOR NAME CHANGE (scott kubly ) DTSIC119
|
||||
00022 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSIC119
|
||||
00023 * DTSIC119
|
||||
00024 * 04/10/2009 MODIFIED FOR NAME CHANGE (valarie kitchings) DTSIC119
|
||||
00025 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSIC119
|
||||
00026 * DTSIC119
|
||||
00027 * DTSIC119
|
||||
00028 * 07/23/2010 MODIFIED FOR NAME CHANGE (mary tucker ) DTSIC119
|
||||
00029 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSIC119
|
||||
00030 * DTSIC119
|
||||
00031 * DTSIC119
|
||||
00032 * 07/23/2010 MODIFIED FOR NAME CHANGE (marilyn seabrook ) DTSIC119
|
||||
00033 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSIC119
|
||||
00034 * DTSIC119
|
||||
00035 * DTSIC119
|
||||
00036 * 04/01/2011 MODIFIED FOR NAME ui dir (dorothy jones ) DTSIC119
|
||||
00037 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSIC119
|
||||
00038 * DTSIC119
|
||||
00039 * DTSIC119
|
||||
00040 * 08/15/2012 MODIFIED FOR NAME ui dir (partrick holmes ) DTSIC119
|
||||
00041 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSIC119
|
||||
00042 * DTSIC119
|
||||
00043 * 01/06/2014 MODIFIED FOR NAME ui dir (F. Thomas Luparello ) DTSIC119
|
||||
00044 * REFERENCE: does ticket 2228 programmer: NH1 DTSIC119
|
||||
00045 ***** DTSIC119
|
||||
00046 DTSIC119
|
||||
00047 10 C119-AGY-ADDR. DTSIC119
|
||||
00048 15 C119-AGY-NAME-ADDR-CAPS. DTSIC119
|
||||
00049 20 C119-AGY-NAMEA-C PIC X(40) DTSIC119
|
||||
00050 VALUE 'DC DEPARTMENT OF EMPLOYMENT SERVICES '.DTSIC119
|
||||
00051 20 C119-AGY-NAMEB1-C PIC X(40) DTSIC119
|
||||
00052 VALUE 'DISTRICT OF COLUMBIA '. DTSIC119
|
||||
00053 20 C119-AGY-NAMEB2-C PIC X(40) DTSIC119
|
||||
00054 VALUE 'DEPARTMENT OF EMPLOYMENT SERVICES '. DTSIC119
|
||||
00055 20 C119-AGY-MAIL1-C PIC X(40) DTSIC119
|
||||
00056 VALUE '4058 MINNESOTA AVE NE 4TH FLOOR '. DTSIC119
|
||||
00057 20 C119-AGY-MAIL2-C PIC X(40) DTSIC119
|
||||
00058 VALUE 'WASHINGTON, DC 20019 '. DTSIC119
|
||||
00059 20 C119-AGY-PHYS1-C PIC X(40) DTSIC119
|
||||
00060 VALUE '4058 MINNESOTA AVE NE 4TH FLOOR '. DTSIC119
|
||||
00061 20 C119-AGY-PHYS2-C PIC X(40) DTSIC119
|
||||
00062 VALUE 'WASHINGTON, DC 20019 '. DTSIC119
|
||||
00063 15 C119-AGY-NAME-ADDR-MIXED. DTSIC119
|
||||
00064 20 C119-AGY-NAMEA-M PIC X(40) DTSIC119
|
||||
00065 VALUE 'DC Department of Employment Services '.DTSIC119
|
||||
00066 20 C119-AGY-NAMEB1-M PIC X(40) DTSIC119
|
||||
00067 VALUE 'District of Columbia '. DTSIC119
|
||||
00068 20 C119-AGY-NAMEB2-M PIC X(40) DTSIC119
|
||||
00069 VALUE 'Department of Employment Services '. DTSIC119
|
||||
00070 20 C119-AGY-MAIL1-M PIC X(40) DTSIC119
|
||||
00071 VALUE '4058 Minnesota Ave NE 4th Floor '. DTSIC119
|
||||
00072 20 C119-AGY-MAIL2-M PIC X(40) DTSIC119
|
||||
00073 VALUE 'Washington, DC 20019 '. DTSIC119
|
||||
00074 20 C119-AGY-PHYS1-M PIC X(40) DTSIC119
|
||||
00075 VALUE '4058 Minnesota Ave NE 4th Floor '. DTSIC119
|
||||
00076 20 C119-AGY-PHYS2-M PIC X(40) DTSIC119
|
||||
00077 VALUE 'Washington, DC 20019 '. DTSIC119
|
||||
00078 DTSIC119
|
||||
00079 10 C119-AGY-MISC. DTSIC119
|
||||
00080 15 C119-AGY-MISC-CAPS. DTSIC119
|
||||
00081 20 C119-AGY-CHIEF-NAME-C PIC X(40) DTSIC119
|
||||
00082 VALUE 'F. THOMAS LUPARELLO '. DTSIC119
|
||||
00083 20 C119-AGY-CHIEF-TITLE-C PIC X(40) DTSIC119
|
||||
00084 VALUE 'Interim Director '. DTSIC119
|
||||
00085 20 C119-AGY-EMAIL-C PIC X(40) DTSIC119
|
||||
00086 VALUE ' '. DTSIC119
|
||||
00087 15 C119-AGY-MISC-MIXED. DTSIC119
|
||||
00088 20 C119-AGY-CHIEF-NAME-M PIC X(40) DTSIC119
|
||||
00089 VALUE 'F. Thomas Luparello '. DTSIC119
|
||||
00090 20 C119-AGY-CHIEF-TITLE-M PIC X(40) DTSIC119
|
||||
00091 VALUE 'Interim Director '. DTSIC119
|
||||
00092 20 C119-AGY-EMAIL-M PIC X(40) DTSIC119
|
||||
00093 VALUE ' '. DTSIC119
|
||||
00094 15 C119-AGY-MISC-TEL. DTSIC119
|
||||
00095 20 C119-AGY-VOICE PIC X(15) DTSIC119
|
||||
00096 VALUE '2026712409 '. DTSIC119
|
||||
00097 20 C119-AGY-FAX PIC X(15) DTSIC119
|
||||
00098 VALUE ' '. DTSIC119
|
||||
00099 20 C119-AGY-MODEM PIC X(15) DTSIC119
|
||||
00100 VALUE ' '. DTSIC119
|
||||
00101 20 C119-AGY-TDD PIC X(15) DTSIC119
|
||||
00102 VALUE ' '. DTSIC119
|
||||
00103 DTSIC119
|
||||
00104 10 C119-TAX-DIV. DTSIC119
|
||||
00105 15 C119-TAX-DIV-CAPS. DTSIC119
|
||||
00106 20 C119-TAX-DIV-NAME-C PIC X(40) DTSIC119
|
||||
00107 VALUE 'TAX DIVISION '. DTSIC119
|
||||
00108 20 C119-TAX-DIV-CHIEF-NAME-C PIC X(40) DTSIC119
|
||||
00109 VALUE 'PATRICK HOLMES '. DTSIC119
|
||||
00110 20 C119-TAX-DIV-CHIEF-TITLE-C PIC X(40) DTSIC119
|
||||
00111 VALUE 'UI COMPLIANCE '. DTSIC119
|
||||
00112 20 C119-TAX-DIV-EMAIL-C PIC X(40) DTSIC119
|
||||
00113 VALUE 'PATRICK.HOLMES@DC.GOV '. DTSIC119
|
||||
00114 15 C119-TAX-DIV-MIXED. DTSIC119
|
||||
00115 20 C119-TAX-DIV-NAME-M PIC X(40) DTSIC119
|
||||
00116 VALUE 'Tax Division '. DTSIC119
|
||||
00117 20 C119-TAX-DIV-CHIEF-NAME-M PIC X(40) DTSIC119
|
||||
00118 VALUE 'Patrick Holmes '. DTSIC119
|
||||
00119 20 C119-TAX-DIV-CHIEF-TITLE-M PIC X(40) DTSIC119
|
||||
00120 VALUE 'UI Compliance '. DTSIC119
|
||||
00121 20 C119-TAX-DIV-EMAIL-M PIC X(40) DTSIC119
|
||||
00122 VALUE 'Patrick.Holmes@dc.gov '. DTSIC119
|
||||
00123 15 C119-TAX-DIV-TEL. DTSIC119
|
||||
00124 20 C119-TAX-DIV-VOICE PIC X(15) DTSIC119
|
||||
00125 VALUE '2026987550 '. DTSIC119
|
||||
00126 20 C119-TAX-DIV-FAX PIC X(15) DTSIC119
|
||||
00127 VALUE '2026985706 '. DTSIC119
|
||||
00128 20 C119-TAX-DIV-MODEM PIC X(15) DTSIC119
|
||||
00129 VALUE ' '. DTSIC119
|
||||
00130 20 C119-TAX-DIV-TDD PIC X(15) DTSIC119
|
||||
00131 VALUE ' '. DTSIC119
|
||||
00132 DTSIC119
|
||||
00133 10 C119-TAX-BUR. DTSIC119
|
||||
00134 15 C119-TAX-BUR-CAPS. DTSIC119
|
||||
00135 20 C119-TAX-BUR-NAME-C PIC X(40) DTSIC119
|
||||
00136 VALUE 'TAX DIVSION '. DTSIC119
|
||||
00137 20 C119-TAX-BUR-CHIEF-NAME-C PIC X(40) DTSIC119
|
||||
00138 VALUE 'RYAN MOORE-LEE '. CL*42
|
||||
00139 20 C119-TAX-BUR-CHIEF-TITLE-C PIC X(40) DTSIC119
|
||||
00140 VALUE 'UI COMPLIANCE '. DTSIC119
|
||||
00141 20 C119-TAX-BUR-EMAIL-C PIC X(40) DTSIC119
|
||||
00142 VALUE 'RYAN.MOORE-LEE@DC.GOV '. CL*42
|
||||
00143 15 C119-TAX-BUR-MIXED. DTSIC119
|
||||
00144 20 C119-TAX-BUR-NAME-M PIC X(40) DTSIC119
|
||||
00145 VALUE 'Tax Division '. DTSIC119
|
||||
00146 20 C119-TAX-BUR-CHIEF-NAME-M PIC X(40) DTSIC119
|
||||
00147 VALUE 'Ryan moore-lee '. CL*42
|
||||
00148 20 C119-TAX-BUR-CHIEF-TITLE-M PIC X(40) DTSIC119
|
||||
00149 VALUE 'UI Compliance '. DTSIC119
|
||||
00150 20 C119-TAX-BUR-EMAIL-M PIC X(40) DTSIC119
|
||||
00151 VALUE 'Ryan.moore-lee@dc.gov '. CL*42
|
||||
00152 15 C119-TAX-BUR-TEL. DTSIC119
|
||||
00153 20 C119-TAX-BUR-VOICE PIC X(15) DTSIC119
|
||||
00154 VALUE '2026987550 '. DTSIC119
|
||||
00155 20 C119-TAX-BUR-FAX PIC X(15) DTSIC119
|
||||
00156 VALUE '2026985706 '. DTSIC119
|
||||
00157 20 C119-TAX-BUR-MODEM PIC X(15) DTSIC119
|
||||
00158 VALUE ' '. DTSIC119
|
||||
00159 20 C119-TAX-BUR-TDD PIC X(15) DTSIC119
|
||||
00160 VALUE ' '. DTSIC119
|
||||
00161 DTSIC119
|
||||
00162 10 C119-UC-OFFICE. DTSIC119
|
||||
00163 15 C119-UC-OFFICE-CAPS. DTSIC119
|
||||
00164 20 C119-UC-OFFICE-NAME-C PIC X(40) DTSIC119
|
||||
00165 VALUE 'OFFICE OF UNEMPLOYMENT COMPENSATION'. DTSIC119
|
||||
00166 20 C119-UC-OFFICE-CHIEF-NAME-C PIC X(40) DTSIC119
|
||||
00167 VALUE 'ROBERT THOMPSON '. CL*42
|
||||
00168 20 C119-UC-OFFICE-CHIEF-TITLE-C PIC X(40) DTSIC119
|
||||
00169 VALUE 'ASSOCIATE DIRECTOR '. DTSIC119
|
||||
00170 20 C119-UC-OFFICE-EMAIL-C PIC X(40) DTSIC119
|
||||
00171 VALUE ' '. DTSIC119
|
||||
00172 15 C119-UC-OFFICE-MIXED. DTSIC119
|
||||
00173 20 C119-UC-OFFICE-NAME-M PIC X(40) DTSIC119
|
||||
00174 VALUE 'Office of Unemployment Compensation '. DTSIC119
|
||||
00175 20 C119-UC-OFFICE-CHIEF-NAME-M PIC X(40) DTSIC119
|
||||
00176 VALUE 'Robert Thompson '. CL*42
|
||||
00177 20 C119-UC-OFFICE-CHIEF-TITLE-M PIC X(40) DTSIC119
|
||||
00178 VALUE 'Associate Director '. DTSIC119
|
||||
00179 20 C119-UC-OFFICE-EMAIL-M PIC X(40) DTSIC119
|
||||
00180 VALUE ' '. DTSIC119
|
||||
00181 15 C119-UC-OFFICE-TEL. DTSIC119
|
||||
00182 20 C119-UC-OFFICE-VOICE PIC X(15) DTSIC119
|
||||
00183 VALUE '2026987550 '. DTSIC119
|
||||
00184 20 C119-UC-OFFICE-FAX PIC X(15) DTSIC119
|
||||
00185 VALUE '2027270426 '. DTSIC119
|
||||
00186 20 C119-UC-OFFICE-MODEM PIC X(15) DTSIC119
|
||||
00187 VALUE ' '. DTSIC119
|
||||
00188 20 C119-UC-OFFICE-TDD PIC X(15) DTSIC119
|
||||
00189 VALUE ' '. DTSIC119
|
||||
00190 DTSIC119
|
||||
00191 10 C119-EMP-REG-UNIT. DTSIC119
|
||||
00192 15 C119-EMP-REG-CAPS. DTSIC119
|
||||
00193 20 C119-EMP-REG-NAME-C PIC X(40) DTSIC119
|
||||
00194 VALUE 'EMPLOYER REGISTRATION UNIT '. DTSIC119
|
||||
00195 20 C119-EMP-REG-SUPER-NAME-C PIC X(40) DTSIC119
|
||||
00196 VALUE 'RYAN MOORE-LEE '. CL*42
|
||||
00197 20 C119-EMP-REG-SUPER-TITLE-C PIC X(40) DTSIC119
|
||||
00198 VALUE 'EMPLOYER REGISTRATION SUPERVISOR '. DTSIC119
|
||||
00199 20 C119-EMP-REG-EMAIL-C PIC X(40) DTSIC119
|
||||
00200 VALUE ' '. DTSIC119
|
||||
00201 15 C119-EMP-REG-MIXED. DTSIC119
|
||||
00202 20 C119-EMP-REG-NAME-M PIC X(40) DTSIC119
|
||||
00203 VALUE 'Employer Registration Unit '. DTSIC119
|
||||
00204 20 C119-EMP-REG-SUPER-NAME-M PIC X(40) DTSIC119
|
||||
00205 VALUE 'Ryan Moore-Lee '. CL*42
|
||||
00206 20 C119-EMP-REG-SUPER-TITLE-M PIC X(40) DTSIC119
|
||||
00207 VALUE 'Employer Registration Supervisor '. DTSIC119
|
||||
00208 20 C119-EMP-REG-EMAIL-M PIC X(40) DTSIC119
|
||||
00209 VALUE ' '. DTSIC119
|
||||
00210 15 C119-EMP-REG-TEL. DTSIC119
|
||||
00211 20 C119-EMP-REG-VOICE PIC X(15) DTSIC119
|
||||
00212 VALUE '2026987550 '. DTSIC119
|
||||
00213 20 C119-EMP-REG-FAX PIC X(15) DTSIC119
|
||||
00214 VALUE '2026985706 '. DTSIC119
|
||||
00215 20 C119-EMP-REG-MODEM PIC X(15) DTSIC119
|
||||
00216 VALUE ' '. DTSIC119
|
||||
00217 20 C119-EMP-REG-TDD PIC X(15) DTSIC119
|
||||
00218 VALUE ' '. DTSIC119
|
||||
00219 DTSIC119
|
||||
00220 10 C119-EXP-RATE-UNIT. DTSIC119
|
||||
00221 15 C119-EXP-RATE-CAPS. DTSIC119
|
||||
00222 20 C119-EXP-RATE-NAME-C PIC X(40) DTSIC119
|
||||
00223 VALUE 'EXPERIENCE RATING UNIT '. DTSIC119
|
||||
00224 20 C119-EXP-RATE-SUPER-NAME-C PIC X(40) DTSIC119
|
||||
00225 VALUE 'RYAN MOORE-LEE '. CL*42
|
||||
00226 20 C119-EXP-RATE-SUPER-TITLE-C PIC X(40) DTSIC119
|
||||
00227 VALUE 'EXPERIENCE RATING SUPERVISOR '. DTSIC119
|
||||
00228 20 C119-EXP-RATE-EMAIL-C PIC X(40) DTSIC119
|
||||
00229 VALUE ' '. DTSIC119
|
||||
00230 15 C119-EXP-RATE-MIXED. DTSIC119
|
||||
00231 20 C119-EXP-RATE-NAME-M PIC X(40) DTSIC119
|
||||
00232 VALUE 'Experience Rating Unit '. DTSIC119
|
||||
00233 20 C119-EXP-RATE-SUPER-NAME-M PIC X(40) DTSIC119
|
||||
00234 VALUE 'Ryan Moore-Lee '. CL*42
|
||||
00235 20 C119-EXP-RATE-SUPER-TITLE-M PIC X(40) DTSIC119
|
||||
00236 VALUE 'Experience Rating Supervisor '. DTSIC119
|
||||
00237 20 C119-EXP-RATE-EMAIL-M PIC X(40) DTSIC119
|
||||
00238 VALUE ' '. DTSIC119
|
||||
00239 15 C119-EXP-RATE-TEL. DTSIC119
|
||||
00240 20 C119-EXP-RATE-VOICE PIC X(15) DTSIC119
|
||||
00241 VALUE '2026987550 '. DTSIC119
|
||||
00242 20 C119-EXP-RATE-FAX PIC X(15) DTSIC119
|
||||
00243 VALUE '2026985706 '. DTSIC119
|
||||
00244 20 C119-EXP-RATE-MODEM PIC X(15) DTSIC119
|
||||
00245 VALUE ' '. DTSIC119
|
||||
00246 20 C119-EXP-RATE-TDD PIC X(15) DTSIC119
|
||||
00247 VALUE ' '. DTSIC119
|
||||
00248 DTSIC119
|
||||
00249 10 C119-TAX-ACCT-UNIT. DTSIC119
|
||||
00250 15 C119-TAX-ACCT-CAPS. DTSIC119
|
||||
00251 20 C119-TAX-ACCT-NAME-C PIC X(40) DTSIC119
|
||||
00252 VALUE 'TAX ACCOUNTING UNIT '. DTSIC119
|
||||
00253 20 C119-TAX-ACCT-SUPER-NAME-C PIC X(40) DTSIC119
|
||||
00254 VALUE 'ESAYAS LEMMA '. CL*42
|
||||
00255 20 C119-TAX-ACCT-SUPER-TITLE-C PIC X(40) DTSIC119
|
||||
00256 VALUE 'TAX ACCOUNTING SUPERVISOR '. DTSIC119
|
||||
00257 20 C119-TAX-ACCT-EMAIL-C PIC X(40) DTSIC119
|
||||
00258 VALUE ' '. DTSIC119
|
||||
00259 15 C119-TAX-ACCT-MIXED. DTSIC119
|
||||
00260 20 C119-TAX-ACCT-NAME-M PIC X(40) DTSIC119
|
||||
00261 VALUE 'Tax Accounting Unit '. DTSIC119
|
||||
00262 20 C119-TAX-ACCT-SUPER-NAME-M PIC X(40) DTSIC119
|
||||
00263 VALUE 'Esayas Lemma '. CL*42
|
||||
00264 20 C119-TAX-ACCT-SUPER-TITLE-M PIC X(40) DTSIC119
|
||||
00265 VALUE 'Tax Accounting Supervisor '. DTSIC119
|
||||
00266 20 C119-TAX-ACCT-EMAIL-M PIC X(40) DTSIC119
|
||||
00267 VALUE ' '. DTSIC119
|
||||
00268 15 C119-TAX-ACCT-TEL. DTSIC119
|
||||
00269 20 C119-TAX-ACCT-VOICE PIC X(15) DTSIC119
|
||||
00270 VALUE '2026987550 '. DTSIC119
|
||||
00271 20 C119-TAX-ACCT-FAX PIC X(15) DTSIC119
|
||||
00272 VALUE '2026985706 '. DTSIC119
|
||||
00273 20 C119-TAX-ACCT-MODEM PIC X(15) DTSIC119
|
||||
00274 VALUE ' '. DTSIC119
|
||||
00275 20 C119-TAX-ACCT-TDD PIC X(15) DTSIC119
|
||||
00276 VALUE ' '. DTSIC119
|
||||
00277 DTSIC119
|
||||
00278 10 C119-COLL-UNIT. DTSIC119
|
||||
00279 15 C119-COLL-CAPS. DTSIC119
|
||||
00280 20 C119-COLL-NAME-C PIC X(40) DTSIC119
|
||||
00281 VALUE 'ENFORCEMENT UNIT '. DTSIC119
|
||||
00282 20 C119-COLL-SUPER-NAME-C PIC X(40) DTSIC119
|
||||
00283 VALUE 'RYAN MOORE-LEE '. CL*42
|
||||
00284 20 C119-COLL-SUPER-TITLE-C PIC X(40) DTSIC119
|
||||
00285 VALUE 'ENFORCEMENT SUPERVISOR '. DTSIC119
|
||||
00286 20 C119-COLL-EMAIL-C PIC X(40) DTSIC119
|
||||
00287 VALUE ' '. DTSIC119
|
||||
00288 15 C119-COLL-MIXED. DTSIC119
|
||||
00289 20 C119-COLL-NAME-M PIC X(40) DTSIC119
|
||||
00290 VALUE 'Enforcement Unit '. DTSIC119
|
||||
00291 20 C119-COLL-SUPER-NAME-M PIC X(40) DTSIC119
|
||||
00292 VALUE 'Ryan Moore-Lee '. CL*42
|
||||
00293 20 C119-COLL-SUPER-TITLE-M PIC X(40) DTSIC119
|
||||
00294 VALUE 'Enforcement Supervisor '. DTSIC119
|
||||
00295 20 C119-COLL-EMAIL-M PIC X(40) DTSIC119
|
||||
00296 VALUE ' '. DTSIC119
|
||||
00297 15 C119-COLL-TEL. DTSIC119
|
||||
00298 20 C119-COLL-VOICE PIC X(15) DTSIC119
|
||||
00299 VALUE '2026987550 '. DTSIC119
|
||||
00300 20 C119-COLL-FAX PIC X(15) DTSIC119
|
||||
00301 VALUE '2026985706 '. DTSIC119
|
||||
00302 20 C119-COLL-MODEM PIC X(15) DTSIC119
|
||||
00303 VALUE ' '. DTSIC119
|
||||
00304 20 C119-COLL-TDD PIC X(15) DTSIC119
|
||||
00305 VALUE ' '. DTSIC119
|
||||
00306 DTSIC119
|
||||
00307 10 C119-FLD-SUPP-UNIT. DTSIC119
|
||||
00308 15 C119-FLD-SUPP-CAPS. DTSIC119
|
||||
00309 20 C119-FLD-SUPP-NAME-C PIC X(40) DTSIC119
|
||||
00310 VALUE 'FIELD UNIT '. DTSIC119
|
||||
00311 20 C119-FLD-SUPP-SUPER-NAME-C PIC X(40) DTSIC119
|
||||
00312 VALUE 'RYAN MOORE-LEE '. CL*42
|
||||
00313 20 C119-FLD-SUPP-SUPER-TITLE-C PIC X(40) DTSIC119
|
||||
00314 VALUE 'FIELD SUPERVISOR '. DTSIC119
|
||||
00315 20 C119-FLD-SUPP-EMAIL-C PIC X(40) DTSIC119
|
||||
00316 VALUE ' '. DTSIC119
|
||||
00317 15 C119-FLD-SUPP-MIXED. DTSIC119
|
||||
00318 20 C119-FLD-SUPP-NAME-M PIC X(40) DTSIC119
|
||||
00319 VALUE 'Field Unit '. DTSIC119
|
||||
00320 20 C119-FLD-SUPP-SUPER-NAME-M PIC X(40) DTSIC119
|
||||
00321 VALUE 'Ryan Moore-Lee '. CL*42
|
||||
00322 20 C119-FLD-SUPP-SUPER-TITLE-M PIC X(40) DTSIC119
|
||||
00323 VALUE 'Field Supervisor '. DTSIC119
|
||||
00324 20 C119-FLD-SUPP-EMAIL-M PIC X(40) DTSIC119
|
||||
00325 VALUE ' '. DTSIC119
|
||||
00326 15 C119-FLD-SUPP-TEL. DTSIC119
|
||||
00327 20 C119-FLD-SUPP-VOICE PIC X(15) DTSIC119
|
||||
00328 VALUE '2026987550 '. DTSIC119
|
||||
00329 20 C119-FLD-SUPP-FAX PIC X(15) DTSIC119
|
||||
00330 VALUE '2026985706 '. DTSIC119
|
||||
00331 20 C119-FLD-SUPP-MODEM PIC X(15) DTSIC119
|
||||
00332 VALUE ' '. DTSIC119
|
||||
00333 20 C119-FLD-SUPP-TDD PIC X(15) DTSIC119
|
||||
00334 VALUE ' '. DTSIC119
|
||||
00335 DTSIC119
|
||||
00336 10 C119-RQC-TPL-UNIT. DTSIC119
|
||||
00337 15 C119-RQC-TPL-CAPS. DTSIC119
|
||||
00338 20 C119-RQC-TPL-NAME-C PIC X(40) DTSIC119
|
||||
00339 VALUE 'RQC/TPL UNIT '. DTSIC119
|
||||
00340 20 C119-RQC-TPL-SUPER-NAME-C PIC X(40) DTSIC119
|
||||
00341 VALUE 'GERALD SMART '. CL*42
|
||||
00342 20 C119-RQC-TPL-SUPER-TITLE-C PIC X(40) DTSIC119
|
||||
00343 VALUE 'RQC/TPL COORDINATOR '. DTSIC119
|
||||
00344 20 C119-RQC-TPL-EMAIL-C PIC X(40) DTSIC119
|
||||
00345 VALUE ' '. DTSIC119
|
||||
00346 15 C119-RQC-TPL-MIXED. DTSIC119
|
||||
00347 20 C119-RQC-TPL-NAME-M PIC X(40) DTSIC119
|
||||
00348 VALUE 'RQC/TPL Unit '. DTSIC119
|
||||
00349 20 C119-RQC-TPL-SUPER-NAME-M PIC X(40) DTSIC119
|
||||
00350 VALUE 'Gerald Smart '. CL*42
|
||||
00351 20 C119-RQC-TPL-SUPER-TITLE-M PIC X(40) DTSIC119
|
||||
00352 VALUE 'RQC/TPL Coordinator '. DTSIC119
|
||||
00353 20 C119-RQC-TPL-EMAIL-M PIC X(40) DTSIC119
|
||||
00354 VALUE ' '. DTSIC119
|
||||
00355 15 C119-RQC-TPL-TEL. DTSIC119
|
||||
00356 20 C119-RQC-TPL-VOICE PIC X(15) DTSIC119
|
||||
00357 VALUE '2026983565 '. DTSIC119
|
||||
00358 20 C119-RQC-TPL-FAX PIC X(15) DTSIC119
|
||||
00359 VALUE '2026985706 '. DTSIC119
|
||||
00360 20 C119-RQC-TPL-MODEM PIC X(15) DTSIC119
|
||||
00361 VALUE ' '. DTSIC119
|
||||
00362 20 C119-RQC-TPL-TDD PIC X(15) DTSIC119
|
||||
00363 VALUE ' '. DTSIC119
|
||||
00364 DTSIC119
|
||||
00365 10 C119-FUTA-UNIT. DTSIC119
|
||||
00366 15 C119-FUTA-CAPS. DTSIC119
|
||||
00367 20 C119-FUTA-NAME-C PIC X(40) DTSIC119
|
||||
00368 VALUE 'FUTA CERTIFICATION UNIT '. DTSIC119
|
||||
00369 20 C119-FUTA-SUPER-NAME-C PIC X(40) DTSIC119
|
||||
00370 VALUE 'GERALD SMART '. CL*42
|
||||
00371 20 C119-FUTA-SUPER-TITLE-C PIC X(40) DTSIC119
|
||||
00372 VALUE 'FUTA CERTIFICATION SUPERVISOR '. DTSIC119
|
||||
00373 20 C119-FUTA-EMAIL-C PIC X(40) DTSIC119
|
||||
00374 VALUE ' '. DTSIC119
|
||||
00375 15 C119-FUTA-MIXED. DTSIC119
|
||||
00376 20 C119-FUTA-NAME-M PIC X(40) DTSIC119
|
||||
00377 VALUE 'FUTA Certification Unit '. DTSIC119
|
||||
00378 20 C119-FUTA-SUPER-NAME-M PIC X(40) DTSIC119
|
||||
00379 VALUE 'Gerald Smart '. CL*42
|
||||
00380 20 C119-FUTA-SUPER-TITLE-M PIC X(40) DTSIC119
|
||||
00381 VALUE 'FUTA Certification Supervisor '. DTSIC119
|
||||
00382 20 C119-FUTA-EMAIL-M PIC X(40) DTSIC119
|
||||
00383 VALUE ' '. DTSIC119
|
||||
00384 15 C119-FUTA-TEL. DTSIC119
|
||||
00385 20 C119-FUTA-VOICE PIC X(15) DTSIC119
|
||||
00386 VALUE '2026987550 '. DTSIC119
|
||||
00387 20 C119-FUTA-FAX PIC X(15) DTSIC119
|
||||
00388 VALUE '2026985706 '. DTSIC119
|
||||
00389 20 C119-FUTA-MODEM PIC X(15) DTSIC119
|
||||
00390 VALUE ' '. DTSIC119
|
||||
00391 20 C119-FUTA-TDD PIC X(15) DTSIC119
|
||||
00392 VALUE ' '. DTSIC119
|
||||
115
Copybook/DTSIC200.cpy
Normal file
115
Copybook/DTSIC200.cpy
Normal file
@ -0,0 +1,115 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIC200
|
||||
00003 * DTSIC200 ELECTRONIC MEDIA CONSTANTS. LV001
|
||||
00004 * DTSIC200
|
||||
00005 * THIS TABLE CONTAINS INFORMATION ABOUT THE PROGRAMS DTSIC200
|
||||
00006 * THAT EDIT ELECTRONICALLY SUBMITTED DATA. DTSIC200
|
||||
00007 * DTSIC200
|
||||
00008 * C200-DATA-TYPE-CD INDICATES THE TYPE OF DATA THE PROGRAM DTSIC200
|
||||
00009 * USES, AS DEFINED IN EPRF-DATA-TYPE-CD: DTSIC200
|
||||
00010 * 01: 'RATE TAPE' DATA FOR PRINTING UC-30 FORMS. DTSIC200
|
||||
00011 * 02: BENEFIT CHARGE DATA. DTSIC200
|
||||
00012 * 03: WAGE DATA. DTSIC200
|
||||
00013 * DTSIC200
|
||||
00014 * C200-DATE-TYPE INDICATES THE TYPE OF DATE AND THE DATE DTSIC200
|
||||
00015 * FORMAT IN WHICH THE PROGRAM PASSES THE REPORTING DATE TO DTSIC200
|
||||
00016 * DTSBU937: DTSIC200
|
||||
00017 * Q01: QUARTER IN YYYYQ FORMAT. DTSIC200
|
||||
00018 * Q02: QUARTER IN YYQ FORMAT. DTSIC200
|
||||
00019 ***** DTSIC200
|
||||
00020 DTSIC200
|
||||
00021 10 C200-TABLE-MAX PIC S9(04) COMP VALUE +6. DTSIC200
|
||||
00022 10 C200-PROGRAM-TABLE. DTSIC200
|
||||
00023 15 FILLER PIC X(08) VALUE 'WAGEMAG '. DTSIC200
|
||||
00024 15 FILLER PIC X(02) VALUE '03'. DTSIC200
|
||||
00025 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200
|
||||
00026 DTSIC200
|
||||
00027 15 FILLER PIC X(08) VALUE 'WAGEDC '. DTSIC200
|
||||
00028 15 FILLER PIC X(02) VALUE '03'. DTSIC200
|
||||
00029 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200
|
||||
00030 DTSIC200
|
||||
00031 15 FILLER PIC X(08) VALUE 'WAGECAPS'. DTSIC200
|
||||
00032 15 FILLER PIC X(02) VALUE '03'. DTSIC200
|
||||
00033 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200
|
||||
00034 DTSIC200
|
||||
00035 15 FILLER PIC X(08) VALUE 'BCP0430G'. DTSIC200
|
||||
00036 15 FILLER PIC X(02) VALUE '03'. DTSIC200
|
||||
00037 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200
|
||||
00038 DTSIC200
|
||||
00039 15 FILLER PIC X(08) VALUE 'BCP0430H'. DTSIC200
|
||||
00040 15 FILLER PIC X(02) VALUE '03'. DTSIC200
|
||||
00041 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200
|
||||
00042 DTSIC200
|
||||
00043 15 FILLER PIC X(08) VALUE 'TDECVAL1'. DTSIC200
|
||||
00044 15 FILLER PIC X(02) VALUE '03'. DTSIC200
|
||||
00045 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200
|
||||
00046 DTSIC200
|
||||
00047 15 FILLER PIC X(08) VALUE 'TDECVAL '. DTSIC200
|
||||
00048 15 FILLER PIC X(02) VALUE '03'. DTSIC200
|
||||
00049 15 FILLER PIC X(03) VALUE 'Q01'. DTSIC200
|
||||
00050 DTSIC200
|
||||
00051 10 C200-PROGRAM-ENTRY REDEFINES C200-PROGRAM-TABLE DTSIC200
|
||||
00052 OCCURS 7 TIMES DTSIC200
|
||||
00053 INDEXED BY C200-IDX. DTSIC200
|
||||
00054 15 C200-PROG-NAME PIC X(08). DTSIC200
|
||||
00055 15 C200-DATA-TYPE-CD PIC X(02). DTSIC200
|
||||
00056 15 C200-DATE-TYPE PIC X(03). DTSIC200
|
||||
00057 DTSIC200
|
||||
00058 *************************************************************** DTSIC200
|
||||
00059 * ELECTRONIC MEDIA JOBS DTSIC200
|
||||
00060 * THIS TABLE ASSOCIATES A JOB NAME WITH THE FORM DTSIC200
|
||||
00061 *************************************************************** DTSIC200
|
||||
00062 10 C200-JOB-TABLE-MAX PIC S9(04) COMP VALUE +11. DTSIC200
|
||||
00063 10 C200-JOB-TABLE. DTSIC200
|
||||
00064 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200
|
||||
00065 15 FILLER PIC X(02) VALUE 'CS'. DTSIC200
|
||||
00066 15 FILLER PIC X(08) VALUE 'XXUI430Q'. DTSIC200
|
||||
00067 DTSIC200
|
||||
00068 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200
|
||||
00069 15 FILLER PIC X(02) VALUE 'CN'. DTSIC200
|
||||
00070 15 FILLER PIC X(08) VALUE 'XXUI430Q'. DTSIC200
|
||||
00071 DTSIC200
|
||||
00072 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200
|
||||
00073 15 FILLER PIC X(02) VALUE 'RS'. DTSIC200
|
||||
00074 15 FILLER PIC X(08) VALUE 'XXUI431Q'. DTSIC200
|
||||
00075 DTSIC200
|
||||
00076 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200
|
||||
00077 15 FILLER PIC X(02) VALUE 'RN'. DTSIC200
|
||||
00078 15 FILLER PIC X(08) VALUE 'XXUI431Q'. DTSIC200
|
||||
00079 DTSIC200
|
||||
00080 15 FILLER PIC X(03) VALUE 'DCR'. DTSIC200
|
||||
00081 15 FILLER PIC X(02) VALUE 'DK'. DTSIC200
|
||||
00082 15 FILLER PIC X(08) VALUE 'XXUI440Q'. DTSIC200
|
||||
00083 DTSIC200
|
||||
00084 15 FILLER PIC X(03) VALUE 'DCG'. DTSIC200
|
||||
00085 15 FILLER PIC X(02) VALUE 'CS'. DTSIC200
|
||||
00086 15 FILLER PIC X(08) VALUE 'XXUI413Q'. DTSIC200
|
||||
00087 DTSIC200
|
||||
00088 15 FILLER PIC X(03) VALUE 'CAP'. DTSIC200
|
||||
00089 15 FILLER PIC X(02) VALUE 'RS'. DTSIC200
|
||||
00090 15 FILLER PIC X(08) VALUE 'XXUI414Q'. DTSIC200
|
||||
00091 DTSIC200
|
||||
00092 15 FILLER PIC X(03) VALUE 'IC5'. DTSIC200
|
||||
00093 15 FILLER PIC X(02) VALUE 'CS'. DTSIC200
|
||||
00094 15 FILLER PIC X(08) VALUE 'XXUI422Q'. DTSIC200
|
||||
00095 DTSIC200
|
||||
00096 15 FILLER PIC X(03) VALUE 'IC5'. DTSIC200
|
||||
00097 15 FILLER PIC X(02) VALUE 'CN'. DTSIC200
|
||||
00098 15 FILLER PIC X(08) VALUE 'XXUI422Q'. DTSIC200
|
||||
00099 DTSIC200
|
||||
00100 15 FILLER PIC X(03) VALUE 'IC6'. DTSIC200
|
||||
00101 15 FILLER PIC X(02) VALUE 'CS'. DTSIC200
|
||||
00102 15 FILLER PIC X(08) VALUE 'XXUI420Q'. DTSIC200
|
||||
00103 DTSIC200
|
||||
00104 15 FILLER PIC X(03) VALUE 'IC6'. DTSIC200
|
||||
00105 15 FILLER PIC X(02) VALUE 'CN'. DTSIC200
|
||||
00106 15 FILLER PIC X(08) VALUE 'XXUI420Q'. DTSIC200
|
||||
00107 DTSIC200
|
||||
00108 10 C200-JOB-ENTRY REDEFINES C200-JOB-TABLE DTSIC200
|
||||
00109 OCCURS 11 TIMES DTSIC200
|
||||
00110 INDEXED BY C200-JOB-IDX. DTSIC200
|
||||
00111 15 C200-FORMAT PIC X(03). DTSIC200
|
||||
00112 15 C200-MEDIUM PIC X(02). DTSIC200
|
||||
00113 15 C200-JOB PIC X(08). DTSIC200
|
||||
00114 DTSIC200
|
||||
00115 DTSIC200
|
||||
102
Copybook/DTSIC201.cpy
Normal file
102
Copybook/DTSIC201.cpy
Normal file
@ -0,0 +1,102 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIC201
|
||||
00003 * DTSIC201 ELECTRONIC MEDIA STATUS MESSAGE TABLE. LV001
|
||||
00004 * DTSIC201
|
||||
00005 * THIS TABLE LISTS ALL SYSTEM-GENERATED STATUS DTSIC201
|
||||
00006 * MESSAGES. DTSIC201
|
||||
00007 * DTSIC201
|
||||
00008 * DTSIC201
|
||||
00009 ***** DTSIC201
|
||||
00010 DTSIC201
|
||||
00011 10 C201-MESSAGE-TABLE. DTSIC201
|
||||
00012 ******************************************************** DTSIC201
|
||||
00013 * STATUS MESSAGES DTSIC201
|
||||
00014 ******************************************************** DTSIC201
|
||||
00015 15 SMSG001-RECEIVED-LONG. DTSIC201
|
||||
00016 20 FILLER PIC X(09) DTSIC201
|
||||
00017 VALUE 'RECEIVED '. DTSIC201
|
||||
00018 20 SMSG001-DATE PIC X(08). DTSIC201
|
||||
00019 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
||||
00020 20 SMSG001-TIME PIC X(08). DTSIC201
|
||||
00021 20 FILLER PIC X(33) VALUE SPACES. DTSIC201
|
||||
00022 15 SMSG001-RECEIVED-SHORT. DTSIC201
|
||||
00023 20 FILLER PIC X(12) DTSIC201
|
||||
00024 VALUE 'RECEIVED '. DTSIC201
|
||||
00025 DTSIC201
|
||||
00026 15 SMSG002-DATA-CNTR-LONG. DTSIC201
|
||||
00027 20 FILLER PIC X(20) DTSIC201
|
||||
00028 VALUE 'SENT TO DATA CENTER '. DTSIC201
|
||||
00029 20 SMSG002-DATE PIC X(08). DTSIC201
|
||||
00030 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
||||
00031 20 SMSG002-TIME PIC X(08). DTSIC201
|
||||
00032 20 FILLER PIC X(22) VALUE SPACES. DTSIC201
|
||||
00033 15 SMSG002-DATA-CNTR-SHORT. DTSIC201
|
||||
00034 20 FILLER PIC X(12) DTSIC201
|
||||
00035 VALUE 'DATA CENTER '. DTSIC201
|
||||
00036 DTSIC201
|
||||
00037 15 SMSG003-RETURN-DOES-LONG. DTSIC201
|
||||
00038 20 FILLER PIC X(15) DTSIC201
|
||||
00039 VALUE 'RETURN TO DOES '. DTSIC201
|
||||
00040 20 SMSG003-DATE PIC X(08). DTSIC201
|
||||
00041 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
||||
00042 20 SMSG003-TIME PIC X(08). DTSIC201
|
||||
00043 20 FILLER PIC X(27) VALUE SPACES. DTSIC201
|
||||
00044 15 SMSG003-RETURN-DOES-SHORT. DTSIC201
|
||||
00045 20 FILLER PIC X(12) DTSIC201
|
||||
00046 VALUE 'RETURN DOES '. DTSIC201
|
||||
00047 DTSIC201
|
||||
00048 15 SMSG004-COMPLETE-LONG. DTSIC201
|
||||
00049 20 FILLER PIC X(09) DTSIC201
|
||||
00050 VALUE 'COMPLETE '. DTSIC201
|
||||
00051 20 SMSG004-DATE PIC X(08). DTSIC201
|
||||
00052 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
||||
00053 20 SMSG004-TIME PIC X(08). DTSIC201
|
||||
00054 20 FILLER PIC X(33) VALUE SPACES. DTSIC201
|
||||
00055 15 SMSG004-COMPLETE-SHORT. DTSIC201
|
||||
00056 20 FILLER PIC X(12) DTSIC201
|
||||
00057 VALUE 'COMPLETE '. DTSIC201
|
||||
00058 DTSIC201
|
||||
00059 15 SMSG005-PROCESS-START-LONG. DTSIC201
|
||||
00060 20 FILLER PIC X(19) DTSIC201
|
||||
00061 VALUE 'PROCESSING STARTED '. DTSIC201
|
||||
00062 20 SMSG005-DATE PIC X(08). DTSIC201
|
||||
00063 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
||||
00064 20 SMSG005-TIME PIC X(08). DTSIC201
|
||||
00065 20 FILLER PIC X(23) VALUE SPACES. DTSIC201
|
||||
00066 15 SMSG005-PROCESS-START-SHORT. DTSIC201
|
||||
00067 20 FILLER PIC X(12) DTSIC201
|
||||
00068 VALUE 'EDIT STARTED'. DTSIC201
|
||||
00069 DTSIC201
|
||||
00070 15 SMSG006-PROCESS-END-LONG. DTSIC201
|
||||
00071 20 FILLER PIC X(30) DTSIC201
|
||||
00072 VALUE 'PROCESSING ENDED SUCCESSFULLY '. DTSIC201
|
||||
00073 20 SMSG006-DATE PIC X(08). DTSIC201
|
||||
00074 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
||||
00075 20 SMSG006-TIME PIC X(08). DTSIC201
|
||||
00076 20 FILLER PIC X(12) VALUE SPACES. DTSIC201
|
||||
00077 15 SMSG006-PROCESS-END-SHORT. DTSIC201
|
||||
00078 20 FILLER PIC X(12) DTSIC201
|
||||
00079 VALUE 'PROCESS END '. DTSIC201
|
||||
00080 DTSIC201
|
||||
00081 15 SMSG007-PROCESS-ERRORS-LONG. DTSIC201
|
||||
00082 20 FILLER PIC X(29) DTSIC201
|
||||
00083 VALUE 'PROCESSING ENDED WITH ERRORS '. DTSIC201
|
||||
00084 20 SMSG007-DATE PIC X(08). DTSIC201
|
||||
00085 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
||||
00086 20 SMSG007-TIME PIC X(08). DTSIC201
|
||||
00087 20 FILLER PIC X(13) VALUE SPACES. DTSIC201
|
||||
00088 15 SMSG007-PROCESS-ERRORS-SHORT. DTSIC201
|
||||
00089 20 FILLER PIC X(12) DTSIC201
|
||||
00090 VALUE 'ERRORS FOUND'. DTSIC201
|
||||
00091 DTSIC201
|
||||
00092 15 SMSG008-PROCESS-FAILED-LONG. DTSIC201
|
||||
00093 20 FILLER PIC X(18) DTSIC201
|
||||
00094 VALUE 'PROCESSING FAILED '. DTSIC201
|
||||
00095 20 SMSG008-DATE PIC X(08). DTSIC201
|
||||
00096 20 FILLER PIC X(02) VALUE SPACES. DTSIC201
|
||||
00097 20 SMSG008-TIME PIC X(08). DTSIC201
|
||||
00098 20 FILLER PIC X(13) VALUE SPACES. DTSIC201
|
||||
00099 15 SMSG008-PROCESS-FAILED-SHORT. DTSIC201
|
||||
00100 20 FILLER PIC X(12) DTSIC201
|
||||
00101 VALUE 'FAILED '. DTSIC201
|
||||
00102 DTSIC201
|
||||
120
Copybook/DTSIC202.cpy
Normal file
120
Copybook/DTSIC202.cpy
Normal file
@ -0,0 +1,120 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIC202
|
||||
00003 * DTSIC202 ELECTRONIC MEDIA WAGES ERROR MESSAGE TABLE. LV001
|
||||
00004 * DTSIC202
|
||||
00005 * THIS TABLE LISTS ALL ERROR MESSAGES RELATED TO WAGE DTSIC202
|
||||
00006 * PROCESSING. DTSIC202
|
||||
00007 * DTSIC202
|
||||
00008 * DTSIC202
|
||||
00009 ***** DTSIC202
|
||||
00010 DTSIC202
|
||||
00011 10 C202-MESSAGE-TABLE. DTSIC202
|
||||
00012 ******************************************************** DTSIC202
|
||||
00013 * WAGE ERROR MESSAGES DTSIC202
|
||||
00014 ******************************************************** DTSIC202
|
||||
00015 15 EMSG100-WAGE-SUMMARY. DTSIC202
|
||||
00016 20 EMSG100-TOT-CNT PIC Z(06)9. DTSIC202
|
||||
00017 20 FILLER PIC X(21) DTSIC202
|
||||
00018 VALUE ' TOTAL RECORDS. '. DTSIC202
|
||||
00019 20 EMSG100-SUCCESS-CNT PIC Z(06)9. DTSIC202
|
||||
00020 20 FILLER PIC X(20) DTSIC202
|
||||
00021 VALUE ' SUCCESSFUL RECORDS.'. DTSIC202
|
||||
00022 DTSIC202
|
||||
00023 15 EMSG101-INV-QTR-CD. DTSIC202
|
||||
00024 20 FILLER PIC X(21) DTSIC202
|
||||
00025 VALUE 'INVALID QUARTER CODE '. DTSIC202
|
||||
00026 15 EMSG101-SELECTED-IND PIC X(01). DTSIC202
|
||||
00027 88 EMSG101-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00028 88 EMSG101-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00029 DTSIC202
|
||||
00030 15 EMSG102-NONE-NUM-YR. DTSIC202
|
||||
00031 20 FILLER PIC X(21) DTSIC202
|
||||
00032 VALUE 'NON-NUMERIC YEAR '. DTSIC202
|
||||
00033 15 EMSG102-SELECTED-IND PIC X(01). DTSIC202
|
||||
00034 88 EMSG102-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00035 88 EMSG102-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00036 DTSIC202
|
||||
00037 15 EMSG103-NO-MATCH-PROC-YR. DTSIC202
|
||||
00038 20 FILLER PIC X(21) DTSIC202
|
||||
00039 VALUE 'NON-MATCHED PROC YEAR'. DTSIC202
|
||||
00040 15 EMSG103-SELECTED-IND PIC X(01). DTSIC202
|
||||
00041 88 EMSG103-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00042 88 EMSG103-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00043 DTSIC202
|
||||
00044 15 EMSG104-NONE-NUM-SSN. DTSIC202
|
||||
00045 20 FILLER PIC X(21) DTSIC202
|
||||
00046 VALUE 'NON-NUMERIC SSN '. DTSIC202
|
||||
00047 15 EMSG104-SELECTED-IND PIC X(01). DTSIC202
|
||||
00048 88 EMSG104-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00049 88 EMSG104-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00050 DTSIC202
|
||||
00051 15 EMSG105-NONE-NUM-EARN. DTSIC202
|
||||
00052 20 FILLER PIC X(21) DTSIC202
|
||||
00053 VALUE 'NON-NUMERIC EARNINGS '. DTSIC202
|
||||
00054 15 EMSG105-SELECTED-IND PIC X(01). DTSIC202
|
||||
00055 88 EMSG105-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00056 88 EMSG105-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00057 DTSIC202
|
||||
00058 15 EMSG106-ZERO-EARN. DTSIC202
|
||||
00059 20 FILLER PIC X(21) DTSIC202
|
||||
00060 VALUE 'EARNINGS EQUAL ZEROS '. DTSIC202
|
||||
00061 15 EMSG106-SELECTED-IND PIC X(01). DTSIC202
|
||||
00062 88 EMSG106-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00063 88 EMSG106-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00064 DTSIC202
|
||||
00065 15 EMSG107-NAME-MISSING. DTSIC202
|
||||
00066 20 FILLER PIC X(21) DTSIC202
|
||||
00067 VALUE 'EMPLOYEE NAME MISSING'. DTSIC202
|
||||
00068 15 EMSG107-SELECTED-IND PIC X(01). DTSIC202
|
||||
00069 88 EMSG107-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00070 88 EMSG107-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00071 DTSIC202
|
||||
00072 15 EMSG108-NONE-NUM-ACCT. DTSIC202
|
||||
00073 20 FILLER PIC X(21) DTSIC202
|
||||
00074 VALUE 'NON-NUM EMPLOYER ACCT'. DTSIC202
|
||||
00075 15 EMSG108-SELECTED-IND PIC X(01). DTSIC202
|
||||
00076 88 EMSG108-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00077 88 EMSG108-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00078 DTSIC202
|
||||
00079 15 EMSG109-INV-EMPL-ACCT. DTSIC202
|
||||
00080 20 FILLER PIC X(21) DTSIC202
|
||||
00081 VALUE 'INVALID EMPLOYER ACCT'. DTSIC202
|
||||
00082 15 EMSG109-SELECTED-IND PIC X(01). DTSIC202
|
||||
00083 88 EMSG109-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00084 88 EMSG109-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00085 DTSIC202
|
||||
00086 15 EMSG110-EMPL-NAME-SPACE. DTSIC202
|
||||
00087 20 FILLER PIC X(21) DTSIC202
|
||||
00088 VALUE 'EMPL NAME EQUAL SPACE'. DTSIC202
|
||||
00089 15 EMSG110-SELECTED-IND PIC X(01). DTSIC202
|
||||
00090 88 EMSG110-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00091 88 EMSG110-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00092 DTSIC202
|
||||
00093 15 EMSG111-NAME-CHECK-BLANK. DTSIC202
|
||||
00094 20 FILLER PIC X(21) DTSIC202
|
||||
00095 VALUE 'NAME CHECKS NOT EQUAL'. DTSIC202
|
||||
00096 15 EMSG111-SELECTED-IND PIC X(01). DTSIC202
|
||||
00097 88 EMSG111-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00098 88 EMSG111-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00099 DTSIC202
|
||||
00100 15 EMSG112-NONE-NUM-TRAN-ID. DTSIC202
|
||||
00101 20 FILLER PIC X(21) DTSIC202
|
||||
00102 VALUE 'NON-NUMERIC TRAN-ID '. DTSIC202
|
||||
00103 15 EMSG112-SELECTED-IND PIC X(01). DTSIC202
|
||||
00104 88 EMSG112-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00105 88 EMSG112-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00106 DTSIC202
|
||||
00107 15 EMSG113-NONE-NUM-TRAN-DATE. DTSIC202
|
||||
00108 20 FILLER PIC X(21) DTSIC202
|
||||
00109 VALUE 'NON-NUMERIC TRAN-DATE'. DTSIC202
|
||||
00110 15 EMSG113-SELECTED-IND PIC X(01). DTSIC202
|
||||
00111 88 EMSG113-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00112 88 EMSG113-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00113 DTSIC202
|
||||
00114 15 EMSG114-NONE-NUM-TRAN-TIME. DTSIC202
|
||||
00115 20 FILLER PIC X(21) DTSIC202
|
||||
00116 VALUE 'NON-NUMERIC TRAN-TIME'. DTSIC202
|
||||
00117 15 EMSG114-SELECTED-IND PIC X(01). DTSIC202
|
||||
00118 88 EMSG114-SELECTED-YES VALUE 'Y'. DTSIC202
|
||||
00119 88 EMSG114-SELECTED-NO VALUE 'N'. DTSIC202
|
||||
00120 DTSIC202
|
||||
65
Copybook/DTSIC220.cpy
Normal file
65
Copybook/DTSIC220.cpy
Normal file
@ -0,0 +1,65 @@
|
||||
00001 ***** 10/25/06
|
||||
00002 * DTSIC220
|
||||
00003 * DTSIC220 ACTIVITY CODES LV042
|
||||
00004 * CL*23
|
||||
00005 * CL*20
|
||||
00006 * CL*26
|
||||
00007 * DTSIC220
|
||||
00008 ***** DTSIC220
|
||||
00009 10 C220-BUSINESS-AREA PIC X(02). CL*34
|
||||
00010 88 C220-BA-STATUS-88 VALUE '01'. CL*34
|
||||
00011 88 C220-BA-ACCOUNTING-88 VALUE '02'. CL*34
|
||||
00012 88 C220-BA-COLLECTIONS-88 VALUE '03'. CL*34
|
||||
00013 88 C220-BA-AUDIT-88 VALUE '04'. CL*34
|
||||
00014 88 C220-BA-RATING-88 VALUE '05'. CL*42
|
||||
00015 88 C220-BA-GENERAL-88 VALUE '99'. CL*34
|
||||
00016 CL*34
|
||||
00017 10 C220-ACTIVITY-CODE PIC X(03). CL*34
|
||||
00018 88 C220-EMP-REGISTERED-88 VALUE '001'. CL*34
|
||||
00019 88 C220-LIAB-DETERM-88 VALUE '002'. CL*34
|
||||
00020 88 C220-RELATIONSHIP-88 VALUE '003'. CL*34
|
||||
00021 88 C220-ADDRESS-88 VALUE '004'. CL*34
|
||||
00022 88 C220-OPO-88 VALUE '005'. CL*34
|
||||
00023 88 C220-BLOCKED-CLAIM-88 VALUE '006'. CL*34
|
||||
00024 88 C220-SEND-FR500-88 VALUE '007'. CL*37
|
||||
00025 88 C220-OTHER-STATUS-88 VALUE '008'. CL*37
|
||||
00026 88 C220-REPORT-ADD-88 VALUE '020'. CL*34
|
||||
00027 88 C220-REPORT-MOD-88 VALUE '021'. CL*34
|
||||
00028 88 C220-PAY-ADD-88 VALUE '022'. CL*34
|
||||
00029 88 C220-PAY-MOD-88 VALUE '023'. CL*34
|
||||
00030 88 C220-ADJ-ADD-88 VALUE '024'. CL*34
|
||||
00031 88 C220-ADJ-MOD-88 VALUE '025'. CL*34
|
||||
00032 88 C220-CRED-DEBIT-VERIF-88 VALUE '026'. CL*40
|
||||
00033 88 C220-SEND-UC30-88 VALUE '028'. CL*34
|
||||
00034 88 C220-FUTA-CERT-88 VALUE '029'. CL*34
|
||||
00035 88 C220-MISC-COLL-88 VALUE '040'. CL*36
|
||||
00036 88 C220-ASSIGN-COMPLETE-88 VALUE '041'. CL*34
|
||||
00037 88 C220-AUDIT-REPORT-88 VALUE '042'. CL*34
|
||||
00038 88 C220-AUDIT-COMPLETE-88 VALUE '043'. CL*34
|
||||
00039 88 C220-DPC-ADD-88 VALUE '044'. CL*34
|
||||
00040 88 C220-DPC-MOD-88 VALUE '045'. CL*34
|
||||
00041 88 C220-LIEN-ADD-88 VALUE '046'. CL*34
|
||||
00042 88 C220-LIEN-MOD-88 VALUE '047'. CL*34
|
||||
00043 88 C220-LEVY-ADD-88 VALUE '048'. CL*34
|
||||
00044 88 C220-LEVY-MOD-88 VALUE '049'. CL*34
|
||||
00045 88 C220-COMPROMISE-88 VALUE '050'. CL*34
|
||||
00046 88 C220-FIELD-VISIT-88 VALUE '052'. CL*38
|
||||
00047 88 C220-RATE-ADD-88 VALUE '070'. CL*34
|
||||
00048 88 C220-RATE-MOD-88 VALUE '071'. CL*34
|
||||
00049 88 C220-RATE-DATA-ADD-88 VALUE '072'. CL*34
|
||||
00050 88 C220-RATE-DATA-MOD-88 VALUE '073'. CL*34
|
||||
00051 88 C220-PHONE-TO-EMP-88 VALUE '100'. CL*41
|
||||
00052 88 C220-LETTER-TO-EMP-88 VALUE '101'. CL*41
|
||||
00053 88 C220-PHONE-TO-AGENT-88 VALUE '102'. CL*41
|
||||
00054 88 C220-LETTER-TO-AGENT-88 VALUE '103'. CL*41
|
||||
00055 88 C220-FIELD-VISIT-88 VALUE '104'. CL*41
|
||||
00056 88 C220-SEARCH-DUTAS-88 VALUE '105'. CL*41
|
||||
00057 88 C220-SEARCH-EXTERNAL-88 VALUE '106'. CL*41
|
||||
00058 88 C220-SEARCH-TAX-FILES-88 VALUE '107'. CL*41
|
||||
00059 88 C220-PROCESS-CALL-LTR-88 VALUE '108'. CL*41
|
||||
00060 88 C220-SEND-FR500-88 VALUE '109'. CL*41
|
||||
00061 88 C220-SEND-UC30-88 VALUE '110'. CL*41
|
||||
00062 88 C220-SEND-UC226-88 VALUE '111'. CL*41
|
||||
00063 88 C220-RESOLVE-BLK-CLM-88 VALUE '112'. CL*41
|
||||
00064 88 C220-PRE-AUDIT-88 VALUE '113'. CL*41
|
||||
00065 88 C220-EMPLOYER-VISIT-88 VALUE '114'. CL*41
|
||||
21
Copybook/DTSIC405.cpy
Normal file
21
Copybook/DTSIC405.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
00001 05 WRK-MONTH-TBL. 11/21/01
|
||||
00002 10 FILLER PIC X(09) VALUE 'January '. DTSIC405
|
||||
00003 10 FILLER PIC X(09) VALUE 'February '. LV004
|
||||
00004 10 FILLER PIC X(09) VALUE 'March '. DTSIC405
|
||||
00005 10 FILLER PIC X(09) VALUE 'April '. DTSIC405
|
||||
00006 10 FILLER PIC X(09) VALUE 'May '. DTSIC405
|
||||
00007 10 FILLER PIC X(09) VALUE 'June '. DTSIC405
|
||||
00008 10 FILLER PIC X(09) VALUE 'July '. DTSIC405
|
||||
00009 10 FILLER PIC X(09) VALUE 'August '. DTSIC405
|
||||
00010 10 FILLER PIC X(09) VALUE 'September'. DTSIC405
|
||||
00011 10 FILLER PIC X(09) VALUE 'October '. DTSIC405
|
||||
00012 10 FILLER PIC X(09) VALUE 'November '. DTSIC405
|
||||
00013 10 FILLER PIC X(09) VALUE 'December '. DTSIC405
|
||||
00014 05 FILLER REDEFINES WRK-MONTH-TBL. DTSIC405
|
||||
00015 10 WRK-MONTH-NAME PIC X(09) OCCURS 12. DTSIC405
|
||||
00016 DTSIC405
|
||||
00017 05 WRK-ST PIC X(02) VALUE 'st'. DTSIC405
|
||||
00018 05 WRK-ND PIC X(02) VALUE 'nd'. DTSIC405
|
||||
00019 05 WRK-RD PIC X(02) VALUE 'rd'. DTSIC405
|
||||
00020 05 WRK-TH PIC X(02) VALUE 'th'. DTSIC405
|
||||
00021 DTSIC405
|
||||
49
Copybook/DTSIC991.cpy
Normal file
49
Copybook/DTSIC991.cpy
Normal file
@ -0,0 +1,49 @@
|
||||
00001 ***** 09/29/98
|
||||
00002 * DTSIC991
|
||||
00003 * MACIC991 BINARY TO HEXIDECIMAL CONVERSION. LV002
|
||||
00004 * DTSIC991
|
||||
00005 * CL**2
|
||||
00006 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00007 * CL**2
|
||||
00008 ***** DTSIC991
|
||||
00009 CL**2
|
||||
00010 05 C991-LITERAL-AREA. DTSIC991
|
||||
00011 CL**2
|
||||
00012 10 FILLER PIC X(14) VALUE '01020304050607'.DTSIC991
|
||||
00013 10 FILLER PIC X(16) VALUE '08090A0B0C0D0E0F'.DTSIC991
|
||||
00014 10 FILLER PIC X(16) VALUE '1011121314151617'.DTSIC991
|
||||
00015 10 FILLER PIC X(16) VALUE '18191A1B1C1D1E1F'.DTSIC991
|
||||
00016 10 FILLER PIC X(16) VALUE '2021222324252627'.DTSIC991
|
||||
00017 10 FILLER PIC X(16) VALUE '28292A2B2C2D2E2F'.DTSIC991
|
||||
00018 10 FILLER PIC X(16) VALUE '3031323334353637'.DTSIC991
|
||||
00019 10 FILLER PIC X(16) VALUE '38393A3B3C3D3E3F'.DTSIC991
|
||||
00020 10 FILLER PIC X(16) VALUE '4041424344454647'.DTSIC991
|
||||
00021 10 FILLER PIC X(16) VALUE '48494A4B4C4D4E4F'.DTSIC991
|
||||
00022 10 FILLER PIC X(16) VALUE '5051525354555657'.DTSIC991
|
||||
00023 10 FILLER PIC X(16) VALUE '58595A5B5C5D5E5F'.DTSIC991
|
||||
00024 10 FILLER PIC X(16) VALUE '6061626364656667'.DTSIC991
|
||||
00025 10 FILLER PIC X(16) VALUE '68696A6B6C6D6E6F'.DTSIC991
|
||||
00026 10 FILLER PIC X(16) VALUE '7071727374757677'.DTSIC991
|
||||
00027 10 FILLER PIC X(16) VALUE '78797A7B7C7D7E7F'.DTSIC991
|
||||
00028 10 FILLER PIC X(16) VALUE '8081828384858687'.DTSIC991
|
||||
00029 10 FILLER PIC X(16) VALUE '88898A8B8C8D8E8F'.DTSIC991
|
||||
00030 10 FILLER PIC X(16) VALUE '9091929394959697'.DTSIC991
|
||||
00031 10 FILLER PIC X(16) VALUE '98999A9B9C9D9E9F'.DTSIC991
|
||||
00032 10 FILLER PIC X(16) VALUE 'A0A1A2A3A4A5A6A7'.DTSIC991
|
||||
00033 10 FILLER PIC X(16) VALUE 'A8A9AAABACADAEAF'.DTSIC991
|
||||
00034 10 FILLER PIC X(16) VALUE 'B0B1B2B3B4B5B6B7'.DTSIC991
|
||||
00035 10 FILLER PIC X(16) VALUE 'B8B9BABBBCBDBEBF'.DTSIC991
|
||||
00036 10 FILLER PIC X(16) VALUE 'C0C1C2C3C4C5C6C7'.DTSIC991
|
||||
00037 10 FILLER PIC X(16) VALUE 'C8C9CACBCCCDCECF'.DTSIC991
|
||||
00038 10 FILLER PIC X(16) VALUE 'D0D1D2D3D4D5D6D7'.DTSIC991
|
||||
00039 10 FILLER PIC X(16) VALUE 'D8D9DADBDCDDDEDF'.DTSIC991
|
||||
00040 10 FILLER PIC X(16) VALUE 'E0E1E2E3E4E5E6E7'.DTSIC991
|
||||
00041 10 FILLER PIC X(16) VALUE 'E8E9EAEBECEDEEEF'.DTSIC991
|
||||
00042 10 FILLER PIC X(16) VALUE 'F0F1F2F3F4F5F6F7'.DTSIC991
|
||||
00043 10 FILLER PIC X(16) VALUE 'F8F9FAFBFCFDFEFF'.DTSIC991
|
||||
00044 SKIP3 DTSIC991
|
||||
00045 05 FILLER REDEFINES C991-LITERAL-AREA. DTSIC991
|
||||
00046 10 C991-ENTRY OCCURS 255 TIMES DTSIC991
|
||||
00047 INDEXED BY C991-IDX. DTSIC991
|
||||
00048 15 C991-HEX-1 PIC X(01). DTSIC991
|
||||
00049 15 C991-HEX-2 PIC X(01). DTSIC991
|
||||
54
Copybook/DTSICACT.cpy
Normal file
54
Copybook/DTSICACT.cpy
Normal file
@ -0,0 +1,54 @@
|
||||
00001 ***** 12/10/98
|
||||
00002 * DTSICACT
|
||||
00003 * DTSICACT ACCOUNTING LITERALS. LV003
|
||||
00004 * DTSICACT
|
||||
00005 * CL**3
|
||||
00006 * 12/10/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**3
|
||||
00007 * CL**3
|
||||
00008 ***** DTSICACT
|
||||
00009 CL**2
|
||||
00010 05 CACT-ACCT-IND-LITERALS. DTSICACT
|
||||
00011 10 CACT-ACCT-UI PIC X(02) VALUE 'UI'. DTSICACT
|
||||
00012 10 CACT-ACCT-SUR PIC X(02) VALUE 'SU'. DTSICACT
|
||||
00013 10 CACT-ACCT-INT PIC X(02) VALUE 'I '. DTSICACT
|
||||
00014 10 CACT-ACCT-LATE-PEN PIC X(02) VALUE 'LP'. CL**2
|
||||
00015 10 CACT-ACCT-NSF-PEN PIC X(02) VALUE 'NP'. CL**2
|
||||
00016 10 CACT-ACCT-MISC-PEN PIC X(02) VALUE 'MP'. CL**2
|
||||
00017 10 CACT-ACCT-CREDIT PIC X(02) VALUE 'CR'. DTSICACT
|
||||
00018 CL**2
|
||||
00019 05 FILLER REDEFINES CACT-ACCT-IND-LITERALS. DTSICACT
|
||||
00020 10 CACT-ACCT-LIT OCCURS 7 TIMES CL**2
|
||||
00021 INDEXED BY CACT-ACCT-IDX DTSICACT
|
||||
00022 PIC X(02). DTSICACT
|
||||
00023 CL**2
|
||||
00024 CL**2
|
||||
00025 05 CACT-APPLIC-IND-LITERALS. DTSICACT
|
||||
00026 10 CACT-APPLIC-UI PIC X(02) VALUE 'UI'. DTSICACT
|
||||
00027 10 CACT-APPLIC-SUR PIC X(02) VALUE 'SU'. DTSICACT
|
||||
00028 10 CACT-APPLIC-INT PIC X(02) VALUE 'I '. DTSICACT
|
||||
00029 10 CACT-APPLIC-LATE-PEN PIC X(02) VALUE 'LP'. CL**2
|
||||
00030 10 CACT-APPLIC-NSF-PEN PIC X(02) VALUE 'NP'. CL**2
|
||||
00031 10 CACT-APPLIC-MISC-PEN PIC X(02) VALUE 'MP'. CL**2
|
||||
00032 10 CACT-APPLIC-CREDIT PIC X(02) VALUE 'CR'. DTSICACT
|
||||
00033 CL**2
|
||||
00034 05 CACT-CATEGORY-LITERALS. DTSICACT
|
||||
00035 10 CACT-CAT-CHARGED PIC X(02) VALUE 'CH'. CL**2
|
||||
00036 10 CACT-CAT-PAID PIC X(02) VALUE 'PD'. CL**2
|
||||
00037 10 CACT-CAT-WAIVED PIC X(02) VALUE 'WV'. CL**2
|
||||
00038 10 CACT-CAT-WRITTEN-OFF PIC X(02) VALUE 'WO'. CL**2
|
||||
00039 10 CACT-CAT-TOLER PIC X(02) VALUE 'TL'. CL**2
|
||||
00040 CL**2
|
||||
00041 05 FILLER REDEFINES CACT-CATEGORY-LITERALS. DTSICACT
|
||||
00042 10 CACT-CAT-LIT OCCURS 5 TIMES DTSICACT
|
||||
00043 INDEXED BY CACT-CAT-IDX DTSICACT
|
||||
00044 PIC X(02). CL**2
|
||||
00045 SKIP2 DTSICACT
|
||||
00046 05 CACT-MISCELLANEOUS-LITERALS. DTSICACT
|
||||
00047 10 CACT-CR-AVAIL PIC X(02) VALUE 'CA'. DTSICACT
|
||||
00048 10 CACT-CR-WRITE-OFF PIC X(02) VALUE 'CW'. CL**2
|
||||
00049 10 CACT-CR-TOLER PIC X(02) VALUE 'CT'. DTSICACT
|
||||
00050 10 CACT-ACCT-WAGE PIC X(02) VALUE 'WG'. DTSICACT
|
||||
00051 10 CACT-CAT-TOT-WAGE PIC X(02) VALUE 'TW'. CL**2
|
||||
00052 10 CACT-CAT-TAX-WAGE PIC X(02) VALUE 'XW'. CL**2
|
||||
00053 10 CACT-CREDIT-YRQ PIC S9(05) COMP-3 DTSICACT
|
||||
00054 VALUE +99999.DTSICACT
|
||||
25
Copybook/DTSICATB.cpy
Normal file
25
Copybook/DTSICATB.cpy
Normal file
@ -0,0 +1,25 @@
|
||||
00001 ***** 08/11/98
|
||||
00002 * DTSICATB
|
||||
00003 * DTSICATB ATTRIBUTE BYTE LITERALS. LV003
|
||||
00004 * DTSICATB
|
||||
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**3
|
||||
00006 * CL**3
|
||||
00007 ***** DTSICATB
|
||||
00008 05 CATB-ATTRB-LIT. DTSICATB
|
||||
00009 10 CATB-UNPROT-NORM-AN-MDTON PIC X(01) VALUE 'A'. DTSICATB
|
||||
00010 10 CATB-UNPROT-BRT-AN-MDTOFF PIC X(01) VALUE 'H'. DTSICATB
|
||||
00011 10 CATB-UNPROT-BRT-AN-MDTON PIC X(01) VALUE 'I'. DTSICATB
|
||||
00012 10 CATB-UNPROT-NORM-NUM-MDTON PIC X(01) VALUE 'J'. DTSICATB
|
||||
00013 10 CATB-UNPROT-BRT-NUM-MDTOFF PIC X(01) VALUE 'Q'. DTSICATB
|
||||
00014 10 CATB-UNPROT-BRT-NUM-MDTON PIC X(01) VALUE 'R'. DTSICATB
|
||||
00015 10 CATB-PROT-NORM-MDTOFF PIC X(01) VALUE '-'. DTSICATB
|
||||
00016 10 CATB-PROT-NORM-MDTON PIC X(01) VALUE '/'. DTSICATB
|
||||
00017 10 CATB-PROT-BRT-MDTOFF PIC X(01) VALUE 'Y'. DTSICATB
|
||||
00018 10 CATB-PROT-BRT-MDTON PIC X(01) VALUE 'Z'. DTSICATB
|
||||
00019 10 CATB-ASKIP-NORM-MDTOFF PIC X(01) VALUE '0'. DTSICATB
|
||||
00020 10 CATB-ASKIP-NORM-MDTON PIC X(01) VALUE '1'. DTSICATB
|
||||
00021 10 CATB-ASKIP-BRT-MDTOFF PIC X(01) VALUE '8'. DTSICATB
|
||||
00022 10 CATB-ASKIP-BRT-MDTON PIC X(01) VALUE '9'. DTSICATB
|
||||
00023 10 CATB-ASKIP-DRK-MDTOFF PIC X(01) VALUE '@'. DTSICATB
|
||||
00024 DTSICATB
|
||||
00025 10 CATB-CURSOR PIC S9(04) COMP VALUE -1. DTSICATB
|
||||
32
Copybook/DTSICCMP.cpy
Normal file
32
Copybook/DTSICCMP.cpy
Normal file
@ -0,0 +1,32 @@
|
||||
00001 ***** 08/31/98
|
||||
00002 * DTSICCMP
|
||||
00003 * DTSICCMP COMPRESSION/EXPANSION CONSTANTS AND WORK AREAS. LV002
|
||||
00004 * DTSICCMP
|
||||
00005 * IF THIS CODE IS CHANGED, THEN RECOMPILE DTSICCMP
|
||||
00006 * MACCU810 AND MACBU910. DTSICCMP
|
||||
00007 * DTSICCMP
|
||||
00008 * CL**2
|
||||
00009 * 08/31/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00010 * CL**2
|
||||
00011 ***** DTSICCMP
|
||||
00012 CL**2
|
||||
00013 05 CMP-ACTUAL-VALUES-BYTE PIC X(01) VALUE X'00'. DTSICCMP
|
||||
00014 05 CMP-LOW-VALUES-BYTE PIC X(01) VALUE X'40'. DTSICCMP
|
||||
00015 05 CMP-PACKED-ZERO-BYTE PIC X(01) VALUE X'80'. DTSICCMP
|
||||
00016 05 CMP-SPACES-BYTE PIC X(01) VALUE X'C0'. DTSICCMP
|
||||
00017 CL**2
|
||||
00018 05 CMP-STRING-MAX PIC S9(04) COMP VALUE +63. DTSICCMP
|
||||
00019 CL**2
|
||||
00020 05 CMP-PACKED-ZERO-LIT PIC X(01) VALUE X'0C'. DTSICCMP
|
||||
00021 CL**2
|
||||
00022 05 CMP-BINARY-HALF-WORD PIC S9(04) COMP. DTSICCMP
|
||||
00023 05 FILLER REDEFINES CMP-BINARY-HALF-WORD. DTSICCMP
|
||||
00024 10 CMP-BINARY-HALF-BYTE-1 PIC X(01). DTSICCMP
|
||||
00025 10 CMP-BINARY-HALF-BYTE-2 PIC X(01). DTSICCMP
|
||||
00026 CL**2
|
||||
00027 05 CMP-SUB-S1 PIC S9(04) COMP. DTSICCMP
|
||||
00028 05 CMP-SUB-S2 PIC S9(04) COMP. DTSICCMP
|
||||
00029 CL**2
|
||||
00030 05 CMP-STRING-LENGTH PIC S9(04) COMP. DTSICCMP
|
||||
00031 CL**2
|
||||
00032 05 CMP-STRING-COMPLETE-IND PIC X(01). DTSICCMP
|
||||
49
Copybook/DTSICECD.cpy
Normal file
49
Copybook/DTSICECD.cpy
Normal file
@ -0,0 +1,49 @@
|
||||
00001 ***** 01/23/01
|
||||
00002 * DTSICECD
|
||||
00003 * DTSICECD ERROR MESSAGE IDENTIFIERS. LV005
|
||||
00004 * EMSG-C-* (E05*) REPRESENT "CONSTRUCTABLE" ERROR DTSICECD
|
||||
00005 * MESSAGES. SEE MACCU805. DTSICECD
|
||||
00006 * DTSICECD
|
||||
00007 * REVIEWED AND MODIFIED FROM DC. 08/11/1998 EHH DTSICECD
|
||||
00008 * DTSICECD
|
||||
00009 ***** DTSICECD
|
||||
00010 DTSICECD
|
||||
00011 10 EMSG-RECORD-EXISTS PIC X(04) VALUE 'E001'.DTSICECD
|
||||
00012 10 EMSG-NO-RECORD PIC X(04) VALUE 'E002'.DTSICECD
|
||||
00013 10 EMSG-FIELD-NOT-ALLOWED PIC X(04) VALUE 'E003'.DTSICECD
|
||||
00014 10 EMSG-BANKRUPT PIC X(04) VALUE 'E004'.DTSICECD
|
||||
00015 10 EMSG-INVALID-TRANS-ID PIC X(04) VALUE 'E005'.DTSICECD
|
||||
00016 10 EMSG-SEARCH-CRITERIA PIC X(04) VALUE 'E006'.DTSICECD
|
||||
00017 10 EMSG-FIELD-NOT-VALID PIC X(04) VALUE 'E011'.DTSICECD
|
||||
00018 10 EMSG-FIELD-REQUIRED PIC X(04) VALUE 'E012'.DTSICECD
|
||||
00019 10 EMSG-INVALID-NEGATIVE PIC X(04) VALUE 'E013'.DTSICECD
|
||||
00020 10 EMSG-EXCEEDS-MIN-MAX PIC X(04) VALUE 'E014'.DTSICECD
|
||||
00021 10 EMSG-CROSS-EDIT PIC X(04) VALUE 'E015'.DTSICECD
|
||||
00022 10 EMSG-NO-EMPLOYER PIC X(04) VALUE 'E021'.DTSICECD
|
||||
00023 10 EMSG-NO-ASSIGNMENT PIC X(04) VALUE 'E022'.DTSICECD
|
||||
00024 10 EMSG-NO-BATCH PIC X(04) VALUE 'E023'.DTSICECD
|
||||
00025 10 EMSG-NO-DOC PIC X(04) VALUE 'E024'.DTSICECD
|
||||
00026 10 EMSG-ADD-PRECEDED PIC X(04) VALUE 'E025'.DTSICECD
|
||||
00027 10 EMSG-MOD-PRECEDED PIC X(04) VALUE 'E026'.DTSICECD
|
||||
00028 10 EMSG-DEL-PRECEDED PIC X(04) VALUE 'E027'.DTSICECD
|
||||
00029 10 EMSG-PRINT-PRECEDED PIC X(04) VALUE 'E028'.DTSICECD
|
||||
00030 10 EMSG-EMP-LOCKED PIC X(04) VALUE 'E029'.DTSICECD
|
||||
00031 10 EMSG-EMP-MARKED-FOR-PURGE PIC X(04) VALUE 'E030'.DTSICECD
|
||||
00032 10 EMSG-NOT-CURRENT-UPDATE PIC X(04) VALUE 'E031'.DTSICECD
|
||||
00033 10 EMSG-NOT-CURRENT-PRINT PIC X(04) VALUE 'E032'.DTSICECD
|
||||
00034 10 EMSG-NO-EMP-NO-CHANGE PIC X(04) VALUE 'E033'.DTSICECD
|
||||
00035 10 EMSG-NO-BATCH-NO-CHANGE PIC X(04) VALUE 'E034'.DTSICECD
|
||||
00036 10 EMSG-NO-ASSIGN-NO-CHANGE PIC X(04) VALUE 'E035'.DTSICECD
|
||||
00037 10 EMSG-NO-ITEM-NO-CHANGE PIC X(04) VALUE 'E036'.DTSICECD
|
||||
00038 10 EMSG-NO-FIELD-CHANGE-UPDATE PIC X(04) VALUE 'E037'.DTSICECD
|
||||
00039 10 EMSG-NO-FIELD-CHANGE-PRINT PIC X(04) VALUE 'E038'.DTSICECD
|
||||
00040 10 EMSG-EMP-WRITTEN-OFF PIC X(04) VALUE 'E039'.DTSICECD
|
||||
00041 *********10 EMSG-DUPLICATE-LEGAL-NAME PIC X(04) VALUE 'E041'.DTSICECD
|
||||
00042 10 EMSG-DUPLICATE-FEIN PIC X(04) VALUE 'E042'.DTSICECD
|
||||
00043 10 EMSG-PRINTER-NOT-VALID PIC X(04) VALUE 'E043'.DTSICECD
|
||||
00044 10 EMSG-NO-ADDRESS PIC X(04) VALUE 'E044'.DTSICECD
|
||||
00045 10 EMSG-NO-AHDR-RECORD PIC X(04) VALUE 'E045'.DTSICECD
|
||||
00046 10 EMSG-BATCH-FULL PIC X(04) VALUE 'E046'.DTSICECD
|
||||
00047 *********10 EMSG-BATCH-RELEASED PIC X(04) VALUE 'E047'.DTSICECD
|
||||
00048 10 EMSG-OLD-RCVD-DATE PIC X(04) VALUE 'E048'.DTSICECD
|
||||
00049 10 EMSG-C-VALIDATE PIC X(04) VALUE 'E051'.DTSICECD
|
||||
1528
Copybook/DTSICENO.cpy
Normal file
1528
Copybook/DTSICENO.cpy
Normal file
File diff suppressed because it is too large
Load Diff
18
Copybook/DTSICFKD.cpy
Normal file
18
Copybook/DTSICFKD.cpy
Normal file
@ -0,0 +1,18 @@
|
||||
00001 ***** 10/20/98
|
||||
00002 * DTSICFKD
|
||||
00003 * DTSICFKD FUNCTION KEY DESCRIPTIONS. LV004
|
||||
00004 * DTSICFKD
|
||||
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**3
|
||||
00006 * CL**3
|
||||
00007 ***** DTSICFKD
|
||||
00008 05 CFKD-FUNCTION-KEY-DESCRIPTIONS. DTSICFKD
|
||||
00009 10 CFKD-FIRST PIC X(08) VALUE 'F5=FIRST'. DTSICFKD
|
||||
00010 10 CFKD-LAST PIC X(07) VALUE 'F6=LAST'. DTSICFKD
|
||||
00011 10 CFKD-BACKWARD PIC X(07) VALUE 'F7=BACK'. DTSICFKD
|
||||
00012 10 CFKD-FORWARD PIC X(07) VALUE 'F8=FWRD'. DTSICFKD
|
||||
00013 10 CFKD-ADD PIC X(07) VALUE 'F9=ADD'. DTSICFKD
|
||||
00014 10 CFKD-MOD PIC X(07) VALUE 'F10=MOD'. DTSICFKD
|
||||
00015 10 CFKD-NEW-SEARCH PIC X(20) CL**4
|
||||
00016 VALUE 'F12=START NEW SEARCH'. CL**2
|
||||
00017 10 CFKD-COMPRESS PIC X(12) VALUE 'F22=COMPRESS'. CL**2
|
||||
00018 10 CFKD-DEL PIC X(07) VALUE 'F23=DEL'. CL**2
|
||||
31
Copybook/DTSICPCD.cpy
Normal file
31
Copybook/DTSICPCD.cpy
Normal file
@ -0,0 +1,31 @@
|
||||
00001 ***** 01/23/01
|
||||
00002 * DTSICPCD
|
||||
00003 * DTSICPCD PROMPT MESSAGE IDENTIFIERS. LV005
|
||||
00004 * DTSICPCD
|
||||
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH DTSICPCD
|
||||
00006 * DTSICPCD
|
||||
00007 ***** DTSICPCD
|
||||
00008 DTSICPCD
|
||||
00009 10 PMSG-KEY-OPTION PIC X(04) VALUE 'P001'.DTSICPCD
|
||||
00010 10 PMSG-ADD-CONFIRM PIC X(04) VALUE 'P002'.DTSICPCD
|
||||
00011 10 PMSG-MOD-CONFIRM PIC X(04) VALUE 'P003'.DTSICPCD
|
||||
00012 10 PMSG-DEL-CONFIRM PIC X(04) VALUE 'P004'.DTSICPCD
|
||||
00013 10 PMSG-ADD-CANCELED PIC X(04) VALUE 'P005'.DTSICPCD
|
||||
00014 10 PMSG-MOD-CANCELED PIC X(04) VALUE 'P006'.DTSICPCD
|
||||
00015 10 PMSG-DEL-CANCELED PIC X(04) VALUE 'P007'.DTSICPCD
|
||||
00016 10 PMSG-ADD-SUCCESSFUL PIC X(04) VALUE 'P008'.DTSICPCD
|
||||
00017 10 PMSG-MOD-SUCCESSFUL PIC X(04) VALUE 'P009'.DTSICPCD
|
||||
00018 10 PMSG-DEL-SUCCESSFUL PIC X(04) VALUE 'P010'.DTSICPCD
|
||||
00019 10 PMSG-PRINT-CONFIRM PIC X(04) VALUE 'P011'.DTSICPCD
|
||||
00020 10 PMSG-PRINT-CANCELED PIC X(04) VALUE 'P012'.DTSICPCD
|
||||
00021 10 PMSG-PRINT-SUCCESSFUL PIC X(04) VALUE 'P013'.DTSICPCD
|
||||
00022 10 PMSG-KEY-EMP-NO PIC X(04) VALUE 'P014'.DTSICPCD
|
||||
00023 10 PMSG-KEY-BATCH-NO PIC X(04) VALUE 'P015'.DTSICPCD
|
||||
00024 10 PMSG-KEY-ASSIGN-NO PIC X(04) VALUE 'P016'.DTSICPCD
|
||||
00025 10 PMSG-KEY-DOC-NO PIC X(04) VALUE 'P017'.DTSICPCD
|
||||
00026 10 PMSG-FIRST-PAGE PIC X(04) VALUE 'P021'.DTSICPCD
|
||||
00027 10 PMSG-LAST-PAGE PIC X(04) VALUE 'P022'.DTSICPCD
|
||||
00028 10 PMSG-ONLY-PAGE PIC X(04) VALUE 'P023'.DTSICPCD
|
||||
00029 10 PMSG-ALT-PRT-CONFIRM PIC X(04) VALUE 'P025'.DTSICPCD
|
||||
00030 10 PMSG-ALT-ADD-CONFIRM PIC X(04) VALUE 'P026'.DTSICPCD
|
||||
00031 *********10 PMSG-CLOSE-BATCH PIC X(04) VALUE 'P027'.DTSICPCD
|
||||
22
Copybook/DTSICPRT.cpy
Normal file
22
Copybook/DTSICPRT.cpy
Normal file
@ -0,0 +1,22 @@
|
||||
00001 ***** 07/27/98
|
||||
00002 * DTSICPRT
|
||||
00003 * MACICPRT PRINTER CONTROL LITERALS. LV001
|
||||
00004 * DTSICPRT
|
||||
00005 * NOTE: IF A PRINTER CONTROL LITERAL IS ADDED OR MODIFIED, DTSICPRT
|
||||
00006 * THEN MACCU356 MUST BE MODIFIED (NOT JUST DTSICPRT
|
||||
00007 * RECOMPILED, BUT MODIFIED). DTSICPRT
|
||||
00008 * DTSICPRT
|
||||
00009 ***** DTSICPRT
|
||||
00010 05 CPRT-PRINTER-LITERALS. DTSICPRT
|
||||
00011 10 CPRT-NEW-LINE PIC X(01) VALUE X'15'.DTSICPRT
|
||||
00012 10 CPRT-FORM-FEED PIC X(01) VALUE X'0C'.DTSICPRT
|
||||
00013 DTSICPRT
|
||||
00014 10 CPRT-SELECT-UPPER-TRAY PIC X(01) VALUE X'01'.DTSICPRT
|
||||
00015 10 CPRT-SELECT-LOWER-TRAY PIC X(01) VALUE X'02'.DTSICPRT
|
||||
00016 10 CPRT-ENABLE-UNDERLINE-FIX PIC X(01) VALUE X'03'.DTSICPRT
|
||||
00017 10 CPRT-ENABLE-UNDERLINE-FLOAT PIC X(01) VALUE X'04'.DTSICPRT
|
||||
00018 10 CPRT-DISABLE-UNDERLINE PIC X(01) VALUE X'05'.DTSICPRT
|
||||
00019 10 CPRT-STROKE-WEIGHT-BOLD PIC X(01) VALUE X'06'.DTSICPRT
|
||||
00020 10 CPRT-STROKE-WEIGHT-REGULAR PIC X(01) VALUE X'07'.DTSICPRT
|
||||
00021 DTSICPRT
|
||||
00022 10 CPRT-PCL5-ESCAPE-CHAR PIC X(01) VALUE X'27'.DTSICPRT
|
||||
40
Copybook/DTSIE110.cpy
Normal file
40
Copybook/DTSIE110.cpy
Normal file
@ -0,0 +1,40 @@
|
||||
00001 ***** 10/02/09
|
||||
00002 * DTSIE110
|
||||
00003 * DTSIX110 EMPLOYER ADDRESS EXTRACT RECORD LV003
|
||||
00004 * DTSIE110
|
||||
00005 * EXCHANGES EMPLOYER ADDRESS INFORMATION BETWEEN MAINFRAME AND DTSIE110
|
||||
00006 * SQL SERVER DATABASE. DTSIE110
|
||||
00007 * DTSIE110
|
||||
00008 * DTSIE110
|
||||
00009 ***** DTSIE110
|
||||
00010 DTSIE110
|
||||
00011 15 X110-REC-TYPE PIC X(03) VALUE '110'. DTSIE110
|
||||
00012 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00013 15 X110-EMP-NO PIC 9(06). DTSIE110
|
||||
00014 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00015 15 X110-ADDR-TYPE PIC X(02). DTSIE110
|
||||
00016 88 X110-ADDR-TYPE-MAIL-88 VALUE '01'. DTSIE110
|
||||
00017 88 X110-ADDR-TYPE-RECS-88 VALUE '02'. DTSIE110
|
||||
00018 88 X110-ADDR-TYPE-WORK-88 VALUE '03'. DTSIE110
|
||||
00019 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00020 15 X110-ATTENTION PIC X(40). DTSIE110
|
||||
00021 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00022 15 X110-STREET-1 PIC X(40). DTSIE110
|
||||
00023 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00024 15 X110-STREET-2 PIC X(40). DTSIE110
|
||||
00025 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00026 15 X110-CITY PIC X(25). DTSIE110
|
||||
00027 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00028 15 X110-STATE PIC X(02). DTSIE110
|
||||
00029 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00030 15 X110-ZIP PIC X(10). DTSIE110
|
||||
00031 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00032 15 X110-PHONE PIC X(15). DTSIE110
|
||||
00033 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00034 15 X110-FAX PIC X(15). DTSIE110
|
||||
00035 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00036 15 X110-EMAIL PIC X(40). DTSIE110
|
||||
00037 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00038 15 X110-WEB-SITE PIC X(40). DTSIE110
|
||||
00039 15 FILLER PIC X(01) VALUE ','. DTSIE110
|
||||
00040 15 X110-EMP-NAME PIC X(40). DTSIE110
|
||||
35
Copybook/DTSIEEMH.cpy
Normal file
35
Copybook/DTSIEEMH.cpy
Normal file
@ -0,0 +1,35 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIEEMH
|
||||
00003 * DTSIEEMH ELECTRONIC MEDIA EMPLOYER HISTORY. ONE LV001
|
||||
00004 * RECORD EXISTS FOR ALL SUCCESSFULLY PROCESSED DTSIEEMH
|
||||
00005 * SUBMISSIONS. DTSIEEMH
|
||||
00006 * DTSIEEMH
|
||||
00007 ***** DTSIEEMH
|
||||
00008 SKIP1 DTSIEEMH
|
||||
00009 10 EEMH-KEY-AREA. DTSIEEMH
|
||||
00010 15 EEMH-REC-TYPE PIC S9(04) COMP. DTSIEEMH
|
||||
00011 88 EEMH-EMH-88 VALUE +05. DTSIEEMH
|
||||
00012 15 EEMH-EMP-NO PIC S9(07) COMP-3. DTSIEEMH
|
||||
00013 15 EEMH-REPORTING-DATE PIC S9(09) COMP-3. DTSIEEMH
|
||||
00014 15 EEMH-DATA-TYPE-CD PIC X(02). DTSIEEMH
|
||||
00015 88 EEMH-PRT-UC30-88 VALUE '01'. DTSIEEMH
|
||||
00016 88 EEMH-BEN-CHARGE-DATA-88 VALUE '02'. DTSIEEMH
|
||||
00017 88 EEMH-WAGE-88 VALUE '03'. DTSIEEMH
|
||||
00018 88 EEMH-IRS-QTR-FEIN-88 VALUE '04'. DTSIEEMH
|
||||
00019 88 EEMH-IRS-940-CERT-88 VALUE '05'. DTSIEEMH
|
||||
00020 88 EEMH-IRS-WKLY-XMATCH-88 VALUE '06'. DTSIEEMH
|
||||
00021 88 EEMH-RR-RETIRE-88 VALUE '07'. DTSIEEMH
|
||||
00022 88 EEMH-BANK-RECON-OUT-88 VALUE '08'. DTSIEEMH
|
||||
00023 88 EEMH-BANK-RECON-IN-88 VALUE '09'. DTSIEEMH
|
||||
00024 88 EEMH-1099-88 VALUE '10'. DTSIEEMH
|
||||
00025 15 EEMH-LOG-NO PIC 9(10). DTSIEEMH
|
||||
00026 15 EEMH-KEY-FILLER PIC X(01). DTSIEEMH
|
||||
00027 SKIP1 DTSIEEMH
|
||||
00028 10 EEMH-DATA-AREA. DTSIEEMH
|
||||
00029 15 EEMH-RESULT-CD PIC X(02). DTSIEEMH
|
||||
00030 88 EEMH-RC-FAILED-88 VALUE '01'. DTSIEEMH
|
||||
00031 88 EEMH-RC-PART-SUCCESS-88 VALUE '03'. DTSIEEMH
|
||||
00032 88 EEMH-RC-SUCCESSFUL-88 VALUE '04'. DTSIEEMH
|
||||
00033 15 EEMH-ELF-ID PIC S9(07) COMP-3.DTSIEEMH
|
||||
00034 15 EEMH-EMP-SEQ-NO PIC 9(04). DTSIEEMH
|
||||
00035 15 EEMH-FILLER PIC X(30). DTSIEEMH
|
||||
19
Copybook/DTSIEHDR.cpy
Normal file
19
Copybook/DTSIEHDR.cpy
Normal file
@ -0,0 +1,19 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIEHDR
|
||||
00003 * DTSIEHDR ELECTRONIC FILER HEADER RECORD. LV001
|
||||
00004 * DTSIEHDR
|
||||
00005 ***** DTSIEHDR
|
||||
00006 SKIP1 DTSIEHDR
|
||||
00007 10 EHDR-KEY-AREA. DTSIEHDR
|
||||
00008 15 EHDR-REC-TYPE PIC S9(04) COMP. DTSIEHDR
|
||||
00009 88 EHDR-HDR-88 VALUE +01. DTSIEHDR
|
||||
00010 15 EHDR-ELF-ID PIC S9(07) COMP-3. DTSIEHDR
|
||||
00011 88 EHDR-ELF-ID-HDR-88 VALUE +0. DTSIEHDR
|
||||
00012 15 EHDR-ELF-DATA-TYPE-CD PIC X(02). DTSIEHDR
|
||||
00013 88 EHDR-ELF-DATA-TYPE-HDR-88 VALUE ZERO. DTSIEHDR
|
||||
00014 15 EHDR-KEY-FILLER PIC X(16). DTSIEHDR
|
||||
00015 SKIP1 DTSIEHDR
|
||||
00016 10 EHDR-DATA-AREA. DTSIEHDR
|
||||
00017 15 EHDR-LAST-USED-ELF-ID PIC S9(07) COMP-3. DTSIEHDR
|
||||
00018 15 EHDR-LAST-USED-LOG-NO PIC 9(10). DTSIEHDR
|
||||
00019 15 EHDR-FILLER PIC X(26). DTSIEHDR
|
||||
109
Copybook/DTSIELEN.cpy
Normal file
109
Copybook/DTSIELEN.cpy
Normal file
@ -0,0 +1,109 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIELEN
|
||||
00003 * DTSIELEN ELECRONIC MEDIA MASTER FILE RECORD LENGTHS. LV012
|
||||
00004 * DTSIELEN
|
||||
00005 * ELEN-*-REC-LEN IS THE LENGTH OF THE DTSIELEN
|
||||
00006 * COMPLETE RECORD. DTSIELEN
|
||||
00007 * DTSIELEN
|
||||
00008 * DTSIELEN
|
||||
00009 * 01/18/2001 INITIAL DEVELOPMENT. GD. DTSIELEN
|
||||
00010 * DTSIELEN
|
||||
00011 * DTSIELEN
|
||||
00012 * TO ADD A NEW RECORD TYPE TO THE MASTER FILE: DTSIELEN
|
||||
00013 * DTSIELEN
|
||||
00014 * 1. MODIFY DTSIELEN. DTSIELEN
|
||||
00015 * DTSIELEN
|
||||
00016 * 2. MODIFY DTSIESKL. DTSIELEN
|
||||
00017 * DTSIELEN
|
||||
00018 * 3. CREATE DTSIE*** (WHERE *** IS THE IDENTIFIER OF DTSIELEN
|
||||
00019 * THE NEW RECORD TYPE). DTSIELEN
|
||||
00020 * DTSIELEN
|
||||
00021 * 4. COMPILE DTSCU835, DTSBU935, DTSBD998 DTSIELEN
|
||||
00022 * DTSIELEN
|
||||
00023 * DTSIELEN
|
||||
00024 ***** DTSIELEN
|
||||
00025 DTSIELEN
|
||||
00026 10 ELEN-LENGTHS-AREA. DTSIELEN
|
||||
00027 DTSIELEN
|
||||
00028 ***** DTSIELEN
|
||||
00029 * REC-TYPE = 01 DTSIELEN
|
||||
00030 ***** DTSIELEN
|
||||
00031 15 ELEN-HDR-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIELEN
|
||||
00032 15 ELEN-HDR-REC-LEN PIC S9(04) COMP VALUE +64. DTSIELEN
|
||||
00033 15 ELEN-HDR-AIX-IND PIC X(01) VALUE 'N'. DTSIELEN
|
||||
00034 15 ELEN-HDR-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
|
||||
00035 15 ELEN-HDR-FILE-ID PIC S9(04) COMP VALUE +1. DTSIELEN
|
||||
00036 15 ELEN-HDR-PREFIX PIC X(04) VALUE 'EHDR'.DTSIELEN
|
||||
00037 DTSIELEN
|
||||
00038 ***** DTSIELEN
|
||||
00039 * REC-TYPE = 02 DTSIELEN
|
||||
00040 ***** DTSIELEN
|
||||
00041 15 ELEN-PRF-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIELEN
|
||||
00042 15 ELEN-PRF-REC-LEN PIC S9(04) COMP VALUE +769. DTSIELEN
|
||||
00043 15 ELEN-PRF-AIX-IND PIC X(01) VALUE 'Y'. DTSIELEN
|
||||
00044 15 ELEN-PRF-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
|
||||
00045 15 ELEN-PRF-FILE-ID PIC S9(04) COMP VALUE +1. DTSIELEN
|
||||
00046 15 ELEN-PRF-PREFIX PIC X(04) VALUE 'EPRF'.DTSIELEN
|
||||
00047 DTSIELEN
|
||||
00048 ***** DTSIELEN
|
||||
00049 * REC-TYPE = 03 DTSIELEN
|
||||
00050 ***** DTSIELEN
|
||||
00051 15 ELEN-LOG-KEY-LEN PIC S9(04) COMP VALUE +12. DTSIELEN
|
||||
00052 15 ELEN-LOG-REC-LEN PIC S9(04) COMP VALUE +110. DTSIELEN
|
||||
00053 15 ELEN-LOG-AIX-IND PIC X(01) VALUE 'Y'. DTSIELEN
|
||||
00054 15 ELEN-LOG-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
|
||||
00055 15 ELEN-LOG-FILE-ID PIC S9(04) COMP VALUE +2. DTSIELEN
|
||||
00056 15 ELEN-LOG-PREFIX PIC X(04) VALUE 'ELOG'.DTSIELEN
|
||||
00057 DTSIELEN
|
||||
00058 ***** DTSIELEN
|
||||
00059 * REC-TYPE = 04 DTSIELEN
|
||||
00060 ***** DTSIELEN
|
||||
00061 15 ELEN-MSG-KEY-LEN PIC S9(04) COMP VALUE +24. DTSIELEN
|
||||
00062 15 ELEN-MSG-REC-LEN PIC S9(04) COMP VALUE +132. DTSIELEN
|
||||
00063 15 ELEN-MSG-AIX-IND PIC X(01) VALUE 'N'. DTSIELEN
|
||||
00064 15 ELEN-MSG-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
|
||||
00065 15 ELEN-MSG-FILE-ID PIC S9(04) COMP VALUE +2. DTSIELEN
|
||||
00066 15 ELEN-MSG-PREFIX PIC X(04) VALUE 'EMSG'.DTSIELEN
|
||||
00067 DTSIELEN
|
||||
00068 ***** DTSIELEN
|
||||
00069 * REC-TYPE = 05 DTSIELEN
|
||||
00070 ***** DTSIELEN
|
||||
00071 15 ELEN-EMH-KEY-LEN PIC S9(04) COMP VALUE +23. DTSIELEN
|
||||
00072 15 ELEN-EMH-REC-LEN PIC S9(04) COMP VALUE +64. DTSIELEN
|
||||
00073 15 ELEN-EMH-AIX-IND PIC X(01) VALUE 'Y'. DTSIELEN
|
||||
00074 15 ELEN-EMH-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
|
||||
00075 15 ELEN-EMH-FILE-ID PIC S9(04) COMP VALUE +3. DTSIELEN
|
||||
00076 15 ELEN-EMH-PREFIX PIC X(04) VALUE 'EEMH'.DTSIELEN
|
||||
00077 DTSIELEN
|
||||
00078 ***** DTSIELEN
|
||||
00079 * REC-TYPE = 06 DTSIELEN
|
||||
00080 ***** DTSIELEN
|
||||
00081 15 ELEN-TRG-KEY-LEN PIC S9(04) COMP VALUE +24. DTSIELEN
|
||||
00082 15 ELEN-TRG-REC-LEN PIC S9(04) COMP VALUE +64. DTSIELEN
|
||||
00083 15 ELEN-TRG-AIX-IND PIC X(01) VALUE 'N'. DTSIELEN
|
||||
00084 15 ELEN-TRG-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
|
||||
00085 15 ELEN-TRG-FILE-ID PIC S9(04) COMP VALUE +2. DTSIELEN
|
||||
00086 15 ELEN-TRG-PREFIX PIC X(04) VALUE 'ETRG'.DTSIELEN
|
||||
00087 DTSIELEN
|
||||
00088 DTSIELEN
|
||||
00089 DTSIELEN
|
||||
00090 10 FILLER REDEFINES ELEN-LENGTHS-AREA. DTSIELEN
|
||||
00091 15 ELEN-LENGTH OCCURS 6 TIMES DTSIELEN
|
||||
00092 INDEXED BY ELEN-IDX. DTSIELEN
|
||||
00093 20 ELEN-KEY-LEN PIC S9(04) COMP. DTSIELEN
|
||||
00094 20 ELEN-REC-LEN PIC S9(04) COMP. DTSIELEN
|
||||
00095 20 ELEN-AIX-IND PIC X(01). DTSIELEN
|
||||
00096 88 ELEN-AIX-YES-88 VALUE 'Y'. DTSIELEN
|
||||
00097 88 ELEN-AIX-NO-88 VALUE 'N'. DTSIELEN
|
||||
00098 20 ELEN-DEL-IND PIC X(01). DTSIELEN
|
||||
00099 88 ELEN-DEL-EPRF-OK-88 VALUE 'Y'. DTSIELEN
|
||||
00100 88 ELEN-DEL-EPRF-NOT-OK-88 VALUE 'N'. DTSIELEN
|
||||
00101 20 ELEN-FILE-ID PIC S9(04) COMP. DTSIELEN
|
||||
00102 20 ELEN-REC-PREFIX PIC X(04). DTSIELEN
|
||||
00103 DTSIELEN
|
||||
00104 DTSIELEN
|
||||
00105 10 ELEN-MAX-REC-ID PIC S9(04) COMP VALUE +6. DTSIELEN
|
||||
00106 DTSIELEN
|
||||
00107 10 ELEN-MAX-KEY-LEN PIC S9(04) COMP VALUE +24. DTSIELEN
|
||||
00108 DTSIELEN
|
||||
00109 10 ELEN-MAX-REC-LEN PIC S9(04) COMP VALUE +1024. DTSIELEN
|
||||
46
Copybook/DTSIELOG.cpy
Normal file
46
Copybook/DTSIELOG.cpy
Normal file
@ -0,0 +1,46 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIELOG
|
||||
00003 * DTSIELOG ELECTRONIC FILER LOG RECORD. LV001
|
||||
00004 * THERE IS ONE LOG RECORD FOR EACH ITEM SUBMITTED DTSIELOG
|
||||
00005 * ELECTRONICALLY. DTSIELOG
|
||||
00006 * DTSIELOG
|
||||
00007 ***** DTSIELOG
|
||||
00008 SKIP1 DTSIELOG
|
||||
00009 10 ELOG-KEY-AREA. DTSIELOG
|
||||
00010 15 ELOG-REC-TYPE PIC S9(04) COMP. DTSIELOG
|
||||
00011 88 ELOG-LOG-88 VALUE +03. DTSIELOG
|
||||
00012 15 ELOG-LOG-NO PIC 9(10). DTSIELOG
|
||||
00013 15 FILLER REDEFINES ELOG-LOG-NO. DTSIELOG
|
||||
00014 20 ELOG-LOG-NO-PFX PIC 9(04). DTSIELOG
|
||||
00015 20 ELOG-LOG-NO-SFX PIC 9(06). DTSIELOG
|
||||
00016 15 ELOG-KEY-FILLER PIC X(12). DTSIELOG
|
||||
00017 SKIP1 DTSIELOG
|
||||
00018 10 ELOG-DATA-AREA. DTSIELOG
|
||||
00019 15 ELOG-ELF-ID PIC S9(07) COMP-3. DTSIELOG
|
||||
00020 15 ELOG-DATA-TYPE-CD PIC X(02). DTSIELOG
|
||||
00021 88 ELOG-PRT-UC30-88 VALUE '01'. DTSIELOG
|
||||
00022 88 ELOG-BEN-CHARGE-88 VALUE '02'. DTSIELOG
|
||||
00023 88 ELOG-WAGE-88 VALUE '03'. DTSIELOG
|
||||
00024 88 ELOG-IRS-1TR-FEIN-88 VALUE '04'. DTSIELOG
|
||||
00025 88 ELOG-IRS-940-CERT-88 VALUE '05'. DTSIELOG
|
||||
00026 88 ELOG-IRS-WKLY-XMATCH-88 VALUE '06'. DTSIELOG
|
||||
00027 88 ELOG-RR-RETIRE-88 VALUE '07'. DTSIELOG
|
||||
00028 88 ELOG-BANK-RECON-OUT-88 VALUE '08'. DTSIELOG
|
||||
00029 88 ELOG-BANK-RECON-IN-88 VALUE '09'. DTSIELOG
|
||||
00030 88 ELOG-1099-88 VALUE '10'. DTSIELOG
|
||||
00031 15 ELOG-BOX-NO PIC X(08). DTSIELOG
|
||||
00032 15 ELOG-STATUS-CD PIC X(01). DTSIELOG
|
||||
00033 88 ELOG-STAT-RCVD-88 VALUE '0'. DTSIELOG
|
||||
00034 88 ELOG-STAT-DATA-CNTR-88 VALUE '1'. DTSIELOG
|
||||
00035 88 ELOG-STAT-COMPLETE-88 VALUE '2'. DTSIELOG
|
||||
00036 88 ELOG-STAT-FAILED-88 VALUE '3'. DTSIELOG
|
||||
00037 88 ELOG-STAT-WITHDRAWN-88 VALUE '4'. DTSIELOG
|
||||
00038 15 ELOG-RCVD-DATE PIC S9(09) COMP-3. DTSIELOG
|
||||
00039 15 ELOG-COMPLETE-DATE PIC S9(09) COMP-3. DTSIELOG
|
||||
00040 88 ELOG-STATUS-ACTIVE-88 VALUE ZERO. DTSIELOG
|
||||
00041 15 ELOG-ORIG-VOL PIC X(06). DTSIELOG
|
||||
00042 15 ELOG-FILLER PIC X(29). DTSIELOG
|
||||
00043 15 ELOG-ESTB-OPID PIC X(08). DTSIELOG
|
||||
00044 15 ELOG-ESTB-DATE PIC S9(09) COMP-3. DTSIELOG
|
||||
00045 15 ELOG-CHNG-OPID PIC X(08). DTSIELOG
|
||||
00046 15 ELOG-CHNG-DATE PIC S9(09) COMP-3. DTSIELOG
|
||||
26
Copybook/DTSIEMSG.cpy
Normal file
26
Copybook/DTSIEMSG.cpy
Normal file
@ -0,0 +1,26 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIEMSG
|
||||
00003 * DTSIEMSG ELECTRONIC SUBMISSION MESSAGE RECORD. LV001
|
||||
00004 * ONE RECORD EXISTS FOR EACH SYSTEM GENERATED STATUS DTSIEMSG
|
||||
00005 * MESSAGE, FOR EACH TYPE OF ERROR FOUND IN THE DATA, DTSIEMSG
|
||||
00006 * AND FOR EACH MESSAGE A SYSTEM USER ENTERS MANUALLY. DTSIEMSG
|
||||
00007 * DTSIEMSG
|
||||
00008 ***** DTSIEMSG
|
||||
00009 SKIP1 DTSIEMSG
|
||||
00010 10 EMSG-KEY-AREA. DTSIEMSG
|
||||
00011 15 EMSG-REC-TYPE PIC S9(04) COMP. DTSIEMSG
|
||||
00012 88 EMSG-MSG-88 VALUE +04. DTSIEMSG
|
||||
00013 15 EMSG-LOG-NO PIC 9(10). DTSIEMSG
|
||||
00014 15 EMSG-ABSTIME PIC S9(15) COMP-3. DTSIEMSG
|
||||
00015 15 EMSG-SEQ PIC 9(04). DTSIEMSG
|
||||
00016 SKIP1 DTSIEMSG
|
||||
00017 10 EMSG-DATA-AREA. DTSIEMSG
|
||||
00018 15 EMSG-MSG-TYPE PIC X(01). DTSIEMSG
|
||||
00019 88 EMSG-TYPE-STATUS-88 VALUE '0'. DTSIEMSG
|
||||
00020 88 EMSG-TYPE-ERROR-88 VALUE '1'. DTSIEMSG
|
||||
00021 88 EMSG-TYPE-MANUAL-88 VALUE '2'. DTSIEMSG
|
||||
00022 88 EMSG-TYPE-SUMMARY-88 VALUE '3'. DTSIEMSG
|
||||
00023 15 EMSG-FULL-MESSAGE PIC X(60). DTSIEMSG
|
||||
00024 15 EMSG-SHORT-MESSAGE PIC X(12). DTSIEMSG
|
||||
00025 15 EMSG-FILLER PIC X(27). DTSIEMSG
|
||||
00026 15 EMSG-ESTB-OPID PIC X(08). DTSIEMSG
|
||||
139
Copybook/DTSIEPRF.cpy
Normal file
139
Copybook/DTSIEPRF.cpy
Normal file
@ -0,0 +1,139 @@
|
||||
00001 ***** 08/28/02
|
||||
00002 * DTSIEPRF
|
||||
00003 * DTSIEPRF EMPLOYER ELECTRONIC MEDIA TRACKING PROFILE RECORD. LV003
|
||||
00004 * CONTAINS INFORMATION ABOUT ELECTRONIC DATA SUBMITTEDTSIEPRF
|
||||
00005 * BY AN EMPLOYER (E.G. DATA FORMAT, TYPE OF MEDIA, TDTSIEPRF
|
||||
00006 * OF DATA, CONTACT INFORMATION, ETC.) DTSIEPRF
|
||||
00007 * DTSIEPRF
|
||||
00008 ***** DTSIEPRF
|
||||
00009 SKIP1 DTSIEPRF
|
||||
00010 10 EPRF-KEY-AREA. DTSIEPRF
|
||||
00011 15 EPRF-REC-TYPE PIC S9(04) COMP. DTSIEPRF
|
||||
00012 88 EPRF-PRF-88 VALUE +02. DTSIEPRF
|
||||
00013 15 EPRF-ELF-ID PIC S9(07) COMP-3. DTSIEPRF
|
||||
00014 15 EPRF-DATA-TYPE-CD PIC X(02). DTSIEPRF
|
||||
00015 88 EPRF-PRT-UC30-88 VALUE '01'. DTSIEPRF
|
||||
00016 88 EPRF-BEN-CHARGE-88 VALUE '02'. DTSIEPRF
|
||||
00017 88 EPRF-WAGE-88 VALUE '03'. DTSIEPRF
|
||||
00018 88 EPRF-IRS-QTR-FEIN-88 VALUE '04'. DTSIEPRF
|
||||
00019 88 EPRF-IRS-940-CERT-88 VALUE '05'. DTSIEPRF
|
||||
00020 88 EPRF-IRS-WKLY-XMTCH-88 VALUE '06'. DTSIEPRF
|
||||
00021 88 EPRF-RR-RETIRE-88 VALUE '07'. DTSIEPRF
|
||||
00022 88 EPRF-BANK-RECON-OUT-88 VALUE '08'. DTSIEPRF
|
||||
00023 88 EPRF-BANK-RECON-IN-88 VALUE '09'. DTSIEPRF
|
||||
00024 88 EPRF-1099-88 VALUE '10'. DTSIEPRF
|
||||
00025 88 EPRF-DATA-TYPE-UNK-88 VALUE '99'. DTSIEPRF
|
||||
00026 88 EPRF-DATA-TYPE-VALID-88 DTSIEPRF
|
||||
00027 VALUE '01' THRU '10' DTSIEPRF
|
||||
00028 '99'. DTSIEPRF
|
||||
00029 15 EPRF-KEY-FILLER PIC X(16). DTSIEPRF
|
||||
00030 SKIP1 DTSIEPRF
|
||||
00031 10 EPRF-DATA-AREA. DTSIEPRF
|
||||
00032 15 EPRF-ELF-NAME PIC X(40). DTSIEPRF
|
||||
00033 15 EPRF-MEDIUM-TYPE-CD PIC X(02). DTSIEPRF
|
||||
00034 88 EPRF-CARTRIDGE-SL-88 VALUE 'CS'. DTSIEPRF
|
||||
00035 88 EPRF-CARTRIDGE-NL-88 VALUE 'CN'. DTSIEPRF
|
||||
00036 88 EPRF-REEL-SL-88 VALUE 'RS'. DTSIEPRF
|
||||
00037 88 EPRF-REEL-NL-88 VALUE 'RN'. DTSIEPRF
|
||||
00038 88 EPRF-DISKETTE-88 VALUE 'DK'. DTSIEPRF
|
||||
00039 88 EPRF-CD-88 VALUE 'CD'. DTSIEPRF
|
||||
00040 88 EPRF-EMAIL-88 VALUE 'EM'. DTSIEPRF
|
||||
00041 88 EPRF-FTP-88 VALUE 'FT'. DTSIEPRF
|
||||
00042 88 EPRF-WEB-88 VALUE 'WB'. DTSIEPRF
|
||||
00043 88 EPRF-IVR-88 VALUE 'VR'. DTSIEPRF
|
||||
00044 88 EPRF-TAPE-88 VALUE 'CS' 'CN' DTSIEPRF
|
||||
00045 'RS' 'RN'. DTSIEPRF
|
||||
00046 SKIP1 DTSIEPRF
|
||||
00047 15 EPRF-FORMAT-CD PIC X(03). DTSIEPRF
|
||||
00048 88 EPRF-FORMAT-DC-REG-88 VALUE 'DCR'. DTSIEPRF
|
||||
00049 88 EPRF-FORMAT-DC-GOV-88 VALUE 'DCG'. DTSIEPRF
|
||||
00050 88 EPRF-FORMAT-ICESA275-88 VALUE 'IC5'. DTSIEPRF
|
||||
00051 88 EPRF-FORMAT-ICESA276-88 VALUE 'IC6'. DTSIEPRF
|
||||
00052 88 EPRF-FORMAT-INAPP-88 VALUE SPACES. DTSIEPRF
|
||||
00053 SKIP1 DTSIEPRF
|
||||
00054 15 EPRF-JOB-NAME PIC X(08). DTSIEPRF
|
||||
00055 15 EPRF-FORMAT-NOTES PIC X(60). DTSIEPRF
|
||||
00056 SKIP1 DTSIEPRF
|
||||
00057 15 EPRF-BUSINESS-CONTACT-NAME PIC X(32). DTSIEPRF
|
||||
00058 15 EPRF-BUSINESS-CONTACT-EMAIL PIC X(40). DTSIEPRF
|
||||
00059 SKIP1 DTSIEPRF
|
||||
00060 15 EPRF-BUSINESS-CONTACT-PHONE. DTSIEPRF
|
||||
00061 20 EPRF-BUSINESS-VOICE-AREA-CD PIC X(03). DTSIEPRF
|
||||
00062 20 EPRF-BUSINESS-VOICE-PREFIX PIC X(03). DTSIEPRF
|
||||
00063 20 EPRF-BUSINESS-VOICE-SUFFIX PIC X(04). DTSIEPRF
|
||||
00064 20 EPRF-BUSINESS-VOICE-EXT PIC X(05). DTSIEPRF
|
||||
00065 SKIP1 DTSIEPRF
|
||||
00066 15 EPRF-BUSINESS-CONTACT-FAX. DTSIEPRF
|
||||
00067 20 EPRF-BUSINESS-FAX-AREA-CD PIC X(03). DTSIEPRF
|
||||
00068 20 EPRF-BUSINESS-FAX-PREFIX PIC X(03). DTSIEPRF
|
||||
00069 20 EPRF-BUSINESS-FAX-SUFFIX PIC X(04). DTSIEPRF
|
||||
00070 20 EPRF-BUSINESS-FAX-EXT PIC X(05). DTSIEPRF
|
||||
00071 SKIP1 DTSIEPRF
|
||||
00072 15 EPRF-TECH-CONTACT-NAME PIC X(32). DTSIEPRF
|
||||
00073 15 EPRF-TECH-CONTACT-EMAIL PIC X(40). DTSIEPRF
|
||||
00074 SKIP1 DTSIEPRF
|
||||
00075 15 EPRF-TECH-CONTACT-PHONE. DTSIEPRF
|
||||
00076 20 EPRF-TECH-VOICE-AREA-CD PIC X(03). DTSIEPRF
|
||||
00077 20 EPRF-TECH-VOICE-PREFIX PIC X(03). DTSIEPRF
|
||||
00078 20 EPRF-TECH-VOICE-SUFFIX PIC X(04). DTSIEPRF
|
||||
00079 20 EPRF-TECH-VOICE-EXT PIC X(05). DTSIEPRF
|
||||
00080 SKIP1 DTSIEPRF
|
||||
00081 15 EPRF-TECH-CONTACT-FAX. DTSIEPRF
|
||||
00082 20 EPRF-TECH-FAX-AREA-CD PIC X(03). DTSIEPRF
|
||||
00083 20 EPRF-TECH-FAX-PREFIX PIC X(03). DTSIEPRF
|
||||
00084 20 EPRF-TECH-FAX-SUFFIX PIC X(04). DTSIEPRF
|
||||
00085 20 EPRF-TECH-FAX-EXT PIC X(05). DTSIEPRF
|
||||
00086 SKIP1 DTSIEPRF
|
||||
00087 15 EPRF-ADDRESS. DTSIEPRF
|
||||
00088 20 EPRF-ATTN-LINE PIC X(40). DTSIEPRF
|
||||
00089 20 EPRF-DELIV-LINE-1 PIC X(40). DTSIEPRF
|
||||
00090 20 EPRF-DELIV-LINE-2 PIC X(40). DTSIEPRF
|
||||
00091 20 EPRF-CITY PIC X(25). DTSIEPRF
|
||||
00092 20 EPRF-ST PIC X(02). DTSIEPRF
|
||||
00093 20 EPRF-ZIP PIC X(10). DTSIEPRF
|
||||
00094 20 EPRF-ADVANCED-BARCODE DTSIEPRF
|
||||
00095 PIC X(14). DTSIEPRF
|
||||
00096 SKIP1 DTSIEPRF
|
||||
00097 15 EPRF-FILLER PIC X(194). DTSIEPRF
|
||||
00098 SKIP1 DTSIEPRF
|
||||
00099 15 EPRF-UPDATE-DATA. DTSIEPRF
|
||||
00100 20 EPRF-UPDATE-END-ABSTIME DTSIEPRF
|
||||
00101 PIC S9(15) COMP-3. DTSIEPRF
|
||||
00102 88 EPRF-UPDATED-NEVER-88 DTSIEPRF
|
||||
00103 VALUE +0. DTSIEPRF
|
||||
00104 88 EPRF-CICS-UPD-ACTIVE-88 DTSIEPRF
|
||||
00105 VALUE +888888888888888. DTSIEPRF
|
||||
00106 88 EPRF-BATCH-UPD-ACTIVE-88 DTSIEPRF
|
||||
00107 VALUE +999999999999999. DTSIEPRF
|
||||
00108 88 EPRF-UPD-ACTIVE-88 DTSIEPRF
|
||||
00109 VALUE +888888888888888, DTSIEPRF
|
||||
00110 +999999999999999. DTSIEPRF
|
||||
00111 **************************************************************** DTSIEPRF
|
||||
00112 ** UPDATE-END-ABSTIME = ALL 9'S OR ALL 8'S DTSIEPRF
|
||||
00113 ** MEANS LOCKED FOR UPDATE !! DTSIEPRF
|
||||
00114 ** EITHER AN UPDATE IS IN PROGRESS OR HAS FAILED TO COMPLETE DTSIEPRF
|
||||
00115 ** SUCCESSFULLY DTSIEPRF
|
||||
00116 **************************************************************** DTSIEPRF
|
||||
00117 20 EPRF-UPDATE-TASK-ID PIC S9(08) COMP. DTSIEPRF
|
||||
00118 20 EPRF-UPDATE-OP-ID PIC X(08). DTSIEPRF
|
||||
00119 20 EPRF-UPDATE-TERMID PIC X(04). DTSIEPRF
|
||||
00120 20 EPRF-UPDATE-NETNAME PIC X(08). DTSIEPRF
|
||||
00121 20 EPRF-UPDATE-START-DATE DTSIEPRF
|
||||
00122 PIC S9(09) COMP-3. DTSIEPRF
|
||||
00123 20 EPRF-UPDATE-START-TIME DTSIEPRF
|
||||
00124 PIC S9(07) COMP-3. DTSIEPRF
|
||||
00125 20 EPRF-UPDATE-SCR-ID PIC X(02). DTSIEPRF
|
||||
00126 20 EPRF-UPDATE-FUNCTION DTSIEPRF
|
||||
00127 PIC X(01). DTSIEPRF
|
||||
00128 88 EPRF-UPDATE-ADD-88 VALUE 'A'. DTSIEPRF
|
||||
00129 88 EPRF-UPDATE-MODIFY-88 VALUE 'M'. DTSIEPRF
|
||||
00130 88 EPRF-UPDATE-DELETE-88 VALUE 'D'. DTSIEPRF
|
||||
00131 DTSIEPRF
|
||||
00132 15 EPRF-CONVERTED-IND PIC X(01). DTSIEPRF
|
||||
00133 88 EPRF-CONVERTED-88 VALUE 'Y'. DTSIEPRF
|
||||
00134 88 EPRF-NOT-CONVERTED-88 VALUE 'N'. DTSIEPRF
|
||||
00135 DTSIEPRF
|
||||
00136 15 EPRF-ESTB-DATE PIC S9(09) COMP-3. DTSIEPRF
|
||||
00137 15 EPRF-CHNG-DATE PIC S9(09) COMP-3. DTSIEPRF
|
||||
00138 15 EPRF-CHNG-OPID PIC X(08). DTSIEPRF
|
||||
00139 DTSIEPRF
|
||||
29
Copybook/DTSIESKL.cpy
Normal file
29
Copybook/DTSIESKL.cpy
Normal file
@ -0,0 +1,29 @@
|
||||
00001 ***** 12/01/05
|
||||
00002 * DTSIESKL
|
||||
00003 * DTSIESKL ELECTRONIC MEDIA SKELETAL RECORDDEFINITION LV015
|
||||
00004 * DTSIESKL
|
||||
00005 ***** DTSIESKL
|
||||
00006 SKIP1 DTSIESKL
|
||||
00007 10 ESKL-KEY-AREA. DTSIESKL
|
||||
00008 15 ESKL-REC-TYPE PIC S9(04) COMP. DTSIESKL
|
||||
00009 88 ESKL-HDR-88 VALUE +01. DTSIESKL
|
||||
00010 88 ESKL-PRF-88 VALUE +02. DTSIESKL
|
||||
00011 88 ESKL-LOG-88 VALUE +03. DTSIESKL
|
||||
00012 88 ESKL-MSG-88 VALUE +04. DTSIESKL
|
||||
00013 88 ESKL-EMH-88 VALUE +05. DTSIESKL
|
||||
00014 88 ESKL-TRG-88 VALUE +06. DTSIESKL
|
||||
00015 15 ESKL-KEY-FILLER PIC X(22). DTSIESKL
|
||||
00016 10 ESKL-ELOG-KEY-AREA REDEFINES ESKL-KEY-AREA. DTSIESKL
|
||||
00017 15 FILLER PIC S9(04) COMP. DTSIESKL
|
||||
00018 15 ESKL-ELOG-LOG-NO PIC 9(10). CL*15
|
||||
00019 15 FILLER PIC X(12). DTSIESKL
|
||||
00020 10 ESKL-EEMH-KEY-AREA REDEFINES ESKL-KEY-AREA. DTSIESKL
|
||||
00021 15 FILLER PIC S9(04) COMP. DTSIESKL
|
||||
00022 15 ESKL-EMP-NO PIC S9(07) COMP-3. DTSIESKL
|
||||
00023 15 ESKL-REPORTING-DATE PIC S9(09) COMP-3. DTSIESKL
|
||||
00024 15 ESKL-DATA-TYPE-CD PIC X(02). DTSIESKL
|
||||
00025 15 ESKL-EEMH-LOG-NO PIC X(10). CL*15
|
||||
00026 15 FILLER PIC X(01). DTSIESKL
|
||||
00027 SKIP1 DTSIESKL
|
||||
00028 10 ESKL-DATA-AREA. DTSIESKL
|
||||
00029 15 ESKL-DATA-FILLER PIC X(1000). DTSIESKL
|
||||
151
Copybook/DTSIF581.cpy
Normal file
151
Copybook/DTSIF581.cpy
Normal file
@ -0,0 +1,151 @@
|
||||
00001 ***** 08/28/20
|
||||
00002 * DTSIF581
|
||||
00003 * DTSIF581 REFERENCE FILE 'ETA 581' RECORD DEFINITION. LV005
|
||||
00004 * DTSIF581
|
||||
00005 * DTSIF581
|
||||
00006 * 02/23/2000 ADDED F581-AUDIT-INDCON-TO-EMPL-CNT, DTSIF581
|
||||
00007 * REPLACING FIVE BYTES OF FILLER. EHH DTSIF581
|
||||
00008 * 08/28/2020 ADDED F581-TAX-AVOIDANCE FIELDS CL**3
|
||||
00009 * PER DOL UIPL 12-20 NH. CL**4
|
||||
00010 * DTSIF581
|
||||
00011 ***** DTSIF581
|
||||
00012 DTSIF581
|
||||
00013 10 F581-KEY-AREA. DTSIF581
|
||||
00014 15 F581-REC-TYPE PIC S9(04) COMP. DTSIF581
|
||||
00015 88 F581-581-88 VALUE +19. DTSIF581
|
||||
00016 15 F581-YRQ PIC S9(05) COMP-3. DTSIF581
|
||||
00017 15 F581-KEY-FILLER PIC X(11). DTSIF581
|
||||
00018 DTSIF581
|
||||
00019 10 F581-DATA-AREA. DTSIF581
|
||||
00020 15 F581-PERIOD-BEGIN-DATE PIC S9(09) COMP-3. DTSIF581
|
||||
00021 15 F581-PERIOD-END-DATE PIC S9(09) COMP-3. DTSIF581
|
||||
00022 DTSIF581
|
||||
00023 15 F581-CON-EMP-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00024 15 F581-REIMB-EMP-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00025 15 F581-TOTAL-EMP-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00026 DTSIF581
|
||||
00027 15 F581-DEL-CUTOFF-DATE PIC S9(09) COMP-3. DTSIF581
|
||||
00028 DTSIF581
|
||||
00029 15 F581-WAGE-ITEM-RCVD-CNT PIC S9(09) COMP-3. DTSIF581
|
||||
00030 DTSIF581
|
||||
00031 15 F581-CON-TIMELY-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00032 15 F581-CON-SECURED-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00033 15 F581-CON-RESOLVED-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00034 DTSIF581
|
||||
00035 15 F581-REIMB-TIMELY-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00036 15 F581-REIMB-SECURED-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00037 15 F581-REIMB-RESOLVED-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00038 DTSIF581
|
||||
00039 15 F581-OUTSTDG-QTRS-CNT PIC S9(09) COMP-3. DTSIF581
|
||||
00040 15 F581-EST-UI-DUE-AMT PIC S9(11)V9(2) COMP-3. DTSIF581
|
||||
00041 DTSIF581
|
||||
00042 15 F581-NEW-DETERM-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00043 15 F581-NEW-DETERM-T90-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00044 15 F581-NEW-DETERM-T180-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00045 15 F581-SUC-DETERM-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00046 15 F581-SUC-DETERM-T90-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00047 15 F581-SUC-DETERM-T180-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00048 15 F581-TERMINATION-CNT PIC S9(07) COMP-3. DTSIF581
|
||||
00049 DTSIF581
|
||||
00050 15 F581-CON-RECVBL-DATA. DTSIF581
|
||||
00051 20 F581-CON-RECVBL-BEG-PERIOD DTSIF581
|
||||
00052 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00053 20 F581-CON-RECVBL-DETERM DTSIF581
|
||||
00054 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00055 20 F581-CON-RECVBL-LIQUID DTSIF581
|
||||
00056 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00057 20 F581-CON-RECVBL-UNCOLLECT DTSIF581
|
||||
00058 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00059 20 F581-CON-RECVBL-REMOVED DTSIF581
|
||||
00060 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00061 20 F581-CON-RECVBL-END-PERIOD DTSIF581
|
||||
00062 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00063 20 F581-CON-RECVBL-EMP-CNT DTSIF581
|
||||
00064 PIC S9(07) COMP-3. DTSIF581
|
||||
00065 20 F581-CON-RECVBL-6-MOS DTSIF581
|
||||
00066 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00067 20 F581-CON-RECVBL-9-MOS DTSIF581
|
||||
00068 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00069 20 F581-CON-RECVBL-12-MOS DTSIF581
|
||||
00070 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00071 20 F581-CON-RECVBL-15-MOS DTSIF581
|
||||
00072 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00073 20 F581-CON-RECVBL-OVER15-MOS DTSIF581
|
||||
00074 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00075 DTSIF581
|
||||
00076 15 F581-REIMB-RECVBL-DATA. DTSIF581
|
||||
00077 20 F581-REIMB-RECVBL-BEG-PERIOD DTSIF581
|
||||
00078 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00079 20 F581-REIMB-RECVBL-DETERM DTSIF581
|
||||
00080 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00081 20 F581-REIMB-RECVBL-LIQUID DTSIF581
|
||||
00082 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00083 20 F581-REIMB-RECVBL-UNCOLLECT DTSIF581
|
||||
00084 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00085 20 F581-REIMB-RECVBL-REMOVED DTSIF581
|
||||
00086 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00087 20 F581-REIMB-RECVBL-END-PERIOD DTSIF581
|
||||
00088 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00089 20 F581-REIMB-RECVBL-EMP-CNT DTSIF581
|
||||
00090 PIC S9(07) COMP-3. DTSIF581
|
||||
00091 20 F581-REIMB-RECVBL-6-MOS DTSIF581
|
||||
00092 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00093 20 F581-REIMB-RECVBL-9-MOS DTSIF581
|
||||
00094 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00095 20 F581-REIMB-RECVBL-12-MOS DTSIF581
|
||||
00096 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00097 20 F581-REIMB-RECVBL-15-MOS DTSIF581
|
||||
00098 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00099 20 F581-REIMB-RECVBL-OVER15-MOS DTSIF581
|
||||
00100 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00101 DTSIF581
|
||||
00102 15 F581-AUDIT-DATA. DTSIF581
|
||||
00103 20 F581-AUDIT-LARGE-EMP-CNT DTSIF581
|
||||
00104 PIC S9(07) COMP-3. DTSIF581
|
||||
00105 20 F581-AUDIT-TOT-EMP-CNT DTSIF581
|
||||
00106 PIC S9(07) COMP-3. DTSIF581
|
||||
00107 20 F581-AUDIT-QTR-CNT DTSIF581
|
||||
00108 PIC S9(09) COMP-3. DTSIF581
|
||||
00109 20 F581-AUDIT-TOT-WAGES-PRE DTSIF581
|
||||
00110 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00111 20 F581-AUDIT-TOT-WAGES-POST DTSIF581
|
||||
00112 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00113 20 F581-AUDIT-CHANGE-CNT DTSIF581
|
||||
00114 PIC S9(07) COMP-3. DTSIF581
|
||||
00115 20 F581-AUDIT-HOURS-CNT DTSIF581
|
||||
00116 PIC S9(08)V9(01) COMP-3. DTSIF581
|
||||
00117 20 F581-AUDIT-UNDERRPT-TOT-WAGES DTSIF581
|
||||
00118 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00119 20 F581-AUDIT-UNDERRPT-TAX-WAGES DTSIF581
|
||||
00120 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00121 20 F581-AUDIT-UNDERRPT-CONTRIB DTSIF581
|
||||
00122 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00123 20 F581-AUDIT-OVERRPT-TOT-WAGES DTSIF581
|
||||
00124 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00125 20 F581-AUDIT-OVERRPT-TAX-WAGES DTSIF581
|
||||
00126 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00127 20 F581-AUDIT-OVERRPT-CONTRIB DTSIF581
|
||||
00128 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00129 20 F581-AUDIT-INDCON-TO-EMPL-CNT DTSIF581
|
||||
00130 PIC S9(09) COMP-3. DTSIF581
|
||||
00131 DTSIF581
|
||||
00132 15 F581-SUTA-DUMPING-DATA. DTSIF581
|
||||
00133 20 F581-MANDATORY-XFER-CNT DTSIF581
|
||||
00134 PIC S9(07) COMP-3. DTSIF581
|
||||
00135 20 F581-PROHIBITED-XFER-CNT DTSIF581
|
||||
00136 PIC S9(07) COMP-3. DTSIF581
|
||||
00137 20 F581-SUTA-CONTRIB-DUE DTSIF581
|
||||
00138 PIC S9(11)V9(02) COMP-3. DTSIF581
|
||||
00139 DTSIF581
|
||||
00140 15 F581-TAX-AVOIDANCE-DATA. CL**2
|
||||
00141 20 F581-TAXAVD-MAN-XFER-CNT CL**5
|
||||
00142 PIC S9(07) COMP-3. CL**2
|
||||
00143 20 F581-TAXAVD-PROH-XFER-CNT CL**5
|
||||
00144 PIC S9(07) COMP-3. CL**2
|
||||
00145 20 F581-TAXAVD-CONTRIB-DUE CL**5
|
||||
00146 PIC S9(11)V9(02) COMP-3. CL**2
|
||||
00147 ** 15 FILLER PIC X(130). CL**2
|
||||
00148 15 FILLER PIC X(100). CL**2
|
||||
00149 DTSIF581
|
||||
00150 15 F581-ESTB-DATE PIC S9(09) COMP-3. DTSIF581
|
||||
00151 15 F581-CHNG-DATE PIC S9(09) COMP-3. DTSIF581
|
||||
34
Copybook/DTSIFAFD.cpy
Normal file
34
Copybook/DTSIFAFD.cpy
Normal file
@ -0,0 +1,34 @@
|
||||
00001 ***** 04/09/13
|
||||
00002 * DTSIFAFD
|
||||
00003 * DTSIFAFD REFERENCE FILE 'ANNUAL FILER DATE RECORD LV002
|
||||
00004 * DEFINITION. DTSIFAFD
|
||||
00005 * DTSIFAFD
|
||||
00006 * 04/10/2013 MODIFIED RECORD FROMAT TO CHANGE FINAL DEL DATE CL**2
|
||||
00007 * TO ESTIMATED DATE. CL**2
|
||||
00008 * CL**2
|
||||
00009 ***** DTSIFAFD
|
||||
00010 DTSIFAFD
|
||||
00011 10 FAFD-KEY-AREA. DTSIFAFD
|
||||
00012 15 FAFD-REC-TYPE PIC S9(04) COMP. DTSIFAFD
|
||||
00013 88 FAFD-AFD-88 VALUE +12. DTSIFAFD
|
||||
00014 15 FAFD-YR PIC S9(05) COMP-3. DTSIFAFD
|
||||
00015 15 FAFD-KEY-FILLER PIC X(11). DTSIFAFD
|
||||
00016 DTSIFAFD
|
||||
00017 10 FAFD-DATA-AREA. DTSIFAFD
|
||||
00018 15 FAFD-UC30H-MASS-MAIL-DATE DTSIFAFD
|
||||
00019 PIC S9(09) COMP-3. DTSIFAFD
|
||||
00020 15 FAFD-UC30H-RPT-DUE-DATE DTSIFAFD
|
||||
00021 PIC S9(09) COMP-3. DTSIFAFD
|
||||
00022 15 FAFD-LATE-PEN-ASSESSED-DATE DTSIFAFD
|
||||
00023 PIC S9(09) COMP-3. DTSIFAFD
|
||||
00024 15 FAFD-UC30H-FIRST-DEL-DATE DTSIFAFD
|
||||
00025 PIC S9(09) COMP-3. DTSIFAFD
|
||||
00026 15 FAFD-UC30H-ESTIMATED-DATE CL**2
|
||||
00027 PIC S9(09) COMP-3. DTSIFAFD
|
||||
00028 15 FAFD-UC30H-FINAL-ACTION-DATE DTSIFAFD
|
||||
00029 PIC S9(09) COMP-3. DTSIFAFD
|
||||
00030 DTSIFAFD
|
||||
00031 15 FILLER PIC X(72). DTSIFAFD
|
||||
00032 DTSIFAFD
|
||||
00033 15 FAFD-ESTB-DATE PIC S9(09) COMP-3. DTSIFAFD
|
||||
00034 15 FAFD-CHNG-DATE PIC S9(09) COMP-3. DTSIFAFD
|
||||
20
Copybook/DTSIFCYR.cpy
Normal file
20
Copybook/DTSIFCYR.cpy
Normal file
@ -0,0 +1,20 @@
|
||||
00001 ***** 07/25/00
|
||||
00002 * DTSIFCYR
|
||||
00003 * DTSIFCYR REFERENCE FILE 'CALENDAR YEAR' RECORD DEFINITION. LV007
|
||||
00004 * DTSIFCYR
|
||||
00005 ***** DTSIFCYR
|
||||
00006 DTSIFCYR
|
||||
00007 10 FCYR-KEY-AREA. DTSIFCYR
|
||||
00008 15 FCYR-REC-TYPE PIC S9(04) COMP. DTSIFCYR
|
||||
00009 88 FCYR-CYR-88 VALUE +01. DTSIFCYR
|
||||
00010 15 FCYR-YR PIC S9(05) COMP-3. DTSIFCYR
|
||||
00011 15 FCYR-KEY-FILLER PIC X(11). DTSIFCYR
|
||||
00012 DTSIFCYR
|
||||
00013 10 FCYR-DATA-AREA. DTSIFCYR
|
||||
00014 15 FCYR-TAXABLE-WAGE-BASE PIC S9(07)V9(02) COMP-3. DTSIFCYR
|
||||
00015 15 FCYR-FUTA-CREDIT-RATE PIC S9(01)V9(04) COMP-3. DTSIFCYR
|
||||
00016 DTSIFCYR
|
||||
00017 15 FILLER PIC X(30). DTSIFCYR
|
||||
00018 DTSIFCYR
|
||||
00019 15 FCYR-ESTB-DATE PIC S9(09) COMP-3. DTSIFCYR
|
||||
00020 15 FCYR-CHNG-DATE PIC S9(09) COMP-3. DTSIFCYR
|
||||
44
Copybook/DTSIFFAT.cpy
Normal file
44
Copybook/DTSIFFAT.cpy
Normal file
@ -0,0 +1,44 @@
|
||||
00001 ***** 02/07/12
|
||||
00002 * DTSIFFAT
|
||||
00003 * DTSIFFAT REFERENCE FILE 'FIELD ASSIGNMENT TYPE' LV009
|
||||
00004 * RECORD DEFINITION. DTSIFFAT
|
||||
00005 * DTSIFFAT
|
||||
00006 ***** DTSIFFAT
|
||||
00007 DTSIFFAT
|
||||
00008 10 FFAT-KEY-AREA. DTSIFFAT
|
||||
00009 15 FFAT-REC-TYPE PIC S9(04) COMP. DTSIFFAT
|
||||
00010 88 FFAT-FAT-88 VALUE +03. DTSIFFAT
|
||||
00011 15 FFAT-TYPE PIC X(02). DTSIFFAT
|
||||
00012 15 FFAT-KEY-FILLER PIC X(12). DTSIFFAT
|
||||
00013 DTSIFFAT
|
||||
00014 10 FFAT-DATA-AREA. DTSIFFAT
|
||||
00015 15 FFAT-DESCRIPTION PIC X(40). DTSIFFAT
|
||||
00016 DTSIFFAT
|
||||
00017 15 FFAT-DEFAULT-DUE-DAYS PIC S9(03) COMP-3. DTSIFFAT
|
||||
00018 88 FFAT-NO-DEFAULT-DUE-88 VALUE +0. DTSIFFAT
|
||||
00019 88 FFAT-DEFAULT-DUE-NXT-Q-END-88 VALUE +999. DTSIFFAT
|
||||
00020 DTSIFFAT
|
||||
00021 15 FFAT-DEFAULT-ATTACH-IND PIC X(01). DTSIFFAT
|
||||
00022 88 FFAT-NO-ATTACHMENTS-88 VALUE 'N'. DTSIFFAT
|
||||
00023 88 FFAT-ATTACHMENTS-88 VALUE 'Y'. DTSIFFAT
|
||||
00024 DTSIFFAT
|
||||
00025 15 FFAT-ACCOUNTING-DESK-IND DTSIFFAT
|
||||
00026 PIC X(01). DTSIFFAT
|
||||
00027 88 FFAT-ACCOUNTING-DESK-NO-88 VALUE 'N'. DTSIFFAT
|
||||
00028 88 FFAT-ACCOUNTING-DESK-YES-88 VALUE 'Y'. DTSIFFAT
|
||||
00029 DTSIFFAT
|
||||
00030 15 FFAT-EMP-REG-CYCLE-A-IND DTSIFFAT
|
||||
00031 PIC X(01). DTSIFFAT
|
||||
00032 88 FFAT-CYCLE-A-ASSIGN-NO-88 VALUE 'N'. DTSIFFAT
|
||||
00033 88 FFAT-CYCLE-A-ASSIGN-YES-88 VALUE 'Y'. DTSIFFAT
|
||||
00034 DTSIFFAT
|
||||
00035 15 FFAT-AUDIT-IND PIC X(01). DTSIFFAT
|
||||
00036 88 FFAT-TARGET-AUDIT-88 VALUE 'T'. DTSIFFAT
|
||||
00037 88 FFAT-REQUEST-AUDIT-88 VALUE 'R'. DTSIFFAT
|
||||
00038 88 FFAT-VERIF-AUDIT-88 VALUE 'V'. DTSIFFAT
|
||||
00039 88 FFAT-NON-AUDIT-88 VALUE 'N'. DTSIFFAT
|
||||
00040 DTSIFFAT
|
||||
00041 15 FILLER PIC X(24). DTSIFFAT
|
||||
00042 DTSIFFAT
|
||||
00043 15 FFAT-ESTB-DATE PIC S9(09) COMP-3. DTSIFFAT
|
||||
00044 15 FFAT-CHNG-DATE PIC S9(09) COMP-3. DTSIFFAT
|
||||
24
Copybook/DTSIFFAZ.cpy
Normal file
24
Copybook/DTSIFFAZ.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
00001 ***** 08/12/98
|
||||
00002 * DTSIFFAZ
|
||||
00003 * DTSIFFAZ REFERENCE FILE 'FIELD AUDITOR TERRITORY' LV003
|
||||
00004 * RECORD DEFINITION. DTSIFFAZ
|
||||
00005 * DTSIFFAZ
|
||||
00006 ***** DTSIFFAZ
|
||||
00007 CL**3
|
||||
00008 10 FFAZ-KEY-AREA. DTSIFFAZ
|
||||
00009 15 FFAZ-REC-TYPE PIC S9(04) COMP. DTSIFFAZ
|
||||
00010 88 FFAZ-FAZ-88 VALUE +05. DTSIFFAZ
|
||||
00011 15 FFAZ-FLD-TERRITORY PIC X(05). CL**2
|
||||
00012 15 FFAZ-KEY-FILLER PIC X(09). DTSIFFAZ
|
||||
00013 CL**3
|
||||
00014 10 FFAZ-DATA-AREA. DTSIFFAZ
|
||||
00015 15 FFAZ-ALL-EMP PIC X(01). DTSIFFAZ
|
||||
00016 88 FFAZ-SINGLE-REP VALUE 'Y'. DTSIFFAZ
|
||||
00017 88 FFAZ-MULTIPLE-REPS VALUE 'N'. DTSIFFAZ
|
||||
00018 15 FFAZ-FLD-REP-ID PIC X(02) DTSIFFAZ
|
||||
00019 OCCURS 10 INDEXED BY FFAZ-FLD-REP-IDX. DTSIFFAZ
|
||||
00020 CL**3
|
||||
00021 15 FILLER PIC X(17). DTSIFFAZ
|
||||
00022 CL**3
|
||||
00023 15 FFAZ-ESTB-DATE PIC S9(09) COMP-3. DTSIFFAZ
|
||||
00024 15 FFAZ-CHNG-DATE PIC S9(09) COMP-3. DTSIFFAZ
|
||||
68
Copybook/DTSIFFID.cpy
Normal file
68
Copybook/DTSIFFID.cpy
Normal file
@ -0,0 +1,68 @@
|
||||
00001 ***** 08/12/98
|
||||
00002 * DTSIFFID
|
||||
00003 * DTSIFFID REFERENCE FILE 'FIELD REPRESENTATIVE RECORD' LV006
|
||||
00004 * DEFINITION. DTSIFFID
|
||||
00005 * DTSIFFID
|
||||
00006 ***** DTSIFFID
|
||||
00007 CL**4
|
||||
00008 10 FFID-KEY-AREA. DTSIFFID
|
||||
00009 15 FFID-REC-TYPE PIC S9(04) COMP. DTSIFFID
|
||||
00010 88 FFID-FID-88 VALUE +07. DTSIFFID
|
||||
00011 15 FFID-FLD-REP-ID PIC X(02). DTSIFFID
|
||||
00012 88 FFID-UNASSIGNED-88 VALUE 'FD'. DTSIFFID
|
||||
00013 88 FFID-DC-UNKNOWN-88 VALUE '??'. CL**2
|
||||
00014 88 FFID-ACCOUNTING-DESK-88 VALUE 'AD'. CL**2
|
||||
00015 88 FFID-FIELD-DESK-88 DTSIFFID
|
||||
00016 VALUE 'FD' '??'. CL**2
|
||||
00017 15 FFID-KEY-FILLER PIC X(12). DTSIFFID
|
||||
00018 CL**4
|
||||
00019 10 FFID-DATA-AREA. DTSIFFID
|
||||
00020 15 FFID-OP-ID PIC X(08). DTSIFFID
|
||||
00021 CL**4
|
||||
00022 15 FFID-ACCOUNTING-TECH-CD PIC X(03). CL**2
|
||||
00023 CL**4
|
||||
00024 15 FFID-NAME PIC X(32). DTSIFFID
|
||||
00025 CL**4
|
||||
00026 15 FFID-CASUAL-NAME PIC X(12). DTSIFFID
|
||||
00027 CL**4
|
||||
00028 15 FFID-MAIL-ADDR. DTSIFFID
|
||||
00029 20 FFID-MAIL-ATTN-LINE PIC X(40). CL**3
|
||||
00030 20 FFID-MAIL-DELIV-LINE-1 PIC X(40). CL**3
|
||||
00031 20 FFID-MAIL-DELIV-LINE-2 PIC X(40). CL**3
|
||||
00032 20 FFID-MAIL-CITY PIC X(25). CL**3
|
||||
00033 20 FFID-MAIL-ST PIC X(02). CL**3
|
||||
00034 20 FFID-MAIL-ZIP PIC X(10). CL**3
|
||||
00035 20 FFID-MAIL-ADVANCED-BARCODE PIC X(14). CL**3
|
||||
00036 CL**4
|
||||
00037 15 FFID-PHYSICAL-ADDR. DTSIFFID
|
||||
00038 20 FFID-PHYS-ATTN-LINE PIC X(40). CL**3
|
||||
00039 20 FFID-PHYS-DELIV-LINE-1 PIC X(40). CL**3
|
||||
00040 20 FFID-PHYS-DELIV-LINE-2 PIC X(40). CL**3
|
||||
00041 20 FFID-PHYS-CITY PIC X(25). CL**3
|
||||
00042 20 FFID-PHYS-ST PIC X(02). CL**3
|
||||
00043 20 FFID-PHYS-ZIP PIC X(10). CL**3
|
||||
00044 20 FFID-PHYS-ADVANCED-BARCODE PIC X(14). CL**3
|
||||
00045 CL**4
|
||||
00046 15 FFID-PHONE-NUMBERS. DTSIFFID
|
||||
00047 20 FFID-VOICE-1. CL**2
|
||||
00048 25 FFID-VOICE-1-AREA-CD PIC X(03). CL**3
|
||||
00049 25 FFID-VOICE-1-PREFIX PIC X(03). CL**3
|
||||
00050 25 FFID-VOICE-1-SUFFIX PIC X(04). CL**3
|
||||
00051 25 FFID-VOICE-1-EXT PIC X(05). CL**3
|
||||
00052 20 FFID-VOICE-2. CL**3
|
||||
00053 25 FFID-VOICE-2-AREA-CD PIC X(03). CL**3
|
||||
00054 25 FFID-VOICE-2-PREFIX PIC X(03). CL**3
|
||||
00055 25 FFID-VOICE-2-SUFFIX PIC X(04). CL**3
|
||||
00056 25 FFID-VOICE-2-EXT PIC X(05). CL**3
|
||||
00057 20 FFID-FAX. DTSIFFID
|
||||
00058 25 FFID-FAX-AREA-CD PIC X(03). CL**3
|
||||
00059 25 FFID-FAX-PREFIX PIC X(03). CL**3
|
||||
00060 25 FFID-FAX-SUFFIX PIC X(04). CL**3
|
||||
00061 25 FFID-FAX-EXT PIC X(05). CL**3
|
||||
00062 CL**4
|
||||
00063 15 FFID-EMAIL-ADDRESS PIC X(40). CL**3
|
||||
00064 CL**4
|
||||
00065 15 FILLER PIC X(92). CL**6
|
||||
00066 CL**4
|
||||
00067 15 FFID-ESTB-DATE PIC S9(09) COMP-3. DTSIFFID
|
||||
00068 15 FFID-CHNG-DATE PIC S9(09) COMP-3. DTSIFFID
|
||||
89
Copybook/DTSIFFIS.cpy
Normal file
89
Copybook/DTSIFFIS.cpy
Normal file
@ -0,0 +1,89 @@
|
||||
00001 ***** 07/18/00
|
||||
00002 * DTSIFFIS
|
||||
00003 * DTSIFFIS REFERENCE FILE 'FISCAL AGENT RECORD' LV001
|
||||
00004 * DEFINITION. DTSIFFIS
|
||||
00005 * DTSIFFIS
|
||||
00006 * A FISCAL AGENT WILL HAVE AN FFIS RECORD FOR EACH TYPE DTSIFFIS
|
||||
00007 * OF SERVICE PROVIDED. DTSIFFIS
|
||||
00008 ***** DTSIFFIS
|
||||
00009 DTSIFFIS
|
||||
00010 10 FFIS-KEY-AREA. DTSIFFIS
|
||||
00011 15 FFIS-REC-TYPE PIC S9(04) COMP. DTSIFFIS
|
||||
00012 88 FFIS-FIS-88 VALUE +08. DTSIFFIS
|
||||
00013 15 FFIS-FISCAL-AGENT-CD PIC X(03). DTSIFFIS
|
||||
00014 15 FFIS-SERVICE-TYPE PIC X(02). DTSIFFIS
|
||||
00015 88 FFIS-SERVICE-UC30-88 VALUE '01'. DTSIFFIS
|
||||
00016 88 FFIS-SERVICE-BEN-CHG-88 VALUE '02'. DTSIFFIS
|
||||
00017 88 FFIS-SERVICE-CORRESPOND-88 VALUE '03'. DTSIFFIS
|
||||
00018 15 FFIS-KEY-FILLER PIC X(09). DTSIFFIS
|
||||
00019 DTSIFFIS
|
||||
00020 10 FFIS-PURGE-DATE PIC S9(09) COMP-3.DTSIFFIS
|
||||
00021 DTSIFFIS
|
||||
00022 10 FFIS-DATA-AREA. DTSIFFIS
|
||||
00023 15 FFIS-NAME PIC X(40). DTSIFFIS
|
||||
00024 DTSIFFIS
|
||||
00025 15 FFIS-MEDIA-TYPE-CD PIC X(01). DTSIFFIS
|
||||
00026 88 FFIS-MEDIA-CART-TAPE-88 VALUE 'C'. DTSIFFIS
|
||||
00027 88 FFIS-MEDIA-DISKETTE-88 VALUE 'D'. DTSIFFIS
|
||||
00028 88 FFIS-MEDIA-INTERNET-88 VALUE 'I'. DTSIFFIS
|
||||
00029 88 FFIS-MEDIA-REEL-TAPE-88 VALUE 'R'. DTSIFFIS
|
||||
00030 88 FFIS-MEDIA-CART-REEL-88 VALUE 'C' 'R'. DTSIFFIS
|
||||
00031 88 FFIS-MEDIA-VALID-88 VALUE 'C' 'D' 'I' DTSIFFIS
|
||||
00032 'R'. DTSIFFIS
|
||||
00033 DTSIFFIS
|
||||
00034 15 FFIS-DISK-SIZE PIC X(05). DTSIFFIS
|
||||
00035 88 FFIS-DISK-3-HALF-88 VALUE '3 1/2'. DTSIFFIS
|
||||
00036 88 FFIS-DISK-5-QTR-88 VALUE '5 1/4'. DTSIFFIS
|
||||
00037 88 FFIS-DISK-BOTH-88 VALUE 'BOTH '. DTSIFFIS
|
||||
00038 88 FFIS-DISK-NONE-88 VALUE ' '. DTSIFFIS
|
||||
00039 88 FFIS-DISK-YES-88 VALUE '3 1/2' DTSIFFIS
|
||||
00040 '5 1/4' 'BOTH '. DTSIFFIS
|
||||
00041 DTSIFFIS
|
||||
00042 15 FFIS-MEDIA-CHANGE-DATE PIC S9(09) COMP-3.DTSIFFIS
|
||||
00043 DTSIFFIS
|
||||
00044 15 FFIS-MEDIA-CONTACT-NAME PIC X(32). DTSIFFIS
|
||||
00045 DTSIFFIS
|
||||
00046 15 FFIS-MEDIA-CONTACT-EMAIL PIC X(40). DTSIFFIS
|
||||
00047 DTSIFFIS
|
||||
00048 15 FFIS-MEDIA-PHONE-NUMBERS. DTSIFFIS
|
||||
00049 20 FFIS-MEDIA-VOICE. DTSIFFIS
|
||||
00050 25 FFIS-MEDIA-VOICE-AREA-CD PIC X(03). DTSIFFIS
|
||||
00051 25 FFIS-MEDIA-VOICE-PREFIX PIC X(03). DTSIFFIS
|
||||
00052 25 FFIS-MEDIA-VOICE-SUFFIX PIC X(04). DTSIFFIS
|
||||
00053 25 FFIS-MEDIA-VOICE-EXT PIC X(05). DTSIFFIS
|
||||
00054 20 FFIS-MEDIA-FAX. DTSIFFIS
|
||||
00055 25 FFIS-MEDIA-FAX-AREA-CD PIC X(03). DTSIFFIS
|
||||
00056 25 FFIS-MEDIA-FAX-PREFIX PIC X(03). DTSIFFIS
|
||||
00057 25 FFIS-MEDIA-FAX-SUFFIX PIC X(04). DTSIFFIS
|
||||
00058 25 FFIS-MEDIA-FAX-EXT PIC X(05). DTSIFFIS
|
||||
00059 DTSIFFIS
|
||||
00060 15 FFIS-BUSINESS-CONTACT-NAME PIC X(32). DTSIFFIS
|
||||
00061 DTSIFFIS
|
||||
00062 15 FFIS-BUSINESS-CONTACT-EMAIL PIC X(40). DTSIFFIS
|
||||
00063 DTSIFFIS
|
||||
00064 15 FFIS-BUSINESS-PHONE-NUMBERS. DTSIFFIS
|
||||
00065 20 FFIS-BUSINESS-VOICE. DTSIFFIS
|
||||
00066 25 FFIS-BUSINESS-VOICE-AREA-CD PIC X(03). DTSIFFIS
|
||||
00067 25 FFIS-BUSINESS-VOICE-PREFIX PIC X(03). DTSIFFIS
|
||||
00068 25 FFIS-BUSINESS-VOICE-SUFFIX PIC X(04). DTSIFFIS
|
||||
00069 25 FFIS-BUSINESS-VOICE-EXT PIC X(05). DTSIFFIS
|
||||
00070 20 FFIS-BUSINESS-FAX. DTSIFFIS
|
||||
00071 25 FFIS-BUSINESS-FAX-AREA-CD PIC X(03). DTSIFFIS
|
||||
00072 25 FFIS-BUSINESS-FAX-PREFIX PIC X(03). DTSIFFIS
|
||||
00073 25 FFIS-BUSINESS-FAX-SUFFIX PIC X(04). DTSIFFIS
|
||||
00074 25 FFIS-BUSINESS-FAX-EXT PIC X(05). DTSIFFIS
|
||||
00075 DTSIFFIS
|
||||
00076 15 FFIS-ADDR. DTSIFFIS
|
||||
00077 20 FFIS-ATTN-LINE PIC X(40). DTSIFFIS
|
||||
00078 20 FFIS-DELIV-LINE-1 PIC X(40). DTSIFFIS
|
||||
00079 20 FFIS-DELIV-LINE-2 PIC X(40). DTSIFFIS
|
||||
00080 20 FFIS-CITY PIC X(25). DTSIFFIS
|
||||
00081 20 FFIS-ST PIC X(02). DTSIFFIS
|
||||
00082 20 FFIS-ZIP PIC X(10). DTSIFFIS
|
||||
00083 20 FFIS-ADVANCED-BARCODE PIC X(14). DTSIFFIS
|
||||
00084 DTSIFFIS
|
||||
00085 DTSIFFIS
|
||||
00086 15 FILLER PIC X(50). DTSIFFIS
|
||||
00087 DTSIFFIS
|
||||
00088 15 FFIS-ESTB-DATE PIC S9(09) COMP-3.DTSIFFIS
|
||||
00089 15 FFIS-CHNG-DATE PIC S9(09) COMP-3.DTSIFFIS
|
||||
56
Copybook/DTSIFLEN.cpy
Normal file
56
Copybook/DTSIFLEN.cpy
Normal file
@ -0,0 +1,56 @@
|
||||
00001 ***** 01/29/02
|
||||
00002 * DTSIFLEN
|
||||
00003 * DTSIFLEN REFERENCE FILE RECORD LENGTHS. LV015
|
||||
00004 * DTSIFLEN
|
||||
00005 ***** DTSIFLEN
|
||||
00006 DTSIFLEN
|
||||
00007 10 FLEN-LENGTH-AREA. DTSIFLEN
|
||||
00008 15 FLEN-CYR-LENGTH PIC S9(04) COMP VALUE +64. DTSIFLEN
|
||||
00009 15 FLEN-CYR-PREFIX PIC X(04) VALUE 'FCYR'. DTSIFLEN
|
||||
00010 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
|
||||
00011 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
|
||||
00012 15 FLEN-FAT-LENGTH PIC S9(04) COMP VALUE +96. DTSIFLEN
|
||||
00013 15 FLEN-FAT-PREFIX PIC X(04) VALUE 'FFAT'. DTSIFLEN
|
||||
00014 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
|
||||
00015 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
|
||||
00016 15 FLEN-FAZ-LENGTH PIC S9(04) COMP VALUE +64. DTSIFLEN
|
||||
00017 15 FLEN-FAZ-PREFIX PIC X(04) VALUE 'FFAZ'. DTSIFLEN
|
||||
00018 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
|
||||
00019 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
|
||||
00020 15 FLEN-FID-LENGTH PIC S9(04) COMP VALUE +600. DTSIFLEN
|
||||
00021 15 FLEN-FID-PREFIX PIC X(04) VALUE 'FFID'. DTSIFLEN
|
||||
00022 15 FLEN-FIS-LENGTH PIC S9(04) COMP VALUE +507. DTSIFLEN
|
||||
00023 15 FLEN-FIS-PREFIX PIC X(04) VALUE 'FFIS'. DTSIFLEN
|
||||
00024 15 FLEN-OPR-LENGTH PIC S9(04) COMP VALUE +512. DTSIFLEN
|
||||
00025 15 FLEN-OPR-PREFIX PIC X(04) VALUE 'FOPR'. DTSIFLEN
|
||||
00026 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
|
||||
00027 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
|
||||
00028 15 FLEN-QTR-LENGTH PIC S9(04) COMP VALUE +128. DTSIFLEN
|
||||
00029 15 FLEN-QTR-PREFIX PIC X(04) VALUE 'FQTR'. DTSIFLEN
|
||||
00030 15 FLEN-AFD-LENGTH PIC S9(04) COMP VALUE +128. DTSIFLEN
|
||||
00031 15 FLEN-AFD-PREFIX PIC X(04) VALUE 'FAFD'. DTSIFLEN
|
||||
00032 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
|
||||
00033 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
|
||||
00034 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
|
||||
00035 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
|
||||
00036 15 FLEN-SEL-LENGTH PIC S9(04) COMP VALUE +256. DTSIFLEN
|
||||
00037 15 FLEN-SEL-PREFIX PIC X(04) VALUE 'FSEL'. DTSIFLEN
|
||||
00038 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
|
||||
00039 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
|
||||
00040 15 FLEN-UIR-LENGTH PIC S9(04) COMP VALUE +352. DTSIFLEN
|
||||
00041 15 FLEN-UIR-PREFIX PIC X(04) VALUE 'FUIR'. DTSIFLEN
|
||||
00042 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
|
||||
00043 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
|
||||
00044 15 FLEN-581-LENGTH PIC S9(04) COMP VALUE +512. DTSIFLEN
|
||||
00045 15 FLEN-581-PREFIX PIC X(04) VALUE 'F581'. DTSIFLEN
|
||||
00046 15 FILLER PIC S9(04) COMP VALUE +0. DTSIFLEN
|
||||
00047 15 FILLER PIC X(04) VALUE ' '. DTSIFLEN
|
||||
00048 10 FILLER REDEFINES FLEN-LENGTH-AREA. DTSIFLEN
|
||||
00049 15 FLEN-REC-AREA OCCURS 20 TIMES DTSIFLEN
|
||||
00050 INDEXED BY FLEN-IDX. DTSIFLEN
|
||||
00051 20 FLEN-REC-LEN PIC S9(04) COMP. DTSIFLEN
|
||||
00052 20 FLEN-REC-PREFIX PIC X(04). DTSIFLEN
|
||||
00053 DTSIFLEN
|
||||
00054 10 FLEN-MAX-REC-LEN PIC S9(04) COMP VALUE +768. DTSIFLEN
|
||||
00055 10 FLEN-MAX-KEY-LEN PIC S9(04) COMP VALUE +16. DTSIFLEN
|
||||
00056 10 FLEN-MAX-REC-ID PIC S9(04) COMP VALUE +20. DTSIFLEN
|
||||
14
Copybook/DTSIFMAX.cpy
Normal file
14
Copybook/DTSIFMAX.cpy
Normal file
@ -0,0 +1,14 @@
|
||||
00001 ***** 08/11/98
|
||||
00002 * DTSIFMAX
|
||||
00003 * MACIFMAX REFERENCE FILE MAXIMUM OCCURRENCE COUNTS. LV003
|
||||
00004 * DTSIFMAX
|
||||
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**3
|
||||
00006 * CL**3
|
||||
00007 ***** DTSIFMAX
|
||||
00008 CL**2
|
||||
00009 10 FMAX-OPR-NONUM-GROUP-MAX DTSIFMAX
|
||||
00010 PIC S9(04) COMP VALUE +24. DTSIFMAX
|
||||
00011 10 FMAX-SEL-FLD-REP-ID-MAX DTSIFMAX
|
||||
00012 PIC S9(04) COMP VALUE +10. DTSIFMAX
|
||||
00013 10 FMAX-UIR-RATE-RATIO-MAX CL**2
|
||||
00014 PIC S9(04) COMP VALUE +20. CL**2
|
||||
115
Copybook/DTSIFOPR.cpy
Normal file
115
Copybook/DTSIFOPR.cpy
Normal file
@ -0,0 +1,115 @@
|
||||
00001 ***** 12/14/09
|
||||
00002 * DTSIFOPR
|
||||
00003 * DTSIFOPR REFERENCE FILE 'OPERATOR' RECORD DEFINITION. LV007
|
||||
00004 * DTSIFOPR
|
||||
00005 * - IF THIS DATA DEFINITION IS ALTERED BE SURE TO DTSIFOPR
|
||||
00006 * RECOMPILE MODULES THAT USE DTSIR791 (NESTED DTSIFOPR
|
||||
00007 * COPY) DTSIFOPR
|
||||
00008 * DTSIFOPR
|
||||
00009 ***** DTSIFOPR
|
||||
00010 DTSIFOPR
|
||||
00011 10 FOPR-KEY-AREA. DTSIFOPR
|
||||
00012 15 FOPR-REC-TYPE PIC S9(04) COMP. DTSIFOPR
|
||||
00013 88 FOPR-OPR-88 VALUE +09. DTSIFOPR
|
||||
00014 15 FOPR-OP-ID. DTSIFOPR
|
||||
00015 20 FOPR-PREFIX PIC X(01). DTSIFOPR
|
||||
00016 20 FOPR-SUFFIX PIC X(07). DTSIFOPR
|
||||
00017 15 FOPR-KEY-FILLER PIC X(06). DTSIFOPR
|
||||
00018 DTSIFOPR
|
||||
00019 10 FOPR-DATA-AREA. DTSIFOPR
|
||||
00020 15 FOPR-TYPE PIC X(01). DTSIFOPR
|
||||
00021 88 FOPR-EXTERNAL-88 VALUE 'E'. DTSIFOPR
|
||||
00022 88 FOPR-INTERNAL-88 VALUE 'I'. DTSIFOPR
|
||||
00023 DTSIFOPR
|
||||
00024 15 FOPR-NAME PIC X(32). DTSIFOPR
|
||||
00025 DTSIFOPR
|
||||
00026 15 FOPR-TITLE PIC X(30). DTSIFOPR
|
||||
00027 DTSIFOPR
|
||||
00028 15 FOPR-PHONE-NUMBERS. DTSIFOPR
|
||||
00029 20 FOPR-VOICE-1. DTSIFOPR
|
||||
00030 25 FOPR-VOICE-1-AREA-CD PIC X(03). DTSIFOPR
|
||||
00031 25 FOPR-VOICE-1-PREFIX PIC X(03). DTSIFOPR
|
||||
00032 25 FOPR-VOICE-1-SUFFIX PIC X(04). DTSIFOPR
|
||||
00033 25 FOPR-VOICE-1-EXT PIC X(05). DTSIFOPR
|
||||
00034 20 FOPR-VOICE-2. DTSIFOPR
|
||||
00035 25 FOPR-VOICE-2-AREA-CD PIC X(03). DTSIFOPR
|
||||
00036 25 FOPR-VOICE-2-PREFIX PIC X(03). DTSIFOPR
|
||||
00037 25 FOPR-VOICE-2-SUFFIX PIC X(04). DTSIFOPR
|
||||
00038 25 FOPR-VOICE-2-EXT PIC X(05). DTSIFOPR
|
||||
00039 20 FOPR-FAX. DTSIFOPR
|
||||
00040 25 FOPR-FAX-AREA-CD PIC X(03). DTSIFOPR
|
||||
00041 25 FOPR-FAX-PREFIX PIC X(03). DTSIFOPR
|
||||
00042 25 FOPR-FAX-SUFFIX PIC X(04). DTSIFOPR
|
||||
00043 25 FOPR-FAX-EXT PIC X(05). DTSIFOPR
|
||||
00044 DTSIFOPR
|
||||
00045 15 FOPR-EMAIL-ADDRESS PIC X(40). DTSIFOPR
|
||||
00046 DTSIFOPR
|
||||
00047 15 FOPR-FLD-REP-ID PIC X(02). DTSIFOPR
|
||||
00048 88 FOPR-NOT-FLD-REP-88 VALUE ' '. DTSIFOPR
|
||||
00049 DTSIFOPR
|
||||
00050 15 FOPR-FLD-DESK-IND PIC X(01). DTSIFOPR
|
||||
00051 88 FOPR-NOT-FLD-DESK-88 VALUE 'N'. DTSIFOPR
|
||||
00052 88 FOPR-IS-FLD-DESK-88 VALUE 'Y'. DTSIFOPR
|
||||
00053 DTSIFOPR
|
||||
00054 15 FOPR-ACCOUNTING-DESK-IND PIC X(01). DTSIFOPR
|
||||
00055 88 FOPR-NOT-ACCT-DESK-88 VALUE 'N'. DTSIFOPR
|
||||
00056 88 FOPR-IS-ACCT-DESK-88 VALUE 'Y'. DTSIFOPR
|
||||
00057 DTSIFOPR
|
||||
00058 15 FOPR-UNIT-ID PIC X(04). DTSIFOPR
|
||||
00059 15 FOPR-UNIT-NAME PIC X(30). DTSIFOPR
|
||||
00060 15 FOPR-BUREAU-NAME PIC X(30). DTSIFOPR
|
||||
00061 DTSIFOPR
|
||||
00062 15 FOPR-PRINTER-ID PIC X(04). DTSIFOPR
|
||||
00063 DTSIFOPR
|
||||
00064 15 FOPR-ALARM-IND PIC X(01). DTSIFOPR
|
||||
00065 88 FOPR-NO-ALARM-88 VALUE 'N'. DTSIFOPR
|
||||
00066 88 FOPR-ERROR-ALARM-88 VALUE 'E'. DTSIFOPR
|
||||
00067 88 FOPR-PROMPT-ALARM-88 VALUE 'P'. DTSIFOPR
|
||||
00068 88 FOPR-MESSAGE-ALARM-88 VALUE 'M'. DTSIFOPR
|
||||
00069 88 FOPR-SCREEN-ALARM-88 VALUE 'Y'. DTSIFOPR
|
||||
00070 88 FOPR-VALID-ALARM-88 VALUE 'N' 'E' 'P'DTSIFOPR
|
||||
00071 'M' 'Y'. DTSIFOPR
|
||||
00072 DTSIFOPR
|
||||
00073 15 FOPR-BATCH-NO PIC S9(05) COMP-3. DTSIFOPR
|
||||
00074 DTSIFOPR
|
||||
00075 15 FOPR-ARPT-EDIT-MODE PIC X(01). DTSIFOPR
|
||||
00076 88 FOPR-FULL-EDITS-88 VALUE 'F'. DTSIFOPR
|
||||
00077 88 FOPR-MINIMAL-EDITS-88 VALUE 'M'. DTSIFOPR
|
||||
00078 DTSIFOPR
|
||||
00079 15 FILLER PIC X(56). DTSIFOPR
|
||||
00080 SKIP2 DTSIFOPR
|
||||
00081 15 FOPR-SCR-ACCESS-AREA. DTSIFOPR
|
||||
00082 20 FOPR-SCR-NUM-GROUP OCCURS 99 TIMES DTSIFOPR
|
||||
00083 INDEXED BY FOPR-NUM-IDX. DTSIFOPR
|
||||
00084 25 FOPR-SCR-NUM-ACCESS-IND DTSIFOPR
|
||||
00085 PIC X(01). DTSIFOPR
|
||||
00086 88 FOPR-SCR-NUM-NO-ACCESS-88 VALUE '0'. DTSIFOPR
|
||||
00087 88 FOPR-SCR-NUM-INQ-ACCESS-88 VALUE '1'. DTSIFOPR
|
||||
00088 88 FOPR-SCR-NUM-UPD-ACCESS-88 VALUE '2'. DTSIFOPR
|
||||
00089 88 FOPR-SCR-NUM-SUP-ACCESS-88 VALUE '3'. DTSIFOPR
|
||||
00090 88 FOPR-SCR-NUM-I-U-ACCESS-88 DTSIFOPR
|
||||
00091 VALUE '1' '2'. DTSIFOPR
|
||||
00092 88 FOPR-SCR-NUM-IUS-ACCESS-88 DTSIFOPR
|
||||
00093 VALUE '1' '2' '3'. DTSIFOPR
|
||||
00094 DTSIFOPR
|
||||
00095 20 FOPR-SCR-NONUM-CNT PIC S9(04) COMP. DTSIFOPR
|
||||
00096 DTSIFOPR
|
||||
00097 20 FOPR-SCR-NONUM-GROUP OCCURS 24 TIMES DTSIFOPR
|
||||
00098 INDEXED BY FOPR-NONUM-IDX.DTSIFOPR
|
||||
00099 25 FOPR-SCR-NONUM-ID DTSIFOPR
|
||||
00100 PIC X(02). DTSIFOPR
|
||||
00101 25 FOPR-SCR-NONUM-ACCESS-IND DTSIFOPR
|
||||
00102 PIC X(01). DTSIFOPR
|
||||
00103 88 FOPR-SCR-NONUM-NO-ACCESS-88 VALUE '0'.DTSIFOPR
|
||||
00104 88 FOPR-SCR-NONUM-INQ-ACCESS-88 VALUE '1'.DTSIFOPR
|
||||
00105 88 FOPR-SCR-NONUM-UPD-ACCESS-88 VALUE '2'.DTSIFOPR
|
||||
00106 88 FOPR-SCR-NONUM-SUP-ACCESS-88 VALUE '3'.DTSIFOPR
|
||||
00107 88 FOPR-SCR-NONUM-I-U-ACCESS-88 DTSIFOPR
|
||||
00108 VALUE '1' '2'. DTSIFOPR
|
||||
00109 88 FOPR-SCR-NONUM-IUS-ACCESS-88 DTSIFOPR
|
||||
00110 VALUE '1' '2' '3'. DTSIFOPR
|
||||
00111 SKIP2 DTSIFOPR
|
||||
00112 15 FILLER PIC X(32). DTSIFOPR
|
||||
00113 SKIP2 DTSIFOPR
|
||||
00114 15 FOPR-ESTB-DATE PIC S9(09) COMP-3. DTSIFOPR
|
||||
00115 15 FOPR-CHNG-DATE PIC S9(09) COMP-3. DTSIFOPR
|
||||
43
Copybook/DTSIFQTR.cpy
Normal file
43
Copybook/DTSIFQTR.cpy
Normal file
@ -0,0 +1,43 @@
|
||||
00001 ***** 04/01/13
|
||||
00002 * DTSIFQTR
|
||||
00003 * DTSIFQTR REFERENCE FILE 'QUARTER' RECORD DEFINITION. LV012
|
||||
00004 * DTSIFQTR
|
||||
00005 * 02-13-2013 REPLACED INTENT TO ESTIMATE DATE WITH DTSIFQTR
|
||||
00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DATE. DTSIFQTR
|
||||
00007 * TICKET 1688 GD DTSIFQTR
|
||||
00008 * DTSIFQTR
|
||||
00009 ***** DTSIFQTR
|
||||
00010 DTSIFQTR
|
||||
00011 10 FQTR-KEY-AREA. DTSIFQTR
|
||||
00012 15 FQTR-REC-TYPE PIC S9(04) COMP. DTSIFQTR
|
||||
00013 88 FQTR-QTR-88 VALUE +11. DTSIFQTR
|
||||
00014 15 FQTR-YRQ PIC S9(05) COMP-3. DTSIFQTR
|
||||
00015 15 FQTR-KEY-FILLER PIC X(11). DTSIFQTR
|
||||
00016 DTSIFQTR
|
||||
00017 10 FQTR-DATA-AREA. DTSIFQTR
|
||||
00018 15 FQTR-UC30-MASS-MAIL-DATE DTSIFQTR
|
||||
00019 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00020 15 FQTR-SELF-INS-TAX-DUE-DATE DTSIFQTR
|
||||
00021 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00022 15 FQTR-LATE-PEN-ASSESSED-DATE DTSIFQTR
|
||||
00023 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00024 15 FQTR-UC30-FIRST-DEL-DATE DTSIFQTR
|
||||
00025 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00026 15 FQTR-UC30-FINAL-DEL-DATE DTSIFQTR
|
||||
00027 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00028 15 FQTR-UC30-FINAL-ACTION-DATE DTSIFQTR
|
||||
00029 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00030 DTSIFQTR
|
||||
00031 15 FQTR-SELF-INS-CHG-RUN-DATE DTSIFQTR
|
||||
00032 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00033 15 FQTR-SELF-INS-LATE-PEN-DATE DTSIFQTR
|
||||
00034 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00035 15 FQTR-ESTIMATED-DATE DTSIFQTR
|
||||
00036 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00037 15 FQTR-SELF-INS-2ND-LETTER-DATE DTSIFQTR
|
||||
00038 PIC S9(09) COMP-3. DTSIFQTR
|
||||
00039 DTSIFQTR
|
||||
00040 15 FILLER PIC X(52). DTSIFQTR
|
||||
00041 DTSIFQTR
|
||||
00042 15 FQTR-ESTB-DATE PIC S9(09) COMP-3. DTSIFQTR
|
||||
00043 15 FQTR-CHNG-DATE PIC S9(09) COMP-3. DTSIFQTR
|
||||
123
Copybook/DTSIFSEL.cpy
Normal file
123
Copybook/DTSIFSEL.cpy
Normal file
@ -0,0 +1,123 @@
|
||||
00001 ***** 02/07/12
|
||||
00002 * DTSIFSEL
|
||||
00003 * DTSIFSEL REFERENCE FILE 'CANDIDATE SELECTION CRITERIA' LV008
|
||||
00004 * RECORD DEFINITION. DTSIFSEL
|
||||
00005 * DTSIFSEL
|
||||
00006 * FOLLOWING ARE FIELDS TO BYPASS AS SELECTION CRITERA: DTSIFSEL
|
||||
00007 * IF FSEL-RANDOM-88, IGNORE ALL FIELDS EXCEPT DTSIFSEL
|
||||
00008 * FSEL-AUDIT-START-YRQ DTSIFSEL
|
||||
00009 * FSEL-AUDIT-END-YRQ DTSIFSEL
|
||||
00010 * FSEL-SMALL-EMP-LIST-CNT DTSIFSEL
|
||||
00011 * FSEL-LARGE-EMP-LIST-CNT DTSIFSEL
|
||||
00012 * FSEL-LARGE-EMP-DEFINITION-IND. DTSIFSEL
|
||||
00013 * IF FSEL-AUDITED-START-YRQ = 0, IGNORE THIS CRITERION. DTSIFSEL
|
||||
00014 * IF FSEL-PERIOD-IGNORE-88, IGNORE THIS CRITERION. DTSIFSEL
|
||||
00015 * IF FSEL-CURRENT-IGNORE-88, IGNORE THIS CRITERION. DTSIFSEL
|
||||
00016 * IF FSEL-END-SIC-CD = SPACES, IGNORE FSEL-START-SIC-CD DTSIFSEL
|
||||
00017 * FSEL-END-SIC-CD. DTSIFSEL
|
||||
00018 * IF FSEL-END-NAICS-CD = SPACES, IGNORE FSEL-START-NAICS-CD DTSIFSEL
|
||||
00019 * FSEL-END-NAICS-CD. DTSIFSEL
|
||||
00020 * IF FSEL-FLD-ZIP-IGNORE-88, IGNORE THIS CRITERION. DTSIFSEL
|
||||
00021 * IF FSEL-FLD-ZIP-END = SPACES, IGNORE FSEL-FLD-ZIP-START DTSIFSEL
|
||||
00022 * FSEL-FLD-ZIP-END. DTSIFSEL
|
||||
00023 * IF FSEL-INIT-LIAB-END-DATE = 0, IGNORE INIT-LIAB-START-DATE DTSIFSEL
|
||||
00024 * INIT-LIAB-END-DATE. DTSIFSEL
|
||||
00025 * IF FSEL-FLD-REP-ID (1) = SPACE, IGNORE ALL FSEL-FLD-REP-ID'S.DTSIFSEL
|
||||
00026 * IF FSEL-TOT-WAGE-END-AMT = -1, IGNORE FSEL-TOT-WAGE-START-AMTDTSIFSEL
|
||||
00027 * FSEL-TOT-WAGE-END-AMT. DTSIFSEL
|
||||
00028 * IF FSEL-TOT-WAGE-DECR-END-YRQ = 0, IGNORE DTSIFSEL
|
||||
00029 * FSEL-TOT-WAGE-DECR-START-YRQ DTSIFSEL
|
||||
00030 * FSEL-TOT-WAGE-DECR-END-YRQ DTSIFSEL
|
||||
00031 * FSEL-TOT-WAGE-START-RATIO DTSIFSEL
|
||||
00032 * FSEL-TOT-WAGE-END-RATIO. DTSIFSEL
|
||||
00033 * IF FSEL-TOT-WAGE-END-RATIO < 1, BYPASS EMPLOYERS WHOSE TOTAL DTSIFSEL
|
||||
00034 * WAGES HAVE GONE UP THIS PERIOD COMPARED TO LAST.DTSIFSEL
|
||||
00035 * IF FSEL-TOT-WAGE-CHNG-END-YRQ = 0, IGNORE DTSIFSEL
|
||||
00036 * FSEL-TOT-WAGE-CHNG-START-YRQ DTSIFSEL
|
||||
00037 * FSEL-TOT-WAGE-CHNG-END-YRQ DTSIFSEL
|
||||
00038 * FSEL-TOT-WAGE-CHNG-TRIGGER-CNT.DTSIFSEL
|
||||
00039 * IF FSEL-UI-RATE-MIN = 0, IGNORE THIS CRITERION. DTSIFSEL
|
||||
00040 * DTSIFSEL
|
||||
00041 * 01-23-2012 ADDED DTSIFSEL
|
||||
00042 * DTSIFSEL
|
||||
00043 * DTSIFSEL
|
||||
00044 ***** DTSIFSEL
|
||||
00045 DTSIFSEL
|
||||
00046 10 FSEL-KEY-AREA. DTSIFSEL
|
||||
00047 15 FSEL-REC-TYPE PIC S9(04) COMP. DTSIFSEL
|
||||
00048 88 FSEL-SEL-88 VALUE +15. DTSIFSEL
|
||||
00049 15 FSEL-KEY-FILLER PIC X(14). DTSIFSEL
|
||||
00050 DTSIFSEL
|
||||
00051 10 FSEL-DATA-AREA. DTSIFSEL
|
||||
00052 15 FSEL-AUDIT-START-YRQ PIC S9(05) COMP-3. DTSIFSEL
|
||||
00053 15 FSEL-AUDIT-END-YRQ PIC S9(05) COMP-3. DTSIFSEL
|
||||
00054 DTSIFSEL
|
||||
00055 15 FSEL-SMALL-EMP-LIST-CNT PIC S9(03) COMP-3. DTSIFSEL
|
||||
00056 15 FSEL-LARGE-EMP-LIST-CNT PIC S9(03) COMP-3. DTSIFSEL
|
||||
00057 DTSIFSEL
|
||||
00058 15 FSEL-LARGE-EMP-DEFINITION-IND DTSIFSEL
|
||||
00059 PIC X(01). DTSIFSEL
|
||||
00060 88 FSEL-TAXABLE-WAGE-88 VALUE 'T'. DTSIFSEL
|
||||
00061 88 FSEL-EMPLOYEE-COUNT-88 VALUE 'E'. DTSIFSEL
|
||||
00062 DTSIFSEL
|
||||
00063 15 FSEL-RANDOM-IND PIC X(01). DTSIFSEL
|
||||
00064 88 FSEL-RANDOM-88 VALUE 'Y'. DTSIFSEL
|
||||
00065 88 FSEL-USE-CRITERIA-88 VALUE 'N'. DTSIFSEL
|
||||
00066 SKIP3 DTSIFSEL
|
||||
00067 15 FSEL-AUDITED-START-YRQ PIC S9(05) COMP-3. DTSIFSEL
|
||||
00068 DTSIFSEL
|
||||
00069 15 FSEL-ACTIVE-AUDIT-PERIOD-IND DTSIFSEL
|
||||
00070 PIC X(01). DTSIFSEL
|
||||
00071 88 FSEL-ACTIVE-IN-PERIOD-88 VALUE 'Y'. DTSIFSEL
|
||||
00072 88 FSEL-PERIOD-IGNORE-88 VALUE 'N'. DTSIFSEL
|
||||
00073 15 FSEL-ACTIVE-CURRENT-IND PIC X(01). DTSIFSEL
|
||||
00074 88 FSEL-ACTIVE-CURRENTLY-88 VALUE 'Y'. DTSIFSEL
|
||||
00075 88 FSEL-CURRENT-IGNORE-88 VALUE 'N'. DTSIFSEL
|
||||
00076 DTSIFSEL
|
||||
00077 15 FSEL-START-SIC-CD PIC X(04). DTSIFSEL
|
||||
00078 15 FSEL-END-SIC-CD PIC X(04). DTSIFSEL
|
||||
00079 15 FSEL-START-NAICS-CD PIC X(06). DTSIFSEL
|
||||
00080 15 FSEL-END-NAICS-CD PIC X(06). DTSIFSEL
|
||||
00081 DTSIFSEL
|
||||
00082 15 FSEL-FLD-ZIP-TERRITORY-IND DTSIFSEL
|
||||
00083 PIC X(01). DTSIFSEL
|
||||
00084 88 FSEL-MUST-BE-ASSIGNED-88 VALUE 'Y'. DTSIFSEL
|
||||
00085 88 FSEL-FLD-ZIP-IGNORE-88 VALUE 'N'. DTSIFSEL
|
||||
00086 15 FSEL-FLD-ZIP-START PIC X(05). DTSIFSEL
|
||||
00087 15 FSEL-FLD-ZIP-END PIC X(05). DTSIFSEL
|
||||
00088 DTSIFSEL
|
||||
00089 15 FSEL-INIT-LIAB-START-DATE DTSIFSEL
|
||||
00090 PIC S9(09) COMP-3. DTSIFSEL
|
||||
00091 15 FSEL-INIT-LIAB-END-DATE PIC S9(09) COMP-3. DTSIFSEL
|
||||
00092 DTSIFSEL
|
||||
00093 15 FSEL-FLD-REP-ID PIC X(02) DTSIFSEL
|
||||
00094 OCCURS 10 INDEXED BY FSEL-FLD-REP-IDX. DTSIFSEL
|
||||
00095 DTSIFSEL
|
||||
00096 15 FSEL-TOT-WAGE-START-AMT PIC S9(11)V9(02) COMP-3. DTSIFSEL
|
||||
00097 15 FSEL-TOT-WAGE-END-AMT PIC S9(11)V9(02) COMP-3. DTSIFSEL
|
||||
00098 DTSIFSEL
|
||||
00099 15 FSEL-TOT-WAGE-DECR-START-YRQ DTSIFSEL
|
||||
00100 PIC S9(05) COMP-3. DTSIFSEL
|
||||
00101 15 FSEL-TOT-WAGE-DECR-END-YRQ DTSIFSEL
|
||||
00102 PIC S9(05) COMP-3. DTSIFSEL
|
||||
00103 15 FSEL-TOT-WAGE-START-RATIO DTSIFSEL
|
||||
00104 PIC S9(01)V9(04) COMP-3. DTSIFSEL
|
||||
00105 15 FSEL-TOT-WAGE-END-RATIO PIC S9(01)V9(04) COMP-3. DTSIFSEL
|
||||
00106 DTSIFSEL
|
||||
00107 15 FSEL-TOT-WAGE-CHNG-START-YRQ DTSIFSEL
|
||||
00108 PIC S9(05) COMP-3. DTSIFSEL
|
||||
00109 15 FSEL-TOT-WAGE-CHNG-END-YRQ DTSIFSEL
|
||||
00110 PIC S9(05) COMP-3. DTSIFSEL
|
||||
00111 15 FSEL-TOT-WAGE-CHNG-TRIGGER-CNT DTSIFSEL
|
||||
00112 PIC S9(03) COMP-3. DTSIFSEL
|
||||
00113 DTSIFSEL
|
||||
00114 15 FSEL-UI-RATE-MIN PIC S9(01)V9(04) COMP-3. DTSIFSEL
|
||||
00115 DTSIFSEL
|
||||
00116 15 FSEL-TARGET-IND PIC X(01). DTSIFSEL
|
||||
00117 88 FSEL-TARGETED-YES-88 VALUE 'Y'. DTSIFSEL
|
||||
00118 88 FSEL-TARGETED-NO-88 VALUE 'N'. DTSIFSEL
|
||||
00119 DTSIFSEL
|
||||
00120 15 FILLER PIC X(114). DTSIFSEL
|
||||
00121 DTSIFSEL
|
||||
00122 15 FSEL-ESTB-DATE PIC S9(09) COMP-3. DTSIFSEL
|
||||
00123 15 FSEL-CHNG-DATE PIC S9(09) COMP-3. DTSIFSEL
|
||||
24
Copybook/DTSIFSKL.cpy
Normal file
24
Copybook/DTSIFSKL.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
00001 ***** 11/28/01
|
||||
00002 * DTSIFSKL
|
||||
00003 * DTSIFSKL REFERENCE FILE SKELETAL RECORD DEFINITION. LV008
|
||||
00004 * DTSIFSKL
|
||||
00005 ***** DTSIFSKL
|
||||
00006 SKIP1 DTSIFSKL
|
||||
00007 10 FSKL-KEY-AREA. DTSIFSKL
|
||||
00008 15 FSKL-REC-TYPE PIC S9(04) COMP. DTSIFSKL
|
||||
00009 88 FSKL-CYR-88 VALUE +01. DTSIFSKL
|
||||
00010 88 FSKL-FAT-88 VALUE +03. DTSIFSKL
|
||||
00011 88 FSKL-FAZ-88 VALUE +05. DTSIFSKL
|
||||
00012 88 FSKL-FID-88 VALUE +07. DTSIFSKL
|
||||
00013 88 FSKL-FIS-88 VALUE +08. DTSIFSKL
|
||||
00014 88 FSKL-OPR-88 VALUE +09. DTSIFSKL
|
||||
00015 88 FSKL-QTR-88 VALUE +11. DTSIFSKL
|
||||
00016 88 FSKL-AFD-88 VALUE +12. DTSIFSKL
|
||||
00017 *****************88 FSKL-RQC-88 VALUE +13. DTSIFSKL
|
||||
00018 88 FSKL-SEL-88 VALUE +15. DTSIFSKL
|
||||
00019 88 FSKL-UIR-88 VALUE +17. DTSIFSKL
|
||||
00020 88 FSKL-581-88 VALUE +19. DTSIFSKL
|
||||
00021 15 FSKL-KEY-FILLER PIC X(14). DTSIFSKL
|
||||
00022 SKIP1 DTSIFSKL
|
||||
00023 10 FSKL-DATA-AREA. DTSIFSKL
|
||||
00024 15 FSKL-DATA-FILLER PIC X(752). DTSIFSKL
|
||||
68
Copybook/DTSIFUIR.cpy
Normal file
68
Copybook/DTSIFUIR.cpy
Normal file
@ -0,0 +1,68 @@
|
||||
00001 ***** 03/28/07
|
||||
00002 * DTSIFUIR
|
||||
00003 * DTSIFUIR REFERENCE FILE 'UI RATE' RECORD DEFINITION. LV011
|
||||
00004 * DTSIFUIR
|
||||
00005 * 08/23/2002 ADDED TRUST FUND BAL AND ANNUAL DTSIFUIR
|
||||
00006 * RATE NOTICE DATE GD DTSIFUIR
|
||||
00007 * DTSIFUIR
|
||||
00008 * 02/23/2007 ADDED TRUST FUND WAGES AND DTSIFUIR
|
||||
00009 * TOTAL CONTRIB WAGES AMT ZL1 DTSIFUIR
|
||||
00010 * DTSIFUIR
|
||||
00011 ***** DTSIFUIR
|
||||
00012 DTSIFUIR
|
||||
00013 10 FUIR-KEY-AREA. DTSIFUIR
|
||||
00014 15 FUIR-REC-TYPE PIC S9(04) COMP. DTSIFUIR
|
||||
00015 88 FUIR-UIR-88 VALUE +17. DTSIFUIR
|
||||
00016 15 FUIR-EFF-YRQ PIC S9(05) COMP-3. DTSIFUIR
|
||||
00017 15 FUIR-KEY-FILLER PIC X(11). DTSIFUIR
|
||||
00018 DTSIFUIR
|
||||
00019 10 FUIR-DATA-AREA. DTSIFUIR
|
||||
00020 15 FUIR-RATE-TABLE PIC X(05). DTSIFUIR
|
||||
00021 88 FUIR-RATE-TABLE-I-88 VALUE 'I '. DTSIFUIR
|
||||
00022 88 FUIR-RATE-TABLE-II-88 VALUE 'II '. DTSIFUIR
|
||||
00023 88 FUIR-RATE-TABLE-III-88 VALUE 'III '. DTSIFUIR
|
||||
00024 88 FUIR-RATE-TABLE-IV-88 VALUE 'IV '. DTSIFUIR
|
||||
00025 88 FUIR-RATE-TABLE-V-88 VALUE 'V '. DTSIFUIR
|
||||
00026 88 FUIR-RATE-TABLE-VI-88 VALUE 'VI '. DTSIFUIR
|
||||
00027 88 FUIR-RATE-TABLE-VALID-88 DTSIFUIR
|
||||
00028 VALUE 'I ', 'II ', 'III ', DTSIFUIR
|
||||
00029 'IV ', 'V ', 'VI '. DTSIFUIR
|
||||
00030 15 FUIR-TOT-TRUST-FUND-INT-AMT DTSIFUIR
|
||||
00031 PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
||||
00032 15 FUIR-TOT-POS-RESERVE-BAL-AMT DTSIFUIR
|
||||
00033 PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
||||
00034 15 FUIR-TOT-POS-RESERVE-EMP-CNT DTSIFUIR
|
||||
00035 PIC S9(07) COMP-3. DTSIFUIR
|
||||
00036 15 FUIR-DIST-TRUST-FUND-INT-AMT DTSIFUIR
|
||||
00037 PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
||||
00038 15 FUIR-MIN-TAX-BAL-DUE-AMT DTSIFUIR
|
||||
00039 PIC S9(09)V9(02) COMP-3. DTSIFUIR
|
||||
00040 15 FUIR-MIN-MISS-RPT-CNT PIC S9(03) COMP-3. DTSIFUIR
|
||||
00041 15 FUIR-RATE-CUTOFF-DATE PIC S9(09) COMP-3. DTSIFUIR
|
||||
00042 15 FUIR-RATE-NOTICE-DATE PIC S9(09) COMP-3. DTSIFUIR
|
||||
00043 15 FUIR-PENALTY-RATE-DATE PIC S9(09) COMP-3. DTSIFUIR
|
||||
00044 15 FUIR-DEFAULT-NEW-EMP-RATE DTSIFUIR
|
||||
00045 PIC S9(01)V9(04) COMP-3. DTSIFUIR
|
||||
00046 15 FUIR-TRUST-FUND-BAL-AMT PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
||||
00047 15 FUIR-ANN-RATE-NOTICE-DATE DTSIFUIR
|
||||
00048 PIC S9(09) COMP-3. DTSIFUIR
|
||||
00049 15 FUIR-TOT-CONTRIB-WAGES-AMT DTSIFUIR
|
||||
00050 PIC S9(11)V9(02) COMP-3. DTSIFUIR
|
||||
00051 15 FUIR-TRUST-FUND-BAL-WAGES DTSIFUIR
|
||||
00052 PIC S9(01)V9(04) COMP-3. DTSIFUIR
|
||||
00053 DTSIFUIR
|
||||
00054 15 FILLER PIC X(10). DTSIFUIR
|
||||
00055 DTSIFUIR
|
||||
00056 15 FUIR-RATE-CNT PIC S9(04) COMP. DTSIFUIR
|
||||
00057 DTSIFUIR
|
||||
00058 15 FUIR-RATE-AREA. DTSIFUIR
|
||||
00059 20 FUIR-RATE-GROUP OCCURS 20 TIMES DTSIFUIR
|
||||
00060 INDEXED BY FUIR-RATE-IDX. DTSIFUIR
|
||||
00061 25 FUIR-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIFUIR
|
||||
00062 25 FUIR-MIN-RATIO PIC S9(02)V9(05) COMP-3. DTSIFUIR
|
||||
00063 25 FUIR-MAX-RATIO PIC S9(02)V9(05) COMP-3. DTSIFUIR
|
||||
00064 DTSIFUIR
|
||||
00065 15 FILLER PIC X(16). DTSIFUIR
|
||||
00066 DTSIFUIR
|
||||
00067 15 FUIR-ESTB-DATE PIC S9(09) COMP-3. DTSIFUIR
|
||||
00068 15 FUIR-CHNG-DATE PIC S9(09) COMP-3. DTSIFUIR
|
||||
23
Copybook/DTSIIBTB.cpy
Normal file
23
Copybook/DTSIIBTB.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
00001 ***** 08/25/98
|
||||
00002 * DTSIIBTB
|
||||
00003 * DTSIIBTB ALTERNATE INDEX FILE LV003
|
||||
00004 * 'BUSINESS / TAX ALTERNATE / BENEFIT ALTERNATE DTSIIBTB
|
||||
00005 * NAME SEARCH' RECORD DEFINITION. DTSIIBTB
|
||||
00006 * DTSIIBTB
|
||||
00007 * CL**2
|
||||
00008 * 08/25/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00009 * CL**2
|
||||
00010 ***** DTSIIBTB
|
||||
00011 CL**2
|
||||
00012 10 IBTB-KEY-AREA. DTSIIBTB
|
||||
00013 15 IBTB-REC-TYPE PIC S9(04) COMP. DTSIIBTB
|
||||
00014 88 IBTB-BTB-88 VALUE +01. DTSIIBTB
|
||||
00015 15 IBTB-NAME PIC X(40). DTSIIBTB
|
||||
00016 15 IBTB-EMP-NO PIC S9(07) COMP-3. DTSIIBTB
|
||||
00017 15 IBTB-NAME-TYPE PIC X(01). DTSIIBTB
|
||||
00018 88 IBTB-NAME-PRIMARY-88 VALUE '1'. CL**3
|
||||
00019 88 IBTB-NAME-ENTITY-88 VALUE '2'. CL**3
|
||||
00020 88 IBTB-NAME-TAX-ALT-88 VALUE '3'. CL**3
|
||||
00021 88 IBTB-NAME-BEN-ALT-88 VALUE '4'. CL**3
|
||||
00022 15 IBTB-ID-NO PIC S9(03) COMP-3. DTSIIBTB
|
||||
00023 15 IBTB-KEY-FILLER PIC X(15). DTSIIBTB
|
||||
17
Copybook/DTSIIBTN.cpy
Normal file
17
Copybook/DTSIIBTN.cpy
Normal file
@ -0,0 +1,17 @@
|
||||
00001 ***** 08/25/98
|
||||
00002 * DTSIIBTN
|
||||
00003 * DTSIIBTN ALTERNATE INDEX FILE BUSINESS TAX ACCOUNT LV002
|
||||
00004 * NUMBER RECORD DEFINITION. CL**2
|
||||
00005 * DTSIIBTN
|
||||
00006 * CL**2
|
||||
00007 * 08/25/1998 CREATED FOR DC. EHH CL**2
|
||||
00008 * CL**2
|
||||
00009 ***** DTSIIBTN
|
||||
00010 CL**2
|
||||
00011 10 IBTN-KEY-AREA. CL**2
|
||||
00012 15 IBTN-REC-TYPE PIC S9(04) COMP. CL**2
|
||||
00013 88 IBTN-BTN-88 VALUE +10. CL**2
|
||||
00014 15 IBTN-DC-BUSINESS-TAX-ACCT-NO CL**2
|
||||
00015 PIC S9(09) COMP-3. CL**2
|
||||
00016 15 IBTN-EMP-NO PIC S9(07) COMP-3. CL**2
|
||||
00017 15 IBTN-KEY-FILLER PIC X(53). CL**2
|
||||
24
Copybook/DTSIIEAE.cpy
Normal file
24
Copybook/DTSIIEAE.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIIEAE
|
||||
00003 * DTSIIEAE ALTERNATE INDEX FILE LV001
|
||||
00004 * ELECTRONIC FILER ID SEARCH RECORD DEFINITION. DTSIIEAE
|
||||
00005 * DTSIIEAE
|
||||
00006 * FUNCTION: ONE EXISTS FOR EACH ACTIVE ITEM. DTSIIEAE
|
||||
00007 * INPUT: ELF-ID OR ELF-ID AND DATA TYPE DTSIIEAE
|
||||
00008 * RETURN: LOG NUMBER OF ACTIVE ITEM. DTSIIEAE
|
||||
00009 * DTSIIEAE
|
||||
00010 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEAE
|
||||
00011 * DTSIIEAE
|
||||
00012 ***** DTSIIEAE
|
||||
00013 DTSIIEAE
|
||||
00014 10 IEAE-KEY-AREA. DTSIIEAE
|
||||
00015 15 IEAE-REC-TYPE PIC S9(04) COMP. DTSIIEAE
|
||||
00016 88 IEAE-EAE-88 VALUE +13. DTSIIEAE
|
||||
00017 15 IEAE-ELF-ID PIC S9(07) COMP-3. DTSIIEAE
|
||||
00018 15 IEAE-DATA-TYPE-CD PIC X(02). DTSIIEAE
|
||||
00019 88 IEAE-PRINT-UC30-88 VALUE '01'. DTSIIEAE
|
||||
00020 88 IEAE-BEN-CHARGE-88 VALUE '02'. DTSIIEAE
|
||||
00021 88 IEAE-WAGE-ONLY-88 VALUE '11'. DTSIIEAE
|
||||
00022 88 IEAE-WAGE-TAX-88 VALUE '12'. DTSIIEAE
|
||||
00023 15 IEAE-LOG-NO PIC 9(10). DTSIIEAE
|
||||
00024 15 IEAE-KEY-FILLER PIC X(46). DTSIIEAE
|
||||
20
Copybook/DTSIIEAL.cpy
Normal file
20
Copybook/DTSIIEAL.cpy
Normal file
@ -0,0 +1,20 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIIEAL
|
||||
00003 * DTSIIEAL ALTERNATE INDEX FILE LV001
|
||||
00004 * LOG NUMBER SUFFIX SEARCH RECORD DEFINITION. DTSIIEAL
|
||||
00005 * DTSIIEAL
|
||||
00006 * FUNCTION: ONE EXISTS FOR EACH LOG RECORD ON FILE. DTSIIEAL
|
||||
00007 * INPUT: 6 DIGIT LOG NUMBER SUFFIX. DTSIIEAL
|
||||
00008 * RETURN: THE FULL 10 DIGIT LOG NUMBER DTSIIEAL
|
||||
00009 * DTSIIEAL
|
||||
00010 * 01/20/2001 INITIAL DEVELOPMENT. GD DTSIIEAL
|
||||
00011 * DTSIIEAL
|
||||
00012 ***** DTSIIEAL
|
||||
00013 DTSIIEAL
|
||||
00014 10 IEAL-KEY-AREA. DTSIIEAL
|
||||
00015 15 IEAL-REC-TYPE PIC S9(04) COMP. DTSIIEAL
|
||||
00016 88 IEAL-EAL-88 VALUE +12. DTSIIEAL
|
||||
00017 15 IEAL-LOG-NO-SFX PIC 9(06). DTSIIEAL
|
||||
00018 15 IEAL-LOG-NO PIC 9(10). DTSIIEAL
|
||||
00019 15 IEAL-COMPLETE-DATE PIC S9(09) COMP-3. DTSIIEAL
|
||||
00020 15 IEAL-KEY-FILLER PIC X(41). DTSIIEAL
|
||||
19
Copybook/DTSIIEBX.cpy
Normal file
19
Copybook/DTSIIEBX.cpy
Normal file
@ -0,0 +1,19 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIIEBX
|
||||
00003 * DTSIIEBX ALTERNATE INDEX FILE LV001
|
||||
00004 * ELECTRONIC MEDIA BOX SEARCH RECORD DEFINITION. DTSIIEBX
|
||||
00005 * DTSIIEBX
|
||||
00006 * FUNCTION: ONE EXISTS FOR EACH ACTIVE ITEM. DTSIIEBX
|
||||
00007 * INPUT: ELECTRONIC MEDIA BOX NUMBER. DTSIIEBX
|
||||
00008 * RETURN: LOG NUMBER OF AN ITEM IN THE BOX. DTSIIEBX
|
||||
00009 * DTSIIEBX
|
||||
00010 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEBX
|
||||
00011 * DTSIIEBX
|
||||
00012 ***** DTSIIEBX
|
||||
00013 DTSIIEBX
|
||||
00014 10 IEBX-KEY-AREA. DTSIIEBX
|
||||
00015 15 IEBX-REC-TYPE PIC S9(04) COMP. DTSIIEBX
|
||||
00016 88 IEBX-EBX-88 VALUE +14. DTSIIEBX
|
||||
00017 15 IEBX-BOX-NO PIC X(08). DTSIIEBX
|
||||
00018 15 IEBX-LOG-NO PIC 9(10). DTSIIEBX
|
||||
00019 15 IEBX-KEY-FILLER PIC X(44). DTSIIEBX
|
||||
26
Copybook/DTSIIEER.cpy
Normal file
26
Copybook/DTSIIEER.cpy
Normal file
@ -0,0 +1,26 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIIEER
|
||||
00003 * DTSIIEER ALTERNATE INDEX FILE LV001
|
||||
00004 * EMPLOYER SEARCH BY REPORTING DATE AND DTSIIEER
|
||||
00005 * DATA TYPE RECORD DEFINITION. DTSIIEER
|
||||
00006 * DTSIIEER
|
||||
00007 * FUNCTION: ONE EXISTS FOR EACH EMPLOYER FOR WHOM DTSIIEER
|
||||
00008 * AN ELECTRONIC SUBMISSION IS ON FILE. DTSIIEER
|
||||
00009 * DTSIIEER
|
||||
00010 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEER
|
||||
00011 * DTSIIEER
|
||||
00012 * NOTE: THE REPORTING DATE IS IN NINES COMPLEMENT FORM, DTSIIEER
|
||||
00013 * SO AN EMPLOYER'S RECORDS ARE RETURNED IN REVERSE DTSIIEER
|
||||
00014 * CHRONOLOGICAL ORDER BY REPORTING DATE (I.E., THE DTSIIEER
|
||||
00015 * MOST RECENT RECORD IS FIRST). DTSIIEER
|
||||
00016 * DTSIIEER
|
||||
00017 ***** DTSIIEER
|
||||
00018 DTSIIEER
|
||||
00019 10 IEER-KEY-AREA. DTSIIEER
|
||||
00020 15 IEER-REC-TYPE PIC S9(04) COMP. DTSIIEER
|
||||
00021 88 IEER-EER-88 VALUE +17. DTSIIEER
|
||||
00022 15 IEER-EMP-NO PIC S9(07) COMP-3. DTSIIEER
|
||||
00023 15 IEER-RPT-DATE-XOR PIC S9(09) COMP-3. DTSIIEER
|
||||
00024 15 IEER-DATA-TYPE-CD PIC X(02). DTSIIEER
|
||||
00025 15 IEER-LOG-NO PIC 9(10). DTSIIEER
|
||||
00026 15 IEER-KEY-FILLER PIC X(41). DTSIIEER
|
||||
20
Copybook/DTSIIEET.cpy
Normal file
20
Copybook/DTSIIEET.cpy
Normal file
@ -0,0 +1,20 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIIEET
|
||||
00003 * DTSIIEET ALTERNATE INDEX FILE LV001
|
||||
00004 * EMPLOYER/DATA TYPE SEARCH RECORD DEFINITION. DTSIIEET
|
||||
00005 * DTSIIEET
|
||||
00006 * FUNCTION: ONE EXISTS FOR EACH EMPLOYER FOR WHOM DTSIIEET
|
||||
00007 * AN ELECTRONIC SUBMISSION IS ON FILE. DTSIIEET
|
||||
00008 * DTSIIEET
|
||||
00009 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEET
|
||||
00010 * DTSIIEET
|
||||
00011 ***** DTSIIEET
|
||||
00012 DTSIIEET
|
||||
00013 10 IEET-KEY-AREA. DTSIIEET
|
||||
00014 15 IEET-REC-TYPE PIC S9(04) COMP. DTSIIEET
|
||||
00015 88 IEET-EET-88 VALUE +18. DTSIIEET
|
||||
00016 15 IEET-EMP-NO PIC S9(07) COMP-3. DTSIIEET
|
||||
00017 15 IEET-DATA-TYPE-CD PIC X(02). DTSIIEET
|
||||
00018 15 IEET-RPT-DATE-XOR PIC S9(09) COMP-3. DTSIIEET
|
||||
00019 15 IEET-LOG-NO PIC 9(10). DTSIIEET
|
||||
00020 15 IEET-KEY-FILLER PIC X(41). DTSIIEET
|
||||
16
Copybook/DTSIIEIN.cpy
Normal file
16
Copybook/DTSIIEIN.cpy
Normal file
@ -0,0 +1,16 @@
|
||||
00001 ***** 08/25/98
|
||||
00002 * DTSIIEIN
|
||||
00003 * DTSIIEIN ALTERNATE INDEX FILE 'FEDERAL EMPLOYER LV002
|
||||
00004 * IDENTIFICATION NUMBER' RECORD DEFINITION. DTSIIEIN
|
||||
00005 * DTSIIEIN
|
||||
00006 * CL**2
|
||||
00007 * 08/25/1998 REVEIWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00008 * CL**2
|
||||
00009 ***** DTSIIEIN
|
||||
00010 CL**2
|
||||
00011 10 IEIN-KEY-AREA. DTSIIEIN
|
||||
00012 15 IEIN-REC-TYPE PIC S9(04) COMP. DTSIIEIN
|
||||
00013 88 IEIN-EIN-88 VALUE +02. DTSIIEIN
|
||||
00014 15 IEIN-FEIN PIC S9(09) COMP-3. DTSIIEIN
|
||||
00015 15 IEIN-EMP-NO PIC S9(07) COMP-3. DTSIIEIN
|
||||
00016 15 IEIN-KEY-FILLER PIC X(53). DTSIIEIN
|
||||
21
Copybook/DTSIIENM.cpy
Normal file
21
Copybook/DTSIIENM.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIIENM
|
||||
00003 * DTSIIENM ALTERNATE INDEX FILE LV001
|
||||
00004 * ELECTRONIC FILER NAME SEARCH RECORD DEFINITION. DTSIIENM
|
||||
00005 * DTSIIENM
|
||||
00006 * DTSIIENM
|
||||
00007 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIENM
|
||||
00008 * DTSIIENM
|
||||
00009 ***** DTSIIENM
|
||||
00010 DTSIIENM
|
||||
00011 10 IENM-KEY-AREA. DTSIIENM
|
||||
00012 15 IENM-REC-TYPE PIC S9(04) COMP. DTSIIENM
|
||||
00013 88 IENM-ENM-88 VALUE +11. DTSIIENM
|
||||
00014 15 IENM-NAME PIC X(40). DTSIIENM
|
||||
00015 15 IENM-ELF-ID PIC S9(07) COMP-3. DTSIIENM
|
||||
00016 15 IENM-DATA-TYPE-CD PIC X(02). DTSIIENM
|
||||
00017 88 IENM-PRINT-UC30-88 VALUE '01'. DTSIIENM
|
||||
00018 88 IENM-BEN-CHARGE-88 VALUE '02'. DTSIIENM
|
||||
00019 88 IENM-WAGE-ONLY-88 VALUE '11'. DTSIIENM
|
||||
00020 88 IENM-WAGE-TAX-88 VALUE '12'. DTSIIENM
|
||||
00021 15 IENM-KEY-FILLER PIC X(16). DTSIIENM
|
||||
20
Copybook/DTSIIEOP.cpy
Normal file
20
Copybook/DTSIIEOP.cpy
Normal file
@ -0,0 +1,20 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIIEOP
|
||||
00003 * DTSIIEOP ALTERNATE INDEX FILE LV001
|
||||
00004 * ELECTRONIC MEDIA OPERATOR ID SEARCH DTSIIEOP
|
||||
00005 * RECORD DEFINITION. DTSIIEOP
|
||||
00006 * DTSIIEOP
|
||||
00007 * FUNCTION: ONE EXISTS FOR EACH ACTIVE ITEM. DTSIIEOP
|
||||
00008 * RETURNS A LOG NUMBER IN RESPONSE TO AN DTSIIEOP
|
||||
00009 * ELECTRONIC MEDIA RESPONSIBLE OPERATOR ID SEARCH. DTSIIEOP
|
||||
00010 * DTSIIEOP
|
||||
00011 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEOP
|
||||
00012 * DTSIIEOP
|
||||
00013 ***** DTSIIEOP
|
||||
00014 DTSIIEOP
|
||||
00015 10 IEOP-KEY-AREA. DTSIIEOP
|
||||
00016 15 IEOP-REC-TYPE PIC S9(04) COMP. DTSIIEOP
|
||||
00017 88 IEOP-EOP-88 VALUE +15. DTSIIEOP
|
||||
00018 15 IEOP-OPID PIC X(08). DTSIIEOP
|
||||
00019 15 IEOP-LOG-NO PIC 9(10). DTSIIEOP
|
||||
00020 15 IEOP-KEY-FILLER PIC X(44). DTSIIEOP
|
||||
26
Copybook/DTSIIEPR.cpy
Normal file
26
Copybook/DTSIIEPR.cpy
Normal file
@ -0,0 +1,26 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIIEPR
|
||||
00003 * DTSIIEPR ALTERNATE INDEX FILE LV001
|
||||
00004 * ELECTRONIC FILER ID SEARCH RECORD DEFINITION. DTSIIEPR
|
||||
00005 * DTSIIEPR
|
||||
00006 * FUNCTION: ONE EXISTS FOR EACH ELECTRONIC FILER PROFILE REC. DTSIIEPR
|
||||
00007 * INPUT: ELF-ID DTSIIEPR
|
||||
00008 * RETURN: DATA-TYPE-CD DTSIIEPR
|
||||
00009 * DTSIIEPR
|
||||
00010 * THIS RECORD EXISTS ONLY TO SIMPLIFY THE SEARCH DTSIIEPR
|
||||
00011 * PROCESS IN SCREEN L6. DTSIIEPR
|
||||
00012 * DTSIIEPR
|
||||
00013 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEPR
|
||||
00014 * DTSIIEPR
|
||||
00015 ***** DTSIIEPR
|
||||
00016 DTSIIEPR
|
||||
00017 10 IEPR-KEY-AREA. DTSIIEPR
|
||||
00018 15 IEPR-REC-TYPE PIC S9(04) COMP. DTSIIEPR
|
||||
00019 88 IEPR-EPR-88 VALUE +19. DTSIIEPR
|
||||
00020 15 IEPR-ELF-ID PIC S9(07) COMP-3. DTSIIEPR
|
||||
00021 15 IEPR-DATA-TYPE-CD PIC X(02). DTSIIEPR
|
||||
00022 88 IEPR-PRINT-UC30-88 VALUE '01'. DTSIIEPR
|
||||
00023 88 IEPR-BEN-CHARGE-88 VALUE '02'. DTSIIEPR
|
||||
00024 88 IEPR-WAGE-ONLY-88 VALUE '11'. DTSIIEPR
|
||||
00025 88 IEPR-WAGE-TAX-88 VALUE '12'. DTSIIEPR
|
||||
00026 15 IEPR-KEY-FILLER PIC X(56). DTSIIEPR
|
||||
21
Copybook/DTSIIESR.cpy
Normal file
21
Copybook/DTSIIESR.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DTSIIESR
|
||||
00003 * DTSIIESR ALTERNATE INDEX FILE LV001
|
||||
00004 * SUBMITTER/RECEIVED DATE RECORD DEFINITION. DTSIIESR
|
||||
00005 * DTSIIESR
|
||||
00006 * FUNCTION: ONE EXISTS FOR EACH ELECTRONIC SUBMISSION. DTSIIESR
|
||||
00007 * IT ALLOWS BROWSE OPERATIONS BY ELF-ID AND DTSIIESR
|
||||
00008 * RECEIVED DATE. DTSIIESR
|
||||
00009 * DTSIIESR
|
||||
00010 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIESR
|
||||
00011 * DTSIIESR
|
||||
00012 ***** DTSIIESR
|
||||
00013 DTSIIESR
|
||||
00014 10 IESR-KEY-AREA. DTSIIESR
|
||||
00015 15 IESR-REC-TYPE PIC S9(04) COMP. DTSIIESR
|
||||
00016 88 IESR-ESR-88 VALUE +16. DTSIIESR
|
||||
00017 15 IESR-ELF-ID PIC S9(07) COMP-3. DTSIIESR
|
||||
00018 15 IESR-RCVD-DATE-XOR PIC S9(09) COMP-3. DTSIIESR
|
||||
00019 15 IESR-DATA-TYPE-CD PIC X(02). DTSIIESR
|
||||
00020 15 IESR-LOG-NO PIC 9(10). DTSIIESR
|
||||
00021 15 IESR-KEY-FILLER PIC X(41). DTSIIESR
|
||||
16
Copybook/DTSIIFAN.cpy
Normal file
16
Copybook/DTSIIFAN.cpy
Normal file
@ -0,0 +1,16 @@
|
||||
00001 ***** 08/25/98
|
||||
00002 * DTSIIFAN
|
||||
00003 * DTSIIFAN ALTERNATE INDEX FILE 'FIELD ASSIGNMENT NUMBER' LV003
|
||||
00004 * RECORD DEFINITION. DTSIIFAN
|
||||
00005 * DTSIIFAN
|
||||
00006 * CL**3
|
||||
00007 * 08/25/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**3
|
||||
00008 * CL**3
|
||||
00009 ***** DTSIIFAN
|
||||
00010 CL**2
|
||||
00011 10 IFAN-KEY-AREA. DTSIIFAN
|
||||
00012 15 IFAN-REC-TYPE PIC S9(04) COMP. DTSIIFAN
|
||||
00013 88 IFAN-FAN-88 VALUE +03. DTSIIFAN
|
||||
00014 15 IFAN-ASSIGN-NO PIC S9(09) COMP-3. DTSIIFAN
|
||||
00015 15 IFAN-EMP-NO PIC S9(07) COMP-3. DTSIIFAN
|
||||
00016 15 IFAN-KEY-FILLER PIC X(53). DTSIIFAN
|
||||
20
Copybook/DTSIIFID.cpy
Normal file
20
Copybook/DTSIIFID.cpy
Normal file
@ -0,0 +1,20 @@
|
||||
00001 ***** 01/29/02
|
||||
00002 * DTSIIFID
|
||||
00003 * DTSIIFID ALTERNATE INDEX FILE 'FIELD REPRESENTATIVE ID' LV004
|
||||
00004 * RECORD DEFINITION. DTSIIFID
|
||||
00005 * DTSIIFID
|
||||
00006 * DTSIIFID
|
||||
00007 * 08/25/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIIFID
|
||||
00008 * DTSIIFID
|
||||
00009 ***** DTSIIFID
|
||||
00010 DTSIIFID
|
||||
00011 10 IFID-KEY-AREA. DTSIIFID
|
||||
00012 15 IFID-REC-TYPE PIC S9(04) COMP. DTSIIFID
|
||||
00013 88 IFID-FID-88 VALUE +04. DTSIIFID
|
||||
00014 15 IFID-FLD-REP-ID PIC X(02). DTSIIFID
|
||||
00015 15 IFID-DUE-DATE PIC S9(09) COMP-3. DTSIIFID
|
||||
00016 15 IFID-ASSIGN-NO PIC S9(09) COMP-3. DTSIIFID
|
||||
00017 15 IFID-EMP-NO PIC S9(07) COMP-3. DTSIIFID
|
||||
00018 15 IFID-STATUS-CD PIC X(01). DTSIIFID
|
||||
00019 15 IFID-ASSIGN-TYPE PIC X(02). DTSIIFID
|
||||
00020 15 IFID-KEY-FILLER PIC X(43). DTSIIFID
|
||||
46
Copybook/DTSIILEN.cpy
Normal file
46
Copybook/DTSIILEN.cpy
Normal file
@ -0,0 +1,46 @@
|
||||
00001 ***** 07/01/08
|
||||
00002 * DTSIILEN
|
||||
00003 * DTSIILEN ALTERNATE INDEX FILE RECORD LENGTH. LV008
|
||||
00004 * DTSIILEN
|
||||
00005 * DTSIILEN
|
||||
00006 * 08/25/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIILEN
|
||||
00007 * 01/20/2001 MODIFIED FOR ELECTRONIC MEDIA DTSIILEN
|
||||
00008 * TRACKING SYSTEM. GD DTSIILEN
|
||||
00009 * 04/18/2003 MODIFIED FOR ELECTRONIC PAYMENT DTSIILEN
|
||||
00010 * (TRT, TRE) GD DTSIILEN
|
||||
00011 * 02/08/2008 ADDED IRFD REC FOR REFUNDS GD DTSIILEN
|
||||
00012 * DTSIILEN
|
||||
00013 ***** DTSIILEN
|
||||
00014 DTSIILEN
|
||||
00015 10 ILEN-LENGTH PIC S9(04) COMP VALUE +64. DTSIILEN
|
||||
00016 DTSIILEN
|
||||
00017 10 ILEN-MAX-REC-ID PIC S9(04) COMP VALUE +22. DTSIILEN
|
||||
00018 DTSIILEN
|
||||
00019 10 ILEN-PREFIX-AREA. DTSIILEN
|
||||
00020 15 ILEN-BTB-PREFIX PIC X(04) VALUE 'IBTB'. DTSIILEN
|
||||
00021 15 ILEN-EIN-PREFIX PIC X(04) VALUE 'IEIN'. DTSIILEN
|
||||
00022 15 ILEN-FAN-PREFIX PIC X(04) VALUE 'IFAN'. DTSIILEN
|
||||
00023 15 ILEN-FID-PREFIX PIC X(04) VALUE 'IFID'. DTSIILEN
|
||||
00024 15 ILEN-OPN-PREFIX PIC X(04) VALUE 'IOPN'. DTSIILEN
|
||||
00025 15 ILEN-OPS-PREFIX PIC X(04) VALUE 'IOPS'. DTSIILEN
|
||||
00026 15 ILEN-PES-PREFIX PIC X(04) VALUE 'IPES'. DTSIILEN
|
||||
00027 15 ILEN-TDS-PREFIX PIC X(04) VALUE 'ITDS'. DTSIILEN
|
||||
00028 15 ILEN-ZIP-PREFIX PIC X(04) VALUE 'IZIP'. DTSIILEN
|
||||
00029 15 ILEN-BTN-PREFIX PIC X(04) VALUE 'IBTN'. DTSIILEN
|
||||
00030 15 ILEN-ENM-PREFIX PIC X(04) VALUE 'IENM'. DTSIILEN
|
||||
00031 15 ILEN-EAL-PREFIX PIC X(04) VALUE 'IEAL'. DTSIILEN
|
||||
00032 15 ILEN-EAE-PREFIX PIC X(04) VALUE 'IEAE'. DTSIILEN
|
||||
00033 15 ILEN-EBX-PREFIX PIC X(04) VALUE 'IEBX'. DTSIILEN
|
||||
00034 15 ILEN-EOP-PREFIX PIC X(04) VALUE 'IEOP'. DTSIILEN
|
||||
00035 15 ILEN-ESR-PREFIX PIC X(04) VALUE 'IESR'. DTSIILEN
|
||||
00036 15 ILEN-EER-PREFIX PIC X(04) VALUE 'IEER'. DTSIILEN
|
||||
00037 15 ILEN-EET-PREFIX PIC X(04) VALUE 'IEET'. DTSIILEN
|
||||
00038 15 ILEN-EPR-PREFIX PIC X(04) VALUE 'IEPR'. DTSIILEN
|
||||
00039 15 ILEN-TRT-PREFIX PIC X(04) VALUE 'ITRT'. DTSIILEN
|
||||
00040 15 ILEN-TRE-PREFIX PIC X(04) VALUE 'ITRE'. DTSIILEN
|
||||
00041 15 ILEN-RFD-PREFIX PIC X(04) VALUE 'IRFD'. DTSIILEN
|
||||
00042 DTSIILEN
|
||||
00043 10 FILLER REDEFINES ILEN-PREFIX-AREA. DTSIILEN
|
||||
00044 15 ILEN-PREFIX OCCURS 22 TIMES DTSIILEN
|
||||
00045 INDEXED BY ILEN-IDX DTSIILEN
|
||||
00046 PIC X(04). DTSIILEN
|
||||
17
Copybook/DTSIIOPN.cpy
Normal file
17
Copybook/DTSIIOPN.cpy
Normal file
@ -0,0 +1,17 @@
|
||||
00001 ***** 08/25/98
|
||||
00002 * DTSIIOPN
|
||||
00003 * DTSIIOPN ALTERNATE INDEX FILE 'OWNER/PARTNER/OFFICER NAME LV002
|
||||
00004 * SEARCH' RECORD DEFINITION. DTSIIOPN
|
||||
00005 * DTSIIOPN
|
||||
00006 * CL**2
|
||||
00007 * 08/25/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00008 * CL**2
|
||||
00009 ***** DTSIIOPN
|
||||
00010 CL**2
|
||||
00011 10 IOPN-KEY-AREA. DTSIIOPN
|
||||
00012 15 IOPN-REC-TYPE PIC S9(04) COMP. DTSIIOPN
|
||||
00013 88 IOPN-OPN-88 VALUE +05. DTSIIOPN
|
||||
00014 15 IOPN-NAME PIC X(32). DTSIIOPN
|
||||
00015 15 IOPN-EMP-NO PIC S9(07) COMP-3. DTSIIOPN
|
||||
00016 15 IOPN-ID-NO PIC S9(03) COMP-3. DTSIIOPN
|
||||
00017 15 IOPN-KEY-FILLER PIC X(24). DTSIIOPN
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user