diff --git a/Batch/DTSBS413.cob b/Batch/DTSBS413.cob new file mode 100644 index 0000000..c742f83 --- /dev/null +++ b/Batch/DTSBS413.cob @@ -0,0 +1,3264 @@ +00001 IDENTIFICATION DIVISION. 07/04/24 +00002 PROGRAM-ID. DTSBS413. DTSBS413 +00003 AUTHOR. SC. LV139 +00004 DATE-WRITTEN. JUNE 2024. CL129 +00005 DATE-COMPILED. DTSBS413 +00006 SKIP3 DTSBS413 +00007 ***** DTSBS413 +00008 * DTSBS413 +00009 * DTSBS413 +00010 * FUNCTION: CONVERT EMPLOYER DATA FOR SQL SERVER DTSBS413 +00011 * DATABASE. DTSBS413 +00012 * THIS VERSION PRODUCES THE OUTPUT FILES DTSBS413 +00013 * NEEDED FOR THE EMPLOYER REPORTING DTSBS413 +00014 * APPLICATION. DTSBS413 +00015 * DTSBS413 +00016 * DTSBS413 +00017 * MODIFICATION LOG: DTSBS413 +00018 * DTSBS413 +00019 * 11/24/20034 INITIAL DEVELOPMENT. DTSBS413 +00020 * REFERENCE: WEB REGISTRATION PROGRAMMER: GD DTSBS413 +00021 * DTSBS413 +00022 * 08/26/2009 MODIFIED P3820: MOST RECENT AMOUNT PAID NOW DTSBS413 +00023 * EQUALS THE SUM OF ALL PAYMENTS MADE DURING THE DTSBS413 +00024 * DAY. DTSBS413 +00025 * REFERENCE: PROGRAMMER: GD DTSBS413 +00026 * DTSBS413 +00027 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBS413 +00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBS413 +00029 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBS413 +00030 * DTSBS413 +00031 * DESCRIPTION: DTSBS413 +00032 * DTSBS413 +00033 * DTSBS413 +00034 * RECORDS READ: DTSBS413 +00035 * DTSBS413 +00036 * MASTER: DTSBS413 +00037 * DTSBS413 +00038 * MPRF DTSBS413 +00039 * MQTR DTSBS413 +00040 * DTSBS413 +00041 * ALTERNATE INDEX: DTSBS413 +00042 * DTSBS413 +00043 * NONE. DTSBS413 +00044 * DTSBS413 +00045 * REFERENCE: DTSBS413 +00046 * DTSBS413 +00047 * DTSBS413 +00048 * RECORDS UPDATED: DTSBS413 +00049 * DTSBS413 +00050 * NONE DTSBS413 +00051 * DTSBS413 +00052 * OUTPUT RECORDS WRITTEN: DTSBS413 +00053 * DTSBS413 +00054 * DTSBS413 +00055 * DTSBS413 +00056 * REPORT RECORDS WRITTEN: DTSBS413 +00057 * DTSBS413 +00058 * NONE. DTSBS413 +00059 * DTSBS413 +00060 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBS413 +00061 * DTSBS413 +00062 * NONE. DTSBS413 +00063 * DTSBS413 +00064 * DTSBS413 +00065 * MODULES CALLED: DTSBS413 +00066 * DTSBS413 +00067 * DTSBU910 MASTER FILE I/O DRIVER. DTSBS413 +00068 * DTSBU946 WRITE VARIABLE OUTPUT RECORD(S). DTSBS413 +00069 * DTSBU004 QUARTER CONVERSION/EDIT. DTSBS413 +00070 * DTSBU516 DETERMINE LIABILITY, DUE DATE, DTSBS413 +00071 * AND RATE FOR A GIVEN QUARTER. DTSBS413 +00072 * DTSBU981 VSAM WAGES FILE I/O DRIVER. DTSBS413 +00073 * DTSBU982 VSAM SSN-NAME FILE I/O DRIVER. DTSBS413 +00074 * DTSBS413 +00075 ***** DTSBS413 +00076 DTSBS413 +00077 ENVIRONMENT DIVISION. DTSBS413 +00078 INPUT-OUTPUT SECTION. DTSBS413 +00079 DTSBS413 +00080 FILE-CONTROL. DTSBS413 +00081 DTSBS413 +00082 SELECT EMPLOYER-TEMP ASSIGN TO BX411TMP DTSBS413 +00083 FILE STATUS IS TEMP-STATUS. DTSBS413 +00084 DTSBS413 +00085 SELECT X100-REF-FILE ASSIGN TO EXPBX100 DTSBS413 +00086 FILE STATUS IS X100-STATUS. DTSBS413 +00087 DTSBS413 +00088 SELECT X102-PRF-FILE ASSIGN TO EXPBX102 DTSBS413 +00089 FILE STATUS IS X102-STATUS. DTSBS413 +00090 DTSBS413 +00091 SELECT X104-DETERM-FILE ASSIGN TO EXPBX104 CL**2 +00092 FILE STATUS IS X104-STATUS. CL**2 +00093 DTSBS413 +00094 SELECT X106-NAME-FILE ASSIGN TO EXPBX106 DTSBS413 +00095 FILE STATUS IS X106-STATUS. DTSBS413 +00096 DTSBS413 +00097 SELECT X108-RATE-FILE ASSIGN TO EXPBX108 CL**2 +00098 FILE STATUS IS X108-STATUS. CL**2 +00099 DTSBS413 +00100 SELECT X110-ADDR-FILE ASSIGN TO EXPBX110 DTSBS413 +00101 FILE STATUS IS X110-STATUS. DTSBS413 +00102 DTSBS413 +00103 SELECT X120-OPO-FILE ASSIGN TO EXPBX120 CL**2 +00104 FILE STATUS IS X120-STATUS. CL**2 +00105 DTSBS413 +00106 SELECT X131-REL-FILE ASSIGN TO EXPBX131 DTSBS413 +00107 FILE STATUS IS X131-STATUS. DTSBS413 +00108 DTSBS413 +00109 SELECT X140-REPORT-FILE ASSIGN TO EXPBX140 CL**2 +00110 FILE STATUS IS X140-STATUS. CL**2 +00111 DTSBS413 +00112 SELECT X141-QTR-STATUS-FILE ASSIGN TO EXPBX141 DTSBS413 +00113 FILE STATUS IS X141-STATUS. DTSBS413 +00114 DTSBS413 +00115 SELECT X142-LAST-RPT-PAY-FILE ASSIGN TO EXPBX142 DTSBS413 +00116 FILE STATUS IS X142-STATUS. DTSBS413 +00117 DTSBS413 +00118 SELECT X145-PAYMENT-FILE ASSIGN TO EXPBX145 CL**2 +00119 FILE STATUS IS X145-STATUS. CL**2 +00120 CL*56 +00121 * SELECT DSKFILE ASSIGN TO EXPBX149 CL127 +00122 SELECT DSKFILE ASSIGN TO DSKFILE CL127 +00123 FILE STATUS IS DSKFILE-STATUS. CL*56 +00124 CL*56 +00125 SELECT SENT-MINI-FILE ASSIGN TO DTSFSENT CL129 +00126 FILE STATUS IS SENT-MINI-STATUS. CL129 +00127 CL129 +00128 DTSBS413 +00129 DATA DIVISION. DTSBS413 +00130 FILE SECTION. DTSBS413 +00131 CL*55 +00132 FD DSKFILE CL*52 +00133 RECORDING MODE IS F CL*52 +00134 BLOCK CONTAINS 0 RECORDS CL*52 +00135 DATA RECORD IS DSKREC. CL*52 +00136 01 DSKREC PIC X(477). CL*52 +00137 CL*52 +00138 FD EMPLOYER-TEMP DTSBS413 +00139 RECORDING MODE IS F. DTSBS413 +00140 01 EMPLOYER-TEMP-REC. DTSBS413 +00141 05 TEMP-REC-TYPE PIC X(03). DTSBS413 +00142 05 FILLER PIC X(01). DTSBS413 +00143 05 TEMP-EMP-NO PIC 9(06). DTSBS413 +00144 05 FILLER PIC X(502). DTSBS413 +00145 DTSBS413 +00146 FD X100-REF-FILE DTSBS413 +00147 RECORDING MODE IS F. DTSBS413 +00148 01 X100-REC PIC X(30). DTSBS413 +00149 DTSBS413 +00150 FD X102-PRF-FILE DTSBS413 +00151 RECORDING MODE IS F. DTSBS413 +00152 01 X102-REC PIC X(29). DTSBS413 +00153 DTSBS413 +00154 FD X104-DETERM-FILE CL**2 +00155 RECORDING MODE IS F. CL**2 +00156 01 X104-REC PIC X(108). CL**2 +00157 DTSBS413 +00158 FD X106-NAME-FILE DTSBS413 +00159 RECORDING MODE IS F. DTSBS413 +00160 01 X106-REC PIC X(53). DTSBS413 +00161 DTSBS413 +00162 FD X108-RATE-FILE CL**2 +00163 RECORDING MODE IS F. CL**2 +00164 01 X108-REC PIC X(24). CL**2 +00165 DTSBS413 +00166 FD X110-ADDR-FILE DTSBS413 +00167 RECORDING MODE IS F. DTSBS413 +00168 01 X110-REC PIC X(249). CL121 +00169 DTSBS413 +00170 FD X120-OPO-FILE CL**2 +00171 RECORDING MODE IS F. CL**2 +00172 01 X120-REC PIC X(385). CL**2 +00173 DTSBS413 +00174 FD X131-REL-FILE DTSBS413 +00175 RECORDING MODE IS F. DTSBS413 +00176 01 X131-REC PIC X(28). DTSBS413 +00177 DTSBS413 +00178 FD X140-REPORT-FILE CL**2 +00179 RECORDING MODE IS F. CL**2 +00180 01 X140-REC PIC X(143). CL**2 +00181 DTSBS413 +00182 FD X141-QTR-STATUS-FILE DTSBS413 +00183 RECORDING MODE IS F. DTSBS413 +00184 01 X141-REC PIC X(102). DTSBS413 +00185 DTSBS413 +00186 FD X142-LAST-RPT-PAY-FILE DTSBS413 +00187 RECORDING MODE IS F. DTSBS413 +00188 01 X142-REC PIC X(54). DTSBS413 +00189 DTSBS413 +00190 FD X145-PAYMENT-FILE CL**2 +00191 RECORDING MODE IS F. CL**2 +00192 01 X145-REC PIC X(512). CL*70 +00193 DTSBS413 +00194 FD SENT-MINI-FILE CL129 +00195 RECORDING MODE IS F CL129 +00196 LABEL RECORDS ARE STANDARD CL129 +00197 BLOCK CONTAINS 0 CHARACTERS. CL129 +00198 CL129 +00199 01 SENT-MINI-REC PIC X(80). CL129 +00200 CL129 +00201 WORKING-STORAGE SECTION. DTSBS413 +002015 77 PAN-VALET PICTURE X(24) VALUE '139DTSBS413 07/04/24'. DTSBS413 +00202 77 PAN-VALET PICTURE X(24) VALUE '004DTSBX411 10/02/09'. DTSBS413 +00203 DTSBS413 +00204 01 WRK-AREA. DTSBS413 +00205 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +411.DTSBS413 +00206 05 ABEND-MSG PIC X(60). DTSBS413 +00207 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX411'.DTSBS413 +00208 05 WRK-TRACE-IND PIC X(01) VALUE ' '. DTSBS413 +00209 DTSBS413 +00210 05 PSUB PIC S9(04) COMP. DTSBS413 +00211 05 PAY-MAX PIC S9(04) COMP DTSBS413 +00212 VALUE +500. DTSBS413 +00213 05 PAY-LAST PIC S9(04) COMP DTSBS413 +00214 VALUE +0. DTSBS413 +00215 05 MAX-PAY-DATE PIC S9(09) COMP-3. DTSBS413 +00216 05 MAX-PAY-BATCH PIC S9(05) COMP-3. DTSBS413 +00217 05 MAX-PAY-ITEM PIC S9(03) COMP-3. DTSBS413 +00218 05 MAX-PAY-AMT PIC S9(09)V99 COMP-3. DTSBS413 +00219 DTSBS413 +00220 05 PAY-TABLE OCCURS 500 TIMES. DTSBS413 +00221 10 PAY-BATCH PIC S9(05) COMP-3. DTSBS413 +00222 10 PAY-ITEM PIC S9(03) COMP-3. DTSBS413 +00223 10 PAY-RCVD-DATE PIC S9(09) COMP-3. DTSBS413 +00224 10 PAY-PROCESS-DATE PIC S9(09) COMP-3. DTSBS413 +00225 10 PAY-ORIG-AMT PIC S9(09)V99 COMP-3. DTSBS413 +00226 10 PAY-ADJ-AMT PIC S9(09)V99 COMP-3. DTSBS413 +00227 DTSBS413 +00228 05 RSUB PIC S9(04) COMP. DTSBS413 +00229 05 RPT-MAX PIC S9(04) COMP DTSBS413 +00230 VALUE +400. DTSBS413 +00231 05 MAX-RPT-DATE PIC S9(09) COMP-3. DTSBS413 +00232 05 MAX-RPT-YRQ PIC S9(05) COMP-3. DTSBS413 +00233 05 MAX-RPT-TYPE PIC X(02). DTSBS413 +00234 DTSBS413 +00235 05 RPT-TABLE OCCURS 400 TIMES. DTSBS413 +00236 10 RPT-YRQ PIC S9(05) COMP-3. DTSBS413 +00237 10 RPT-TYPE PIC X(02). DTSBS413 +00238 10 RPT-RCVD-DATE PIC S9(09) COMP-3. DTSBS413 +00239 10 RPT-PROCESS-DATE PIC S9(09) COMP-3. DTSBS413 +00240 DTSBS413 +00241 05 GLOBAL-DATA-AREA. DTSBS413 +00242 10 WRK-CURR-RUN-DATE PIC S9(09) COMP-3 VALUE +0. DTSBS413 +00243 10 WRK-CURR-QTR PIC S9(05) COMP-3 VALUE +0. DTSBS413 +00244 10 WRK-CURR-QTR-START PIC S9(09) COMP-3 VALUE +0. DTSBS413 +00245 10 WRK-PRIOR-QTR PIC S9(05) COMP-3 VALUE +0. DTSBS413 +00246 10 WRK-FIRST-RPT-QTR PIC S9(05) COMP-3 VALUE +0. DTSBS413 +00247 10 WRK-FIRST-WAGE-QTR PIC S9(05) COMP-3 VALUE +0. DTSBS413 +00248 10 WRK-START-QTR PIC S9(04) COMP VALUE +0. DTSBS413 +00249 10 WRK-END-QTR PIC S9(04) COMP VALUE +0. DTSBS413 +00250 10 WRK-ABS-QTR PIC S9(04) COMP VALUE +0. DTSBS413 +00251 10 WRK-RATE-YRQ-1 PIC 9(05). DTSBS413 +00252 10 FILLER REDEFINES WRK-RATE-YRQ-1. DTSBS413 +00253 15 WRK-RATE-YRQ-1-CCYY PIC 9(04). DTSBS413 +00254 15 WRK-RATE-YRQ-1-Q PIC 9(01). DTSBS413 +00255 10 WRK-NEW-EMP-RATE-1 PIC 9.9999. DTSBS413 +00256 10 WRK-TAX-TABLE-1 PIC X(05). DTSBS413 +00257 10 WRK-TAX-WAGE-BASE-1 PIC 9(05).99. DTSBS413 +00258 10 WRK-RATE-YRQ-2 PIC 9(05). DTSBS413 +00259 10 FILLER REDEFINES WRK-RATE-YRQ-2. DTSBS413 +00260 15 WRK-RATE-YRQ-2-CCYY PIC 9(04). DTSBS413 +00261 15 WRK-RATE-YRQ-2-Q PIC 9(01). DTSBS413 +00262 10 WRK-NEW-EMP-RATE-2 PIC 9.9999. DTSBS413 +00263 10 WRK-TAX-TABLE-2 PIC X(05). DTSBS413 +00264 10 WRK-TAX-WAGE-BASE-2 PIC 9(05).99. DTSBS413 +00265 10 WRK-RATE-YRQ-3 PIC 9(05). DTSBS413 +00266 10 FILLER REDEFINES WRK-RATE-YRQ-3. DTSBS413 +00267 15 WRK-RATE-YRQ-3-CCYY PIC 9(04). DTSBS413 +00268 15 WRK-RATE-YRQ-3-Q PIC 9(01). DTSBS413 +00269 10 WRK-NEW-EMP-RATE-3 PIC 9.9999. DTSBS413 +00270 10 WRK-TAX-TABLE-3 PIC X(05). DTSBS413 +00271 10 WRK-TAX-WAGE-BASE-3 PIC 9(05).99. DTSBS413 +00272 DTSBS413 +00273 05 WRK-YRQ PIC 9(05). DTSBS413 +00274 05 FILLER REDEFINES WRK-YRQ. DTSBS413 +00275 10 WRK-YRQ-CCYY PIC 9(04). DTSBS413 +00276 10 WRK-YRQ-Q PIC 9(01). DTSBS413 +00277 DTSBS413 +00278 05 WRK-3-YEARS-AGO PIC S9(09) COMP-3 VALUE +0. DTSBS413 +00279 05 WRK-3-YEARS-AGO-YRQ PIC S9(05) COMP-3 VALUE +0. DTSBS413 +00280 05 WRK-CURR-QTR-MINUS-8 PIC S9(05) COMP-3 VALUE +0. DTSBS413 +00281 05 FIRST-QTR-WRK-DAY PIC S9(09) COMP-3 VALUE +0. DTSBS413 +00282 05 WRK-LIAB-DATE PIC S9(09) COMP-3 VALUE +0. DTSBS413 +00283 05 WRK-LIAB-ENTER-DATE PIC S9(09) COMP-3 VALUE +0. DTSBS413 +00284 05 WRK-INACT-ENTR-DATE PIC S9(09) COMP-3 VALUE +0. DTSBS413 +00285 05 WRK-LIAB-YRQ PIC S9(05) COMP-3 VALUE +0. DTSBS413 +00286 05 WRK-LAST-LIAB-YRQ PIC S9(05) COMP-3 VALUE +0. DTSBS413 +00287 05 WRK-INACT-DATE PIC S9(09) COMP-3 VALUE +0. DTSBS413 +00288 05 WRK-INACT-CUTOFF PIC S9(09) COMP-3 VALUE +0. DTSBS413 +00289 05 WRK-ALL-NINES-DATE PIC S9(09) COMP-3 DTSBS413 +00290 VALUE +999999999. DTSBS413 +00291 05 WRK-UI-RATE PIC S9V9(04) COMP-3. DTSBS413 +00292 DTSBS413 +00293 05 WRK-HOLD-EMP-NO PIC S9(07) COMP-3. DTSBS413 +00294 DTSBS413 +00295 05 WRK-LAST-RATE-YRQ PIC 9(05). DTSBS413 +00296 05 FILLER REDEFINES WRK-LAST-RATE-YRQ. DTSBS413 +00297 10 WRK-LAST-RATE-YEAR PIC 9(04). DTSBS413 +00298 10 WRK-LAST-RATE-QTR PIC 9(01). DTSBS413 +00299 DTSBS413 +00300 05 WRK-SOURCE-CD PIC X(02) VALUE ' '. DTSBS413 +00301 DTSBS413 +00302 05 WRK-LIAB-CD PIC X(02) VALUE ' '. DTSBS413 +00303 88 WRK-LIAB-RATED-REG-88 VALUE '01'. DTSBS413 +00304 88 WRK-LIAB-RATED-DOMESTIC-88 VALUE '04'. DTSBS413 +00305 88 WRK-LIAB-RATED-SUCC-88 VALUE '05'. DTSBS413 +00306 88 WRK-LIAB-RATED-FUTA-88 VALUE '06'. DTSBS413 +00307 88 WRK-LIAB-RATED-FOREIGN-88 VALUE '07'. DTSBS413 +00308 88 WRK-LIAB-RATED-VOLUNT-88 VALUE '08'. DTSBS413 +00309 88 WRK-LIAB-RATED-OTH-88 VALUE '09'. DTSBS413 +00310 88 WRK-LIAB-RATED-CONV-88 VALUE '10'. DTSBS413 +00311 88 WRK-LIAB-RATED-UNK-88 VALUE '11'. DTSBS413 +00312 88 WRK-LIAB-SELF-INS-SCHOOL-88 VALUE '21'. DTSBS413 +00313 88 WRK-LIAB-SELF-INS-CITY-88 VALUE '22'. DTSBS413 +00314 88 WRK-LIAB-SELF-INS-COUNTY-88 VALUE '23'. DTSBS413 +00315 88 WRK-LIAB-SELF-INS-STATE-88 VALUE '24'. DTSBS413 +00316 88 WRK-LIAB-SELF-INS-CHURCH-88 VALUE '25'. DTSBS413 +00317 88 WRK-LIAB-SELF-INS-NON-PROF-88 VALUE '26'. DTSBS413 +00318 88 WRK-LIAB-SELF-INS-OTH-88 VALUE '27'. DTSBS413 +00319 88 WRK-LIAB-SELF-INS-CONV-88 VALUE '28'. DTSBS413 +00320 88 WRK-LIAB-SELF-INS-UNK-88 VALUE '29'. DTSBS413 +00321 88 WRK-LIAB-SELF-INS-VOLUNT-88 VALUE '30'. DTSBS413 +00322 DTSBS413 +00323 05 WRK-ERROR-IND PIC X(01). DTSBS413 +00324 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBS413 +00325 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBS413 +00326 DTSBS413 +00327 05 WRK-SELECT-EMP-IND PIC X(01). DTSBS413 +00328 88 WRK-SELECT-EMP-ALL-88 VALUE '0'. DTSBS413 +00329 88 WRK-SELECT-EMP-PRF-88 VALUE '1'. DTSBS413 +00330 88 WRK-SELECT-EMP-NO-88 VALUE '2'. DTSBS413 +00331 DTSBS413 +00332 05 WRK-CURR-QTR-IND PIC X(01). DTSBS413 +00333 88 WRK-CURR-QTR-YES-88 VALUE 'Y'. DTSBS413 +00334 88 WRK-CURR-QTR-NO-88 VALUE 'N'. DTSBS413 +00335 DTSBS413 +00336 05 WRK-PRIOR-QTR-IND PIC X(01). DTSBS413 +00337 88 WRK-PRIOR-QTR-YES-88 VALUE 'Y'. DTSBS413 +00338 88 WRK-PRIOR-QTR-NO-88 VALUE 'N'. DTSBS413 +00339 DTSBS413 +00340 05 WRK-MOPO-IND PIC X(01). DTSBS413 +00341 88 WRK-MOPO-FOUND-YES-88 VALUE 'Y'. DTSBS413 +00342 88 WRK-MOPO-FOUND-NO-88 VALUE 'N'. DTSBS413 +00343 DTSBS413 +00344 05 WRK-SUBJ-EMP-IND PIC X(01). DTSBS413 +00345 88 WRK-SUBJ-EMP-YES-88 VALUE 'Y'. DTSBS413 +00346 88 WRK-SUBJ-EMP-NO-88 VALUE 'N'. DTSBS413 +00347 DTSBS413 +00348 05 PARM-STATUS PIC X(02). DTSBS413 +00349 88 PARM-STATUS-OK-88 VALUE '00'. DTSBS413 +00350 05 DSKFILE-STATUS PIC X(02). CL*57 +00351 88 DSKFILE-STATUS-OK-88 VALUE '00'. CL*57 +00352 05 TEMP-STATUS PIC X(02). DTSBS413 +00353 88 TEMP-STATUS-OK-88 VALUE '00'. DTSBS413 +00354 88 TEMP-STATUS-EOF-88 VALUE '10'. DTSBS413 +00355 05 X100-STATUS PIC X(02). DTSBS413 +00356 88 X100-STATUS-OK-88 VALUE '00'. DTSBS413 +00357 05 X102-STATUS PIC X(02). DTSBS413 +00358 88 X102-STATUS-OK-88 VALUE '00'. DTSBS413 +00359 05 X104-STATUS PIC X(02). DTSBS413 +00360 88 X104-STATUS-OK-88 VALUE '00'. DTSBS413 +00361 05 X106-STATUS PIC X(02). DTSBS413 +00362 88 X106-STATUS-OK-88 VALUE '00'. DTSBS413 +00363 05 X108-STATUS PIC X(02). DTSBS413 +00364 88 X108-STATUS-OK-88 VALUE '00'. DTSBS413 +00365 05 X110-STATUS PIC X(02). DTSBS413 +00366 88 X110-STATUS-OK-88 VALUE '00'. DTSBS413 +00367 05 X120-STATUS PIC X(02). DTSBS413 +00368 88 X120-STATUS-OK-88 VALUE '00'. DTSBS413 +00369 05 X130-STATUS PIC X(02). DTSBS413 +00370 88 X130-STATUS-OK-88 VALUE '00'. DTSBS413 +00371 05 X131-STATUS PIC X(02). DTSBS413 +00372 88 X131-STATUS-OK-88 VALUE '00'. DTSBS413 +00373 05 X140-STATUS PIC X(02). DTSBS413 +00374 88 X140-STATUS-OK-88 VALUE '00'. DTSBS413 +00375 05 X141-STATUS PIC X(02). DTSBS413 +00376 88 X141-STATUS-OK-88 VALUE '00'. DTSBS413 +00377 05 X142-STATUS PIC X(02). DTSBS413 +00378 88 X142-STATUS-OK-88 VALUE '00'. DTSBS413 +00379 05 X145-STATUS PIC X(02). DTSBS413 +00380 88 X145-STATUS-OK-88 VALUE '00'. DTSBS413 +00381 05 SENT-MINI-STATUS PIC X(02). CL130 +00382 88 SENT-MINI-STATUS-OK-88 VALUE '00'. CL130 +00383 88 SENT-MINI-STATUS-EOF-88 VALUE '10'. CL130 +00384 CL130 +00385 DTSBS413 +00386 05 WRK-ACQUIRED-IND PIC X(01). DTSBS413 +00387 88 WRK-ACQUIRED-YES-88 VALUE 'Y'. DTSBS413 +00388 88 WRK-ACQUIRED-NO-88 VALUE 'N'. DTSBS413 +00389 DTSBS413 +00390 05 WRK-MERGER-SPLIT-IND PIC X(01). DTSBS413 +00391 88 WRK-MERGER-SPLIT-YES-88 VALUE 'Y'. DTSBS413 +00392 88 WRK-MERGER-SPLIT-NO-88 VALUE 'N'. DTSBS413 +00393 DTSBS413 +00394 05 WRK-REORG-IND PIC X(01). DTSBS413 +00395 88 WRK-REORG-YES-88 VALUE 'Y'. DTSBS413 +00396 88 WRK-REORG-NO-88 VALUE 'N'. DTSBS413 +00397 DTSBS413 +00398 05 WRK-ADDRESS. DTSBS413 +00399 10 WRK-ATTN-LINE PIC X(40). DTSBS413 +00400 10 WRK-DELIV-LINE-1 PIC X(40). DTSBS413 +00401 10 WRK-DELIV-LINE-2 PIC X(40). DTSBS413 +00402 10 WRK-CITY PIC X(25). DTSBS413 +00403 10 WRK-ST PIC X(02). DTSBS413 +00404 10 WRK-ZIP PIC X(10). DTSBS413 +00405 10 WRK-ADVANCED-BARCODE DTSBS413 +00406 PIC X(14). DTSBS413 +00407 DTSBS413 +00408 05 WRK-PHONE PIC X(15). DTSBS413 +00409 05 WRK-FAX PIC X(15). DTSBS413 +00410 05 WRK-EMAIL PIC X(40). DTSBS413 +00411 DTSBS413 +00412 05 WRK-CURR-RATE PIC 9.9999. DTSBS413 +00413 DTSBS413 +00414 05 WRK-ANNUAL-STATUS. DTSBS413 +00415 10 WRK-ANN-YEAR PIC S9(04) COMP-3 VALUE +0.DTSBS413 +00416 10 WRK-FILING-SCHED PIC X(01). DTSBS413 +00417 88 WRK-FILE-QTRLY-88 VALUE '0'. DTSBS413 +00418 88 WRK-FILE-ANN-LIAB-88 VALUE '1'. DTSBS413 +00419 88 WRK-FILE-ANN-NOT-LIAB-88 VALUE '2'. DTSBS413 +00420 DTSBS413 +00421 05 WRK-TAX-BAL PIC S9(09)V99 COMP-3 DTSBS413 +00422 VALUE +0. DTSBS413 +00423 05 WRK-SUR-BAL PIC S9(09)V99 COMP-3 DTSBS413 +00424 VALUE +0. DTSBS413 +00425 05 WRK-INT-BAL PIC S9(09)V99 COMP-3 DTSBS413 +00426 VALUE +0. DTSBS413 +00427 05 WRK-PEN-BAL PIC S9(09)V99 COMP-3 DTSBS413 +00428 VALUE +0. DTSBS413 +00429 DTSBS413 +00430 05 WRK-LEN PIC S9(04) COMP VALUE +0. DTSBS413 +00431 DTSBS413 +00432 05 WRK-MPRF-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00433 05 WRK-TEST-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00434 05 TEMP-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00435 05 X102-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00436 05 X104-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00437 05 X106-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00438 05 X110-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00439 05 X108-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00440 05 X120-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00441 05 X130-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00442 05 X131-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00443 05 X140-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00444 05 X141-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00445 05 X142-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00446 05 X145-CNT PIC S9(07) COMP-3 VALUE +0. DTSBS413 +00447 05 W-SENT-MINI-CNT PIC S9(07) COMP-3 VALUE +0. CL130 +00448 05 OUTWRITE-CNT PIC 9(06) VALUE 0. CL*65 +00449 05 WRK-SSN-ERROR-DISP PIC --,---,--9. DTSBS413 +00450 05 WRK-AMT-DISP PIC --,---,---,--9.99. DTSBS413 +00451 05 WRK-AMT-DISP1 PIC --,---,---,--9.99. DTSBS413 +00452 05 WRK-PCT-DISP PIC ZZ9.9999-. DTSBS413 +00453 DTSBS413 +00454 01 WS-SENT-REC. CL130 +00455 05 WS-SENT-EMP-NO PIC 9(06) VALUE 0. CL130 +00456 05 WS-SENT-EMP-STATUS PIC X(01) VALUE SPACES. CL130 +00457 05 WS-SENT-CURR-DATE PIC 9(08) VALUE 0. CL130 +00458 05 WS-SENT-LIAB-DATE PIC 9(08) VALUE 0. CL130 +00459 05 WS-SENT-ESTB-DATE PIC 9(08) VALUE 0. CL130 +00460 05 WS-SENT-CHNG-DATE PIC 9(08) VALUE 0. CL130 +00461 05 FILLER PIC X(41). CL130 +00462 CL130 +00463 DTSBS413 +00464 01 MSG-AREA. DTSBS413 +00465 05 MSG1-AREA. DTSBS413 +00466 10 MSG1-ID PIC X(03) VALUE '800'. DTSBS413 +00467 10 MSG1-TEXT. DTSBS413 +00468 15 FILLER PIC X(40) DTSBS413 +00469 VALUE ' '. DTSBS413 +00470 15 FILLER PIC X(40) DTSBS413 +00471 VALUE ' '. DTSBS413 +00472 DTSBS413 +00473 01 TALLY-AREA. DTSBS413 +00474 05 SLASH-NAME. DTSBS413 +00475 10 SLASH-NAME-CHAR OCCURS 40 TIMES PIC X(01). DTSBS413 +00476 05 FIRST-NAME PIC X(40) VALUE SPACE. DTSBS413 +00477 05 MIDDLE-INIT PIC X(01) VALUE SPACE. DTSBS413 +00478 05 LAST-NAME PIC X(40) VALUE SPACE. DTSBS413 +00479 05 NSUB PIC S9(04) COMP. DTSBS413 +00480 05 FSUB PIC S9(04) COMP. DTSBS413 +00481 05 LSUB PIC S9(04) COMP. DTSBS413 +00482 05 LAST-NAME-COMPLETE-IND PIC X(01). DTSBS413 +00483 88 LAST-NAME-COMPLETE-YES-88 VALUE 'Y'. DTSBS413 +00484 88 LAST-NAME-COMPLETE-NO-88 VALUE 'N'. DTSBS413 +00485 05 FIRST-NAME-COMPLETE-IND PIC X(01). DTSBS413 +00486 88 FIRST-NAME-COMPLETE-YES-88 VALUE 'Y'. DTSBS413 +00487 88 FIRST-NAME-COMPLETE-NO-88 VALUE 'N'. DTSBS413 +00488 05 MID-INIT-COMPLETE-IND PIC X(01). DTSBS413 +00489 88 MID-INIT-COMPLETE-YES-88 VALUE 'Y'. DTSBS413 +00490 88 MID-INIT-COMPLETE-NO-88 VALUE 'N'. DTSBS413 +00491 05 D-S PIC X(02) VALUE SPACE. DTSBS413 +00492 05 SLASH-TALLY PIC S9(04) COMP. DTSBS413 +00493 05 LAST-NAME-LEN PIC S9(04) COMP. DTSBS413 +00494 05 FIRST-MID-LEN PIC S9(04) COMP. DTSBS413 +00495 05 FIRST-NAME-LEN PIC S9(04) COMP. DTSBS413 +00496 05 TOTAL-LEN PIC S9(04) COMP. DTSBS413 +00497 01 OUT-RECORD-HEADER. CL*52 +00498 05 FILLER PIC X(07) VALUE 'EMPNUM'. CL*52 +00499 05 FILLER PIC X(01) VALUE ','. CL*52 +00500 05 FILLER PIC X(10) VALUE 'STATUSDATE'. CL*52 +00501 05 FILLER PIC X(01) VALUE ','. CL*52 +00502 05 FILLER PIC X(01) VALUE 'I'. CL*52 +00503 05 FILLER PIC X(01) VALUE ','. CL*52 +00504 05 FILLER PIC X(01) VALUE 'I'. CL*52 +00505 05 FILLER PIC X(01) VALUE ','. CL*52 +00506 05 FILLER PIC X(10) VALUE 'NAICSEFDT'. CL*52 +00507 05 FILLER PIC X(01) VALUE ','. CL*52 +00508 05 FILLER PIC X(10) VALUE 'CREATE DT'. CL*52 +00509 05 FILLER PIC X(01) VALUE ','. CL*52 +00510 05 FILLER PIC X(15) VALUE 'CREATED BY'. CL*52 +00511 05 FILLER PIC X(01) VALUE ','. CL*52 +00512 05 FILLER PIC X(01) VALUE 'A'. CL*52 +00513 05 FILLER PIC X(01) VALUE ','. CL*52 +00514 05 FILLER PIC X(01) VALUE 'P'. CL*52 +00515 05 FILLER PIC X(01) VALUE ','. CL*52 +00516 05 FILLER PIC X(01) VALUE 'I'. CL*52 +00517 05 FILLER PIC X(01) VALUE ','. CL*52 +00518 05 FILLER PIC X(10) VALUE 'EA PH NUM'. CL*52 +00519 05 FILLER PIC X(01) VALUE ','. CL*52 +00520 05 FILLER PIC X(10) VALUE 'EA CRE DT'. CL*52 +00521 05 FILLER PIC X(01) VALUE ','. CL*52 +00522 05 FILLER PIC X(15) VALUE 'EA CRE BY'. CL*52 +00523 05 FILLER PIC X(01) VALUE ','. CL*52 +00524 05 FILLER PIC X(10) VALUE 'EC CRE DT'. CL*52 +00525 05 FILLER PIC X(01) VALUE ','. CL*52 +00526 05 FILLER PIC X(15) VALUE 'EC CRE BY'. CL*52 +00527 05 FILLER PIC X(01) VALUE ','. CL*52 +00528 05 FILLER PIC X(10) VALUE 'ES CRE DT'. CL*52 +00529 05 FILLER PIC X(01) VALUE ','. CL*52 +00530 05 FILLER PIC X(15) VALUE 'ES CRE BY'. CL*52 +00531 05 FILLER PIC X(01) VALUE ','. CL*52 +00532 05 FILLER PIC X(01) VALUE 'F'. CL*52 +00533 05 FILLER PIC X(01) VALUE ','. CL*52 +00534 05 FILLER PIC X(01) VALUE 'P'. CL*52 +00535 05 FILLER PIC X(01) VALUE ','. CL*52 +00536 05 FILLER PIC X(10) VALUE 'EOO PH NUM'. CL*52 +00537 05 FILLER PIC X(01) VALUE ','. CL*52 +00538 05 FILLER PIC X(10) VALUE 'EOO FAXNUM'. CL*52 +00539 05 FILLER PIC X(01) VALUE ','. CL*52 +00540 05 FILLER PIC X(40) VALUE 'EOO E-MAIL'. CL*52 +00541 05 FILLER PIC X(01) VALUE ','. CL*52 +00542 05 FILLER PIC X(10) VALUE 'EOO CRE DT'. CL*52 +00543 05 FILLER PIC X(01) VALUE ','. CL*52 +00544 05 FILLER PIC X(15) VALUE 'EOO CREATED BY '. CL*52 +00545 05 FILLER PIC X(01) VALUE ','. CL*52 +00546 05 FILLER PIC X(10) VALUE 'EWH EMPNUM'. CL*52 +00547 05 FILLER PIC X(01) VALUE ','. CL*52 +00548 05 FILLER PIC X(01) VALUE 'I'. CL*52 +00549 05 FILLER PIC X(01) VALUE ','. CL*52 +00550 05 FILLER PIC X(10) VALUE 'EWH FIL DT'. CL*52 +00551 05 FILLER PIC X(01) VALUE ','. CL*52 +00552 05 FILLER PIC X(03) VALUE 'FIT'. CL*52 +00553 05 FILLER PIC X(01) VALUE ','. CL*52 +00554 05 FILLER PIC X(02) VALUE 'RC'. CL*52 +00555 05 FILLER PIC X(01) VALUE ','. CL*52 +00556 05 FILLER PIC X(02) VALUE 'T '. CL*52 +00557 05 FILLER PIC X(01) VALUE ','. CL*52 +00558 05 FILLER PIC X(01) VALUE 'E'. CL*52 +00559 05 FILLER PIC X(01) VALUE ','. CL*52 +00560 05 FILLER PIC X(09) VALUE 'TRFEMPRAT'. CL*52 +00561 05 FILLER PIC X(01) VALUE ','. CL*52 +00562 05 FILLER PIC X(01) VALUE 'S'. CL*52 +00563 05 FILLER PIC X(01) VALUE ','. CL*52 +00564 05 FILLER PIC X(10) VALUE 'ERWAGERES'. CL*52 +00565 05 FILLER PIC X(01) VALUE ','. CL*52 +00566 05 FILLER PIC X(02) VALUE 'RC'. CL*52 +00567 05 FILLER PIC X(01) VALUE ','. CL*52 +00568 05 FILLER PIC X(01) VALUE 'N'. CL*52 +00569 05 FILLER PIC X(01) VALUE ','. CL*52 +00570 05 FILLER PIC X(10) VALUE 'ERSTATUSDT'. CL*52 +00571 05 FILLER PIC X(01) VALUE ','. CL*52 +00572 05 FILLER PIC X(10) VALUE 'ERCREADT'. CL*52 +00573 05 FILLER PIC X(01) VALUE ','. CL*52 +00574 05 FILLER PIC X(15) VALUE 'ERCREABY'. CL*52 +00575 05 FILLER PIC X(01) VALUE ','. CL*52 +00576 CL*52 +00577 05 FILLER PIC X(10) VALUE 'ESUS SADT'. CL*52 +00578 05 FILLER PIC X(01) VALUE ','. CL*52 +00579 05 FILLER PIC X(02) VALUE 'RC'. CL*52 +00580 05 FILLER PIC X(01) VALUE ','. CL*52 +00581 05 FILLER PIC X(15) VALUE CL*52 +00582 'ESUS FIRST NAME'. CL*52 +00583 05 FILLER PIC X(01) VALUE ','. CL*52 +00584 05 FILLER PIC X(15) VALUE CL*52 +00585 'ESUS LAST NAME'. CL*52 +00586 05 FILLER PIC X(01) VALUE ','. CL*52 +00587 05 FILLER PIC X(02) VALUE 'SC'. CL*52 +00588 05 FILLER PIC X(01) VALUE ','. CL*52 +00589 05 FILLER PIC X(10) VALUE 'ESUSSTATDT'. CL*52 +00590 05 FILLER PIC X(01) VALUE ','. CL*52 +00591 05 FILLER PIC X(10) VALUE 'ESUSCRDT'. CL*52 +00592 05 FILLER PIC X(01) VALUE ','. CL*52 +00593 05 FILLER PIC X(15) VALUE 'ESUSCRBY'. CL*52 +00594 05 FILLER PIC X(01) VALUE ','. CL*52 +00595 05 FILLER PIC X(35) VALUE CL*52 +00596 'EOO BUSINESS NAME '. CL*52 +00597 * CL*52 +00598 01 OUT-RECORD. CL*52 +00599 05 E_EMPLOYEE_PAID_NUM PIC X(07) VALUE SPACES. CL136 +00600 05 FILLER PIC X(01) VALUE ','. CL*52 +00601 05 E_STATUS_DATE PIC X(10) VALUE SPACES. CL136 +00602 05 FILLER PIC X(01) VALUE ','. CL*52 +00603 05 E_SERVICE_BEGIN_IND PIC X(01) VALUE SPACES. CL136 +00604 05 FILLER PIC X(01) VALUE ','. CL*52 +00605 05 E_IRS_501C3_IND PIC X(01) VALUE SPACES. CL*52 +00606 05 FILLER PIC X(01) VALUE ','. CL*52 +00607 05 E_NAICS_EFFECTIVE_DATE PIC X(10) VALUE SPACES. CL136 +00608 05 FILLER PIC X(01) VALUE ','. CL*52 +00609 05 E_CREATED_DATE PIC X(10) VALUE SPACES. CL136 +00610 05 FILLER PIC X(01) VALUE ','. CL*52 +00611 05 E_CREATED_BY PIC X(15) VALUE SPACES. CL136 +00612 05 FILLER PIC X(01) VALUE ','. CL*52 +00613 05 E_ANNUAL_FILER_INDICATOR PIC X(01) VALUE SPACES. CL136 +00614 05 FILLER PIC X(01) VALUE ','. CL*52 +00615 05 E_PAY_51_101_2E_EXMPT_WRK_IND PIC X(01) VALUE SPACES. CL*52 +00616 05 FILLER PIC X(01) VALUE ','. CL*52 +00617 05 E_ISSUE_1099_FORM_IND PIC X(01) VALUE SPACES. CL*52 +00618 05 FILLER PIC X(01) VALUE ','. CL*52 +00619 * CL*52 +00620 05 EA_PHONE_NUM PIC X(10) VALUE SPACES. CL136 +00621 05 FILLER PIC X(01) VALUE ','. CL*52 +00622 05 EA_CREATED_DATE PIC X(10) VALUE SPACES. CL136 +00623 05 FILLER PIC X(01) VALUE ','. CL*52 +00624 05 EA_CREATED_BY PIC X(15) VALUE SPACES. CL136 +00625 05 FILLER PIC X(01) VALUE ','. CL*52 +00626 CL*52 +00627 05 EC_CREATED_DATE PIC X(10) VALUE SPACES. CL136 +00628 05 FILLER PIC X(01) VALUE ','. CL*52 +00629 05 EC_CREATED_BY PIC X(15) VALUE SPACES. CL136 +00630 05 FILLER PIC X(01) VALUE ','. CL*52 +00631 * CL*52 +00632 05 ES_CREATED_DATE PIC X(10) VALUE SPACES. CL136 +00633 05 FILLER PIC X(01) VALUE ','. CL*52 +00634 05 ES_CREATED_BY PIC X(15) VALUE SPACES. CL136 +00635 05 FILLER PIC X(01) VALUE ','. CL*52 +00636 05 ES_FUTA_IND PIC X(01) VALUE SPACES. CL136 +00637 05 FILLER PIC X(01) VALUE ','. CL*52 +00638 05 ES_HSHOLD_EMP_PAID_500_WG_IND PIC X(01) VALUE SPACES. CL136 +00639 05 FILLER PIC X(01) VALUE ','. CL*52 +00640 CL*52 +00641 05 EOO_PHONE_NUM PIC X(10) VALUE SPACES. CL138 +00642 05 FILLER PIC X(01) VALUE ','. CL*52 +00643 05 EOO_FAX_NUM PIC X(10) VALUE SPACES. CL138 +00644 05 FILLER PIC X(01) VALUE ','. CL*52 +00645 05 EOO_EMAIL PIC X(40) VALUE SPACES. CL136 +00646 05 FILLER PIC X(01) VALUE ','. CL*52 +00647 05 EOO_CREATED_DATE PIC X(10) VALUE SPACES. CL136 +00648 05 FILLER PIC X(01) VALUE ','. CL*52 +00649 05 EOO_CREATED_BY PIC X(15) VALUE SPACES. CL136 +00650 05 FILLER PIC X(01) VALUE ','. CL*52 +00651 * CL*52 +00652 05 EWH_EMPLOYEE_NUM PIC X(10) VALUE SPACES. CL136 +00653 05 FILLER PIC X(01) VALUE ','. CL*52 +00654 05 EWH_STATUS_CODE_VALUE PIC X(01) VALUE SPACES. CL136 +00655 05 FILLER PIC X(01) VALUE ','. CL*52 +00656 05 EWH_FILING_DATE PIC X(10) VALUE SPACES. CL136 +00657 05 FILLER PIC X(01) VALUE ','. CL*52 +00658 * CL*52 +00659 05 EWUD_FILING_METHOD PIC X(03) VALUE SPACES. CL136 +00660 05 FILLER PIC X(01) VALUE ','. CL*52 +00661 05 EWUD_ADJUSTMENT_REASON_CODE_ID PIC X(02) VALUE SPACES. CL136 +00662 05 FILLER PIC X(01) VALUE ','. CL*52 +00663 * CL*52 +00664 05 EWPD_TYPE_CODE_VALUE PIC X(02) VALUE SPACES. CL136 +00665 05 FILLER PIC X(01) VALUE ','. CL*52 +00666 * CL*52 +00667 05 EXR_EXPERIENCE_RATE_CODE_VALUE PIC X(01) VALUE SPACES. CL136 +00668 05 FILLER PIC X(01) VALUE ','. CL*52 +00669 * CL*52 +00670 05 TRF_NEW_EMPLOYER_RATE PIC 9(07)V99. CL*52 +00671 05 FILLER PIC X(01) VALUE ','. CL*52 +00672 * CL*52 +00673 05 ER_PURCHASE_SALE_IND PIC X(01) VALUE SPACES. CL136 +00674 05 FILLER PIC X(01) VALUE ','. CL*52 +00675 05 ER_WAGES_RESUMED_DATE PIC X(10) VALUE SPACES. CL136 +00676 05 FILLER PIC X(01) VALUE ','. CL*52 +00677 05 ER_REASON_CODE_VALUE PIC X(02) VALUE SPACES. CL136 +00678 05 FILLER PIC X(01) VALUE ','. CL*52 +00679 05 ER_NAICS_CD PIC X(01) VALUE SPACES. CL136 +00680 05 FILLER PIC X(01) VALUE ','. CL*52 +00681 05 ER_STATUS_DATE PIC X(10) VALUE SPACES. CL136 +00682 05 FILLER PIC X(01) VALUE ','. CL*52 +00683 05 ER_CREATED_DATE PIC X(10) VALUE SPACES. CL136 +00684 05 FILLER PIC X(01) VALUE ','. CL*52 +00685 05 ER_CREATED_BY PIC X(15) VALUE SPACES. CL136 +00686 05 FILLER PIC X(01) VALUE ','. CL*52 +00687 * CL*52 +00688 05 ESUS_SUSPEND_ACTION_DATE PIC X(10) VALUE SPACES. CL136 +00689 05 FILLER PIC X(01) VALUE ','. CL*52 +00690 05 ESUS_REASON_CODE_VALUE PIC X(02) VALUE SPACES. CL136 +00691 05 FILLER PIC X(01) VALUE ','. CL*52 +00692 05 ESUS_SUSPEND_FIRST_NAME PIC X(15) VALUE SPACES. CL136 +00693 05 FILLER PIC X(01) VALUE ','. CL*52 +00694 05 ESUS_SUSPEND_LAST_NAME PIC X(15) VALUE SPACES. CL136 +00695 05 FILLER PIC X(01) VALUE ','. CL*52 +00696 05 ESUS_STATUS_CODE_VALUE PIC X(02) VALUE SPACES. CL136 +00697 05 FILLER PIC X(01) VALUE ','. CL*52 +00698 05 ESUS_STATUS_DATE PIC X(10) VALUE SPACES. CL136 +00699 05 FILLER PIC X(01) VALUE ','. CL*52 +00700 05 ESUS_CREATED_DATE PIC X(10) VALUE SPACES. CL136 +00701 05 FILLER PIC X(01) VALUE ','. CL*52 +00702 05 ESUS_CREATED_BY PIC X(15) VALUE SPACES. CL136 +00703 05 FILLER PIC X(01) VALUE ','. CL*52 +00704 05 EOO_BUSINESS_NAME PIC X(35) VALUE SPACES. CL136 +00705 * CL*52 +00706 01 CMB-WORK-AREA. CL*52 +00707 05 WRK-EMP-NO PIC S9(07) COMP-3 VALUE +0. CL*52 +00708 05 COMP-ZERO PIC S9(09) COMP-3 VALUE 0. CL*52 +00709 05 COMP-ZERO-A REDEFINES COMP-ZERO. CL*52 +00710 10 COMP-ZERO-LV PIC X(05). CL*52 +00711 05 LIAB-ESTB-DATE-INT PIC 9(09). CL*52 +00712 05 CEILING-DATE PIC 9(09). CL*52 +00713 05 COMP18-DATE PIC 9(07) COMP-3 VALUE 0182770. CL*94 +00714 05 COMP19-DATE PIC 9(07) COMP-3 VALUE 0182780. CL*96 +00715 05 OUTWRITE-SW PIC X(01) VALUE 'Y'. CL118 +00716 * CL*52 +00717 CL*52 +00718 EJECT DTSBS413 +00719 01 WRK-X100-REC. DTSBS413 +00720 ++INCLUDE DTSIX100 DTSBS413 +00721 DTSBS413 +00722 01 WRK-X102-REC. DTSBS413 +00723 ++INCLUDE DTSIX102 DTSBS413 +00724 DTSBS413 +00725 01 WRK-X104-REC. DTSBS413 +00726 ++INCLUDE DTSIX104 DTSBS413 +00727 DTSBS413 +00728 01 WRK-X106-REC. DTSBS413 +00729 ++INCLUDE DTSIX106 DTSBS413 +00730 DTSBS413 +00731 01 WRK-X108-REC. DTSBS413 +00732 ++INCLUDE DTSIX108 DTSBS413 +00733 DTSBS413 +00734 01 WRK-X110-REC. DTSBS413 +00735 ++INCLUDE DTSIX110 DTSBS413 +00736 DTSBS413 +00737 01 WRK-X120-REC. DTSBS413 +00738 ++INCLUDE DTSIX120 DTSBS413 +00739 DTSBS413 +00740 *01 WRK-X130-REC. CL**3 +00741 *++INCLUDE DTSIX130 CL**3 +00742 DTSBS413 +00743 01 WRK-X131-REC. DTSBS413 +00744 ++INCLUDE DTSIX131 DTSBS413 +00745 DTSBS413 +00746 01 WRK-X140-REC. DTSBS413 +00747 ++INCLUDE DTSIX140 DTSBS413 +00748 DTSBS413 +00749 01 WRK-X141-REC. DTSBS413 +00750 ++INCLUDE DTSIX141 DTSBS413 +00751 DTSBS413 +00752 01 WRK-X142-REC. DTSBS413 +00753 ++INCLUDE DTSIX142 DTSBS413 +00754 DTSBS413 +00755 01 WRK-X145-REC. DTSBS413 +00756 ++INCLUDE DTSIX145 DTSBS413 +00757 DTSBS413 +00758 01 L001-LINK-AREA. DTSBS413 +00759 ++INCLUDE DTSIL001 DTSBS413 +00760 DTSBS413 +00761 01 L003-LINK-AREA. DTSBS413 +00762 ++INCLUDE DTSIL003 DTSBS413 +00763 DTSBS413 +00764 01 L004-LINK-AREA. DTSBS413 +00765 ++INCLUDE DTSIL004 DTSBS413 +00766 DTSBS413 +00767 01 L005-LINK-AREA. DTSBS413 +00768 ++INCLUDE DTSIL005 DTSBS413 +00769 DTSBS413 +00770 01 L410-LINK-AREA. DTSBS413 +00771 ++INCLUDE DTSIL410 DTSBS413 +00772 DTSBS413 +00773 01 L516-LINK-AREA. DTSBS413 +00774 ++INCLUDE DTSIL516 DTSBS413 +00775 DTSBS413 +00776 01 L600-LINK-AREA. DTSBS413 +00777 ++INCLUDE DTSIL600 DTSBS413 +00778 DTSBS413 +00779 01 L101-LINK-AREA. DTSBS413 +00780 ++INCLUDE DTSIL101 DTSBS413 +00781 DTSBS413 +00782 01 L910-LINK-AREA. DTSBS413 +00783 ++INCLUDE DTSIL910 DTSBS413 +00784 SKIP3 DTSBS413 +00785 01 MSKL-REC. DTSBS413 +00786 ++INCLUDE DTSIMSKL DTSBS413 +00787 SKIP3 DTSBS413 +00788 01 MHDR-REC. DTSBS413 +00789 ++INCLUDE DTSIMHDR DTSBS413 +00790 SKIP3 DTSBS413 +00791 01 MPRF-REC. DTSBS413 +00792 ++INCLUDE DTSIMPRF DTSBS413 +00793 DTSBS413 +00794 01 MSOL-REC. DTSBS413 +00795 ++INCLUDE DTSIMSOL DTSBS413 +00796 DTSBS413 +00797 01 MERA-REC. DTSBS413 +00798 ++INCLUDE DTSIMERA DTSBS413 +00799 DTSBS413 +00800 01 MQTR-REC. DTSBS413 +00801 ++INCLUDE DTSIMQTR DTSBS413 +00802 DTSBS413 +00803 01 MRPT-REC. DTSBS413 +00804 ++INCLUDE DTSIMRPT DTSBS413 +00805 DTSBS413 +00806 01 MPAY-REC. DTSBS413 +00807 ++INCLUDE DTSIMPAY DTSBS413 +00808 DTSBS413 +00809 01 MFAE-REC. DTSBS413 +00810 ++INCLUDE DTSIMFAE DTSBS413 +00811 DTSBS413 +00812 01 MOPO-REC. DTSBS413 +00813 ++INCLUDE DTSIMOPO DTSBS413 +00814 DTSBS413 +00815 01 MTAD-REC. DTSBS413 +00816 ++INCLUDE DTSIMTAD DTSBS413 +00817 DTSBS413 +00818 01 MTAA-REC. DTSBS413 +00819 ++INCLUDE DTSIMTAA DTSBS413 +00820 DTSBS413 +00821 01 MREL-REC. DTSBS413 +00822 ++INCLUDE DTSIMREL DTSBS413 +00823 DTSBS413 +00824 01 MRTE-REC. DTSBS413 +00825 ++INCLUDE DTSIMRTE DTSBS413 +00826 DTSBS413 +00827 01 L921-LINK-AREA. DTSBS413 +00828 ++INCLUDE DTSIL921 DTSBS413 +00829 DTSBS413 +00830 01 ISKL-REC. DTSBS413 +00831 ++INCLUDE DTSIISKL DTSBS413 +00832 DTSBS413 +00833 01 IEIN-REC. DTSBS413 +00834 ++INCLUDE DTSIIEIN DTSBS413 +00835 DTSBS413 +00836 01 L931-LINK-AREA. DTSBS413 +00837 ++INCLUDE DTSIL931 DTSBS413 +00838 EJECT DTSBS413 +00839 01 FSKL-REC. DTSBS413 +00840 ++INCLUDE DTSIFSKL DTSBS413 +00841 EJECT DTSBS413 +00842 01 FCYR-REC. DTSBS413 +00843 ++INCLUDE DTSIFCYR DTSBS413 +00844 DTSBS413 +00845 01 FUIR-REC. DTSBS413 +00846 ++INCLUDE DTSIFUIR DTSBS413 +00847 CL*64 +00848 01 MJRN-REC. CL*64 +00849 ++INCLUDE DTSIMJRN CL*64 +00850 DTSBS413 +00851 DTSBS413 +00852 PROCEDURE DIVISION. DTSBS413 +00853 DTSBS413 +00854 PERFORM I0000-INITIALIZE THRU I0000-EXIT. DTSBS413 +00855 IF WRK-ERROR-NO-88 DTSBS413 +00856 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBS413 +00857 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBS413 +00858 END-IF. DTSBS413 +00859 DTSBS413 +00860 GOBACK. DTSBS413 +00861 EJECT DTSBS413 +00862 I0000-INITIALIZE. DTSBS413 +00863 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBS413 +00864 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBS413 +00865 SET WRK-ERROR-NO-88 TO TRUE. DTSBS413 +00866 DTSBS413 +00867 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBS413 +00868 IF WRK-ERROR-YES-88 DTSBS413 +00869 GO TO I0000-EXIT DTSBS413 +00870 END-IF. DTSBS413 +00871 DTSBS413 +00872 PERFORM I3000-GLOBAL-DATA THRU I3000-EXIT. DTSBS413 +00873 DTSBS413 +00874 I0000-EXIT. DTSBS413 +00875 EXIT. DTSBS413 +00876 DTSBS413 +00877 I2000-OPEN-FILES. DTSBS413 +00878 DTSBS413 +00879 OPEN OUTPUT EMPLOYER-TEMP. DTSBS413 +00880 IF TEMP-STATUS-OK-88 DTSBS413 +00881 NEXT SENTENCE DTSBS413 +00882 ELSE DTSBS413 +00883 DISPLAY 'OPEN ERROR ON TEMP FILE ' TEMP-STATUS DTSBS413 +00884 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +00885 GO TO I2000-EXIT DTSBS413 +00886 END-IF. DTSBS413 +00887 DTSBS413 +00888 OPEN OUTPUT X100-REF-FILE. DTSBS413 +00889 IF X100-STATUS-OK-88 DTSBS413 +00890 NEXT SENTENCE DTSBS413 +00891 ELSE DTSBS413 +00892 DISPLAY 'OPEN ERROR ON X100 FILE ' X100-STATUS DTSBS413 +00893 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +00894 GO TO I2000-EXIT DTSBS413 +00895 END-IF. DTSBS413 +00896 DTSBS413 +00897 OPEN OUTPUT X102-PRF-FILE. DTSBS413 +00898 IF X102-STATUS-OK-88 DTSBS413 +00899 NEXT SENTENCE DTSBS413 +00900 ELSE DTSBS413 +00901 DISPLAY 'OPEN ERROR ON X102 FILE ' X102-STATUS DTSBS413 +00902 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +00903 GO TO I2000-EXIT DTSBS413 +00904 END-IF. DTSBS413 +00905 DTSBS413 +00906 OPEN OUTPUT X104-DETERM-FILE. CL**2 +00907 IF X104-STATUS-OK-88 CL**2 +00908 NEXT SENTENCE CL**2 +00909 ELSE CL**2 +00910 DISPLAY 'OPEN ERROR ON X104 FILE ' X104-STATUS CL**2 +00911 SET WRK-ERROR-YES-88 TO TRUE CL**2 +00912 GO TO I2000-EXIT CL**2 +00913 END-IF. CL**2 +00914 DTSBS413 +00915 OPEN OUTPUT X106-NAME-FILE. DTSBS413 +00916 IF X106-STATUS-OK-88 DTSBS413 +00917 NEXT SENTENCE DTSBS413 +00918 ELSE DTSBS413 +00919 DISPLAY 'OPEN ERROR ON X106 FILE ' X106-STATUS DTSBS413 +00920 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +00921 GO TO I2000-EXIT DTSBS413 +00922 END-IF. DTSBS413 +00923 DTSBS413 +00924 OPEN OUTPUT X108-RATE-FILE. CL**2 +00925 IF X108-STATUS-OK-88 CL**2 +00926 NEXT SENTENCE CL**2 +00927 ELSE CL**2 +00928 DISPLAY 'OPEN ERROR ON X108 FILE ' X108-STATUS CL**2 +00929 SET WRK-ERROR-YES-88 TO TRUE CL**2 +00930 GO TO I2000-EXIT CL**2 +00931 END-IF. CL**4 +00932 DTSBS413 +00933 OPEN OUTPUT X110-ADDR-FILE. DTSBS413 +00934 IF X110-STATUS-OK-88 DTSBS413 +00935 NEXT SENTENCE DTSBS413 +00936 ELSE DTSBS413 +00937 DISPLAY 'OPEN ERROR ON X110 FILE ' X110-STATUS DTSBS413 +00938 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +00939 GO TO I2000-EXIT DTSBS413 +00940 END-IF. DTSBS413 +00941 DTSBS413 +00942 OPEN OUTPUT X120-OPO-FILE. CL**2 +00943 IF X120-STATUS-OK-88 CL**2 +00944 NEXT SENTENCE CL**2 +00945 ELSE CL**2 +00946 DISPLAY 'OPEN ERROR ON X120 FILE ' X120-STATUS CL**2 +00947 SET WRK-ERROR-YES-88 TO TRUE CL**2 +00948 GO TO I2000-EXIT CL**2 +00949 END-IF. CL**2 +00950 DTSBS413 +00951 OPEN OUTPUT X131-REL-FILE. DTSBS413 +00952 IF X131-STATUS-OK-88 DTSBS413 +00953 NEXT SENTENCE DTSBS413 +00954 ELSE DTSBS413 +00955 DISPLAY 'OPEN ERROR ON X131 FILE ' X131-STATUS DTSBS413 +00956 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +00957 GO TO I2000-EXIT DTSBS413 +00958 END-IF. DTSBS413 +00959 DTSBS413 +00960 OPEN OUTPUT X140-REPORT-FILE. CL**2 +00961 IF X140-STATUS-OK-88 CL**2 +00962 NEXT SENTENCE CL**2 +00963 ELSE CL**2 +00964 DISPLAY 'OPEN ERROR ON X140 FILE ' X140-STATUS CL**2 +00965 SET WRK-ERROR-YES-88 TO TRUE CL**2 +00966 GO TO I2000-EXIT CL**2 +00967 END-IF. CL**2 +00968 DTSBS413 +00969 OPEN OUTPUT X141-QTR-STATUS-FILE. DTSBS413 +00970 IF X141-STATUS-OK-88 DTSBS413 +00971 NEXT SENTENCE DTSBS413 +00972 ELSE DTSBS413 +00973 DISPLAY 'OPEN ERROR ON X141 FILE ' X141-STATUS DTSBS413 +00974 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +00975 GO TO I2000-EXIT DTSBS413 +00976 END-IF. DTSBS413 +00977 DTSBS413 +00978 OPEN OUTPUT X142-LAST-RPT-PAY-FILE. DTSBS413 +00979 IF X142-STATUS-OK-88 DTSBS413 +00980 NEXT SENTENCE DTSBS413 +00981 ELSE DTSBS413 +00982 DISPLAY 'OPEN ERROR ON X142 FILE ' X142-STATUS DTSBS413 +00983 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +00984 GO TO I2000-EXIT DTSBS413 +00985 END-IF. DTSBS413 +00986 DTSBS413 +00987 OPEN OUTPUT X145-PAYMENT-FILE. CL**2 +00988 IF X145-STATUS-OK-88 CL**2 +00989 NEXT SENTENCE CL**2 +00990 ELSE CL**2 +00991 DISPLAY 'OPEN ERROR ON X145 FILE ' X145-STATUS CL**2 +00992 SET WRK-ERROR-YES-88 TO TRUE CL**2 +00993 GO TO I2000-EXIT CL**2 +00994 END-IF. CL**2 +00995 DTSBS413 +00996 * CL*66 +00997 OPEN OUTPUT DSKFILE. CL*66 +00998 IF NOT DSKFILE-STATUS-OK-88 CL*66 +00999 DISPLAY 'OPEN ERROR ON DSK FILE ' DSKFILE-STATUS CL*66 +01000 SET WRK-ERROR-YES-88 TO TRUE CL*66 +01001 GO TO I2000-EXIT CL*66 +01002 END-IF. CL*66 +01003 CL130 +01004 OPEN INPUT SENT-MINI-FILE. CL130 +01005 IF SENT-MINI-STATUS-OK-88 CL130 +01006 NEXT SENTENCE CL130 +01007 ELSE CL130 +01008 DISPLAY 'OPEN ERROR ON SENT MINI FILE ' SENT-MINI-STATUS CL130 +01009 SET WRK-ERROR-YES-88 TO TRUE CL130 +01010 GO TO I2000-EXIT CL130 +01011 END-IF. CL130 +01012 CL130 +01013 PERFORM S910A-OPEN-READ THRU S910A-EXIT. DTSBS413 +01014 PERFORM S921A-OPEN-READ THRU S921A-EXIT. DTSBS413 +01015 PERFORM S931A-OPEN-READ THRU S931A-EXIT. DTSBS413 +01016 DTSBS413 +01017 I2000-EXIT. DTSBS413 +01018 EXIT. DTSBS413 +01019 DTSBS413 +01020 I3000-GLOBAL-DATA. DTSBS413 +01021 PERFORM I3100-TAX-HEADER THRU I3100-EXIT. DTSBS413 +01022 IF WRK-ERROR-NO-88 DTSBS413 +01023 PERFORM I3200-TAX-REF THRU I3200-EXIT DTSBS413 +01024 IF WRK-ERROR-NO-88 DTSBS413 +01025 PERFORM I3300-BUILD-X100 THRU I3300-EXIT DTSBS413 +01026 END-IF DTSBS413 +01027 END-IF. DTSBS413 +01028 DTSBS413 +01029 I3000-EXIT. DTSBS413 +01030 EXIT. DTSBS413 +01031 DTSBS413 +01032 I3100-TAX-HEADER. DTSBS413 +01033 MOVE LOW-VALUES TO MSKL-REC. DTSBS413 +01034 MOVE +0 TO MSKL-EMP-NO. DTSBS413 +01035 SET MSKL-HDR-88 TO TRUE. DTSBS413 +01036 DTSBS413 +01037 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +01038 IF L910-NO-REC-88 DTSBS413 +01039 DISPLAY 'DTSBX411: MHDR RECORD IS MISSING' DTSBS413 +01040 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01041 GO TO I3100-EXIT DTSBS413 +01042 ELSE DTSBS413 +01043 MOVE MSKL-REC TO MHDR-REC DTSBS413 +01044 END-IF. DTSBS413 +01045 DTSBS413 +01046 MOVE MHDR-CURR-RUN-DATE TO WRK-CURR-RUN-DATE DTSBS413 +01047 L004-DATE. DTSBS413 +01048 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBS413 +01049 MOVE L004-QTR-5-9 TO WRK-CURR-QTR. DTSBS413 +01050 MOVE L004-QTR-START-DATE TO WRK-CURR-QTR-START. DTSBS413 +01051 DTSBS413 +01052 MOVE MHDR-CURR-RUN-DATE TO L004-DATE. DTSBS413 +01053 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBS413 +01054 SUBTRACT +8 FROM L004-ABS-QTR. DTSBS413 +01055 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBS413 +01056 MOVE L004-QTR-5-9 TO WRK-CURR-QTR-MINUS-8. DTSBS413 +01057 DTSBS413 +01058 MOVE MHDR-CURR-RUN-DATE TO L004-DATE. DTSBS413 +01059 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBS413 +01060 SUBTRACT +2 FROM L004-ABS-QTR. DTSBS413 +01061 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBS413 +01062 MOVE L004-QTR-START-DATE TO WRK-INACT-CUTOFF. DTSBS413 +01063 DTSBS413 +01064 MOVE WRK-CURR-RUN-DATE TO L001-FED-8-DATE-9. DTSBS413 +01065 SUBTRACT 4 FROM L001-FED-8-YR CL*27 +01066 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBS413 +01067 MOVE L001-FED-8-DATE-9 TO WRK-3-YEARS-AGO DTSBS413 +01068 L004-DATE. DTSBS413 +01069 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBS413 +01070 MOVE L004-QTR-5-9 TO WRK-3-YEARS-AGO-YRQ. DTSBS413 +01071 DTSBS413 +01072 MOVE MHDR-LAST-RATE-END-YRQ TO WRK-YRQ. DTSBS413 +01073 MOVE 1 TO WRK-YRQ-Q. DTSBS413 +01074 MOVE WRK-YRQ TO WRK-RATE-YRQ-1. DTSBS413 +01075 SUBTRACT 1 FROM WRK-YRQ-CCYY. DTSBS413 +01076 MOVE WRK-YRQ TO WRK-RATE-YRQ-2. DTSBS413 +01077 SUBTRACT 1 FROM WRK-YRQ-CCYY. DTSBS413 +01078 MOVE WRK-YRQ TO WRK-RATE-YRQ-3. DTSBS413 +01079 DTSBS413 +01080 ***** DTSBS413 +01081 ** WRK-PRIOR-QTR IS THE MOST RECENTLY COMPLETED DTSBS413 +01082 ** QUARTER. DTSBS413 +01083 ** WRK-CURR-QTR IS THE QUARTER IN WHICH DTSBS413 +01084 ** MHDR-CURR-RUN-DATE FALLS. DTSBS413 +01085 ** THESE FIELDS ARE USED IN P3700 WHICH EXTRACTS DTSBS413 +01086 ** QUARTER INFORMATION. DTSBS413 +01087 ***** DTSBS413 +01088 DTSBS413 +01089 MOVE MHDR-LAST-PEN-ASSESSED-YRQ DTSBS413 +01090 TO L004-QTR-5-9. DTSBS413 +01091 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBS413 +01092 ADD +1 TO L004-ABS-QTR. DTSBS413 +01093 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBS413 +01094 MOVE L004-QTR-5-9 TO WRK-PRIOR-QTR. DTSBS413 +01095 DTSBS413 +01096 MOVE MHDR-CURR-RUN-DATE TO L004-DATE. DTSBS413 +01097 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBS413 +01098 SUBTRACT +1 FROM L004-ABS-QTR. DTSBS413 +01099 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBS413 +01100 IF WRK-PRIOR-QTR < L004-QTR-5-9 DTSBS413 +01101 DISPLAY '>>> MORE THAN 1 QUARTER NOT DELINQUENT ' DTSBS413 +01102 WRK-PRIOR-QTR ' ' L004-QTR-5-9 DTSBS413 +01103 DISPLAY 'BX410 ABENDING ' DTSBS413 +01104 PERFORM S999-ABEND THRU S999-EXIT DTSBS413 +01105 END-IF. DTSBS413 +01106 DTSBS413 +01107 DISPLAY SPACE. DTSBS413 +01108 DISPLAY 'DTSBX411 DATES:' DTSBS413 +01109 DISPLAY ' CURR RUN DATE ' WRK-CURR-RUN-DATE. DTSBS413 +01110 DISPLAY ' 3 YEARS AGO ' WRK-3-YEARS-AGO. DTSBS413 +01111 DISPLAY ' 4 YEARS AGO QTR ' WRK-3-YEARS-AGO-YRQ. CL*27 +01112 DISPLAY ' RATE YEAR 1 ' WRK-RATE-YRQ-1. DTSBS413 +01113 DISPLAY ' RATE YEAR 2 ' WRK-RATE-YRQ-2. DTSBS413 +01114 DISPLAY ' RATE YEAR 3 ' WRK-RATE-YRQ-3. DTSBS413 +01115 DISPLAY ' START QTR ' WRK-FIRST-WAGE-QTR. DTSBS413 +01116 DISPLAY ' FIRST RPT QTR ' WRK-FIRST-RPT-QTR. DTSBS413 +01117 DTSBS413 +01118 I3100-EXIT. DTSBS413 +01119 EXIT. DTSBS413 +01120 DTSBS413 +01121 I3200-TAX-REF. DTSBS413 +01122 MOVE LOW-VALUES TO FCYR-KEY-AREA. DTSBS413 +01123 SET FCYR-CYR-88 TO TRUE. DTSBS413 +01124 MOVE WRK-RATE-YRQ-3-CCYY TO FCYR-YR. DTSBS413 +01125 MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA. DTSBS413 +01126 DTSBS413 +01127 PERFORM S931B-START-BROWSE THRU S931B-EXIT. DTSBS413 +01128 IF L931-NO-REC-88 DTSBS413 +01129 DISPLAY 'DTSBX411: FCYR RECORD IS MISSING' DTSBS413 +01130 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01131 GO TO I3200-EXIT DTSBS413 +01132 ELSE DTSBS413 +01133 PERFORM DTSBS413 +01134 UNTIL L931-NO-REC-88 DTSBS413 +01135 MOVE FSKL-REC TO FCYR-REC DTSBS413 +01136 PERFORM I3210-WAGE-BASE THRU I3210-EXIT DTSBS413 +01137 PERFORM S931C-READ-NEXT THRU S931C-EXIT DTSBS413 +01138 END-PERFORM DTSBS413 +01139 END-IF. DTSBS413 +01140 DTSBS413 +01141 MOVE LOW-VALUE TO FUIR-KEY-AREA. DTSBS413 +01142 SET FUIR-UIR-88 TO TRUE. DTSBS413 +01143 MOVE WRK-RATE-YRQ-3 TO FUIR-EFF-YRQ. DTSBS413 +01144 MOVE FUIR-KEY-AREA TO FSKL-KEY-AREA. DTSBS413 +01145 PERFORM S931B-START-BROWSE THRU S931B-EXIT. DTSBS413 +01146 IF L931-OK-88 DTSBS413 +01147 PERFORM DTSBS413 +01148 UNTIL L931-NO-REC-88 DTSBS413 +01149 MOVE FSKL-REC TO FUIR-REC DTSBS413 +01150 PERFORM I3220-RATES THRU I3220-EXIT DTSBS413 +01151 PERFORM S931C-READ-NEXT THRU S931C-EXIT DTSBS413 +01152 END-PERFORM DTSBS413 +01153 END-IF. DTSBS413 +01154 DTSBS413 +01155 DISPLAY SPACE. DTSBS413 +01156 DISPLAY 'DTSBX411 RATES: ' DTSBS413 +01157 DISPLAY ' YEAR 1 ' WRK-RATE-YRQ-1 DTSBS413 +01158 ' ' WRK-NEW-EMP-RATE-1 DTSBS413 +01159 ' ' WRK-TAX-TABLE-1. DTSBS413 +01160 DISPLAY ' YEAR 2 ' WRK-RATE-YRQ-2 DTSBS413 +01161 ' ' WRK-NEW-EMP-RATE-2 DTSBS413 +01162 ' ' WRK-TAX-TABLE-3. DTSBS413 +01163 DISPLAY ' YEAR 3 ' WRK-RATE-YRQ-3 DTSBS413 +01164 ' ' WRK-NEW-EMP-RATE-3 DTSBS413 +01165 ' ' WRK-TAX-TABLE-3. DTSBS413 +01166 DTSBS413 +01167 I3200-EXIT. DTSBS413 +01168 EXIT. DTSBS413 +01169 DTSBS413 +01170 I3210-WAGE-BASE. DTSBS413 +01171 EVALUATE TRUE DTSBS413 +01172 WHEN FCYR-YR = WRK-RATE-YRQ-1-CCYY DTSBS413 +01173 MOVE FCYR-TAXABLE-WAGE-BASE TO WRK-TAX-WAGE-BASE-1 DTSBS413 +01174 DTSBS413 +01175 WHEN FCYR-YR = WRK-RATE-YRQ-2-CCYY DTSBS413 +01176 MOVE FCYR-TAXABLE-WAGE-BASE TO WRK-TAX-WAGE-BASE-2 DTSBS413 +01177 DTSBS413 +01178 WHEN FCYR-YR = WRK-RATE-YRQ-3-CCYY DTSBS413 +01179 MOVE FCYR-TAXABLE-WAGE-BASE TO WRK-TAX-WAGE-BASE-3 DTSBS413 +01180 DTSBS413 +01181 END-EVALUATE. DTSBS413 +01182 DTSBS413 +01183 I3210-EXIT. DTSBS413 +01184 EXIT. DTSBS413 +01185 DTSBS413 +01186 I3220-RATES. DTSBS413 +01187 EVALUATE TRUE DTSBS413 +01188 WHEN FUIR-EFF-YRQ = WRK-RATE-YRQ-1 DTSBS413 +01189 MOVE FUIR-DEFAULT-NEW-EMP-RATE TO WRK-NEW-EMP-RATE-1 DTSBS413 +01190 MOVE FUIR-RATE-TABLE TO WRK-TAX-TABLE-1 DTSBS413 +01191 DTSBS413 +01192 WHEN FUIR-EFF-YRQ = WRK-RATE-YRQ-2 DTSBS413 +01193 MOVE FUIR-DEFAULT-NEW-EMP-RATE TO WRK-NEW-EMP-RATE-2 DTSBS413 +01194 MOVE FUIR-RATE-TABLE TO WRK-TAX-TABLE-2 DTSBS413 +01195 DTSBS413 +01196 WHEN FUIR-EFF-YRQ = WRK-RATE-YRQ-3 DTSBS413 +01197 MOVE FUIR-DEFAULT-NEW-EMP-RATE TO WRK-NEW-EMP-RATE-3 DTSBS413 +01198 MOVE FUIR-RATE-TABLE TO WRK-TAX-TABLE-3 DTSBS413 +01199 DTSBS413 +01200 END-EVALUATE. DTSBS413 +01201 DTSBS413 +01202 I3220-EXIT. DTSBS413 +01203 EXIT. DTSBS413 +01204 DTSBS413 +01205 I3300-BUILD-X100. DTSBS413 +01206 MOVE WRK-RATE-YRQ-1-CCYY TO X100-RATE-YEAR. DTSBS413 +01207 MOVE WRK-NEW-EMP-RATE-1 TO X100-NEW-EMP-RATE. DTSBS413 +01208 MOVE WRK-TAX-TABLE-1 TO X100-TAX-TABLE. DTSBS413 +01209 MOVE WRK-TAX-WAGE-BASE-1 TO X100-TAX-WAGE-BASE. DTSBS413 +01210 DTSBS413 +01211 WRITE X100-REC FROM WRK-X100-REC. DTSBS413 +01212 IF NOT X100-STATUS-OK-88 DTSBS413 +01213 DISPLAY 'CANNOT WRITE X100 ' X100-STATUS DTSBS413 +01214 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01215 END-IF. DTSBS413 +01216 DTSBS413 +01217 MOVE WRK-RATE-YRQ-2-CCYY TO X100-RATE-YEAR. DTSBS413 +01218 MOVE WRK-NEW-EMP-RATE-2 TO X100-NEW-EMP-RATE. DTSBS413 +01219 MOVE WRK-TAX-TABLE-2 TO X100-TAX-TABLE. DTSBS413 +01220 MOVE WRK-TAX-WAGE-BASE-2 TO X100-TAX-WAGE-BASE. DTSBS413 +01221 DTSBS413 +01222 WRITE X100-REC FROM WRK-X100-REC. DTSBS413 +01223 IF NOT X100-STATUS-OK-88 DTSBS413 +01224 DISPLAY 'CANNOT WRITE X100 ' X100-STATUS DTSBS413 +01225 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01226 END-IF. DTSBS413 +01227 DTSBS413 +01228 MOVE WRK-RATE-YRQ-3-CCYY TO X100-RATE-YEAR. DTSBS413 +01229 MOVE WRK-NEW-EMP-RATE-3 TO X100-NEW-EMP-RATE. DTSBS413 +01230 MOVE WRK-TAX-TABLE-3 TO X100-TAX-TABLE. DTSBS413 +01231 MOVE WRK-TAX-WAGE-BASE-3 TO X100-TAX-WAGE-BASE. DTSBS413 +01232 DTSBS413 +01233 WRITE X100-REC FROM WRK-X100-REC. DTSBS413 +01234 IF NOT X100-STATUS-OK-88 DTSBS413 +01235 DISPLAY 'CANNOT WRITE X100 ' X100-STATUS DTSBS413 +01236 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01237 END-IF. DTSBS413 +01238 DTSBS413 +01239 I3300-EXIT. DTSBS413 +01240 EXIT. DTSBS413 +01241 DTSBS413 +01242 DTSBS413 +01243 P0000-PROCESS. DTSBS413 +01244 DTSBS413 +01245 PERFORM S1010-READ-SENT-MINI THRU S1010-EXIT. CL130 +01246 CL130 +01247 IF SENT-MINI-STATUS-EOF-88 CL130 +01248 DISPLAY 'SENT MINI FILE IS EMPTY' CL130 +01249 GO TO P0000-EXIT CL130 +01250 END-IF. CL130 +01251 CL130 +01252 IF E_EMPLOYEE_PAID_NUM = 182773 CL125 +01253 DISPLAY '***$$ MPRF-EMP-NO = ', MPRF-EMP-NO CL126 +01254 END-IF. CL125 +01255 DTSBS413 +01256 PERFORM UNTIL SENT-MINI-STATUS-EOF-88 CL130 +01257 OR WRK-ERROR-YES-88 DTSBS413 +01258 CL130 +01259 MOVE LOW-VALUES TO MSKL-KEY-AREA CL130 +01260 MOVE WS-SENT-EMP-NO TO MSKL-EMP-NO CL130 +01261 SET MSKL-PRF-88 TO TRUE CL130 +01262 CL130 +01263 PERFORM S910B-READ THRU S910B-EXIT CL130 +01264 CL130 +01265 IF L910-NO-REC-88 CL139 +01266 DISPLAY 'EMP NO NOT IN USE ' MSKL-EMP-NO CL130 +01267 PERFORM S999-ABEND THRU S999-EXIT CL130 +01268 END-IF CL130 +01269 CL130 +01270 DISPLAY '***$$ PO MPRF-EMP-NO = ', MPRF-EMP-NO , CL130 +01271 ' MSOL-INACT-CD: ', MSOL-INACT-CD CL130 +01272 CL130 +01273 PERFORM P1000-PROCESS-EMP THRU P1000-EXIT CL130 +01274 PERFORM S1010-READ-SENT-MINI THRU S1010-EXIT CL130 +01275 CL130 +01276 END-PERFORM. DTSBS413 +01277 DTSBS413 +01278 P0000-EXIT. DTSBS413 +01279 EXIT. DTSBS413 +01280 DTSBS413 +01281 P1000-PROCESS-EMP. DTSBS413 +01282 MOVE MSKL-REC TO MPRF-REC. DTSBS413 +01283 PERFORM P1005-INITIALIZE-EMP THRU P1005-EXIT. DTSBS413 +01284 DTSBS413 +01285 IF MPRF-CLASS-SUB-88 DTSBS413 +01286 PERFORM P1100-SELECT-EMP THRU P1100-EXIT DTSBS413 +01287 IF WRK-SELECT-EMP-PRF-88 OR CL*42 +01288 WRK-SELECT-EMP-NO-88 CL*42 +01289 GO TO P1000-EXIT CL*34 +01290 PERFORM P2000-PROFILE THRU P2000-EXIT CL124 +01291 PERFORM P2100-NAMES THRU P2100-EXIT CL124 +01292 ELSE DTSBS413 +01293 PERFORM P2000-PROFILE THRU P2000-EXIT DTSBS413 +01294 PERFORM P2100-NAMES THRU P2100-EXIT DTSBS413 +01295 PERFORM P2300-EMP-ADDR THRU P2300-EXIT CL124 +01296 PERFORM P3600-REPORT THRU P3600-EXIT CL124 +01297 PERFORM P3700-QTRS-DUE THRU P3700-EXIT CL124 +01298 PERFORM P3800-PAYMENT THRU P3800-EXIT CL124 +01299 PERFORM P3000-REL THRU P3000-EXIT CL124 +01300 PERFORM P3200-DETERM THRU P3200-EXIT CL124 +01301 PERFORM P2500-OPO THRU P2500-EXIT CL124 +01302 PERFORM P3400-RATE THRU P3400-EXIT CL124 +01303 END-IF DTSBS413 +01304 END-IF. DTSBS413 +01305 DTSBS413 +01306 IF TEMP-CNT > ZERO DTSBS413 +01307 CLOSE EMPLOYER-TEMP DTSBS413 +01308 PERFORM P1010-WRITE-OUTPUT THRU P1010-EXIT DTSBS413 +01309 OPEN OUTPUT EMPLOYER-TEMP DTSBS413 +01310 IF NOT TEMP-STATUS-OK-88 DTSBS413 +01311 DISPLAY 'P1000 OPEN ERROR ON TEMP FILE ' DTSBS413 +01312 TEMP-STATUS DTSBS413 +01313 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01314 GO TO P1000-EXIT DTSBS413 +01315 END-IF DTSBS413 +01316 END-IF. DTSBS413 +01317 DTSBS413 +01318 IF X142-EMP-NO > ZERO DTSBS413 +01319 WRITE X142-REC FROM WRK-X142-REC DTSBS413 +01320 IF X142-STATUS-OK-88 DTSBS413 +01321 ADD +1 TO X142-CNT DTSBS413 +01322 ELSE DTSBS413 +01323 DISPLAY 'CANNOT WRITE X142 ' MPRF-EMP-NO DTSBS413 +01324 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01325 END-IF DTSBS413 +01326 END-IF. DTSBS413 +01327 DTSBS413 +01328 P1000-EXIT. DTSBS413 +01329 EXIT. DTSBS413 +01330 DTSBS413 +01331 P1005-INITIALIZE-EMP. DTSBS413 +01332 MOVE ZERO TO TEMP-CNT DTSBS413 +01333 WRK-LAST-LIAB-YRQ DTSBS413 +01334 WRK-INACT-DATE DTSBS413 +01335 WRK-INACT-ENTR-DATE. DTSBS413 +01336 DTSBS413 +01337 SET WRK-SELECT-EMP-ALL-88 TO TRUE. DTSBS413 +01338 DTSBS413 +01339 MOVE ZERO TO X142-EMP-NO DTSBS413 +01340 X142-PAY-DATE DTSBS413 +01341 X142-PAY-AMT. DTSBS413 +01342 MOVE SPACES TO X142-RPT-TYPE DTSBS413 +01343 X142-REPORT-QTR DTSBS413 +01344 X142-REPORT-YEAR. DTSBS413 +01345 DTSBS413 +01346 MOVE +0 TO PAY-LAST DTSBS413 +01347 MAX-PAY-DATE DTSBS413 +01348 MAX-PAY-BATCH DTSBS413 +01349 MAX-PAY-ITEM DTSBS413 +01350 MAX-PAY-AMT. DTSBS413 +01351 DTSBS413 +01352 PERFORM DTSBS413 +01353 VARYING PSUB FROM +1 BY +1 DTSBS413 +01354 UNTIL PSUB > PAY-MAX DTSBS413 +01355 MOVE +0 TO PAY-BATCH (PSUB) DTSBS413 +01356 PAY-ITEM (PSUB) DTSBS413 +01357 PAY-RCVD-DATE (PSUB) DTSBS413 +01358 PAY-PROCESS-DATE (PSUB) DTSBS413 +01359 PAY-ORIG-AMT (PSUB) DTSBS413 +01360 PAY-ADJ-AMT (PSUB) DTSBS413 +01361 END-PERFORM. DTSBS413 +01362 DTSBS413 +01363 MOVE +0 TO MAX-RPT-DATE DTSBS413 +01364 MAX-RPT-YRQ. DTSBS413 +01365 MOVE SPACES TO MAX-RPT-TYPE. DTSBS413 +01366 PERFORM DTSBS413 +01367 VARYING RSUB FROM +1 BY +1 DTSBS413 +01368 UNTIL RSUB > RPT-MAX DTSBS413 +01369 MOVE +0 TO RPT-YRQ (RSUB) DTSBS413 +01370 RPT-TYPE (RSUB) DTSBS413 +01371 RPT-RCVD-DATE (RSUB) DTSBS413 +01372 RPT-PROCESS-DATE (RSUB) DTSBS413 +01373 END-PERFORM. DTSBS413 +01374 DTSBS413 +01375 P1005-EXIT. DTSBS413 +01376 EXIT. DTSBS413 +01377 DTSBS413 +01378 P1010-WRITE-OUTPUT. DTSBS413 +01379 OPEN INPUT EMPLOYER-TEMP. DTSBS413 +01380 IF TEMP-STATUS-OK-88 DTSBS413 +01381 NEXT SENTENCE DTSBS413 +01382 ELSE DTSBS413 +01383 DISPLAY 'P1010 OPEN ERROR ON TEMP FILE ' DTSBS413 +01384 TEMP-STATUS DTSBS413 +01385 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01386 GO TO P1010-EXIT DTSBS413 +01387 END-IF. DTSBS413 +01388 DTSBS413 +01389 READ EMPLOYER-TEMP. DTSBS413 +01390 PERFORM DTSBS413 +01391 UNTIL TEMP-STATUS-EOF-88 DTSBS413 +01392 EVALUATE TRUE DTSBS413 +01393 WHEN TEMP-REC-TYPE = '102' DTSBS413 +01394 PERFORM P1010A-WRITE-102 THRU P1010A-EXIT DTSBS413 +01395 DISPLAY '***++ 102 MPRF-EMP-NO = ', MPRF-EMP-NO CL125 +01396 DTSBS413 +01397 WHEN TEMP-REC-TYPE = '104' CL122 +01398 PERFORM P1010B-WRITE-104 THRU P1010B-EXIT CL122 +01399 DISPLAY '***++ 104 MPRF-EMP-NO = ', MPRF-EMP-NO CL125 +01400 DTSBS413 +01401 WHEN TEMP-REC-TYPE = '106' CL122 +01402 PERFORM P1010C-WRITE-106 THRU P1010C-EXIT CL122 +01403 DISPLAY '***++ 106 MPRF-EMP-NO = ', MPRF-EMP-NO CL125 +01404 DTSBS413 +01405 WHEN TEMP-REC-TYPE = '108' CL122 +01406 PERFORM P1010D-WRITE-108 THRU P1010D-EXIT CL122 +01407 DISPLAY '***++ 108 MPRF-EMP-NO = ', MPRF-EMP-NO CL125 +01408 DTSBS413 +01409 WHEN TEMP-REC-TYPE = '110' CL122 +01410 PERFORM P1010E-WRITE-110 THRU P1010E-EXIT CL122 +01411 DISPLAY '***++ 110 MPRF-EMP-NO = ', MPRF-EMP-NO CL122 +01412 DTSBS413 +01413 WHEN TEMP-REC-TYPE = '120' CL122 +01414 PERFORM P1010F-WRITE-120 THRU P1010F-EXIT CL122 +01415 DISPLAY '***++ 120 MPRF-EMP-NO = ', MPRF-EMP-NO CL125 +01416 DTSBS413 +01417 ** WHEN TEMP-REC-TYPE = '130' CL126 +01418 ** PERFORM P1010G-WRITE-130 THRU P1010G-EXIT CL126 +01419 DTSBS413 +01420 WHEN TEMP-REC-TYPE = '140' CL122 +01421 PERFORM P1010H-WRITE-140 THRU P1010H-EXIT CL122 +01422 DISPLAY '***++ 140 MPRF-EMP-NO = ', MPRF-EMP-NO CL125 +01423 DTSBS413 +01424 WHEN TEMP-REC-TYPE = '141' CL122 +01425 PERFORM P1010I-WRITE-141 THRU P1010I-EXIT CL122 +01426 DISPLAY '***++ 141 MPRF-EMP-NO = ', MPRF-EMP-NO CL122 +01427 DTSBS413 +01428 WHEN TEMP-REC-TYPE = '131' CL122 +01429 PERFORM P1010J-WRITE-131 THRU P1010J-EXIT CL122 +01430 DISPLAY '***++ 131 MPRF-EMP-NO = ', MPRF-EMP-NO CL125 +01431 DTSBS413 +01432 WHEN TEMP-REC-TYPE = '142' CL122 +01433 PERFORM P1010K-WRITE-142 THRU P1010K-EXIT CL122 +01434 DISPLAY '***++ 142 MPRF-EMP-NO = ', MPRF-EMP-NO CL125 +01435 DTSBS413 +01436 END-EVALUATE DTSBS413 +01437 READ EMPLOYER-TEMP DTSBS413 +01438 END-PERFORM. DTSBS413 +01439 DTSBS413 +01440 CLOSE EMPLOYER-TEMP. DTSBS413 +01441 DTSBS413 +01442 P1010-EXIT. DTSBS413 +01443 EXIT. DTSBS413 +01444 DTSBS413 +01445 P1010A-WRITE-102. DTSBS413 +01446 DISPLAY '***$$ 102 MPRF-EMP-NO = ', MPRF-EMP-NO , CL125 +01447 ' MSOL-INACT-CD: ', MSOL-INACT-CD. CL125 +01448 PERFORM CP2000-MOVE-FIELDS THRU CP2000-EXIT. CL*96 +01449 MOVE LENGTH OF WRK-X102-REC TO WRK-LEN. DTSBS413 +01450 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X102-REC. DTSBS413 +01451 WRITE X102-REC. DTSBS413 +01452 IF X102-STATUS-OK-88 DTSBS413 +01453 ADD +1 TO X102-CNT DTSBS413 +01454 ELSE DTSBS413 +01455 DISPLAY 'CANNOT WRITE X102 ' MPRF-EMP-NO DTSBS413 +01456 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01457 END-IF. DTSBS413 +01458 CL*95 +01459 CL*63 +01460 P1010A-EXIT. DTSBS413 +01461 EXIT. DTSBS413 +01462 DTSBS413 +01463 P1010B-WRITE-104. CL**2 +01464 MOVE LENGTH OF WRK-X104-REC TO WRK-LEN. CL**2 +01465 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X104-REC. CL**2 +01466 WRITE X104-REC. CL**2 +01467 IF X104-STATUS-OK-88 CL**2 +01468 ADD +1 TO X104-CNT CL**2 +01469 ELSE CL**2 +01470 DISPLAY 'CANNOT WRITE X104 ' MPRF-EMP-NO CL**2 +01471 SET WRK-ERROR-YES-88 TO TRUE CL**2 +01472 END-IF. CL**2 +01473 CL**2 +01474 P1010B-EXIT. CL**2 +01475 EXIT. CL**2 +01476 DTSBS413 +01477 P1010C-WRITE-106. DTSBS413 +01478 MOVE LENGTH OF WRK-X106-REC TO WRK-LEN. DTSBS413 +01479 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X106-REC. DTSBS413 +01480 WRITE X106-REC. DTSBS413 +01481 IF X106-STATUS-OK-88 DTSBS413 +01482 ADD +1 TO X106-CNT DTSBS413 +01483 ELSE DTSBS413 +01484 DISPLAY 'CANNOT WRITE X106 ' MPRF-EMP-NO DTSBS413 +01485 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01486 END-IF. DTSBS413 +01487 DTSBS413 +01488 P1010C-EXIT. DTSBS413 +01489 EXIT. DTSBS413 +01490 DTSBS413 +01491 P1010D-WRITE-108. CL**2 +01492 MOVE LENGTH OF WRK-X108-REC TO WRK-LEN. CL**2 +01493 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X108-REC. CL**2 +01494 WRITE X108-REC. CL**2 +01495 IF X108-STATUS-OK-88 CL**2 +01496 ADD +1 TO X108-CNT CL**2 +01497 ELSE CL**2 +01498 DISPLAY 'CANNOT WRITE X108 ' MPRF-EMP-NO CL**2 +01499 SET WRK-ERROR-YES-88 TO TRUE CL**2 +01500 END-IF. CL**2 +01501 CL**2 +01502 P1010D-EXIT. CL**2 +01503 EXIT. CL**2 +01504 DTSBS413 +01505 P1010E-WRITE-110. DTSBS413 +01506 MOVE LENGTH OF WRK-X110-REC TO WRK-LEN. DTSBS413 +01507 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X110-REC. DTSBS413 +01508 WRITE X110-REC. DTSBS413 +01509 IF X110-STATUS-OK-88 DTSBS413 +01510 ADD +1 TO X110-CNT DTSBS413 +01511 ELSE DTSBS413 +01512 DISPLAY 'CANNOT WRITE X110 ' MPRF-EMP-NO DTSBS413 +01513 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01514 END-IF. DTSBS413 +01515 DTSBS413 +01516 P1010E-EXIT. DTSBS413 +01517 EXIT. DTSBS413 +01518 DTSBS413 +01519 P1010F-WRITE-120. CL**2 +01520 MOVE LENGTH OF WRK-X120-REC TO WRK-LEN. CL**2 +01521 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X120-REC. CL**2 +01522 WRITE X120-REC. CL**2 +01523 IF X120-STATUS-OK-88 CL**2 +01524 ADD +1 TO X120-CNT CL**2 +01525 ELSE CL**2 +01526 DISPLAY 'CANNOT WRITE X120 ' MPRF-EMP-NO CL**2 +01527 SET WRK-ERROR-YES-88 TO TRUE CL**2 +01528 END-IF. CL**2 +01529 CL**2 +01530 P1010F-EXIT. CL**2 +01531 EXIT. CL**2 +01532 DTSBS413 +01533 DTSBS413 +01534 P1010H-WRITE-140. CL**2 +01535 MOVE LENGTH OF WRK-X140-REC TO WRK-LEN. CL**2 +01536 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X140-REC. CL**2 +01537 WRITE X140-REC. CL**2 +01538 IF X140-STATUS-OK-88 CL**2 +01539 ADD +1 TO X140-CNT CL**2 +01540 ELSE CL**2 +01541 DISPLAY 'CANNOT WRITE X140 ' MPRF-EMP-NO CL**2 +01542 SET WRK-ERROR-YES-88 TO TRUE CL**2 +01543 END-IF. CL**2 +01544 CL**2 +01545 P1010H-EXIT. CL**2 +01546 EXIT. CL**2 +01547 DTSBS413 +01548 P1010I-WRITE-141. DTSBS413 +01549 MOVE LENGTH OF WRK-X141-REC TO WRK-LEN. DTSBS413 +01550 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X141-REC. DTSBS413 +01551 WRITE X141-REC. DTSBS413 +01552 IF X141-STATUS-OK-88 DTSBS413 +01553 ADD +1 TO X141-CNT DTSBS413 +01554 ELSE DTSBS413 +01555 DISPLAY 'CANNOT WRITE X141 ' MPRF-EMP-NO DTSBS413 +01556 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01557 END-IF. DTSBS413 +01558 DTSBS413 +01559 P1010I-EXIT. DTSBS413 +01560 EXIT. DTSBS413 +01561 DTSBS413 +01562 P1010J-WRITE-131. DTSBS413 +01563 MOVE LENGTH OF WRK-X131-REC TO WRK-LEN. DTSBS413 +01564 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X131-REC. DTSBS413 +01565 WRITE X131-REC. DTSBS413 +01566 IF X131-STATUS-OK-88 DTSBS413 +01567 ADD +1 TO X131-CNT DTSBS413 +01568 ELSE DTSBS413 +01569 DISPLAY 'CANNOT WRITE X131 ' MPRF-EMP-NO DTSBS413 +01570 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01571 END-IF. DTSBS413 +01572 DTSBS413 +01573 P1010J-EXIT. DTSBS413 +01574 EXIT. DTSBS413 +01575 DTSBS413 +01576 P1010K-WRITE-142. CL**2 +01577 MOVE LENGTH OF WRK-X142-REC TO WRK-LEN. CL**2 +01578 MOVE EMPLOYER-TEMP-REC (1:WRK-LEN) TO X142-REC. CL**2 +01579 WRITE X142-REC. CL**2 +01580 IF X142-STATUS-OK-88 CL**2 +01581 ADD +1 TO X142-CNT CL**2 +01582 ELSE CL**2 +01583 DISPLAY 'CANNOT WRITE X142 ' MPRF-EMP-NO CL**2 +01584 SET WRK-ERROR-YES-88 TO TRUE CL**2 +01585 END-IF. CL**2 +01586 CL**2 +01587 P1010K-EXIT. CL**2 +01588 EXIT. CL**2 +01589 DTSBS413 +01590 P1100-SELECT-EMP. DTSBS413 +01591 CL*27 +01592 IF MPRF-SUSPEND-COLL-YES-88 DTSBS413 +01593 OR MPRF-WRITE-OFF-DATE > ZERO DTSBS413 +01594 SET WRK-SELECT-EMP-NO-88 TO TRUE DTSBS413 +01595 GO TO P1100-EXIT DTSBS413 +01596 END-IF. DTSBS413 +01597 CL*27 +01598 IF MPRF-STATUS-INACT-88 DTSBS413 +01599 PERFORM P1110-INACT-DATES THRU P1110-EXIT DTSBS413 +01600 IF MPRF-TOT-BALANCE-AMT = ZERO CL*49 +01601 AND WRK-LAST-LIAB-YRQ < 20101 CL*49 +01602 SET WRK-SELECT-EMP-NO-88 TO TRUE CL*49 +01603 GO TO P1100-EXIT CL*49 +01604 END-IF CL*49 +01605 IF WRK-LAST-LIAB-YRQ > 20094 CL*45 +01606 IF MPRF-TOT-CREDIT-AMT > ZERO CL*27 +01607 OR MPRF-PURSUED-RPT-CNT > ZERO DTSBS413 +01608 OR WRK-INACT-DATE >= 020100101 CL*40 +01609 SET WRK-SELECT-EMP-ALL-88 TO TRUE DTSBS413 +01610 ELSE CL139 +01611 SET WRK-SELECT-EMP-NO-88 TO TRUE CL139 +01612 END-IF CL139 +01613 END-IF. DTSBS413 +01614 DTSBS413 +01615 IF (MPRF-STATUS-NEVERSUB-88 CL*33 +01616 OR MPRF-STATUS-UNK-88) CL*33 +01617 AND MPRF-FEIN > ZERO CL*33 +01618 PERFORM P1120-NOT-SUBJECT THRU P1120-EXIT CL*33 +01619 IF WRK-SUBJ-EMP-NO-88 CL*33 +01620 SET WRK-SELECT-EMP-NO-88 TO TRUE CL*35 +01621 END-IF CL*33 +01622 END-IF. CL*33 +01623 DTSBS413 +01624 P1100-EXIT. DTSBS413 +01625 EXIT. DTSBS413 +01626 DTSBS413 +01627 P1110-INACT-DATES. DTSBS413 +01628 * DISPLAY 'INACT - 1 ' MPRF-EMP-NO ' ' WRK-LIAB-DATE. DTSBS413 +01629 MOVE LOW-VALUES TO MSOL-REC. DTSBS413 +01630 MOVE MPRF-EMP-NO TO MSOL-EMP-NO. DTSBS413 +01631 SET MSOL-SOL-88 TO TRUE. DTSBS413 +01632 MOVE MSOL-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +01633 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +01634 DTSBS413 +01635 PERFORM UNTIL L910-NO-REC-88 DTSBS413 +01636 MOVE MSKL-REC TO MSOL-REC DTSBS413 +01637 IF NOT MSOL-INACT-WITHDRAWN-88 DTSBS413 +01638 IF MSOL-INACT-INACTIVE-88 DTSBS413 +01639 IF MSOL-LAST-LIAB-YRQ > WRK-LAST-LIAB-YRQ DTSBS413 +01640 MOVE MSOL-LAST-LIAB-YRQ TO DTSBS413 +01641 WRK-LAST-LIAB-YRQ DTSBS413 +01642 MOVE MSOL-INACT-DATE TO WRK-INACT-DATE DTSBS413 +01643 MOVE MSOL-INACT-ENTER-DATE TO DTSBS413 +01644 WRK-INACT-ENTR-DATE DTSBS413 +01645 END-IF DTSBS413 +01646 END-IF DTSBS413 +01647 END-IF DTSBS413 +01648 PERFORM S910D-READ-NEXT THRU S910D-EXIT DTSBS413 +01649 END-PERFORM. DTSBS413 +01650 DTSBS413 +01651 P1110-EXIT. DTSBS413 +01652 EXIT. DTSBS413 +01653 DTSBS413 +01654 P1120-NOT-SUBJECT. DTSBS413 +01655 MOVE MPRF-EMP-NO TO WRK-HOLD-EMP-NO. DTSBS413 +01656 SET WRK-SUBJ-EMP-NO-88 TO TRUE. DTSBS413 +01657 DTSBS413 +01658 MOVE LOW-VALUE TO IEIN-KEY-AREA. DTSBS413 +01659 SET IEIN-EIN-88 TO TRUE DTSBS413 +01660 MOVE MPRF-FEIN TO IEIN-FEIN DTSBS413 +01661 MOVE +0 TO IEIN-EMP-NO DTSBS413 +01662 MOVE IEIN-KEY-AREA TO ISKL-KEY-AREA DTSBS413 +01663 PERFORM S921C-START-BROWSE THRU S921C-EXIT DTSBS413 +01664 MOVE ISKL-REC TO IEIN-REC DTSBS413 +01665 PERFORM DTSBS413 +01666 UNTIL L921-NO-REC-88 DTSBS413 +01667 OR WRK-SUBJ-EMP-YES-88 DTSBS413 +01668 IF IEIN-FEIN = MPRF-FEIN DTSBS413 +01669 PERFORM P1121-FIND-MPRF THRU P1121-EXIT DTSBS413 +01670 IF WRK-SUBJ-EMP-NO-88 DTSBS413 +01671 PERFORM S921D-READ-NEXT THRU S921D-EXIT DTSBS413 +01672 MOVE ISKL-REC TO IEIN-REC DTSBS413 +01673 END-IF DTSBS413 +01674 ELSE DTSBS413 +01675 SET L921-NO-REC-88 TO TRUE DTSBS413 +01676 END-IF DTSBS413 +01677 END-PERFORM. DTSBS413 +01678 DTSBS413 +01679 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBS413 +01680 MOVE WRK-HOLD-EMP-NO TO MSKL-EMP-NO. DTSBS413 +01681 SET MSKL-PRF-88 TO TRUE. DTSBS413 +01682 DTSBS413 +01683 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +01684 DTSBS413 +01685 P1120-EXIT. DTSBS413 +01686 EXIT. DTSBS413 +01687 DTSBS413 +01688 P1121-FIND-MPRF. DTSBS413 +01689 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBS413 +01690 MOVE IEIN-EMP-NO TO MSKL-EMP-NO. DTSBS413 +01691 SET MSKL-PRF-88 TO TRUE. DTSBS413 +01692 DTSBS413 +01693 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +01694 IF L910-OK-88 DTSBS413 +01695 MOVE MSKL-REC TO MPRF-REC DTSBS413 +01696 IF MPRF-STATUS-SUB-88 DTSBS413 +01697 SET WRK-SUBJ-EMP-YES-88 TO TRUE DTSBS413 +01698 END-IF DTSBS413 +01699 END-IF. DTSBS413 +01700 DTSBS413 +01701 P1121-EXIT. DTSBS413 +01702 EXIT. DTSBS413 +01703 DTSBS413 +01704 DTSBS413 +01705 P2000-PROFILE. DTSBS413 +01706 PERFORM P2010-MERA THRU P2010-EXIT. DTSBS413 +01707 DTSBS413 +01708 MOVE MPRF-EMP-NO TO X102-EMP-NO. DTSBS413 +01709 MOVE MPRF-FEIN TO X102-EMP-FEIN. DTSBS413 +01710 MOVE MPRF-EMP-CLASS TO X102-EMP-CLASS. DTSBS413 +01711 MOVE MPRF-EMP-STATUS TO X102-EMP-STATUS. DTSBS413 +01712 MOVE WRK-SOURCE-CD TO X102-SOURCE-CD. DTSBS413 +01713 SET X102-ACTION-INSERT-88 TO TRUE. DTSBS413 +01714 DTSBS413 +01715 *& DISPLAY 'P2000 ' X102-EMP-NO. DTSBS413 +01716 WRITE EMPLOYER-TEMP-REC FROM WRK-X102-REC. DTSBS413 +01717 IF TEMP-STATUS-OK-88 DTSBS413 +01718 ADD +1 TO TEMP-CNT DTSBS413 +01719 ELSE DTSBS413 +01720 DISPLAY 'CANNOT WRITE X102 TEMP ' MPRF-EMP-NO DTSBS413 +01721 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01722 END-IF. DTSBS413 +01723 DTSBS413 +01724 P2000-EXIT. DTSBS413 +01725 EXIT. DTSBS413 +01726 DTSBS413 +01727 P2010-MERA. DTSBS413 +01728 MOVE LOW-VALUES TO MERA-REC. DTSBS413 +01729 MOVE MPRF-EMP-NO TO MERA-EMP-NO. DTSBS413 +01730 SET MERA-ERA-88 TO TRUE. DTSBS413 +01731 MOVE MERA-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +01732 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +01733 IF L910-OK-88 DTSBS413 +01734 MOVE MSKL-REC TO MERA-REC DTSBS413 +01735 IF MERA-SOURCE-OTH-88 DTSBS413 +01736 OR MERA-SOURCE-UNK-88 DTSBS413 +01737 OR MERA-SOURCE-CD = LOW-VALUES DTSBS413 +01738 OR MERA-SOURCE-CD = SPACES DTSBS413 +01739 MOVE '03' TO MERA-SOURCE-CD DTSBS413 +01740 END-IF DTSBS413 +01741 MOVE MERA-SOURCE-CD TO WRK-SOURCE-CD DTSBS413 +01742 ELSE DTSBS413 +01743 MOVE '03' TO WRK-SOURCE-CD DTSBS413 +01744 END-IF. DTSBS413 +01745 DTSBS413 +01746 P2010-EXIT. DTSBS413 +01747 EXIT. DTSBS413 +01748 DTSBS413 +01749 P2100-NAMES. DTSBS413 +01750 IF MPRF-PRIMARY-IS-ENTITY-88 DTSBS413 +01751 SET X106-NAME-TYPE-ENTITY-88 TO TRUE DTSBS413 +01752 MOVE MPRF-PRIMARY-NAME TO X106-EMP-NAME DTSBS413 +01753 PERFORM P2190-WRITE-X106 THRU P2190-EXIT DTSBS413 +01754 ELSE DTSBS413 +01755 IF MPRF-ENTITY-NAME > SPACES DTSBS413 +01756 SET X106-NAME-TYPE-ENTITY-88 TO TRUE DTSBS413 +01757 MOVE MPRF-ENTITY-NAME TO X106-EMP-NAME DTSBS413 +01758 PERFORM P2190-WRITE-X106 THRU P2190-EXIT DTSBS413 +01759 ELSE DTSBS413 +01760 SET X106-NAME-TYPE-TRADE-88 TO TRUE DTSBS413 +01761 MOVE MPRF-PRIMARY-NAME TO X106-EMP-NAME DTSBS413 +01762 PERFORM P2190-WRITE-X106 THRU P2190-EXIT DTSBS413 +01763 END-IF DTSBS413 +01764 END-IF. DTSBS413 +01765 DTSBS413 +01766 *** PERFORM P2110-ALT-NAMES THRU P2110-EXIT. DTSBS413 +01767 DTSBS413 +01768 P2100-EXIT. DTSBS413 +01769 EXIT. DTSBS413 +01770 DTSBS413 +01771 P2110-ALT-NAMES. DTSBS413 +01772 MOVE LOW-VALUES TO MTAA-REC. DTSBS413 +01773 MOVE MPRF-EMP-NO TO MTAA-EMP-NO. DTSBS413 +01774 SET MTAA-TAA-88 TO TRUE. DTSBS413 +01775 MOVE MTAA-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +01776 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +01777 PERFORM DTSBS413 +01778 UNTIL L910-NO-REC-88 DTSBS413 +01779 MOVE MSKL-REC TO MTAA-REC DTSBS413 +01780 IF MTAA-NAME > SPACES DTSBS413 +01781 SET X106-NAME-TYPE-TRADE-88 TO TRUE DTSBS413 +01782 MOVE MTAA-NAME TO X106-EMP-NAME DTSBS413 +01783 PERFORM P2190-WRITE-X106 THRU P2190-EXIT DTSBS413 +01784 END-IF DTSBS413 +01785 PERFORM S910D-READ-NEXT THRU S910D-EXIT DTSBS413 +01786 END-PERFORM. DTSBS413 +01787 DTSBS413 +01788 P2110-EXIT. DTSBS413 +01789 EXIT. DTSBS413 +01790 DTSBS413 +01791 P2190-WRITE-X106. DTSBS413 +01792 MOVE MPRF-EMP-NO TO X106-EMP-NO. DTSBS413 +01793 INSPECT X106-EMP-NAME REPLACING ALL ',' BY SPACE. DTSBS413 +01794 DTSBS413 +01795 WRITE EMPLOYER-TEMP-REC FROM WRK-X106-REC. DTSBS413 +01796 IF TEMP-STATUS-OK-88 DTSBS413 +01797 ADD +1 TO TEMP-CNT DTSBS413 +01798 ELSE DTSBS413 +01799 DISPLAY 'CANNOT WRITE TEMP X106 ' MPRF-EMP-NO DTSBS413 +01800 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01801 END-IF. DTSBS413 +01802 DTSBS413 +01803 P2190-EXIT. DTSBS413 +01804 EXIT. DTSBS413 +01805 DTSBS413 +01806 P2300-EMP-ADDR. DTSBS413 +01807 PERFORM P2310-MTAD THRU P2310-EXIT. DTSBS413 +01808 *** PERFORM P2320-MTAA THRU P2320-EXIT. DTSBS413 +01809 P2300-EXIT. DTSBS413 +01810 EXIT. DTSBS413 +01811 DTSBS413 +01812 P2310-MTAD. DTSBS413 +01813 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBS413 +01814 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBS413 +01815 SET MTAD-TAD-88 TO TRUE. DTSBS413 +01816 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE. DTSBS413 +01817 DTSBS413 +01818 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +01819 DTSBS413 +01820 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +01821 DTSBS413 +01822 IF L910-NO-REC-88 DTSBS413 +01823 GO TO P2310-EXIT DTSBS413 +01824 ELSE DTSBS413 +01825 MOVE MSKL-REC TO MTAD-REC DTSBS413 +01826 MOVE MTAD-ADDRESS TO WRK-ADDRESS DTSBS413 +01827 SET X110-ADDR-TYPE-MAIL-88 TO TRUE DTSBS413 +01828 MOVE MTAD-VOICE-1 TO WRK-PHONE DTSBS413 +01829 MOVE MTAD-FAX TO WRK-FAX DTSBS413 +01830 MOVE MTAD-EMAIL-ADDRESS TO WRK-EMAIL DTSBS413 +01831 PERFORM P2390-WRITE-X110 THRU P2390-EXIT DTSBS413 +01832 END-IF. DTSBS413 +01833 DTSBS413 +01834 DTSBS413 +01835 P2310-EXIT. DTSBS413 +01836 EXIT. DTSBS413 +01837 DTSBS413 +01838 DTSBS413 +01839 P2390-WRITE-X110. DTSBS413 +01840 MOVE MPRF-EMP-NO TO X110-EMP-NO. DTSBS413 +01841 MOVE WRK-ATTN-LINE TO X110-ATTENTION. DTSBS413 +01842 MOVE WRK-DELIV-LINE-1 TO X110-STREET-1. DTSBS413 +01843 MOVE WRK-DELIV-LINE-2 TO X110-STREET-2. DTSBS413 +01844 MOVE WRK-CITY TO X110-CITY. DTSBS413 +01845 MOVE WRK-ST TO X110-STATE. DTSBS413 +01846 MOVE WRK-ZIP TO X110-ZIP. DTSBS413 +01847 MOVE WRK-PHONE TO X110-PHONE. DTSBS413 +01848 MOVE WRK-FAX TO X110-FAX. DTSBS413 +01849 IF WRK-EMAIL = LOW-VALUES DTSBS413 +01850 MOVE SPACES TO X110-EMAIL DTSBS413 +01851 ELSE DTSBS413 +01852 MOVE WRK-EMAIL TO X110-EMAIL DTSBS413 +01853 END-IF. DTSBS413 +01854 DTSBS413 +01855 INSPECT X110-ATTENTION REPLACING ALL ',' BY SPACE. DTSBS413 +01856 INSPECT X110-STREET-1 REPLACING ALL ',' BY SPACE. DTSBS413 +01857 INSPECT X110-STREET-2 REPLACING ALL ',' BY SPACE. DTSBS413 +01858 INSPECT X110-EMAIL REPLACING ALL ',' BY SPACE. DTSBS413 +01859 DTSBS413 +01860 WRITE EMPLOYER-TEMP-REC FROM WRK-X110-REC DTSBS413 +01861 IF TEMP-STATUS-OK-88 DTSBS413 +01862 ADD +1 TO TEMP-CNT DTSBS413 +01863 ELSE DTSBS413 +01864 DISPLAY 'CANNOT WRITE TEMP X110 ' MPRF-EMP-NO DTSBS413 +01865 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +01866 END-IF. DTSBS413 +01867 DTSBS413 +01868 P2390-EXIT. DTSBS413 +01869 EXIT. DTSBS413 +01870 DTSBS413 +01871 P2500-OPO. DTSBS413 +01872 IF MSOL-LIAB-RATED-DOMESTIC-88 DTSBS413 +01873 GO TO P2500-EXIT DTSBS413 +01874 END-IF. DTSBS413 +01875 DTSBS413 +01876 MOVE LOW-VALUES TO MOPO-KEY-AREA. DTSBS413 +01877 MOVE MPRF-EMP-NO TO MOPO-EMP-NO. DTSBS413 +01878 SET MOPO-OPO-88 TO TRUE. DTSBS413 +01879 MOVE MOPO-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +01880 DTSBS413 +01881 SET WRK-MOPO-FOUND-NO-88 TO TRUE. DTSBS413 +01882 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +01883 IF L910-NO-REC-88 DTSBS413 +01884 NEXT SENTENCE DTSBS413 +01885 ELSE DTSBS413 +01886 PERFORM DTSBS413 +01887 UNTIL L910-NO-REC-88 DTSBS413 +01888 MOVE MSKL-REC TO MOPO-REC DTSBS413 +01889 SET WRK-MOPO-FOUND-YES-88 TO TRUE CL137 +01890 PERFORM P2510-PARSE-NAME THRU P2510-EXIT DTSBS413 +01891 PERFORM P2590-WRITE-X120 THRU P2590-EXIT DTSBS413 +01892 PERFORM S910D-READ-NEXT THRU S910D-EXIT DTSBS413 +01893 END-PERFORM DTSBS413 +01894 END-IF. DTSBS413 +01895 DTSBS413 +01896 DTSBS413 +01897 P2500-EXIT. DTSBS413 +01898 EXIT. DTSBS413 +01899 DTSBS413 +01900 P2510-PARSE-NAME. DTSBS413 +01901 MOVE +0 TO FSUB DTSBS413 +01902 LSUB. DTSBS413 +01903 MOVE SPACES TO FIRST-NAME DTSBS413 +01904 MIDDLE-INIT DTSBS413 +01905 LAST-NAME. DTSBS413 +01906 SET FIRST-NAME-COMPLETE-NO-88 TO TRUE. DTSBS413 +01907 SET LAST-NAME-COMPLETE-NO-88 TO TRUE. DTSBS413 +01908 SET MID-INIT-COMPLETE-NO-88 TO TRUE. DTSBS413 +01909 DTSBS413 +01910 MOVE MOPO-NAME TO SLASH-NAME. DTSBS413 +01911 PERFORM DTSBS413 +01912 VARYING NSUB FROM +1 BY +1 DTSBS413 +01913 UNTIL NSUB > +40 DTSBS413 +01914 OR MID-INIT-COMPLETE-YES-88 DTSBS413 +01915 IF FIRST-NAME-COMPLETE-YES-88 DTSBS413 +01916 PERFORM P2513-MID-INIT THRU P2513-EXIT DTSBS413 +01917 ELSE DTSBS413 +01918 IF LAST-NAME-COMPLETE-YES-88 DTSBS413 +01919 PERFORM P2512-FIRST-NAME THRU P2512-EXIT DTSBS413 +01920 ELSE DTSBS413 +01921 PERFORM P2511-LAST-NAME THRU P2511-EXIT DTSBS413 +01922 END-IF DTSBS413 +01923 END-IF DTSBS413 +01924 END-PERFORM. DTSBS413 +01925 DTSBS413 +01926 DTSBS413 +01927 P2510-EXIT. DTSBS413 +01928 EXIT. DTSBS413 +01929 DTSBS413 +01930 P2511-LAST-NAME. DTSBS413 +01931 IF SLASH-NAME-CHAR (NSUB) = '/' DTSBS413 +01932 SET LAST-NAME-COMPLETE-YES-88 TO TRUE DTSBS413 +01933 GO TO P2511-EXIT DTSBS413 +01934 ELSE DTSBS413 +01935 IF LSUB < +40 DTSBS413 +01936 ADD +1 TO LSUB DTSBS413 +01937 MOVE SLASH-NAME-CHAR (NSUB) TO LAST-NAME (LSUB:1) DTSBS413 +01938 END-IF DTSBS413 +01939 END-IF. DTSBS413 +01940 DTSBS413 +01941 P2511-EXIT. DTSBS413 +01942 EXIT. DTSBS413 +01943 DTSBS413 +01944 P2512-FIRST-NAME. DTSBS413 +01945 IF SLASH-NAME-CHAR (NSUB) = SPACE DTSBS413 +01946 SET FIRST-NAME-COMPLETE-YES-88 TO TRUE DTSBS413 +01947 GO TO P2512-EXIT DTSBS413 +01948 ELSE DTSBS413 +01949 IF FSUB < +20 DTSBS413 +01950 ADD +1 TO FSUB DTSBS413 +01951 MOVE SLASH-NAME-CHAR (NSUB) TO FIRST-NAME (FSUB:1) DTSBS413 +01952 END-IF DTSBS413 +01953 END-IF. DTSBS413 +01954 DTSBS413 +01955 P2512-EXIT. DTSBS413 +01956 EXIT. DTSBS413 +01957 DTSBS413 +01958 P2513-MID-INIT. DTSBS413 +01959 IF MID-INIT-COMPLETE-NO-88 DTSBS413 +01960 MOVE SLASH-NAME-CHAR (NSUB) TO MIDDLE-INIT (1:1) DTSBS413 +01961 SET MID-INIT-COMPLETE-YES-88 TO TRUE DTSBS413 +01962 END-IF. DTSBS413 +01963 DTSBS413 +01964 P2513-EXIT. DTSBS413 +01965 EXIT. DTSBS413 +01966 DTSBS413 +01967 P2590-WRITE-X120. DTSBS413 +01968 IF LAST-NAME = SPACES DTSBS413 +01969 GO TO P2590-EXIT DTSBS413 +01970 END-IF. DTSBS413 +01971 DTSBS413 +01972 MOVE MPRF-EMP-NO TO X120-EMP-NO. DTSBS413 +01973 IF FIRST-NAME = SPACES DTSBS413 +01974 MOVE LAST-NAME (1:20) TO X120-OPO-FIRST-NAME DTSBS413 +01975 MOVE LAST-NAME (21:1) TO X120-OPO-MID-INIT DTSBS413 +01976 MOVE LAST-NAME (22:19) TO X120-OPO-LAST-NAME DTSBS413 +01977 ELSE DTSBS413 +01978 MOVE FIRST-NAME (1:20) TO X120-OPO-FIRST-NAME DTSBS413 +01979 MOVE MIDDLE-INIT TO X120-OPO-MID-INIT DTSBS413 +01980 MOVE LAST-NAME (1:20) TO X120-OPO-LAST-NAME DTSBS413 +01981 END-IF. DTSBS413 +01982 MOVE SPACES TO X120-OPO-MEMBER-NAME. DTSBS413 +01983 MOVE MOPO-SSN TO X120-OPO-SSN. DTSBS413 +01984 MOVE MOPO-TITLE TO X120-OPO-TITLE. DTSBS413 +01985 MOVE MOPO-TYPE-IND TO X120-TYPE-IND. DTSBS413 +01986 IF MOPO-ATTN-LINE = LOW-VALUES DTSBS413 +01987 MOVE SPACES TO X120-OPO-ATTENTION DTSBS413 +01988 ELSE DTSBS413 +01989 MOVE MOPO-ATTN-LINE TO X120-OPO-ATTENTION DTSBS413 +01990 END-IF. DTSBS413 +01991 MOVE MOPO-DELIV-LINE-1 TO X120-OPO-STREET-1. DTSBS413 +01992 MOVE MOPO-DELIV-LINE-2 TO X120-OPO-STREET-2. DTSBS413 +01993 MOVE MOPO-CITY TO X120-OPO-CITY. DTSBS413 +01994 MOVE MOPO-ST TO X120-OPO-STATE. DTSBS413 +01995 MOVE MOPO-ZIP TO X120-OPO-ZIP. DTSBS413 +01996 MOVE MOPO-VOICE-1 TO X120-OPO-PHONE. DTSBS413 +01997 MOVE MOPO-FAX TO X120-OPO-FAX. DTSBS413 +01998 IF MOPO-EMAIL-ADDRESS = LOW-VALUES DTSBS413 +01999 MOVE SPACES TO X120-OPO-EMAIL DTSBS413 +02000 ELSE DTSBS413 +02001 MOVE MOPO-EMAIL-ADDRESS TO X120-OPO-EMAIL DTSBS413 +02002 END-IF. DTSBS413 +02003 DTSBS413 +02004 INSPECT X120-OPO-FIRST-NAME REPLACING ALL ',' BY SPACE. DTSBS413 +02005 INSPECT X120-OPO-MID-INIT REPLACING ALL ',' BY SPACE. DTSBS413 +02006 INSPECT X120-OPO-LAST-NAME REPLACING ALL ',' BY SPACE. DTSBS413 +02007 INSPECT X120-OPO-TITLE REPLACING ALL ',' BY SPACE. DTSBS413 +02008 INSPECT X120-OPO-ATTENTION REPLACING ALL ',' BY SPACE. DTSBS413 +02009 INSPECT X120-OPO-STREET-1 REPLACING ALL ',' BY SPACE. DTSBS413 +02010 INSPECT X120-OPO-STREET-2 REPLACING ALL ',' BY SPACE. DTSBS413 +02011 INSPECT X120-OPO-EMAIL REPLACING ALL ',' BY SPACE. DTSBS413 +02012 DTSBS413 +02013 WRITE EMPLOYER-TEMP-REC FROM WRK-X120-REC DTSBS413 +02014 IF TEMP-STATUS-OK-88 DTSBS413 +02015 ADD +1 TO TEMP-CNT DTSBS413 +02016 ELSE DTSBS413 +02017 DISPLAY 'CANNOT WRITE TEMP X120 ' MPRF-EMP-NO DTSBS413 +02018 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +02019 END-IF. DTSBS413 +02020 DTSBS413 +02021 P2590-EXIT. DTSBS413 +02022 EXIT. DTSBS413 +02023 DTSBS413 +02024 P3000-REL. DTSBS413 +02025 MOVE LOW-VALUES TO MREL-KEY-AREA. DTSBS413 +02026 MOVE MPRF-EMP-NO TO MREL-EMP-NO. DTSBS413 +02027 SET MREL-REL-88 TO TRUE. DTSBS413 +02028 MOVE MREL-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +02029 DTSBS413 +02030 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +02031 IF L910-NO-REC-88 DTSBS413 +02032 NEXT SENTENCE DTSBS413 +02033 ELSE DTSBS413 +02034 PERFORM DTSBS413 +02035 UNTIL L910-NO-REC-88 DTSBS413 +02036 MOVE MSKL-REC TO MREL-REC DTSBS413 +02037 IF MREL-REL-REC-VOID-88 DTSBS413 +02038 OR MREL-REL-REC-TRNSF-88 DTSBS413 +02039 NEXT SENTENCE DTSBS413 +02040 ELSE DTSBS413 +02041 IF MREL-EXP-TRNSF-YES-88 DTSBS413 +02042 PERFORM P3010-WRITE-X131 THRU P3010-EXIT DTSBS413 +02043 END-IF DTSBS413 +02044 END-IF DTSBS413 +02045 PERFORM S910D-READ-NEXT THRU S910D-EXIT DTSBS413 +02046 END-PERFORM DTSBS413 +02047 END-IF. DTSBS413 +02048 P3000-EXIT. DTSBS413 +02049 EXIT. DTSBS413 +02050 DTSBS413 +02051 P3010-WRITE-X131. DTSBS413 +02052 MOVE MPRF-EMP-NO TO X131-SUCC-EMP-NO. DTSBS413 +02053 DTSBS413 +02054 MOVE MREL-EFF-DATE TO L001-FED-8-DATE-9. DTSBS413 +02055 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBS413 +02056 MOVE L001-SLASH-8-DATE TO X131-EFF-DATE. DTSBS413 +02057 DTSBS413 +02058 MOVE MREL-PRED-EMP-NO TO X131-PRED-EMP-NO. DTSBS413 +02059 DTSBS413 +02060 WRITE EMPLOYER-TEMP-REC FROM WRK-X131-REC DTSBS413 +02061 IF TEMP-STATUS-OK-88 DTSBS413 +02062 ADD +1 TO TEMP-CNT DTSBS413 +02063 ELSE DTSBS413 +02064 DISPLAY 'CANNOT WRITE TEMP X131 ' MPRF-EMP-NO DTSBS413 +02065 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +02066 END-IF. DTSBS413 +02067 DTSBS413 +02068 P3010-EXIT. DTSBS413 +02069 EXIT. DTSBS413 +02070 DTSBS413 +02071 DTSBS413 +02072 P3200-DETERM. CL**2 +02073 MOVE LOW-VALUES TO MSOL-REC. CL**2 +02074 MOVE MPRF-EMP-NO TO MSOL-EMP-NO. CL**2 +02075 SET MSOL-SOL-88 TO TRUE. CL**2 +02076 MOVE MSOL-KEY-AREA TO MSKL-KEY-AREA. CL**2 +02077 PERFORM S910C-START-BROWSE THRU S910C-EXIT. CL**2 +02078 CL**2 +02079 PERFORM CL**2 +02080 UNTIL L910-NO-REC-88 CL**2 +02081 MOVE MSKL-REC TO MSOL-REC CL**2 +02082 IF NOT MSOL-INACT-WITHDRAWN-88 CL**2 +02083 PERFORM P3210-BUILD-X104 THRU P3210-EXIT CL**2 +02084 END-IF CL**2 +02085 PERFORM S910D-READ-NEXT THRU S910D-EXIT CL**2 +02086 END-PERFORM. CL**2 +02087 CL**2 +02088 P3200-EXIT. CL**2 +02089 EXIT. CL**2 +02090 CL**2 +02091 P3210-BUILD-X104. CL**2 +02092 MOVE MPRF-EMP-NO TO X104-EMP-NO. CL**2 +02093 CL**2 +02094 SET X104-STAFF-REVIEW-NO-88 TO TRUE. CL**2 +02095 CL**2 +02096 EVALUATE TRUE CL**2 +02097 WHEN MSOL-LIAB-RATED-REG-88 CL**2 +02098 SET X104-ELIG-RATED-88 TO TRUE CL**2 +02099 CL**2 +02100 WHEN MSOL-LIAB-RATED-SUCC-88 CL**2 +02101 OR MSOL-LIAB-RATED-FUTA-88 CL**2 +02102 OR MSOL-LIAB-RATED-VOLUNT-88 CL**2 +02103 OR MSOL-LIAB-RATED-OTH-88 CL**2 +02104 OR MSOL-LIAB-RATED-CONV-88 CL**2 +02105 OR MSOL-LIAB-RATED-UNK-88 CL**2 +02106 SET MSOL-LIAB-RATED-REG-88 TO TRUE CL**2 +02107 SET X104-ELIG-RATED-88 TO TRUE CL**2 +02108 CL**2 +02109 WHEN MSOL-LIAB-RATED-DOMESTIC-88 CL**2 +02110 SET X104-ELIG-RATED-88 TO TRUE CL**2 +02111 CL**2 +02112 WHEN MSOL-LIAB-SELF-INS-OTH-88 CL**2 +02113 OR MSOL-LIAB-SELF-INS-CONV-88 CL**2 +02114 OR MSOL-LIAB-SELF-INS-UNK-88 CL**2 +02115 OR MSOL-LIAB-SELF-INS-VOLUNT-88 CL**2 +02116 SET MSOL-LIAB-SELF-INS-NON-PROF-88 TO TRUE CL**2 +02117 SET X104-ELIG-SELF-INS-88 TO TRUE CL**2 +02118 CL**2 +02119 WHEN MSOL-LIAB-SELF-INS-NON-PROF-88 CL**2 +02120 OR MSOL-LIAB-SELF-INS-SCHOOL-88 CL**2 +02121 OR MSOL-LIAB-SELF-INS-CITY-88 CL**2 +02122 OR MSOL-LIAB-SELF-INS-COUNTY-88 CL**2 +02123 OR MSOL-LIAB-SELF-INS-STATE-88 CL**2 +02124 OR MSOL-LIAB-SELF-INS-CHURCH-88 CL**2 +02125 SET X104-ELIG-SELF-INS-88 TO TRUE CL**2 +02126 END-EVALUATE. CL**2 +02127 CL**2 +02128 MOVE MSOL-LIAB-CD TO X104-LIAB-CD. CL**2 +02129 CL**2 +02130 MOVE MPRF-NAICS-CD TO X104-NAICS-CD. CL**2 +02131 CL**2 +02132 IF X104-ELIG-SELF-INS-88 CL**2 +02133 IF NOT MPRF-ORG-CORPORATION-88 CL**2 +02134 DISPLAY 'P3210 SI/ORG INCONSISTENT ' MPRF-EMP-NO CL**2 +02135 SET MPRF-ORG-CORPORATION-88 TO TRUE CL**2 +02136 END-IF CL**2 +02137 END-IF. CL**2 +02138 CL**2 +02139 MOVE MPRF-ORG-TYPE TO X104-ORG-TYPE. CL**2 +02140 CL**2 +02141 IF MSOL-LIAB-RATED-DOMESTIC-88 CL**2 +02142 PERFORM P3211-FILE-SCHED THRU P3211-EXIT CL**2 +02143 ELSE CL**2 +02144 MOVE SPACES TO X104-HOUSEHOLD-FILING CL**2 +02145 END-IF. CL**2 +02146 CL**2 +02147 MOVE SPACES TO X104-INCORP-STATE CL**2 +02148 X104-INCORP-DATE. CL**2 +02149 CL**2 +02150 IF MSOL-LIAB-RATED-DOMESTIC-88 CL**2 +02151 MOVE SPACES TO X104-FIRST-WAGE-DT CL**2 +02152 MOVE MSOL-FIRST-LIAB-YRQ TO L004-QTR-5-9 CL**2 +02153 PERFORM S004-FROM-5 THRU S004-EXIT CL**2 +02154 MOVE L004-SLASH-5-QTR TO X104-FIRST-500-QTR CL**2 +02155 ELSE CL**2 +02156 MOVE SPACES TO X104-FIRST-500-QTR CL**2 +02157 MOVE MSOL-LIAB-DATE TO L001-FED-8-DATE-9 CL**2 +02158 PERFORM S001-FROM-FED-8 THRU S001-EXIT CL**2 +02159 MOVE L001-SLASH-8-DATE TO X104-FIRST-WAGE-DT CL**2 +02160 END-IF. CL**2 +02161 CL**2 +02162 MOVE WRK-ACQUIRED-IND TO X104-ACQUIRE-IND. CL**2 +02163 MOVE WRK-MERGER-SPLIT-IND TO X104-MERGER-SPLIT-IND. CL**2 +02164 MOVE WRK-REORG-IND TO X104-REORG-IND. CL**2 +02165 SET X104-COMMON-OWN-NO-88 TO TRUE. CL**2 +02166 SET X104-SALE-TRANSFER-NO-88 TO TRUE. CL**2 +02167 SET X104-NOT-LIAB-NULL-88 TO TRUE. CL**2 +02168 CL**2 +02169 WRITE EMPLOYER-TEMP-REC FROM WRK-X104-REC. CL**2 +02170 IF TEMP-STATUS-OK-88 CL**2 +02171 ADD +1 TO TEMP-CNT CL**2 +02172 ELSE CL**2 +02173 DISPLAY 'CANNOT WRITE TEMP X104 ' MPRF-EMP-NO CL**2 +02174 SET WRK-ERROR-YES-88 TO TRUE CL**2 +02175 END-IF. CL**2 +02176 CL**2 +02177 P3210-EXIT. CL**2 +02178 EXIT. CL**2 +02179 CL**2 +02180 P3211-FILE-SCHED. CL**2 +02181 SET L410-MODE-INPUT-YRQ-88 TO TRUE CL**2 +02182 MOVE MPRF-EMP-NO TO L410-EMP-NO CL**2 +02183 MOVE WRK-CURR-QTR TO L410-YRQ CL**2 +02184 PERFORM S410-FILE-SCHED THRU S410-EXIT CL**2 +02185 IF L410-ANN-SCHED-88 CL**2 +02186 SET X104-HH-ANNUAL-88 TO TRUE CL**2 +02187 ELSE CL**2 +02188 SET X104-HH-QUARTERLY-88 TO TRUE CL**2 +02189 END-IF. CL**2 +02190 CL**2 +02191 P3211-EXIT. CL**2 +02192 EXIT. CL**2 +02193 DTSBS413 +02194 P3400-RATE. DTSBS413 +02195 IF NOT MPRF-CLASS-RATED-88 DTSBS413 +02196 GO TO P3400-EXIT DTSBS413 +02197 END-IF. DTSBS413 +02198 DTSBS413 +02199 MOVE LOW-VALUES TO MRTE-KEY-AREA. DTSBS413 +02200 MOVE MPRF-EMP-NO TO MRTE-EMP-NO. DTSBS413 +02201 MOVE WRK-RATE-YRQ-3 TO MRTE-EFF-YRQ. CL*30 +02202 SET MRTE-RTE-88 TO TRUE. DTSBS413 +02203 MOVE MRTE-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +02204 DTSBS413 +02205 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +02206 IF L910-NO-REC-88 DTSBS413 +02207 DISPLAY 'P3400 RATE MISSING ' MPRF-EMP-NO DTSBS413 +02208 SET WRK-SELECT-EMP-NO-88 TO TRUE DTSBS413 +02209 ELSE DTSBS413 +02210 PERFORM DTSBS413 +02211 UNTIL L910-NO-REC-88 DTSBS413 +02212 MOVE MSKL-REC TO MRTE-REC DTSBS413 +02213 PERFORM P3410-WRITE-X108 THRU P3410-EXIT DTSBS413 +02214 PERFORM S910D-READ-NEXT THRU S910D-EXIT CL*26 +02215 END-PERFORM DTSBS413 +02216 END-IF. DTSBS413 +02217 DTSBS413 +02218 P3400-EXIT. DTSBS413 +02219 EXIT. DTSBS413 +02220 DTSBS413 +02221 P3410-WRITE-X108. DTSBS413 +02222 MOVE MPRF-EMP-NO TO X108-EMP-NO. DTSBS413 +02223 DTSBS413 +02224 MOVE MRTE-EFF-YRQ TO L004-QTR-5-9. DTSBS413 +02225 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBS413 +02226 MOVE L004-SLASH-5-QTR TO X108-RATE-YEAR. DTSBS413 +02227 DTSBS413 +02228 COMPUTE MRTE-UI-RATE = (MRTE-UI-RATE * 100). DTSBS413 +02229 MOVE MRTE-UI-RATE TO X108-RATE. DTSBS413 +02230 DTSBS413 +02231 WRITE EMPLOYER-TEMP-REC FROM WRK-X108-REC. DTSBS413 +02232 IF TEMP-STATUS-OK-88 DTSBS413 +02233 ADD +1 TO TEMP-CNT DTSBS413 +02234 ELSE DTSBS413 +02235 DISPLAY 'CANNOT WRITE TEMP X108 ' MPRF-EMP-NO DTSBS413 +02236 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +02237 END-IF. DTSBS413 +02238 DTSBS413 +02239 P3410-EXIT. DTSBS413 +02240 EXIT. DTSBS413 +02241 DTSBS413 +02242 P3600-REPORT. DTSBS413 +02243 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSBS413 +02244 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBS413 +02245 SET MRPT-RPT-88 TO TRUE. DTSBS413 +02246 MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +02247 DTSBS413 +02248 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +02249 PERFORM UNTIL L910-NO-REC-88 DTSBS413 +02250 MOVE MSKL-REC TO MRPT-REC DTSBS413 +02251 IF NOT MRPT-ESTIM-88 DTSBS413 +02252 PERFORM P3620-RECENT-REPORT THRU P3620-EXIT DTSBS413 +02253 END-IF DTSBS413 +02254 PERFORM S910D-READ-NEXT THRU S910D-EXIT DTSBS413 +02255 END-PERFORM. DTSBS413 +02256 DTSBS413 +02257 PERFORM P3630-LAST-REPORT THRU P3630-EXIT. DTSBS413 +02258 DTSBS413 +02259 P3600-EXIT. DTSBS413 +02260 EXIT. DTSBS413 +02261 CL**2 +02262 P3610-WRITE-X140. CL**2 +02263 MOVE MPRF-EMP-NO TO X140-EMP-NO. CL**2 +02264 CL**2 +02265 MOVE MRPT-YRQ TO L004-QTR-5-9. CL**2 +02266 PERFORM S004-FROM-5 THRU S004-EXIT. CL**2 +02267 MOVE L004-SLASH-5-QTR TO X140-QUARTER. CL**2 +02268 MOVE MRPT-RPT-TYPE TO X140-REPORT-TYPE. CL*10 +02269 MOVE MRPT-TOT-WAGE TO X140-TOTAL-WAGES. CL**2 +02270 MOVE MRPT-TAX-WAGE TO X140-TAX-WAGES. CL**2 +02271 MOVE MRPT-REMIT-AMT TO X140-REMITTANCE. CL**2 +02272 MOVE MRPT-RECEIVED-DATE TO L001-FED-8-DATE-9. CL**2 +02273 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL**2 +02274 MOVE L001-SLASH-8-DATE TO X140-RCVD-DATE. CL**2 +02275 MOVE MRPT-1ST-MTH-EMPL-CNT TO X140-WRKR-CNT-1ST-MNTH. CL**2 +02276 MOVE MRPT-2ND-MTH-EMPL-CNT TO X140-WRKR-CNT-2ND-MNTH. CL**2 +02277 MOVE MRPT-3RD-MTH-EMPL-CNT TO X140-WRKR-CNT-3RD-MNTH. CL**2 +02278 CL**2 +02279 WRITE EMPLOYER-TEMP-REC FROM WRK-X140-REC. CL**2 +02280 IF TEMP-STATUS-OK-88 CL**2 +02281 ADD +1 TO TEMP-CNT CL**2 +02282 ELSE CL**2 +02283 DISPLAY 'CANNOT WRITE TEMP X140 ' MPRF-EMP-NO CL**2 +02284 SET WRK-ERROR-YES-88 TO TRUE CL**2 +02285 END-IF. CL**2 +02286 CL**2 +02287 P3610-EXIT. CL**2 +02288 EXIT. CL**2 +02289 DTSBS413 +02290 P3620-RECENT-REPORT. DTSBS413 +02291 MOVE MRPT-YRQ TO L004-QTR-5-9. DTSBS413 +02292 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBS413 +02293 MOVE L004-ABS-QTR TO RSUB. DTSBS413 +02294 DTSBS413 +02295 IF MRPT-ESTB-DATE > RPT-PROCESS-DATE (RSUB) DTSBS413 +02296 MOVE MRPT-YRQ TO RPT-YRQ (RSUB) DTSBS413 +02297 MOVE MRPT-RPT-TYPE TO RPT-TYPE (RSUB) DTSBS413 +02298 MOVE MRPT-RECEIVED-DATE TO RPT-RCVD-DATE (RSUB) DTSBS413 +02299 MOVE MRPT-ESTB-DATE TO RPT-PROCESS-DATE (RSUB) DTSBS413 +02300 END-IF. DTSBS413 +02301 DTSBS413 +02302 P3620-EXIT. DTSBS413 +02303 EXIT. DTSBS413 +02304 DTSBS413 +02305 P3630-LAST-REPORT. DTSBS413 +02306 PERFORM DTSBS413 +02307 VARYING RSUB FROM +1 BY +1 DTSBS413 +02308 UNTIL RSUB > RPT-MAX DTSBS413 +02309 IF RPT-PROCESS-DATE (RSUB) > MAX-RPT-DATE DTSBS413 +02310 IF RPT-TYPE (RSUB) NOT = 'WD' DTSBS413 +02311 MOVE RPT-YRQ (RSUB) TO MAX-RPT-YRQ DTSBS413 +02312 MOVE RPT-PROCESS-DATE (RSUB) TO MAX-RPT-DATE DTSBS413 +02313 MOVE RPT-TYPE (RSUB) TO MAX-RPT-TYPE DTSBS413 +02314 END-IF DTSBS413 +02315 END-IF DTSBS413 +02316 END-PERFORM. DTSBS413 +02317 DTSBS413 +02318 IF MAX-RPT-DATE NOT = ZERO DTSBS413 +02319 MOVE MPRF-EMP-NO TO X142-EMP-NO DTSBS413 +02320 MOVE MAX-RPT-YRQ TO L004-QTR-5-9 DTSBS413 +02321 MOVE L004-QTR-5-YR TO X142-REPORT-YEAR DTSBS413 +02322 MOVE L004-QTR-5-Q TO X142-REPORT-QTR DTSBS413 +02323 MOVE MAX-RPT-DATE TO L001-FED-8-DATE-9 DTSBS413 +02324 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBS413 +02325 MOVE L001-SLASH-8-DATE TO X142-REPORT-DATE DTSBS413 +02326 IF MAX-RPT-TYPE = 'OR' DTSBS413 +02327 SET X142-RPT-TYPE-ORIG-88 TO TRUE DTSBS413 +02328 ELSE DTSBS413 +02329 SET X142-RPT-TYPE-AMND-88 TO TRUE DTSBS413 +02330 END-IF DTSBS413 +02331 END-IF. DTSBS413 +02332 DTSBS413 +02333 P3630-EXIT. DTSBS413 +02334 EXIT. DTSBS413 +02335 DTSBS413 +02336 P3700-QTRS-DUE. DTSBS413 +02337 SET WRK-CURR-QTR-NO-88 TO TRUE. DTSBS413 +02338 SET WRK-PRIOR-QTR-NO-88 TO TRUE. DTSBS413 +02339 DTSBS413 +02340 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBS413 +02341 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBS413 +02342 SET MQTR-QTR-88 TO TRUE. DTSBS413 +02343 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +02344 DTSBS413 +02345 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +02346 PERFORM UNTIL L910-NO-REC-88 DTSBS413 +02347 MOVE MSKL-REC TO MQTR-REC DTSBS413 +02348 IF MQTR-YRQ > WRK-CURR-QTR-MINUS-8 DTSBS413 +02349 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBS413 +02350 PERFORM P3705-HOUSEHOLD THRU P3705-EXIT DTSBS413 +02351 ELSE DTSBS413 +02352 PERFORM P3710-WRITE-X141 THRU P3710-EXIT DTSBS413 +02353 END-IF DTSBS413 +02354 END-IF DTSBS413 +02355 IF L910-OK-88 DTSBS413 +02356 PERFORM S910D-READ-NEXT THRU S910D-EXIT DTSBS413 +02357 END-IF DTSBS413 +02358 END-PERFORM. DTSBS413 +02359 DTSBS413 +02360 PERFORM P3720-CURR-QUARTERS THRU P3720-EXIT. DTSBS413 +02361 DTSBS413 +02362 P3700-EXIT. DTSBS413 +02363 EXIT. DTSBS413 +02364 DTSBS413 +02365 P3705-HOUSEHOLD. DTSBS413 +02366 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBS413 +02367 DTSBS413 +02368 MOVE 1 TO L004-QTR-5-Q. DTSBS413 +02369 MOVE L004-QTR-5-9 TO L516-YRQ DTSBS413 +02370 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02371 IF L516-ANN-SCHED-88 DTSBS413 +02372 NEXT SENTENCE DTSBS413 +02373 ELSE DTSBS413 +02374 SET WRK-FILE-QTRLY-88 TO TRUE DTSBS413 +02375 PERFORM P3710-WRITE-X141 THRU P3710-EXIT DTSBS413 +02376 END-IF. DTSBS413 +02377 DTSBS413 +02378 IF L516-LIABLE-88 DTSBS413 +02379 SET WRK-FILE-ANN-LIAB-88 TO TRUE DTSBS413 +02380 ELSE DTSBS413 +02381 SET WRK-FILE-ANN-NOT-LIAB-88 TO TRUE DTSBS413 +02382 END-IF. DTSBS413 +02383 DTSBS413 +02384 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBS413 +02385 MOVE MQTR-REC TO MSKL-REC. DTSBS413 +02386 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +02387 IF L910-OK-88 DTSBS413 +02388 MOVE MSKL-REC TO MQTR-REC DTSBS413 +02389 PERFORM P3710-WRITE-X141 THRU P3710-EXIT DTSBS413 +02390 END-IF. DTSBS413 +02391 DTSBS413 +02392 MOVE 2 TO L004-QTR-5-Q. DTSBS413 +02393 MOVE L004-QTR-5-9 TO L516-YRQ DTSBS413 +02394 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02395 IF L516-LIABLE-88 DTSBS413 +02396 SET WRK-FILE-ANN-LIAB-88 TO TRUE DTSBS413 +02397 ELSE DTSBS413 +02398 SET WRK-FILE-ANN-NOT-LIAB-88 TO TRUE DTSBS413 +02399 END-IF. DTSBS413 +02400 DTSBS413 +02401 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBS413 +02402 MOVE MQTR-REC TO MSKL-REC. DTSBS413 +02403 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +02404 IF L910-OK-88 DTSBS413 +02405 MOVE MSKL-REC TO MQTR-REC DTSBS413 +02406 PERFORM P3710-WRITE-X141 THRU P3710-EXIT DTSBS413 +02407 END-IF. DTSBS413 +02408 DTSBS413 +02409 MOVE 3 TO L004-QTR-5-Q. DTSBS413 +02410 MOVE L004-QTR-5-9 TO L516-YRQ DTSBS413 +02411 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02412 IF L516-LIABLE-88 DTSBS413 +02413 SET WRK-FILE-ANN-LIAB-88 TO TRUE DTSBS413 +02414 ELSE DTSBS413 +02415 SET WRK-FILE-ANN-NOT-LIAB-88 TO TRUE DTSBS413 +02416 END-IF. DTSBS413 +02417 DTSBS413 +02418 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBS413 +02419 MOVE MQTR-REC TO MSKL-REC. DTSBS413 +02420 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +02421 IF L910-OK-88 DTSBS413 +02422 MOVE MSKL-REC TO MQTR-REC DTSBS413 +02423 PERFORM P3710-WRITE-X141 THRU P3710-EXIT DTSBS413 +02424 END-IF. DTSBS413 +02425 DTSBS413 +02426 MOVE 4 TO L004-QTR-5-Q. DTSBS413 +02427 MOVE L004-QTR-5-9 TO L516-YRQ DTSBS413 +02428 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02429 IF L516-LIABLE-88 DTSBS413 +02430 SET WRK-FILE-ANN-LIAB-88 TO TRUE DTSBS413 +02431 ELSE DTSBS413 +02432 SET WRK-FILE-ANN-NOT-LIAB-88 TO TRUE DTSBS413 +02433 END-IF. DTSBS413 +02434 DTSBS413 +02435 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBS413 +02436 MOVE MQTR-REC TO MSKL-REC. DTSBS413 +02437 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +02438 IF L910-OK-88 DTSBS413 +02439 MOVE MSKL-REC TO MQTR-REC DTSBS413 +02440 PERFORM P3710-WRITE-X141 THRU P3710-EXIT DTSBS413 +02441 END-IF. DTSBS413 +02442 DTSBS413 +02443 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBS413 +02444 MOVE MQTR-REC TO MSKL-REC. DTSBS413 +02445 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +02446 DTSBS413 +02447 P3705-EXIT. DTSBS413 +02448 EXIT. DTSBS413 +02449 DTSBS413 +02450 P3710-WRITE-X141. DTSBS413 +02451 IF MQTR-YRQ = WRK-PRIOR-QTR DTSBS413 +02452 SET WRK-PRIOR-QTR-YES-88 TO TRUE DTSBS413 +02453 ELSE DTSBS413 +02454 IF MQTR-YRQ = WRK-CURR-QTR DTSBS413 +02455 SET WRK-CURR-QTR-YES-88 TO TRUE DTSBS413 +02456 END-IF DTSBS413 +02457 END-IF. DTSBS413 +02458 DTSBS413 +02459 MOVE ZERO TO DTSBS413 +02460 WRK-TAX-BAL DTSBS413 +02461 WRK-SUR-BAL DTSBS413 +02462 WRK-INT-BAL DTSBS413 +02463 WRK-PEN-BAL. DTSBS413 +02464 DTSBS413 +02465 MOVE MPRF-EMP-NO TO X141-EMP-NO. DTSBS413 +02466 DTSBS413 +02467 MOVE MQTR-YRQ TO L004-QTR-5-9. DTSBS413 +02468 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBS413 +02469 MOVE L004-SLASH-5-QTR TO X141-QUARTER. DTSBS413 +02470 DTSBS413 +02471 EVALUATE TRUE DTSBS413 +02472 WHEN MQTR-CURR-RCVD-88 DTSBS413 +02473 SET X141-QTR-RECEIVED-88 TO TRUE DTSBS413 +02474 WHEN MQTR-CURR-MISSING-88 DTSBS413 +02475 SET X141-QTR-DELINQUENT-88 TO TRUE DTSBS413 +02476 WHEN MQTR-CURR-NOT-LIABLE-88 DTSBS413 +02477 SET X141-QTR-NOT-LIABLE-88 TO TRUE DTSBS413 +02478 WHEN OTHER DTSBS413 +02479 SET X141-QTR-CURRENT-88 TO TRUE DTSBS413 +02480 END-EVALUATE. DTSBS413 +02481 DTSBS413 +02482 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBS413 +02483 MOVE WRK-FILING-SCHED TO X141-FILING-SCHEDULE DTSBS413 +02484 ELSE DTSBS413 +02485 SET X141-FILE-QTRLY-88 TO TRUE DTSBS413 +02486 END-IF. DTSBS413 +02487 DTSBS413 +02488 IF MQTR-NO-UI-RATE-88 DTSBS413 +02489 MOVE ZERO TO X141-RATE DTSBS413 +02490 ELSE DTSBS413 +02491 COMPUTE WRK-UI-RATE = (MQTR-UI-RATE * 100) DTSBS413 +02492 MOVE WRK-UI-RATE TO X141-RATE DTSBS413 +02493 END-IF. DTSBS413 +02494 DTSBS413 +02495 PERFORM P3711-BALANCES THRU P3711-EXIT. DTSBS413 +02496 MOVE WRK-TAX-BAL TO X141-UI-TAX-BAL. DTSBS413 +02497 MOVE WRK-SUR-BAL TO X141-SUR-BAL. DTSBS413 +02498 MOVE WRK-INT-BAL TO X141-INT-BAL. DTSBS413 +02499 MOVE WRK-PEN-BAL TO X141-PEN-BAL. DTSBS413 +02500 DTSBS413 +02501 MOVE MQTR-RPT-DUE-DATE TO L001-FED-8-DATE-9. DTSBS413 +02502 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBS413 +02503 MOVE L001-SLASH-8-DATE TO X141-REPORT-DUE-DATE. DTSBS413 +02504 DTSBS413 +02505 MOVE MQTR-TAX-DUE-DATE TO L001-FED-8-DATE-9. DTSBS413 +02506 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBS413 +02507 MOVE L001-SLASH-8-DATE TO X141-TAX-DUE-DATE. DTSBS413 +02508 DTSBS413 +02509 DTSBS413 +02510 WRITE EMPLOYER-TEMP-REC FROM WRK-X141-REC. DTSBS413 +02511 IF TEMP-STATUS-OK-88 DTSBS413 +02512 ADD +1 TO TEMP-CNT DTSBS413 +02513 ELSE DTSBS413 +02514 DISPLAY 'CANNOT WRITE TEMP X141 ' MPRF-EMP-NO DTSBS413 +02515 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +02516 END-IF. DTSBS413 +02517 DTSBS413 +02518 P3710-EXIT. DTSBS413 +02519 EXIT. DTSBS413 +02520 DTSBS413 +02521 P3711-BALANCES. DTSBS413 +02522 PERFORM DTSBS413 +02523 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSBS413 +02524 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBS413 +02525 EVALUATE TRUE DTSBS413 +02526 WHEN MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBS413 +02527 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBS413 +02528 TO WRK-TAX-BAL DTSBS413 +02529 DTSBS413 +02530 WHEN MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBS413 +02531 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBS413 +02532 TO WRK-SUR-BAL DTSBS413 +02533 DTSBS413 +02534 WHEN MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSBS413 +02535 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBS413 +02536 TO WRK-PEN-BAL DTSBS413 +02537 DTSBS413 +02538 WHEN MQTR-ACCT-MISC-PEN-88 (MQTR-ACCT-IDX) DTSBS413 +02539 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBS413 +02540 TO WRK-PEN-BAL DTSBS413 +02541 DTSBS413 +02542 WHEN MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX) DTSBS413 +02543 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBS413 +02544 TO WRK-PEN-BAL DTSBS413 +02545 DTSBS413 +02546 WHEN MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBS413 +02547 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBS413 +02548 TO WRK-INT-BAL DTSBS413 +02549 DTSBS413 +02550 END-EVALUATE DTSBS413 +02551 END-PERFORM. DTSBS413 +02552 DTSBS413 +02553 P3711-EXIT. DTSBS413 +02554 EXIT. DTSBS413 +02555 DTSBS413 +02556 DTSBS413 +02557 P3720-CURR-QUARTERS. DTSBS413 +02558 MOVE ZERO TO WRK-ANN-YEAR. DTSBS413 +02559 DTSBS413 +02560 IF WRK-PRIOR-QTR-NO-88 DTSBS413 +02561 MOVE WRK-PRIOR-QTR TO L516-YRQ DTSBS413 +02562 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02563 IF L516-LIABLE-88 DTSBS413 +02564 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBS413 +02565 PERFORM P3722-BUILD-HH THRU P3722-EXIT DTSBS413 +02566 ELSE DTSBS413 +02567 PERFORM P3721-BUILD-QTR THRU P3721-EXIT DTSBS413 +02568 END-IF DTSBS413 +02569 END-IF DTSBS413 +02570 END-IF. DTSBS413 +02571 DTSBS413 +02572 IF MPRF-STATUS-INACT-88 DTSBS413 +02573 IF WRK-INACT-DATE > WRK-CURR-QTR-START DTSBS413 +02574 IF WRK-CURR-QTR-NO-88 DTSBS413 +02575 MOVE WRK-CURR-QTR TO L516-YRQ DTSBS413 +02576 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02577 IF L516-LIABLE-88 DTSBS413 +02578 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBS413 +02579 DISPLAY 'P3720 INACT HH ' MPRF-EMP-NO DTSBS413 +02580 PERFORM P3722-BUILD-HH THRU P3722-EXIT DTSBS413 +02581 ELSE DTSBS413 +02582 PERFORM P3721-BUILD-QTR THRU P3721-EXIT DTSBS413 +02583 END-IF DTSBS413 +02584 END-IF DTSBS413 +02585 END-IF DTSBS413 +02586 END-IF DTSBS413 +02587 END-IF. DTSBS413 +02588 DTSBS413 +02589 DTSBS413 +02590 P3720-EXIT. DTSBS413 +02591 EXIT. DTSBS413 +02592 DTSBS413 +02593 P3721-BUILD-QTR. DTSBS413 +02594 MOVE MPRF-EMP-NO TO X141-EMP-NO. DTSBS413 +02595 DTSBS413 +02596 MOVE L516-YRQ TO L004-QTR-5-9. DTSBS413 +02597 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBS413 +02598 MOVE L004-SLASH-5-QTR TO X141-QUARTER. DTSBS413 +02599 DTSBS413 +02600 SET X141-QTR-CURRENT-88 TO TRUE. DTSBS413 +02601 DTSBS413 +02602 IF MPRF-ORG-HSEHLD-DMSTIC-88 DTSBS413 +02603 MOVE WRK-FILING-SCHED TO X141-FILING-SCHEDULE DTSBS413 +02604 ELSE DTSBS413 +02605 SET X141-FILE-QTRLY-88 TO TRUE DTSBS413 +02606 END-IF. DTSBS413 +02607 DTSBS413 +02608 MOVE ZERO TO X141-UI-TAX-BAL DTSBS413 +02609 X141-SUR-BAL DTSBS413 +02610 X141-INT-BAL DTSBS413 +02611 X141-PEN-BAL. DTSBS413 +02612 DTSBS413 +02613 MOVE L516-DEFAULT-RPT-DUE-DATE TO L001-FED-8-DATE-9. DTSBS413 +02614 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBS413 +02615 MOVE L001-SLASH-8-DATE TO X141-REPORT-DUE-DATE. DTSBS413 +02616 DTSBS413 +02617 MOVE L516-DEFAULT-TAX-DUE-DATE TO L001-FED-8-DATE-9. DTSBS413 +02618 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBS413 +02619 MOVE L001-SLASH-8-DATE TO X141-TAX-DUE-DATE. DTSBS413 +02620 DTSBS413 +02621 WRITE EMPLOYER-TEMP-REC FROM WRK-X141-REC. DTSBS413 +02622 IF TEMP-STATUS-OK-88 DTSBS413 +02623 ADD +1 TO TEMP-CNT DTSBS413 +02624 ELSE DTSBS413 +02625 DISPLAY 'CANNOT WRITE TEMP X141 ' MPRF-EMP-NO DTSBS413 +02626 SET WRK-ERROR-YES-88 TO TRUE DTSBS413 +02627 END-IF. DTSBS413 +02628 DTSBS413 +02629 P3721-EXIT. DTSBS413 +02630 EXIT. DTSBS413 +02631 DTSBS413 +02632 P3722-BUILD-HH. DTSBS413 +02633 MOVE L516-YRQ TO L004-QTR-5-9. DTSBS413 +02634 IF L004-QTR-5-YR = WRK-ANN-YEAR DTSBS413 +02635 GO TO P3722-EXIT DTSBS413 +02636 END-IF. DTSBS413 +02637 DTSBS413 +02638 IF MPRF-STATUS-INACT-88 DTSBS413 +02639 NEXT SENTENCE DTSBS413 +02640 ELSE DTSBS413 +02641 MOVE L516-DEFAULT-RPT-DUE-DATE TO L001-FED-8-DATE-9 DTSBS413 +02642 MOVE 01 TO L001-FED-8-MO DTSBS413 +02643 MOVE 01 TO L001-FED-8-DA DTSBS413 +02644 IF WRK-CURR-RUN-DATE < L001-FED-8-DATE-9 DTSBS413 +02645 ** REPORT CAN NOT YET BE FILED ** DTSBS413 +02646 GO TO P3722-EXIT DTSBS413 +02647 END-IF DTSBS413 +02648 END-IF. DTSBS413 +02649 DTSBS413 +02650 MOVE L516-YRQ TO L004-QTR-5-9. DTSBS413 +02651 MOVE L004-QTR-5-YR TO WRK-ANN-YEAR. DTSBS413 +02652 DTSBS413 +02653 MOVE 1 TO L004-QTR-5-Q. DTSBS413 +02654 MOVE L004-QTR-5-9 TO L516-YRQ DTSBS413 +02655 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02656 IF L516-ANN-SCHED-88 DTSBS413 +02657 NEXT SENTENCE DTSBS413 +02658 ELSE DTSBS413 +02659 SET WRK-FILE-QTRLY-88 TO TRUE DTSBS413 +02660 PERFORM P3721-BUILD-QTR THRU P3721-EXIT DTSBS413 +02661 END-IF. DTSBS413 +02662 DTSBS413 +02663 IF L516-LIABLE-88 DTSBS413 +02664 SET WRK-FILE-ANN-LIAB-88 TO TRUE DTSBS413 +02665 ELSE DTSBS413 +02666 SET WRK-FILE-ANN-NOT-LIAB-88 TO TRUE DTSBS413 +02667 END-IF. DTSBS413 +02668 DTSBS413 +02669 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBS413 +02670 MOVE MQTR-REC TO MSKL-REC. DTSBS413 +02671 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +02672 IF L910-OK-88 DTSBS413 +02673 NEXT SENTENCE DTSBS413 +02674 ELSE DTSBS413 +02675 MOVE MSKL-REC TO MQTR-REC DTSBS413 +02676 PERFORM P3721-BUILD-QTR THRU P3721-EXIT DTSBS413 +02677 END-IF. DTSBS413 +02678 DTSBS413 +02679 MOVE 2 TO L004-QTR-5-Q. DTSBS413 +02680 MOVE L004-QTR-5-9 TO L516-YRQ DTSBS413 +02681 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02682 IF L516-LIABLE-88 DTSBS413 +02683 SET WRK-FILE-ANN-LIAB-88 TO TRUE DTSBS413 +02684 ELSE DTSBS413 +02685 SET WRK-FILE-ANN-NOT-LIAB-88 TO TRUE DTSBS413 +02686 END-IF. DTSBS413 +02687 DTSBS413 +02688 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBS413 +02689 MOVE MQTR-REC TO MSKL-REC. DTSBS413 +02690 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +02691 IF L910-OK-88 DTSBS413 +02692 NEXT SENTENCE DTSBS413 +02693 ELSE DTSBS413 +02694 MOVE MSKL-REC TO MQTR-REC DTSBS413 +02695 PERFORM P3721-BUILD-QTR THRU P3721-EXIT DTSBS413 +02696 END-IF. DTSBS413 +02697 DTSBS413 +02698 MOVE 3 TO L004-QTR-5-Q. DTSBS413 +02699 MOVE L004-QTR-5-9 TO L516-YRQ DTSBS413 +02700 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02701 IF L516-LIABLE-88 DTSBS413 +02702 SET WRK-FILE-ANN-LIAB-88 TO TRUE DTSBS413 +02703 ELSE DTSBS413 +02704 SET WRK-FILE-ANN-NOT-LIAB-88 TO TRUE DTSBS413 +02705 END-IF. DTSBS413 +02706 DTSBS413 +02707 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBS413 +02708 MOVE MQTR-REC TO MSKL-REC. DTSBS413 +02709 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +02710 IF L910-OK-88 DTSBS413 +02711 NEXT SENTENCE DTSBS413 +02712 ELSE DTSBS413 +02713 MOVE MSKL-REC TO MQTR-REC DTSBS413 +02714 PERFORM P3721-BUILD-QTR THRU P3721-EXIT DTSBS413 +02715 END-IF. DTSBS413 +02716 DTSBS413 +02717 MOVE 4 TO L004-QTR-5-Q. DTSBS413 +02718 MOVE L004-QTR-5-9 TO L516-YRQ DTSBS413 +02719 PERFORM S516-LIABILITY THRU S516-EXIT DTSBS413 +02720 IF L516-LIABLE-88 DTSBS413 +02721 SET WRK-FILE-ANN-LIAB-88 TO TRUE DTSBS413 +02722 ELSE DTSBS413 +02723 SET WRK-FILE-ANN-NOT-LIAB-88 TO TRUE DTSBS413 +02724 END-IF. DTSBS413 +02725 DTSBS413 +02726 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBS413 +02727 MOVE MQTR-REC TO MSKL-REC. DTSBS413 +02728 PERFORM S910B-READ THRU S910B-EXIT. DTSBS413 +02729 IF L910-OK-88 DTSBS413 +02730 NEXT SENTENCE DTSBS413 +02731 ELSE DTSBS413 +02732 MOVE MSKL-REC TO MQTR-REC DTSBS413 +02733 PERFORM P3721-BUILD-QTR THRU P3721-EXIT DTSBS413 +02734 END-IF. DTSBS413 +02735 DTSBS413 +02736 P3722-EXIT. DTSBS413 +02737 EXIT. DTSBS413 +02738 DTSBS413 +02739 P3750-REPORTS. CL**2 +02740 MOVE LOW-VALUES TO MRPT-KEY-AREA. CL**2 +02741 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. CL**2 +02742 MOVE MQTR-YRQ TO MRPT-YRQ. CL**2 +02743 SET MRPT-RPT-88 TO TRUE. CL**2 +02744 MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA. CL**2 +02745 CL**2 +02746 PERFORM S910C-START-BROWSE THRU S910C-EXIT. CL**2 +02747 IF L910-NO-REC-88 CL**2 +02748 NEXT SENTENCE CL**2 +02749 ELSE CL**2 +02750 PERFORM CL**2 +02751 UNTIL L910-NO-REC-88 CL**2 +02752 MOVE MSKL-REC TO MRPT-REC CL**2 +02753 PERFORM P3751-WRITE-X140 THRU P3751-EXIT CL**2 +02754 PERFORM S910D-READ-NEXT THRU S910D-EXIT CL**2 +02755 END-PERFORM CL**2 +02756 END-IF. CL**2 +02757 CL**2 +02758 P3750-EXIT. CL**2 +02759 EXIT. CL**2 +02760 CL**2 +02761 P3751-WRITE-X140. CL**2 +02762 MOVE MPRF-EMP-NO TO X140-EMP-NO. CL**2 +02763 CL**2 +02764 MOVE MRPT-YRQ TO L004-QTR-5-9. CL**2 +02765 PERFORM S004-FROM-5 THRU S004-EXIT. CL**2 +02766 MOVE L004-SLASH-5-QTR TO X140-QUARTER. CL**2 +02767 CL**2 +02768 MOVE MRPT-RPT-TYPE TO X140-REPORT-TYPE. CL*12 +02769 MOVE MRPT-TOT-WAGE TO X140-TOTAL-WAGES. CL**2 +02770 MOVE MRPT-TAX-WAGE TO X140-TAX-WAGES. CL**2 +02771 MOVE MRPT-REMIT-AMT TO X140-REMITTANCE. CL**2 +02772 MOVE MRPT-TRACE-NO TO X140-CONFIRMATION. CL**2 +02773 MOVE MRPT-RECEIVED-DATE TO L001-FED-8-DATE-9. CL**2 +02774 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL**2 +02775 MOVE L001-SLASH-8-DATE TO X140-RCVD-DATE. CL**2 +02776 MOVE MRPT-ESTB-DATE TO L001-FED-8-DATE-9. CL**2 +02777 PERFORM S001-FROM-FED-8 THRU S001-EXIT. CL**2 +02778 MOVE L001-SLASH-8-DATE TO X140-RCVD-DATE. CL*11 +02779 MOVE MRPT-1ST-MTH-EMPL-CNT TO X140-WRKR-CNT-1ST-MNTH. CL**2 +02780 MOVE MRPT-2ND-MTH-EMPL-CNT TO X140-WRKR-CNT-2ND-MNTH. CL**2 +02781 MOVE MRPT-3RD-MTH-EMPL-CNT TO X140-WRKR-CNT-3RD-MNTH. CL**2 +02782 CL**2 +02783 WRITE EMPLOYER-TEMP-REC FROM WRK-X140-REC. CL**2 +02784 IF TEMP-STATUS-OK-88 CL**2 +02785 ADD +1 TO TEMP-CNT CL**2 +02786 ELSE CL**2 +02787 DISPLAY 'CANNOT WRITE TEMP X140 ' MPRF-EMP-NO CL**2 +02788 SET WRK-ERROR-YES-88 TO TRUE CL**2 +02789 END-IF. CL**2 +02790 CL**2 +02791 P3751-EXIT. CL**2 +02792 EXIT. CL**2 +02793 DTSBS413 +02794 P3800-PAYMENT. DTSBS413 +02795 MOVE LOW-VALUES TO MPAY-KEY-AREA. DTSBS413 +02796 MOVE MPRF-EMP-NO TO MPAY-EMP-NO. DTSBS413 +02797 SET MPAY-PAY-88 TO TRUE. DTSBS413 +02798 MOVE MPAY-KEY-AREA TO MSKL-KEY-AREA. DTSBS413 +02799 DTSBS413 +02800 PERFORM S910C-START-BROWSE THRU S910C-EXIT. DTSBS413 +02801 PERFORM UNTIL L910-NO-REC-88 DTSBS413 +02802 MOVE MSKL-REC TO MPAY-REC DTSBS413 +02803 PERFORM P3820-RECENT-PAYMENT THRU P3820-EXIT DTSBS413 +02804 IF L910-OK-88 DTSBS413 +02805 PERFORM S910D-READ-NEXT THRU S910D-EXIT DTSBS413 +02806 END-IF DTSBS413 +02807 END-PERFORM. DTSBS413 +02808 DTSBS413 +02809 IF PAY-LAST > ZERO DTSBS413 +02810 PERFORM P3830-UPDATE-X142 THRU P3830-EXIT DTSBS413 +02811 END-IF. DTSBS413 +02812 DTSBS413 +02813 P3800-EXIT. DTSBS413 +02814 EXIT. DTSBS413 +02815 DTSBS413 +02816 P3820-RECENT-PAYMENT. DTSBS413 +02817 IF MPAY-APPLIC-BATCH-NO = ZERO DTSBS413 +02818 AND MPAY-PAYMENT-88 DTSBS413 +02819 PERFORM P3821-PAYMENTS THRU P3821-EXIT DTSBS413 +02820 ELSE DTSBS413 +02821 PERFORM P3822-ADJUSTMENTS THRU P3822-EXIT DTSBS413 +02822 END-IF. DTSBS413 +02823 DTSBS413 +02824 P3820-EXIT. DTSBS413 +02825 EXIT. DTSBS413 +02826 DTSBS413 +02827 P3821-PAYMENTS. DTSBS413 +02828 IF PAY-LAST < PAY-MAX DTSBS413 +02829 ADD +1 TO PAY-LAST DTSBS413 +02830 MOVE PAY-LAST TO PSUB DTSBS413 +02831 ELSE DTSBS413 +02832 DISPLAY 'P3821 PAY TABLE LENGTH EXCEEDED' DTSBS413 +02833 GO TO P3821-EXIT DTSBS413 +02834 END-IF. DTSBS413 +02835 DTSBS413 +02836 MOVE MPAY-BATCH-NO TO PAY-BATCH (PSUB). DTSBS413 +02837 MOVE MPAY-ITEM-NO TO PAY-ITEM (PSUB). DTSBS413 +02838 MOVE MPAY-ESTB-DATE TO PAY-PROCESS-DATE (PSUB). DTSBS413 +02839 MOVE MPAY-RECEIVED-DATE TO PAY-RCVD-DATE (PSUB). DTSBS413 +02840 MOVE MPAY-REMIT-AMT TO PAY-ORIG-AMT (PSUB) DTSBS413 +02841 PAY-ADJ-AMT (PSUB). DTSBS413 +02842 DTSBS413 +02843 P3821-EXIT. DTSBS413 +02844 EXIT. DTSBS413 +02845 DTSBS413 +02846 P3822-ADJUSTMENTS. DTSBS413 +02847 PERFORM DTSBS413 +02848 VARYING PSUB FROM +1 BY +1 DTSBS413 +02849 UNTIL PSUB > PAY-LAST DTSBS413 +02850 IF MPAY-APPLIC-BATCH-NO = PAY-BATCH (PSUB) DTSBS413 +02851 AND MPAY-APPLIC-ITEM-NO = PAY-ITEM (PSUB) DTSBS413 +02852 ADD MPAY-REMIT-AMT TO PAY-ADJ-AMT (PSUB) DTSBS413 +02853 END-IF DTSBS413 +02854 END-PERFORM. DTSBS413 +02855 DTSBS413 +02856 P3822-EXIT. DTSBS413 +02857 EXIT. DTSBS413 +02858 DTSBS413 +02859 P3830-UPDATE-X142. DTSBS413 +02860 PERFORM DTSBS413 +02861 VARYING PSUB FROM +1 BY +1 DTSBS413 +02862 UNTIL PSUB > PAY-LAST DTSBS413 +02863 IF PAY-ADJ-AMT (PSUB) > ZERO DTSBS413 +02864 IF PAY-PROCESS-DATE (PSUB) > MAX-PAY-DATE DTSBS413 +02865 MOVE PAY-PROCESS-DATE (PSUB) TO MAX-PAY-DATE DTSBS413 +02866 END-IF DTSBS413 +02867 END-IF DTSBS413 +02868 END-PERFORM. DTSBS413 +02869 DTSBS413 +02870 IF MAX-PAY-DATE NOT = ZERO DTSBS413 +02871 PERFORM DTSBS413 +02872 VARYING PSUB FROM +1 BY +1 DTSBS413 +02873 UNTIL PSUB > PAY-LAST DTSBS413 +02874 IF PAY-PROCESS-DATE (PSUB) = MAX-PAY-DATE DTSBS413 +02875 ADD PAY-ADJ-AMT (PSUB) TO MAX-PAY-AMT DTSBS413 +02876 END-IF DTSBS413 +02877 END-PERFORM DTSBS413 +02878 MOVE MPRF-EMP-NO TO X142-EMP-NO DTSBS413 +02879 MOVE MAX-PAY-DATE TO L001-FED-8-DATE-9 DTSBS413 +02880 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBS413 +02881 MOVE L001-SLASH-8-DATE TO X142-PAY-DATE DTSBS413 +02882 MOVE MAX-PAY-AMT TO X142-PAY-AMT DTSBS413 +02883 END-IF. DTSBS413 +02884 DTSBS413 +02885 P3830-EXIT. DTSBS413 +02886 EXIT. DTSBS413 +02887 DTSBS413 +02888 S1010-READ-SENT-MINI. CL132 +02889 READ SENT-MINI-FILE INTO WS-SENT-REC CL132 +02890 IF SENT-MINI-STATUS-OK-88 CL132 +02891 ADD +1 TO W-SENT-MINI-CNT CL132 +02892 ELSE CL132 +02893 IF SENT-MINI-STATUS-EOF-88 CL132 +02894 DISPLAY 'SENT MINI EOF' CL132 +02895 ELSE CL132 +02896 DISPLAY 'CANNOT READ SENT MINI ' SENT-MINI-STATUS CL132 +02897 PERFORM S999-ABEND THRU S999-EXIT CL132 +02898 END-IF CL132 +02899 END-IF. CL132 +02900 CL132 +02901 S1010-EXIT. CL132 +02902 EXIT. CL132 +02903 CL132 +02904 T0000-TERMINATE. DTSBS413 +02905 DTSBS413 +02906 DISPLAY '*********************************************'. DTSBS413 +02907 DISPLAY '* DTSBS413 TERMINATION STATISTICS'. CL139 +02908 DISPLAY '* '. DTSBS413 +02909 DISPLAY '* MPRF RECORDS READ : ' DTSBS413 +02910 WRK-MPRF-CNT. DTSBS413 +02911 DISPLAY '* SENT FILE RECORDS READ : ' CL132 +02912 W-SENT-MINI-CNT. CL132 +02913 DISPLAY '* TEMP RECORDS WRITTEN : ' DTSBS413 +02914 TEMP-CNT. DTSBS413 +02915 DISPLAY '* PROFILE RECORDS WRITTEN : ' DTSBS413 +02916 X102-CNT. DTSBS413 +02917 ** DISPLAY '* DETERMINATION RECS WRITTEN : ' DTSBS413 +02918 ** X104-CNT. DTSBS413 +02919 DISPLAY '* NAME RECORDS WRITTEN : ' DTSBS413 +02920 X106-CNT. DTSBS413 +02921 DISPLAY '* EMP ADDRESS RECS WRITTEN : ' DTSBS413 +02922 X110-CNT. DTSBS413 +02923 DISPLAY '* EMP RATE RECS WRITTEN : ' CL**2 +02924 X108-CNT. CL**2 +02925 DISPLAY '* OPO RECORDS WRITTEN : ' CL**2 +02926 X120-CNT. CL**2 +02927 DISPLAY '* REL RECORDS WRITTEN : ' CL**2 +02928 X130-CNT. CL**2 +02929 DISPLAY '* RPT RECORDS WRITTEN : ' CL**2 +02930 X140-CNT. CL**2 +02931 DISPLAY '* REL RECORDS WRITTEN : ' DTSBS413 +02932 X131-CNT. DTSBS413 +02933 DISPLAY '* QTR STATUS RECS WRITTEN : ' DTSBS413 +02934 X141-CNT. DTSBS413 +02935 DISPLAY '* LAST RPT PAY RECS WRITTEN : ' DTSBS413 +02936 X142-CNT. DTSBS413 +02937 DISPLAY '*********************************************'. DTSBS413 +02938 DTSBS413 +02939 DTSBS413 +02940 CLOSE X100-REF-FILE DTSBS413 +02941 X102-PRF-FILE DTSBS413 +02942 X104-DETERM-FILE CL**2 +02943 X106-NAME-FILE DTSBS413 +02944 X110-ADDR-FILE DTSBS413 +02945 X108-RATE-FILE CL**2 +02946 X120-OPO-FILE CL**2 +02947 ** X130-REL-FILE CL*12 +02948 X140-REPORT-FILE CL**2 +02949 X131-REL-FILE DTSBS413 +02950 X141-QTR-STATUS-FILE DTSBS413 +02951 X142-LAST-RPT-PAY-FILE. DTSBS413 +02952 DTSBS413 +02953 PERFORM S910E-CLOSE THRU S910E-EXIT. DTSBS413 +02954 PERFORM S921E-CLOSE THRU S921E-EXIT. DTSBS413 +02955 PERFORM S931D-CLOSE THRU S931D-EXIT. DTSBS413 +02956 DTSBS413 +02957 T0000-EXIT. DTSBS413 +02958 EXIT. DTSBS413 +02959 DTSBS413 +02960 S001-FROM-FED-8. DTSBS413 +02961 SET L001-FROM-FED-8 TO TRUE. DTSBS413 +02962 GO TO S001-DATE. DTSBS413 +02963 DTSBS413 +02964 S001-FROM-ABS-DAY. DTSBS413 +02965 SET L001-FROM-ABS-DAY TO TRUE. DTSBS413 +02966 GO TO S001-DATE. DTSBS413 +02967 DTSBS413 +02968 S001-DATE. DTSBS413 +02969 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBS413 +02970 S001-EXIT. DTSBS413 +02971 EXIT. DTSBS413 +02972 DTSBS413 +02973 S003-AGENCY-DAY. DTSBS413 +02974 SET L003-AGENCY-DAY TO TRUE. DTSBS413 +02975 GO TO S003-WORK-DAY. DTSBS413 +02976 DTSBS413 +02977 S003-WORK-DAY. DTSBS413 +02978 CALL 'DTSBU003' USING L003-LINK-AREA. DTSBS413 +02979 S003-EXIT. DTSBS413 +02980 EXIT. DTSBS413 +02981 DTSBS413 +02982 S004-FROM-DATE. DTSBS413 +02983 SET L004-FROM-DATE TO TRUE. DTSBS413 +02984 GO TO S004-QTR. DTSBS413 +02985 DTSBS413 +02986 S004-FROM-5. DTSBS413 +02987 SET L004-FROM-5 TO TRUE. DTSBS413 +02988 GO TO S004-QTR. DTSBS413 +02989 DTSBS413 +02990 S004-FROM-ABS. DTSBS413 +02991 SET L004-FROM-ABS TO TRUE. DTSBS413 +02992 GO TO S004-QTR. DTSBS413 +02993 DTSBS413 +02994 S004-FROM-3. DTSBS413 +02995 SET L004-FROM-3 TO TRUE. DTSBS413 +02996 GO TO S004-QTR. DTSBS413 +02997 DTSBS413 +02998 S004-QTR. DTSBS413 +02999 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBS413 +03000 S004-EXIT. DTSBS413 +03001 EXIT. DTSBS413 +03002 DTSBS413 +03003 S005-SYS-DATE. DTSBS413 +03004 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBS413 +03005 DTSBS413 +03006 S005-EXIT. DTSBS413 +03007 EXIT. DTSBS413 +03008 DTSBS413 +03009 S101-PER-MONTH-NO. DTSBS413 +03010 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBS413 +03011 GO TO S101-INT-CHARGE. DTSBS413 +03012 DTSBS413 +03013 S101-INT-CHARGE. DTSBS413 +03014 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBS413 +03015 S101-EXIT. DTSBS413 +03016 EXIT. DTSBS413 +03017 DTSBS413 +03018 S410-FILE-SCHED. DTSBS413 +03019 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBS413 +03020 S410-EXIT. DTSBS413 +03021 EXIT. DTSBS413 +03022 DTSBS413 +03023 S516-LIABILITY. DTSBS413 +03024 CALL 'DTSBU516' USING L516-LINK-AREA DTSBS413 +03025 MPRF-REC. DTSBS413 +03026 S516-EXIT. DTSBS413 +03027 EXIT. DTSBS413 +03028 DTSBS413 +03029 S910A-OPEN-READ. DTSBS413 +03030 SET L910-OPEN-READ-88 TO TRUE. DTSBS413 +03031 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBS413 +03032 DTSBS413 +03033 S910A-EXIT. DTSBS413 +03034 EXIT. DTSBS413 +03035 DTSBS413 +03036 S910B-READ. DTSBS413 +03037 SET L910-READ-88 TO TRUE. DTSBS413 +03038 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBS413 +03039 DTSBS413 +03040 S910B-EXIT. DTSBS413 +03041 EXIT. DTSBS413 +03042 DTSBS413 +03043 S910C-START-BROWSE. DTSBS413 +03044 SET L910-START-BROWSE-88 TO TRUE. DTSBS413 +03045 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBS413 +03046 DTSBS413 +03047 S910C-EXIT. DTSBS413 +03048 EXIT. DTSBS413 +03049 DTSBS413 +03050 S910D-READ-NEXT. DTSBS413 +03051 SET L910-READ-NEXT-88 TO TRUE. DTSBS413 +03052 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBS413 +03053 DTSBS413 +03054 S910D-EXIT. DTSBS413 +03055 EXIT. DTSBS413 +03056 DTSBS413 +03057 S910E-CLOSE. DTSBS413 +03058 SET L910-CLOSE-88 TO TRUE. DTSBS413 +03059 PERFORM S910Z-MSTR-IO THRU S910Z-EXIT. DTSBS413 +03060 DTSBS413 +03061 S910E-EXIT. DTSBS413 +03062 EXIT. DTSBS413 +03063 DTSBS413 +03064 S910Z-MSTR-IO. CL110 +03065 CALL 'DTSBU910' USING L910-LINK-AREA DTSBS413 +03066 MSKL-REC. DTSBS413 +03067 IF MPRF-EMP-NO NOT NUMERIC CL*89 +03068 NEXT SENTENCE. CL111 +03069 ** ELSE CL109 +03070 * IF MPRF-EMP-NO >= COMP18-DATE CL102 +03071 * AND MPRF-EMP-NO <= COMP19-DATE CL102 +03072 *** DISPLAY '***&& MPRF-EMP-NO = ', MPRF-EMP-NO CL107 +03073 * END-IF CL102 +03074 ** END-IF. CL109 +03075 * DISPLAY '***&& MPRF-EMP-NO = ', MPRF-EMP-NO. CL*81 +03076 S910Z-EXIT. DTSBS413 +03077 EXIT. DTSBS413 +03078 DTSBS413 +03079 S921A-OPEN-READ. DTSBS413 +03080 SET L921-OPEN-READ-88 TO TRUE. DTSBS413 +03081 PERFORM S921Z-AIX-IO THRU S921Z-EXIT. DTSBS413 +03082 DTSBS413 +03083 S921A-EXIT. DTSBS413 +03084 EXIT. DTSBS413 +03085 DTSBS413 +03086 S921C-START-BROWSE. DTSBS413 +03087 SET L921-START-BROWSE-88 TO TRUE. DTSBS413 +03088 PERFORM S921Z-AIX-IO THRU S921Z-EXIT. DTSBS413 +03089 DTSBS413 +03090 S921C-EXIT. DTSBS413 +03091 EXIT. DTSBS413 +03092 DTSBS413 +03093 S921D-READ-NEXT. DTSBS413 +03094 SET L921-READ-NEXT-88 TO TRUE. DTSBS413 +03095 PERFORM S921Z-AIX-IO THRU S921Z-EXIT. DTSBS413 +03096 DTSBS413 +03097 S921D-EXIT. DTSBS413 +03098 EXIT. DTSBS413 +03099 DTSBS413 +03100 S921E-CLOSE. DTSBS413 +03101 SET L921-CLOSE-88 TO TRUE. DTSBS413 +03102 PERFORM S921Z-AIX-IO THRU S921Z-EXIT. DTSBS413 +03103 DTSBS413 +03104 S921E-EXIT. DTSBS413 +03105 EXIT. DTSBS413 +03106 DTSBS413 +03107 S921Z-AIX-IO. DTSBS413 +03108 CALL 'DTSBU921' USING L921-LINK-AREA DTSBS413 +03109 ISKL-REC. DTSBS413 +03110 S921Z-EXIT. DTSBS413 +03111 EXIT. DTSBS413 +03112 DTSBS413 +03113 S931A-OPEN-READ. DTSBS413 +03114 SET L931-OPEN-READ-88 TO TRUE. DTSBS413 +03115 PERFORM S931Z-REF-IO THRU S931Z-EXIT. DTSBS413 +03116 DTSBS413 +03117 S931A-EXIT. DTSBS413 +03118 EXIT. DTSBS413 +03119 DTSBS413 +03120 S931B-START-BROWSE. DTSBS413 +03121 SET L931-START-BROWSE-88 TO TRUE. DTSBS413 +03122 PERFORM S931Z-REF-IO THRU S931Z-EXIT. DTSBS413 +03123 DTSBS413 +03124 S931B-EXIT. DTSBS413 +03125 EXIT. DTSBS413 +03126 DTSBS413 +03127 S931C-READ-NEXT. DTSBS413 +03128 SET L931-READ-NEXT-88 TO TRUE. DTSBS413 +03129 PERFORM S931Z-REF-IO THRU S931Z-EXIT. DTSBS413 +03130 DTSBS413 +03131 S931C-EXIT. DTSBS413 +03132 EXIT. DTSBS413 +03133 DTSBS413 +03134 S931D-CLOSE. DTSBS413 +03135 SET L931-CLOSE-88 TO TRUE. DTSBS413 +03136 PERFORM S931Z-REF-IO THRU S931Z-EXIT. DTSBS413 +03137 DTSBS413 +03138 S931D-EXIT. DTSBS413 +03139 EXIT. DTSBS413 +03140 DTSBS413 +03141 S931Z-REF-IO. DTSBS413 +03142 CALL 'DTSBU931' USING L931-LINK-AREA DTSBS413 +03143 FSKL-REC. DTSBS413 +03144 S931Z-EXIT. EXIT. DTSBS413 +03145 DTSBS413 +03146 S999-ABEND. DTSBS413 +03147 DISPLAY '*** DTSBX411 ABENDING. ' DTSBS413 +03148 ABEND-MSG. DTSBS413 +03149 DTSBS413 +03150 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBS413 +03151 S999-EXIT. DTSBS413 +03152 EXIT. DTSBS413 +03153 * CL*60 +03154 CP3000-WRITE-RECORD. CL*60 +03155 IF OUTWRITE-CNT < 110000 CL*60 +03156 * IF OUTWRITE-SW = 'Y' CL119 +03157 * MOVE OUT-RECORD-HEADER TO DSKREC CL119 +03158 * MOVE 'N' TO OUTWRITE-SW CL119 +03159 * WRITE DSKREC CL119 +03160 * ADD 1 TO OUTWRITE-CNT CL119 +03161 * ELSE CL119 +03162 MOVE OUT-RECORD TO DSKREC CL*60 +03163 WRITE DSKREC CL*60 +03164 ADD 1 TO OUTWRITE-CNT CL*60 +03165 INITIALIZE OUT-RECORD CL*60 +03166 * END-IF CL*60 +03167 ELSE CL*60 +03168 IF OUTWRITE-CNT = 110000 CL*60 +03169 CLOSE DSKFILE CL*60 +03170 ADD 1 TO OUTWRITE-CNT CL*60 +03171 END-IF CL*60 +03172 END-IF. CL*60 +03173 * CL*60 +03174 * CL*61 +03175 CP3000-EXIT. CL*61 +03176 EXIT. CL*61 +03177 * CL*61 +03178 CP2000-MOVE-FIELDS. CL*61 +03179 MOVE MPRF-EMP-NO TO E_EMPLOYEE_PAID_NUM. CL*61 +03180 MOVE MSOL-LIAB-ESTB-DATE TO E_STATUS_DATE. CL*61 +03181 IF MSOL-LIAB-ESTB-DATE IS NUMERIC CL*61 +03182 MOVE 'Y' TO E_SERVICE_BEGIN_IND CL*61 +03183 ELSE CL*61 +03184 MOVE 'N' TO E_SERVICE_BEGIN_IND CL*61 +03185 END-IF. CL*61 +03186 MOVE SPACES TO E_IRS_501C3_IND. CL*61 +03187 MOVE MSOL-LIAB-ESTB-DATE TO E_NAICS_EFFECTIVE_DATE. CL*61 +03188 IF MSOL-ESTB-DATE IS NUMERIC CL*61 +03189 MOVE MSOL-ESTB-DATE TO E_CREATED_DATE CL*61 +03190 ELSE CL*61 +03191 MOVE MSOL-LIAB-ESTB-DATE TO E_CREATED_DATE CL*61 +03192 END-IF. CL*61 +03193 MOVE MRPT-RESPONSIBLE-OP-ID TO E_CREATED_BY. CL*61 +03194 MOVE X141-FILING-SCHEDULE TO E_ANNUAL_FILER_INDICATOR. CL*61 +03195 MOVE SPACES TO E_PAY_51_101_2E_EXMPT_WRK_IND. CL*61 +03196 MOVE SPACES TO E_ISSUE_1099_FORM_IND. CL*61 +03197 * CL*61 +03198 MOVE MTAD-VOICE-1 TO EA_PHONE_NUM. CL*61 +03199 MOVE MTAD-ESTB-DATE TO EA_CREATED_DATE. CL*61 +03200 MOVE MERA-RESPONSIBLE-OP-ID TO EA_CREATED_BY. CL*61 +03201 * CL*61 +03202 MOVE MTAD-ESTB-DATE TO EC_CREATED_DATE. CL*61 +03203 MOVE MERA-RESPONSIBLE-OP-ID TO EC_CREATED_BY. CL*61 +03204 * CL*61 +03205 MOVE MERA-MAIL-DATE-1 TO ES_CREATED_DATE. CL*61 +03206 MOVE MERA-RESPONSIBLE-OP-ID TO ES_CREATED_BY. CL*61 +03207 MOVE SPACES TO ES_FUTA_IND. CL*61 +03208 CL139 +03209 IF MSOL-LIAB-ESTB-DATE IS NUMERIC CL*61 +03210 MOVE 'Y' TO ES_HSHOLD_EMP_PAID_500_WG_IND CL*61 +03211 ELSE CL*61 +03212 MOVE 'N' TO ES_HSHOLD_EMP_PAID_500_WG_IND CL*61 +03213 END-IF. CL*61 +03214 * CL136 +03215 IF WRK-MOPO-FOUND-YES-88 CL136 +03216 MOVE MOPO-VOICE-1 TO EOO_PHONE_NUM CL136 +03217 MOVE MOPO-FAX TO EOO_FAX_NUM CL136 +03218 MOVE MOPO-EMAIL-ADDRESS TO EOO_EMAIL CL136 +03219 MOVE MOPO-ESTB-DATE TO EOO_CREATED_DATE CL136 +03220 END-IF. CL136 +03221 CL136 +03222 MOVE MERA-RESPONSIBLE-OP-ID TO EOO_CREATED_BY. CL*61 +03223 MOVE MPRF-PRIMARY-NAME TO EOO_BUSINESS_NAME. CL136 +03224 * CL*61 +03225 MOVE 'L1 ' TO EWH_EMPLOYEE_NUM. CL*61 +03226 MOVE 'P' TO EWH_STATUS_CODE_VALUE. CL*61 +03227 MOVE MERA-RECEIVED-DATE TO EWH_FILING_DATE. CL*61 +03228 * CL*61 +03229 MOVE MERA-RESPONSIBLE-OP-ID TO EWUD_FILING_METHOD. CL*61 +03230 MOVE MJRN-TRAN-TYPE TO EWUD_ADJUSTMENT_REASON_CODE_ID. CL*61 +03231 * CL*61 +03232 * CL*61 +03233 MOVE MRTE-RATE-TYPE-IND TO EXR_EXPERIENCE_RATE_CODE_VALUE. CL*61 +03234 * CL*61 +03235 MOVE 2.7 TO TRF_NEW_EMPLOYER_RATE. CL*61 +03236 * CL*61 +03237 MOVE SPACES TO ER_PURCHASE_SALE_IND. CL*61 +03238 IF (MSOL-INACT-CD = 4 OR MSOL-INACT-CD = 5) CL*61 +03239 MOVE MSOL-INACT-REVERSE-DATE TO ER_WAGES_RESUMED_DATE CL*61 +03240 MOVE MSOL-INACT-CD TO ER_REASON_CODE_VALUE CL*61 +03241 ELSE CL*61 +03242 MOVE SPACES TO ER_WAGES_RESUMED_DATE CL*61 +03243 MOVE SPACES TO ER_REASON_CODE_VALUE CL*61 +03244 END-IF. CL*61 +03245 MOVE 'L' TO ER_NAICS_CD. CL*61 +03246 MOVE MSOL-LIAB-ESTB-DATE TO ER_STATUS_DATE. CL*61 +03247 MOVE MSOL-LIAB-ESTB-DATE TO ER_CREATED_DATE. CL*61 +03248 MOVE MERA-RESPONSIBLE-OP-ID TO ER_CREATED_BY. CL*61 +03249 * CL*61 +03250 MOVE MSOL-INACT-DATE TO ESUS_SUSPEND_ACTION_DATE. CL*61 +03251 MOVE MSOL-INACT-CD TO ESUS_REASON_CODE_VALUE. CL*61 +03252 MOVE SPACES TO ESUS_SUSPEND_FIRST_NAME. CL*61 +03253 MOVE SPACES TO ESUS_SUSPEND_LAST_NAME. CL*61 +03254 MOVE MSOL-INACT-CD TO ESUS_STATUS_CODE_VALUE. CL*61 +03255 MOVE MSOL-INACT-ENTER-DATE TO ESUS_STATUS_DATE. CL*61 +03256 MOVE MSOL-LIAB-ESTB-DATE TO ESUS_CREATED_DATE. CL*61 +03257 MOVE MERA-RESPONSIBLE-OP-ID TO ESUS_CREATED_BY. CL*61 +03258 CL*61 +03259 PERFORM CP3000-WRITE-RECORD THRU CP3000-EXIT. CL*61 +03260 CP2000-EXIT. CL*61 +03261 EXIT. CL*61 +03262 * CL*61 +03263 * CL*61 diff --git a/Batch/DTSBX427.cob b/Batch/DTSBX427.cob new file mode 100644 index 0000000..f6a11cf --- /dev/null +++ b/Batch/DTSBX427.cob @@ -0,0 +1,1060 @@ +00001 IDENTIFICATION DIVISION. 02/27/20 +00002 PROGRAM-ID. DTSBX427. DTSBX427 +00003 AUTHOR. NORTHROP GRUMMAN. LV094 +00004 DATE-WRITTEN. SEPT 2014. CL**2 +00005 DATE-COMPILED. DTSBX427 +00006 SKIP3 DTSBX427 +00007 ***** DTSBX427 +00008 * DTSBX427 +00009 * FUNCTION: UPDATE MAILING AND BUSINESS ADDRESS FROM ESSP. CL**2 +00010 * DTSBX427 +00011 * MODIFICATION LOG: DTSBX427 +00012 * DTSBX427 +00013 * 09/15/2014 INITIAL DEVELOPMENT. CL**2 +00014 * WORK ORDER: ESSP PROGRAMMER: ZL1 CL**2 +00015 * DTSBX427 +00016 * CL*48 +00017 * 02/15/2017 MODIFIED TO CONVERT ADDRESS FIELDS INTO UPPER CL*48 +00018 * CASE PROGRAMMER: ZL1 CL*48 +00019 * CL*48 +00020 * CL*50 +00021 * CL*50 +00022 * 04/06/2017 MODIFIED TO UPDATE THE RETURN MAIL FLAG WHEN CL*50 +00023 * ADDRESS UPDATES COMPLETED PROGRAMMER: ZL1 CL*50 +00024 * CL*50 +00025 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX427 +00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX427 +00027 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX427 +00028 * DTSBX427 +00029 * DESCRIPTION: DTSBX427 +00030 * DTSBX427 +00031 * UPDATE ADDRESSES AND THE MPRF MASTER FILE. DTSBX427 +00032 * DTSBX427 +00033 * DTSBX427 IS THE MAILING ADDRESS UPDATE PROCESS FROM A CL**2 +00034 * ESSP ADDRESS FILE. CL**2 +00035 * DTSBX427 +00036 * REPORT RECORDS INPUT: DTSBX427 +00037 * NONE DTSBX427 +00038 * DTSBX427 +00039 * TAPES INPUT: DTSBX427 +00040 * NONE. DTSBX427 +00041 * DTSBX427 +00042 * MASTER FILE RECORDS READ: DTSBX427 +00043 * MHDR DTSBX427 +00044 * MPRF DTSBX427 +00045 * MTAD DTSBX427 +00046 * DTSBX427 +00047 * MASTER FILE RECORDS UPDATED: DTSBX427 +00048 * MPRF (REWRITE). DTSBX427 +00049 * MTAD (REWRITE). DTSBX427 +00050 * MELOG(WRITTEN). DTSBX427 +00051 * DTSBX427 +00052 * RECORDS READ: DTSBX427 +00053 * ESSP ADDRESS FILE (X110). CL**2 +00054 * DTSBX427 +00055 * MODULES CALLED: DTSBX427 +00056 * DTSBU203 FIELD ZIP AND JS ZIP DETERMINATION. DTSBX427 +00057 * DTSBU910 MASTER FILE I/O. DTSBX427 +00058 * DTSBU921 ALTERNATE INDEX I/O. DTSBX427 +00059 * DTSBX427 +00060 ***** DTSBX427 +00061 SKIP3 DTSBX427 +00062 ENVIRONMENT DIVISION. DTSBX427 +00063 CONFIGURATION SECTION. CL*82 +00064 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. CL*82 +00065 SKIP2 CL*82 +00066 CL*82 +00067 INPUT-OUTPUT SECTION. DTSBX427 +00068 DTSBX427 +00069 FILE-CONTROL. DTSBX427 +00070 SELECT REPT-PAID-FILE ASSIGN TO X427RPT1 CL*75 +00071 FILE STATUS IS REPT-STATUS. CL*75 +00072 CL*75 +00073 SELECT REPT-PEND-FILE ASSIGN TO X427RPT2 CL*75 +00074 FILE STATUS IS REPT-STATUS. CL*75 +00075 CL*75 +00076 SELECT ESSP-X110-FILE ASSIGN TO DTSFX110. CL**2 +00077 DATA DIVISION. DTSBX427 +00078 DTSBX427 +00079 FILE SECTION. DTSBX427 +00080 DTSBX427 +00081 FD ESSP-X110-FILE CL**2 +00082 LABEL RECORDS ARE STANDARD DTSBX427 +00083 RECORDING MODE IS F DTSBX427 +00084 BLOCK CONTAINS 0 RECORDS. DTSBX427 +00085 DTSBX427 +00086 01 ESSP-X110-REC PIC X(512). CL*67 +00087 CL*75 +00088 FD REPT-PAID-FILE CL*75 +00089 RECORDING MODE IS F CL*75 +00090 BLOCK CONTAINS 0 RECORDS CL*75 +00091 LABEL RECORDS ARE OMITTED. CL*75 +00092 CL*75 +00093 01 REPT-PAID-REC PIC X(200). CL*75 +00094 CL*75 +00095 CL*75 +00096 FD REPT-PEND-FILE CL*75 +00097 RECORDING MODE IS F CL*75 +00098 BLOCK CONTAINS 0 RECORDS CL*75 +00099 LABEL RECORDS ARE OMITTED. CL*75 +00100 CL*75 +00101 01 REPT-PEND-REC PIC X(133). CL*75 +00102 CL*75 +00103 CL*75 +00104 EJECT DTSBX427 +00105 DTSBX427 +00106 WORKING-STORAGE SECTION. DTSBX427 +001065 77 PAN-VALET PICTURE X(24) VALUE '094DTSBX427 02/27/20'. DTSBX427 +00107 77 PAN-VALET PICTURE X(24) VALUE '062DTSBX427 03/06/07'. DTSBX427 +00108 SKIP3 DTSBX427 +00109 01 WRK-AREA. DTSBX427 +00110 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +427. CL**2 +00111 05 ABEND-MSG PIC X(60). DTSBX427 +00112 05 WRK-SYS-ABSTIME PIC S9(15) COMP-3 VALUE +0. DTSBX427 +00113 05 WRK-ABSTIME PIC S9(15) COMP-3 VALUE +1000. CL*29 +00114 05 W-EMP-NO PIC S9(07) COMP-3 VALUE +0. CL*77 +00115 CL*77 +00116 05 UPD-MTAD-IND PIC 9(01) VALUE 0. CL**7 +00117 05 WRK-MPRF-MAIL-UPD-CNT PIC 9 VALUE 0. CL*55 +00118 05 WRK-MTAD-MAIL-UPD-CNT PIC 9 VALUE 0. CL*55 +00119 05 WRK-MTAD-MAIL-ADD-CNT PIC 9 VALUE 0. CL*55 +00120 05 X110-EOF-IND PIC X(01). CL**7 +00121 05 WRK-MPRF-ADD-CNT PIC S9(07) COMP-3. CL*18 +00122 05 WRK-MPRF-UPD-CNT PIC S9(07) COMP-3. CL*18 +00123 05 WRK-MPRF-NOT-CNT PIC S9(07) COMP-3. CL*19 +00124 05 WRK-MTAD-ADD-CNT PIC S9(07) COMP-3. CL*18 +00125 05 WRK-MTAD-UPD-CNT PIC S9(07) COMP-3. CL*18 +00126 05 WRK-MDCD-ADD-CNT PIC S9(07) COMP-3. CL*18 +00127 05 WRK-MDCD-UPD-CNT PIC S9(07) COMP-3. CL*18 +00128 05 WRK-MLOG-REC-CNT PIC S9(07) COMP-3. DTSBX427 +00129 05 WRK-X110-REC-CNT PIC S9(07) COMP-3. CL**5 +00130 05 W-T002-ADDR-CNT PIC S9(07) COMP-3. CL*13 +00131 05 REPT-STATUS PIC X(02). CL*76 +00132 88 REPT-STATUS-OK-88 VALUE '00'. CL*76 +00133 88 REPT-STATUS-EOF-88 VALUE '10'. CL*76 +00134 CL*76 +00135 CL*21 +00136 05 W-ERROR-IND PIC X(01) VALUE 'N'. CL*21 +00137 88 W-ERROR-YES-88 VALUE 'Y'. CL*21 +00138 88 W-ERROR-NO-88 VALUE 'N'. CL*21 +00139 CL*21 +00140 05 W-FATAL-ERROR-IND PIC X(01) VALUE 'N'. CL*21 +00141 88 W-FATAL-ERROR-YES-88 VALUE 'Y'. CL*21 +00142 88 W-FATAL-ERROR-NO-88 VALUE 'N'. CL*21 +00143 CL*21 +00144 05 WRK-EMP-NO PIC S9(07) COMP-3. DTSBX427 +00145 05 WRK-TAD-EMP-NO PIC S9(07) COMP-3. DTSBX427 +00146 05 WRK-MTAD-ZIP-UPDATED-IND PIC X(01). DTSBX427 +00147 DTSBX427 +00148 05 WRK-ID-NO-9 PIC 9(03). DTSBX427 +00149 05 WRK-ID-NO-X REDEFINES WRK-ID-NO-9 DTSBX427 +00150 PIC X(03). DTSBX427 +00151 05 WRK-ZIP. CL**3 +00152 10 WRK-ZIP-5 PIC X(05). CL**3 +00153 10 WRK-DASH PIC X(01) VALUE '-'. CL**3 +00154 10 WRK-ZIP-PLUS4 PIC X(04). CL**3 +00155 01 HEADER-3. CL*75 +00156 05 FILLER PIC X(01) VALUE SPACES. CL*75 +00157 05 FILLER PIC X(38) VALUE CL*75 +00158 ' TAX STATUS STAFF'. CL*84 +00159 05 HDR3-LITERAL PIC X(43) VALUE CL*75 +00160 ' ESSP DAILY ADDRESS UPDATES '. CL*84 +00161 05 FILLER PIC X(28) VALUE SPACES. CL*75 +00162 * 05 FILLER PIC X(06) VALUE 'PAGE:'. CL*75 +00163 * 05 HDR3-PAGE PIC ZZ,ZZ9. CL*75 +00164 01 HEADER-43. CL*75 +00165 05 FILLER PIC X(02) VALUE SPACES. CL*75 +00166 05 FILLER PIC X(52) VALUE CL*80 +00167 'EMP NO TYPE QAS ATTN LINE1'. CL*80 +00168 05 FILLER PIC X(27) VALUE CL*80 +00169 ' LINE2'. CL*80 +00170 05 FILLER PIC X(22) VALUE SPACES. CL*85 +00171 05 FILLER PIC X(44) VALUE CL*85 +00172 ' CITY ST '. CL*94 +00173 05 HDR5-NAME PIC X(31) VALUE CL*75 +00174 'ZIP EMAIL '. CL*93 +00175 DTSBX427 +00176 CL*66 +00177 01 BLANK-LINE PIC X(200) VALUE SPACES. CL*85 +00178 01 DETAIL-LINE-1. CL*85 +00179 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00180 15 X427-EMP-NO PIC 999B999 BLANK WHEN ZERO. CL*75 +00181 15 FILLER PIC X(03) VALUE SPACES. CL*80 +00182 15 X427-TYPE PIC X(02). CL*79 +00183 15 FILLER PIC X(04) VALUE SPACES. CL*80 +00184 15 X427-QAS PIC X(01). CL*75 +00185 15 FILLER PIC X(03) VALUE SPACES. CL*84 +00186 15 X427-ATTN PIC X(20). CL*75 +00187 15 FILLER PIC X(07) VALUE SPACES. CL*80 +00188 15 X427-LINE1 PIC X(25). CL*75 +00189 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00190 15 X427-LINE2 PIC X(40). CL*92 +00191 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00192 15 X427-CITY PIC X(20). CL*92 +00193 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00194 15 X427-STATE PIC X(02). CL*75 +00195 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00196 15 X427-ZIP PIC X(10). CL*75 +00197 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00198 15 X427-EMAIL PIC X(30). CL*75 +00199 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00200 15 X427-MESSAGE PIC X(10) VALUE SPACES. CL*79 +00201 CL*75 +00202 01 DETAIL-PEND-1. CL*75 +00203 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00204 15 P427-EMP-NO PIC 999B999 BLANK WHEN ZERO. CL*75 +00205 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00206 15 P427-TYPE PIC X(01). CL*75 +00207 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00208 15 P427-ATTN PIC X(20). CL*75 +00209 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00210 15 P427-LINE1 PIC X(25). CL*75 +00211 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00212 15 P427-LINE2 PIC X(25). CL*75 +00213 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00214 15 P427-CITY PIC X(15). CL*75 +00215 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00216 15 P427-STATE PIC X(02). CL*75 +00217 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00218 15 P427-ZIP PIC X(10). CL*75 +00219 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00220 15 P427-MESSAGE PIC X(10). CL*75 +00221 CL*75 +00222 01 FOOTING-LINE-51. CL*75 +00223 05 FILLER PIC X(25) VALUE SPACES. CL*75 +00224 05 WS-X110-PEN-CNT PIC ZZ,ZZ9. CL*75 +00225 05 FILLER PIC X(02) VALUE SPACES. CL*75 +00226 05 FILLER PIC X(40) VALUE CL*75 +00227 '# OF ADDRESSES RECEIVED FROM ESSP '. CL*75 +00228 05 FILLER PIC X(32) VALUE SPACES. CL*75 +00229 CL*75 +00230 01 FOOTING-LINE-6. CL*75 +00231 05 FILLER PIC X(25) VALUE SPACES. CL*75 +00232 05 WS-X102-RED-CNT PIC ZZ,ZZ9. CL*75 +00233 05 FILLER PIC X(02) VALUE SPACES. CL*75 +00234 05 FILLER PIC X(45) VALUE CL*75 +00235 '# OF ADDRESSES DUTAS PASSED '. CL*89 +00236 05 FILLER PIC X(32) VALUE SPACES. CL*75 +00237 01 FOOTING-LINE-7. CL*75 +00238 05 FILLER PIC X(25) VALUE SPACES. CL*75 +00239 05 WS-X102-ERR-CNT PIC ZZ,ZZ9. CL*75 +00240 05 FILLER PIC X(02) VALUE SPACES. CL*75 +00241 05 FILLER PIC X(40) VALUE CL*75 +00242 '# OF ADDRESSES DUTAS FAILED '. CL*75 +00243 05 FILLER PIC X(32) VALUE SPACES. CL*75 +00244 CL*75 +00245 01 X110-REC. CL*75 +00246 ++INCLUDE DTSUX110 CL*66 +00247 EJECT CL*66 +00248 CL*66 +00249 CL*18 +00250 01 R140-REC. CL*18 +00251 ++INCLUDE DTSIR140 CL*18 +00252 EJECT DTSBX427 +00253 CL*47 +00254 01 L009-LINK-AREA. CL*47 +00255 ++INCLUDE DTSIL009 CL*47 +00256 EJECT CL*47 +00257 01 L005-LINK-AREA. DTSBX427 +00258 ++INCLUDE DTSIL005 DTSBX427 +00259 EJECT DTSBX427 +00260 01 L203-LINK-AREA. DTSBX427 +00261 ++INCLUDE DTSIL203 DTSBX427 +00262 EJECT DTSBX427 +00263 01 L331-LINK-AREA. DTSBX427 +00264 ++INCLUDE DTSIL331 DTSBX427 +00265 EJECT DTSBX427 +00266 01 L910-LINK-AREA. DTSBX427 +00267 ++INCLUDE DTSIL910 DTSBX427 +00268 EJECT DTSBX427 +00269 01 MSKL-REC. DTSBX427 +00270 ++INCLUDE DTSIMSKL DTSBX427 +00271 EJECT DTSBX427 +00272 01 MHDR-REC. DTSBX427 +00273 ++INCLUDE DTSIMHDR DTSBX427 +00274 EJECT DTSBX427 +00275 01 MPRF-REC. DTSBX427 +00276 ++INCLUDE DTSIMPRF DTSBX427 +00277 EJECT DTSBX427 +00278 CL*12 +00279 01 T002-REC. CL*12 +00280 ++INCLUDE DTSIT002 CL*12 +00281 CL*12 +00282 * ADDRESS CL*12 +00283 01 Y110-REC. CL*12 +00284 ++INCLUDE DTSIY110 CL*12 +00285 CL*12 +00286 01 MTAD-REC. DTSBX427 +00287 ++INCLUDE DTSIMTAD DTSBX427 +00288 EJECT DTSBX427 +00289 01 L921-LINK-AREA. DTSBX427 +00290 ++INCLUDE DTSIL921 DTSBX427 +00291 CL*12 +00292 01 L927-LINK-AREA. CL*12 +00293 ++INCLUDE DTSIL927 CL*12 +00294 CL*12 +00295 01 TSKL-REC. CL*12 +00296 ++INCLUDE DTSITSKL CL*12 +00297 CL*12 +00298 EJECT DTSBX427 +00299 01 ISKL-REC. DTSBX427 +00300 ++INCLUDE DTSIISKL DTSBX427 +00301 EJECT DTSBX427 +00302 PROCEDURE DIVISION. DTSBX427 +00303 DTSBX427 +00304 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX427 +00305 DTSBX427 +00306 MOVE 'N' TO X110-EOF-IND. CL**5 +00307 DTSBX427 +00308 MOVE +0 TO WRK-EMP-NO WRK-TAD-EMP-NO. DTSBX427 +00309 DTSBX427 +00310 MOVE 'N' TO WRK-MTAD-ZIP-UPDATED-IND. DTSBX427 +00311 DTSBX427 +00312 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX427 +00313 UNTIL X110-EOF-IND = 'Y'. CL**3 +00314 DTSBX427 +00315 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX427 +00316 IF W-ERROR-YES-88 CL*18 +00317 MOVE 02 TO RETURN-CODE. CL*36 +00318 DTSBX427 +00319 GOBACK. DTSBX427 +00320 EJECT DTSBX427 +00321 DTSBX427 +00322 I0000-INITIATE. DTSBX427 +00323 PERFORM S910-OPEN-UPDATE THRU S910-EXIT. DTSBX427 +00324 DTSBX427 +00325 PERFORM S921-OPEN-UPDATE THRU S921-EXIT. DTSBX427 +00326 DTSBX427 +00327 PERFORM S927A-OPEN-UPDATE THRU S927A-EXIT. CL*19 +00328 CL*16 +00329 OPEN INPUT ESSP-X110-FILE. CL**6 +00330 OPEN OUTPUT REPT-PAID-FILE REPT-PEND-FILE. CL*75 +00331 DTSBX427 +00332 WRITE REPT-PAID-REC FROM HEADER-3 CL*82 +00333 AFTER ADVANCING TOP-OF-PAGE CL*82 +00334 CL*82 +00335 WRITE REPT-PAID-REC FROM HEADER-43 CL*83 +00336 AFTER ADVANCING 2 LINE. CL*85 +00337 WRITE REPT-PAID-REC FROM BLANK-LINE CL*85 +00338 AFTER ADVANCING 1 LINE. CL*85 +00339 MOVE +0 TO WRK-MPRF-UPD-CNT CL*19 +00340 W-T002-ADDR-CNT CL*30 +00341 WRK-MTAD-UPD-CNT CL*19 +00342 WRK-MPRF-NOT-CNT CL*20 +00343 WRK-MPRF-ADD-CNT CL*19 +00344 WRK-MTAD-ADD-CNT CL*19 +00345 WRK-MDCD-ADD-CNT CL*26 +00346 WRK-MDCD-UPD-CNT CL*26 +00347 WRK-MLOG-REC-CNT CL*26 +00348 WRK-X110-REC-CNT. CL**5 +00349 DTSBX427 +00350 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBX427 +00351 DTSBX427 +00352 MOVE +0 TO MSKL-EMP-NO. DTSBX427 +00353 DTSBX427 +00354 SET MSKL-HDR-88 TO TRUE. DTSBX427 +00355 DTSBX427 +00356 PERFORM S910-READ THRU S910-EXIT. DTSBX427 +00357 DTSBX427 +00358 IF L910-NO-REC-88 DTSBX427 +00359 MOVE 'MHDR RECORD NOT FOUND' TO ABEND-MSG DTSBX427 +00360 PERFORM S999-ABEND THRU S999-EXIT. DTSBX427 +00361 DTSBX427 +00362 MOVE MSKL-REC TO MHDR-REC. DTSBX427 +00363 DTSBX427 +00364 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBX427 +00365 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME. DTSBX427 +00366 MOVE LENGTH OF R140-REC TO R140-LENGTH. CL*18 +00367 MOVE '140' TO R140-REC-TYPE. CL*18 +00368 DTSBX427 +00369 I0000-EXIT. DTSBX427 +00370 EXIT. DTSBX427 +00371 DTSBX427 +00372 P0000-PROCESS. DTSBX427 +00373 READ ESSP-X110-FILE INTO X110-REC CL*66 +00374 AT END DTSBX427 +00375 MOVE 'Y' TO X110-EOF-IND CL**3 +00376 PERFORM P2000-EMP-NO-BREAK THRU P2000-EXIT DTSBX427 +00377 GO TO P0000-EXIT. DTSBX427 +00378 DTSBX427 +00379 ADD +1 TO WRK-X110-REC-CNT. CL**3 +00380 DTSBX427 +00381 DTSBX427 +00382 * IF X110-EMP-NO = WRK-EMP-NO OR CL*68 +00383 * WRK-X110-REC-CNT = 1 CL*68 +00384 * NEXT SENTENCE CL*68 +00385 * ELSE CL*68 +00386 * PERFORM P2000-EMP-NO-BREAK THRU P2000-EXIT CL*68 +00387 * IF L910-NO-REC-88 CL*68 +00388 * DISPLAY ' EMPL NOT FOUND IN DUTAS ADDR NOT ADDED> ' CL*68 +00389 * X110-EMP-NO CL*68 +00390 * GO TO P0000-EXIT. CL*68 +00391 IF X110-STREET-2 = SPACES CL*72 +00392 MOVE X110-STREET-1 TO X110-STREET-2 CL*72 +00393 MOVE SPACES TO X110-STREET-1. CL*72 +00394 CL*62 +00395 MOVE X110-EMP-NO TO WRK-EMP-NO CL*62 +00396 MOVE 'N' TO WRK-MTAD-ZIP-UPDATED-IND CL*62 +00397 MOVE X110-EMP-NO TO L331-EMP-NO CL*62 +00398 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*62 +00399 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*62 +00400 MOVE 'WEBESSP ' TO L331-OP-ID. CL*62 +00401 DTSBX427 +00402 MOVE LOW-VALUES TO MTAD-KEY-AREA. CL**4 +00403 IF X110-ADDR-TYPE-MAIL-88 CL**3 +00404 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE CL**3 +00405 ELSE CL**3 +00406 IF X110-ADDR-TYPE-RECS-88 CL**3 +00407 SET MTAD-ID-TAX-RECORDS-ADDR-88 TO TRUE CL**3 +00408 ELSE CL**3 +00409 SET W-ERROR-YES-88 TO TRUE CL*18 +00410 MOVE SPACES TO R140-MESSAGE CL*18 +00411 MOVE WRK-EMP-NO TO R140-EMP-NO CL*19 +00412 STRING CL*18 +00413 'X427 INV ADDR CODE ON X110 ADDR REC ' X110-ADDR-TYPE CL*19 +00414 DELIMITED BY SIZE CL*18 +00415 INTO R140-MESSAGE CL*18 +00416 END-STRING CL*18 +00417 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*18 +00418 GO TO P0000-EXIT. CL**3 +00419 CL**3 +00420 IF MTAD-ID-TAX-RECORDS-ADDR-88 AND X110-STATE NOT = 'DC' CL*42 +00421 SET W-ERROR-YES-88 TO TRUE CL*34 +00422 MOVE SPACES TO R140-MESSAGE CL*34 +00423 MOVE WRK-EMP-NO TO R140-EMP-NO CL*34 +00424 STRING CL*34 +00425 'X427 STATE NOT DC FOR DC ADDRESS ' X110-STATE CL*34 +00426 DELIMITED BY SIZE CL*34 +00427 INTO R140-MESSAGE CL*34 +00428 END-STRING CL*34 +00429 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*34 +00430 GO TO P0000-EXIT. CL*34 +00431 CL*34 +00432 MOVE ZEROS TO UPD-MTAD-IND CL**5 +00433 CL**5 +00434 DISPLAY '+++++++ CHECKING FOR ADDRESS UPDATES: ' X110-EMP-NO. CL*57 +00435 PERFORM P1000-MTAD-UPDATE THRU P1000-EXIT. CL**3 +00436 CL*78 +00437 MOVE X110-EMP-NO TO X427-EMP-NO. CL*78 +00438 MOVE X110-ADDR-TYPE TO X427-TYPE CL*78 +00439 MOVE X110-ATTENTION TO X427-ATTN CL*78 +00440 MOVE X110-STREET-1 TO X427-LINE1 CL*78 +00441 MOVE X110-STREET-2 TO X427-LINE2 CL*78 +00442 MOVE X110-CITY TO X427-CITY CL*78 +00443 MOVE X110-STATE TO X427-STATE. CL*78 +00444 MOVE X110-ZIP TO X427-ZIP. CL*78 +00445 MOVE X110-EMAIL TO X427-EMAIL. CL*78 +00446 MOVE X110-QAS-FLAG TO X427-QAS. CL*78 +00447 WRITE REPT-PAID-REC FROM DETAIL-LINE-1. CL*78 +00448 CL**3 +00449 P0000-EXIT. DTSBX427 +00450 EXIT. DTSBX427 +00451 DTSBX427 +00452 P1000-MTAD-UPDATE. DTSBX427 +00453 DTSBX427 +00454 * MOVE LOW-VALUES TO MTAD-KEY-AREA. CL*43 +00455 MOVE X110-EMP-NO TO WRK-TAD-EMP-NO WRK-EMP-NO. CL*44 +00456 DTSBX427 +00457 MOVE WRK-TAD-EMP-NO TO MTAD-EMP-NO. DTSBX427 +00458 SET MTAD-TAD-88 TO TRUE. DTSBX427 +00459 CL**3 +00460 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBX427 +00461 DTSBX427 +00462 PERFORM S910-READ THRU S910-EXIT. DTSBX427 +00463 DTSBX427 +00464 IF L910-NO-REC-88 DTSBX427 +00465 * DISPLAY 'MTAD NOT FOUND ' MTAD-KEY-AREA CL*57 +00466 MOVE SPACES TO R140-MESSAGE CL*18 +00467 MOVE WRK-EMP-NO TO R140-EMP-NO CL*19 +00468 IF X110-ADDR-TYPE-MAIL-88 CL*37 +00469 DISPLAY '------ X427 MAIL ADDR NOT IN DUTAS -ADDED ' CL*57 +00470 X110-EMP-NO CL*45 +00471 STRING CL*18 +00472 'X427 MAIL ADDR NOT IN DUTAS -ADDED ' CL*37 +00473 X110-EMP-NO CL*37 +00474 DELIMITED BY SIZE CL*18 +00475 INTO R140-MESSAGE CL*18 +00476 END-STRING CL*18 +00477 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*18 +00478 PERFORM P1050-MTAD-ADD THRU P1050-EXIT CL*18 +00479 PERFORM P2000-EMP-NO-BREAK THRU P2000-EXIT CL*68 +00480 GO TO P1000-EXIT CL*37 +00481 ELSE CL*38 +00482 DISPLAY '----- X427 DC ADDR NOT IN DUTAS -ADDED ' CL*57 +00483 X110-EMP-NO CL*45 +00484 STRING CL*37 +00485 'X427 DC ADDR NOT IN DUTAS -ADDED ' CL*37 +00486 X110-EMP-NO CL*37 +00487 DELIMITED BY SIZE CL*37 +00488 INTO R140-MESSAGE CL*37 +00489 END-STRING CL*37 +00490 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*37 +00491 PERFORM P1050-MTAD-ADD THRU P1050-EXIT CL*37 +00492 GO TO P1000-EXIT. CL*37 +00493 CL*18 +00494 MOVE MSKL-REC TO MTAD-REC. DTSBX427 +00495 DTSBX427 +00496 MOVE X110-ZIP TO WRK-ZIP. CL**3 +00497 DTSBX427 +00498 IF WRK-ZIP = MTAD-ZIP CL**3 +00499 MOVE 'N' TO WRK-MTAD-ZIP-UPDATED-IND CL**3 +00500 ELSE DTSBX427 +00501 MOVE 'Y' TO WRK-MTAD-ZIP-UPDATED-IND. DTSBX427 +00502 DTSBX427 +00503 MOVE ZEROS TO UPD-MTAD-IND. CL*32 +00504 CL*32 +00505 PERFORM P1100-CHECK-FOR-MLOG THRU P1100-EXIT. DTSBX427 +00506 DTSBX427 +00507 DTSBX427 +00508 IF UPD-MTAD-IND = 1 CL**5 +00509 DISPLAY '===== DUTAS ADDRESS UPDATED ' X110-EMP-NO CL*56 +00510 MOVE MHDR-CURR-RUN-DATE TO MTAD-CHNG-DATE CL**5 +00511 MOVE MTAD-REC TO MSKL-REC CL**5 +00512 PERFORM S910-REWRITE THRU S910-EXIT CL*68 +00513 PERFORM P2000-EMP-NO-BREAK THRU P2000-EXIT. CL*68 +00514 DTSBX427 +00515 P1000-EXIT. DTSBX427 +00516 EXIT. DTSBX427 +00517 DTSBX427 +00518 P1050-MTAD-ADD. CL*11 +00519 MOVE +0 TO WRK-MTAD-MAIL-ADD-CNT. CL*51 +00520 IF X110-ADDR-TYPE-MAIL-88 CL*35 +00521 ADD +1 TO WRK-MTAD-ADD-CNT CL*18 +00522 MOVE +1 TO WRK-MTAD-MAIL-ADD-CNT CL*51 +00523 * DISPLAY '<<< X427--ADDIN T002 MAIL ADDR ' WRK-EMP-NO CL*57 +00524 ELSE CL*18 +00525 * DISPLAY '<<< X427--ADDIN T002 DC ADDR ' WRK-EMP-NO CL*57 +00526 ADD +1 TO WRK-MDCD-ADD-CNT. CL*18 +00527 CL*18 +00528 PERFORM S005-FROM-SYS THRU S005-EXIT. CL*13 +00529 MOVE LOW-VALUES TO T002-REC. CL*11 +00530 CL*11 +00531 SET T002-LENGTH-EMP-ADDR-88 TO TRUE. CL*11 +00532 MOVE '002' TO T002-REC-TYPE. CL*11 +00533 MOVE X110-EMP-NO TO T002-EMP-NO. CL*13 +00534 MOVE 'WEB ESSP ' TO T002-ORIGIN. CL*12 +00535 MOVE L005-DATE TO T002-SYS-DATE. CL*13 +00536 MOVE L005-TIME TO T002-SYS-TIME. CL*13 +00537 CL*11 +00538 MOVE X110-ADDR-TYPE TO Y110-EMP-ADDR-TYPE. CL*11 +00539 CL*47 +00540 IF X110-ATTENTION > SPACES CL*47 +00541 MOVE X110-ATTENTION TO L009-DATA CL*47 +00542 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00543 MOVE L009-DATA TO Y110-EMP-ATTN CL*49 +00544 ELSE CL*47 +00545 MOVE X110-ATTENTION TO Y110-EMP-ATTN. CL*11 +00546 CL*47 +00547 IF X110-STREET-1 > SPACES CL*47 +00548 MOVE X110-STREET-1 TO L009-DATA CL*47 +00549 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00550 MOVE L009-DATA TO Y110-EMP-DELV1 CL*47 +00551 ELSE CL*47 +00552 MOVE X110-STREET-1 TO Y110-EMP-DELV1. CL*11 +00553 CL*47 +00554 IF X110-STREET-2 > SPACES CL*47 +00555 MOVE X110-STREET-2 TO L009-DATA CL*47 +00556 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00557 MOVE L009-DATA TO Y110-EMP-DELV2 CL*47 +00558 ELSE CL*47 +00559 MOVE X110-STREET-2 TO Y110-EMP-DELV2. CL*11 +00560 CL*47 +00561 IF X110-CITY > SPACES CL*47 +00562 MOVE X110-CITY TO L009-DATA CL*47 +00563 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00564 MOVE L009-DATA TO Y110-EMP-CITY CL*47 +00565 ELSE CL*47 +00566 MOVE X110-CITY TO Y110-EMP-CITY. CL*11 +00567 CL*47 +00568 IF X110-STATE > SPACES CL*47 +00569 MOVE X110-STATE TO L009-DATA CL*47 +00570 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00571 MOVE L009-DATA TO Y110-EMP-STATE CL*47 +00572 ELSE CL*47 +00573 MOVE X110-STATE TO Y110-EMP-STATE. CL*11 +00574 * MOVE X110-STATE TO Y110-EMP-STATE. CL*51 +00575 MOVE X110-ZIP TO Y110-EMP-ZIP. CL*11 +00576 MOVE X110-PHONE TO Y110-EMP-VOICE. CL*11 +00577 MOVE X110-FAX TO Y110-EMP-FAX. CL*11 +00578 MOVE X110-EMAIL TO Y110-EMP-EMAIL. CL*11 +00579 MOVE Y110-REC TO T002-DATA-AREA. CL*11 +00580 SET T002-EMP-ADDR-88 TO TRUE. CL*11 +00581 MOVE T002-REC TO TSKL-REC. CL*11 +00582 PERFORM S927B-WRITE THRU S927B-EXIT. CL*11 +00583 ADD +1 TO W-T002-ADDR-CNT. CL*11 +00584 CL*11 +00585 P1050-EXIT. CL*11 +00586 EXIT. CL*11 +00587 CL*11 +00588 P1100-CHECK-FOR-MLOG. DTSBX427 +00589 DTSBX427 +00590 MOVE 0 TO WRK-MTAD-MAIL-UPD-CNT. CL*55 +00591 ADD +100 TO WRK-ABSTIME CL*29 +00592 PERFORM S005-FROM-SYS THRU S005-EXIT. CL*27 +00593 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME. CL*27 +00594 MOVE X110-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL*44 +00595 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*27 +00596 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME. CL*29 +00597 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*27 +00598 MOVE 'WEBESSP ' TO L331-OP-ID. CL*41 +00599 CL*24 +00600 IF MTAD-ID-TAX-MAILING-ADDR-88 DTSBX427 +00601 MOVE 'MAILING ADDRESS' TO L331-REC-OCC-ID DTSBX427 +00602 * ADD +1 TO WRK-MTAD-ADD-CNT CL*46 +00603 ELSE DTSBX427 +00604 IF MTAD-ID-TAX-RECORDS-ADDR-88 DTSBX427 +00605 MOVE 'RECORDS ADDRESS' TO L331-REC-OCC-ID DTSBX427 +00606 * ADD +1 TO WRK-MDCD-ADD-CNT CL*46 +00607 ELSE DTSBX427 +00608 MOVE MTAD-ID-NO TO WRK-ID-NO-9 DTSBX427 +00609 MOVE WRK-ID-NO-X TO L331-REC-OCC-ID. DTSBX427 +00610 DTSBX427 +00611 MOVE X110-ATTENTION TO L009-DATA CL*69 +00612 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00613 MOVE L009-DATA TO X110-ATTENTION CL*69 +00614 IF X110-ATTENTION = MTAD-ATTN-LINE CL**5 +00615 NEXT SENTENCE DTSBX427 +00616 ELSE DTSBX427 +00617 MOVE 'MTAD-ATTENTION ' TO L331-FIELD-NAME CL**3 +00618 MOVE MTAD-ATTN-LINE TO L331-FROM-VALUE CL**5 +00619 DISPLAY 'MTAD-ATTENTION B ' MTAD-ATTN-LINE CL**7 +00620 MOVE X110-ATTENTION TO L331-TO-VALUE CL**4 +00621 MOVE X110-ATTENTION TO MTAD-ATTN-LINE CL**5 +00622 DISPLAY 'MTAD-ATTENTION A ' X110-ATTENTION CL**7 +00623 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00624 MOVE 1 TO UPD-MTAD-IND CL**5 +00625 ADD +1 TO WRK-MLOG-REC-CNT. DTSBX427 +00626 DTSBX427 +00627 CL**3 +00628 MOVE X110-STREET-1 TO L009-DATA CL*69 +00629 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00630 MOVE L009-DATA TO X110-STREET-1 CL*69 +00631 IF X110-STREET-1 = MTAD-DELIV-LINE-1 CL**6 +00632 NEXT SENTENCE CL**3 +00633 ELSE CL**3 +00634 MOVE 'MTAD-DELIV-LINE-1' TO L331-FIELD-NAME CL**4 +00635 MOVE MTAD-DELIV-LINE-1 TO L331-FROM-VALUE CL**4 +00636 DISPLAY 'MTAD-DELV LIN1 B ' MTAD-DELIV-LINE-1 CL**7 +00637 MOVE X110-STREET-1 TO MTAD-DELIV-LINE-1 CL**6 +00638 MOVE X110-STREET-1 TO L331-TO-VALUE CL*52 +00639 DISPLAY 'MTAD-DELV LIN1 A ' X110-STREET-1 CL**7 +00640 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00641 MOVE 1 TO UPD-MTAD-IND CL**5 +00642 ADD +1 TO WRK-MLOG-REC-CNT. CL**3 +00643 CL**3 +00644 MOVE X110-STREET-2 TO L009-DATA CL*69 +00645 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00646 MOVE L009-DATA TO X110-STREET-2 CL*69 +00647 CL**4 +00648 IF X110-STREET-2 = MTAD-DELIV-LINE-2 CL**6 +00649 NEXT SENTENCE CL**4 +00650 ELSE CL**4 +00651 MOVE 'MTAD-DELIV-LINE-2' TO L331-FIELD-NAME CL**4 +00652 MOVE MTAD-DELIV-LINE-2 TO L331-FROM-VALUE CL**4 +00653 DISPLAY 'MTAD-DELV LIN2 B ' MTAD-DELIV-LINE-2 CL**7 +00654 MOVE X110-STREET-2 TO L331-TO-VALUE CL**6 +00655 MOVE X110-STREET-2 TO MTAD-DELIV-LINE-2 CL**6 +00656 DISPLAY 'MTAD-DELV LIN3 A ' X110-STREET-2 CL**7 +00657 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00658 MOVE 1 TO UPD-MTAD-IND CL**5 +00659 ADD +1 TO WRK-MLOG-REC-CNT. CL**4 +00660 CL**4 +00661 MOVE X110-CITY TO L009-DATA CL*69 +00662 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00663 MOVE L009-DATA TO X110-CITY CL*69 +00664 IF X110-CITY = MTAD-CITY CL**4 +00665 NEXT SENTENCE DTSBX427 +00666 ELSE DTSBX427 +00667 MOVE 'MTAD-CITY' TO L331-FIELD-NAME DTSBX427 +00668 MOVE MTAD-CITY TO L331-FROM-VALUE DTSBX427 +00669 DISPLAY 'MTAD-CITY B ' MTAD-CITY CL**7 +00670 MOVE X110-CITY TO L331-TO-VALUE CL**6 +00671 MOVE X110-CITY TO MTAD-CITY CL**6 +00672 DISPLAY 'MTAD-CITY A ' X110-CITY CL**7 +00673 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00674 MOVE 1 TO UPD-MTAD-IND CL**5 +00675 ADD +1 TO WRK-MLOG-REC-CNT. DTSBX427 +00676 DTSBX427 +00677 MOVE X110-STATE TO L009-DATA CL*69 +00678 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00679 MOVE L009-DATA TO X110-STATE CL*69 +00680 IF X110-STATE = MTAD-ST CL**4 +00681 NEXT SENTENCE DTSBX427 +00682 ELSE DTSBX427 +00683 MOVE 'MTAD-ST' TO L331-FIELD-NAME DTSBX427 +00684 MOVE MTAD-ST TO L331-FROM-VALUE DTSBX427 +00685 DISPLAY 'MTAD-STATE B ' MTAD-ST CL**7 +00686 MOVE X110-STATE TO L331-TO-VALUE CL**4 +00687 MOVE X110-STATE TO MTAD-ST CL**5 +00688 DISPLAY 'MTAD-STATE A ' X110-STATE CL**7 +00689 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00690 MOVE 1 TO UPD-MTAD-IND CL**5 +00691 ADD +1 TO WRK-MLOG-REC-CNT. DTSBX427 +00692 DTSBX427 +00693 IF WRK-ZIP = MTAD-ZIP CL**4 +00694 NEXT SENTENCE DTSBX427 +00695 ELSE DTSBX427 +00696 MOVE 'MTAD-ZIP' TO L331-FIELD-NAME DTSBX427 +00697 MOVE MTAD-ZIP TO L331-FROM-VALUE DTSBX427 +00698 DISPLAY 'MTAD-ZIP B ' MTAD-ZIP CL**7 +00699 MOVE WRK-ZIP TO L331-TO-VALUE CL**4 +00700 MOVE WRK-ZIP TO MTAD-ZIP CL**6 +00701 DISPLAY 'MTAD-ZIP A ' MTAD-ZIP CL*38 +00702 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00703 MOVE 1 TO UPD-MTAD-IND CL**6 +00704 ADD +1 TO WRK-MLOG-REC-CNT. DTSBX427 +00705 DTSBX427 +00706 P1100-CHECK-EMAIL. CL*91 +00707 IF X110-EMAIL = SPACES CL*91 +00708 GO TO P1100-CHECK-PHONE. CL*91 +00709 CL*91 +00710 IF X110-EMAIL = MTAD-EMAIL-ADDRESS CL*91 +00711 NEXT SENTENCE CL**4 +00712 ELSE CL**4 +00713 MOVE 'MTAD-EMAIL ADDR' TO L331-FIELD-NAME CL**4 +00714 MOVE MTAD-EMAIL-ADDRESS TO L331-FROM-VALUE CL**4 +00715 DISPLAY 'MTAD-EMAIL B ' MTAD-EMAIL-ADDRESS CL**7 +00716 MOVE X110-EMAIL TO L331-TO-VALUE CL**4 +00717 MOVE X110-EMAIL TO MTAD-EMAIL-ADDRESS CL**5 +00718 DISPLAY 'MTAD-EMAIL A ' X110-EMAIL CL**7 +00719 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00720 MOVE 1 TO UPD-MTAD-IND CL**5 +00721 ADD +1 TO WRK-MLOG-REC-CNT. CL**4 +00722 CL*38 +00723 P1100-CHECK-PHONE. CL*91 +00724 IF X110-PHONE = SPACES CL*91 +00725 GO TO P1100-CHECK-MTAD. CL*91 +00726 CL*91 +00727 IF X110-PHONE = MTAD-VOICE-1 CL*90 +00728 NEXT SENTENCE CL*90 +00729 ELSE CL*90 +00730 MOVE 'MTAD-PHONE ' TO L331-FIELD-NAME CL*90 +00731 MOVE MTAD-VOICE-1 TO L331-FROM-VALUE CL*90 +00732 DISPLAY 'MTAD-PHONE B ' MTAD-VOICE-1 CL*90 +00733 MOVE X110-PHONE TO L331-TO-VALUE CL*90 +00734 MOVE X110-PHONE TO MTAD-VOICE-1 CL*90 +00735 DISPLAY 'MTAD-PHONE A ' X110-PHONE CL*90 +00736 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*90 +00737 MOVE 1 TO UPD-MTAD-IND CL*90 +00738 ADD +1 TO WRK-MLOG-REC-CNT. CL*90 +00739 CL*90 +00740 P1100-CHECK-MTAD. CL*91 +00741 IF UPD-MTAD-IND = 0 CL*38 +00742 GO TO P1100-EXIT. CL*39 +00743 CL*38 +00744 IF X110-ADDR-TYPE-MAIL-88 CL*38 +00745 MOVE +1 TO WRK-MTAD-MAIL-UPD-CNT CL*51 +00746 DISPLAY '<<<< ---X427 DUTAS MAILING ADDR ' WRK-EMP-NO CL*55 +00747 STRING CL*38 +00748 'X427 DUTAS MAILING ADDRESS ' CL*38 +00749 X110-EMP-NO CL*38 +00750 DELIMITED BY SIZE CL*38 +00751 INTO R140-MESSAGE CL*38 +00752 END-STRING CL*38 +00753 MOVE WRK-EMP-NO TO R140-EMP-NO CL*44 +00754 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*38 +00755 ADD +1 TO WRK-MTAD-UPD-CNT CL*46 +00756 ELSE CL*38 +00757 DISPLAY '<<<< ---X427 DUTAS DC WORK ADDR ' WRK-EMP-NO CL*55 +00758 STRING CL*38 +00759 'X427 DUTAS DC ADDRESS ' CL*38 +00760 X110-EMP-NO CL*38 +00761 DELIMITED BY SIZE CL*38 +00762 INTO R140-MESSAGE CL*38 +00763 END-STRING CL*38 +00764 MOVE WRK-EMP-NO TO R140-EMP-NO CL*44 +00765 ADD +1 TO WRK-MDCD-UPD-CNT CL*46 +00766 PERFORM S946-WRITE-R140 THRU S946-EXIT. CL*38 +00767 CL**4 +00768 P1100-EXIT. DTSBX427 +00769 EXIT. DTSBX427 +00770 DTSBX427 +00771 P2000-EMP-NO-BREAK. DTSBX427 +00772 CL*33 +00773 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBX427 +00774 DTSBX427 +00775 DISPLAY 'OLDE ' WRK-EMP-NO ' NEWE ' X110-EMP-NO. CL*65 +00776 MOVE WRK-EMP-NO TO MSKL-EMP-NO. CL*65 +00777 DTSBX427 +00778 SET MSKL-PRF-88 TO TRUE. DTSBX427 +00779 DTSBX427 +00780 PERFORM S910-READ THRU S910-EXIT. DTSBX427 +00781 DTSBX427 +00782 IF L910-NO-REC-88 DTSBX427 +00783 MOVE SPACES TO R140-MESSAGE CL*18 +00784 MOVE X110-EMP-NO TO R140-EMP-NO CL*32 +00785 STRING CL*18 +00786 'X427 NO EMPLOYER PROFILE FOUND IN DUTAS >>>> ' CL*37 +00787 X110-EMP-NO CL*37 +00788 DELIMITED BY SIZE CL*18 +00789 INTO R140-MESSAGE CL*18 +00790 END-STRING CL*18 +00791 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*18 +00792 ADD +1 TO WRK-MPRF-NOT-CNT CL*18 +00793 GO TO P2000-EXIT. CL*31 +00794 CL*18 +00795 MOVE MSKL-REC TO MPRF-REC. DTSBX427 +00796 MOVE 0 TO WRK-MPRF-MAIL-UPD-CNT. CL*55 +00797 CL*54 +00798 DISPLAY ' MPRF: ' WRK-EMP-NO CL*65 +00799 ' MUPD: ' WRK-MTAD-MAIL-UPD-CNT CL*56 +00800 ' MADD: ' WRK-MTAD-MAIL-ADD-CNT CL*55 +00801 ' MIND: ' MPRF-RETURN-MAIL-IND. CL*55 +00802 CL*51 +00803 * IF MPRF-RETURN-MAIL-IND = 'N' CL*74 +00804 * GO TO P2000-EMP-CONTINUE. CL*74 +00805 CL*70 +00806 IF WRK-MTAD-MAIL-UPD-CNT = 1 OR CL*70 +00807 WRK-MTAD-MAIL-ADD-CNT = 1 CL*59 +00808 ADD +100 TO WRK-ABSTIME CL*51 +00809 PERFORM S005-FROM-SYS THRU S005-EXIT CL*51 +00810 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME CL*51 +00811 MOVE X110-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL*51 +00812 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*51 +00813 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME CL*51 +00814 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*51 +00815 MOVE 'WEBESSP ' TO L331-OP-ID CL*51 +00816 MOVE 'RETURN MAIL IND' TO L331-FIELD-NAME CL*51 +00817 MOVE MPRF-RETURN-MAIL-IND TO L331-FROM-VALUE CL*51 +00818 MOVE 'N' TO L331-TO-VALUE CL*52 +00819 MOVE 'N' TO MPRF-RETURN-MAIL-IND CL*52 +00820 MOVE +1 TO WRK-MPRF-MAIL-UPD-CNT CL*51 +00821 DISPLAY ' RETURN MAIL UPDATED: ' WRK-EMP-NO CL*52 +00822 PERFORM S331-WRITE-MLOG THRU S331-EXIT. CL*51 +00823 CL*51 +00824 IF MTAD-UC223-IND = 'N' CL*70 +00825 ADD +100 TO WRK-ABSTIME CL*70 +00826 PERFORM S005-FROM-SYS THRU S005-EXIT CL*70 +00827 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME CL*70 +00828 MOVE X110-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL*70 +00829 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*70 +00830 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME CL*70 +00831 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*70 +00832 MOVE 'WEBESSP ' TO L331-OP-ID CL*70 +00833 MOVE 'DEBIT MEMO IND ' TO L331-FIELD-NAME CL*70 +00834 MOVE MTAD-UC223-IND TO L331-FROM-VALUE CL*70 +00835 MOVE 'Y' TO L331-TO-VALUE CL*70 +00836 MOVE 'Y' TO MTAD-UC223-IND CL*71 +00837 PERFORM S331-WRITE-MLOG THRU S331-EXIT. CL*70 +00838 CL*70 +00839 IF MTAD-MISSING-RPT-LETTERS-IND = 'N' CL*71 +00840 ADD +100 TO WRK-ABSTIME CL*70 +00841 PERFORM S005-FROM-SYS THRU S005-EXIT CL*70 +00842 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME CL*70 +00843 MOVE X110-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL*70 +00844 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*70 +00845 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME CL*70 +00846 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*70 +00847 MOVE 'WEBESSP ' TO L331-OP-ID CL*70 +00848 MOVE 'MISS RPT LETTER' TO L331-FIELD-NAME CL*70 +00849 MOVE MTAD-MISSING-RPT-LETTERS-IND TO L331-FROM-VALUE CL*73 +00850 MOVE 'Y' TO L331-TO-VALUE CL*70 +00851 MOVE 'Y' TO MTAD-MISSING-RPT-LETTERS-IND CL*71 +00852 PERFORM S331-WRITE-MLOG THRU S331-EXIT. CL*70 +00853 CL*70 +00854 DTSBX427 +00855 P2000-EMP-CONTINUE. CL*70 +00856 MOVE MPRF-EMP-NO TO L203-EMP-NO. DTSBX427 +00857 DTSBX427 +00858 MOVE MPRF-TAX-REC-ADDR-EXISTS-IND DTSBX427 +00859 TO L203-TAX-REC-ADDR-EXISTS-IND. DTSBX427 +00860 DTSBX427 +00861 PERFORM S203-FIELD-ZIP-CODE THRU S203-EXIT. DTSBX427 +00862 DTSBX427 +00863 * IF L203-OK-88 CL*56 +00864 * NEXT SENTENCE CL*56 +00865 * ELSE CL*56 +00866 * GO TO P2000-EXIT. CL*56 +00867 DTSBX427 +00868 DISPLAY 'Z203: ' L203-FLD-ZIP ' ' L203-FLD-STATE CL*61 +00869 ' MPRF: ' MPRF-FLD-ZIP ' ' MPRF-FLD-ST CL*60 +00870 ' MAIL: ' WRK-MPRF-MAIL-UPD-CNT. CL*60 +00871 IF ((L203-FLD-ZIP = MPRF-FLD-ZIP) AND CL*60 +00872 (L203-FLD-STATE = MPRF-FLD-ST) AND CL*56 +00873 (WRK-MPRF-MAIL-UPD-CNT = 0)) CL*60 +00874 GO TO P2000-EXIT CL*56 +00875 ELSE CL*56 +00876 MOVE L203-FLD-ZIP TO MPRF-FLD-ZIP CL*56 +00877 MOVE L203-FLD-STATE TO MPRF-FLD-ST. DTSBX427 +00878 DTSBX427 +00879 MOVE MHDR-CURR-RUN-DATE TO MPRF-CHNG-DATE. DTSBX427 +00880 DTSBX427 +00881 MOVE MPRF-REC TO MSKL-REC. DTSBX427 +00882 DTSBX427 +00883 PERFORM S910-REWRITE THRU S910-EXIT. DTSBX427 +00884 ADD +1 TO WRK-MPRF-UPD-CNT. CL*18 +00885 DTSBX427 +00886 P2000-EXIT. DTSBX427 +00887 EXIT. DTSBX427 +00888 DTSBX427 +00889 CL**3 +00890 T0000-TERMINATE. DTSBX427 +00891 DISPLAY DTSBX427 +00892 '*** DTSBX427 TERMINATION STATISTICS'. CL**2 +00893 DTSBX427 +00894 DISPLAY ' '. DTSBX427 +00895 DTSBX427 +00896 DISPLAY DTSBX427 +00897 '*** NUMBER OF X110 FILE RECORDS READ : ' CL**5 +00898 WRK-X110-REC-CNT. CL**5 +00899 MOVE WRK-X110-REC-CNT TO WS-X110-PEN-CNT. CL*87 +00900 DTSBX427 +00901 DISPLAY ' '. DTSBX427 +00902 DTSBX427 +00903 DISPLAY DTSBX427 +00904 '*** NUMBER OF PROFILE RECORDS NOT FOUND : ' CL*40 +00905 WRK-MPRF-NOT-CNT. CL*18 +00906 DTSBX427 +00907 DISPLAY CL*18 +00908 '*** NUMBER OF PROFILE RECORDS UPDATED : ' CL*40 +00909 WRK-MPRF-UPD-CNT. CL*18 +00910 CL*18 +00911 DISPLAY DTSBX427 +00912 '*** NUMBER OF MAIL RECORDS ADDED : ' CL*18 +00913 WRK-MTAD-ADD-CNT. CL*18 +00914 DTSBX427 +00915 DISPLAY CL*20 +00916 '*** NUMBER OF MAIL RECORDS UPDATED : ' CL*18 +00917 WRK-MTAD-UPD-CNT. CL*18 +00918 CL*18 +00919 DISPLAY CL*18 +00920 '*** NUMBER OF DC RECORDS ADDED : ' CL*18 +00921 WRK-MDCD-ADD-CNT. CL*18 +00922 CL*18 +00923 DISPLAY CL*20 +00924 '*** NUMBER OF DC RECORDS UPDATED : ' CL*18 +00925 WRK-MDCD-UPD-CNT. CL*18 +00926 CL*18 +00927 DISPLAY DTSBX427 +00928 '*** NUMBER OF MLOG RECORDS WRITTEN : ' DTSBX427 +00929 WRK-MLOG-REC-CNT. DTSBX427 +00930 DTSBX427 +00931 DTSBX427 +00932 PERFORM S910-CLOSE THRU S910-EXIT. DTSBX427 +00933 DTSBX427 +00934 PERFORM S921-CLOSE THRU S921-EXIT. DTSBX427 +00935 PERFORM S927C-CLOSE THRU S927C-EXIT. CL*20 +00936 DTSBX427 +00937 WRITE REPT-PAID-REC FROM FOOTING-LINE-51 AFTER ADVANCING 3. CL*87 +00938 WRITE REPT-PAID-REC FROM FOOTING-LINE-6 AFTER ADVANCING 2. CL*87 +00939 WRITE REPT-PAID-REC FROM FOOTING-LINE-7 AFTER ADVANCING 2. CL*87 +00940 CLOSE ESSP-X110-FILE REPT-PAID-FILE REPT-PEND-FILE. CL*75 +00941 T0000-EXIT. DTSBX427 +00942 EXIT. DTSBX427 +00943 EJECT DTSBX427 +00944 S005-FROM-SYS. DTSBX427 +00945 SET L005-FROM-SYS TO TRUE. DTSBX427 +00946 GO TO S005-ABSTIME. DTSBX427 +00947 DTSBX427 +00948 S005-FROM-ABSTIME. DTSBX427 +00949 SET L005-FROM-ABSTIME TO TRUE. DTSBX427 +00950 GO TO S005-ABSTIME. DTSBX427 +00951 DTSBX427 +00952 S005-ABSTIME. DTSBX427 +00953 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX427 +00954 S005-EXIT. DTSBX427 +00955 EXIT. DTSBX427 +00956 SKIP3 DTSBX427 +00957 S203-FIELD-ZIP-CODE. DTSBX427 +00958 CALL 'DTSBU203' USING L203-LINK-AREA. DTSBX427 +00959 S203-EXIT. DTSBX427 +00960 EXIT. DTSBX427 +00961 SKIP3 DTSBX427 +00962 S009-CONVERT-TO-CAPS. CL*47 +00963 CALL 'DTSBU009' USING L009-LINK-AREA. CL*47 +00964 S009-EXIT. CL*47 +00965 EXIT. CL*47 +00966 SKIP3 CL*47 +00967 S331-WRITE-MLOG. DTSBX427 +00968 CALL 'DTSBU331' USING L331-LINK-AREA. DTSBX427 +00969 S331-EXIT. DTSBX427 +00970 EXIT. DTSBX427 +00971 SKIP3 DTSBX427 +00972 S910-OPEN-UPDATE. DTSBX427 +00973 SET L910-OPEN-UPDATE-88 TO TRUE. DTSBX427 +00974 GO TO S910-MSTR-CALL. DTSBX427 +00975 DTSBX427 +00976 S910-READ. DTSBX427 +00977 SET L910-READ-88 TO TRUE. DTSBX427 +00978 GO TO S910-MSTR-CALL. DTSBX427 +00979 DTSBX427 +00980 S910-START-BROWSE. DTSBX427 +00981 SET L910-START-BROWSE-88 TO TRUE. DTSBX427 +00982 GO TO S910-MSTR-CALL. DTSBX427 +00983 DTSBX427 +00984 S910-READ-NEXT. DTSBX427 +00985 SET L910-READ-NEXT-88 TO TRUE. DTSBX427 +00986 GO TO S910-MSTR-CALL. DTSBX427 +00987 DTSBX427 +00988 *S910-COUNT. DTSBX427 +00989 *****SET L910-COUNT-88 TO TRUE. DTSBX427 +00990 *****GO TO S910-MSTR-CALL. DTSBX427 +00991 DTSBX427 +00992 S910-REWRITE. DTSBX427 +00993 SET L910-REWRITE-88 TO TRUE. DTSBX427 +00994 GO TO S910-MSTR-CALL. DTSBX427 +00995 DTSBX427 +00996 S910-CLOSE. DTSBX427 +00997 SET L910-CLOSE-88 TO TRUE. DTSBX427 +00998 GO TO S910-MSTR-CALL. DTSBX427 +00999 DTSBX427 +01000 S910-MSTR-CALL. DTSBX427 + DISPLAY 'L910-LINK-AREA-' L910-LINK-AREA + DISPLAY 'MSKL-REC-' MSKL-REC +01001 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX427 +01002 MSKL-REC. DTSBX427 +01003 S910-EXIT. DTSBX427 +01004 EXIT. DTSBX427 +01005 SKIP3 DTSBX427 +01006 S921-OPEN-UPDATE. DTSBX427 +01007 SET L921-OPEN-UPDATE-88 TO TRUE. DTSBX427 +01008 GO TO S921-AIX-IO. DTSBX427 +01009 DTSBX427 +01010 S921-CLOSE. DTSBX427 +01011 SET L921-CLOSE-88 TO TRUE. DTSBX427 +01012 GO TO S921-AIX-IO. DTSBX427 +01013 DTSBX427 +01014 S921-AIX-IO. DTSBX427 +01015 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX427 +01016 ISKL-REC. DTSBX427 +01017 S921-EXIT. DTSBX427 +01018 EXIT. DTSBX427 +01019 SKIP3 DTSBX427 +01020 S927A-OPEN-UPDATE. CL*19 +01021 SET L927-OPEN-UPDATE-88 TO TRUE. CL*19 +01022 PERFORM S927Z-IO THRU S927Z-EXIT. CL*19 +01023 S927A-EXIT. CL*19 +01024 EXIT. CL*19 +01025 CL*19 +01026 S927B-WRITE. CL*12 +01027 SET L927-WRITE-88 TO TRUE. CL*12 +01028 PERFORM S927Z-IO THRU S927Z-EXIT. CL*12 +01029 CL*12 +01030 S927B-EXIT. CL*12 +01031 EXIT. CL*12 +01032 CL*12 +01033 S927C-CLOSE. CL*16 +01034 SET L927-CLOSE-88 TO TRUE. CL*16 +01035 PERFORM S927Z-IO THRU S927Z-EXIT. CL*16 +01036 CL*16 +01037 S927C-EXIT. CL*16 +01038 EXIT. CL*16 +01039 CL*12 +01040 S927Z-IO. CL*12 +01041 CALL 'DTSBU927' USING L927-LINK-AREA CL*12 +01042 TSKL-REC. CL*12 +01043 S927Z-EXIT. CL*12 +01044 EXIT. CL*12 +01045 S946-WRITE-R140. CL*18 +01046 CL*18 +01047 CALL 'DTSBU946' USING R140-REC. CL*18 +01048 CL*18 +01049 S946-EXIT. CL*18 +01050 EXIT. CL*18 +01051 S999-ABEND. DTSBX427 +01052 DISPLAY '*** DTSBX427 ABENDING. ' CL**2 +01053 ABEND-MSG. DTSBX427 +01054 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX427 +01055 S999-EXIT. DTSBX427 +01056 EXIT. DTSBX427 +01057 EJECT DTSBX427 diff --git a/Batch/DTSBX478.cob b/Batch/DTSBX478.cob new file mode 100644 index 0000000..fa6273d --- /dev/null +++ b/Batch/DTSBX478.cob @@ -0,0 +1,540 @@ +00001 IDENTIFICATION DIVISION. 11/14/24 +00002 PROGRAM-ID. DTSBX478. DTSBX478 +00003 AUTHOR. NGC. LV007 +00004 DATE-WRITTEN. DECEMBER 2012. DTSBX478 +00005 DATE-COMPILED. DTSBX478 +00006 SKIP3 DTSBX478 +00007 ***** DTSBX478 +00008 * DTSBX478 +00009 * ZUNCTION: DELETE WAGES TO WGH FILE FOR TESTING. DTSBX478 +00010 * FOR TAX WAGES SINCE UIBS 01/21/24 ZL1 DTSBX478 +00011 * DTSBX478 +00012 * DTSBX478 +00013 * MODIFICATION LOG: DTSBX478 +00014 * DTSBX478 +00015 * 12/06/2012 INITIAL DEVELOPMENT. DTSBX478 +00016 * WORK ORDER: PROGRAMMER: GD DTSBX478 +00017 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX478 +00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX478 +00019 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX478 +00020 * DTSBX478 +00021 * DTSBX478 +00022 * DESCRIPTION: DTSBX478 +00023 * DTSBX478 +00024 * DTSBX478 +00025 * DTSBX478 +00026 * DTSBX478 +00027 * DTSBX478 +00028 * DTSBX478 +00029 * DTSBX478 +00030 * DTSBX478 +00031 * DTSBX478 +00032 * DTSBX478 +00033 * DTSBX478 +00034 * GENERAL SPECIFICATIONS: DTSBX478 +00035 * DTSBX478 +00036 * ALL COMMANDS ARE VALID. DTSBX478 +00037 * DTSBX478 +00038 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DTSBX478 +00039 * MODULE. DTSBX478 +00040 * DTSBX478 +00041 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DTSBX478 +00042 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DTSBX478 +00043 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DTSBX478 +00044 * DTSBX478 +00045 * DTSBX478 +00046 * DTSBX478 +00047 * COMMAND SPECIFIC SPECIFICATIONS: DTSBX478 +00048 * DTSBX478 +00049 * OPEN-READ DTSBX478 +00050 * OPEN INPUT. DTSBX478 +00051 * DTSBX478 +00052 * OPEN-UPDATE DTSBX478 +00053 * OPEN I-O. DTSBX478 +00054 * DTSBX478 +00055 * CLOSE DTSBX478 +00056 * DTSBX478 +00057 * READ DTSBX478 +00058 * DTSBX478 +00059 * START BROWSE DTSBX478 +00060 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DTSBX478 +00061 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DTSBX478 +00062 * A RECORD. DTSBX478 +00063 * DTSBX478 +00064 * READ NEXT DTSBX478 +00065 * DTSBX478 +00066 * WRITE DTSBX478 +00067 * DTSBX478 +00068 * REWRITE DTSBX478 +00069 * DTSBX478 +00070 * DELETE DTSBX478 +00071 * DTSBX478 +00072 * DTSBX478 +00073 ***** DTSBX478 +00074 DTSBX478 +00075 ENVIRONMENT DIVISION. DTSBX478 +00076 DTSBX478 +00077 INPUT-OUTPUT SECTION. DTSBX478 +00078 DTSBX478 +00079 FILE-CONTROL. DTSBX478 +00080 SELECT W2GE-TRANS-FILE ASSIGN TO DTSFW2 CL**3 +00081 FILE STATUS IS WAGE-TRANS-STATUS. DTSBX478 +00082 DTSBX478 +00083 SELECT W4GE-TRANS-FILE ASSIGN TO DTSFW4 CL**3 +00084 FILE STATUS IS WAGE-TRANS-STATUS. CL**3 +00085 CL**5 +00086 SELECT UIBS-TRANS-FILE ASSIGN TO DTSFUIBS CL**5 +00087 FILE STATUS IS WAGE-TRANS-STATUS. CL**5 +00088 CL**3 +00089 * SELECT TAXWGH-FILE ASSIGN TO DTSXWGH DTSBX478 +00090 * FILE STATUS IS DOWNLOAD-STATUS. DTSBX478 +00091 DTSBX478 +00092 DATA DIVISION. DTSBX478 +00093 DTSBX478 +00094 FILE SECTION. DTSBX478 +00095 DTSBX478 +00096 FD W2GE-TRANS-FILE CL**3 +00097 RECORDING MODE IS F DTSBX478 +00098 BLOCK CONTAINS 0 RECORDS. DTSBX478 +00099 DTSBX478 +00100 01 W2GE-TRANS-REC PIC X(80). CL**3 +00101 DTSBX478 +00102 FD UIBS-TRANS-FILE CL**5 +00103 RECORDING MODE IS F CL**5 +00104 BLOCK CONTAINS 0 RECORDS. CL**5 +00105 CL**5 +00106 01 UIBS-TRANS-REC PIC X(80). CL**5 +00107 CL**5 +00108 CL**3 +00109 FD W4GE-TRANS-FILE CL**3 +00110 RECORDING MODE IS F CL**3 +00111 BLOCK CONTAINS 0 RECORDS. CL**3 +00112 CL**3 +00113 01 W4GE-TRANS-REC PIC X(80). CL**3 +00114 CL**3 +00115 *FD TAXWGH-FILE DTSBX478 +00116 * RECORDING MODE IS F DTSBX478 +00117 * BLOCK CONTAINS 0 RECORDS. DTSBX478 +00118 DTSBX478 +00119 *01 TAXWGH-REC PIC X(18). DTSBX478 +00120 DTSBX478 +00121 WORKING-STORAGE SECTION. DTSBX478 +001215 77 PAN-VALET PICTURE X(24) VALUE '007DTSBX478 11/14/24'. DTSBX478 +00122 SKIP3 DTSBX478 +00123 01 WRK-AREA. DTSBX478 +00124 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +480. DTSBX478 +00125 DTSBX478 +00126 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU480'. DTSBX478 +00127 DTSBX478 +00128 05 W-CURR-EMP-NO PIC S9(06) COMP-3 VALUE +0. DTSBX478 +00129 05 W-CURR-YRQ PIC S9(05) COMP-3 DTSBX478 +00130 VALUE +20121. DTSBX478 +00131 05 W-CURR-BATCH PIC S9(05) COMP-3 VALUE +0. DTSBX478 +00132 05 W-CURR-ITEM PIC S9(03) COMP-3 VALUE +0. DTSBX478 +00133 05 W-MQTR-TOT-WAGE PIC S9(11)V99 COMP-3 DTSBX478 +00134 VALUE +0. DTSBX478 +00135 05 W-WTC-BATCH-NO PIC S9(05) COMP-3 DTSBX478 +00136 VALUE +90001. DTSBX478 +00137 05 W-WTC-ITEM-NO PIC S9(03) COMP-3 DTSBX478 +00138 VALUE +003. DTSBX478 +00139 05 W-WTC-SEQ-NO PIC S9(03) COMP-3 DTSBX478 +00140 VALUE +001. DTSBX478 +00141 05 W-MAX-BATCH PIC S9(05) COMP-3 VALUE +0. DTSBX478 +00142 05 W-MIN-BATCH PIC S9(05) COMP-3 DTSBX478 +00143 VALUE +99999. DTSBX478 +00144 05 WRK-W2-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478 +00145 05 WRK-W4-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478 +00146 05 WRK-WWGH-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478 +00147 05 WRK-DELETE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478 +00148 05 W-BYPASSED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478 +00149 05 W-BACKLOG PIC S9(07) COMP-3 VALUE +0. DTSBX478 +00150 05 AMT-DISP1 PIC ----------9.99. DTSBX478 +00151 05 AMT-DISP2 PIC ----------9.99. DTSBX478 +00152 05 AMT-DISP3 PIC ----------9.99. DTSBX478 +00153 05 AMT-DISP4 PIC ----------9.99. DTSBX478 +00154 DTSBX478 +00155 05 WRK-NET-WAGE PIC S9(11)V99 COMP-3 DTSBX478 +00156 VALUE +0. DTSBX478 +00157 05 W-WGH-WAGE PIC S9(11)V99 COMP-3 DTSBX478 +00158 VALUE +0. DTSBX478 +00159 05 W-WORKER-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478 +00160 05 W-DIFFERENCE PIC S9(11)V99 COMP-3 DTSBX478 +00161 VALUE +0. DTSBX478 +00162 DTSBX478 +00163 05 W2-REC-READ PIC 9(9) VALUE 0. DTSBX478 +00164 05 W4-REC-READ PIC 9(9) VALUE 0. DTSBX478 +00165 05 W4-REC-FOUND PIC 9(9) VALUE 0. DTSBX478 +00166 05 W4-REC-ADDED PIC 9(9) VALUE 0. DTSBX478 +00167 05 W2-REC-DELETED PIC 9(9) VALUE 0. DTSBX478 +00168 05 W2-REC-FOUND PIC 9(9) VALUE 0. DTSBX478 +00169 DTSBX478 +00170 05 W-RESP-OPID PIC X(08). DTSBX478 +00171 05 WRK-ERROR-IND PIC X(01). DTSBX478 +00172 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX478 +00173 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX478 +00174 DTSBX478 +00175 05 W-EMP-EXISTS-IND PIC X(01). DTSBX478 +00176 88 W-EMP-EXISTS-YES-88 VALUE 'Y'. DTSBX478 +00177 88 W-EMP-EXISTS-NO-88 VALUE 'N'. DTSBX478 +00178 05 W-DELINQUENT-IND PIC X(01). DTSBX478 +00179 88 W-DELINQUENT-YES-88 VALUE 'Y'. DTSBX478 +00180 88 W-DELINQUENT-NO-88 VALUE 'N'. DTSBX478 +00181 05 WAGE-TRANS-STATUS PIC X(02). DTSBX478 +00182 88 WAGE-TRANS-FILE-OK-88 VALUE '00'. DTSBX478 +00183 88 WAGE-TRANS-FILE-NO-REC-88 VALUE '10' '23'. DTSBX478 +00184 88 WAGE-TRANS-FILE-VERIFY-88 VALUE '97'. DTSBX478 +00185 DTSBX478 +00186 05 DOWNLOAD-STATUS PIC X(02). DTSBX478 +00187 88 DOWNLOAD-FILE-OK-88 VALUE '00'. DTSBX478 +00188 DTSBX478 +00189 05 WRK-YRQ PIC 9(05). DTSBX478 +00190 05 FILLER REDEFINES WRK-YRQ. DTSBX478 +00191 10 WRK-YRQ-YEAR PIC 9(04). DTSBX478 +00192 10 WRK-YRQ-QTR PIC 9(01). DTSBX478 +00193 DTSBX478 +00194 05 WRK-YRQ-X. DTSBX478 +00195 10 WRK-YRQ-YEAR-X PIC 9(04). DTSBX478 +00196 10 FILLER PIC X(01) VALUE '/'. DTSBX478 +00197 10 WRK-YRQ-QTR-X PIC 9(01). DTSBX478 +00198 DTSBX478 +00199 01 OUT-W4-REC. CL**5 +00200 10 FILLER PIC X(10) VALUE SPACES. CL**5 +00201 10 FILLER PIC X(35) VALUE CL**5 +00202 'TOTAL W4 TRANS REC SENT TO UIBS = '. CL**7 +00203 10 W4-COUNT PIC ZZZZ999. CL**6 +00204 10 FILLER PIC X(28) VALUE SPACES. CL**6 +00205 CL**5 +00206 01 OUT-W2-REC. CL**6 +00207 10 FILLER PIC X(10) VALUE SPACES. CL**6 +00208 10 FILLER PIC X(35) VALUE CL**6 +00209 'TOTAL W2 TRANS REC SENT TO UIBS = '. CL**7 +00210 10 W2-COUNT PIC ZZZZ999. CL**6 +00211 10 FILLER PIC X(28) VALUE SPACES. CL**6 +00212 CL**6 +00213 01 L004-COMM-AREA. CL**5 +00214 ++INCLUDE DTSIL004 DTSBX478 +00215 DTSBX478 +00216 01 L424-LINK-AREA. DTSBX478 +00217 ++INCLUDE DTSIL424 DTSBX478 +00218 DTSBX478 +00219 01 L516-LINK-AREA. DTSBX478 +00220 ++INCLUDE DTSIL516 DTSBX478 +00221 DTSBX478 +00222 01 L910-LINK-AREA. DTSBX478 +00223 ++INCLUDE DTSIL910 DTSBX478 +00224 DTSBX478 +00225 01 X147-REC. DTSBX478 +00226 ++INCLUDE DTSIX147 DTSBX478 +00227 DTSBX478 +00228 01 MSKL-REC. DTSBX478 +00229 ++INCLUDE DTSIMSKL DTSBX478 +00230 DTSBX478 +00231 01 MPRF-REC. DTSBX478 +00232 ++INCLUDE DTSIMPRF DTSBX478 +00233 DTSBX478 +00234 01 MQTR-REC. DTSBX478 +00235 ++INCLUDE DTSIMQTR DTSBX478 +00236 DTSBX478 +00237 01 L931-LINK-AREA. DTSBX478 +00238 ++INCLUDE DTSIL931 DTSBX478 +00239 DTSBX478 +00240 01 FSKL-REC. DTSBX478 +00241 ++INCLUDE DTSIFSKL DTSBX478 +00242 DTSBX478 +00243 01 L981-LINK-AREA. DTSBX478 +00244 ++INCLUDE DTSIL981 DTSBX478 +00245 DTSBX478 +00246 01 WWGH-REC. DTSBX478 +00247 ++INCLUDE DTSIWWGH DTSBX478 +00248 DTSBX478 +00249 01 L983-LINK-AREA. DTSBX478 +00250 ++INCLUDE DTSIL983 DTSBX478 +00251 DTSBX478 +00252 01 WSKL-REC. DTSBX478 +00253 ++INCLUDE DTSIWSKL DTSBX478 +00254 DTSBX478 +00255 01 W001-REC. DTSBX478 +00256 ++INCLUDE DTSIW001 DTSBX478 +00257 DTSBX478 +00258 01 L982-LINK-AREA. DTSBX478 +00259 ++INCLUDE DTSIL982 DTSBX478 +00260 DTSBX478 +00261 01 WNAM-REC. DTSBX478 +00262 ++INCLUDE DTSIWNAM DTSBX478 +00263 DTSBX478 +00264 01 WAGE-TRANS-AREA. CL**4 +00265 05 ESP-TRANSACTION-AREA PIC X(80). CL**4 +00266 ++INCLUDE EWGTRNW2 DTSBX478 +00267 ++INCLUDE EWGTRNW4 CL**3 +00268 CL**3 +00269 PROCEDURE DIVISION. DTSBX478 +00270 DTSBX478 +00271 PERFORM I0000-INIT THRU I0000-EXIT. DTSBX478 +00272 IF WRK-ERROR-NO-88 DTSBX478 +00273 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX478 +00274 PERFORM T0000-TERM THRU T0000-EXIT DTSBX478 +00275 END-IF. DTSBX478 +00276 DTSBX478 +00277 GOBACK. DTSBX478 +00278 EJECT DTSBX478 +00279 I0000-INIT. DTSBX478 +00280 SET WRK-ERROR-NO-88 TO TRUE. DTSBX478 +00281 DTSBX478 +00282 OPEN INPUT W2GE-TRANS-FILE. CL**3 +00283 IF WAGE-TRANS-FILE-OK-88 DTSBX478 +00284 OR WAGE-TRANS-FILE-VERIFY-88 DTSBX478 +00285 NEXT SENTENCE DTSBX478 +00286 ELSE DTSBX478 +00287 PERFORM S999-ABEND THRU S999-EXIT DTSBX478 +00288 END-IF. DTSBX478 +00289 DTSBX478 +00290 OPEN OUTPUT UIBS-TRANS-FILE. CL**6 +00291 IF WAGE-TRANS-FILE-OK-88 CL**6 +00292 OR WAGE-TRANS-FILE-VERIFY-88 CL**6 +00293 NEXT SENTENCE CL**6 +00294 ELSE CL**6 +00295 PERFORM S999-ABEND THRU S999-EXIT CL**6 +00296 END-IF. CL**6 +00297 CL**6 +00298 OPEN INPUT W4GE-TRANS-FILE. CL**3 +00299 IF WAGE-TRANS-FILE-OK-88 CL**3 +00300 OR WAGE-TRANS-FILE-VERIFY-88 CL**3 +00301 NEXT SENTENCE CL**3 +00302 ELSE CL**3 +00303 PERFORM S999-ABEND THRU S999-EXIT CL**3 +00304 END-IF. CL**3 +00305 CL**3 +00306 DTSBX478 +00307 * OPEN OUTPUT TAXWGH-FILE. DTSBX478 +00308 * IF WAGE-TRANS-FILE-OK-88 DTSBX478 +00309 * OR WAGE-TRANS-FILE-VERIFY-88 DTSBX478 +00310 * NEXT SENTENCE DTSBX478 +00311 * ELSE DTSBX478 +00312 * PERFORM S999-ABEND THRU S999-EXIT DTSBX478 +00313 * END-IF. DTSBX478 +00314 DTSBX478 +00315 * PERFORM S981A-OPEN-UPDATE THRU S981A-EXIT. CL**3 +00316 * PERFORM S983-OPEN-UPDATE THRU S983-EXIT. CL**3 +00317 * PERFORM S931-OPEN-READ THRU S931-EXIT. CL**3 +00318 DTSBX478 +00319 I0000-EXIT. DTSBX478 +00320 EXIT. DTSBX478 +00321 DTSBX478 +00322 P0000-PROCESS. DTSBX478 +00323 READ W2GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4 +00324 DTSBX478 +00325 PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88 DTSBX478 +00326 PERFORM P2000-W2-WAGE THRU P2000-EXIT CL**3 +00327 READ W2GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4 +00328 DTSBX478 +00329 END-PERFORM. DTSBX478 +00330 DTSBX478 +00331 READ W4GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4 +00332 CL**3 +00333 PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88 CL**3 +00334 PERFORM P3000-W4-WAGE THRU P3000-EXIT CL**3 +00335 READ W4GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4 +00336 CL**3 +00337 END-PERFORM. CL**3 +00338 P0000-EXIT. DTSBX478 +00339 EXIT. DTSBX478 +00340 DTSBX478 +00341 DTSBX478 +00342 P2000-W2-WAGE. CL**3 +00343 ADD 1 TO W2-REC-READ. CL**3 +00344 DTSBX478 +00345 P2000-EXIT. DTSBX478 +00346 EXIT. DTSBX478 +00347 DTSBX478 +00348 P3000-W4-WAGE. CL**3 +00349 ADD 1 TO W4-REC-READ. CL**3 +00350 CL**3 +00351 P3000-EXIT. CL**3 +00352 T0000-TERM. DTSBX478 +00353 * PERFORM S981D-CLOSE THRU S981D-EXIT. CL**3 +00354 * PERFORM S983-CLOSE THRU S983-EXIT. CL**3 +00355 * PERFORM S931-CLOSE THRU S931-EXIT. CL**3 +00356 DTSBX478 +00357 * CLOSE WAGE-TRANS-FILE TAXWGH-FILE. DTSBX478 +00358 CLOSE W2GE-TRANS-FILE. CL**3 +00359 CLOSE W4GE-TRANS-FILE. CL**3 +00360 DTSBX478 +00361 DISPLAY '******************************************' DTSBX478 +00362 DISPLAY '** DTSBX478 TERMINATION STATISTICS **'. CL**3 +00363 DTSBX478 +00364 DISPLAY 'TOTAL W4 TRANS REC READ = ' W4-REC-READ. DTSBX478 +00365 * DISPLAY 'TOTAL W4 TRANS REC FOUND = ' W4-REC-FOUND. CL**3 +00366 * DISPLAY 'TOTAL W4 TRANS REC ADDED = ' W4-REC-ADDED. CL**3 +00367 DISPLAY 'TOTAL W2 TRANS REC READ = ' W2-REC-READ. DTSBX478 +00368 * DISPLAY 'TOTAL W2 TRANS REC FOUND = ' W2-REC-FOUND. CL**3 +00369 * DISPLAY 'TOTAL W2 TRANS REC DELETED = ' W2-REC-DELETED. CL**3 +00370 DISPLAY ' '. DTSBX478 +00371 MOVE W4-REC-READ TO W4-COUNT. CL**6 +00372 MOVE W2-REC-READ TO W2-COUNT. CL**6 +00373 WRITE UIBS-TRANS-REC FROM OUT-W2-REC. CL**6 +00374 WRITE UIBS-TRANS-REC FROM OUT-W4-REC. CL**6 +00375 CLOSE W4GE-TRANS-FILE. CL**6 +00376 T0000-EXIT. DTSBX478 +00377 EXIT. DTSBX478 +00378 DTSBX478 +00379 S004-EDIT-QTR. DTSBX478 +00380 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBX478 +00381 DTSBX478 +00382 S004-EXIT. DTSBX478 +00383 EXIT. DTSBX478 +00384 DTSBX478 +00385 S516-LIABILITY-INFO. DTSBX478 +00386 CALL 'DTSBU516' USING L516-LINK-AREA DTSBX478 +00387 MPRF-REC. DTSBX478 +00388 S516-EXIT. DTSBX478 +00389 EXIT. DTSBX478 +00390 DTSBX478 +00391 S910-OPEN-READ. DTSBX478 +00392 SET L910-OPEN-READ-88 TO TRUE. DTSBX478 +00393 GO TO S910-MSTR-IO. DTSBX478 +00394 DTSBX478 +00395 S910-READ. DTSBX478 +00396 SET L910-READ-88 TO TRUE. DTSBX478 +00397 GO TO S910-MSTR-IO. DTSBX478 +00398 DTSBX478 +00399 S910-START-BROWSE. DTSBX478 +00400 SET L910-START-BROWSE-88 TO TRUE. DTSBX478 +00401 GO TO S910-MSTR-IO. DTSBX478 +00402 DTSBX478 +00403 S910-READ-NEXT. DTSBX478 +00404 SET L910-READ-NEXT-88 TO TRUE. DTSBX478 +00405 GO TO S910-MSTR-IO. DTSBX478 +00406 DTSBX478 +00407 S910-CLOSE. DTSBX478 +00408 SET L910-CLOSE-88 TO TRUE. DTSBX478 +00409 GO TO S910-MSTR-IO. DTSBX478 +00410 DTSBX478 +00411 S910-MSTR-IO. DTSBX478 +00412 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX478 +00413 MSKL-REC. DTSBX478 +00414 S910-EXIT. DTSBX478 +00415 EXIT. DTSBX478 +00416 DTSBX478 +00417 S931-OPEN-READ. DTSBX478 +00418 SET L931-OPEN-READ-88 TO TRUE. DTSBX478 +00419 GO TO S931-REF-IO. DTSBX478 +00420 DTSBX478 +00421 S931-CLOSE. DTSBX478 +00422 SET L931-CLOSE-88 TO TRUE. DTSBX478 +00423 GO TO S931-REF-IO. DTSBX478 +00424 DTSBX478 +00425 S931-REF-IO. DTSBX478 +00426 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX478 +00427 FSKL-REC. DTSBX478 +00428 S931-EXIT. DTSBX478 +00429 EXIT. DTSBX478 +00430 DTSBX478 +00431 S981A-OPEN-UPDATE. DTSBX478 +00432 SET L981-OPEN-UPDATE-88 TO TRUE. DTSBX478 +00433 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478 +00434 DTSBX478 +00435 S981A-EXIT. DTSBX478 +00436 EXIT. DTSBX478 +00437 DTSBX478 +00438 S981B-WRITE. DTSBX478 +00439 SET L981-WRITE-88 TO TRUE. DTSBX478 +00440 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478 +00441 DTSBX478 +00442 S981B-EXIT. DTSBX478 +00443 EXIT. DTSBX478 +00444 S981C-READ. DTSBX478 +00445 SET L981-READ-88 TO TRUE. DTSBX478 +00446 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478 +00447 DTSBX478 +00448 S981C-EXIT. DTSBX478 +00449 EXIT. DTSBX478 +00450 S981E-DELETE. DTSBX478 +00451 SET L981-DELETE-88 TO TRUE. DTSBX478 +00452 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478 +00453 DTSBX478 +00454 S981E-EXIT. DTSBX478 +00455 EXIT. DTSBX478 +00456 DTSBX478 +00457 S981D-CLOSE. DTSBX478 +00458 SET L981-CLOSE-88 TO TRUE. DTSBX478 +00459 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478 +00460 DTSBX478 +00461 S981D-EXIT. DTSBX478 +00462 EXIT. DTSBX478 +00463 DTSBX478 +00464 S981Z-WWGH-IO. DTSBX478 +00465 CALL 'DTSBU981' USING L981-LINK-AREA DTSBX478 +00466 WWGH-REC. DTSBX478 +00467 S981Z-EXIT. DTSBX478 +00468 EXIT. DTSBX478 +00469 DTSBX478 +00470 S983-OPEN-UPDATE. DTSBX478 +00471 SET L983-OPEN-UPDATE-88 TO TRUE. DTSBX478 +00472 GO TO S983-WAGE-I. DTSBX478 +00473 DTSBX478 +00474 S983-WRITE. DTSBX478 +00475 SET L983-WRITE-88 TO TRUE. DTSBX478 +00476 GO TO S983-WAGE-I. DTSBX478 +00477 DTSBX478 +00478 S983-DELETE. DTSBX478 +00479 SET L983-DELETE-88 TO TRUE. DTSBX478 +00480 GO TO S983-WAGE-I. DTSBX478 +00481 DTSBX478 +00482 S983-CLOSE. DTSBX478 +00483 SET L983-CLOSE-88 TO TRUE. DTSBX478 +00484 GO TO S983-WAGE-I. DTSBX478 +00485 DTSBX478 +00486 S983-WAGE-I. DTSBX478 +00487 CALL 'DTSBU983' USING L983-LINK-AREA DTSBX478 +00488 WSKL-REC. DTSBX478 +00489 S983-EXIT. DTSBX478 +00490 EXIT. DTSBX478 +00491 DTSBX478 +00492 S982A-START-BROWSE. DTSBX478 +00493 SET L982-START-BROWSE-88 TO TRUE. DTSBX478 +00494 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478 +00495 DTSBX478 +00496 S982A-EXIT. DTSBX478 +00497 EXIT. DTSBX478 +00498 DTSBX478 +00499 S982B-READ-NEXT. DTSBX478 +00500 SET L982-READ-NEXT-88 TO TRUE. DTSBX478 +00501 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478 +00502 DTSBX478 +00503 S982B-EXIT. DTSBX478 +00504 EXIT. DTSBX478 +00505 DTSBX478 +00506 S982C-OPEN-READ. DTSBX478 +00507 SET L982-OPEN-READ-88 TO TRUE. DTSBX478 +00508 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478 +00509 DTSBX478 +00510 S982C-EXIT. DTSBX478 +00511 EXIT. DTSBX478 +00512 DTSBX478 +00513 S982D-CLOSE. DTSBX478 +00514 SET L982-CLOSE-88 TO TRUE. DTSBX478 +00515 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478 +00516 DTSBX478 +00517 S982D-EXIT. DTSBX478 +00518 EXIT. DTSBX478 +00519 DTSBX478 +00520 S982Z-WNAM-IO. DTSBX478 +00521 CALL 'DTSBU982' USING L982-LINK-AREA DTSBX478 +00522 WNAM-REC. DTSBX478 +00523 S982Z-EXIT. DTSBX478 +00524 EXIT. DTSBX478 +00525 DTSBX478 +00526 DTSBX478 +00527 S999-ABEND. DTSBX478 +00528 DISPLAY '*** I/O MODULE ABENDING'. DTSBX478 +00529 DTSBX478 +00530 DISPLAY '*** CMND-CD = ' L983-CMND-CD. DTSBX478 +00531 DTSBX478 +00532 DISPLAY '*** FILE-STATUS = ' WAGE-TRANS-STATUS. DTSBX478 +00533 DTSBX478 +00534 DISPLAY '*** CALLING MODULE = ' L983-MOD-NAME. DTSBX478 +00535 DTSBX478 +00536 DTSBX478 +00537 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX478 +00538 S999-EXIT. DTSBX478 +00539 EXIT. DTSBX478 diff --git a/Batch/DTSBX601.cob b/Batch/DTSBX601.cob new file mode 100644 index 0000000..57620f2 --- /dev/null +++ b/Batch/DTSBX601.cob @@ -0,0 +1,963 @@ +00001 IDENTIFICATION DIVISION. 09/24/18 +00002 PROGRAM-ID. DTSBX601. DTSBX601 +00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV124 +00004 DATE-WRITTEN. DECEMBER 1998. CL**5 +00005 DATE-COMPILED. DTSBX601 +00006 SKIP3 DTSBX601 +00007 ***** DTSBX601 +00008 * DTSBX601 +00009 * FUNCTION: REPORT ALL RETURN FLAG UPDATED PRIOR DAY. CL*83 +00010 * DTSBX601 +00011 * DTSBX601 +00012 ***** DTSBX601 +00013 SKIP3 DTSBX601 +00014 ENVIRONMENT DIVISION. DTSBX601 +00015 SKIP2 DTSBX601 +00016 CONFIGURATION SECTION. CL*74 +00017 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. CL*74 +00018 CL*74 +00019 INPUT-OUTPUT SECTION. CL193 +00020 CL*74 +00021 FILE-CONTROL. CL193 +00022 SELECT EXP-FILE1 ASSIGN TO DTSFX601 CL*85 +00023 FILE STATUS IS EXP-STATUS. CL*85 +00024 CL*74 +00025 DATA DIVISION. CL*74 +00026 CL*74 +00027 FILE SECTION. CL193 +00028 CL193 +00029 FD EXP-FILE1 CL*85 +00030 RECORDING MODE IS F. CL*85 +00031 01 EXP-REC1 PIC X(80). CL*85 +00032 EJECT CL*74 +00033 CL*74 +00034 WORKING-STORAGE SECTION. DTSBX601 +000345 77 PAN-VALET PICTURE X(24) VALUE '124DTSBX601 09/24/18'. DTSBX601 +00035 SKIP3 DTSBX601 +00036 01 WRK-AREA. DTSBX601 +00037 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +400.DTSBX601 +00038 DTSBX601 +00039 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD400'. CL**2 +00040 CL181 +00041 05 WRK-RATE-TYPE-AREA. CL181 +00042 10 WRK-RATE-YR-SCHED PIC X(01). CL181 +00043 88 WRK-RATE-YR-ANN-88 VALUE 'Y'. CL181 +00044 10 WRK-RATE-YR-MINUS-1-SCHED PIC X(01). CL181 +00045 88 WRK-RATE-YR-MINUS1-ANN-88 VALUE 'Y'. CL181 +00046 10 WRK-RATE-YR-MINUS-2-SCHED PIC X(01). CL181 +00047 88 WRK-RATE-YR-MINUS2-ANN-88 VALUE 'Y'. CL181 +00048 05 FILLER REDEFINES WRK-RATE-TYPE-AREA PIC X(03). CL181 +00049 88 WRK-ESTIMATE-NEEDED-88 VALUE 'YYY' 'NYY'. CL185 +00050 88 WRK-TRANSITION-YEAR-88 VALUE 'YYN' 'NYN'. CL185 +00051 88 WRK-INIT-VALUES-88 VALUE 'NNN'. CL181 +00052 DTSBX601 +00053 05 WRK-SEQ PIC 9(05) CL*29 +00054 VALUE ZERO. CL*21 +00055 05 MLOG-CNT PIC 9(05) CL*86 +00056 VALUE ZERO. CL*86 +00057 05 WRK-ZIP PIC X(10). CL197 +00058 05 FILLER REDEFINES WRK-ZIP. CL197 +00059 10 WRK-ZIP5 PIC X(05). CL197 +00060 10 FILLER PIC X(05). CL197 +00061 CL197 +00062 05 EXP-STATUS PIC X(02). CL193 +00063 88 EXP-STATUS-OK-88 VALUE '00'. CL194 +00064 05 WRK-ERROR-IND PIC X(01). CL193 +00065 88 WRK-ERROR-YES-88 VALUE 'Y'. CL193 +00066 88 WRK-ERROR-NO-88 VALUE 'N'. CL193 +00067 05 WRK-MPRF-IND PIC X(01). CL*93 +00068 88 MPRF-OK-YES-88 VALUE 'Y'. CL*93 +00069 88 MPRF-NO-REC-88 VALUE 'N'. CL*93 +00070 05 WRK-WRITE-REC-IND PIC X(01). CL225 +00071 88 WRK-WRITE-REC-YES-88 VALUE 'Y'. CL225 +00072 88 WRK-WRITE-REC-NO-88 VALUE 'N'. CL225 +00073 05 WRK-OP-ID PIC X(08). CL236 +00074 05 WRK-IND-CODE PIC X(06). CL**9 +00075 05 WRK-REC1. CL193 +00076 10 REC1-EMP-NO PIC 999999. CL*21 +00077 10 FILLER PIC X(01) VALUE ','. CL*29 +00078 10 REC1-FLAG PIC X(01). CL*99 +00079 10 FILLER PIC X(01) VALUE ','. CL*33 +00080 10 REC1-DATE PIC 9(08). CL100 +00081 10 FILLER PIC X(01) VALUE ','. CL*44 +00082 10 REC1-OPID PIC X(08). CL*99 +00083 10 WRK-R1-SPACES PIC X(54). CL108 +00084 05 WRK-REC1-OLD. CL*21 +00085 10 REC1-BALANCE PIC --------9.99. CL*53 +00086 10 REC1-LP-BAL PIC --------9.99. CL*53 +00087 10 REC1-INT-BAL PIC --------9.99. CL*53 +00088 10 REC1-ZIP PIC 9(05). CL*53 +00089 10 REC1-ORG-TYPE PIC X(03). CL*47 +00090 10 REC1-CLASS PIC X(02). CL*47 +00091 10 REC1-LIAB-CD PIC X(02). CL*47 +00092 10 REC1-RCVD-DATE PIC X(10). CL*44 +00093 10 REC1-BATCH PIC 9(05). CL*44 +00094 10 REC1-ITEM PIC 9(03). CL*44 +00095 10 REC1-LP-CHG PIC --------9.99. CL*44 +00096 10 REC1-INT-CHG PIC --------9.99. CL*37 +00097 10 REC1-SOURCE PIC X(02). CL*31 +00098 10 REC1-MLOG-DATE PIC X(10). CL**8 +00099 10 REC1-IND-CODE PIC X(06). CL**8 +00100 10 REC1-OP-ID PIC X(08). CL**8 +00101 10 REC1-LIAB-DATE PIC X(10). CL**8 +00102 10 REC1-ASSIGN PIC 9(09). CL**5 +00103 10 REC1-COUNT PIC 9(07). CL**5 +00104 10 REC1-DEPOSIT-DATE PIC X(10). CL253 +00105 10 REC1-PROCESS-DATE PIC X(10). CL253 +00106 10 REC1-LIAB-ENTER-DATE PIC X(10). CL232 +00107 10 REC1-INACT-CODE PIC X(05). CL235 +00108 88 REC1-INACT-YES-88 VALUE 'INACT'. CL235 +00109 88 REC1-INACT-NO-88 VALUE 'ACT '. CL235 +00110 10 REC1-REACT PIC X(05). CL235 +00111 88 REC1-REACT-NO-88 VALUE 'NEW '. CL235 +00112 88 REC1-REACT-YES-88 VALUE 'REACT'. CL235 +00113 10 REC1-CREDIT PIC --------9.99. CL249 +00114 10 REC1-AREA PIC X(03). CL249 +00115 10 REC1-PFX PIC X(03). CL249 +00116 10 REC1-SFX PIC X(04). CL249 +00117 10 REC1-EXT PIC X(05). CL249 +00118 10 REC1-PAY-TYPE PIC X(02). CL225 +00119 10 REC1-AMT PIC --------9.99. CL225 +00120 05 WRK-ABS-QTR1 PIC S9(04) COMP-3 CL206 +00121 VALUE +0. CL206 +00122 05 WRK-ABS-QTR2 PIC S9(04) COMP-3 CL206 +00123 VALUE +0. CL206 +00124 05 WRK-ABS-DATE1 PIC S9(08) COMP. CL**1 +00125 05 WRK-ABS-DATE2 PIC S9(08) COMP. CL**1 +00126 05 WRK-EXT-CURRENT-DATE PIC S9(09) COMP-3. CL*84 +00127 05 WRK-DIFF PIC S9(07) COMP-3. CL*84 +00128 05 WRK-UNDER-30-CNT PIC S9(04) COMP-3 CL*19 +00129 VALUE +0. CL220 +00130 05 WRK-OVER-31-CNT PIC S9(04) COMP-3 CL*19 +00131 VALUE +0. CL220 +00132 05 WRK-MEVL-READ-CNT PIC S9(04) COMP-3 CL*72 +00133 VALUE +0. CL*72 +00134 05 WRK-MPRF-CNT PIC S9(07) COMP-3. CL220 +00135 05 WRK-FISCAL-AGENT-CD PIC X(03). CL239 +00136 05 WRK-BNK-IND PIC X(02). CL*38 +00137 05 WRK-FIRST-NEW-EMP-NO PIC S9(07) COMP-3. CL101 +00138 *& VALUE +123778. CL101 +00139 05 WRK-FEIN PIC 9(09). CL104 +00140 05 WRK-MQTR-BAL PIC S9(11)V99 COMP-3 VALUE +0. CL136 +00141 05 WRK-MQTR-CHG PIC S9(09)V99 COMP-3. CL**6 +00142 05 WRK-MQTR-ANN-BAL PIC S9(07)V99 COMP-3. CL234 +00143 05 WRK-MQTR-PEN-BAL PIC S9(07)V99 COMP-3. CL**1 +00144 05 WRK-MQTR-PEN-CHG PIC S9(07)V99 COMP-3. CL*34 +00145 05 WRK-MQTR-INT-BAL PIC S9(07)V99 COMP-3. CL**1 +00146 05 WRK-MQTR-INT-CHG PIC S9(07)V99 COMP-3. CL*34 +00147 05 WRK-RECEIVED-DATE PIC S9(09) COMP-3. CL*18 +00148 05 WRK-RPT-BAL-CNT PIC S9(07) COMP-3. CL*18 +00149 05 WRK-RPT-CNT PIC S9(07) COMP-3. CL195 +00150 05 WRK-BAL-CNT PIC S9(07) COMP-3. CL195 +00151 05 WRK-REL-CNT PIC S9(07) COMP-3. CL195 +00152 05 WRK-RATED-CNT PIC S9(07) COMP-3. CL*99 +00153 05 WRK-SELF-INS-CNT PIC S9(07) COMP-3. CL*99 +00154 05 WRK-HOTEL-CNT PIC S9(07) COMP-3 VALUE +0. CL251 +00155 05 WRK-TOT-EMPS PIC S9(07) COMP-3 VALUE +0. CL251 +00156 05 WRK-TOT-WORKERS PIC S9(11) COMP-3 VALUE +0. CL251 +00157 05 WRK-PURSUED-RPT-CNT PIC S9(07) COMP-3. CL205 +00158 05 WRK-LATE-RPT-CNT PIC S9(07) COMP-3. CL104 +00159 05 WRK-MEVL-DELETED-CNT PIC S9(07) COMP-3. CL*61 +00160 05 WRK-UC30-SENT-CNT PIC S9(07) COMP-3. CL188 +00161 05 WRK-UC30-RCVD-CNT PIC S9(07) COMP-3. CL188 +00162 05 WRK-OVER-1000-CNT PIC S9(07) COMP-3. CL*42 +00163 05 WRK-UNDER-1000-CNT PIC S9(07) COMP-3. CL*42 +00164 05 WRK-HOUSEHOLD-PAYMENTS PIC S9(11)V99 COMP-3. CL*43 +00165 05 WRK-TOT-WAGES PIC S9(11)V99 COMP-3. CL*43 +00166 05 WRK-ALL-BNK-RATED PIC S9(11)V99 COMP-3. CL154 +00167 05 WRK-OPN-BNK-RATED PIC S9(11)V99 COMP-3. CL154 +00168 05 WRK-ALL-BNK-SI PIC S9(11)V99 COMP-3. CL154 +00169 05 WRK-OPN-BNK-SI PIC S9(11)V99 COMP-3. CL154 +00170 05 WRK-BOND-AMT PIC S9(11)V99 COMP-3. CL142 +00171 05 WRK-OVER-100-CNT PIC S9(07) COMP-3 CL112 +00172 VALUE +0. CL112 +00173 05 WRK-OVER-100-AMT PIC S9(11)V99 COMP-3 CL112 +00174 VALUE +0. CL112 +00175 05 WRK-1-10-CNT PIC S9(07) COMP-3 CL113 +00176 VALUE +0. CL112 +00177 05 WRK-1-10-AMT PIC S9(11)V99 COMP-3 CL112 +00178 VALUE +0. CL112 +00179 05 WRK-11-100-CNT PIC S9(07) COMP-3 CL113 +00180 VALUE +0. CL112 +00181 05 WRK-11-100-AMT PIC S9(11)V99 COMP-3 CL112 +00182 VALUE +0. CL112 +00183 05 WRK-OVER-100-WRKRS PIC S9(07) COMP-3. CL190 +00184 05 WRK-100-249-CNT PIC S9(07) COMP-3. CL*47 +00185 05 WRK-100-249-WRKRS PIC S9(07) COMP-3. CL*56 +00186 05 WRK-50-100-CNT PIC S9(07) COMP-3. CL190 +00187 05 WRK-50-100-WRKRS PIC S9(07) COMP-3. CL190 +00188 05 WRK-25-49-CNT PIC S9(07) COMP-3. CL*59 +00189 05 WRK-25-49-WRKRS PIC S9(07) COMP-3. CL190 +00190 05 WRK-10-24-CNT PIC S9(07) COMP-3. CL190 +00191 05 WRK-10-24-WRKRS PIC S9(07) COMP-3. CL190 +00192 05 WRK-6-9-CNT PIC S9(07) COMP-3. CL225 +00193 05 WRK-5-9-WRKRS PIC S9(07) COMP-3. CL*94 +00194 05 WRK-5-CNT PIC S9(07) COMP-3. CL*97 +00195 05 WRK-4-CNT PIC S9(07) COMP-3. CL*97 +00196 05 WRK-3-CNT PIC S9(07) COMP-3. CL*97 +00197 05 WRK-2-CNT PIC S9(07) COMP-3. CL*97 +00198 05 WRK-1-CNT PIC S9(07) COMP-3. CL*97 +00199 05 WRK-UNDER-5-CNT PIC S9(07) COMP-3. CL*94 +00200 05 WRK-UNDER-5-WRKRS PIC S9(07) COMP-3. CL*94 +00201 05 WRK-UNDER-10-CNT PIC S9(07) COMP-3. CL*47 +00202 05 WRK-OVER-10-CNT PIC S9(07) COMP-3. CL225 +00203 05 WRK-UNDER-10-WRKRS PIC S9(07) COMP-3. CL*56 +00204 05 WRK-NO-EMPS-CNT PIC S9(07) COMP-3. CL*52 +00205 05 WRK-MRCT-TOT-WAGES PIC S9(11)V99 COMP-3. CL*72 +00206 05 WRK-MRCT-TAX-WAGES PIC S9(11)V99 COMP-3. CL*72 +00207 05 WRK-MRCT-UI-PAID PIC S9(11)V99 COMP-3. CL*72 +00208 05 WRK-TOT-UI PIC S9(11)V99 COMP-3. CL**6 +00209 05 WRK-TOT-INT PIC S9(11)V99 COMP-3. CL**6 +00210 05 WRK-TOT-PEN PIC S9(11)V99 COMP-3. CL**6 +00211 05 WRK-MQTR-ANN-TOT-WAGE PIC S9(12)V99 COMP-3. CL*84 +00212 05 WRK-MQTR-ANN-TAX-WAGE PIC S9(12)V99 COMP-3. CL*84 +00213 05 WRK-MJRN-TOT-NEG-CHG PIC S9(11)V99 COMP-3 CL252 +00214 VALUE +0. CL252 +00215 05 WRK-MQTR-TOT-UI-CHARGED PIC S9(11)V99 COMP-3. CL*76 +00216 05 WRK-START-DATE PIC S9(09) COMP-3. CL*10 +00217 05 WRK-END-DATE PIC S9(09) COMP-3. CL*10 +00218 05 WRK-LIAB-DATE PIC S9(09) COMP-3. CL*71 +00219 05 WRK-FIRST-LIAB-DATE PIC S9(09) COMP-3. CL*71 +00220 05 WRK-ALL-NINES-DATE PIC S9(09) COMP-3 CL*71 +00221 VALUE +999999999. CL*71 +00222 05 WRK-BNK-PETITION-DATE PIC 9(08). CL*89 +00223 05 FILLER REDEFINES WRK-BNK-PETITION-DATE. CL*89 +00224 10 WRK-BNK-PETITION-DATE-YYYY PIC 9(04). CL*89 +00225 10 WRK-BNK-PETITION-DATE-MM PIC 9(02). CL*89 +00226 10 WRK-BNK-PETITION-DATE-DD PIC 9(02). CL*89 +00227 05 WRK-BNK-PETITION-YRQ PIC 9(05). CL*89 +00228 05 FILLER REDEFINES WRK-BNK-PETITION-YRQ. CL*89 +00229 10 WRK-BNK-PETITION-YRQ-YYYY PIC 9(04). CL*89 +00230 10 WRK-BNK-PETITION-YRQ-Q PIC 9(01). CL*89 +00231 05 WRK-BNK-FIRST-BILL-YRQ PIC S9(05) COMP-3. CL*89 +00232 05 WRK-EST-RPT-IND PIC X(01). CL*90 +00233 88 WRK-EST-RPT-YES VALUE 'Y'. CL*90 +00234 88 WRK-EST-RPT-NO VALUE 'N'. CL*90 +00235 CL*19 +00236 05 WRK-ZERO-FOUND-IND PIC X(01). CL100 +00237 88 WRK-ZERO-FOUND-YES-88 VALUE 'Y'. CL100 +00238 88 WRK-ZERO-FOUND-NO-88 VALUE 'N'. CL100 +00239 CL*41 +00240 05 WRK-WITHDRAWN-IND PIC X(01). CL*41 +00241 88 WRK-WITHDRAWN-YES VALUE 'Y'. CL*41 +00242 88 WRK-WITHDRAWN-NO VALUE 'N'. CL*41 +00243 CL153 +00244 05 WRK-ORIG-IND PIC X(01). CL153 +00245 88 WRK-ORIG-YES VALUE 'Y'. CL153 +00246 88 WRK-ORIG-NO VALUE 'N'. CL153 +00247 CL*72 +00248 05 WRK-MQTR-CNT PIC S9(07) COMP-3. CL**9 +00249 05 WRK-MRPT-CNT PIC S9(07) COMP-3. CL191 +00250 05 WRK-MSOL-CNT PIC S9(07) COMP-3. CL*32 +00251 05 WRK-MLIN-CNT PIC S9(07) COMP-3. CL118 +00252 05 WRK-MFAS-CNT PIC S9(07) COMP-3. CL198 +00253 05 WRK-MFAE-CNT PIC S9(07) COMP-3. CL237 +00254 05 WRK-MPAY-CNT PIC S9(07) COMP-3. CL150 +00255 05 WRK-MADJ-CNT PIC S9(07) COMP-3. CL153 +00256 05 WRK-MJRN-CNT PIC S9(08) COMP-3. CL155 +00257 05 WRK-MERA-CNT PIC S9(08) COMP-3. CL231 +00258 05 WRK-MRTE-CNT PIC S9(08) COMP-3. CL**9 +00259 05 WRK-MRTE-CNT1 PIC S9(08) COMP-3. CL163 +00260 05 WRK-MLOG-CNT PIC S9(08) COMP-3. DTSBX601 +00261 05 WRK-MFSC-CNT PIC S9(08) COMP-3 CL*40 +00262 VALUE +0. CL*40 +00263 05 WRK-CR-TOL-CNT PIC S9(07) COMP-3. CL146 +00264 05 SUB PIC S9(04) COMP. CL147 +00265 05 RPT-SUB PIC S9(04) COMP. CL147 +00266 05 QTR-SUB PIC S9(04) COMP. CL113 +00267 05 WRK-QTR-AREA OCCURS 20 TIMES. CL113 +00268 10 WRK-QTR-YRQ PIC S9(05) COMP-3. CL113 +00269 10 WRK-QTR-CHG PIC S9(09)V99 COMP-3. CL113 +00270 10 WRK-QTR-PAID PIC S9(09)V99 COMP-3. CL113 +00271 10 WRK-QTR-WAIVED PIC S9(09)V99 COMP-3. CL113 +00272 10 WRK-QTR-TOLERATED PIC S9(09)V99 COMP-3. CL113 +00273 05 WRK-TIMELY-PMT-AREA. CL190 +00274 10 WRK-PEN-INT-BAL-CNT PIC S9(07) COMP-3. CL181 +00275 10 WRK-INT-MANUAL-CNT PIC S9(07) COMP-3. CL181 +00276 10 WRK-QTR-TAX-BAL PIC S9(09)V9(02) COMP-3. CL170 +00277 10 WRK-QTR-TAX-CHG PIC S9(09)V9(02) COMP-3. CL170 +00278 10 WRK-QTR-INT-PEN-BAL PIC S9(09)V9(02) COMP-3. CL170 +00279 10 WRK-AVG-PMT PIC S9(09)V9(02) COMP-3. CL116 +00280 10 WRK-TIMELY-PMT PIC S9(09)V9(02) COMP-3. CL133 +00281 10 WRK-OLD-PEN-CHG PIC S9(09)V9(02) COMP-3. CL132 +00282 CL170 +00283 05 WRK-YRQ PIC S9(05) COMP-3 CL171 +00284 VALUE +20041. CL*51 +00285 05 WRK-PCT PIC S9(03)V9(04) COMP-3 CL142 +00286 VALUE +0. CL142 +00287 05 WRK-AVG-PCT PIC S9(09)V9(04) COMP-3 CL142 +00288 VALUE +0. CL142 +00289 05 WRK-PCT-DISP PIC Z(02)9.9999. CL118 +00290 05 WRK-PCT-DISP1 PIC Z(02)9.9999. CL119 +00291 05 WRK-UI-RATE PIC S9(01)V9(04) COMP-3. CL118 +00292 05 DISP-UI-RATE1 PIC 9.9(04). CL135 +00293 05 DISP-UI-RATE2 PIC 9.9(04). CL135 +00294 05 AMT-DISP PIC ---,---,--9.99. CL242 +00295 05 WRK-AMT-DISP PIC --------9.99. CL*82 +00296 05 AMT-DISP1 PIC Z(11)9.99-. CL102 +00297 05 AMT-DISP2 PIC Z(11)9.99-. CL141 +00298 05 AMT-DISP3 PIC Z(11)9-. CL237 +00299 05 EMP-ACCT-DISP PIC 9(06). CL183 +00300 05 EMP-SUCC-DISP PIC 9(06). CL*86 +00301 05 EMP-SUCC-DISP-X REDEFINES EMP-SUCC-DISP CL*88 +00302 PIC X(06). CL*87 +00303 05 DISP-DATE1 PIC X(10). CL232 +00304 05 DISP-DATE2 PIC X(10). CL232 +00305 05 INACT-LBL PIC X(10). CL*71 +00306 05 WRK-MPRF-IND PIC X(01). CL*42 +00307 88 WRK-MPRF-OK VALUE 'Y'. CL*42 +00308 88 WRK-MPRF-NO-REC VALUE 'N'. CL*42 +00309 05 WRK-MQTR-IND PIC X(01). CL*42 +00310 88 WRK-MQTR-OK VALUE 'Y'. CL*42 +00311 88 WRK-MQTR-NO-REC VALUE 'N'. CL*42 +00312 05 WRK-MRPT-IND PIC X(01). CL*77 +00313 88 WRK-MRPT-OK VALUE 'Y'. CL*77 +00314 88 WRK-MRPT-NO-REC VALUE 'N'. CL*77 +00315 05 WRK-MDST-IND PIC X(01). CL169 +00316 88 WRK-MDST-OK VALUE 'Y'. CL169 +00317 88 WRK-MDST-NO-REC VALUE 'N'. CL169 +00318 05 WRK-MEVL-IND PIC X(01). CL111 +00319 88 WRK-MEVL-OK VALUE 'Y'. CL111 +00320 88 WRK-MEVL-NO-REC VALUE 'N'. CL111 +00321 05 WRK-MLIN-IND PIC X(01). CL116 +00322 88 WRK-MLIN-OK VALUE 'Y'. CL116 +00323 88 WRK-MLIN-NO-REC VALUE 'N'. CL116 +00324 05 WRK-MFAS-IND PIC X(01). CL198 +00325 88 WRK-MFAS-OK VALUE 'Y'. CL198 +00326 88 WRK-MFAS-NO-REC VALUE 'N'. CL198 +00327 05 WRK-MFAE-IND PIC X(01). CL237 +00328 88 WRK-MFAE-OK VALUE 'Y'. CL237 +00329 88 WRK-MFAE-NO-REC VALUE 'N'. CL237 +00330 05 WRK-MSOL-IND PIC X(01). CL237 +00331 88 WRK-MSOL-OK VALUE 'Y'. CL160 +00332 88 WRK-MSOL-NO-REC VALUE 'N'. CL160 +00333 05 WRK-MLOG-IND PIC X(01). DTSBX601 +00334 88 WRK-MLOG-OK VALUE 'Y'. DTSBX601 +00335 88 WRK-MLOG-NO-REC VALUE 'N'. DTSBX601 +00336 88 WRK-MLOG-COMPLETE VALUE 'C'. DTSBX601 +00337 05 WRK-MRPT-FOUND-IND PIC X(01). CL*96 +00338 88 WRK-MRPT-FOUND-YES VALUE 'Y'. CL*98 +00339 88 WRK-MRPT-FOUND-NO VALUE 'N'. CL*98 +00340 05 WRK-CR-TOL-IND PIC X(01). CL146 +00341 88 WRK-CR-TOL-YES VALUE 'Y'. CL146 +00342 88 WRK-CR-TOL-NO VALUE 'N'. CL146 +00343 05 WRK-DUP-FOUND-IND PIC X(01). CL193 +00344 88 WRK-DUP-FOUND-YES VALUE 'Y'. CL193 +00345 88 WRK-DUP-FOUND-NO VALUE 'N'. CL193 +00346 05 WRK-LAST-MRPT-TYPE PIC X(02). CL*77 +00347 05 WRK-DISP-AREA. CL216 +00348 10 WRK-DISP-STAR PIC X(01). CL216 +00349 10 FILLER PIC X(01) VALUE SPACE. CL216 +00350 10 WRK-DISP-AMT PIC Z(10)9.99-. CL216 +00351 CL**9 +00352 05 WRK-INACT-DATE PIC S9(09) COMP-3 CL184 +00353 VALUE +0. CL184 +00354 05 WRK-INACT-CODE PIC X(02). CL232 +00355 05 WRK-INACT-YRQ PIC S9(05) COMP-3 CL184 +00356 VALUE +0. CL184 +00357 05 WRK-LAST-YRQ PIC S9(05) COMP-3 CL184 +00358 VALUE +0. CL184 +00359 05 WRK-FIRST-LIAB-YRQ PIC S9(05) COMP-3 CL232 +00360 VALUE +0. CL217 +00361 05 WRK-LAST-LIAB-YRQ PIC S9(05) COMP-3 CL232 +00362 VALUE +0. CL232 +00363 05 WRK-NEXT-YRQ PIC S9(05) COMP-3 CL196 +00364 VALUE +0. CL196 +00365 05 WRK-UPDATED-CNT PIC S9(07) COMP-3. DTSBX601 +00366 DTSBX601 +00367 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSBX601 +00368 DTSBX601 +00369 05 PARM-EOF-IND PIC X(01). DTSBX601 +00370 DTSBX601 +00371 05 WRK-EMP-NO PIC 9(06). CL*31 +00372 DTSBX601 +00373 05 WRK-TRACE-IND PIC X(01). DTSBX601 +00374 DTSBX601 +00375 05 WRK-MST-OPEN-IND PIC X(01). DTSBX601 +00376 DTSBX601 +00377 05 WRK-REF-OPEN-IND PIC X(01). DTSBX601 +00378 CL221 +00379 05 WRK-SIC-SCAN-AREA. CL221 +00380 10 WRK-RPT-FOUND-IND PIC X(01). CL222 +00381 88 WRK-RPT-FOUND-YES VALUE 'Y'. CL222 +00382 88 WRK-RPT-FOUND-NO VALUE 'N'. CL222 +00383 10 WRK-EMPL-CNT PIC S9(07) COMP-3. CL222 +00384 10 WRK-SIC-4 PIC X(04). CL221 +00385 10 FILLER REDEFINES WRK-SIC-4. CL221 +00386 15 WRK-SIC-3 PIC X(03). CL221 +00387 15 FILLER PIC X(01). CL221 +00388 10 WRK-NO-SIC-CNT PIC S9(07) COMP-3. CL221 +00389 10 WRK-SIC-7911-AREA. CL221 +00390 15 WRK-SIC-7911-WORKERS PIC S9(07) COMP-3. CL224 +00391 15 WRK-SIC-7911-BUSINESSES PIC S9(07) COMP-3. CL224 +00392 10 WRK-SIC-794-AREA. CL221 +00393 15 WRK-SIC-794-WORKERS PIC S9(07) COMP-3. CL221 +00394 15 WRK-SIC-794-BUSINESSES PIC S9(07) COMP-3. CL221 +00395 10 WRK-SIC-799-AREA. CL221 +00396 15 WRK-SIC-799-WORKERS PIC S9(07) COMP-3. CL221 +00397 15 WRK-SIC-799-BUSINESSES PIC S9(07) COMP-3. CL221 +00398 10 WRK-SIC-8351-AREA. CL221 +00399 15 WRK-SIC-8351-WORKERS PIC S9(07) COMP-3. CL221 +00400 15 WRK-SIC-8351-BUSINESSES PIC S9(07) COMP-3. CL221 +00401 10 WRK-SIC-8641-AREA. CL221 +00402 15 WRK-SIC-8641-WORKERS PIC S9(07) COMP-3. CL221 +00403 15 WRK-SIC-8641-BUSINESSES PIC S9(07) COMP-3. CL221 +00404 10 WRK-NAICS-6 PIC X(06). CL217 +00405 10 FILLER REDEFINES WRK-NAICS-6. CL217 +00406 15 WRK-NAICS-2 PIC X(02). CL217 +00407 15 FILLER PIC X(04). CL217 +00408 *RW1 CL*74 +00409 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. CL*74 +00410 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. CL*74 +00411 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. CL*74 +00412 CL*80 +00413 05 DISP-DATE PIC X(08). CL*80 +00414 05 DISP-TIME PIC X(08). CL*81 +00415 CL*79 +00416 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. CL*74 +00417 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. CL*74 +00418 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. CL*74 +00419 CL*74 +00420 01 HEADER-1. CL*74 +00421 05 FILLER PIC X(01) VALUE SPACES. CL*74 +00422 05 FILLER PIC X(49) VALUE '016R1'. CL*79 +00423 05 FILLER PIC X(60) VALUE CL*74 +00424 'DISTRICT OF COLUMBIA'. CL*74 +00425 05 FILLER PIC X(06) VALUE 'DATE:'. CL*74 +00426 05 HDR1-LRCM-SYS-DATE PIC X(08). CL*74 +00427 CL*74 +00428 01 HEADER-2. CL*74 +00429 05 FILLER PIC X(54) VALUE SPACES. CL*74 +00430 05 FILLER PIC X(56) VALUE CL*74 +00431 'TAX DIVISION'. CL*74 +00432 05 FILLER PIC X(06) VALUE 'TIME:'. CL*74 +00433 05 HDR2-LRCM-SYS-TIME PIC X(08). CL*74 +00434 CL*74 +00435 01 HEADER-3. CL*74 +00436 05 FILLER PIC X(01) VALUE SPACES. CL*74 +00437 05 FILLER PIC X(38) VALUE CL*74 +00438 'ROUTE TO: ACCOUNTING UNIT'. CL*74 +00439 05 HDR3-LITERAL PIC X(43) VALUE CL*74 +00440 ' EMPLOYERS REGISTERED SINCE 09/11/01 '. CL*82 +00441 05 FILLER PIC X(28) VALUE SPACES. CL*74 +00442 05 FILLER PIC X(06) VALUE 'PAGE:'. CL*74 +00443 05 HDR3-PAGE PIC ZZ,ZZ9. CL*74 +00444 CL*74 +00445 01 HEADER-4. CL*82 +00446 05 FILLER PIC X(01) VALUE SPACES. CL*74 +00447 05 FILLER PIC X(132) VALUE SPACES. CL*74 +00448 CL*74 +00449 01 HEADER-5. CL*82 +00450 05 FILLER PIC X(01) VALUE SPACES. CL*74 +00451 05 FILLER PIC X(05) VALUE SPACES. CL*74 +00452 05 FILLER PIC X(06) VALUE CL*74 +00453 'EMP NO'. CL*74 +00454 05 FILLER PIC X(05) VALUE SPACES. CL*74 +00455 05 FILLER PIC X(12) VALUE CL*74 +00456 'PRIMARY NAME'. CL*74 +00457 05 FILLER PIC X(28) VALUE SPACES. CL*74 +00458 05 FILLER PIC X(04) VALUE SPACES. CL*74 +00459 05 FILLER PIC X(14) VALUE CL*82 +00460 'LIABILITY DATE'. CL*82 +00461 05 FILLER PIC X(04) VALUE SPACES. CL*82 +00462 05 FILLER PIC X(13) VALUE CL*82 +00463 'INACTIVE DATE'. CL*82 +00464 05 FILLER PIC X(12) VALUE SPACES. CL*74 +00465 05 FILLER PIC X(18) VALUE SPACES. CL*74 +00466 CL*74 +00467 01 HEADER-6. CL*82 +00468 05 FILLER PIC X(01) VALUE SPACES. CL*74 +00469 05 FILLER PIC X(132) VALUE SPACES. CL*74 +00470 CL*74 +00471 01 DETAIL-LINE-1. CL*74 +00472 05 FILLER PIC X(05) VALUE SPACES. CL*77 +00473 05 WS-EMP-NO PIC 999B999. CL*74 +00474 05 FILLER PIC X(02) VALUE SPACES. CL*77 +00475 05 WS-PRIMARY-NAME PIC X(40). CL*74 +00476 05 FILLER PIC X(02) VALUE SPACES. CL*77 +00477 05 WS-DATE1 PIC X(10). CL*77 +00478 05 FILLER PIC X(02) VALUE SPACES. CL*77 +00479 05 WS-DATE2 PIC X(10). CL*77 +00480 * 05 FILLER PIC X(05) VALUE SPACES. CL*77 +00481 * 05 WS-BALANCE-AMT PIC ZZZ,ZZZ,ZZ9.99. CL*77 +00482 * 05 FILLER PIC X(09) VALUE SPACES. CL*77 +00483 * 05 WS-PURSUED-RPT PIC ZZ9. CL*77 +00484 * 05 FILLER PIC X(10) VALUE SPACES. CL*77 +00485 * 05 WS-DPC PIC X(01). CL*77 +00486 * 05 FILLER PIC X(06) VALUE SPACES. CL*77 +00487 * 05 WS-LIEN PIC X(01). CL*77 +00488 * 05 FILLER PIC X(21) VALUE SPACES. CL*77 +00489 CL*74 +00490 01 FOOTING-LINE-1 PIC X(133) VALUE SPACES. CL*74 +00491 01 FOOTING-LINE-2 PIC X(133) VALUE SPACES. CL*74 +00492 CL*74 +00493 01 FOOTING-LINE-3. CL*74 +00494 05 FILLER PIC X(25) VALUE SPACES. CL*74 +00495 05 WS-FOOTING-CNT PIC ZZ,ZZ9. CL*74 +00496 05 FILLER PIC X(02) VALUE SPACES. CL*74 +00497 05 FILLER PIC X(43) VALUE CL*74 +00498 'DEBIT WRITE OFF CANDIDATES LISTED ON REPORT'. CL*74 +00499 05 FILLER PIC X(23) VALUE SPACES. CL*74 +00500 01 FOOTING-LINE-4 PIC X(133) VALUE SPACES. CL*74 +00501 01 FOOTING-LINE-5 PIC X(133) VALUE SPACES. CL*74 +00502 01 FOOTING-LINE-6. CL*74 +00503 05 FILLER PIC X(25) VALUE SPACES. CL*74 +00504 05 FILLER PIC X(17) VALUE CL*74 +00505 '*** END OF REPORT'. CL*74 +00506 *RW2 CL*74 +00507 CL*74 +00508 01 L001-LINK-AREA. CL232 +00509 ++INCLUDE DTSIL001 CL232 +00510 EJECT CL232 +00511 01 L005-COMM-AREA. CL*81 +00512 ++INCLUDE DTSIL005 CL*79 +00513 EJECT CL*79 +00514 01 L102-LINK-AREA. CL133 +00515 ++INCLUDE DTSIL102 CL133 +00516 EJECT CL133 +00517 01 L054-LINK-AREA. CL206 +00518 ++INCLUDE DTSIL054 CL206 +00519 EJECT DTSBX601 +00520 01 L410-LINK-AREA. CL*46 +00521 ++INCLUDE DTSIL410 CL*46 +00522 EJECT CL*46 +00523 01 L600-LINK-AREA. CL*86 +00524 ++INCLUDE DTSIL600 CL*86 +00525 EJECT CL*86 +00526 01 L910-LINK-AREA. DTSBX601 +00527 ++INCLUDE DTSIL910 CL**2 +00528 EJECT DTSBX601 +00529 01 MSKL-REC. DTSBX601 +00530 ++INCLUDE DTSIMSKL CL**2 +00531 EJECT DTSBX601 +00532 01 MHDR-REC. CL**9 +00533 ++INCLUDE DTSIMHDR CL**2 +00534 EJECT DTSBX601 +00535 01 MPRF-REC. CL**9 +00536 ++INCLUDE DTSIMPRF CL**9 +00537 EJECT DTSBX601 +00538 01 MQTR-REC. CL**9 +00539 ++INCLUDE DTSIMQTR CL**9 +00540 EJECT CL**9 +00541 01 MRPT-REC. CL*70 +00542 ++INCLUDE DTSIMRPT CL*70 +00543 EJECT CL*70 +00544 01 MSOL-REC. CL*53 +00545 ++INCLUDE DTSIMSOL CL*53 +00546 EJECT CL*56 +00547 01 MRCT-REC. CL*56 +00548 ++INCLUDE DTSIMRCT CL*56 +00549 EJECT DTSBX601 +00550 01 MEVL-REC. CL111 +00551 ++INCLUDE DTSIMEVL CL111 +00552 EJECT CL111 +00553 01 MLIN-REC. CL116 +00554 ++INCLUDE DTSIMLIN CL116 +00555 EJECT CL116 +00556 01 MRTE-REC. CL137 +00557 ++INCLUDE DTSIMRTE CL137 +00558 EJECT CL137 +00559 01 MDST-REC. CL144 +00560 ++INCLUDE DTSIMDST CL144 +00561 EJECT CL144 +00562 01 MPAY-REC. CL151 +00563 ++INCLUDE DTSIMPAY CL151 +00564 EJECT CL151 +00565 01 MADJ-REC. CL153 +00566 ++INCLUDE DTSIMADJ CL153 +00567 EJECT CL153 +00568 01 MJRN-REC. CL155 +00569 ++INCLUDE DTSIMJRN CL155 +00570 EJECT CL155 +00571 01 MERA-REC. CL157 +00572 ++INCLUDE DTSIMERA CL157 +00573 EJECT CL157 +00574 01 MCOL-REC. CL*91 +00575 ++INCLUDE DTSIMCOL CL*91 +00576 EJECT CL*91 +00577 01 MFAS-REC. CL253 +00578 ++INCLUDE DTSIMFAS CL253 +00579 EJECT CL198 +00580 01 MFAE-REC. CL237 +00581 ++INCLUDE DTSIMFAE CL237 +00582 EJECT CL237 +00583 01 MLOG-REC. DTSBX601 +00584 ++INCLUDE DTSIMLOG DTSBX601 +00585 EJECT DTSBX601 +00586 01 MOPO-REC. CL*85 +00587 ++INCLUDE DTSIMOPO CL*85 +00588 EJECT CL*85 +00589 01 MTAD-REC. CL193 +00590 ++INCLUDE DTSIMTAD CL193 +00591 EJECT CL*86 +00592 01 MTAA-REC. CL193 +00593 ++INCLUDE DTSIMTAA CL193 +00594 EJECT CL193 +00595 01 MBAA-REC. CL227 +00596 ++INCLUDE DTSIMBAA CL227 +00597 EJECT CL227 +00598 01 MFSC-REC. CL*39 +00599 ++INCLUDE DTSIMFSC CL*39 +00600 EJECT CL*39 +00601 01 MERD-REC. CL*22 +00602 ++INCLUDE DTSIMERD CL*22 +00603 EJECT CL*22 +00604 01 L921-LINK-AREA. CL*89 +00605 ++INCLUDE DTSIL921 CL*89 +00606 EJECT CL*89 +00607 01 ISKL-REC. CL*89 +00608 ++INCLUDE DTSIISKL CL*89 +00609 EJECT CL*89 +00610 01 L931-LINK-AREA. CL132 +00611 ++INCLUDE DTSIL931 CL132 +00612 EJECT CL132 +00613 01 FSKL-REC. CL132 +00614 ++INCLUDE DTSIFSKL CL132 +00615 EJECT CL132 +00616 01 FQTR-REC. CL132 +00617 ++INCLUDE DTSIFQTR CL132 +00618 EJECT CL132 +00619 01 FFIS-REC. CL239 +00620 ++INCLUDE DTSIFFIS CL239 +00621 EJECT CL239 +00622 01 L004-COMM-AREA. CL239 +00623 ++INCLUDE DTSIL004 CL183 +00624 CL*53 +00625 01 L061-LINK-AREA. CL*54 +00626 ++INCLUDE DTSIL061 CL*53 +00627 EJECT CL*53 +00628 01 L516-LINK-AREA. CL185 +00629 ++INCLUDE DTSIL516 CL185 +00630 EJECT CL185 +00631 PROCEDURE DIVISION. CL183 +00632 SKIP2 DTSBX601 +00633 PERFORM I0000-INITIATE THRU I0000-EXIT. CL**5 +00634 IF WRK-ERROR-NO-88 CL193 +00635 PERFORM P0000-PROCESS THRU P0000-EXIT CL193 +00636 PERFORM T0000-TERMINATE THRU T0000-EXIT. CL193 +00637 SKIP2 DTSBX601 +00638 GOBACK. DTSBX601 +00639 EJECT DTSBX601 +00640 I0000-INITIATE. CL**5 +00641 SKIP2 CL**5 +00642 MOVE 'N' TO WRK-TRACE-IND. CL**8 +00643 SET WRK-ERROR-NO-88 TO TRUE. CL193 +00644 DTSBX601 +00645 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. CL**5 +00646 CL113 +00647 SKIP2 DTSBX601 +00648 I0000-EXIT. CL**7 +00649 EXIT. CL**7 +00650 I2000-OPEN-FILES-1. DTSBX601 +00651 OPEN OUTPUT EXP-FILE1. CL*86 +00652 IF NOT EXP-STATUS-OK-88 CL*86 +00653 DISPLAY 'CANNOT OPEN EXP FILE ' EXP-STATUS CL*86 +00654 SET WRK-ERROR-YES-88 TO TRUE CL*86 +00655 GO TO I2000-EXIT. CL*86 +00656 MOVE WRK-TRACE-IND TO L910-TRACE-IND. CL**5 +00657 CL**3 +00658 MOVE WRK-MOD-NAME TO L910-MOD-NAME. CL**5 +00659 DTSBX601 +00660 PERFORM S910-OPEN-READ THRU S910-EXIT. CL*68 +00661 ** PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. CL*68 +00662 CL*89 +00663 PERFORM S921-OPEN-READ THRU S921-EXIT. CL*68 +00664 DTSBX601 +00665 PERFORM S931-OPEN-READ THRU S931-EXIT. CL*68 +00666 *** PERFORM S931-OPEN-UPDATE THRU S931-EXIT. CL*34 +00667 MOVE LOW-VALUES TO MSKL-KEY-AREA. CL*84 +00668 CL*84 +00669 MOVE +0 TO MSKL-EMP-NO. CL*84 +00670 CL*84 +00671 SET MSKL-HDR-88 TO TRUE. CL*84 +00672 CL*84 +00673 PERFORM S910-READ THRU S910-EXIT. CL*84 +00674 CL*84 +00675 IF L910-NO-REC-88 CL*84 +00676 MOVE 'MHDR RECORD NOT FOUND' CL*84 +00677 TO WRK-ABEND-MSG CL*84 +00678 PERFORM S999-ABEND THRU S999-EXIT. CL*84 +00679 CL*84 +00680 MOVE MSKL-REC TO MHDR-REC. CL*84 +00681 CL*84 +00682 MOVE MHDR-PRIOR-RUN-DATE TO WRK-EXT-CURRENT-DATE. CL*84 +00683 CL*84 +00684 DISPLAY ' PRIOR RUN DATE: ' MHDR-PRIOR-RUN-DATE. CL*84 +00685 CL*21 +00686 I2000-EXIT. DTSBX601 +00687 EXIT. DTSBX601 +00688 CL113 +00689 P0000-PROCESS. DTSBX601 +00690 DTSBX601 +00691 MOVE +0 TO WRK-MPRF-CNT CL**9 +00692 CL*16 +00693 MOVE LOW-VALUES TO MPRF-KEY-AREA. CL*89 +00694 MOVE 0 TO MLOG-CNT. CL*86 +00695 SET WRK-MLOG-OK TO TRUE. DTSBX601 +00696 MOVE LOW-VALUES TO MPRF-KEY-AREA. CL*92 +00697 MOVE +000001 TO MPRF-EMP-NO. CL*92 +00698 SET MPRF-PRF-88 TO TRUE. CL*92 +00699 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. CL*92 +00700 DTSBX601 +00701 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX601 +00702 IF L910-NO-REC-88 DTSBX601 +00703 NEXT SENTENCE CL*83 +00704 ELSE DTSBX601 +00705 PERFORM P1100-SCAN-MPRF THRU P1100-EXIT CL*89 +00706 UNTIL MPRF-NO-REC-88. CL*92 +00707 DTSBX601 +00708 P0000-EXIT. CL*83 +00709 EXIT. CL*83 +00710 EJECT CL*83 +00711 CL*83 +00712 DTSBX601 +00713 P1100-SCAN-MPRF. CL*89 +00714 CL*84 +00715 MOVE MSKL-REC TO MPRF-REC. CL*96 +00716 PERFORM P2100-PROCESS-MLOG THRU P2100-EXIT CL*89 +00717 MOVE MPRF-REC TO MSKL-REC CL*94 +00718 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBX601 +00719 IF NOT L910-OK-88 CL*92 +00720 SET MPRF-NO-REC-88 TO TRUE. CL*92 +00721 DTSBX601 +00722 P1100-EXIT. CL*87 +00723 EXIT. DTSBX601 +00724 SKIP3 CL*56 +00725 CL**1 +00726 CL*89 +00727 P2100-PROCESS-MLOG. CL*89 +00728 CL*89 +00729 MOVE +0 TO WRK-MPRF-CNT CL*89 +00730 CL*89 +00731 SET WRK-MLOG-OK TO TRUE. CL*89 +00732 MOVE LOW-VALUES TO MLOG-KEY-AREA. CL*89 +00733 MOVE MPRF-EMP-NO TO MLOG-EMP-NO. CL*89 +00734 SET MLOG-LOG-88 TO TRUE. CL*89 +00735 MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA. CL*89 +00736 CL*89 +00737 PERFORM S910-START-BROWSE THRU S910-EXIT. CL*89 +00738 IF L910-NO-REC-88 CL*89 +00739 NEXT SENTENCE CL*89 +00740 ELSE CL*89 +00741 PERFORM P2200-SCAN-MLOG THRU P2200-EXIT CL*89 +00742 UNTIL WRK-MLOG-NO-REC. CL*90 +00743 CL*89 +00744 P2100-EXIT. CL*89 +00745 EXIT. CL*89 +00746 EJECT CL*89 +00747 CL*89 +00748 CL*89 +00749 P2200-SCAN-MLOG. CL*89 +00750 MOVE MSKL-REC TO MLOG-REC. CL*89 +00751 ADD 1 TO MLOG-CNT CL*89 +00752 IF MLOG-EMP-NO = 010021 OR 010727 OR 010729 CL119 +00753 * DISPLAY 'MNAME: ' MLOG-DATA-ELEMENT-NAME(1:20) CL*99 +00754 DISPLAY 'MDATE: ' MLOG-EMP-NO ' ' MLOG-ESTB-DATE CL115 +00755 ' ' MLOG-OP-ID CL120 +00756 ' ' MLOG-DATA-ELEMENT-NAME(1:15). CL120 +00757 CL121 +00758 * IF MLOG-ESTB-DATE = MHDR-PRIOR-RUN-DATE CL123 +00759 IF MLOG-ESTB-DATE = 20180924 CL124 +00760 IF MLOG-DATA-ELEMENT-NAME(1:20) = 'MPRF-RETURN-MAIL-IND' CL*97 +00761 OR CL103 +00762 MLOG-DATA-ELEMENT-NAME(1:12) = 'MRTE-UI-RATE' CL103 +00763 OR CL104 +00764 MLOG-DATA-ELEMENT-NAME(1:15) = 'RETURN MAIL IND' CL105 +00765 MOVE SPACES TO WRK-R1-SPACES CL108 +00766 * MOVE MLOG-ESTB-DATE TO REC1-DATE CL123 +00767 MOVE 20180924 TO REC1-DATE CL124 +00768 MOVE MPRF-RETURN-MAIL-IND TO REC1-FLAG CL*99 +00769 MOVE MLOG-EMP-NO TO REC1-EMP-NO CL*99 +00770 MOVE MLOG-OP-ID TO REC1-OPID CL113 +00771 * SET WRK-MLOG-NO-REC TO TRUE CL120 +00772 WRITE EXP-REC1 FROM WRK-REC1. CL121 +00773 * GO TO P2200-EXIT. CL121 +00774 CL112 +00775 PERFORM S910-READ-NEXT THRU S910-EXIT. CL*89 +00776 IF L910-NO-REC-88 CL*89 +00777 SET L910-OK-88 TO TRUE CL*90 +00778 SET WRK-MLOG-NO-REC TO TRUE. CL*89 +00779 CL*89 +00780 P2200-EXIT. CL*89 +00781 EXIT. CL*89 +00782 SKIP3 CL*89 +00783 CL*89 +00784 T0000-TERMINATE. DTSBX601 +00785 CL**4 +00786 DISPLAY ' '. DTSBX601 +00787 CL**4 +00788 DISPLAY '*** DTSBX601 TERMINATION STATISTICS ***'. CL*83 +00789 CL**4 +00790 DISPLAY ' '. DTSBX601 +00791 CL**4 +00792 PERFORM S910-CLOSE THRU S910-EXIT. CL**4 +00793 CLOSE EXP-FILE1. CL*86 +00794 DTSBX601 +00795 T0000-EXIT. DTSBX601 +00796 EXIT. DTSBX601 +00797 EJECT DTSBX601 +00798 S001-FROM-FED-8. CL232 +00799 SET L001-FROM-FED-8 TO TRUE. CL232 +00800 GO TO S001-DATE. CL232 +00801 CL232 +00802 S001-FROM-ABS-DAY. CL*10 +00803 SET L001-FROM-ABS-DAY TO TRUE. CL*10 +00804 GO TO S001-DATE. CL*10 +00805 CL*10 +00806 S001-DATE. CL232 +00807 CALL 'DTSBU001' USING L001-LINK-AREA. CL232 +00808 CL232 +00809 S001-EXIT. CL232 +00810 EXIT. CL232 +00811 SKIP3 DTSBX601 +00812 S004-FROM-5. CL*10 +00813 SET L004-FROM-5 TO TRUE. CL*10 +00814 GO TO S004-EDIT-QTR. CL*10 +00815 CL*10 +00816 S004-FROM-ABS. CL*10 +00817 SET L004-FROM-ABS TO TRUE. CL*10 +00818 GO TO S004-EDIT-QTR. CL*10 +00819 CL*10 +00820 S004-EDIT-QTR. CL183 +00821 CALL 'DTSBU004' USING L004-COMM-AREA. CL183 +00822 CL183 +00823 S004-EXIT. CL183 +00824 EXIT. CL183 +00825 SKIP3 CL183 +00826 S005-SYS-DATE. CL*80 +00827 CALL 'DTSBU005' USING L005-COMM-AREA. CL*80 +00828 CL*80 +00829 S005-EXIT. CL*80 +00830 EXIT. CL*80 +00831 SKIP3 CL*80 +00832 CL*80 +00833 S054-RATE-DETERMINATION. CL206 +00834 CALL 'DTSBU054' USING L054-LINK-AREA CL206 +00835 MRCT-REC. CL206 +00836 CL206 +00837 S054-EXIT. CL206 +00838 EXIT. CL206 +00839 SKIP3 CL206 +00840 S061-FLD-REP-INFO. CL*53 +00841 SKIP1 CL*53 +00842 CALL 'DTSBU061' USING L061-LINK-AREA. CL*53 +00843 SKIP2 CL*53 +00844 S061-EXIT. CL*53 +00845 EXIT. CL*53 +00846 CL*53 +00847 S410-FILING-SCHED. CL*46 +00848 CALL 'DTSBU410' USING L410-LINK-AREA. CL*46 +00849 CL*46 +00850 S410-EXIT. CL*46 +00851 EXIT. CL*46 +00852 SKIP3 CL*46 +00853 S516-LIABILITY. CL185 +00854 CALL 'DTSBU516' USING L516-LINK-AREA CL185 +00855 MPRF-REC. CL185 +00856 CL185 +00857 S516-EXIT. CL185 +00858 EXIT. CL185 +00859 SKIP3 CL185 +00860 S910-OPEN-READ. DTSBX601 +00861 SET L910-OPEN-READ-88 TO TRUE. DTSBX601 +00862 GO TO S910-MSTR-IO. DTSBX601 +00863 DTSBX601 +00864 S910-OPEN-UPDATE-NO-AIX. CL*18 +00865 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. CL*18 +00866 GO TO S910-MSTR-IO. CL*15 +00867 DTSBX601 +00868 S910-READ. DTSBX601 +00869 SET L910-READ-88 TO TRUE. DTSBX601 +00870 GO TO S910-MSTR-IO. DTSBX601 +00871 DTSBX601 +00872 S910-START-BROWSE. DTSBX601 +00873 SET L910-START-BROWSE-88 TO TRUE. DTSBX601 +00874 GO TO S910-MSTR-IO. DTSBX601 +00875 DTSBX601 +00876 S910-READ-NEXT. DTSBX601 +00877 SET L910-READ-NEXT-88 TO TRUE. DTSBX601 +00878 GO TO S910-MSTR-IO. DTSBX601 +00879 DTSBX601 +00880 S910-COUNT. CL**9 +00881 SET L910-COUNT-88 TO TRUE. CL**9 +00882 GO TO S910-MSTR-IO. CL**9 +00883 CL**9 +00884 S910-REWRITE. CL*15 +00885 SET L910-REWRITE-88 TO TRUE. CL*15 +00886 GO TO S910-MSTR-IO. CL*15 +00887 DTSBX601 +00888 S910-DELETE. CL119 +00889 SET L910-DELETE-88 TO TRUE. CL119 +00890 GO TO S910-MSTR-IO. CL119 +00891 CL119 +00892 S910-CLOSE. DTSBX601 +00893 SET L910-CLOSE-88 TO TRUE. DTSBX601 +00894 GO TO S910-MSTR-IO. DTSBX601 +00895 DTSBX601 +00896 S910-MSTR-IO. DTSBX601 +00897 CALL 'DTSBU910' USING L910-LINK-AREA CL**2 +00898 MSKL-REC. DTSBX601 +00899 S910-EXIT. DTSBX601 +00900 EXIT. DTSBX601 +00901 SKIP3 DTSBX601 +00902 S921-OPEN-READ. CL*89 +00903 SET L921-OPEN-READ-88 TO TRUE. CL*89 +00904 GO TO S921-AIX-IO. CL*89 +00905 CL*89 +00906 S921-CLOSE. CL*89 +00907 SET L921-CLOSE-88 TO TRUE. CL*89 +00908 GO TO S921-AIX-IO. CL*89 +00909 CL*89 +00910 S921-AIX-IO. CL*89 +00911 CALL 'DTSBU921' USING L921-LINK-AREA CL*89 +00912 ISKL-REC. CL*89 +00913 S921-EXIT. CL*89 +00914 EXIT. CL*89 +00915 SKIP3 CL*89 +00916 CL*89 +00917 S931-OPEN-READ. CL132 +00918 SET L931-OPEN-READ-88 TO TRUE. CL132 +00919 GO TO S931-REF-IO. CL132 +00920 CL132 +00921 S931-OPEN-UPDATE. CL*31 +00922 SET L931-OPEN-UPDATE-88 TO TRUE. CL*31 +00923 GO TO S931-REF-IO. CL*31 +00924 CL*31 +00925 S931-START-BROWSE. CL*31 +00926 SET L931-START-BROWSE-88 TO TRUE. CL**6 +00927 GO TO S931-REF-IO. CL**6 +00928 CL**6 +00929 S931-READ. CL132 +00930 SET L931-READ-88 TO TRUE. CL132 +00931 GO TO S931-REF-IO. CL132 +00932 CL133 +00933 S931-READ-NEXT. CL**6 +00934 SET L931-READ-NEXT-88 TO TRUE. CL**6 +00935 GO TO S931-REF-IO. CL**6 +00936 CL**6 +00937 S931-DELETE. CL*32 +00938 SET L931-DELETE-88 TO TRUE. CL*32 +00939 GO TO S931-REF-IO. CL*32 +00940 CL*32 +00941 S931-REWRITE. CL*29 +00942 SET L931-REWRITE-88 TO TRUE. CL*29 +00943 GO TO S931-REF-IO. CL*29 +00944 CL*29 +00945 S931-WRITE. CL*33 +00946 SET L931-WRITE-88 TO TRUE. CL*33 +00947 GO TO S931-REF-IO. CL*33 +00948 CL*33 +00949 S931-CLOSE. CL134 +00950 SET L931-CLOSE-88 TO TRUE. CL133 +00951 GO TO S931-REF-IO. CL133 +00952 CL133 +00953 S931-REF-IO. CL132 +00954 CALL 'DTSBU931' USING L931-LINK-AREA CL132 +00955 FSKL-REC. CL132 +00956 S931-EXIT. CL132 +00957 EXIT. CL132 +00958 SKIP3 CL132 +00959 S999-ABEND. DTSBX601 +00960 CALL 'DTSBU999' USING WRK-ABEND-CD. CL**2 +00961 S999-EXIT. DTSBX601 +00962 EXIT. DTSBX601 diff --git a/BatchFile.txt b/BatchFile.txt new file mode 100644 index 0000000..cf6df5b --- /dev/null +++ b/BatchFile.txt @@ -0,0 +1 @@ +E:\Faizan_Folder\Dutas_git\DUTAS\Batch\DTSBX478.cob \ No newline at end of file diff --git a/CICSFiles.txt b/CICSFiles.txt new file mode 100644 index 0000000..cb5b4c8 --- /dev/null +++ b/CICSFiles.txt @@ -0,0 +1,6 @@ +E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCS44.cob +E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCS82.cob +E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCS89.cob +E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCSL1.cob +E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCU415.cob +E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSIS76.cob diff --git a/CompileOptions.txt b/CompileOptions.txt index 02cae1d..1b7f299 100644 --- a/CompileOptions.txt +++ b/CompileOptions.txt @@ -1,14 +1,10 @@ -IgnoreParseError=TRUE --OutputDir=E:\DUTAS\src\TempBuild +-OutputDir=E:/Faizan_Folder/Dutas_git/bin/CICS -KeepPreProFiles=TRUE -RemoveFileVerifyFailed=FALSE -IncrementalMode=TRUE -DBDriver=sqlite -DBConnectString=MetaData.db3 -; ======= please only configure things below this line ======= -; ======= -Margins=2,72 -; ======= -ParallelThreadCount=4 -; ======= :AddPreProcessor=&SQL,MACRO,OUT(EXT(.W1)),MACRO,OUT(EXT(.W)) -MaxMem=1000 --IncludeSearchPath=E:\DUTAS\src\COPYBOOK --IncludeExtension=.txt \ No newline at end of file +-IncludeSearchPath=E:/Faizan_Folder/Dutas_git/DUTAS/Copybook;E:\DUTAS\src\Copybook; +-IncludeExtension=.txt diff --git a/Copybook/DTSUX110.TXT b/Copybook/DTSUX110.TXT new file mode 100644 index 0000000..21a66fc --- /dev/null +++ b/Copybook/DTSUX110.TXT @@ -0,0 +1,43 @@ +00001 ***** 11/28/18 +00002 * DTSUX110 +00003 * DTSUX110 COPY OF EMPLOYER ADDRESS EXTRACT RECORD (X110) LV006 +00004 * DTSUX110 +00005 * THIS COPYBOOK IS USED TO UPDATE THE EMPLOYER ADDRESS INFO CL**4 +00006 * ON THE MAILING AND BUSINESS OPO ADDRESS NOT UPDATED CL**5 +00007 * DTSUX110 +00008 * ADDED FILLER AT END FOR REC LEN 512 09/23/14 ZL1 CL**4 +00009 ***** DTSUX110 +00010 DTSUX110 +00011 15 X110-REC-TYPE PIC X(03) VALUE '110'. DTSUX110 +00012 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00013 15 X110-EMP-NO PIC 9(06). DTSUX110 +00014 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00015 15 X110-ADDR-TYPE PIC X(02). DTSUX110 +00016 88 X110-ADDR-TYPE-MAIL-88 VALUE '01'. DTSUX110 +00017 88 X110-ADDR-TYPE-RECS-88 VALUE '02'. DTSUX110 +00018 88 X110-ADDR-TYPE-WORK-88 VALUE '03'. DTSUX110 +00019 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00020 15 X110-ATTENTION PIC X(40). DTSUX110 +00021 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00022 15 X110-STREET-1 PIC X(40). DTSUX110 +00023 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00024 15 X110-STREET-2 PIC X(40). DTSUX110 +00025 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00026 15 X110-CITY PIC X(25). DTSUX110 +00027 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00028 15 X110-STATE PIC X(02). DTSUX110 +00029 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00030 15 X110-ZIP PIC X(10). DTSUX110 +00031 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00032 15 X110-PHONE PIC X(15). DTSUX110 +00033 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00034 15 X110-FAX PIC X(15). DTSUX110 +00035 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00036 15 X110-EMAIL PIC X(40). DTSUX110 +00037 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00038 15 X110-WEB-SITE PIC X(40). DTSUX110 +00039 15 FILLER PIC X(01) VALUE ','. DTSUX110 +00040 15 X110-EMP-NAME PIC X(40). DTSUX110 +00041 15 FILLER PIC X(01) VALUE ','. CL**6 +00042 15 X110-QAS-FLAG PIC X(01). CL**6 +00043 15 FILLER PIC X(179). CL**6 diff --git a/CreateGDG.jcl b/CreateGDG.jcl new file mode 100644 index 0000000..6936c3a --- /dev/null +++ b/CreateGDG.jcl @@ -0,0 +1,28 @@ +//JOBINPUT JOB (INNOVA,DEV,TEAM),FAIZAN,CLASS=S,MSGCLASS=X +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.PROD.BE320.FTP.BX212) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.PROD.BE320.RPT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* +//STEP001 EXEC PGM=IDCAMS +//SYSPRINT DD SYSOUT=* +//SYSIN DD * + DEFINE GDG(NAME(DOESTAX.PROD.EXTRQ.RPT) - + LIMIT(10) - + NOEMPTY - + SCRATCH) +//* + + + diff --git a/JCL/DTSGSID2.jcl b/JCL/DTSGSID2.jcl index e1cdd26..68afe19 100644 --- a/JCL/DTSGSID2.jcl +++ b/JCL/DTSGSID2.jcl @@ -24,7 +24,7 @@ //** 00001700 //STEP0100 EXEC DTSBX479 //** 00001700 -//STEP0200 EXEC PGM=SYNCSORT, +//STEP0200 EXEC PGM=SORT, // COND=(0,LT), // REGION=4096K //SORT.SYSPRINT DD SYSOUT=* @@ -34,7 +34,7 @@ //SORT.SYSUDUMP DD SYSOUT=* //SORT.SYSOUT DD SYSOUT=* //SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR -//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR +//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) @@ -45,7 +45,7 @@ INCLUDE COND=(11,2,CH,EQ,C'W1') //* //** 00001700 -//STEP0250 EXEC PGM=SYNCSORT, +//STEP0250 EXEC PGM=SORT, // COND=(0,LT), // REGION=4096K //SORT.SYSPRINT DD SYSOUT=* @@ -54,7 +54,7 @@ //SORT.SYSDBOUT DD SYSOUT=* //SORT.SYSUDUMP DD SYSOUT=* //SORT.SYSOUT DD SYSOUT=* -//SORTIN DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR +//SORTIN DD DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR //SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) @@ -65,7 +65,7 @@ SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A) SUM FIELDS=NONE //* -//STEP0300 EXEC PGM=SYNCSORT, +//STEP0300 EXEC PGM=SORT, // COND=(0,LT), // REGION=4096K //SORT.SYSPRINT DD SYSOUT=* @@ -75,7 +75,7 @@ //SORT.SYSUDUMP DD SYSOUT=* //SORT.SYSOUT DD SYSOUT=* //SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR -//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR +//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) @@ -86,7 +86,7 @@ INCLUDE COND=(11,2,CH,EQ,C'W4') //* //** 00001700 -//STEP0350 EXEC PGM=SYNCSORT, +//STEP0350 EXEC PGM=SORT, // COND=(0,LT), // REGION=4096K //SORT.SYSPRINT DD SYSOUT=* @@ -95,7 +95,7 @@ //SORT.SYSDBOUT DD SYSOUT=* //SORT.SYSUDUMP DD SYSOUT=* //SORT.SYSOUT DD SYSOUT=* -//SORTIN DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR +//SORTIN DD DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR //SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) diff --git a/JobInputFiles.txt b/JobInputFiles.txt new file mode 100644 index 0000000..7c56c5c --- /dev/null +++ b/JobInputFiles.txt @@ -0,0 +1,560 @@ +//STEP250 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0250 DD DSN=DOESTAX.CONV.ESSP.X420.W4FILE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X420.W4FILE', +// COPY) +//STEP251 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0251 DD DSN=DOESTAX.CONV.ESSP.X430.W4FILE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X430.W4FILE', +// COPY) +//STEP252 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0252 DD DSN=DOESTAX.CONV.ESSP.X435.W4FILE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X435.W4FILE', +// COPY) +//STEP253 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0253 DD DSN=DOESTAX.CONV.ESSP.X436.W4FILE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X436.W4FILE', +// COPY) +//STEP254 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0254 DD DSN=DOESTAX.CONV.TDECX148.DELINQ.W4FILE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.DELINQ.W4FILE', +// COPY) +//STEP255 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0255 DD DSN=DOESTAX.CONV.TDECX148.DELINQ.X153, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.DELINQ.X153', +// COPY) +//STEP256 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0256 DD DSN=DOESTAX.CONV.TDECX148.ONTIME.W4FILE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.ONTIME.W4FILE', +// COPY) +//STEP257 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0257 DD DSN=DOESTAX.CONV.TDECX148.ONTIME.X153, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.ONTIME.X153', +// COPY) +//STEP258 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0258 DD DSN=DOESTAX.DEVL.ZL1.CREDIT, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.DEVL.ZL1.CREDIT', +// COPY) +//STEP259 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0259 DD DSN=DOESTAX.PROD.ARCHIVE.FY2009, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ARCHIVE.FY2009', +// COPY) +//STEP260 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0260 DD DSN=DOESTAX.PROD.BD110.BTC.G6588V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD110.BTC.G6588V00', +// COPY) +//STEP261 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0261 DD DSN=DOESTAX.PROD.BD110.RPT.G6588V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD110.RPT.G6588V00', +// COPY) +//STEP262 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0262 DD DSN=DOESTAX.PROD.BD110.TRN.G6588V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD110.TRN.G6588V00', +// COPY) +//STEP263 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0263 DD DSN=DOESTAX.PROD.BD120.RPT.G6586V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD120.RPT.G6586V00', +// COPY) +//STEP264 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0264 DD DSN=DOESTAX.PROD.BD120.TRN.G6586V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD120.TRN.G6586V00', +// COPY) +//STEP265 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0265 DD DSN=DOESTAX.PROD.BD130.BTC.G6587V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD130.BTC.G6587V00', +// COPY) +//STEP266 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0266 DD DSN=DOESTAX.PROD.BD130.RPT.G6586V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD130.RPT.G6586V00', +// COPY) +//STEP267 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0267 DD DSN=DOESTAX.PROD.BD130.TRN.G6586V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD130.TRN.G6586V00', +// COPY) +//STEP268 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0268 DD DSN=DOESTAX.PROD.BD140.RPT.G6572V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD140.RPT.G6572V00', +// COPY) +//STEP269 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0269 DD DSN=DOESTAX.PROD.BD140.TRN.G6572V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD140.TRN.G6572V00', +// COPY) +//STEP270 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0270 DD DSN=DOESTAX.PROD.BD145.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD145.BTC', +// COPY) +//STEP271 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0271 DD DSN=DOESTAX.PROD.BD145.ZEROWAGE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD145.ZEROWAGE', +// COPY) +//STEP272 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0272 DD DSN=DOESTAX.PROD.BD150.RPT.G6565V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD150.RPT.G6565V00', +// COPY) +//STEP273 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0273 DD DSN=DOESTAX.PROD.BD180.RPT.G6491V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD180.RPT.G6491V00', +// COPY) +//STEP274 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0274 DD DSN=DOESTAX.PROD.BD200.TRN.G6564V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD200.TRN.G6564V00', +// COPY) +//STEP275 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0275 DD DSN=DOESTAX.PROD.BD300.RPT.G6495V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD300.RPT.G6495V00', +// COPY) +//STEP276 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0276 DD DSN=DOESTAX.PROD.BD400.BTC.BACKUP.G6575V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD400.BTC.BACKUP.G6575V00', +// COPY) +//STEP277 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0277 DD DSN=DOESTAX.PROD.BE327.RPT.G1988V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BE327.RPT.G1988V00', +// COPY) +//STEP278 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0278 DD DSN=DOESTAX.PROD.BX415.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX415.BTC', +// COPY) +//STEP279 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0279 DD DSN=DOESTAX.PROD.BX420.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX420.BTC', +// COPY) +//STEP280 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0280 DD DSN=DOESTAX.PROD.BX420.RPT, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX420.RPT', +// COPY) +//STEP281 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0281 DD DSN=DOESTAX.PROD.BX440.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX440.BTC', +// COPY) +//STEP282 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0282 DD DSN=DOESTAX.PROD.BX442.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX442.BTC', +// COPY) +//STEP283 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0283 DD DSN=DOESTAX.PROD.DEPOSIT.X202EXP, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.DEPOSIT.X202EXP', +// COPY) +//STEP284 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0284 DD DSN=DOESTAX.PROD.DTS.W4FILE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.DTS.W4FILE', +// COPY) +//STEP285 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0285 DD DSN=DOESTAX.PROD.ESSP.X418.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X418.BTC', +// COPY) +//STEP286 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0286 DD DSN=DOESTAX.PROD.ESSP.X420.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X420.BTC', +// COPY) +//STEP287 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0287 DD DSN=DOESTAX.PROD.ESSP.X421.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X421.BTC', +// COPY) +//STEP288 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0288 DD DSN=DOESTAX.PROD.ESSP.X424.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X424.BTC', +// COPY) +//STEP289 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0289 DD DSN=DOESTAX.PROD.ESSP.X426.BTC.G0002V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X426.BTC.G0002V00', +// COPY) +//STEP290 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0290 DD DSN=DOESTAX.PROD.ESSP.X427.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X427.BTC', +// COPY) +//STEP291 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0291 DD DSN=DOESTAX.PROD.ESSP.X430.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X430.BTC', +// COPY) +//STEP292 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0292 DD DSN=DOESTAX.PROD.ESSP.X435.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X435.BTC', +// COPY) +//STEP293 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0293 DD DSN=DOESTAX.PROD.ESSP.X436.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X436.BTC', +// COPY) +//STEP294 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0294 DD DSN=DOESTAX.PROD.ESSP.X451.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X451.BTC', +// COPY) +//STEP295 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0295 DD DSN=DOESTAX.PROD.ESSP.X451.W4FILE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X451.W4FILE', +// COPY) +//STEP296 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0296 DD DSN=DOESTAX.PROD.ESSP.X452.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X452.BTC', +// COPY) +//STEP297 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0297 DD DSN=DOESTAX.PROD.ESSP.X530.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X530.BTC', +// COPY) +//STEP298 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0298 DD DSN=DOESTAX.PROD.ESSP.XN420.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.XN420.BTC', +// COPY) +//STEP299 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0299 DD DSN=DOESTAX.PROD.ESSP.XZ420.BTC, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.XZ420.BTC', +// COPY) +//STEP300 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0300 DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.FTP.REFUND.X303EXP', +// COPY) +//STEP301 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0301 DD DSN=DOESTAX.PROD.MAG.W4FILE, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.MAG.W4FILE', +// COPY) +//STEP302 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0302 DD DSN=DOESTAX.PROD.R202.ICESA, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R202.ICESA', +// COPY) +//STEP303 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0303 DD DSN=DOESTAX.PROD.R309.RPT.G4328V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R309.RPT.G4328V00', +// COPY) +//STEP304 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0304 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R414.EXCL.RPT4', +// COPY) +//STEP305 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0305 DD DSN=DOESTAX.PROD.R414.EXCL.RPT5, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R414.EXCL.RPT5', +// COPY) +//STEP306 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0306 DD DSN=DOESTAX.PROD.R414.EXCL.RPT6, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R414.EXCL.RPT6', +// COPY) +//STEP307 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0307 DD DSN=DOESTAX.PROD.RPT.R202, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.RPT.R202', +// COPY) +//STEP308 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0308 DD DSN=DOESTAX.PROD.RPT204, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.RPT204', +// COPY) +//STEP309 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0309 DD DSN=DOESTAX.PROD.SRTDAILY.RPT.G6486V00, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.SRTDAILY.RPT.G6486V00', +// COPY) +//STEP310 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0310 DD DSN=DOESTAX.PROD.WEBREG.ERR, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.WEBREG.ERR', +// COPY) +//STEP311 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0311 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BX217, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.BX217', +// COPY) +//STEP312 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0312 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD', +// COPY) +//STEP313 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0313 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.U542, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.U542', +// COPY) +//STEP314 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0314 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X148, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X148', +// COPY) +//STEP315 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0315 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X150', +// COPY) +//STEP316 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0316 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X151', +// COPY) +//STEP317 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0317 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X152', +// COPY) +//STEP318 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0318 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X153, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X153', +// COPY) +//STEP319 EXEC PGM=IEFBR14 +//SYSPRINT DD SYSOUT=* +//SYSOUT DD SYSOUT=* +//DD0319 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X306, +// DISP=(NEW,CATLG,CATLG), +// CODEPAGE=1252,AUTOENCODE=YES, +// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X306', +// COPY) \ No newline at end of file diff --git a/Maps/DTSMSET.xml b/Maps/DTSMSET.xml new file mode 100644 index 0000000..f60e020 --- /dev/null +++ b/Maps/DTSMSET.xml @@ -0,0 +1,93630 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/MetaData.db3 b/MetaData.db3 deleted file mode 100644 index b195ae8..0000000 Binary files a/MetaData.db3 and /dev/null differ diff --git a/Procs/DTSACHD1 b/Procs/DTSACHD1 index 28c064b..d05d24d 100644 --- a/Procs/DTSACHD1 +++ b/Procs/DTSACHD1 @@ -3,7 +3,7 @@ //* DAILY RUN. * * 00020305 //* * 00020405 //******************************************************************* 00020805 -//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000 +//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00031000 // COND=(4,LT) 00032011 //SYSOUT DD SYSOUT=(*) 00040000 //SYSPRINT DD SYSOUT=(*) 00041000 diff --git a/Procs/DTSBX415 b/Procs/DTSBX415 index f412508..1c9fd11 100644 --- a/Procs/DTSBX415 +++ b/Procs/DTSBX415 @@ -15,7 +15,7 @@ //*&& MAGNETIC MEDIA WAGE (X144) FILES. //******* NO LONGER NEEDED 11/14/19 ZL1 00001700 //*************************************************************** 00001700 -//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE INPUT FILES +//STEP0100 EXEC PGM=SORT, COMBINE INPUT FILES // COND=(0,LT) //SYSOUT DD SYSOUT=* //* diff --git a/Procs/DTSBX420 b/Procs/DTSBX420 index a2446e2..156ddfd 100644 --- a/Procs/DTSBX420 +++ b/Procs/DTSBX420 @@ -6,7 +6,7 @@ //** 00001700 //DTSBX420 PROC //** 00001700 -//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS +//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS // COND=(0,LT) //SYSOUT DD SYSOUT=* //* @@ -101,7 +101,7 @@ // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* -//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE BATCH XREF FILES +//STEP0300 EXEC PGM=SORT, COMBINE BATCH XREF FILES // COND=(0,LT) //SYSOUT DD SYSOUT=* //SORTIN DD DSN=DOESTAX.&LVLNODE..BX422.BX214,DISP=SHR diff --git a/Procs/DTSBX427 b/Procs/DTSBX427 index 83e14d3..29d7efe 100644 --- a/Procs/DTSBX427 +++ b/Procs/DTSBX427 @@ -6,7 +6,7 @@ //** 00001700 //DTSBX427 PROC //** 00001700 -//STEP0080 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS +//STEP0080 EXEC PGM=SORT, SORT TRANSACTIONS // COND=(0,LT) //SYSOUT DD SYSOUT=* //* diff --git a/Procs/DTSBX427.TXT b/Procs/DTSBX427.TXT new file mode 100644 index 0000000..0e56e97 --- /dev/null +++ b/Procs/DTSBX427.TXT @@ -0,0 +1,1058 @@ +00001 IDENTIFICATION DIVISION. 02/27/20 +00002 PROGRAM-ID. DTSBX427. DTSBX427 +00003 AUTHOR. NORTHROP GRUMMAN. LV094 +00004 DATE-WRITTEN. SEPT 2014. CL**2 +00005 DATE-COMPILED. DTSBX427 +00006 SKIP3 DTSBX427 +00007 ***** DTSBX427 +00008 * DTSBX427 +00009 * FUNCTION: UPDATE MAILING AND BUSINESS ADDRESS FROM ESSP. CL**2 +00010 * DTSBX427 +00011 * MODIFICATION LOG: DTSBX427 +00012 * DTSBX427 +00013 * 09/15/2014 INITIAL DEVELOPMENT. CL**2 +00014 * WORK ORDER: ESSP PROGRAMMER: ZL1 CL**2 +00015 * DTSBX427 +00016 * CL*48 +00017 * 02/15/2017 MODIFIED TO CONVERT ADDRESS FIELDS INTO UPPER CL*48 +00018 * CASE PROGRAMMER: ZL1 CL*48 +00019 * CL*48 +00020 * CL*50 +00021 * CL*50 +00022 * 04/06/2017 MODIFIED TO UPDATE THE RETURN MAIL FLAG WHEN CL*50 +00023 * ADDRESS UPDATES COMPLETED PROGRAMMER: ZL1 CL*50 +00024 * CL*50 +00025 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX427 +00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX427 +00027 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX427 +00028 * DTSBX427 +00029 * DESCRIPTION: DTSBX427 +00030 * DTSBX427 +00031 * UPDATE ADDRESSES AND THE MPRF MASTER FILE. DTSBX427 +00032 * DTSBX427 +00033 * DTSBX427 IS THE MAILING ADDRESS UPDATE PROCESS FROM A CL**2 +00034 * ESSP ADDRESS FILE. CL**2 +00035 * DTSBX427 +00036 * REPORT RECORDS INPUT: DTSBX427 +00037 * NONE DTSBX427 +00038 * DTSBX427 +00039 * TAPES INPUT: DTSBX427 +00040 * NONE. DTSBX427 +00041 * DTSBX427 +00042 * MASTER FILE RECORDS READ: DTSBX427 +00043 * MHDR DTSBX427 +00044 * MPRF DTSBX427 +00045 * MTAD DTSBX427 +00046 * DTSBX427 +00047 * MASTER FILE RECORDS UPDATED: DTSBX427 +00048 * MPRF (REWRITE). DTSBX427 +00049 * MTAD (REWRITE). DTSBX427 +00050 * MELOG(WRITTEN). DTSBX427 +00051 * DTSBX427 +00052 * RECORDS READ: DTSBX427 +00053 * ESSP ADDRESS FILE (X110). CL**2 +00054 * DTSBX427 +00055 * MODULES CALLED: DTSBX427 +00056 * DTSBU203 FIELD ZIP AND JS ZIP DETERMINATION. DTSBX427 +00057 * DTSBU910 MASTER FILE I/O. DTSBX427 +00058 * DTSBU921 ALTERNATE INDEX I/O. DTSBX427 +00059 * DTSBX427 +00060 ***** DTSBX427 +00061 SKIP3 DTSBX427 +00062 ENVIRONMENT DIVISION. DTSBX427 +00063 CONFIGURATION SECTION. CL*82 +00064 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. CL*82 +00065 SKIP2 CL*82 +00066 CL*82 +00067 INPUT-OUTPUT SECTION. DTSBX427 +00068 DTSBX427 +00069 FILE-CONTROL. DTSBX427 +00070 SELECT REPT-PAID-FILE ASSIGN TO X427RPT1 CL*75 +00071 FILE STATUS IS REPT-STATUS. CL*75 +00072 CL*75 +00073 SELECT REPT-PEND-FILE ASSIGN TO X427RPT2 CL*75 +00074 FILE STATUS IS REPT-STATUS. CL*75 +00075 CL*75 +00076 SELECT ESSP-X110-FILE ASSIGN TO DTSFX110. CL**2 +00077 DATA DIVISION. DTSBX427 +00078 DTSBX427 +00079 FILE SECTION. DTSBX427 +00080 DTSBX427 +00081 FD ESSP-X110-FILE CL**2 +00082 LABEL RECORDS ARE STANDARD DTSBX427 +00083 RECORDING MODE IS F DTSBX427 +00084 BLOCK CONTAINS 0 RECORDS. DTSBX427 +00085 DTSBX427 +00086 01 ESSP-X110-REC PIC X(512). CL*67 +00087 CL*75 +00088 FD REPT-PAID-FILE CL*75 +00089 RECORDING MODE IS F CL*75 +00090 BLOCK CONTAINS 0 RECORDS CL*75 +00091 LABEL RECORDS ARE OMITTED. CL*75 +00092 CL*75 +00093 01 REPT-PAID-REC PIC X(200). CL*75 +00094 CL*75 +00095 CL*75 +00096 FD REPT-PEND-FILE CL*75 +00097 RECORDING MODE IS F CL*75 +00098 BLOCK CONTAINS 0 RECORDS CL*75 +00099 LABEL RECORDS ARE OMITTED. CL*75 +00100 CL*75 +00101 01 REPT-PEND-REC PIC X(133). CL*75 +00102 CL*75 +00103 CL*75 +00104 EJECT DTSBX427 +00105 DTSBX427 +00106 WORKING-STORAGE SECTION. DTSBX427 +001065 77 PAN-VALET PICTURE X(24) VALUE '094DTSBX427 02/27/20'. DTSBX427 +00107 77 PAN-VALET PICTURE X(24) VALUE '062DTSBX427 03/06/07'. DTSBX427 +00108 SKIP3 DTSBX427 +00109 01 WRK-AREA. DTSBX427 +00110 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +427. CL**2 +00111 05 ABEND-MSG PIC X(60). DTSBX427 +00112 05 WRK-SYS-ABSTIME PIC S9(15) COMP-3 VALUE +0. DTSBX427 +00113 05 WRK-ABSTIME PIC S9(15) COMP-3 VALUE +1000. CL*29 +00114 05 W-EMP-NO PIC S9(07) COMP-3 VALUE +0. CL*77 +00115 CL*77 +00116 05 UPD-MTAD-IND PIC 9(01) VALUE 0. CL**7 +00117 05 WRK-MPRF-MAIL-UPD-CNT PIC 9 VALUE 0. CL*55 +00118 05 WRK-MTAD-MAIL-UPD-CNT PIC 9 VALUE 0. CL*55 +00119 05 WRK-MTAD-MAIL-ADD-CNT PIC 9 VALUE 0. CL*55 +00120 05 X110-EOF-IND PIC X(01). CL**7 +00121 05 WRK-MPRF-ADD-CNT PIC S9(07) COMP-3. CL*18 +00122 05 WRK-MPRF-UPD-CNT PIC S9(07) COMP-3. CL*18 +00123 05 WRK-MPRF-NOT-CNT PIC S9(07) COMP-3. CL*19 +00124 05 WRK-MTAD-ADD-CNT PIC S9(07) COMP-3. CL*18 +00125 05 WRK-MTAD-UPD-CNT PIC S9(07) COMP-3. CL*18 +00126 05 WRK-MDCD-ADD-CNT PIC S9(07) COMP-3. CL*18 +00127 05 WRK-MDCD-UPD-CNT PIC S9(07) COMP-3. CL*18 +00128 05 WRK-MLOG-REC-CNT PIC S9(07) COMP-3. DTSBX427 +00129 05 WRK-X110-REC-CNT PIC S9(07) COMP-3. CL**5 +00130 05 W-T002-ADDR-CNT PIC S9(07) COMP-3. CL*13 +00131 05 REPT-STATUS PIC X(02). CL*76 +00132 88 REPT-STATUS-OK-88 VALUE '00'. CL*76 +00133 88 REPT-STATUS-EOF-88 VALUE '10'. CL*76 +00134 CL*76 +00135 CL*21 +00136 05 W-ERROR-IND PIC X(01) VALUE 'N'. CL*21 +00137 88 W-ERROR-YES-88 VALUE 'Y'. CL*21 +00138 88 W-ERROR-NO-88 VALUE 'N'. CL*21 +00139 CL*21 +00140 05 W-FATAL-ERROR-IND PIC X(01) VALUE 'N'. CL*21 +00141 88 W-FATAL-ERROR-YES-88 VALUE 'Y'. CL*21 +00142 88 W-FATAL-ERROR-NO-88 VALUE 'N'. CL*21 +00143 CL*21 +00144 05 WRK-EMP-NO PIC S9(07) COMP-3. DTSBX427 +00145 05 WRK-TAD-EMP-NO PIC S9(07) COMP-3. DTSBX427 +00146 05 WRK-MTAD-ZIP-UPDATED-IND PIC X(01). DTSBX427 +00147 DTSBX427 +00148 05 WRK-ID-NO-9 PIC 9(03). DTSBX427 +00149 05 WRK-ID-NO-X REDEFINES WRK-ID-NO-9 DTSBX427 +00150 PIC X(03). DTSBX427 +00151 05 WRK-ZIP. CL**3 +00152 10 WRK-ZIP-5 PIC X(05). CL**3 +00153 10 WRK-DASH PIC X(01) VALUE '-'. CL**3 +00154 10 WRK-ZIP-PLUS4 PIC X(04). CL**3 +00155 01 HEADER-3. CL*75 +00156 05 FILLER PIC X(01) VALUE SPACES. CL*75 +00157 05 FILLER PIC X(38) VALUE CL*75 +00158 ' TAX STATUS STAFF'. CL*84 +00159 05 HDR3-LITERAL PIC X(43) VALUE CL*75 +00160 ' ESSP DAILY ADDRESS UPDATES '. CL*84 +00161 05 FILLER PIC X(28) VALUE SPACES. CL*75 +00162 * 05 FILLER PIC X(06) VALUE 'PAGE:'. CL*75 +00163 * 05 HDR3-PAGE PIC ZZ,ZZ9. CL*75 +00164 01 HEADER-43. CL*75 +00165 05 FILLER PIC X(02) VALUE SPACES. CL*75 +00166 05 FILLER PIC X(52) VALUE CL*80 +00167 'EMP NO TYPE QAS ATTN LINE1'. CL*80 +00168 05 FILLER PIC X(27) VALUE CL*80 +00169 ' LINE2'. CL*80 +00170 05 FILLER PIC X(22) VALUE SPACES. CL*85 +00171 05 FILLER PIC X(44) VALUE CL*85 +00172 ' CITY ST '. CL*94 +00173 05 HDR5-NAME PIC X(31) VALUE CL*75 +00174 'ZIP EMAIL '. CL*93 +00175 DTSBX427 +00176 CL*66 +00177 01 BLANK-LINE PIC X(200) VALUE SPACES. CL*85 +00178 01 DETAIL-LINE-1. CL*85 +00179 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00180 15 X427-EMP-NO PIC 999B999 BLANK WHEN ZERO. CL*75 +00181 15 FILLER PIC X(03) VALUE SPACES. CL*80 +00182 15 X427-TYPE PIC X(02). CL*79 +00183 15 FILLER PIC X(04) VALUE SPACES. CL*80 +00184 15 X427-QAS PIC X(01). CL*75 +00185 15 FILLER PIC X(03) VALUE SPACES. CL*84 +00186 15 X427-ATTN PIC X(20). CL*75 +00187 15 FILLER PIC X(07) VALUE SPACES. CL*80 +00188 15 X427-LINE1 PIC X(25). CL*75 +00189 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00190 15 X427-LINE2 PIC X(40). CL*92 +00191 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00192 15 X427-CITY PIC X(20). CL*92 +00193 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00194 15 X427-STATE PIC X(02). CL*75 +00195 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00196 15 X427-ZIP PIC X(10). CL*75 +00197 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00198 15 X427-EMAIL PIC X(30). CL*75 +00199 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00200 15 X427-MESSAGE PIC X(10) VALUE SPACES. CL*79 +00201 CL*75 +00202 01 DETAIL-PEND-1. CL*75 +00203 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00204 15 P427-EMP-NO PIC 999B999 BLANK WHEN ZERO. CL*75 +00205 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00206 15 P427-TYPE PIC X(01). CL*75 +00207 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00208 15 P427-ATTN PIC X(20). CL*75 +00209 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00210 15 P427-LINE1 PIC X(25). CL*75 +00211 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00212 15 P427-LINE2 PIC X(25). CL*75 +00213 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00214 15 P427-CITY PIC X(15). CL*75 +00215 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00216 15 P427-STATE PIC X(02). CL*75 +00217 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00218 15 P427-ZIP PIC X(10). CL*75 +00219 15 FILLER PIC X(02) VALUE SPACES. CL*75 +00220 15 P427-MESSAGE PIC X(10). CL*75 +00221 CL*75 +00222 01 FOOTING-LINE-51. CL*75 +00223 05 FILLER PIC X(25) VALUE SPACES. CL*75 +00224 05 WS-X110-PEN-CNT PIC ZZ,ZZ9. CL*75 +00225 05 FILLER PIC X(02) VALUE SPACES. CL*75 +00226 05 FILLER PIC X(40) VALUE CL*75 +00227 '# OF ADDRESSES RECEIVED FROM ESSP '. CL*75 +00228 05 FILLER PIC X(32) VALUE SPACES. CL*75 +00229 CL*75 +00230 01 FOOTING-LINE-6. CL*75 +00231 05 FILLER PIC X(25) VALUE SPACES. CL*75 +00232 05 WS-X102-RED-CNT PIC ZZ,ZZ9. CL*75 +00233 05 FILLER PIC X(02) VALUE SPACES. CL*75 +00234 05 FILLER PIC X(45) VALUE CL*75 +00235 '# OF ADDRESSES DUTAS PASSED '. CL*89 +00236 05 FILLER PIC X(32) VALUE SPACES. CL*75 +00237 01 FOOTING-LINE-7. CL*75 +00238 05 FILLER PIC X(25) VALUE SPACES. CL*75 +00239 05 WS-X102-ERR-CNT PIC ZZ,ZZ9. CL*75 +00240 05 FILLER PIC X(02) VALUE SPACES. CL*75 +00241 05 FILLER PIC X(40) VALUE CL*75 +00242 '# OF ADDRESSES DUTAS FAILED '. CL*75 +00243 05 FILLER PIC X(32) VALUE SPACES. CL*75 +00244 CL*75 +00245 01 X110-REC. CL*75 +00246 ++INCLUDE DTSUX110 CL*66 +00247 EJECT CL*66 +00248 CL*66 +00249 CL*18 +00250 01 R140-REC. CL*18 +00251 ++INCLUDE DTSIR140 CL*18 +00252 EJECT DTSBX427 +00253 CL*47 +00254 01 L009-LINK-AREA. CL*47 +00255 ++INCLUDE DTSIL009 CL*47 +00256 EJECT CL*47 +00257 01 L005-LINK-AREA. DTSBX427 +00258 ++INCLUDE DTSIL005 DTSBX427 +00259 EJECT DTSBX427 +00260 01 L203-LINK-AREA. DTSBX427 +00261 ++INCLUDE DTSIL203 DTSBX427 +00262 EJECT DTSBX427 +00263 01 L331-LINK-AREA. DTSBX427 +00264 ++INCLUDE DTSIL331 DTSBX427 +00265 EJECT DTSBX427 +00266 01 L910-LINK-AREA. DTSBX427 +00267 ++INCLUDE DTSIL910 DTSBX427 +00268 EJECT DTSBX427 +00269 01 MSKL-REC. DTSBX427 +00270 ++INCLUDE DTSIMSKL DTSBX427 +00271 EJECT DTSBX427 +00272 01 MHDR-REC. DTSBX427 +00273 ++INCLUDE DTSIMHDR DTSBX427 +00274 EJECT DTSBX427 +00275 01 MPRF-REC. DTSBX427 +00276 ++INCLUDE DTSIMPRF DTSBX427 +00277 EJECT DTSBX427 +00278 CL*12 +00279 01 T002-REC. CL*12 +00280 ++INCLUDE DTSIT002 CL*12 +00281 CL*12 +00282 * ADDRESS CL*12 +00283 01 Y110-REC. CL*12 +00284 ++INCLUDE DTSIY110 CL*12 +00285 CL*12 +00286 01 MTAD-REC. DTSBX427 +00287 ++INCLUDE DTSIMTAD DTSBX427 +00288 EJECT DTSBX427 +00289 01 L921-LINK-AREA. DTSBX427 +00290 ++INCLUDE DTSIL921 DTSBX427 +00291 CL*12 +00292 01 L927-LINK-AREA. CL*12 +00293 ++INCLUDE DTSIL927 CL*12 +00294 CL*12 +00295 01 TSKL-REC. CL*12 +00296 ++INCLUDE DTSITSKL CL*12 +00297 CL*12 +00298 EJECT DTSBX427 +00299 01 ISKL-REC. DTSBX427 +00300 ++INCLUDE DTSIISKL DTSBX427 +00301 EJECT DTSBX427 +00302 PROCEDURE DIVISION. DTSBX427 +00303 DTSBX427 +00304 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX427 +00305 DTSBX427 +00306 MOVE 'N' TO X110-EOF-IND. CL**5 +00307 DTSBX427 +00308 MOVE +0 TO WRK-EMP-NO WRK-TAD-EMP-NO. DTSBX427 +00309 DTSBX427 +00310 MOVE 'N' TO WRK-MTAD-ZIP-UPDATED-IND. DTSBX427 +00311 DTSBX427 +00312 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX427 +00313 UNTIL X110-EOF-IND = 'Y'. CL**3 +00314 DTSBX427 +00315 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX427 +00316 IF W-ERROR-YES-88 CL*18 +00317 MOVE 02 TO RETURN-CODE. CL*36 +00318 DTSBX427 +00319 GOBACK. DTSBX427 +00320 EJECT DTSBX427 +00321 DTSBX427 +00322 I0000-INITIATE. DTSBX427 +00323 PERFORM S910-OPEN-UPDATE THRU S910-EXIT. DTSBX427 +00324 DTSBX427 +00325 PERFORM S921-OPEN-UPDATE THRU S921-EXIT. DTSBX427 +00326 DTSBX427 +00327 PERFORM S927A-OPEN-UPDATE THRU S927A-EXIT. CL*19 +00328 CL*16 +00329 OPEN INPUT ESSP-X110-FILE. CL**6 +00330 OPEN OUTPUT REPT-PAID-FILE REPT-PEND-FILE. CL*75 +00331 DTSBX427 +00332 WRITE REPT-PAID-REC FROM HEADER-3 CL*82 +00333 AFTER ADVANCING TOP-OF-PAGE CL*82 +00334 CL*82 +00335 WRITE REPT-PAID-REC FROM HEADER-43 CL*83 +00336 AFTER ADVANCING 2 LINE. CL*85 +00337 WRITE REPT-PAID-REC FROM BLANK-LINE CL*85 +00338 AFTER ADVANCING 1 LINE. CL*85 +00339 MOVE +0 TO WRK-MPRF-UPD-CNT CL*19 +00340 W-T002-ADDR-CNT CL*30 +00341 WRK-MTAD-UPD-CNT CL*19 +00342 WRK-MPRF-NOT-CNT CL*20 +00343 WRK-MPRF-ADD-CNT CL*19 +00344 WRK-MTAD-ADD-CNT CL*19 +00345 WRK-MDCD-ADD-CNT CL*26 +00346 WRK-MDCD-UPD-CNT CL*26 +00347 WRK-MLOG-REC-CNT CL*26 +00348 WRK-X110-REC-CNT. CL**5 +00349 DTSBX427 +00350 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBX427 +00351 DTSBX427 +00352 MOVE +0 TO MSKL-EMP-NO. DTSBX427 +00353 DTSBX427 +00354 SET MSKL-HDR-88 TO TRUE. DTSBX427 +00355 DTSBX427 +00356 PERFORM S910-READ THRU S910-EXIT. DTSBX427 +00357 DTSBX427 +00358 IF L910-NO-REC-88 DTSBX427 +00359 MOVE 'MHDR RECORD NOT FOUND' TO ABEND-MSG DTSBX427 +00360 PERFORM S999-ABEND THRU S999-EXIT. DTSBX427 +00361 DTSBX427 +00362 MOVE MSKL-REC TO MHDR-REC. DTSBX427 +00363 DTSBX427 +00364 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBX427 +00365 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME. DTSBX427 +00366 MOVE LENGTH OF R140-REC TO R140-LENGTH. CL*18 +00367 MOVE '140' TO R140-REC-TYPE. CL*18 +00368 DTSBX427 +00369 I0000-EXIT. DTSBX427 +00370 EXIT. DTSBX427 +00371 DTSBX427 +00372 P0000-PROCESS. DTSBX427 +00373 READ ESSP-X110-FILE INTO X110-REC CL*66 +00374 AT END DTSBX427 +00375 MOVE 'Y' TO X110-EOF-IND CL**3 +00376 PERFORM P2000-EMP-NO-BREAK THRU P2000-EXIT DTSBX427 +00377 GO TO P0000-EXIT. DTSBX427 +00378 DTSBX427 +00379 ADD +1 TO WRK-X110-REC-CNT. CL**3 +00380 DTSBX427 +00381 DTSBX427 +00382 * IF X110-EMP-NO = WRK-EMP-NO OR CL*68 +00383 * WRK-X110-REC-CNT = 1 CL*68 +00384 * NEXT SENTENCE CL*68 +00385 * ELSE CL*68 +00386 * PERFORM P2000-EMP-NO-BREAK THRU P2000-EXIT CL*68 +00387 * IF L910-NO-REC-88 CL*68 +00388 * DISPLAY ' EMPL NOT FOUND IN DUTAS ADDR NOT ADDED> ' CL*68 +00389 * X110-EMP-NO CL*68 +00390 * GO TO P0000-EXIT. CL*68 +00391 IF X110-STREET-2 = SPACES CL*72 +00392 MOVE X110-STREET-1 TO X110-STREET-2 CL*72 +00393 MOVE SPACES TO X110-STREET-1. CL*72 +00394 CL*62 +00395 MOVE X110-EMP-NO TO WRK-EMP-NO CL*62 +00396 MOVE 'N' TO WRK-MTAD-ZIP-UPDATED-IND CL*62 +00397 MOVE X110-EMP-NO TO L331-EMP-NO CL*62 +00398 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*62 +00399 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*62 +00400 MOVE 'WEBESSP ' TO L331-OP-ID. CL*62 +00401 DTSBX427 +00402 MOVE LOW-VALUES TO MTAD-KEY-AREA. CL**4 +00403 IF X110-ADDR-TYPE-MAIL-88 CL**3 +00404 SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE CL**3 +00405 ELSE CL**3 +00406 IF X110-ADDR-TYPE-RECS-88 CL**3 +00407 SET MTAD-ID-TAX-RECORDS-ADDR-88 TO TRUE CL**3 +00408 ELSE CL**3 +00409 SET W-ERROR-YES-88 TO TRUE CL*18 +00410 MOVE SPACES TO R140-MESSAGE CL*18 +00411 MOVE WRK-EMP-NO TO R140-EMP-NO CL*19 +00412 STRING CL*18 +00413 'X427 INV ADDR CODE ON X110 ADDR REC ' X110-ADDR-TYPE CL*19 +00414 DELIMITED BY SIZE CL*18 +00415 INTO R140-MESSAGE CL*18 +00416 END-STRING CL*18 +00417 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*18 +00418 GO TO P0000-EXIT. CL**3 +00419 CL**3 +00420 IF MTAD-ID-TAX-RECORDS-ADDR-88 AND X110-STATE NOT = 'DC' CL*42 +00421 SET W-ERROR-YES-88 TO TRUE CL*34 +00422 MOVE SPACES TO R140-MESSAGE CL*34 +00423 MOVE WRK-EMP-NO TO R140-EMP-NO CL*34 +00424 STRING CL*34 +00425 'X427 STATE NOT DC FOR DC ADDRESS ' X110-STATE CL*34 +00426 DELIMITED BY SIZE CL*34 +00427 INTO R140-MESSAGE CL*34 +00428 END-STRING CL*34 +00429 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*34 +00430 GO TO P0000-EXIT. CL*34 +00431 CL*34 +00432 MOVE ZEROS TO UPD-MTAD-IND CL**5 +00433 CL**5 +00434 DISPLAY '+++++++ CHECKING FOR ADDRESS UPDATES: ' X110-EMP-NO. CL*57 +00435 PERFORM P1000-MTAD-UPDATE THRU P1000-EXIT. CL**3 +00436 CL*78 +00437 MOVE X110-EMP-NO TO X427-EMP-NO. CL*78 +00438 MOVE X110-ADDR-TYPE TO X427-TYPE CL*78 +00439 MOVE X110-ATTENTION TO X427-ATTN CL*78 +00440 MOVE X110-STREET-1 TO X427-LINE1 CL*78 +00441 MOVE X110-STREET-2 TO X427-LINE2 CL*78 +00442 MOVE X110-CITY TO X427-CITY CL*78 +00443 MOVE X110-STATE TO X427-STATE. CL*78 +00444 MOVE X110-ZIP TO X427-ZIP. CL*78 +00445 MOVE X110-EMAIL TO X427-EMAIL. CL*78 +00446 MOVE X110-QAS-FLAG TO X427-QAS. CL*78 +00447 WRITE REPT-PAID-REC FROM DETAIL-LINE-1. CL*78 +00448 CL**3 +00449 P0000-EXIT. DTSBX427 +00450 EXIT. DTSBX427 +00451 DTSBX427 +00452 P1000-MTAD-UPDATE. DTSBX427 +00453 DTSBX427 +00454 * MOVE LOW-VALUES TO MTAD-KEY-AREA. CL*43 +00455 MOVE X110-EMP-NO TO WRK-TAD-EMP-NO WRK-EMP-NO. CL*44 +00456 DTSBX427 +00457 MOVE WRK-TAD-EMP-NO TO MTAD-EMP-NO. DTSBX427 +00458 SET MTAD-TAD-88 TO TRUE. DTSBX427 +00459 CL**3 +00460 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBX427 +00461 DTSBX427 +00462 PERFORM S910-READ THRU S910-EXIT. DTSBX427 +00463 DTSBX427 +00464 IF L910-NO-REC-88 DTSBX427 +00465 * DISPLAY 'MTAD NOT FOUND ' MTAD-KEY-AREA CL*57 +00466 MOVE SPACES TO R140-MESSAGE CL*18 +00467 MOVE WRK-EMP-NO TO R140-EMP-NO CL*19 +00468 IF X110-ADDR-TYPE-MAIL-88 CL*37 +00469 DISPLAY '------ X427 MAIL ADDR NOT IN DUTAS -ADDED ' CL*57 +00470 X110-EMP-NO CL*45 +00471 STRING CL*18 +00472 'X427 MAIL ADDR NOT IN DUTAS -ADDED ' CL*37 +00473 X110-EMP-NO CL*37 +00474 DELIMITED BY SIZE CL*18 +00475 INTO R140-MESSAGE CL*18 +00476 END-STRING CL*18 +00477 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*18 +00478 PERFORM P1050-MTAD-ADD THRU P1050-EXIT CL*18 +00479 PERFORM P2000-EMP-NO-BREAK THRU P2000-EXIT CL*68 +00480 GO TO P1000-EXIT CL*37 +00481 ELSE CL*38 +00482 DISPLAY '----- X427 DC ADDR NOT IN DUTAS -ADDED ' CL*57 +00483 X110-EMP-NO CL*45 +00484 STRING CL*37 +00485 'X427 DC ADDR NOT IN DUTAS -ADDED ' CL*37 +00486 X110-EMP-NO CL*37 +00487 DELIMITED BY SIZE CL*37 +00488 INTO R140-MESSAGE CL*37 +00489 END-STRING CL*37 +00490 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*37 +00491 PERFORM P1050-MTAD-ADD THRU P1050-EXIT CL*37 +00492 GO TO P1000-EXIT. CL*37 +00493 CL*18 +00494 MOVE MSKL-REC TO MTAD-REC. DTSBX427 +00495 DTSBX427 +00496 MOVE X110-ZIP TO WRK-ZIP. CL**3 +00497 DTSBX427 +00498 IF WRK-ZIP = MTAD-ZIP CL**3 +00499 MOVE 'N' TO WRK-MTAD-ZIP-UPDATED-IND CL**3 +00500 ELSE DTSBX427 +00501 MOVE 'Y' TO WRK-MTAD-ZIP-UPDATED-IND. DTSBX427 +00502 DTSBX427 +00503 MOVE ZEROS TO UPD-MTAD-IND. CL*32 +00504 CL*32 +00505 PERFORM P1100-CHECK-FOR-MLOG THRU P1100-EXIT. DTSBX427 +00506 DTSBX427 +00507 DTSBX427 +00508 IF UPD-MTAD-IND = 1 CL**5 +00509 DISPLAY '===== DUTAS ADDRESS UPDATED ' X110-EMP-NO CL*56 +00510 MOVE MHDR-CURR-RUN-DATE TO MTAD-CHNG-DATE CL**5 +00511 MOVE MTAD-REC TO MSKL-REC CL**5 +00512 PERFORM S910-REWRITE THRU S910-EXIT CL*68 +00513 PERFORM P2000-EMP-NO-BREAK THRU P2000-EXIT. CL*68 +00514 DTSBX427 +00515 P1000-EXIT. DTSBX427 +00516 EXIT. DTSBX427 +00517 DTSBX427 +00518 P1050-MTAD-ADD. CL*11 +00519 MOVE +0 TO WRK-MTAD-MAIL-ADD-CNT. CL*51 +00520 IF X110-ADDR-TYPE-MAIL-88 CL*35 +00521 ADD +1 TO WRK-MTAD-ADD-CNT CL*18 +00522 MOVE +1 TO WRK-MTAD-MAIL-ADD-CNT CL*51 +00523 * DISPLAY '<<< X427--ADDIN T002 MAIL ADDR ' WRK-EMP-NO CL*57 +00524 ELSE CL*18 +00525 * DISPLAY '<<< X427--ADDIN T002 DC ADDR ' WRK-EMP-NO CL*57 +00526 ADD +1 TO WRK-MDCD-ADD-CNT. CL*18 +00527 CL*18 +00528 PERFORM S005-FROM-SYS THRU S005-EXIT. CL*13 +00529 MOVE LOW-VALUES TO T002-REC. CL*11 +00530 CL*11 +00531 SET T002-LENGTH-EMP-ADDR-88 TO TRUE. CL*11 +00532 MOVE '002' TO T002-REC-TYPE. CL*11 +00533 MOVE X110-EMP-NO TO T002-EMP-NO. CL*13 +00534 MOVE 'WEB ESSP ' TO T002-ORIGIN. CL*12 +00535 MOVE L005-DATE TO T002-SYS-DATE. CL*13 +00536 MOVE L005-TIME TO T002-SYS-TIME. CL*13 +00537 CL*11 +00538 MOVE X110-ADDR-TYPE TO Y110-EMP-ADDR-TYPE. CL*11 +00539 CL*47 +00540 IF X110-ATTENTION > SPACES CL*47 +00541 MOVE X110-ATTENTION TO L009-DATA CL*47 +00542 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00543 MOVE L009-DATA TO Y110-EMP-ATTN CL*49 +00544 ELSE CL*47 +00545 MOVE X110-ATTENTION TO Y110-EMP-ATTN. CL*11 +00546 CL*47 +00547 IF X110-STREET-1 > SPACES CL*47 +00548 MOVE X110-STREET-1 TO L009-DATA CL*47 +00549 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00550 MOVE L009-DATA TO Y110-EMP-DELV1 CL*47 +00551 ELSE CL*47 +00552 MOVE X110-STREET-1 TO Y110-EMP-DELV1. CL*11 +00553 CL*47 +00554 IF X110-STREET-2 > SPACES CL*47 +00555 MOVE X110-STREET-2 TO L009-DATA CL*47 +00556 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00557 MOVE L009-DATA TO Y110-EMP-DELV2 CL*47 +00558 ELSE CL*47 +00559 MOVE X110-STREET-2 TO Y110-EMP-DELV2. CL*11 +00560 CL*47 +00561 IF X110-CITY > SPACES CL*47 +00562 MOVE X110-CITY TO L009-DATA CL*47 +00563 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00564 MOVE L009-DATA TO Y110-EMP-CITY CL*47 +00565 ELSE CL*47 +00566 MOVE X110-CITY TO Y110-EMP-CITY. CL*11 +00567 CL*47 +00568 IF X110-STATE > SPACES CL*47 +00569 MOVE X110-STATE TO L009-DATA CL*47 +00570 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*47 +00571 MOVE L009-DATA TO Y110-EMP-STATE CL*47 +00572 ELSE CL*47 +00573 MOVE X110-STATE TO Y110-EMP-STATE. CL*11 +00574 * MOVE X110-STATE TO Y110-EMP-STATE. CL*51 +00575 MOVE X110-ZIP TO Y110-EMP-ZIP. CL*11 +00576 MOVE X110-PHONE TO Y110-EMP-VOICE. CL*11 +00577 MOVE X110-FAX TO Y110-EMP-FAX. CL*11 +00578 MOVE X110-EMAIL TO Y110-EMP-EMAIL. CL*11 +00579 MOVE Y110-REC TO T002-DATA-AREA. CL*11 +00580 SET T002-EMP-ADDR-88 TO TRUE. CL*11 +00581 MOVE T002-REC TO TSKL-REC. CL*11 +00582 PERFORM S927B-WRITE THRU S927B-EXIT. CL*11 +00583 ADD +1 TO W-T002-ADDR-CNT. CL*11 +00584 CL*11 +00585 P1050-EXIT. CL*11 +00586 EXIT. CL*11 +00587 CL*11 +00588 P1100-CHECK-FOR-MLOG. DTSBX427 +00589 DTSBX427 +00590 MOVE 0 TO WRK-MTAD-MAIL-UPD-CNT. CL*55 +00591 ADD +100 TO WRK-ABSTIME CL*29 +00592 PERFORM S005-FROM-SYS THRU S005-EXIT. CL*27 +00593 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME. CL*27 +00594 MOVE X110-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL*44 +00595 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*27 +00596 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME. CL*29 +00597 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*27 +00598 MOVE 'WEBESSP ' TO L331-OP-ID. CL*41 +00599 CL*24 +00600 IF MTAD-ID-TAX-MAILING-ADDR-88 DTSBX427 +00601 MOVE 'MAILING ADDRESS' TO L331-REC-OCC-ID DTSBX427 +00602 * ADD +1 TO WRK-MTAD-ADD-CNT CL*46 +00603 ELSE DTSBX427 +00604 IF MTAD-ID-TAX-RECORDS-ADDR-88 DTSBX427 +00605 MOVE 'RECORDS ADDRESS' TO L331-REC-OCC-ID DTSBX427 +00606 * ADD +1 TO WRK-MDCD-ADD-CNT CL*46 +00607 ELSE DTSBX427 +00608 MOVE MTAD-ID-NO TO WRK-ID-NO-9 DTSBX427 +00609 MOVE WRK-ID-NO-X TO L331-REC-OCC-ID. DTSBX427 +00610 DTSBX427 +00611 MOVE X110-ATTENTION TO L009-DATA CL*69 +00612 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00613 MOVE L009-DATA TO X110-ATTENTION CL*69 +00614 IF X110-ATTENTION = MTAD-ATTN-LINE CL**5 +00615 NEXT SENTENCE DTSBX427 +00616 ELSE DTSBX427 +00617 MOVE 'MTAD-ATTENTION ' TO L331-FIELD-NAME CL**3 +00618 MOVE MTAD-ATTN-LINE TO L331-FROM-VALUE CL**5 +00619 DISPLAY 'MTAD-ATTENTION B ' MTAD-ATTN-LINE CL**7 +00620 MOVE X110-ATTENTION TO L331-TO-VALUE CL**4 +00621 MOVE X110-ATTENTION TO MTAD-ATTN-LINE CL**5 +00622 DISPLAY 'MTAD-ATTENTION A ' X110-ATTENTION CL**7 +00623 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00624 MOVE 1 TO UPD-MTAD-IND CL**5 +00625 ADD +1 TO WRK-MLOG-REC-CNT. DTSBX427 +00626 DTSBX427 +00627 CL**3 +00628 MOVE X110-STREET-1 TO L009-DATA CL*69 +00629 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00630 MOVE L009-DATA TO X110-STREET-1 CL*69 +00631 IF X110-STREET-1 = MTAD-DELIV-LINE-1 CL**6 +00632 NEXT SENTENCE CL**3 +00633 ELSE CL**3 +00634 MOVE 'MTAD-DELIV-LINE-1' TO L331-FIELD-NAME CL**4 +00635 MOVE MTAD-DELIV-LINE-1 TO L331-FROM-VALUE CL**4 +00636 DISPLAY 'MTAD-DELV LIN1 B ' MTAD-DELIV-LINE-1 CL**7 +00637 MOVE X110-STREET-1 TO MTAD-DELIV-LINE-1 CL**6 +00638 MOVE X110-STREET-1 TO L331-TO-VALUE CL*52 +00639 DISPLAY 'MTAD-DELV LIN1 A ' X110-STREET-1 CL**7 +00640 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00641 MOVE 1 TO UPD-MTAD-IND CL**5 +00642 ADD +1 TO WRK-MLOG-REC-CNT. CL**3 +00643 CL**3 +00644 MOVE X110-STREET-2 TO L009-DATA CL*69 +00645 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00646 MOVE L009-DATA TO X110-STREET-2 CL*69 +00647 CL**4 +00648 IF X110-STREET-2 = MTAD-DELIV-LINE-2 CL**6 +00649 NEXT SENTENCE CL**4 +00650 ELSE CL**4 +00651 MOVE 'MTAD-DELIV-LINE-2' TO L331-FIELD-NAME CL**4 +00652 MOVE MTAD-DELIV-LINE-2 TO L331-FROM-VALUE CL**4 +00653 DISPLAY 'MTAD-DELV LIN2 B ' MTAD-DELIV-LINE-2 CL**7 +00654 MOVE X110-STREET-2 TO L331-TO-VALUE CL**6 +00655 MOVE X110-STREET-2 TO MTAD-DELIV-LINE-2 CL**6 +00656 DISPLAY 'MTAD-DELV LIN3 A ' X110-STREET-2 CL**7 +00657 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00658 MOVE 1 TO UPD-MTAD-IND CL**5 +00659 ADD +1 TO WRK-MLOG-REC-CNT. CL**4 +00660 CL**4 +00661 MOVE X110-CITY TO L009-DATA CL*69 +00662 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00663 MOVE L009-DATA TO X110-CITY CL*69 +00664 IF X110-CITY = MTAD-CITY CL**4 +00665 NEXT SENTENCE DTSBX427 +00666 ELSE DTSBX427 +00667 MOVE 'MTAD-CITY' TO L331-FIELD-NAME DTSBX427 +00668 MOVE MTAD-CITY TO L331-FROM-VALUE DTSBX427 +00669 DISPLAY 'MTAD-CITY B ' MTAD-CITY CL**7 +00670 MOVE X110-CITY TO L331-TO-VALUE CL**6 +00671 MOVE X110-CITY TO MTAD-CITY CL**6 +00672 DISPLAY 'MTAD-CITY A ' X110-CITY CL**7 +00673 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00674 MOVE 1 TO UPD-MTAD-IND CL**5 +00675 ADD +1 TO WRK-MLOG-REC-CNT. DTSBX427 +00676 DTSBX427 +00677 MOVE X110-STATE TO L009-DATA CL*69 +00678 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL*69 +00679 MOVE L009-DATA TO X110-STATE CL*69 +00680 IF X110-STATE = MTAD-ST CL**4 +00681 NEXT SENTENCE DTSBX427 +00682 ELSE DTSBX427 +00683 MOVE 'MTAD-ST' TO L331-FIELD-NAME DTSBX427 +00684 MOVE MTAD-ST TO L331-FROM-VALUE DTSBX427 +00685 DISPLAY 'MTAD-STATE B ' MTAD-ST CL**7 +00686 MOVE X110-STATE TO L331-TO-VALUE CL**4 +00687 MOVE X110-STATE TO MTAD-ST CL**5 +00688 DISPLAY 'MTAD-STATE A ' X110-STATE CL**7 +00689 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00690 MOVE 1 TO UPD-MTAD-IND CL**5 +00691 ADD +1 TO WRK-MLOG-REC-CNT. DTSBX427 +00692 DTSBX427 +00693 IF WRK-ZIP = MTAD-ZIP CL**4 +00694 NEXT SENTENCE DTSBX427 +00695 ELSE DTSBX427 +00696 MOVE 'MTAD-ZIP' TO L331-FIELD-NAME DTSBX427 +00697 MOVE MTAD-ZIP TO L331-FROM-VALUE DTSBX427 +00698 DISPLAY 'MTAD-ZIP B ' MTAD-ZIP CL**7 +00699 MOVE WRK-ZIP TO L331-TO-VALUE CL**4 +00700 MOVE WRK-ZIP TO MTAD-ZIP CL**6 +00701 DISPLAY 'MTAD-ZIP A ' MTAD-ZIP CL*38 +00702 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00703 MOVE 1 TO UPD-MTAD-IND CL**6 +00704 ADD +1 TO WRK-MLOG-REC-CNT. DTSBX427 +00705 DTSBX427 +00706 P1100-CHECK-EMAIL. CL*91 +00707 IF X110-EMAIL = SPACES CL*91 +00708 GO TO P1100-CHECK-PHONE. CL*91 +00709 CL*91 +00710 IF X110-EMAIL = MTAD-EMAIL-ADDRESS CL*91 +00711 NEXT SENTENCE CL**4 +00712 ELSE CL**4 +00713 MOVE 'MTAD-EMAIL ADDR' TO L331-FIELD-NAME CL**4 +00714 MOVE MTAD-EMAIL-ADDRESS TO L331-FROM-VALUE CL**4 +00715 DISPLAY 'MTAD-EMAIL B ' MTAD-EMAIL-ADDRESS CL**7 +00716 MOVE X110-EMAIL TO L331-TO-VALUE CL**4 +00717 MOVE X110-EMAIL TO MTAD-EMAIL-ADDRESS CL**5 +00718 DISPLAY 'MTAD-EMAIL A ' X110-EMAIL CL**7 +00719 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*14 +00720 MOVE 1 TO UPD-MTAD-IND CL**5 +00721 ADD +1 TO WRK-MLOG-REC-CNT. CL**4 +00722 CL*38 +00723 P1100-CHECK-PHONE. CL*91 +00724 IF X110-PHONE = SPACES CL*91 +00725 GO TO P1100-CHECK-MTAD. CL*91 +00726 CL*91 +00727 IF X110-PHONE = MTAD-VOICE-1 CL*90 +00728 NEXT SENTENCE CL*90 +00729 ELSE CL*90 +00730 MOVE 'MTAD-PHONE ' TO L331-FIELD-NAME CL*90 +00731 MOVE MTAD-VOICE-1 TO L331-FROM-VALUE CL*90 +00732 DISPLAY 'MTAD-PHONE B ' MTAD-VOICE-1 CL*90 +00733 MOVE X110-PHONE TO L331-TO-VALUE CL*90 +00734 MOVE X110-PHONE TO MTAD-VOICE-1 CL*90 +00735 DISPLAY 'MTAD-PHONE A ' X110-PHONE CL*90 +00736 PERFORM S331-WRITE-MLOG THRU S331-EXIT CL*90 +00737 MOVE 1 TO UPD-MTAD-IND CL*90 +00738 ADD +1 TO WRK-MLOG-REC-CNT. CL*90 +00739 CL*90 +00740 P1100-CHECK-MTAD. CL*91 +00741 IF UPD-MTAD-IND = 0 CL*38 +00742 GO TO P1100-EXIT. CL*39 +00743 CL*38 +00744 IF X110-ADDR-TYPE-MAIL-88 CL*38 +00745 MOVE +1 TO WRK-MTAD-MAIL-UPD-CNT CL*51 +00746 DISPLAY '<<<< ---X427 DUTAS MAILING ADDR ' WRK-EMP-NO CL*55 +00747 STRING CL*38 +00748 'X427 DUTAS MAILING ADDRESS ' CL*38 +00749 X110-EMP-NO CL*38 +00750 DELIMITED BY SIZE CL*38 +00751 INTO R140-MESSAGE CL*38 +00752 END-STRING CL*38 +00753 MOVE WRK-EMP-NO TO R140-EMP-NO CL*44 +00754 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*38 +00755 ADD +1 TO WRK-MTAD-UPD-CNT CL*46 +00756 ELSE CL*38 +00757 DISPLAY '<<<< ---X427 DUTAS DC WORK ADDR ' WRK-EMP-NO CL*55 +00758 STRING CL*38 +00759 'X427 DUTAS DC ADDRESS ' CL*38 +00760 X110-EMP-NO CL*38 +00761 DELIMITED BY SIZE CL*38 +00762 INTO R140-MESSAGE CL*38 +00763 END-STRING CL*38 +00764 MOVE WRK-EMP-NO TO R140-EMP-NO CL*44 +00765 ADD +1 TO WRK-MDCD-UPD-CNT CL*46 +00766 PERFORM S946-WRITE-R140 THRU S946-EXIT. CL*38 +00767 CL**4 +00768 P1100-EXIT. DTSBX427 +00769 EXIT. DTSBX427 +00770 DTSBX427 +00771 P2000-EMP-NO-BREAK. DTSBX427 +00772 CL*33 +00773 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBX427 +00774 DTSBX427 +00775 DISPLAY 'OLDE ' WRK-EMP-NO ' NEWE ' X110-EMP-NO. CL*65 +00776 MOVE WRK-EMP-NO TO MSKL-EMP-NO. CL*65 +00777 DTSBX427 +00778 SET MSKL-PRF-88 TO TRUE. DTSBX427 +00779 DTSBX427 +00780 PERFORM S910-READ THRU S910-EXIT. DTSBX427 +00781 DTSBX427 +00782 IF L910-NO-REC-88 DTSBX427 +00783 MOVE SPACES TO R140-MESSAGE CL*18 +00784 MOVE X110-EMP-NO TO R140-EMP-NO CL*32 +00785 STRING CL*18 +00786 'X427 NO EMPLOYER PROFILE FOUND IN DUTAS >>>> ' CL*37 +00787 X110-EMP-NO CL*37 +00788 DELIMITED BY SIZE CL*18 +00789 INTO R140-MESSAGE CL*18 +00790 END-STRING CL*18 +00791 PERFORM S946-WRITE-R140 THRU S946-EXIT CL*18 +00792 ADD +1 TO WRK-MPRF-NOT-CNT CL*18 +00793 GO TO P2000-EXIT. CL*31 +00794 CL*18 +00795 MOVE MSKL-REC TO MPRF-REC. DTSBX427 +00796 MOVE 0 TO WRK-MPRF-MAIL-UPD-CNT. CL*55 +00797 CL*54 +00798 DISPLAY ' MPRF: ' WRK-EMP-NO CL*65 +00799 ' MUPD: ' WRK-MTAD-MAIL-UPD-CNT CL*56 +00800 ' MADD: ' WRK-MTAD-MAIL-ADD-CNT CL*55 +00801 ' MIND: ' MPRF-RETURN-MAIL-IND. CL*55 +00802 CL*51 +00803 * IF MPRF-RETURN-MAIL-IND = 'N' CL*74 +00804 * GO TO P2000-EMP-CONTINUE. CL*74 +00805 CL*70 +00806 IF WRK-MTAD-MAIL-UPD-CNT = 1 OR CL*70 +00807 WRK-MTAD-MAIL-ADD-CNT = 1 CL*59 +00808 ADD +100 TO WRK-ABSTIME CL*51 +00809 PERFORM S005-FROM-SYS THRU S005-EXIT CL*51 +00810 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME CL*51 +00811 MOVE X110-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL*51 +00812 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*51 +00813 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME CL*51 +00814 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*51 +00815 MOVE 'WEBESSP ' TO L331-OP-ID CL*51 +00816 MOVE 'RETURN MAIL IND' TO L331-FIELD-NAME CL*51 +00817 MOVE MPRF-RETURN-MAIL-IND TO L331-FROM-VALUE CL*51 +00818 MOVE 'N' TO L331-TO-VALUE CL*52 +00819 MOVE 'N' TO MPRF-RETURN-MAIL-IND CL*52 +00820 MOVE +1 TO WRK-MPRF-MAIL-UPD-CNT CL*51 +00821 DISPLAY ' RETURN MAIL UPDATED: ' WRK-EMP-NO CL*52 +00822 PERFORM S331-WRITE-MLOG THRU S331-EXIT. CL*51 +00823 CL*51 +00824 IF MTAD-UC223-IND = 'N' CL*70 +00825 ADD +100 TO WRK-ABSTIME CL*70 +00826 PERFORM S005-FROM-SYS THRU S005-EXIT CL*70 +00827 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME CL*70 +00828 MOVE X110-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL*70 +00829 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*70 +00830 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME CL*70 +00831 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*70 +00832 MOVE 'WEBESSP ' TO L331-OP-ID CL*70 +00833 MOVE 'DEBIT MEMO IND ' TO L331-FIELD-NAME CL*70 +00834 MOVE MTAD-UC223-IND TO L331-FROM-VALUE CL*70 +00835 MOVE 'Y' TO L331-TO-VALUE CL*70 +00836 MOVE 'Y' TO MTAD-UC223-IND CL*71 +00837 PERFORM S331-WRITE-MLOG THRU S331-EXIT. CL*70 +00838 CL*70 +00839 IF MTAD-MISSING-RPT-LETTERS-IND = 'N' CL*71 +00840 ADD +100 TO WRK-ABSTIME CL*70 +00841 PERFORM S005-FROM-SYS THRU S005-EXIT CL*70 +00842 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME CL*70 +00843 MOVE X110-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL*70 +00844 MOVE MHDR-CURR-RUN-DATE TO L331-CURR-RUN-DATE CL*70 +00845 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME CL*70 +00846 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL*70 +00847 MOVE 'WEBESSP ' TO L331-OP-ID CL*70 +00848 MOVE 'MISS RPT LETTER' TO L331-FIELD-NAME CL*70 +00849 MOVE MTAD-MISSING-RPT-LETTERS-IND TO L331-FROM-VALUE CL*73 +00850 MOVE 'Y' TO L331-TO-VALUE CL*70 +00851 MOVE 'Y' TO MTAD-MISSING-RPT-LETTERS-IND CL*71 +00852 PERFORM S331-WRITE-MLOG THRU S331-EXIT. CL*70 +00853 CL*70 +00854 DTSBX427 +00855 P2000-EMP-CONTINUE. CL*70 +00856 MOVE MPRF-EMP-NO TO L203-EMP-NO. DTSBX427 +00857 DTSBX427 +00858 MOVE MPRF-TAX-REC-ADDR-EXISTS-IND DTSBX427 +00859 TO L203-TAX-REC-ADDR-EXISTS-IND. DTSBX427 +00860 DTSBX427 +00861 PERFORM S203-FIELD-ZIP-CODE THRU S203-EXIT. DTSBX427 +00862 DTSBX427 +00863 * IF L203-OK-88 CL*56 +00864 * NEXT SENTENCE CL*56 +00865 * ELSE CL*56 +00866 * GO TO P2000-EXIT. CL*56 +00867 DTSBX427 +00868 DISPLAY 'Z203: ' L203-FLD-ZIP ' ' L203-FLD-STATE CL*61 +00869 ' MPRF: ' MPRF-FLD-ZIP ' ' MPRF-FLD-ST CL*60 +00870 ' MAIL: ' WRK-MPRF-MAIL-UPD-CNT. CL*60 +00871 IF ((L203-FLD-ZIP = MPRF-FLD-ZIP) AND CL*60 +00872 (L203-FLD-STATE = MPRF-FLD-ST) AND CL*56 +00873 (WRK-MPRF-MAIL-UPD-CNT = 0)) CL*60 +00874 GO TO P2000-EXIT CL*56 +00875 ELSE CL*56 +00876 MOVE L203-FLD-ZIP TO MPRF-FLD-ZIP CL*56 +00877 MOVE L203-FLD-STATE TO MPRF-FLD-ST. DTSBX427 +00878 DTSBX427 +00879 MOVE MHDR-CURR-RUN-DATE TO MPRF-CHNG-DATE. DTSBX427 +00880 DTSBX427 +00881 MOVE MPRF-REC TO MSKL-REC. DTSBX427 +00882 DTSBX427 +00883 PERFORM S910-REWRITE THRU S910-EXIT. DTSBX427 +00884 ADD +1 TO WRK-MPRF-UPD-CNT. CL*18 +00885 DTSBX427 +00886 P2000-EXIT. DTSBX427 +00887 EXIT. DTSBX427 +00888 DTSBX427 +00889 CL**3 +00890 T0000-TERMINATE. DTSBX427 +00891 DISPLAY DTSBX427 +00892 '*** DTSBX427 TERMINATION STATISTICS'. CL**2 +00893 DTSBX427 +00894 DISPLAY ' '. DTSBX427 +00895 DTSBX427 +00896 DISPLAY DTSBX427 +00897 '*** NUMBER OF X110 FILE RECORDS READ : ' CL**5 +00898 WRK-X110-REC-CNT. CL**5 +00899 MOVE WRK-X110-REC-CNT TO WS-X110-PEN-CNT. CL*87 +00900 DTSBX427 +00901 DISPLAY ' '. DTSBX427 +00902 DTSBX427 +00903 DISPLAY DTSBX427 +00904 '*** NUMBER OF PROFILE RECORDS NOT FOUND : ' CL*40 +00905 WRK-MPRF-NOT-CNT. CL*18 +00906 DTSBX427 +00907 DISPLAY CL*18 +00908 '*** NUMBER OF PROFILE RECORDS UPDATED : ' CL*40 +00909 WRK-MPRF-UPD-CNT. CL*18 +00910 CL*18 +00911 DISPLAY DTSBX427 +00912 '*** NUMBER OF MAIL RECORDS ADDED : ' CL*18 +00913 WRK-MTAD-ADD-CNT. CL*18 +00914 DTSBX427 +00915 DISPLAY CL*20 +00916 '*** NUMBER OF MAIL RECORDS UPDATED : ' CL*18 +00917 WRK-MTAD-UPD-CNT. CL*18 +00918 CL*18 +00919 DISPLAY CL*18 +00920 '*** NUMBER OF DC RECORDS ADDED : ' CL*18 +00921 WRK-MDCD-ADD-CNT. CL*18 +00922 CL*18 +00923 DISPLAY CL*20 +00924 '*** NUMBER OF DC RECORDS UPDATED : ' CL*18 +00925 WRK-MDCD-UPD-CNT. CL*18 +00926 CL*18 +00927 DISPLAY DTSBX427 +00928 '*** NUMBER OF MLOG RECORDS WRITTEN : ' DTSBX427 +00929 WRK-MLOG-REC-CNT. DTSBX427 +00930 DTSBX427 +00931 DTSBX427 +00932 PERFORM S910-CLOSE THRU S910-EXIT. DTSBX427 +00933 DTSBX427 +00934 PERFORM S921-CLOSE THRU S921-EXIT. DTSBX427 +00935 PERFORM S927C-CLOSE THRU S927C-EXIT. CL*20 +00936 DTSBX427 +00937 WRITE REPT-PAID-REC FROM FOOTING-LINE-51 AFTER ADVANCING 3. CL*87 +00938 WRITE REPT-PAID-REC FROM FOOTING-LINE-6 AFTER ADVANCING 2. CL*87 +00939 WRITE REPT-PAID-REC FROM FOOTING-LINE-7 AFTER ADVANCING 2. CL*87 +00940 CLOSE ESSP-X110-FILE REPT-PAID-FILE REPT-PEND-FILE. CL*75 +00941 T0000-EXIT. DTSBX427 +00942 EXIT. DTSBX427 +00943 EJECT DTSBX427 +00944 S005-FROM-SYS. DTSBX427 +00945 SET L005-FROM-SYS TO TRUE. DTSBX427 +00946 GO TO S005-ABSTIME. DTSBX427 +00947 DTSBX427 +00948 S005-FROM-ABSTIME. DTSBX427 +00949 SET L005-FROM-ABSTIME TO TRUE. DTSBX427 +00950 GO TO S005-ABSTIME. DTSBX427 +00951 DTSBX427 +00952 S005-ABSTIME. DTSBX427 +00953 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX427 +00954 S005-EXIT. DTSBX427 +00955 EXIT. DTSBX427 +00956 SKIP3 DTSBX427 +00957 S203-FIELD-ZIP-CODE. DTSBX427 +00958 CALL 'DTSBU203' USING L203-LINK-AREA. DTSBX427 +00959 S203-EXIT. DTSBX427 +00960 EXIT. DTSBX427 +00961 SKIP3 DTSBX427 +00962 S009-CONVERT-TO-CAPS. CL*47 +00963 CALL 'DTSBU009' USING L009-LINK-AREA. CL*47 +00964 S009-EXIT. CL*47 +00965 EXIT. CL*47 +00966 SKIP3 CL*47 +00967 S331-WRITE-MLOG. DTSBX427 +00968 CALL 'DTSBU331' USING L331-LINK-AREA. DTSBX427 +00969 S331-EXIT. DTSBX427 +00970 EXIT. DTSBX427 +00971 SKIP3 DTSBX427 +00972 S910-OPEN-UPDATE. DTSBX427 +00973 SET L910-OPEN-UPDATE-88 TO TRUE. DTSBX427 +00974 GO TO S910-MSTR-CALL. DTSBX427 +00975 DTSBX427 +00976 S910-READ. DTSBX427 +00977 SET L910-READ-88 TO TRUE. DTSBX427 +00978 GO TO S910-MSTR-CALL. DTSBX427 +00979 DTSBX427 +00980 S910-START-BROWSE. DTSBX427 +00981 SET L910-START-BROWSE-88 TO TRUE. DTSBX427 +00982 GO TO S910-MSTR-CALL. DTSBX427 +00983 DTSBX427 +00984 S910-READ-NEXT. DTSBX427 +00985 SET L910-READ-NEXT-88 TO TRUE. DTSBX427 +00986 GO TO S910-MSTR-CALL. DTSBX427 +00987 DTSBX427 +00988 *S910-COUNT. DTSBX427 +00989 *****SET L910-COUNT-88 TO TRUE. DTSBX427 +00990 *****GO TO S910-MSTR-CALL. DTSBX427 +00991 DTSBX427 +00992 S910-REWRITE. DTSBX427 +00993 SET L910-REWRITE-88 TO TRUE. DTSBX427 +00994 GO TO S910-MSTR-CALL. DTSBX427 +00995 DTSBX427 +00996 S910-CLOSE. DTSBX427 +00997 SET L910-CLOSE-88 TO TRUE. DTSBX427 +00998 GO TO S910-MSTR-CALL. DTSBX427 +00999 DTSBX427 +01000 S910-MSTR-CALL. DTSBX427 +01001 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX427 +01002 MSKL-REC. DTSBX427 +01003 S910-EXIT. DTSBX427 +01004 EXIT. DTSBX427 +01005 SKIP3 DTSBX427 +01006 S921-OPEN-UPDATE. DTSBX427 +01007 SET L921-OPEN-UPDATE-88 TO TRUE. DTSBX427 +01008 GO TO S921-AIX-IO. DTSBX427 +01009 DTSBX427 +01010 S921-CLOSE. DTSBX427 +01011 SET L921-CLOSE-88 TO TRUE. DTSBX427 +01012 GO TO S921-AIX-IO. DTSBX427 +01013 DTSBX427 +01014 S921-AIX-IO. DTSBX427 +01015 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX427 +01016 ISKL-REC. DTSBX427 +01017 S921-EXIT. DTSBX427 +01018 EXIT. DTSBX427 +01019 SKIP3 DTSBX427 +01020 S927A-OPEN-UPDATE. CL*19 +01021 SET L927-OPEN-UPDATE-88 TO TRUE. CL*19 +01022 PERFORM S927Z-IO THRU S927Z-EXIT. CL*19 +01023 S927A-EXIT. CL*19 +01024 EXIT. CL*19 +01025 CL*19 +01026 S927B-WRITE. CL*12 +01027 SET L927-WRITE-88 TO TRUE. CL*12 +01028 PERFORM S927Z-IO THRU S927Z-EXIT. CL*12 +01029 CL*12 +01030 S927B-EXIT. CL*12 +01031 EXIT. CL*12 +01032 CL*12 +01033 S927C-CLOSE. CL*16 +01034 SET L927-CLOSE-88 TO TRUE. CL*16 +01035 PERFORM S927Z-IO THRU S927Z-EXIT. CL*16 +01036 CL*16 +01037 S927C-EXIT. CL*16 +01038 EXIT. CL*16 +01039 CL*12 +01040 S927Z-IO. CL*12 +01041 CALL 'DTSBU927' USING L927-LINK-AREA CL*12 +01042 TSKL-REC. CL*12 +01043 S927Z-EXIT. CL*12 +01044 EXIT. CL*12 +01045 S946-WRITE-R140. CL*18 +01046 CL*18 +01047 CALL 'DTSBU946' USING R140-REC. CL*18 +01048 CL*18 +01049 S946-EXIT. CL*18 +01050 EXIT. CL*18 +01051 S999-ABEND. DTSBX427 +01052 DISPLAY '*** DTSBX427 ABENDING. ' CL**2 +01053 ABEND-MSG. DTSBX427 +01054 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX427 +01055 S999-EXIT. DTSBX427 +01056 EXIT. DTSBX427 +01057 EJECT DTSBX427 diff --git a/Procs/DTSBX442 b/Procs/DTSBX442 index b82da75..4ffa432 100644 --- a/Procs/DTSBX442 +++ b/Procs/DTSBX442 @@ -10,7 +10,7 @@ //** CREATE A FILE WITH X163 AND X164 RECORDS ONLY 00001700 //** 00001700 //*********************************************************** 00001700 -//STEP4421 EXEC PGM=SORT,PARM='VLTEST=0', +//STEP4421 EXEC PGM=SORT, // COND=(0,NE) //SYSOUT DD SYSOUT=* //* @@ -30,7 +30,7 @@ //** SORT BY RECORD TYPE/EMPLOYER/QUARTER 00001700 //** 00001700 //*********************************************************** 00001700 -//STEP4422 EXEC PGM=SORT,PARM='VLTEST=0', +//STEP4422 EXEC PGM=SORT, // COND=(0,LT) //SYSOUT DD SYSOUT=* //* diff --git a/Procs/DTSD0A b/Procs/DTSD0A index bb206f5..de2b406 100644 --- a/Procs/DTSD0A +++ b/Procs/DTSD0A @@ -6,36 +6,43 @@ //* FOR REPORT TO GO INTO TRMS CHANGE CLASS TO O 00032000 //***** 00033000 //**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00040000 -//DOESLBL1 EXEC PGM=IEBDG, 00050000 -// COND=(0,LT) 00060000 -//SYSPRINT DD SYSOUT=* 00070000 -//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080000 -// UNIT=SYSDA, 00090000 -// SPACE=(TRK,1), 00100000 -// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110000 -//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120000 -// DISP=SHR 00130000 -//**** /* POPULATE THE LABELS WORK FILE 00140000 +//*DOESLBL1 EXEC PGM=IEBDG, 00050000 +//* COND=(0,LT) 00060000 +//*SYSPRINT DD SYSOUT=* 00070000 +//*LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080000 +//* UNIT=SYSDA, 00090000 +//* SPACE=(TRK,1), 00100000 +//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110000 +//*SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120000 +//* DISP=SHR 00130000 +//**** /* POPULATE THE LABELS WORK FILE 00140000 +//DOESLBL1 EXEC PGM=GENT350, 43243434 +// COND=(4,LT) 43243434 +//SYSOUT DD SYSOUT=* 43243434 +//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 43243434 +// UNIT=SYSDA, 43243434 +// SPACE=(TRK,1), 43243434 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 43243434 //DOESLBL2 EXEC PGM=IDCAMS, 00150000 -// COND=(0,LT) 00160000 +// COND=(0,LT) 00160000 //SYSPRINT DD SYSOUT=* 00170000 //FILEIN DD DSN=&&TMP901, 00180000 // DISP=(OLD,DELETE,DELETE), 00190000 // UNIT=SYSDA 00200000 //DOESVRO1 DD DSN=&&LBL901, 00210000 // DISP=(NEW,PASS,DELETE), 00220000 -// UNIT=SYSDA, 00230000 +// UNIT=SYSDA, 00230000 // SPACE=(8192,(1000,1000),RLSE), 00240000 -// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250000 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00260000 // DISP=SHR 00270000 //** 00280000 //STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 00290000 // COND=(0,LT) 00300000 -//SYSOUT DD SYSOUT=* 00310000 -//SYSABOUT DD SYSOUT=* 00320000 -//SYSUDUMP DD SYSOUT=* 00330000 -//SYSPRINT DD SYSOUT=* 00340000 +//SYSOUT DD SYSOUT=I 00310000 +//SYSABOUT DD SYSOUT=I 00320000 +//SYSUDUMP DD SYSOUT=I 00330000 +//SYSPRINT DD SYSOUT=I 00340000 //** 00350000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00360000 //** 00370000 @@ -404,15 +411,15 @@ // HOLD=&PRTHOLD., 02621000 // DEST=&LDEST. 02630000 //** 02640000 -//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650000 -// COND=(0,LT), 02660000 -// REGION=4096K 02670000 -//DOESVRI1 DD DSN=&&LBL901, 02680000 -// DISP=(OLD,DELETE,DELETE) 02690000 -//SYSOUT DD SYSOUT=* 02700000 -//SYSABOUT DD SYSOUT=* 02710000 -//SYSABEND DD SYSOUT=* 02720000 -//CAIMRPTS DD SYSOUT=* 02730000 -//DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740000 -// DEST=U@PRT155 02750000 +//*DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650000 +//* COND=(0,LT), 02660000 +//* REGION=4096K 02670000 +//*DOESVRI1 DD DSN=&&LBL901, 02680000 +//* DISP=(OLD,DELETE,DELETE) 02690000 +//*SYSOUT DD SYSOUT=* 02700000 +//*SYSABOUT DD SYSOUT=* 02710000 +//*SYSABEND DD SYSOUT=* 02720000 +//*CAIMRPTS DD SYSOUT=* 02730000 +//*DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740000 +//* DEST=U@PRT155 02750000 //** 02760000 diff --git a/Procs/DTSDUPDT b/Procs/DTSDUPDT index 75a6e93..987e654 100644 --- a/Procs/DTSDUPDT +++ b/Procs/DTSDUPDT @@ -154,7 +154,7 @@ // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00929600 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00929700 //****************************************************************** 00929800 -//STEP0480 EXEC PGM=SORT,PARM='VLTEST=0', SORT BTC RECORDS 00930000 +//STEP0480 EXEC PGM=SORT, SORT BTC RECORDS 00930000 // COND=(0,LT) 00940000 //SYSOUT DD SYSOUT=* 00960000 //SORTIN DD DSN=DOESTAX.&LVLNODE..BX415.BTC,DISP=SHR 00970000 @@ -273,7 +273,7 @@ // SPACE=(CYL,(10,5)), 01798600 // DCB=(RECFM=FB,LRECL=134,BLKSIZE=13400) 01798700 //** WAGE EXPORT TO SERVER 01798800 -//DTSFW153 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153, 01798900 +//DTSFW153 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.W153, 01798900 //* DISP=(NEW,CATLG,CATLG), 01799000 // DISP=(OLD,KEEP,KEEP), 01799100 // SPACE=(CYL,(10,5)), 01799200 @@ -341,7 +341,7 @@ // AMP=('BUFNI=5,BUFND=10') 02079500 //* 02079600 //****************************************************************** 02079700 -//STEP0910 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 02080000 +//STEP0910 EXEC PGM=SORT, SORT REPORT RECORDS 02080000 // COND=(0,LT) 02090000 //SYSOUT DD SYSOUT=* 02110000 //SORTIN DD DSN=DOESTAX.&LVLNODE..BD110.RPT(&S0100.),DISP=SHR 02120000 @@ -405,10 +405,10 @@ //CAIMRPTS DD SYSOUT=* 02264118 //INDD01 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,DISP=SHR 02264218 // DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,DISP=SHR 02264318 -// DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264418 +// DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.W153,DISP=SHR 02264418 //OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264518 //**** 02264618 -//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264718 +//*SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264718 //**** 02264818 //** 02264918 //DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02265033 diff --git a/Procs/DTSWGZ07 b/Procs/DTSWGZ07 index 296a019..da51f99 100644 --- a/Procs/DTSWGZ07 +++ b/Procs/DTSWGZ07 @@ -3,7 +3,7 @@ //* SORT DUTAS W4 WAGE FILE 00010200 //* 11/10/11 ZL1 00010300 //******************************************************************** 00010400 -//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0' SORT REPORT RECORDS 00011000 +//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00011000 //SYSOUT DD SYSOUT=(*) 00012000 //SYSPRINT DD SYSOUT=(*) 00013000 //SORTIN DD DSN=DOESTAX.&LVLNODE..DTS.W4FILE,DISP=SHR 00014000