DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
975
Batch/DTSBD142.cob
Normal file
975
Batch/DTSBD142.cob
Normal file
@ -0,0 +1,975 @@
|
||||
00001 IDENTIFICATION DIVISION. 03/12/15
|
||||
00002 PROGRAM-ID. DTSBD142. DTSBD142
|
||||
00003 AUTHOR. NORTHROP GRUMMAN. LV009
|
||||
00004 DATE-WRITTEN. MAY 2005. DTSBD142
|
||||
00005 DATE-COMPILED. DTSBD142
|
||||
00006 SKIP3 DTSBD142
|
||||
00007 ***** DTSBD142
|
||||
00008 * DTSBD142
|
||||
00009 * FUNCTION: BUILD MPRF AND MERA DATABASE RECORDS, AND DTSBD142
|
||||
00010 * T001 AND T031 TRANSACTIONS, BASED ON T002 DTSBD142
|
||||
00011 * TRANSACTIONS INPUT FROM WEB REGISTRATION DTSBD142
|
||||
00012 * AND OTHER BATCH PROCESSES. DTSBD142
|
||||
00013 * DTSBD142
|
||||
00014 * MODIFICATION LOG: DTSBD142
|
||||
00015 * DTSBD142
|
||||
00016 * 06/01/2005 INITIAL DEVELOPMENT DTSBD142
|
||||
00017 * WORK ORDER: PROGRAMMER: GD DTSBD142
|
||||
00018 * DTSBD142
|
||||
00019 * 01/29/2010 MODIFIED P4000, CORRECTING SETTING OF START DTSBD142
|
||||
00020 * QUARTER FOR MFSC: SHOULD ALWAYS BE THE DTSBD142
|
||||
00021 * FIRST QUARTER. DTSBD142
|
||||
00022 * WORK ORDER: PROGRAMMER: GD DTSBD142
|
||||
00023 * 03/02/2015 MODIFIED TO MOVE THE NAICS CODE FROM ESSP TO DTSBD142
|
||||
00024 * MPRF RECORD. DTSBD142
|
||||
00025 * WORK ORDER: PROGRAMMER: ZL1 DTSBD142
|
||||
00026 * DTSBD142
|
||||
00027 * 99/99/9999 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD142
|
||||
00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD142
|
||||
00029 * WORK ORDER: PROGRAMMER: XXX DTSBD142
|
||||
00030 * DTSBD142
|
||||
00031 * DESCRIPTION: DTSBD142
|
||||
00032 * DTSBD142
|
||||
00033 * INITIATION: DTSBD142
|
||||
00034 * NONE DTSBD142
|
||||
00035 * DTSBD142
|
||||
00036 * INPUT: DTSBD142
|
||||
00037 * DTSIT002 EMPLOYER UPDATE TRANSACTIONS DTSBD142
|
||||
00038 * DTSBD142
|
||||
00039 * DTSBD142
|
||||
00040 * PROCESSING: DTSBD142
|
||||
00041 * DTSBD142
|
||||
00042 * DTSBD142
|
||||
00043 * DTSBD142
|
||||
00044 * DTSBD142
|
||||
00045 * DTSBD142
|
||||
00046 * DTSBD142
|
||||
00047 * DTSBD142
|
||||
00048 * DTSBD142
|
||||
00049 * DTSBD142
|
||||
00050 * DTSBD142
|
||||
00051 * DTSBD142
|
||||
00052 * DTSBD142
|
||||
00053 * TERMINATION: DTSBD142
|
||||
00054 * OUTPUT STATISTICAL RECORDS COUNT. DTSBD142
|
||||
00055 * DTSBD142
|
||||
00056 * RECORDS READ: DTSBD142
|
||||
00057 * MASTER: DTSBD142
|
||||
00058 * DTSBD142
|
||||
00059 * DTSBD142
|
||||
00060 * ALTERNATE INDEX: DTSBD142
|
||||
00061 * NONE. DTSBD142
|
||||
00062 * DTSBD142
|
||||
00063 * REFERENCE: DTSBD142
|
||||
00064 * NONE. DTSBD142
|
||||
00065 * DTSBD142
|
||||
00066 * RECORDS UPDATED: DTSBD142
|
||||
00067 * MPRF DTSBD142
|
||||
00068 * MERA DTSBD142
|
||||
00069 * DTSBD142
|
||||
00070 * REPORT RECORDS WRITTEN: DTSBD142
|
||||
00071 * R907 ERROR REPORT RECORDS. DTSBD142
|
||||
00072 * DTSBD142
|
||||
00073 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBD142
|
||||
00074 * T001 RECORDS DTSBD142
|
||||
00075 * T031 RECORDS DTSBD142
|
||||
00076 * DTSBD142
|
||||
00077 * DTSBD142
|
||||
00078 * MODULES CALLED: DTSBD142
|
||||
00079 * DTSBU001 DATE CONVERSION/EDIT. DTSBD142
|
||||
00080 * DTSBU004 QUARERLY SUMMARY REPORT REC. DTSBD142
|
||||
00081 * DTSBU910 VSAM MASTER FILES I/O. DTSBD142
|
||||
00082 * DTSBU927 VARIABLE LENGTH RECORDS BTC OUTPUT. DTSBD142
|
||||
00083 * DTSBU941 VARIABLE LENGTH RECORDS INPUT 1. DTSBD142
|
||||
00084 * DTSBU947 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 2. DTSBD142
|
||||
00085 * DTSBU983 BATCH WAGE TRANSACTION FILE INPUT/OUTPUT. DTSBD142
|
||||
00086 * DTSBD142
|
||||
00087 * DTSBD142
|
||||
00088 ***** DTSBD142
|
||||
00089 SKIP3 DTSBD142
|
||||
00090 ENVIRONMENT DIVISION. DTSBD142
|
||||
00091 DTSBD142
|
||||
00092 DATA DIVISION. DTSBD142
|
||||
00093 DTSBD142
|
||||
00094 WORKING-STORAGE SECTION. DTSBD142
|
||||
000945 77 PAN-VALET PICTURE X(24) VALUE '009DTSBD142 03/12/15'. DTSBD142
|
||||
00095 77 PAN-VALET PICTURE X(24) VALUE '003DTSBD142 03/04/15'. DTSBD142
|
||||
00096 77 PAN-VALET PICTURE X(24) VALUE '007DTSBD142 02/12/14'. DTSBD142
|
||||
00097 77 PAN-VALET PICTURE X(24) VALUE '008DTSBD142 10/09/13'. DTSBD142
|
||||
00098 77 PAN-VALET PICTURE X(24) VALUE '005DTSBD142 02/24/10'. DTSBD142
|
||||
00099 DTSBD142
|
||||
00100 01 WRK-AREA. DTSBD142
|
||||
00101 05 W-ABEND-CD PIC S9(04) COMP VALUE +142.DTSBD142
|
||||
00102 05 W-MOD-NAME PIC X(08) VALUE 'DTSBD142'.DTSBD142
|
||||
00103 05 W-ABEND-MSG PIC X(60). DTSBD142
|
||||
00104 DTSBD142
|
||||
00105 05 W-TRACE-IND PIC X(01) VALUE SPACES. DTSBD142
|
||||
00106 DTSBD142
|
||||
00107 05 W-ERROR-IND PIC X(01). DTSBD142
|
||||
00108 88 W-ERROR-YES-88 VALUE 'Y'. DTSBD142
|
||||
00109 88 W-ERROR-NO-88 VALUE 'N'. DTSBD142
|
||||
00110 DTSBD142
|
||||
00111 05 W-CURR-RUN-DATE PIC S9(09) COMP-3. DTSBD142
|
||||
00112 05 W-SYS-TIME PIC X(06) VALUE SPACES. DTSBD142
|
||||
00113 05 W-SYS-DATE PIC X(08) VALUE SPACES. DTSBD142
|
||||
00114 05 W-SYS-ABSTIME PIC S9(15) COMP-3. DTSBD142
|
||||
00115 05 W-FIRST-LIAB-YRQ PIC S9(05) COMP-3. DTSBD142
|
||||
00116 05 W-LAST-LIAB-YRQ PIC S9(05) COMP-3. DTSBD142
|
||||
00117 05 W-LIAB-DATE PIC S9(09) COMP-3. DTSBD142
|
||||
00118 05 W-ALL-NINES-QTR PIC S9(05) COMP-3 DTSBD142
|
||||
00119 VALUE +99999. DTSBD142
|
||||
00120 05 W-ALL-NINES-DATE PIC S9(09) COMP-3 DTSBD142
|
||||
00121 VALUE +999999999. DTSBD142
|
||||
00122 05 W-FOLLOWUP-DT PIC S9(09) COMP-3. DTSBD142
|
||||
00123 05 W-RUN-DATE-DISP PIC X(10). DTSBD142
|
||||
00124 DTSBD142
|
||||
00125 05 W-T002-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142
|
||||
00126 05 W-MPRF-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142
|
||||
00127 05 W-MERA-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142
|
||||
00128 05 W-T001-LIAB-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142
|
||||
00129 05 W-T001-FILE-CLERK-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142
|
||||
00130 05 W-T031-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142
|
||||
00131 05 W-R907-CNT PIC S9(07) COMP-3 VALUE +0. DTSBD142
|
||||
00132 DTSBD142
|
||||
00133 05 MSG1-AREA. DTSBD142
|
||||
00134 10 MSG1-ID PIC X(03) VALUE '101'. DTSBD142
|
||||
00135 10 MSG1-TEXT. DTSBD142
|
||||
00136 15 FILLER PIC X(30) DTSBD142
|
||||
00137 VALUE 'TOTAL WAGES DO NOT = REPORTED'. DTSBD142
|
||||
00138 15 FILLER PIC X(30) DTSBD142
|
||||
00139 VALUE ' TOTAL WAGES OR NO WAGES RECS '. DTSBD142
|
||||
00140 15 FILLER PIC X(02) VALUE SPACES. DTSBD142
|
||||
00141 15 MSG1-TRACE-NO PIC 9(13). DTSBD142
|
||||
00142 DTSBD142
|
||||
00143 01 T002-REC. DTSBD142
|
||||
00144 ++INCLUDE DTSIT002 DTSBD142
|
||||
00145 DTSBD142
|
||||
00146 01 Y104-REC. DTSBD142
|
||||
00147 ++INCLUDE DTSIY104 DTSBD142
|
||||
00148 DTSBD142
|
||||
00149 01 R907-REC. DTSBD142
|
||||
00150 ++INCLUDE DTSIR907 DTSBD142
|
||||
00151 DTSBD142
|
||||
00152 01 L001-LINK-AREA. DTSBD142
|
||||
00153 ++INCLUDE DTSIL001 DTSBD142
|
||||
00154 EJECT DTSBD142
|
||||
00155 01 L003-LINK-AREA. DTSBD142
|
||||
00156 ++INCLUDE DTSIL003 DTSBD142
|
||||
00157 EJECT DTSBD142
|
||||
00158 01 L004-LINK-AREA. DTSBD142
|
||||
00159 ++INCLUDE DTSIL004 DTSBD142
|
||||
00160 EJECT DTSBD142
|
||||
00161 01 L005-COMM-AREA. DTSBD142
|
||||
00162 ++INCLUDE DTSIL005 DTSBD142
|
||||
00163 EJECT DTSBD142
|
||||
00164 01 L331-LINK-AREA. DTSBD142
|
||||
00165 ++INCLUDE DTSIL331 DTSBD142
|
||||
00166 EJECT DTSBD142
|
||||
00167 01 L910-LINK-AREA. DTSBD142
|
||||
00168 ++INCLUDE DTSIL910 DTSBD142
|
||||
00169 EJECT DTSBD142
|
||||
00170 01 MSKL-REC. DTSBD142
|
||||
00171 ++INCLUDE DTSIMSKL DTSBD142
|
||||
00172 EJECT DTSBD142
|
||||
00173 01 MHDR-REC. DTSBD142
|
||||
00174 ++INCLUDE DTSIMHDR DTSBD142
|
||||
00175 EJECT DTSBD142
|
||||
00176 01 MPRF-REC. DTSBD142
|
||||
00177 ++INCLUDE DTSIMPRF DTSBD142
|
||||
00178 EJECT DTSBD142
|
||||
00179 01 MERA-REC. DTSBD142
|
||||
00180 ++INCLUDE DTSIMERA DTSBD142
|
||||
00181 EJECT DTSBD142
|
||||
00182 01 MSOL-REC. DTSBD142
|
||||
00183 ++INCLUDE DTSIMSOL DTSBD142
|
||||
00184 EJECT DTSBD142
|
||||
00185 01 MERD-REC. DTSBD142
|
||||
00186 ++INCLUDE DTSIMERD DTSBD142
|
||||
00187 EJECT DTSBD142
|
||||
00188 01 MEVL-REC. DTSBD142
|
||||
00189 ++INCLUDE DTSIMEVL DTSBD142
|
||||
00190 EJECT DTSBD142
|
||||
00191 01 MFSC-REC. DTSBD142
|
||||
00192 ++INCLUDE DTSIMFSC DTSBD142
|
||||
00193 EJECT DTSBD142
|
||||
00194 01 MTCK-REC. DTSBD142
|
||||
00195 ++INCLUDE DTSIMTCK DTSBD142
|
||||
00196 EJECT DTSBD142
|
||||
00197 01 RSKL-REC. DTSBD142
|
||||
00198 ++INCLUDE DTSIRSK3 DTSBD142
|
||||
00199 EJECT DTSBD142
|
||||
00200 01 T001-REC. DTSBD142
|
||||
00201 ++INCLUDE DTSIT001 DTSBD142
|
||||
00202 DTSBD142
|
||||
00203 01 T031-REC. DTSBD142
|
||||
00204 ++INCLUDE DTSIT031 DTSBD142
|
||||
00205 DTSBD142
|
||||
00206 LINKAGE SECTION. DTSBD142
|
||||
00207 01 L142-LINK-AREA. DTSBD142
|
||||
00208 ++INCLUDE DTSIL142 DTSBD142
|
||||
00209 DTSBD142
|
||||
00210 01 TSKL-REC. DTSBD142
|
||||
00211 ++INCLUDE DTSITSKL DTSBD142
|
||||
00212 DTSBD142
|
||||
00213 PROCEDURE DIVISION USING DTSBD142
|
||||
00214 L142-LINK-AREA DTSBD142
|
||||
00215 TSKL-REC. DTSBD142
|
||||
00216 DTSBD142
|
||||
00217 EVALUATE TRUE DTSBD142
|
||||
00218 WHEN L142-INITIATE-88 DTSBD142
|
||||
00219 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBD142
|
||||
00220 DTSBD142
|
||||
00221 WHEN L142-PROCESS-88 DTSBD142
|
||||
00222 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD142
|
||||
00223 DTSBD142
|
||||
00224 WHEN L142-TERMINATE-88 DTSBD142
|
||||
00225 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBD142
|
||||
00226 DTSBD142
|
||||
00227 END-EVALUATE. DTSBD142
|
||||
00228 DTSBD142
|
||||
00229 GOBACK. DTSBD142
|
||||
00230 EJECT DTSBD142
|
||||
00231 I0000-INITIALIZE. DTSBD142
|
||||
00232 *& DTSBD142
|
||||
00233 DISPLAY 'DTSBD142 - INITIALIZE'. DTSBD142
|
||||
00234 *& DTSBD142
|
||||
00235 PERFORM I1000-SYS-DATE THRU I1000-EXIT. DTSBD142
|
||||
00236 MOVE L142-CURR-RUN-DATE TO W-CURR-RUN-DATE DTSBD142
|
||||
00237 L001-FED-8-DATE-9. DTSBD142
|
||||
00238 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD142
|
||||
00239 MOVE L001-SLASH-8-DATE TO W-RUN-DATE-DISP. DTSBD142
|
||||
00240 DTSBD142
|
||||
00241 I0000-EXIT. DTSBD142
|
||||
00242 EXIT. DTSBD142
|
||||
00243 DTSBD142
|
||||
00244 I1000-SYS-DATE. DTSBD142
|
||||
00245 SET L005-FROM-SYS TO TRUE. DTSBD142
|
||||
00246 PERFORM S005-SYS-DATE THRU S005-EXIT. DTSBD142
|
||||
00247 MOVE L005-DATE TO W-SYS-DATE. DTSBD142
|
||||
00248 MOVE L005-TIME TO W-SYS-TIME. DTSBD142
|
||||
00249 MOVE L005-ABSTIME TO W-SYS-ABSTIME. DTSBD142
|
||||
00250 DTSBD142
|
||||
00251 I1000-EXIT. DTSBD142
|
||||
00252 EXIT. DTSBD142
|
||||
00253 DTSBD142
|
||||
00254 DTSBD142
|
||||
00255 *************************************************************** DTSBD142
|
||||
00256 *************************************************************** DTSBD142
|
||||
00257 DTSBD142
|
||||
00258 P0000-PROCESS. DTSBD142
|
||||
00259 SET W-ERROR-NO-88 TO TRUE. DTSBD142
|
||||
00260 ADD +1 TO W-T002-CNT. DTSBD142
|
||||
00261 IF TSKL-AUTO-EMP-STATUS-88 DTSBD142
|
||||
00262 MOVE TSKL-REC TO T002-REC DTSBD142
|
||||
00263 IF T002-DETERM-88 DTSBD142
|
||||
00264 MOVE T002-DATA-AREA TO Y104-REC DTSBD142
|
||||
00265 PERFORM P1000-ADD-MPRF THRU P1000-EXIT DTSBD142
|
||||
00266 IF W-ERROR-NO-88 DTSBD142
|
||||
00267 PERFORM P2000-ADD-MERA THRU P2000-EXIT DTSBD142
|
||||
00268 PERFORM P3000-ADD-MEVL THRU P3000-EXIT DTSBD142
|
||||
00269 PERFORM P4000-CHK-MFSC THRU P4000-EXIT DTSBD142
|
||||
00270 PERFORM P5000-ADD-T031 THRU P5000-EXIT DTSBD142
|
||||
00271 END-IF DTSBD142
|
||||
00272 END-IF DTSBD142
|
||||
00273 END-IF. DTSBD142
|
||||
00274 DTSBD142
|
||||
00275 DTSBD142
|
||||
00276 P0000-EXIT. DTSBD142
|
||||
00277 EXIT. DTSBD142
|
||||
00278 DTSBD142
|
||||
00279 P1000-ADD-MPRF. DTSBD142
|
||||
00280 *& DTSBD142
|
||||
00281 DISPLAY 'BD142 P1000 ' T002-EMP-NO. DTSBD142
|
||||
00282 *& DTSBD142
|
||||
00283 DTSBD142
|
||||
00284 ************************************* DTSBD142
|
||||
00285 * CHECK FOR DUPLICATE DTSBD142
|
||||
00286 ************************************* DTSBD142
|
||||
00287 MOVE LOW-VALUES TO MPRF-REC. DTSBD142
|
||||
00288 MOVE T002-EMP-NO TO MPRF-EMP-NO. DTSBD142
|
||||
00289 SET MPRF-PRF-88 TO TRUE. DTSBD142
|
||||
00290 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBD142
|
||||
00291 PERFORM S910-READ THRU S910-EXIT. DTSBD142
|
||||
00292 IF L910-OK-88 DTSBD142
|
||||
00293 DISPLAY 'ACCOUNT NBR ALREADY ON FILE: ' DTSBD142
|
||||
00294 T002-EMP-NO ' ' Y104-FEIN ' SOURCE: ' DTSBD142
|
||||
00295 Y104-SOURCE-CD DTSBD142
|
||||
00296 SET W-ERROR-YES-88 TO TRUE DTSBD142
|
||||
00297 GO TO P1000-EXIT DTSBD142
|
||||
00298 END-IF. DTSBD142
|
||||
00299 DTSBD142
|
||||
00300 MOVE LOW-VALUES TO MPRF-REC. DTSBD142
|
||||
00301 DTSBD142
|
||||
00302 MOVE T002-EMP-NO TO MPRF-EMP-NO. DTSBD142
|
||||
00303 DTSBD142
|
||||
00304 SET MPRF-PRF-88 TO TRUE. DTSBD142
|
||||
00305 DTSBD142
|
||||
00306 MOVE +0 TO MPRF-PURGE-DATE. DTSBD142
|
||||
00307 DTSBD142
|
||||
00308 PERFORM P1100-CLASS-STATUS THRU P1100-EXIT. DTSBD142
|
||||
00309 DTSBD142
|
||||
00310 IF Y104-SOURCE-FEIN-LIST-88 DTSBD142
|
||||
00311 SET MPRF-ELIGIBLE-NOT-SUBJECT-88 TO TRUE DTSBD142
|
||||
00312 ELSE DTSBD142
|
||||
00313 MOVE Y104-ELIG-CD TO MPRF-ELIGIBLE-CD DTSBD142
|
||||
00314 END-IF. DTSBD142
|
||||
00315 DTSBD142
|
||||
00316 IF Y104-TRADE-NAME = SPACES DTSBD142
|
||||
00317 MOVE Y104-ENTITY-NAME TO MPRF-PRIMARY-NAME DTSBD142
|
||||
00318 SET MPRF-PRIMARY-IS-ENTITY-88 TO TRUE DTSBD142
|
||||
00319 MOVE SPACES TO MPRF-ENTITY-NAME DTSBD142
|
||||
00320 ELSE DTSBD142
|
||||
00321 MOVE Y104-TRADE-NAME TO MPRF-PRIMARY-NAME DTSBD142
|
||||
00322 MOVE Y104-ENTITY-NAME TO MPRF-ENTITY-NAME DTSBD142
|
||||
00323 SET MPRF-PRIMARY-IS-NOT-ENTITY-88 TO TRUE DTSBD142
|
||||
00324 END-IF. DTSBD142
|
||||
00325 DTSBD142
|
||||
00326 SET MPRF-UC30-MASS-MAIL-YES-88 TO TRUE. DTSBD142
|
||||
00327 DTSBD142
|
||||
00328 SET MPRF-UC30-CREDIT-YES-88 TO TRUE. DTSBD142
|
||||
00329 DTSBD142
|
||||
00330 SET MPRF-FEIN-HARASS-YES-88 TO TRUE. DTSBD142
|
||||
00331 DTSBD142
|
||||
00332 SET MPRF-CHRG-STMT-PRINT-YES-88 TO TRUE. DTSBD142
|
||||
00333 DTSBD142
|
||||
00334 SET MPRF-DC-CONTRACTOR-NO-88 TO TRUE. DTSBD142
|
||||
00335 DTSBD142
|
||||
00336 MOVE Y104-ORG-TYPE TO MPRF-ORG-TYPE. DTSBD142
|
||||
00337 DTSBD142
|
||||
00338 SET MPRF-FISC-AG-NONE-88 TO TRUE. DTSBD142
|
||||
00339 DTSBD142
|
||||
00340 MOVE Y104-FEIN TO MPRF-FEIN. DTSBD142
|
||||
00341 DTSBD142
|
||||
00342 MOVE +0 TO MPRF-DC-BUSINESS-TAX-ACCT-NO. DTSBD142
|
||||
00343 DTSBD142
|
||||
00344 SET MPRF-SUSPEND-COLL-NO-88 TO TRUE. DTSBD142
|
||||
00345 DTSBD142
|
||||
00346 SET MPRF-NOT-WRITTEN-OFF-88 TO TRUE. DTSBD142
|
||||
00347 DTSBD142
|
||||
00348 SET MPRF-PURGE-ALL-NO-88 TO TRUE. DTSBD142
|
||||
00349 DTSBD142
|
||||
00350 SET MPRF-SIC-CD-NONCLASSIF-88 TO TRUE. DTSBD142
|
||||
00351 DTSBD142
|
||||
00352 MOVE SPACES TO MPRF-OLD-SIC-CD. DTSBD142
|
||||
00353 DTSBD142
|
||||
00354 MOVE +0 TO MPRF-SIC-CHNG-DATE. DTSBD142
|
||||
00355 DTSBD142
|
||||
00356 SET MPRF-SIC-AUX-UNK-88 TO TRUE. DTSBD142
|
||||
00357 DTSBD142
|
||||
00358 * SET MPRF-NAICS-CD-NONCLASSIF-88 TO TRUE. DTSBD142
|
||||
00359 MOVE Y104-NAICS TO MPRF-NAICS-CD. DTSBD142
|
||||
00360 DISPLAY ' >>>>>>>>>>>> ESSP NAICS ' Y104-NAICS. DTSBD142
|
||||
00361 DISPLAY ' <<<<<<<<<<<< MPRF NAICS ' MPRF-NAICS-CD. DTSBD142
|
||||
00362 DTSBD142
|
||||
00363 MOVE SPACES TO MPRF-OLD-NAICS-CD. DTSBD142
|
||||
00364 DTSBD142
|
||||
00365 MOVE W-CURR-RUN-DATE TO MPRF-NAICS-CHNG-DATE. DTSBD142
|
||||
00366 DTSBD142
|
||||
00367 SET MPRF-NAICS-AUX-UNK-88 TO TRUE. DTSBD142
|
||||
00368 DTSBD142
|
||||
00369 SET MPRF-OWN-CD-NONCLASSIF-88 TO TRUE. DTSBD142
|
||||
00370 DTSBD142
|
||||
00371 MOVE SPACES TO MPRF-OLD-OWN-CD. DTSBD142
|
||||
00372 DTSBD142
|
||||
00373 MOVE +0 TO MPRF-OWN-CHNG-DATE. DTSBD142
|
||||
00374 DTSBD142
|
||||
00375 SET MPRF-SINGLE-UNIT-88 TO TRUE. DTSBD142
|
||||
00376 DTSBD142
|
||||
00377 SET MPRF-WARD-UNKNOWN-88 TO TRUE. DTSBD142
|
||||
00378 DTSBD142
|
||||
00379 MOVE +0 TO MPRF-PURSUED-RPT-CNT. DTSBD142
|
||||
00380 DTSBD142
|
||||
00381 MOVE +0 TO MPRF-TOT-BALANCE-AMT. DTSBD142
|
||||
00382 DTSBD142
|
||||
00383 MOVE +0 TO MPRF-TOT-CREDIT-AMT. DTSBD142
|
||||
00384 DTSBD142
|
||||
00385 SET MPRF-BANKRP-NOT-OPEN-88 TO TRUE. DTSBD142
|
||||
00386 DTSBD142
|
||||
00387 MOVE +0 TO MPRF-ARCHIVED-AUDIT-YRQ. DTSBD142
|
||||
00388 DTSBD142
|
||||
00389 MOVE 19941 TO MPRF-LAST-ARCHIVED-YRQ. DTSBD142
|
||||
00390 DTSBD142
|
||||
00391 SET MPRF-TAX-REC-ADDR-NO-88 TO TRUE. DTSBD142
|
||||
00392 DTSBD142
|
||||
00393 SET MPRF-BEN-MAIL-ADDR-NO-88 TO TRUE. DTSBD142
|
||||
00394 DTSBD142
|
||||
00395 SET MPRF-RETURN-MAIL-NO-88 TO TRUE. DTSBD142
|
||||
00396 DTSBD142
|
||||
00397 MOVE Y104-FIELD-ZIP TO MPRF-FLD-ZIP. DTSBD142
|
||||
00398 MOVE Y104-FIELD-STATE TO MPRF-FLD-ST. DTSBD142
|
||||
00399 DTSBD142
|
||||
00400 SET MPRF-NO-MAPL-88 TO TRUE. DTSBD142
|
||||
00401 DTSBD142
|
||||
00402 SET MPRF-NO-MLIN-88 TO TRUE. DTSBD142
|
||||
00403 DTSBD142
|
||||
00404 SET MPRF-NO-MDPC-88 TO TRUE. DTSBD142
|
||||
00405 DTSBD142
|
||||
00406 SET MPRF-NO-MFAS-88 TO TRUE. DTSBD142
|
||||
00407 DTSBD142
|
||||
00408 SET MPRF-UPDATED-NEVER-88 TO TRUE. DTSBD142
|
||||
00409 DTSBD142
|
||||
00410 MOVE +0 TO MPRF-UPDATE-TASK-ID. DTSBD142
|
||||
00411 DTSBD142
|
||||
00412 MOVE SPACES TO MPRF-UPDATE-OP-ID. DTSBD142
|
||||
00413 DTSBD142
|
||||
00414 MOVE SPACES TO MPRF-UPDATE-TERMID. DTSBD142
|
||||
00415 DTSBD142
|
||||
00416 MOVE SPACES TO MPRF-UPDATE-NETNAME. DTSBD142
|
||||
00417 DTSBD142
|
||||
00418 MOVE +0 TO MPRF-UPDATE-START-DATE. DTSBD142
|
||||
00419 DTSBD142
|
||||
00420 MOVE SPACES TO MPRF-UPDATE-SCR-ID. DTSBD142
|
||||
00421 DTSBD142
|
||||
00422 MOVE SPACES TO MPRF-UPDATE-FUNCTION. DTSBD142
|
||||
00423 DTSBD142
|
||||
00424 SET MPRF-NOT-CONVERTED-88 TO TRUE. DTSBD142
|
||||
00425 DTSBD142
|
||||
00426 MOVE W-CURR-RUN-DATE TO MPRF-ESTB-DATE DTSBD142
|
||||
00427 MPRF-CHNG-DATE. DTSBD142
|
||||
00428 DTSBD142
|
||||
00429 MOVE MPRF-REC TO MSKL-REC. DTSBD142
|
||||
00430 DTSBD142
|
||||
00431 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142
|
||||
00432 DTSBD142
|
||||
00433 ADD +1 TO W-MPRF-CNT. DTSBD142
|
||||
00434 DTSBD142
|
||||
00435 P1000-EXIT. DTSBD142
|
||||
00436 EXIT. DTSBD142
|
||||
00437 DTSBD142
|
||||
00438 P1100-CLASS-STATUS. DTSBD142
|
||||
00439 MOVE Y104-LIAB-CD TO MSOL-LIAB-CD. DTSBD142
|
||||
00440 DTSBD142
|
||||
00441 EVALUATE TRUE DTSBD142
|
||||
00442 WHEN Y104-STAFF-REVIEW-YES-88 DTSBD142
|
||||
00443 SET MPRF-CLASS-UNK-88 TO TRUE DTSBD142
|
||||
00444 SET MPRF-STATUS-UNK-88 TO TRUE DTSBD142
|
||||
00445 DTSBD142
|
||||
00446 WHEN MSOL-LIAB-REG-88 DTSBD142
|
||||
00447 SET MPRF-CLASS-RATED-88 TO TRUE DTSBD142
|
||||
00448 SET MPRF-STATUS-ACT-88 TO TRUE DTSBD142
|
||||
00449 DTSBD142
|
||||
00450 WHEN MSOL-LIAB-SELF-88 DTSBD142
|
||||
00451 SET MPRF-CLASS-SELF-INS-88 TO TRUE DTSBD142
|
||||
00452 SET MPRF-STATUS-ACT-88 TO TRUE DTSBD142
|
||||
00453 DTSBD142
|
||||
00454 WHEN MSOL-LIAB-CD = '00' DTSBD142
|
||||
00455 SET MPRF-CLASS-UNK-88 TO TRUE DTSBD142
|
||||
00456 SET MPRF-STATUS-NEVERSUB-88 TO TRUE DTSBD142
|
||||
00457 DTSBD142
|
||||
00458 WHEN OTHER DTSBD142
|
||||
00459 SET MPRF-CLASS-UNK-88 TO TRUE DTSBD142
|
||||
00460 SET MPRF-STATUS-UNK-88 TO TRUE DTSBD142
|
||||
00461 DTSBD142
|
||||
00462 END-EVALUATE. DTSBD142
|
||||
00463 DTSBD142
|
||||
00464 P1100-EXIT. DTSBD142
|
||||
00465 EXIT. DTSBD142
|
||||
00466 DTSBD142
|
||||
00467 P2000-ADD-MERA. DTSBD142
|
||||
00468 *& DTSBD142
|
||||
00469 * DISPLAY 'BD142 P2000 ' T002-EMP-NO. DTSBD142
|
||||
00470 *& DTSBD142
|
||||
00471 MOVE LOW-VALUES TO MERA-REC. DTSBD142
|
||||
00472 DTSBD142
|
||||
00473 MOVE MPRF-EMP-NO TO MERA-EMP-NO. DTSBD142
|
||||
00474 DTSBD142
|
||||
00475 SET MERA-ERA-88 TO TRUE. DTSBD142
|
||||
00476 DTSBD142
|
||||
00477 MOVE +0 TO MERA-PURGE-DATE. DTSBD142
|
||||
00478 DTSBD142
|
||||
00479 MOVE Y104-SOURCE-CD TO MERA-SOURCE-CD. DTSBD142
|
||||
00480 DTSBD142
|
||||
00481 MOVE +0 TO MERA-CLAIMANT-SSN. DTSBD142
|
||||
00482 DTSBD142
|
||||
00483 MOVE SPACE TO MERA-CLAIMANT-NAME. DTSBD142
|
||||
00484 DTSBD142
|
||||
00485 MOVE SPACE TO MERA-RESPONSIBLE-OP-ID. DTSBD142
|
||||
00486 DTSBD142
|
||||
00487 MOVE +0 TO MERA-POT-PRED-EMP-NO. DTSBD142
|
||||
00488 DTSBD142
|
||||
00489 MOVE SPACE TO MERA-NOTE. DTSBD142
|
||||
00490 DTSBD142
|
||||
00491 SET MERA-LETTER-GENERIC-88 TO TRUE. DTSBD142
|
||||
00492 DTSBD142
|
||||
00493 SET MERA-FIRST-LABEL-NEEDED-88 TO TRUE. DTSBD142
|
||||
00494 DTSBD142
|
||||
00495 MOVE +1 TO MERA-LABEL-CNT. DTSBD142
|
||||
00496 DTSBD142
|
||||
00497 PERFORM P2100-STATUS THRU P2100-EXIT. DTSBD142
|
||||
00498 DTSBD142
|
||||
00499 IF MERA-SOURCE-FEIN-LIST-88 DTSBD142
|
||||
00500 MOVE ZERO TO MERA-RECEIVED-DATE DTSBD142
|
||||
00501 ELSE DTSBD142
|
||||
00502 MOVE W-CURR-RUN-DATE TO MERA-RECEIVED-DATE DTSBD142
|
||||
00503 END-IF. DTSBD142
|
||||
00504 DTSBD142
|
||||
00505 MOVE +0 TO MERA-MAIL-DATE-1 DTSBD142
|
||||
00506 MERA-MAIL-DATE-2 DTSBD142
|
||||
00507 MERA-COOP-AGENCY-REQ-DATE DTSBD142
|
||||
00508 MERA-FIELD-ASSIGN-DATE DTSBD142
|
||||
00509 MERA-DETER-NOTSUB-DATE. DTSBD142
|
||||
00510 DTSBD142
|
||||
00511 SET MERA-NOT-CONVERTED-88 TO TRUE. DTSBD142
|
||||
00512 DTSBD142
|
||||
00513 MOVE W-CURR-RUN-DATE TO MERA-ESTB-DATE DTSBD142
|
||||
00514 MERA-CHNG-DATE. DTSBD142
|
||||
00515 DTSBD142
|
||||
00516 MOVE MERA-REC TO MSKL-REC. DTSBD142
|
||||
00517 DTSBD142
|
||||
00518 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142
|
||||
00519 DTSBD142
|
||||
00520 ADD +1 TO W-MERA-CNT. DTSBD142
|
||||
00521 DTSBD142
|
||||
00522 P2000-EXIT. DTSBD142
|
||||
00523 EXIT. DTSBD142
|
||||
00524 DTSBD142
|
||||
00525 P2100-STATUS. DTSBD142
|
||||
00526 MOVE W-CURR-RUN-DATE TO MERA-STATUS-CHNG-DATE. DTSBD142
|
||||
00527 DTSBD142
|
||||
00528 EVALUATE TRUE DTSBD142
|
||||
00529 WHEN MERA-SOURCE-UC30-88 DTSBD142
|
||||
00530 SET MERA-STATUS-SETUP-88 TO TRUE DTSBD142
|
||||
00531 DTSBD142
|
||||
00532 WHEN MERA-SOURCE-FEIN-LIST-88 DTSBD142
|
||||
00533 SET MERA-STATUS-SETUP-88 TO TRUE DTSBD142
|
||||
00534 DTSBD142
|
||||
00535 WHEN Y104-STAFF-REVIEW-YES-88 DTSBD142
|
||||
00536 OR Y104-LIAB-CD = ' ' DTSBD142
|
||||
00537 SET MERA-STATUS-MANUAL-88 TO TRUE DTSBD142
|
||||
00538 DTSBD142
|
||||
00539 WHEN Y104-LIAB-CD = '00' DTSBD142
|
||||
00540 SET MERA-STATUS-NOT-LIAB-88 TO TRUE DTSBD142
|
||||
00541 DTSBD142
|
||||
00542 WHEN OTHER DTSBD142
|
||||
00543 SET MERA-STATUS-LIAB-88 TO TRUE DTSBD142
|
||||
00544 DTSBD142
|
||||
00545 END-EVALUATE. DTSBD142
|
||||
00546 DTSBD142
|
||||
00547 P2100-EXIT. DTSBD142
|
||||
00548 EXIT. DTSBD142
|
||||
00549 DTSBD142
|
||||
00550 P3000-ADD-MEVL. DTSBD142
|
||||
00551 MOVE LOW-VALUES TO MEVL-REC. DTSBD142
|
||||
00552 DTSBD142
|
||||
00553 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBD142
|
||||
00554 DTSBD142
|
||||
00555 SET MEVL-EVL-88 TO TRUE. DTSBD142
|
||||
00556 DTSBD142
|
||||
00557 MOVE L005-DATE TO MEVL-DATE. DTSBD142
|
||||
00558 DTSBD142
|
||||
00559 MOVE L005-TIME TO MEVL-TIME. DTSBD142
|
||||
00560 DTSBD142
|
||||
00561 MOVE +0 TO MEVL-PURGE-DATE. DTSBD142
|
||||
00562 DTSBD142
|
||||
00563 IF MERA-SOURCE-FEIN-LIST-88 DTSBD142
|
||||
00564 MOVE 'FUTA QUARTERLY EIN' TO MEVL-TEXT DTSBD142
|
||||
00565 MOVE 'FUTA EIN' TO MEVL-SOURCE DTSBD142
|
||||
00566 ELSE DTSBD142
|
||||
00567 MOVE 'WEB REGISTRATION' TO MEVL-TEXT DTSBD142
|
||||
00568 MOVE 'WEB REG' TO MEVL-SOURCE DTSBD142
|
||||
00569 END-IF. DTSBD142
|
||||
00570 DTSBD142
|
||||
00571 DTSBD142
|
||||
00572 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBD142
|
||||
00573 DTSBD142
|
||||
00574 MOVE W-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBD142
|
||||
00575 MEVL-CHNG-DATE. DTSBD142
|
||||
00576 DTSBD142
|
||||
00577 MOVE MEVL-REC TO MSKL-REC. DTSBD142
|
||||
00578 DTSBD142
|
||||
00579 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142
|
||||
00580 DTSBD142
|
||||
00581 P3000-EXIT. DTSBD142
|
||||
00582 EXIT. DTSBD142
|
||||
00583 DTSBD142
|
||||
00584 P4000-CHK-MFSC. DTSBD142
|
||||
00585 IF Y104-ORG-HOUSEHOLD-88 DTSBD142
|
||||
00586 IF Y104-HH-ANNUAL-88 DTSBD142
|
||||
00587 OR Y104-HH-QUARTERLY-88 DTSBD142
|
||||
00588 PERFORM P4100-ADD-MFSC THRU P4100-EXIT DTSBD142
|
||||
00589 END-IF DTSBD142
|
||||
00590 END-IF. DTSBD142
|
||||
00591 DTSBD142
|
||||
00592 P4000-EXIT. DTSBD142
|
||||
00593 EXIT. DTSBD142
|
||||
00594 DTSBD142
|
||||
00595 P4100-ADD-MFSC. DTSBD142
|
||||
00596 MOVE Y104-FIRST-WAGE-DT TO L004-DATE DTSBD142
|
||||
00597 PERFORM S004-FROM-DATE THRU S004-EXIT DTSBD142
|
||||
00598 IF Y104-HH-ANNUAL-88 DTSBD142
|
||||
00599 MOVE 1 TO L004-QTR-5-Q DTSBD142
|
||||
00600 PERFORM S004-FROM-5 THRU S004-EXIT DTSBD142
|
||||
00601 END-IF. DTSBD142
|
||||
00602 DTSBD142
|
||||
00603 DISPLAY 'BD142 ANN ' MPRF-EMP-NO DTSBD142
|
||||
00604 ' ANN ' Y104-HOUSEHOLD-FILING DTSBD142
|
||||
00605 ' LIAB ' Y104-FIRST-WAGE-DT DTSBD142
|
||||
00606 ' QTR ' L004-QTR-5-9. DTSBD142
|
||||
00607 DTSBD142
|
||||
00608 MOVE LOW-VALUES TO MFSC-REC. DTSBD142
|
||||
00609 MOVE MPRF-EMP-NO TO MFSC-EMP-NO. DTSBD142
|
||||
00610 SET MFSC-FSC-88 TO TRUE. DTSBD142
|
||||
00611 MOVE L004-ABS-QTR TO MFSC-ABS-QTR. DTSBD142
|
||||
00612 MOVE W-SYS-ABSTIME TO MFSC-ABSTIME. DTSBD142
|
||||
00613 MOVE +0 TO MFSC-PURGE-DATE. DTSBD142
|
||||
00614 SET MFSC-STATUS-OPEN-88 TO TRUE. DTSBD142
|
||||
00615 MOVE L004-QTR-5-9 TO MFSC-START-YRQ. DTSBD142
|
||||
00616 MOVE W-ALL-NINES-QTR TO MFSC-END-YRQ. DTSBD142
|
||||
00617 MOVE Y104-HOUSEHOLD-FILING TO MFSC-FILING-SCHEDULE-CD. DTSBD142
|
||||
00618 SET MFSC-REQ-LIAB-DETERM-88 TO TRUE. DTSBD142
|
||||
00619 MOVE SPACES TO MFSC-CHANGE-REASON-CD DTSBD142
|
||||
00620 MFSC-INIT-NOTICE-TYPE DTSBD142
|
||||
00621 MFSC-CONFIRM-NOTICE-TYPE DTSBD142
|
||||
00622 MFSC-DENIAL-NOTICE-TYPE. DTSBD142
|
||||
00623 MOVE ZERO TO MFSC-INITIAL-MAIL-DATE DTSBD142
|
||||
00624 MFSC-CONFIRM-MAIL-DATE DTSBD142
|
||||
00625 MFSC-DENIAL-MAIL-DATE. DTSBD142
|
||||
00626 MOVE W-CURR-RUN-DATE TO MFSC-ESTB-DATE DTSBD142
|
||||
00627 MFSC-CHNG-DATE. DTSBD142
|
||||
00628 MOVE 'WEB REG' TO MFSC-CHNG-OP-ID. DTSBD142
|
||||
00629 MOVE +0 TO MFSC-NOTE-CNT. DTSBD142
|
||||
00630 DTSBD142
|
||||
00631 MOVE MFSC-REC TO MSKL-REC. DTSBD142
|
||||
00632 DTSBD142
|
||||
00633 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142
|
||||
00634 DTSBD142
|
||||
00635 P4100-EXIT. DTSBD142
|
||||
00636 EXIT. DTSBD142
|
||||
00637 DTSBD142
|
||||
00638 P5000-ADD-T031. DTSBD142
|
||||
00639 IF MERA-STATUS-LIAB-88 DTSBD142
|
||||
00640 PERFORM P5100-LIABLE THRU P5100-EXIT DTSBD142
|
||||
00641 ELSE DTSBD142
|
||||
00642 IF MERA-SOURCE-FEIN-LIST-88 DTSBD142
|
||||
00643 PERFORM P5300-POTENTIAL-EMP THRU P5300-EXIT DTSBD142
|
||||
00644 *** ELSE DTSBD142
|
||||
00645 *** PERFORM P5200-NOT-LIABLE THRU P5200-EXIT DTSBD142
|
||||
00646 END-IF. DTSBD142
|
||||
00647 DTSBD142
|
||||
00648 P5000-EXIT. DTSBD142
|
||||
00649 EXIT. DTSBD142
|
||||
00650 DTSBD142
|
||||
00651 P5100-LIABLE. DTSBD142
|
||||
00652 *& DTSBD142
|
||||
00653 DISPLAY 'BD142 P5100 ' T002-EMP-NO. DTSBD142
|
||||
00654 *& DTSBD142
|
||||
00655 MOVE ZERO TO W-FIRST-LIAB-YRQ DTSBD142
|
||||
00656 W-LAST-LIAB-YRQ. DTSBD142
|
||||
00657 IF Y104-FIRST-WAGE-DT = ZERO DTSBD142
|
||||
00658 DISPLAY 'LIABLE EMPLOYER BUT NO FIRST WAGE DT ' DTSBD142
|
||||
00659 MPRF-EMP-NO DTSBD142
|
||||
00660 GO TO P5100-EXIT DTSBD142
|
||||
00661 END-IF. DTSBD142
|
||||
00662 DTSBD142
|
||||
00663 PERFORM P5110-LIAB-DATES THRU P5110-EXIT. DTSBD142
|
||||
00664 DTSBD142
|
||||
00665 PERFORM P5910-INITIALIZE-T031 THRU P5910-EXIT. DTSBD142
|
||||
00666 MOVE MPRF-EMP-NO TO T031-EMP-NO. DTSBD142
|
||||
00667 SET T031-AUTO-PROCESS TO TRUE. DTSBD142
|
||||
00668 MOVE W-FIRST-LIAB-YRQ TO T031-START-YRQ DTSBD142
|
||||
00669 MOVE W-LAST-LIAB-YRQ TO T031-END-YRQ DTSBD142
|
||||
00670 MOVE ZERO TO T031-WAIVER-START-YRQ DTSBD142
|
||||
00671 T031-WAIVER-END-YRQ DTSBD142
|
||||
00672 T031-WAIVER-EXT-DATE. DTSBD142
|
||||
00673 MOVE T031-REC TO RSKL-REC. DTSBD142
|
||||
00674 DTSBD142
|
||||
00675 PERFORM S946-WRITE-TRANS THRU S946-EXIT. DTSBD142
|
||||
00676 ADD +1 TO W-T031-CNT. DTSBD142
|
||||
00677 DTSBD142
|
||||
00678 *& DTSBD142
|
||||
00679 DISPLAY 'BD142 P5100 ' T002-EMP-NO DTSBD142
|
||||
00680 ' T031 FIRST ' T031-START-YRQ DTSBD142
|
||||
00681 ' T031 LAST ' T031-END-YRQ. DTSBD142
|
||||
00682 *& DTSBD142
|
||||
00683 P5100-EXIT. DTSBD142
|
||||
00684 EXIT. DTSBD142
|
||||
00685 DTSBD142
|
||||
00686 P5110-LIAB-DATES. DTSBD142
|
||||
00687 MOVE Y104-FIRST-WAGE-DT TO L004-DATE. DTSBD142
|
||||
00688 PERFORM S004-FROM-DATE THRU S004-EXIT DTSBD142
|
||||
00689 IF NOT L004-VALID-QTR DTSBD142
|
||||
00690 DISPLAY 'P5110: INVALID FIRST WAGE DATE ' DTSBD142
|
||||
00691 MPRF-EMP-NO ' ' Y104-FIRST-WAGE-DT DTSBD142
|
||||
00692 *** SET W-ERROR-YES-88 TO TRUE DTSBD142
|
||||
00693 ELSE DTSBD142
|
||||
00694 MOVE L004-QTR-5-9 TO W-FIRST-LIAB-YRQ DTSBD142
|
||||
00695 MOVE W-ALL-NINES-QTR TO W-LAST-LIAB-YRQ DTSBD142
|
||||
00696 MOVE Y104-FIRST-WAGE-DT TO W-LIAB-DATE DTSBD142
|
||||
00697 *& DTSBD142
|
||||
00698 DISPLAY 'BD142 P5110 ' T002-EMP-NO DTSBD142
|
||||
00699 ' FIRST LIAB ' W-FIRST-LIAB-YRQ DTSBD142
|
||||
00700 ' LAST LIAB ' W-LAST-LIAB-YRQ DTSBD142
|
||||
00701 *& DTSBD142
|
||||
00702 END-IF. DTSBD142
|
||||
00703 DTSBD142
|
||||
00704 P5110-EXIT. DTSBD142
|
||||
00705 EXIT. DTSBD142
|
||||
00706 DTSBD142
|
||||
00707 *P5200-NOT-LIABLE. DTSBD142
|
||||
00708 * MOVE ZERO TO W-FOLLOWUP-DT. DTSBD142
|
||||
00709 * DTSBD142
|
||||
00710 * IF T002-WAGES-PLANNED-DT > ZERO DTSBD142
|
||||
00711 * MOVE T002-WAGES-PLANNED-DT TO W-FOLLOWUP-DT DTSBD142
|
||||
00712 * ELSE DTSBD142
|
||||
00713 * IF T002-500-PLANNED-QTR > ZERO DTSBD142
|
||||
00714 * MOVE T002-500-PLANNED-QTR TO L004-QTR-5-9 DTSBD142
|
||||
00715 * PERFORM S004-FROM-5 THRU S004-EXIT DTSBD142
|
||||
00716 * IF L004-VALID-QTR DTSBD142
|
||||
00717 * MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9 DTSBD142
|
||||
00718 * PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBD142
|
||||
00719 * ADD +60 TO L001-JUL-ABS-DAY DTSBD142
|
||||
00720 * PERFORM S001-FROM-ABS-DAY THRU S001-EXIT DTSBD142
|
||||
00721 * MOVE L001-FED-8-DATE-9 TO W-FOLLOWUP-DT DTSBD142
|
||||
00722 * END-IF DTSBD142
|
||||
00723 * END-IF DTSBD142
|
||||
00724 * END-IF. DTSBD142
|
||||
00725 * DTSBD142
|
||||
00726 * IF W-FOLLOWUP-DT > ZERO DTSBD142
|
||||
00727 * PERFORM P5210-TICKLER THRU P5210-EXIT DTSBD142
|
||||
00728 * END-IF. DTSBD142
|
||||
00729 * DTSBD142
|
||||
00730 *P5200-EXIT. DTSBD142
|
||||
00731 * EXIT. DTSBD142
|
||||
00732 * DTSBD142
|
||||
00733 *P5210-TICKLER. DTSBD142
|
||||
00734 * MOVE LOW-VALUES TO MTCK-REC DTSBD142
|
||||
00735 * MOVE MPRF-EMP-NO TO MTCK-EMP-NO DTSBD142
|
||||
00736 * SET MTCK-TCK-88 TO TRUE DTSBD142
|
||||
00737 * ADD +1000 TO L005-ABSTIME. DTSBD142
|
||||
00738 * MOVE L005-ABSTIME TO MTCK-ESTB-ABSTIME DTSBD142
|
||||
00739 * MOVE +0 TO MTCK-PURGE-DATE DTSBD142
|
||||
00740 * SET MTCK-TYPE-MANUAL-88 TO TRUE DTSBD142
|
||||
00741 * MOVE W-FOLLOWUP-DT TO MTCK-TRIGGER-DATE DTSBD142
|
||||
00742 * MOVE +0 TO MTCK-ACKNOWLEDGED-DATE DTSBD142
|
||||
00743 * MOVE W-MOD-NAME TO MTCK-SOURCE-OP-ID DTSBD142
|
||||
00744 * MOVE 'STATUS' TO MTCK-DEST-OP-ID DTSBD142
|
||||
00745 * SET MTCK-NOT-CONVERTED-88 TO TRUE DTSBD142
|
||||
00746 * MOVE W-CURR-RUN-DATE TO MTCK-ESTB-DATE DTSBD142
|
||||
00747 * MTCK-CHNG-DATE DTSBD142
|
||||
00748 * MOVE +1 TO MTCK-TEXT-CNT DTSBD142
|
||||
00749 * MOVE SPACES TO MTCK-TEXT (1) DTSBD142
|
||||
00750 * STRING 'WEB REGISTRATION - WAGES NOT YET PAID ' DTSBD142
|
||||
00751 * DELIMITED BY SIZE DTSBD142
|
||||
00752 * W-RUN-DATE-DISP DTSBD142
|
||||
00753 * DELIMITED BY SIZE DTSBD142
|
||||
00754 * '. FOLLOW UP?' DTSBD142
|
||||
00755 * DELIMITED BY SIZE DTSBD142
|
||||
00756 * INTO DTSBD142
|
||||
00757 * MTCK-TEXT (1) DTSBD142
|
||||
00758 * MOVE MTCK-REC TO MSKL-REC DTSBD142
|
||||
00759 * PERFORM S910-WRITE THRU S910-EXIT. DTSBD142
|
||||
00760 * DTSBD142
|
||||
00761 *P5210-EXIT. DTSBD142
|
||||
00762 * EXIT. DTSBD142
|
||||
00763 DTSBD142
|
||||
00764 P5300-POTENTIAL-EMP. DTSBD142
|
||||
00765 *& DTSBD142
|
||||
00766 DISPLAY 'BD142 P5300 ' MPRF-EMP-NO. DTSBD142
|
||||
00767 *& DTSBD142
|
||||
00768 MOVE LOW-VALUES TO MTCK-REC DTSBD142
|
||||
00769 MOVE MPRF-EMP-NO TO MTCK-EMP-NO DTSBD142
|
||||
00770 SET MTCK-TCK-88 TO TRUE DTSBD142
|
||||
00771 ADD +1000 TO L005-ABSTIME. DTSBD142
|
||||
00772 MOVE L005-ABSTIME TO MTCK-ESTB-ABSTIME DTSBD142
|
||||
00773 MOVE +0 TO MTCK-PURGE-DATE DTSBD142
|
||||
00774 SET MTCK-TYPE-CYCLE-A-88 TO TRUE DTSBD142
|
||||
00775 MOVE W-CURR-RUN-DATE TO MTCK-TRIGGER-DATE DTSBD142
|
||||
00776 MOVE +0 TO MTCK-ACKNOWLEDGED-DATE DTSBD142
|
||||
00777 SET MTCK-SOURCE-SYSTEM-88 TO TRUE. DTSBD142
|
||||
00778 SET MTCK-DEST-SYSTEM-88 TO TRUE. DTSBD142
|
||||
00779 SET MTCK-NOT-CONVERTED-88 TO TRUE DTSBD142
|
||||
00780 MOVE W-CURR-RUN-DATE TO MTCK-ESTB-DATE DTSBD142
|
||||
00781 MTCK-CHNG-DATE DTSBD142
|
||||
00782 MOVE +0 TO MTCK-TEXT-CNT DTSBD142
|
||||
00783 DTSBD142
|
||||
00784 MOVE MTCK-REC TO MSKL-REC DTSBD142
|
||||
00785 PERFORM S910-WRITE THRU S910-EXIT. DTSBD142
|
||||
00786 DTSBD142
|
||||
00787 P5300-EXIT. DTSBD142
|
||||
00788 EXIT. DTSBD142
|
||||
00789 DTSBD142
|
||||
00790 P5900-INITIALIZE-T001. DTSBD142
|
||||
00791 MOVE LENGTH OF T001-REC TO T001-LENGTH. DTSBD142
|
||||
00792 MOVE 'WEB REG' TO T001-OP-ID. DTSBD142
|
||||
00793 MOVE SPACES TO T001-SCR-ID. DTSBD142
|
||||
00794 MOVE L005-DATE TO T001-SYS-DATE. DTSBD142
|
||||
00795 MOVE L005-TIME TO T001-SYS-TIME. DTSBD142
|
||||
00796 MOVE SPACES TO T001-RESP-OP-ID. DTSBD142
|
||||
00797 MOVE SPACES TO T001-INACT-LTR-TYPE DTSBD142
|
||||
00798 T001-NOT-LIABLE-LTR-TYPE DTSBD142
|
||||
00799 T001-WELCOME-LTR-IND. DTSBD142
|
||||
00800 DTSBD142
|
||||
00801 P5900-EXIT. DTSBD142
|
||||
00802 EXIT. DTSBD142
|
||||
00803 DTSBD142
|
||||
00804 P5910-INITIALIZE-T031. DTSBD142
|
||||
00805 MOVE LENGTH OF T031-REC TO T031-LENGTH. DTSBD142
|
||||
00806 MOVE 'WEB REG' TO T031-OP-ID. DTSBD142
|
||||
00807 MOVE SPACES TO T031-SCR-ID. DTSBD142
|
||||
00808 MOVE L005-DATE TO T031-SYS-DATE. DTSBD142
|
||||
00809 MOVE L005-TIME TO T031-SYS-TIME. DTSBD142
|
||||
00810 MOVE +0 TO T031-START-YRQ DTSBD142
|
||||
00811 T031-END-YRQ DTSBD142
|
||||
00812 T031-WAIVER-START-YRQ DTSBD142
|
||||
00813 T031-WAIVER-END-YRQ DTSBD142
|
||||
00814 T031-WAIVER-EXT-DATE. DTSBD142
|
||||
00815 SET T031-TRANSFER-NO-88 TO TRUE. DTSBD142
|
||||
00816 MOVE +0 TO T031-TRANSFER-TO-EMP-NO. DTSBD142
|
||||
00817 DTSBD142
|
||||
00818 P5910-EXIT. DTSBD142
|
||||
00819 EXIT. DTSBD142
|
||||
00820 DTSBD142
|
||||
00821 T0000-TERMINATE. DTSBD142
|
||||
00822 DTSBD142
|
||||
00823 DISPLAY ' '. DTSBD142
|
||||
00824 DISPLAY ' '. DTSBD142
|
||||
00825 DTSBD142
|
||||
00826 DISPLAY '*** DTSBD142 TERMINATION STATISTICS ***'. DTSBD142
|
||||
00827 DTSBD142
|
||||
00828 DISPLAY ' '. DTSBD142
|
||||
00829 DISPLAY 'T002 INPUT COUNT :' DTSBD142
|
||||
00830 W-T002-CNT. DTSBD142
|
||||
00831 DTSBD142
|
||||
00832 DISPLAY ' '. DTSBD142
|
||||
00833 DISPLAY 'MPRF ADDED COUNT :' DTSBD142
|
||||
00834 W-MPRF-CNT. DTSBD142
|
||||
00835 DTSBD142
|
||||
00836 DISPLAY ' '. DTSBD142
|
||||
00837 DISPLAY 'MERA ADDED COUNT :' DTSBD142
|
||||
00838 W-MERA-CNT. DTSBD142
|
||||
00839 DTSBD142
|
||||
00840 DISPLAY ' '. DTSBD142
|
||||
00841 DISPLAY 'T001 LIABLE COUNT :' DTSBD142
|
||||
00842 W-T001-LIAB-CNT. DTSBD142
|
||||
00843 DTSBD142
|
||||
00844 DISPLAY 'T001 FILE CLERK LIST COUNT :' DTSBD142
|
||||
00845 W-T001-FILE-CLERK-CNT. DTSBD142
|
||||
00846 DTSBD142
|
||||
00847 DISPLAY ' '. DTSBD142
|
||||
00848 DISPLAY 'T031 QUARTER PROCESS COUNT :' DTSBD142
|
||||
00849 W-T031-CNT. DTSBD142
|
||||
00850 DTSBD142
|
||||
00851 DISPLAY ' '. DTSBD142
|
||||
00852 DISPLAY 'R907 ERROR REPORT RECORD COUNT :' DTSBD142
|
||||
00853 W-R907-CNT. DTSBD142
|
||||
00854 DTSBD142
|
||||
00855 T0000-EXIT. DTSBD142
|
||||
00856 EXIT. DTSBD142
|
||||
00857 DTSBD142
|
||||
00858 S1000-INIT-MLOG. DTSBD142
|
||||
00859 MOVE T002-EMP-NO TO L331-EMP-NO. DTSBD142
|
||||
00860 MOVE W-CURR-RUN-DATE TO L331-CURR-RUN-DATE. DTSBD142
|
||||
00861 ADD +1000 TO W-SYS-ABSTIME. DTSBD142
|
||||
00862 MOVE W-SYS-ABSTIME TO L331-UPDATE-ABSTIME. DTSBD142
|
||||
00863 MOVE 'WEB REG' TO L331-OP-ID. DTSBD142
|
||||
00864 SET L005-FROM-ABSTIME TO TRUE. DTSBD142
|
||||
00865 MOVE W-SYS-ABSTIME TO L005-ABSTIME. DTSBD142
|
||||
00866 PERFORM S005-SYS-DATE THRU S005-EXIT. DTSBD142
|
||||
00867 MOVE L005-DATE-8-SLASH-TIME TO L331-REC-OCC-ID. DTSBD142
|
||||
00868 DTSBD142
|
||||
00869 S1000-EXIT. DTSBD142
|
||||
00870 EXIT. DTSBD142
|
||||
00871 DTSBD142
|
||||
00872 S001-FROM-FED-8. DTSBD142
|
||||
00873 SET L001-FROM-FED-8 TO TRUE. DTSBD142
|
||||
00874 GO TO S001-DATE. DTSBD142
|
||||
00875 DTSBD142
|
||||
00876 S001-FROM-ABS-DAY. DTSBD142
|
||||
00877 SET L001-FROM-ABS-DAY TO TRUE. DTSBD142
|
||||
00878 GO TO S001-DATE. DTSBD142
|
||||
00879 DTSBD142
|
||||
00880 S001-FROM-CAL-6. DTSBD142
|
||||
00881 SET L001-FROM-CAL-6 TO TRUE. DTSBD142
|
||||
00882 GO TO S001-DATE. DTSBD142
|
||||
00883 DTSBD142
|
||||
00884 S001-DATE. DTSBD142
|
||||
00885 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD142
|
||||
00886 S001-EXIT. DTSBD142
|
||||
00887 EXIT. DTSBD142
|
||||
00888 DTSBD142
|
||||
00889 S003-AGENCY-DAY. DTSBD142
|
||||
00890 SET L003-AGENCY-DAY TO TRUE. DTSBD142
|
||||
00891 GO TO S003-WORK-DAY. DTSBD142
|
||||
00892 DTSBD142
|
||||
00893 S003-WORK-DAY. DTSBD142
|
||||
00894 CALL 'DTSBU003' USING L003-LINK-AREA. DTSBD142
|
||||
00895 S003-EXIT. DTSBD142
|
||||
00896 EXIT. DTSBD142
|
||||
00897 DTSBD142
|
||||
00898 S004-FROM-DATE. DTSBD142
|
||||
00899 SET L004-FROM-DATE TO TRUE. DTSBD142
|
||||
00900 GO TO S004-YRQ. DTSBD142
|
||||
00901 DTSBD142
|
||||
00902 S004-FROM-5. DTSBD142
|
||||
00903 SET L004-FROM-5 TO TRUE. DTSBD142
|
||||
00904 GO TO S004-YRQ. DTSBD142
|
||||
00905 DTSBD142
|
||||
00906 S004-YRQ. DTSBD142
|
||||
00907 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD142
|
||||
00908 DTSBD142
|
||||
00909 S004-EXIT. DTSBD142
|
||||
00910 EXIT. DTSBD142
|
||||
00911 DTSBD142
|
||||
00912 S005-SYS-DATE. DTSBD142
|
||||
00913 CALL 'DTSBU005' USING L005-COMM-AREA. DTSBD142
|
||||
00914 DTSBD142
|
||||
00915 S005-EXIT. DTSBD142
|
||||
00916 EXIT. DTSBD142
|
||||
00917 DTSBD142
|
||||
00918 S331-WRITE-MLOG. DTSBD142
|
||||
00919 CALL 'DTSBU331' USING L331-LINK-AREA. DTSBD142
|
||||
00920 DTSBD142
|
||||
00921 S331-EXIT. DTSBD142
|
||||
00922 EXIT. DTSBD142
|
||||
00923 DTSBD142
|
||||
00924 S910-OPEN-UPDATE. DTSBD142
|
||||
00925 SET L910-OPEN-UPDATE-88 TO TRUE. DTSBD142
|
||||
00926 GO TO S910-MSTR-IO. DTSBD142
|
||||
00927 DTSBD142
|
||||
00928 S910-READ. DTSBD142
|
||||
00929 SET L910-READ-88 TO TRUE. DTSBD142
|
||||
00930 GO TO S910-MSTR-IO. DTSBD142
|
||||
00931 DTSBD142
|
||||
00932 S910-START-BROWSE. DTSBD142
|
||||
00933 SET L910-START-BROWSE-88 TO TRUE. DTSBD142
|
||||
00934 GO TO S910-MSTR-IO. DTSBD142
|
||||
00935 DTSBD142
|
||||
00936 S910-READ-NEXT. DTSBD142
|
||||
00937 SET L910-READ-NEXT-88 TO TRUE. DTSBD142
|
||||
00938 GO TO S910-MSTR-IO. DTSBD142
|
||||
00939 DTSBD142
|
||||
00940 S910-COUNT. DTSBD142
|
||||
00941 SET L910-COUNT-88 TO TRUE. DTSBD142
|
||||
00942 GO TO S910-MSTR-IO. DTSBD142
|
||||
00943 DTSBD142
|
||||
00944 S910-WRITE. DTSBD142
|
||||
00945 SET L910-WRITE-88 TO TRUE. DTSBD142
|
||||
00946 GO TO S910-MSTR-IO. DTSBD142
|
||||
00947 DTSBD142
|
||||
00948 S910-REWRITE. DTSBD142
|
||||
00949 SET L910-REWRITE-88 TO TRUE. DTSBD142
|
||||
00950 GO TO S910-MSTR-IO. DTSBD142
|
||||
00951 DTSBD142
|
||||
00952 S910-CLOSE. DTSBD142
|
||||
00953 SET L910-CLOSE-88 TO TRUE. DTSBD142
|
||||
00954 GO TO S910-MSTR-IO. DTSBD142
|
||||
00955 DTSBD142
|
||||
00956 S910-MSTR-IO. DTSBD142
|
||||
00957 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD142
|
||||
00958 MSKL-REC. DTSBD142
|
||||
00959 S910-EXIT. DTSBD142
|
||||
00960 EXIT. DTSBD142
|
||||
00961 DTSBD142
|
||||
00962 S946-WRITE-TRANS. DTSBD142
|
||||
00963 CALL 'DTSBU946' USING RSKL-REC. DTSBD142
|
||||
00964 DTSBD142
|
||||
00965 S946-EXIT. DTSBD142
|
||||
00966 EXIT. DTSBD142
|
||||
00967 DTSBD142
|
||||
00968 S999-ABEND. DTSBD142
|
||||
00969 DISPLAY '*** DTSBD142 ABENDING : ' DTSBD142
|
||||
00970 W-ABEND-MSG. DTSBD142
|
||||
00971 DTSBD142
|
||||
00972 CALL 'DTSBU999' USING W-ABEND-CD. DTSBD142
|
||||
00973 S999-EXIT. DTSBD142
|
||||
00974 EXIT. DTSBD142
|
||||
Reference in New Issue
Block a user