00001 IDENTIFICATION DIVISION. 07/12/99 00002 PROGRAM-ID. DTSBE727. DTSBE727 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV006 00004 DATE-WRITTEN. AUGUST 1994. DTSBE727 00005 DATE-COMPILED. DTSBE727 00006 SKIP3 DTSBE727 00007 ***** DTSBE727 00008 * DTSBE727 00009 * CALLING SEQUENCE: DTSBD400 CALLS CL**5 00010 * DTSBE727 WHICH UPDATES DTSIR727 CL**5 00011 * DTSBR727 READS DTSIR727 RECORDS. CL**5 00012 * CL**5 00013 * FUNCTION: LMI NEW/INACTIVATED EMPLOYER EXPORT. CL**6 00014 * DTSBE727 00015 * DTSBE727 00016 * MODIFICATION LOG: DTSBE727 00017 * DTSBE727 00018 * 03/02/99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS. CL**2 00019 * WORK ORDER: PROGRAMMER: DVS CL**2 00020 * DTSBE727 00021 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**2 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**2 00023 * WORK ORDER: PROGRAMMER: XXX CL**2 00024 * CL**2 00025 * DTSBE727 00026 * DESCRIPTION: DTSBE727 00027 * DTSBE727 00028 * DTSBE727 00029 * INITIATION: DTSBE727 00030 * DTSBE727 00031 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE727 00032 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE727 00033 * DTSBE727 00034 * EDIT AND DEFAULT PARAMETERS. SEE PRINTED OUTPUTS DTSBE727 00035 * DESCRIPTIONS AND LAYOUTS (727R1). DTSBE727 00036 * DTSBE727 00037 * DTSBE727 00038 * DTSBE727 00039 * PROCESSING: DTSBE727 00040 * DTSBE727 00041 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (727R1). DTSBE727 00042 * DTSBE727 00043 * DTSBE727 00044 * TERMINATION: DTSBE727 00045 * DTSBE727 00046 * NONE. DTSBE727 00047 * DTSBE727 00048 * DTSBE727 00049 * RECORDS READ: DTSBE727 00050 * DTSBE727 00051 * MASTER: DTSBE727 00052 * DTSBE727 00053 * MSOL DTSBE727 00054 * MREL DTSBE727 00055 * DTSBE727 00056 * DTSBE727 00057 * ALTERNATE INDEX: DTSBE727 00058 * DTSBE727 00059 * NONE. DTSBE727 00060 * DTSBE727 00061 * DTSBE727 00062 * REFERENCE: DTSBE727 00063 * DTSBE727 00064 * NONE. DTSBE727 00065 * DTSBE727 00066 * DTSBE727 00067 * RECORDS UPDATED: DTSBE727 00068 * DTSBE727 00069 * NONE. DTSBE727 00070 * DTSBE727 00071 * DTSBE727 00072 * REPORT RECORDS WRITTEN: DTSBE727 00073 * DTSBE727 00074 * R727 LMI NEW/INACTIVATED EMPLOYER EXPORT. CL**6 00075 * DTSBE727 00076 * DTSBE727 00077 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBE727 00078 * DTSBE727 00079 * NONE. DTSBE727 00080 * DTSBE727 00081 * DTSBE727 00082 * MODULES CALLED: DTSBE727 00083 * DTSBE727 00084 * DTSBU001 DATE CONVERSION/EDIT. CL**2 00085 * DTSBU910 MASTER FILE I/O. CL**2 00086 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. CL**2 00087 * DTSBE727 00088 * DTSBE727 00089 * VERMONT REFERENCE: DTSBE727 00090 * DTSBE727 00091 * NONE. DTSBE727 00092 * DTSBE727 00093 ***** DTSBE727 00094 SKIP3 DTSBE727 00095 ENVIRONMENT DIVISION. DTSBE727 00096 SKIP3 DTSBE727 00097 DATA DIVISION. DTSBE727 00098 EJECT DTSBE727 00099 WORKING-STORAGE SECTION. DTSBE727 000995 77 PAN-VALET PICTURE X(24) VALUE '006DTSBE727 07/12/99'. DTSBE727 00100 SKIP3 DTSBE727 00101 01 WRK-AREA. DTSBE727 00102 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +727.DTSBE727 00103 SKIP1 DTSBE727 00104 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE727'. CL**2 00105 SKIP3 DTSBE727 00106 05 ABEND-MSG PIC X(60). DTSBE727 00107 SKIP3 DTSBE727 00108 05 WRK-PARM-PERIOD-START-DATE PIC S9(09) COMP-3. DTSBE727 00109 SKIP1 DTSBE727 00110 05 WRK-PARM-PERIOD-END-DATE PIC S9(09) COMP-3. DTSBE727 00111 SKIP1 DTSBE727 00112 05 WRK-R727-REC-WRITTEN-IND PIC X(01). DTSBE727 00113 88 WRK-R727-REC-WRITTEN VALUE 'Y'. DTSBE727 00114 88 WRK-R727-NO-REC-WRITTEN VALUE 'N'. DTSBE727 00115 EJECT DTSBE727 00116 01 L001-LINK-AREA. DTSBE727 00117 ++INCLUDE DTSIL001 CL**2 00118 EJECT DTSBE727 00119 01 L910-LINK-AREA. DTSBE727 00120 ++INCLUDE DTSIL910 CL**2 00121 SKIP3 DTSBE727 00122 01 MSKL-REC. DTSBE727 00123 ++INCLUDE DTSIMSKL CL**2 00124 SKIP3 DTSBE727 00125 01 MSOL-REC. DTSBE727 00126 ++INCLUDE DTSIMSOL CL**2 00127 SKIP3 DTSBE727 00128 01 MREL-REC. DTSBE727 00129 ++INCLUDE DTSIMREL CL**2 00130 EJECT DTSBE727 00131 01 R727-REC. DTSBE727 00132 ++INCLUDE DTSIR727 CL**2 00133 EJECT DTSBE727 00134 LINKAGE SECTION. DTSBE727 00135 SKIP3 DTSBE727 00136 01 LECM-LINK-AREA. DTSBE727 00137 ++INCLUDE DTSILECM CL**2 00138 SKIP3 DTSBE727 00139 10 LECM-PARM-AREA REDEFINES LECM-EXTRACT-PARMS. DTSBE727 00140 15 LECM-PARM-PERIOD-START-DATE PIC X(06). DTSBE727 00141 15 FILLER PIC X(01). DTSBE727 00142 15 LECM-PARM-PERIOD-END-DATE PIC X(06). DTSBE727 00143 15 FILLER PIC X(55). DTSBE727 00144 EJECT DTSBE727 00145 01 MPRF-LINK-REC. DTSBE727 00146 ++INCLUDE DTSIMPRF CL**2 00147 EJECT DTSBE727 00148 ************************************************************** DTSBE727 00149 * PROCEDURE DIVISION FOR DTSBE727 STARTS HERE. CL**2 00150 ************************************************************** DTSBE727 00151 DTSBE727 00152 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE727 00153 MPRF-LINK-REC. DTSBE727 00154 SKIP2 DTSBE727 00155 MOVE LENGTH OF R727-REC TO R727-LENGTH. CL**4 00156 MOVE '727' TO R727-REC-TYPE. CL**4 00157 SKIP2 CL**4 00158 IF LECM-PROCESS-88 DTSBE727 00159 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE727 00160 ELSE DTSBE727 00161 IF LECM-INITIALIZE-88 DTSBE727 00162 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE727 00163 ELSE DTSBE727 00164 IF LECM-TERMINATE-88 DTSBE727 00165 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE727 00166 ELSE DTSBE727 00167 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE727 00168 TO ABEND-MSG DTSBE727 00169 PERFORM S999-ABEND THRU S999-EXIT. DTSBE727 00170 SKIP2 DTSBE727 00171 GOBACK. DTSBE727 00172 EJECT DTSBE727 00173 ************************************************************** DTSBE727 00174 * THIS PARAGRAPH PERFORMS THE INITIALIZATION PROCESS. DTSBE727 00175 ************************************************************** DTSBE727 00176 DTSBE727 00177 I0000-INITIALIZE. DTSBE727 00178 SKIP2 DTSBE727 00179 MOVE LECM-TRACE-IND TO L910-TRACE-IND. DTSBE727 00180 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBE727 00181 DTSBE727 00182 PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT. DTSBE727 00183 SKIP1 DTSBE727 00184 SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE727 00185 SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE727 00186 SKIP2 DTSBE727 00187 I0000-EXIT. DTSBE727 00188 EXIT. DTSBE727 00189 SKIP3 DTSBE727 00190 I1000-EDIT-AND-DEFAULT-PARMS. DTSBE727 00191 PERFORM I1100-PERIOD-START-DATE THRU I1100-EXIT. DTSBE727 00192 DTSBE727 00193 PERFORM I1200-PERIOD-END-DATE THRU I1200-EXIT. DTSBE727 00194 DTSBE727 00195 I1000-EXIT. DTSBE727 00196 EXIT. DTSBE727 00197 SKIP3 DTSBE727 00198 I1100-PERIOD-START-DATE. DTSBE727 00199 IF LECM-PARM-PERIOD-START-DATE = SPACES DTSBE727 00200 IF LECM-PERIOD-START-DATE > +0 DTSBE727 00201 MOVE LECM-PERIOD-START-DATE DTSBE727 00202 TO WRK-PARM-PERIOD-START-DATE DTSBE727 00203 ELSE DTSBE727 00204 MOVE 'PERIOD-START-DATE MISSING' DTSBE727 00205 TO ABEND-MSG DTSBE727 00206 PERFORM S999-ABEND THRU S999-EXIT DTSBE727 00207 ELSE DTSBE727 00208 MOVE LECM-PARM-PERIOD-START-DATE TO L001-CAL-6-DATE-X DTSBE727 00209 PERFORM S001-FROM-CAL-6 THRU S001-EXIT DTSBE727 00210 IF L001-VALID-DATE DTSBE727 00211 MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-START-DATE DTSBE727 00212 ELSE DTSBE727 00213 MOVE 'PERIOD-START-DATE NOT VALID' DTSBE727 00214 TO ABEND-MSG DTSBE727 00215 PERFORM S999-ABEND THRU S999-EXIT. DTSBE727 00216 I1100-EXIT. DTSBE727 00217 EXIT. DTSBE727 00218 EJECT DTSBE727 00219 I1200-PERIOD-END-DATE. DTSBE727 00220 IF LECM-PARM-PERIOD-END-DATE = SPACES DTSBE727 00221 IF LECM-PERIOD-END-DATE > +0 DTSBE727 00222 MOVE LECM-PERIOD-END-DATE DTSBE727 00223 TO WRK-PARM-PERIOD-END-DATE DTSBE727 00224 ELSE DTSBE727 00225 MOVE 'PERIOD-END-DATE MISSING' DTSBE727 00226 TO ABEND-MSG DTSBE727 00227 PERFORM S999-ABEND THRU S999-EXIT DTSBE727 00228 ELSE DTSBE727 00229 MOVE LECM-PARM-PERIOD-END-DATE TO L001-CAL-6-DATE-X DTSBE727 00230 PERFORM S001-FROM-CAL-6 THRU S001-EXIT DTSBE727 00231 IF L001-VALID-DATE DTSBE727 00232 MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-END-DATE DTSBE727 00233 ELSE DTSBE727 00234 MOVE 'PERIOD-END-DATE NOT VALID' DTSBE727 00235 TO ABEND-MSG DTSBE727 00236 PERFORM S999-ABEND THRU S999-EXIT. DTSBE727 00237 DTSBE727 00238 IF WRK-PARM-PERIOD-START-DATE > WRK-PARM-PERIOD-END-DATE DTSBE727 00239 MOVE 'PERIOD START DATE IS GREATER THAN PERIOD END DATE' DTSBE727 00240 TO ABEND-MSG DTSBE727 00241 PERFORM S999-ABEND THRU S999-EXIT. DTSBE727 00242 I1200-EXIT. DTSBE727 00243 EXIT. DTSBE727 00244 EJECT DTSBE727 00245 ************************************************************** DTSBE727 00246 * THIS IS THE PROCESS PARAGRAPH FOR DTSBE727 - R & A CL**2 00247 * NEW AND INACTIVATED EMPLOYER REPORT. DTSBE727 00248 ************************************************************** DTSBE727 00249 DTSBE727 00250 P0000-PROCESS. DTSBE727 00251 DTSBE727 00252 MOVE LOW-VALUES TO MSOL-KEY-AREA. DTSBE727 00253 MOVE MPRF-EMP-NO TO MSOL-EMP-NO. DTSBE727 00254 SET MSOL-SOL-88 TO TRUE. DTSBE727 00255 MOVE MSOL-KEY-AREA TO MSKL-KEY-AREA. DTSBE727 00256 DTSBE727 00257 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE727 00258 DTSBE727 00259 SET WRK-R727-NO-REC-WRITTEN TO TRUE. DTSBE727 00260 DTSBE727 00261 PERFORM P1000-SCAN-MSOL THRU P1000-EXIT DTSBE727 00262 UNTIL L910-NO-REC-88 OR DTSBE727 00263 WRK-R727-REC-WRITTEN. DTSBE727 00264 DTSBE727 00265 P0000-EXIT. DTSBE727 00266 EXIT. DTSBE727 00267 EJECT DTSBE727 00268 ************************************************************** DTSBE727 00269 * THIS PARAGRAPH SCANS THE MSOL RECORDS AND WRITES AN R727 DTSBE727 00270 * RECORD IF THE EMPLOYER ESTABLISHED A NEW SPAN OF LIABILITY DTSBE727 00271 * WITHIN THE PARM PERIOD, OR BECAME INACTIVE DURING THE DTSBE727 00272 * PERIOD. DTSBE727 00273 ************************************************************** DTSBE727 00274 DTSBE727 00275 P1000-SCAN-MSOL. DTSBE727 00276 DTSBE727 00277 MOVE MSKL-REC TO MSOL-REC. DTSBE727 00278 DTSBE727 00279 IF MSOL-ESTB-DATE LESS THAN WRK-PARM-PERIOD-START-DATE OR DTSBE727 00280 MSOL-ESTB-DATE GREATER THAN WRK-PARM-PERIOD-END-DATE DTSBE727 00281 IF MSOL-INACT-ACTIVE-88 DTSBE727 00282 IF MSOL-INACT-REVERSE-DATE DTSBE727 00283 LESS THAN WRK-PARM-PERIOD-START-DATE OR DTSBE727 00284 MSOL-INACT-REVERSE-DATE DTSBE727 00285 GREATER THAN WRK-PARM-PERIOD-END-DATE DTSBE727 00286 NEXT SENTENCE DTSBE727 00287 ELSE DTSBE727 00288 SET R727-LIAB-CHANGE-RVRSE-88 TO TRUE DTSBE727 00289 SET WRK-R727-REC-WRITTEN TO TRUE DTSBE727 00290 PERFORM P1100-SETUP-R727 THRU P1100-EXIT DTSBE727 00291 PERFORM S946-WRITE-R727 THRU S946-EXIT DTSBE727 00292 GO TO P1000-EXIT DTSBE727 00293 ELSE DTSBE727 00294 IF MSOL-INACT-ENTER-DATE LESS THAN DTSBE727 00295 WRK-PARM-PERIOD-START-DATE DTSBE727 00296 OR DTSBE727 00297 MSOL-INACT-ENTER-DATE GREATER THAN DTSBE727 00298 WRK-PARM-PERIOD-END-DATE DTSBE727 00299 NEXT SENTENCE DTSBE727 00300 ELSE DTSBE727 00301 SET R727-LIAB-CHANGE-INACT-88 TO TRUE DTSBE727 00302 SET WRK-R727-REC-WRITTEN TO TRUE DTSBE727 00303 PERFORM P1100-SETUP-R727 THRU P1100-EXIT DTSBE727 00304 PERFORM S946-WRITE-R727 THRU S946-EXIT DTSBE727 00305 GO TO P1000-EXIT DTSBE727 00306 ELSE DTSBE727 00307 IF MSOL-INACT-ACTIVE-88 DTSBE727 00308 SET R727-LIAB-CHANGE-ESTB-88 TO TRUE DTSBE727 00309 SET WRK-R727-REC-WRITTEN TO TRUE DTSBE727 00310 PERFORM P1100-SETUP-R727 THRU P1100-EXIT DTSBE727 00311 PERFORM S946-WRITE-R727 THRU S946-EXIT DTSBE727 00312 GO TO P1000-EXIT. DTSBE727 00313 DTSBE727 00314 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE727 00315 DTSBE727 00316 P1000-EXIT. DTSBE727 00317 EXIT. DTSBE727 00318 EJECT DTSBE727 00319 *************************************************************** DTSBE727 00320 * THIS PARAGRAPH SETS UP THE R727 EXTRACT RECORD. IT ALSO DTSBE727 00321 * FINDS THE LAST MREL RECORD TO DETERMINE IF THIS IS A DTSBE727 00322 * SUCCESSOR EMPLOYER AND WHAT THE PREDECESSOR'S EMPLOYER DTSBE727 00323 * NUMBER WAS. DTSBE727 00324 *************************************************************** DTSBE727 00325 DTSBE727 00326 P1100-SETUP-R727. DTSBE727 00327 DTSBE727 00328 MOVE MPRF-EMP-NO TO R727-EMP-NO. DTSBE727 00329 MOVE WRK-PARM-PERIOD-START-DATE DTSBE727 00330 TO R727-PERIOD-START-DATE. DTSBE727 00331 MOVE WRK-PARM-PERIOD-END-DATE TO R727-PERIOD-END-DATE. DTSBE727 00332 * MOVE MPRF-AREA-CD TO R727-AREA-CD. CL**3 00333 MOVE MPRF-SIC-CD TO R727-SIC-CD. CL**3 00334 DTSBE727 00335 MOVE LOW-VALUES TO MREL-KEY-AREA. DTSBE727 00336 MOVE MPRF-EMP-NO TO MREL-EMP-NO. DTSBE727 00337 SET MREL-REL-88 TO TRUE. DTSBE727 00338 MOVE MREL-KEY-AREA TO MSKL-KEY-AREA. DTSBE727 00339 DTSBE727 00340 PERFORM S910-COUNT THRU S910-EXIT. DTSBE727 00341 DTSBE727 00342 IF L910-RECORD-CNT EQUAL ZERO DTSBE727 00343 MOVE ZEROS TO R727-PRED-EMP-NO DTSBE727 00344 ELSE DTSBE727 00345 MOVE MSKL-KEY-AREA TO MREL-KEY-AREA DTSBE727 00346 MOVE MREL-PRED-EMP-NO TO R727-PRED-EMP-NO. DTSBE727 00347 DTSBE727 00348 P1100-EXIT. DTSBE727 00349 EXIT. DTSBE727 00350 EJECT DTSBE727 00351 T0000-TERMINATE. DTSBE727 00352 SKIP2 DTSBE727 00353 SKIP2 DTSBE727 00354 T0000-EXIT. DTSBE727 00355 EXIT. DTSBE727 00356 EJECT DTSBE727 00357 S001-FROM-FED-8. DTSBE727 00358 SET L001-FROM-FED-8 TO TRUE. DTSBE727 00359 GO TO S001-DATE. DTSBE727 00360 SKIP1 DTSBE727 00361 S001-FROM-CAL-6. DTSBE727 00362 SET L001-FROM-CAL-6 TO TRUE. DTSBE727 00363 GO TO S001-DATE. DTSBE727 00364 SKIP1 DTSBE727 00365 S001-FROM-ABS-DAY. DTSBE727 00366 SET L001-FROM-ABS-DAY TO TRUE. DTSBE727 00367 GO TO S001-DATE. DTSBE727 00368 SKIP1 DTSBE727 00369 S001-DATE. DTSBE727 00370 CALL 'DTSBU001' USING L001-LINK-AREA. CL**2 00371 S001-EXIT. DTSBE727 00372 EXIT. DTSBE727 00373 SKIP3 DTSBE727 00374 S910-READ. DTSBE727 00375 SET L910-READ-88 TO TRUE. DTSBE727 00376 GO TO S910-MSTR-IO. DTSBE727 00377 SKIP1 DTSBE727 00378 S910-START-BROWSE. DTSBE727 00379 SET L910-START-BROWSE-88 TO TRUE. DTSBE727 00380 GO TO S910-MSTR-IO. DTSBE727 00381 SKIP1 DTSBE727 00382 S910-READ-NEXT. DTSBE727 00383 SET L910-READ-NEXT-88 TO TRUE. DTSBE727 00384 GO TO S910-MSTR-IO. DTSBE727 00385 SKIP1 DTSBE727 00386 S910-COUNT. DTSBE727 00387 SET L910-COUNT-88 TO TRUE. DTSBE727 00388 GO TO S910-MSTR-IO. DTSBE727 00389 SKIP1 DTSBE727 00390 S910-MSTR-IO. DTSBE727 00391 CALL 'DTSBU910' USING L910-LINK-AREA CL**2 00392 MSKL-REC. DTSBE727 00393 S910-EXIT. DTSBE727 00394 EXIT. DTSBE727 00395 SKIP3 DTSBE727 00396 S946-WRITE-R727. DTSBE727 00397 CALL 'DTSBU946' USING R727-REC. CL**2 00398 GO TO S946-EXIT. DTSBE727 00399 SKIP1 DTSBE727 00400 S946-EXIT. DTSBE727 00401 EXIT. DTSBE727 00402 SKIP3 DTSBE727 00403 S999-ABEND. DTSBE727 00404 DISPLAY '*** DTSBE727 ABENDING. ' CL**2 00405 ABEND-MSG. DTSBE727 00406 SKIP1 DTSBE727 00407 CALL 'DTSBU999' USING WRK-ABEND-CD. CL**2 00408 S999-EXIT. DTSBE727 00409 EXIT. DTSBE727