00001  IDENTIFICATION DIVISION.                                         02/27/13
00002  PROGRAM-ID.             DTSBE713.                                DTSBE713
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV010
00004  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBE713
00005  DATE-COMPILED.                                                   DTSBE713
00006      SKIP3                                                        DTSBE713
00007 *************************************************************        CL*10
00008 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>>        CL*10
00009 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>>        CL*10
00010 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>>        CL*10
00011 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>>        CL*10
00012 *************************************************************        CL*10
00013 *                                                                 DTSBE713
00014 *    FUNCTION:  ETA-581 PROCESSING.                               DTSBE713
00015 *                                                                 DTSBE713
00016 *                                                                 DTSBE713
00017 *    MODIFICATION LOG:                                            DTSBE713
00018 *                                                                 DTSBE713
00019 *    02/25/99  MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS.    CL**3
00020 *              WORK ORDER:                      PROGRAMMER:  DVS     CL**3
00021 *                                                                 DTSBE713
00022 *    05/24/1999  PICKUP MODIFICATION.  WHEN MQTR-YRQ IS EQUAL TO     CL**8
00023 *                LECM-PICKUP-YRQ, BYPASS RECEIVABLES PROCESSING.     CL**8
00024 *                REFERENCE: PICKUP DIR          PROGRAMMER: EHH      CL**8
00025 *                                                                    CL**8
00026 *    02/23/2000  ADDED *-INDCON-TO-EMPL-CNT PROCESSING.              CL**9
00027 *                REFERENCE: UIPL 03-99          PROGRAMMER: EHH      CL**9
00028 *                                                                    CL**9
00029 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**9
00030 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**9
00031 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX      CL**9
00032 *                                                                    CL**3
00033 *                                                                 DTSBE713
00034 *  DESCRIPTION:                                                   DTSBE713
00035 *                                                                 DTSBE713
00036 *                                                                 DTSBE713
00037 *    INITIATION:                                                  DTSBE713
00038 *                                                                 DTSBE713
00039 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE713
00040 *      SET LECM-REF-OPEN-UPDATE-88 TO TRUE.                       DTSBE713
00041 *                                                                 DTSBE713
00042 *      EDIT AND DEFAULT PARAMETERS.                               DTSBE713
00043 *                                                                 DTSBE713
00044 *                                                                 DTSBE713
00045 *    PROCESSING:                                                  DTSBE713
00046 *                                                                 DTSBE713
00047 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (713R1).       DTSBE713
00048 *                                                                 DTSBE713
00049 *                                                                 DTSBE713
00050 *    TERMINATION:                                                 DTSBE713
00051 *                                                                 DTSBE713
00052 *      WRITE A R713 RECORD AND WRITE (OR REWRITE A F581 RECORD).  DTSBE713
00053 *                                                                 DTSBE713
00054 *                                                                 DTSBE713
00055 *    RECORDS READ:                                                DTSBE713
00056 *                                                                 DTSBE713
00057 *      MASTER:                                                    DTSBE713
00058 *                                                                 DTSBE713
00059 *        MSOL                                                     DTSBE713
00060 *        MERD                                                     DTSBE713
00061 *        MQTR                                                     DTSBE713
00062 *        MRPT                                                     DTSBE713
00063 *        MJRN                                                     DTSBE713
00064 *        MFAS                                                     DTSBE713
00065 *        MAUR                                                     DTSBE713
00066 *        MAUY                                                     DTSBE713
00067 *                                                                 DTSBE713
00068 *                                                                 DTSBE713
00069 *      ALTERNATE INDEX:                                           DTSBE713
00070 *                                                                 DTSBE713
00071 *        NONE.                                                    DTSBE713
00072 *                                                                 DTSBE713
00073 *                                                                 DTSBE713
00074 *      REFERENCE:                                                 DTSBE713
00075 *                                                                 DTSBE713
00076 *        F581.                                                    DTSBE713
00077 *        FQTR.                                                    DTSBE713
00078 *                                                                 DTSBE713
00079 *                                                                 DTSBE713
00080 *    RECORDS UPDATED:                                             DTSBE713
00081 *                                                                 DTSBE713
00082 *        F581 (WRITE, REWRITE).                                   DTSBE713
00083 *                                                                 DTSBE713
00084 *                                                                 DTSBE713
00085 *    REPORT RECORDS WRITTEN:                                      DTSBE713
00086 *                                                                 DTSBE713
00087 *        R713 ETA-581 DOWNLOAD TRIGGER.                           DTSBE713
00088 *                                                                 DTSBE713
00089 *                                                                 DTSBE713
00090 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE713
00091 *                                                                 DTSBE713
00092 *        NONE.                                                    DTSBE713
00093 *                                                                 DTSBE713
00094 *                                                                 DTSBE713
00095 *    MODULES CALLED:                                              DTSBE713
00096 *                                                                 DTSBE713
00097 *        DTSBU001  DATE EDIT/CONVERSION.                             CL**2
00098 *        DTSBU004  QUARTER EDIT/CONVERSION.                          CL**2
00099 *        DTSBU005  ABSOLUTE TIME CONVERSION/EDIT.                    CL**2
00100 *        DTSBU910  MASTER FILE I/O.                                  CL**2
00101 *        DTSBU931  REFERENCE FILE I/O.                               CL**2
00102 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.      CL**2
00103 *                                                                 DTSBE713
00104 *                                                                 DTSBE713
00105 *    VERMONT REFERENCE:                                           DTSBE713
00106 *                                                                 DTSBE713
00107 *        TXBE395                                                  DTSBE713
00108 *                                                                 DTSBE713
00109 *****                                                             DTSBE713
00110      SKIP3                                                        DTSBE713
00111  ENVIRONMENT DIVISION.                                            DTSBE713
00112      EJECT                                                        DTSBE713
00113  DATA DIVISION.                                                   DTSBE713
00114      SKIP3                                                        DTSBE713
00115  WORKING-STORAGE SECTION.                                         DTSBE713
001155 77  PAN-VALET PICTURE X(24) VALUE '010DTSBE713  02/27/13'.       DTSBE713
00116      SKIP3                                                        DTSBE713
00117  01  WRK-AREA.                                                    DTSBE713
00118      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +713.DTSBE713
00119                                                                   DTSBE713
00120      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE713'.   CL**2
00121                                                                   DTSBE713
00122      05  ALL-NINES-YRQ               PIC S9(05)  COMP-3           DTSBE713
00123                                                  VALUE +99999.    DTSBE713
00124      SKIP3                                                        DTSBE713
00125      05  ABEND-MSG                       PIC  X(60).              DTSBE713
00126      SKIP3                                                        DTSBE713
00127      05  WRK-PARM-SUBJECT-YRQ        PIC S9(05)  COMP-3.          DTSBE713
00128                                                                   DTSBE713
00129      05  WRK-PARM-EST-AVG-DUE        PIC S9(05)  COMP-3.          DTSBE713
00130                                                                   DTSBE713
00131      05  WRK-PARM-TIMING-EDITS-IND   PIC  X(01).                  DTSBE713
00132          88  WRK-PARM-TIMING-EDITS-YES-88   VALUE 'Y'.            DTSBE713
00133          88  WRK-PARM-TIMING-EDITS-NO-88    VALUE 'N'.            DTSBE713
00134                                                                   DTSBE713
00135      05  WRK-PARM-MSTR-UPDATE-IND    PIC  X(01).                  DTSBE713
00136          88  WRK-PARM-MSTR-UPDATE-YES-88    VALUE 'Y'.            DTSBE713
00137          88  WRK-PARM-MSTR-UPDATE-NO-88     VALUE 'N'.            DTSBE713
00138      SKIP3                                                        DTSBE713
00139      05  WRK-PERIOD-START-DATE      PIC S9(09)  COMP-3.           DTSBE713
00140                                                                   DTSBE713
00141      05  WRK-PERIOD-END-DATE        PIC S9(09)  COMP-3.           DTSBE713
00142      SKIP3                                                        DTSBE713
00143      05  WRK-ZERO-TOT-WAGE-START-YRQ                              DTSBE713
00144                                     PIC S9(05)  COMP-3.           DTSBE713
00145      05  WRK-ZERO-TOT-WAGE-END-YRQ  PIC S9(05)  COMP-3.           DTSBE713
00146      SKIP3                                                        DTSBE713
00147      05  WRK-DEL-NOTICE-YRQ          PIC S9(05)  COMP-3.          DTSBE713
00148                                                                   DTSBE713
00149      05  WRK-DEL-NOTICE-DATE         PIC S9(09)  COMP-3.          DTSBE713
00150                                                                   DTSBE713
00151      05  WRK-DEL-NOTICE-MINUS-ONE-YRQ                             DTSBE713
00152                                      PIC S9(05)  COMP-3.          DTSBE713
00153                                                                   DTSBE713
00154      05  WRK-ITEM13-YRQ-CNT          PIC S9(07)  COMP-3.          DTSBE713
00155      SKIP3                                                        DTSBE713
00156      05  WRK-CON-RECVBL-BEG-PERIOD   PIC S9(11)V9(02)  COMP-3.    DTSBE713
00157                                                                   DTSBE713
00158      05  WRK-REIMB-RECVBL-BEG-PERIOD PIC S9(11)V9(02)  COMP-3.    DTSBE713
00159                                                                   DTSBE713
00160      05  WRK-RECVBL-9-MOS-YRQ        PIC S9(05)        COMP-3.    DTSBE713
00161                                                                   DTSBE713
00162      05  WRK-RECVBL-12-MOS-YRQ       PIC S9(05)        COMP-3.    DTSBE713
00163                                                                   DTSBE713
00164      05  WRK-RECVBL-15-MOS-YRQ       PIC S9(05)        COMP-3.    DTSBE713
00165                                                                   DTSBE713
00166      05  WRK-REMOVED-YRQ-1           PIC S9(05)        COMP-3.    DTSBE713
00167                                                                   DTSBE713
00168      05  WRK-REMOVED-YRQ-2           PIC S9(05)        COMP-3.    DTSBE713
00169      SKIP3                                                        DTSBE713
00170      05  WRK-PERIOD-START-ABSTIME    PIC S9(15)        COMP-3.    DTSBE713
00171      SKIP3                                                        DTSBE713
00172      05  WRK-ACTIVE-DURING-PERIOD-IND                             DTSBE713
00173                                      PIC  X(01).                  DTSBE713
00174                                                                   DTSBE713
00175      05  WRK-ALL-ZERO-TOT-WAGE-IND   PIC  X(01).                  DTSBE713
00176          88  WRK-ALL-ZERO-TOT-WAGE-YES-88   VALUE 'Y'.            DTSBE713
00177          88  WRK-ALL-ZERO-TOT-WAGE-NO-88    VALUE 'N'.            DTSBE713
00178                                                                   DTSBE713
00179      05  WRK-ENTRY-JUL-ABS-DAY       PIC S9(08)  COMP.            DTSBE713
00180                                                                   DTSBE713
00181      05  WRK-TIME-LAPSE-DAYS         PIC S9(08)  COMP.            DTSBE713
00182      SKIP3                                                        DTSBE713
00183      05  WRK-ORIG-RPT-RECEIVED-DATE  PIC S9(09)        COMP-3.    DTSBE713
00184      SKIP3                                                        DTSBE713
00185      05  WRK-TOT-UI-BALANCE-OVERDUE  PIC S9(09)V9(02)  COMP-3.    DTSBE713
00186      SKIP3                                                        DTSBE713
00187      05  WRK-QTR-MAX                 PIC S9(04)  COMP  VALUE +400.DTSBE713
00188                                                                   DTSBE713
00189      05  WRK-QTR-SUB                 PIC S9(04)  COMP.            DTSBE713
00190                                                                   DTSBE713
00191      05  WRK-QTR-CNT                 PIC S9(04)  COMP.            DTSBE713
00192                                                                   DTSBE713
00193      05  WRK-QTR-AREA OCCURS 400 TIMES                            DTSBE713
00194                       INDEXED BY WRK-QTR-IDX.                     DTSBE713
00195          10  WRK-QTR-YRQ                 PIC S9(05)  COMP-3.      DTSBE713
00196          10  WRK-QTR-PREV-REMOVED-IND    PIC  X(01).              DTSBE713
00197              88  WRK-QTR-PREV-REMOVED-YES-88    VALUE 'Y'.        DTSBE713
00198              88  WRK-QTR-PREV-REMOVED-NO-88     VALUE 'N'.        DTSBE713
00199          10  WRK-QTR-PREV-UNCOLLECT-IND  PIC  X(01).              DTSBE713
00200              88  WRK-QTR-PREV-UNCOLLECT-YES-88  VALUE 'Y'.        DTSBE713
00201              88  WRK-QTR-PREV-UNCOLLECT-NO-88   VALUE 'N'.        DTSBE713
00202          10  WRK-QTR-TAX-DUE-DATE        PIC S9(09)  COMP-3.      DTSBE713
00203                                                                   DTSBE713
00204      05  WRK-QTR-UI-BALANCE-AMT      PIC S9(09)V9(02)  COMP-3.    DTSBE713
00205                                                                   DTSBE713
00206      05  WRK-QTR-UI-WRITTEN-OFF-AMT  PIC S9(09)V9(02)  COMP-3.       CL**4
00207                                                                   DTSBE713
00208      05  WRK-MJRN-YRQ                PIC S9(05)        COMP-3.    DTSBE713
00209      SKIP3                                                        DTSBE713
00210      05  WRK-CHANGE-AUDIT-IND        PIC  X(01).                  DTSBE713
00211                                                                   DTSBE713
00212      05  DISPLAY-AMT-X               PIC  X(15).                  DTSBE713
00213      05  DISPLAY-AMT REDEFINES DISPLAY-AMT-X                      DTSBE713
00214                                      PIC  ZZZ,ZZZ,ZZ9.99-.        DTSBE713
00215      EJECT                                                        DTSBE713
00216  01  L001-LINK-AREA.                                              DTSBE713
00217  ++INCLUDE DTSIL001                                                  CL**2
00218      EJECT                                                        DTSBE713
00219  01  L004-LINK-AREA.                                              DTSBE713
00220  ++INCLUDE DTSIL004                                                  CL**2
00221      EJECT                                                        DTSBE713
00222  01  L005-LINK-AREA.                                              DTSBE713
00223  ++INCLUDE DTSIL005                                                  CL**2
00224      EJECT                                                        DTSBE713
00225  01  L910-LINK-AREA.                                              DTSBE713
00226  ++INCLUDE DTSIL910                                                  CL**2
00227      SKIP3                                                        DTSBE713
00228  01  MSKL-REC.                                                    DTSBE713
00229  ++INCLUDE DTSIMSKL                                                  CL**2
00230      SKIP3                                                        DTSBE713
00231  01  MSOL-REC.                                                    DTSBE713
00232  ++INCLUDE DTSIMSOL                                                  CL**2
00233      SKIP3                                                        DTSBE713
00234  01  MERD-REC.                                                    DTSBE713
00235  ++INCLUDE DTSIMERD                                                  CL**2
00236      SKIP3                                                        DTSBE713
00237  01  MQTR-REC.                                                    DTSBE713
00238  ++INCLUDE DTSIMQTR                                                  CL**2
00239      SKIP3                                                        DTSBE713
00240  01  MRPT-REC.                                                    DTSBE713
00241  ++INCLUDE DTSIMRPT                                                  CL**2
00242      SKIP3                                                        DTSBE713
00243  01  MJRN-REC.                                                    DTSBE713
00244  ++INCLUDE DTSIMJRN                                                  CL**2
00245      SKIP3                                                        DTSBE713
00246  01  MFAS-REC.                                                    DTSBE713
00247  ++INCLUDE DTSIMFAS                                                  CL**2
00248      SKIP3                                                        DTSBE713
00249  01  MAUR-REC.                                                    DTSBE713
00250  ++INCLUDE DTSIMAUR                                                  CL**2
00251      SKIP3                                                        DTSBE713
00252  01  MAUY-REC.                                                    DTSBE713
00253  ++INCLUDE DTSIMAUY                                                  CL**2
00254      EJECT                                                        DTSBE713
00255  01  L931-LINK-AREA.                                              DTSBE713
00256  ++INCLUDE DTSIL931                                                  CL**2
00257      SKIP3                                                        DTSBE713
00258  01  FSKL-REC.                                                    DTSBE713
00259  ++INCLUDE DTSIFSKL                                                  CL**2
00260      SKIP3                                                        DTSBE713
00261  01  F581-REC.                                                    DTSBE713
00262  ++INCLUDE DTSIF581                                                  CL**2
00263      SKIP3                                                        DTSBE713
00264  01  FQTR-REC.                                                    DTSBE713
00265  ++INCLUDE DTSIFQTR                                                  CL**2
00266      EJECT                                                        DTSBE713
00267  01  R713-REC.                                                    DTSBE713
00268  ++INCLUDE DTSIR713                                                  CL**2
00269      EJECT                                                        DTSBE713
00270  01  MMAX-LITERALS.                                               DTSBE713
00271  ++INCLUDE DTSIMMAX                                                  CL**2
00272      EJECT                                                        DTSBE713
00273  LINKAGE SECTION.                                                 DTSBE713
00274      SKIP3                                                        DTSBE713
00275  01  LECM-LINK-AREA.                                              DTSBE713
00276  ++INCLUDE DTSILECM                                                  CL**2
00277      SKIP3                                                        DTSBE713
00278          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE713
00279              15  LECM-PARM-SUBJECT-YRQ        PIC  X(03).         DTSBE713
00280              15  FILLER                       PIC  X(01).         DTSBE713
00281              15  LECM-PARM-EST-AVG-DUE        PIC  X(05).         DTSBE713
00282              15  LECM-PARM-EST-AVG-DUE-9                          DTSBE713
00283                  REDEFINES LECM-PARM-EST-AVG-DUE                  DTSBE713
00284                                               PIC  9(05).         DTSBE713
00285              15  FILLER                       PIC  X(01).         DTSBE713
00286              15  LECM-PARM-TIMING-EDITS-IND   PIC  X(01).         DTSBE713
00287              15  FILLER                       PIC  X(01).         DTSBE713
00288              15  LECM-PARM-MSTR-UPDATE-IND    PIC  X(01).         DTSBE713
00289              15  FILLER                       PIC  X(55).         DTSBE713
00290      EJECT                                                        DTSBE713
00291  01  MPRF-LINK-REC.                                               DTSBE713
00292  ++INCLUDE DTSIMPRF                                                  CL**2
00293      EJECT                                                        DTSBE713
00294  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE713
00295                           MPRF-LINK-REC.                          DTSBE713
00296      SKIP2                                                        DTSBE713
00297      MOVE LENGTH OF R713-REC TO R713-LENGTH.                         CL**4
00298      MOVE '713'  TO R713-REC-TYPE.                                   CL**4
00299      IF LECM-PROCESS-88                                           DTSBE713
00300          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE713
00301      ELSE                                                         DTSBE713
00302      IF LECM-INITIALIZE-88                                        DTSBE713
00303          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE713
00304      ELSE                                                         DTSBE713
00305      IF LECM-TERMINATE-88                                         DTSBE713
00306          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE713
00307      ELSE                                                         DTSBE713
00308          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE713
00309            TO ABEND-MSG                                           DTSBE713
00310          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE713
00311      SKIP2                                                        DTSBE713
00312      GOBACK.                                                      DTSBE713
00313      EJECT                                                        DTSBE713
00314  I0000-INITIALIZE.                                                DTSBE713
00315      SKIP2                                                        DTSBE713
00316      MOVE LECM-TRACE-IND TO L910-TRACE-IND                        DTSBE713
00317                             L931-TRACE-IND.                       DTSBE713
00318      MOVE WRK-MOD-NAME TO L910-MOD-NAME                           DTSBE713
00319                           L931-MOD-NAME.                          DTSBE713
00320                                                                   DTSBE713
00321      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE713
00322                                                                   DTSBE713
00323      PERFORM I2100-PERIOD-DATES THRU I2100-EXIT.                  DTSBE713
00324                                                                   DTSBE713
00325      IF WRK-PARM-TIMING-EDITS-YES-88                              DTSBE713
00326          PERFORM I2200-TIMING-EDITS THRU I2200-EXIT.              DTSBE713
00327                                                                   DTSBE713
00328      PERFORM I2300-DEL-NOTICE-INFO THRU I2300-EXIT.               DTSBE713
00329                                                                   DTSBE713
00330      PERFORM I2400-ZERO-TOT-WAGE-YRQS THRU I2400-EXIT.            DTSBE713
00331                                                                   DTSBE713
00332      MOVE +0 TO WRK-ITEM13-YRQ-CNT.                               DTSBE713
00333                                                                   DTSBE713
00334      PERFORM I2700-PERIOD-START-ABSTIME THRU I2700-EXIT.          DTSBE713
00335                                                                   DTSBE713
00336      PERFORM I2800-RECVBL-YRQS THRU I2800-EXIT.                   DTSBE713
00337                                                                   DTSBE713
00338      PERFORM I2900-BEG-PERIOD-RECEIVABLES THRU I2900-EXIT.        DTSBE713
00339                                                                   DTSBE713
00340      PERFORM I3100-INITIALIZE-F581 THRU I3100-EXIT.               DTSBE713
00341                                                                   DTSBE713
00342      PERFORM I4100-DISPLAY THRU I4100-EXIT.                       DTSBE713
00343                                                                   DTSBE713
00344      IF WRK-PARM-MSTR-UPDATE-YES-88                               DTSBE713
00345          SET LECM-MST-OPEN-UPDATE-88 TO TRUE                      DTSBE713
00346      ELSE                                                         DTSBE713
00347          SET LECM-MST-OPEN-READ-88 TO TRUE.                       DTSBE713
00348                                                                   DTSBE713
00349      SET LECM-REF-OPEN-UPDATE-88 TO TRUE.                         DTSBE713
00350      SKIP2                                                        DTSBE713
00351  I0000-EXIT.                                                      DTSBE713
00352      EXIT.                                                        DTSBE713
00353      EJECT                                                        DTSBE713
00354  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE713
00355      PERFORM I1100-SUBJECT-YRQ THRU I1100-EXIT.                   DTSBE713
00356                                                                   DTSBE713
00357      PERFORM I1200-EST-AVG-DUE THRU I1200-EXIT.                   DTSBE713
00358                                                                   DTSBE713
00359      PERFORM I1300-TIMING-EDITS-IND THRU I1300-EXIT.              DTSBE713
00360                                                                   DTSBE713
00361      PERFORM I1400-MSTR-UPDATE-IND THRU I1400-EXIT.               DTSBE713
00362  I1000-EXIT.                                                      DTSBE713
00363      EXIT.                                                        DTSBE713
00364      SKIP3                                                        DTSBE713
00365  I1100-SUBJECT-YRQ.                                               DTSBE713
00366      IF LECM-PARM-SUBJECT-YRQ = SPACES                            DTSBE713
00367          IF LECM-QTR-END                                          DTSBE713
00368              MOVE LECM-PERIOD-END-DATE TO L004-DATE               DTSBE713
00369              PERFORM S004-FROM-DATE THRU S004-EXIT                DTSBE713
00370              MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ            DTSBE713
00371          ELSE                                                     DTSBE713
00372         MOVE 'LECM-PARM-SUBJECT-YRQ SPACES AND NOT LECM-QTR-END'  DTSBE713
00373                TO ABEND-MSG                                       DTSBE713
00374              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE713
00375      ELSE                                                         DTSBE713
00376          MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3-X               DTSBE713
00377          PERFORM S004-FROM-3 THRU S004-EXIT                       DTSBE713
00378          IF L004-INVALID-QTR                                      DTSBE713
00379              MOVE 'LECM-PARM-SUBJECT-YRQ NOT VALID'               DTSBE713
00380                TO ABEND-MSG                                       DTSBE713
00381              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE713
00382          ELSE                                                     DTSBE713
00383              MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ.           DTSBE713
00384  I1100-EXIT.                                                      DTSBE713
00385      EXIT.                                                        DTSBE713
00386      SKIP3                                                        DTSBE713
00387  I1200-EST-AVG-DUE.                                               DTSBE713
00388      IF LECM-PARM-EST-AVG-DUE = SPACES                            DTSBE713
00389          MOVE +157.20 TO WRK-PARM-EST-AVG-DUE                     DTSBE713
00390      ELSE                                                         DTSBE713
00391          IF LECM-PARM-EST-AVG-DUE NUMERIC                         DTSBE713
00392              MOVE LECM-PARM-EST-AVG-DUE-9                         DTSBE713
00393                TO WRK-PARM-EST-AVG-DUE                            DTSBE713
00394          ELSE                                                     DTSBE713
00395              MOVE 'LECM-PARM-EST-AVG-DUE NOT NUMERIC'             DTSBE713
00396                TO ABEND-MSG                                       DTSBE713
00397              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE713
00398  I1200-EXIT.                                                      DTSBE713
00399      EXIT.                                                        DTSBE713
00400      SKIP3                                                        DTSBE713
00401  I1300-TIMING-EDITS-IND.                                          DTSBE713
00402      IF LECM-PARM-TIMING-EDITS-IND = SPACES                       DTSBE713
00403          SET WRK-PARM-TIMING-EDITS-YES-88 TO TRUE                 DTSBE713
00404      ELSE                                                         DTSBE713
00405          IF LECM-PARM-TIMING-EDITS-IND = 'Y' OR 'N'               DTSBE713
00406              MOVE LECM-PARM-TIMING-EDITS-IND                      DTSBE713
00407                TO WRK-PARM-TIMING-EDITS-IND                       DTSBE713
00408          ELSE                                                     DTSBE713
00409              MOVE 'LECM-PARM-TIMING-EDITS-IND NOT VALID'          DTSBE713
00410                TO ABEND-MSG                                       DTSBE713
00411              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE713
00412  I1300-EXIT.                                                      DTSBE713
00413      EXIT.                                                        DTSBE713
00414      SKIP3                                                        DTSBE713
00415  I1400-MSTR-UPDATE-IND.                                           DTSBE713
00416      IF LECM-PARM-MSTR-UPDATE-IND = SPACES                        DTSBE713
00417          SET WRK-PARM-MSTR-UPDATE-YES-88 TO TRUE                  DTSBE713
00418      ELSE                                                         DTSBE713
00419          IF LECM-PARM-MSTR-UPDATE-IND = 'Y' OR 'N'                DTSBE713
00420              MOVE LECM-PARM-MSTR-UPDATE-IND                       DTSBE713
00421                TO WRK-PARM-MSTR-UPDATE-IND                        DTSBE713
00422          ELSE                                                     DTSBE713
00423              MOVE 'LECM-PARM-MSTR-UPDATE-IND NO VALID'            DTSBE713
00424                TO ABEND-MSG                                       DTSBE713
00425              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE713
00426  I1400-EXIT.                                                      DTSBE713
00427      EXIT.                                                        DTSBE713
00428      EJECT                                                        DTSBE713
00429  I2100-PERIOD-DATES.                                              DTSBE713
00430      MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9.                   DTSBE713
00431      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE713
00432      MOVE L004-QTR-START-DATE TO WRK-PERIOD-START-DATE.           DTSBE713
00433      MOVE L004-QTR-END-DATE TO WRK-PERIOD-END-DATE.               DTSBE713
00434                                                                   DTSBE713
00435      IF WRK-PERIOD-START-DATE > LECM-LAST-MJRN-PURGE-DATE         DTSBE713
00436          NEXT SENTENCE                                            DTSBE713
00437      ELSE                                                         DTSBE713
00438          MOVE                                                     DTSBE713
00439      'PERIOD-START-DATE NOT GREATER THAN LAST-MJRN-PURGE-DATE'    DTSBE713
00440            TO ABEND-MSG                                           DTSBE713
00441          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE713
00442  I2100-EXIT.                                                      DTSBE713
00443      EXIT.                                                        DTSBE713
00444      EJECT                                                        DTSBE713
00445  I2200-TIMING-EDITS.                                              DTSBE713
00446      IF (LECM-PRIOR-RUN-DATE NOT > WRK-PERIOD-END-DATE)           DTSBE713
00447              AND                                                  DTSBE713
00448         (LECM-CURR-RUN-DATE > WRK-PERIOD-END-DATE)                DTSBE713
00449          NEXT SENTENCE                                            DTSBE713
00450      ELSE                                                         DTSBE713
00451          MOVE 'TIMING OF RUN IS NOT VALID'                        DTSBE713
00452            TO ABEND-MSG                                           DTSBE713
00453          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE713
00454  I2200-EXIT.                                                      DTSBE713
00455      EXIT.                                                        DTSBE713
00456      EJECT                                                        DTSBE713
00457  I2300-DEL-NOTICE-INFO.                                           DTSBE713
00458      MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9.                   DTSBE713
00459      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE713
00460      SUBTRACT 1 FROM L004-ABS-QTR.                                DTSBE713
00461      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00462      IF L004-QTR-5-9 > LECM-LAST-UC30-DEL-MAIL-YRQ                   CL**5
00463          MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO WRK-DEL-NOTICE-YRQ      CL**5
00464      ELSE                                                         DTSBE713
00465          MOVE L004-QTR-5-9 TO WRK-DEL-NOTICE-YRQ.                 DTSBE713
00466                                                                   DTSBE713
00467      MOVE WRK-DEL-NOTICE-YRQ TO L004-QTR-5-9.                     DTSBE713
00468      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE713
00469      SUBTRACT 1 FROM L004-ABS-QTR.                                DTSBE713
00470      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00471      MOVE L004-QTR-5-9 TO WRK-DEL-NOTICE-MINUS-ONE-YRQ.           DTSBE713
00472                                                                   DTSBE713
00473      MOVE LOW-VALUES TO FQTR-KEY-AREA.                            DTSBE713
00474      SET FQTR-QTR-88 TO TRUE.                                     DTSBE713
00475      MOVE WRK-DEL-NOTICE-YRQ TO FQTR-YRQ.                         DTSBE713
00476      MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA.                         DTSBE713
00477      PERFORM S931-READ THRU S931-EXIT.                            DTSBE713
00478      IF L931-NO-REC-88                                            DTSBE713
00479          MOVE 'DEL-NOTICE-YRQ FQTR RECORD NOT FOUND'              DTSBE713
00480            TO ABEND-MSG                                           DTSBE713
00481          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE713
00482                                                                   DTSBE713
00483      MOVE FSKL-REC TO FQTR-REC.                                   DTSBE713
00484                                                                   DTSBE713
00485      IF FQTR-UC30-FIRST-DEL-DATE = +0                                CL**5
00486          MOVE 'WRK-DEL-NOTICE-DATE NOT FOUND'                     DTSBE713
00487            TO ABEND-MSG                                           DTSBE713
00488          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE713
00489                                                                   DTSBE713
00490      MOVE FQTR-UC30-FIRST-DEL-DATE TO WRK-DEL-NOTICE-DATE.           CL**5
00491  I2300-EXIT.                                                      DTSBE713
00492      EXIT.                                                        DTSBE713
00493      EJECT                                                        DTSBE713
00494  I2400-ZERO-TOT-WAGE-YRQS.                                        DTSBE713
00495      MOVE WRK-DEL-NOTICE-YRQ TO L004-QTR-5-9.                     DTSBE713
00496      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE713
00497      MOVE L004-QTR-5-9 TO WRK-ZERO-TOT-WAGE-END-YRQ.              DTSBE713
00498      SUBTRACT 7 FROM L004-ABS-QTR.                                DTSBE713
00499      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00500      MOVE L004-QTR-5-9 TO WRK-ZERO-TOT-WAGE-START-YRQ.            DTSBE713
00501  I2400-EXIT.                                                      DTSBE713
00502      EXIT.                                                        DTSBE713
00503      EJECT                                                        DTSBE713
00504  I2700-PERIOD-START-ABSTIME.                                      DTSBE713
00505      MOVE WRK-PERIOD-START-DATE TO L001-FED-8-DATE-9.             DTSBE713
00506      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBE713
00507      SUBTRACT 7 FROM L001-JUL-ABS-DAY.                            DTSBE713
00508      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBE713
00509      MOVE L001-FED-8-DATE-9 TO L005-DATE.                         DTSBE713
00510      MOVE +0 TO L005-TIME.                                        DTSBE713
00511      PERFORM S005-FROM-DATE-TIME THRU S005-EXIT.                  DTSBE713
00512      MOVE L005-ABSTIME TO WRK-PERIOD-START-ABSTIME.               DTSBE713
00513  I2700-EXIT.                                                      DTSBE713
00514      EXIT.                                                        DTSBE713
00515      EJECT                                                        DTSBE713
00516  I2800-RECVBL-YRQS.                                               DTSBE713
00517      MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9.                   DTSBE713
00518      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE713
00519      SUBTRACT 3 FROM L004-ABS-QTR.                                DTSBE713
00520      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00521      MOVE L004-QTR-5-9 TO WRK-RECVBL-9-MOS-YRQ.                   DTSBE713
00522      SUBTRACT 1 FROM L004-ABS-QTR.                                DTSBE713
00523      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00524      MOVE L004-QTR-5-9 TO WRK-RECVBL-12-MOS-YRQ.                  DTSBE713
00525      SUBTRACT 1 FROM L004-ABS-QTR.                                DTSBE713
00526      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00527      MOVE L004-QTR-5-9 TO WRK-RECVBL-15-MOS-YRQ.                  DTSBE713
00528                                                                   DTSBE713
00529 *****                                                             DTSBE713
00530 *                                                                 DTSBE713
00531 *    LYNNETTE STERN STATES THAT PER A PHONE CONVERSATION WITH     DTSBE713
00532 *    GAIL EULIENSTIEN "THE FIRST QUARTER YOU SHOULD SHOW          DTSBE713
00533 *    ANYTHING IN ITEMS 25 AND 37 IS THE QUARTER ENDING 9/30/95".  DTSBE713
00534 *                                                                 DTSBE713
00535 *    THIS CONFLICTS WITH THE ITEM 25 INSTRUCTIONS, BUT            DTSBE713
00536 *    LYNNETTE SAYS TO GO WITH THE PHONE CONVERSATION.             DTSBE713
00537 *                                                                 DTSBE713
00538 *    THUS, THE TWO GOOFY IF STATEMENTS BELOW.                     DTSBE713
00539 *                                                                 DTSBE713
00540 *****                                                             DTSBE713
00541                                                                   DTSBE713
00542      MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9.                   DTSBE713
00543      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE713
00544      SUBTRACT 1 FROM L004-ABS-QTR.                                DTSBE713
00545      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00546      IF L004-QTR-5-9 < 19951                                      DTSBE713
00547          MOVE ALL-NINES-YRQ TO WRK-REMOVED-YRQ-1                  DTSBE713
00548      ELSE                                                         DTSBE713
00549          MOVE L004-QTR-5-9 TO WRK-REMOVED-YRQ-1.                  DTSBE713
00550                                                                   DTSBE713
00551      SUBTRACT 1 FROM L004-ABS-QTR.                                DTSBE713
00552      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00553      IF L004-QTR-5-9 < 19951                                      DTSBE713
00554          MOVE ALL-NINES-YRQ TO WRK-REMOVED-YRQ-2                  DTSBE713
00555      ELSE                                                         DTSBE713
00556          MOVE L004-QTR-5-9 TO WRK-REMOVED-YRQ-2.                  DTSBE713
00557  I2800-EXIT.                                                      DTSBE713
00558      EXIT.                                                        DTSBE713
00559      EJECT                                                        DTSBE713
00560  I2900-BEG-PERIOD-RECEIVABLES.                                    DTSBE713
00561      MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9.                   DTSBE713
00562      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE713
00563      SUBTRACT 1 FROM L004-ABS-QTR.                                DTSBE713
00564      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00565                                                                   DTSBE713
00566      MOVE LOW-VALUES TO F581-KEY-AREA.                            DTSBE713
00567      SET F581-581-88 TO TRUE.                                     DTSBE713
00568      MOVE L004-QTR-5-9 TO F581-YRQ.                               DTSBE713
00569      MOVE F581-KEY-AREA TO FSKL-KEY-AREA.                         DTSBE713
00570      PERFORM S931-READ THRU S931-EXIT.                            DTSBE713
00571      IF L931-NO-REC-88                                            DTSBE713
00572          MOVE                                                     DTSBE713
00573      'PRIOR PERIOD END PERIOD RECEIVABLE AMOUNTS NOT AVAILABLE'   DTSBE713
00574            TO ABEND-MSG                                           DTSBE713
00575          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE713
00576      MOVE FSKL-REC TO F581-REC.                                   DTSBE713
00577      MOVE F581-CON-RECVBL-END-PERIOD                              DTSBE713
00578        TO WRK-CON-RECVBL-BEG-PERIOD.                              DTSBE713
00579      MOVE F581-REIMB-RECVBL-END-PERIOD                            DTSBE713
00580        TO WRK-REIMB-RECVBL-BEG-PERIOD.                            DTSBE713
00581  I2900-EXIT.                                                      DTSBE713
00582      EXIT.                                                        DTSBE713
00583      EJECT                                                        DTSBE713
00584  I3100-INITIALIZE-F581.                                           DTSBE713
00585      MOVE LOW-VALUES TO F581-KEY-AREA.                            DTSBE713
00586      SET F581-581-88 TO TRUE.                                     DTSBE713
00587      MOVE WRK-PARM-SUBJECT-YRQ TO F581-YRQ.                       DTSBE713
00588      MOVE F581-KEY-AREA TO FSKL-KEY-AREA.                         DTSBE713
00589      PERFORM S931-READ THRU S931-EXIT.                            DTSBE713
00590      IF L931-NO-REC-88                                            DTSBE713
00591          MOVE LECM-CURR-RUN-DATE TO L001-FED-8-DATE-9             DTSBE713
00592      ELSE                                                         DTSBE713
00593          MOVE FSKL-REC TO F581-REC                                DTSBE713
00594          MOVE F581-ESTB-DATE TO L001-FED-8-DATE-9.                DTSBE713
00595      MOVE LOW-VALUES TO F581-REC.                                 DTSBE713
00596      SET F581-581-88 TO TRUE.                                     DTSBE713
00597      MOVE WRK-PARM-SUBJECT-YRQ TO F581-YRQ.                       DTSBE713
00598      INITIALIZE F581-DATA-AREA.                                   DTSBE713
00599      MOVE L001-FED-8-DATE-9 TO F581-ESTB-DATE.                    DTSBE713
00600      MOVE LECM-CURR-RUN-DATE TO F581-CHNG-DATE.                   DTSBE713
00601  I3100-EXIT.                                                      DTSBE713
00602      EXIT.                                                        DTSBE713
00603      EJECT                                                        DTSBE713
00604  I4100-DISPLAY.                                                   DTSBE713
00605      DISPLAY '                WRK-PARM-SUBJECT-YRQ: '             DTSBE713
00606              WRK-PARM-SUBJECT-YRQ.                                DTSBE713
00607      DISPLAY '                WRK-PARM-EST-AVG-DUE: '             DTSBE713
00608              WRK-PARM-EST-AVG-DUE.                                DTSBE713
00609      DISPLAY '           WRK-PARM-TIMING-EDITS-IND: '             DTSBE713
00610              WRK-PARM-TIMING-EDITS-IND.                           DTSBE713
00611      DISPLAY '            WRK-PARM-MSTR-UPDATE-IND: '             DTSBE713
00612              WRK-PARM-MSTR-UPDATE-IND.                            DTSBE713
00613      DISPLAY '               WRK-PERIOD-START-DATE: '             DTSBE713
00614              WRK-PERIOD-START-DATE.                               DTSBE713
00615      DISPLAY '                 WRK-PERIOD-END-DATE: '             DTSBE713
00616              WRK-PERIOD-END-DATE.                                 DTSBE713
00617      DISPLAY '         WRK-ZERO-TOT-WAGE-START-YRQ: '             DTSBE713
00618              WRK-ZERO-TOT-WAGE-START-YRQ.                         DTSBE713
00619      DISPLAY '           WRK-ZERO-TOT-WAGE-END-YRQ: '             DTSBE713
00620              WRK-ZERO-TOT-WAGE-END-YRQ.                           DTSBE713
00621      DISPLAY '                  WRK-DEL-NOTICE-YRQ: '             DTSBE713
00622              WRK-DEL-NOTICE-YRQ.                                  DTSBE713
00623      DISPLAY '                 WRK-DEL-NOTICE-DATE: '             DTSBE713
00624              WRK-DEL-NOTICE-DATE.                                 DTSBE713
00625      DISPLAY '        WRK-DEL-NOTICE-MINUS-ONE-YRQ: '             DTSBE713
00626              WRK-DEL-NOTICE-MINUS-ONE-YRQ.                        DTSBE713
00627      DISPLAY '           WRK-CON-RECVBL-BEG-PERIOD: '             DTSBE713
00628              WRK-CON-RECVBL-BEG-PERIOD.                           DTSBE713
00629      DISPLAY '         WRK-REIMB-RECVBL-BEG-PERIOD: '             DTSBE713
00630              WRK-REIMB-RECVBL-BEG-PERIOD.                         DTSBE713
00631      DISPLAY '                WRK-RECVBL-9-MOS-YRQ: '             DTSBE713
00632              WRK-RECVBL-9-MOS-YRQ.                                DTSBE713
00633      DISPLAY '               WRK-RECVBL-12-MOS-YRQ: '             DTSBE713
00634              WRK-RECVBL-12-MOS-YRQ.                               DTSBE713
00635      DISPLAY '               WRK-RECVBL-15-MOS-YRQ: '             DTSBE713
00636              WRK-RECVBL-15-MOS-YRQ.                               DTSBE713
00637      DISPLAY '                   WRK-REMOVED-YRQ-1: '             DTSBE713
00638              WRK-REMOVED-YRQ-1.                                   DTSBE713
00639      DISPLAY '                   WRK-REMOVED-YRQ-2: '             DTSBE713
00640              WRK-REMOVED-YRQ-2.                                   DTSBE713
00641      DISPLAY '            WRK-PERIOD-START-ABSTIME: '             DTSBE713
00642              WRK-PERIOD-START-ABSTIME.                            DTSBE713
00643  I4100-EXIT.                                                      DTSBE713
00644      EXIT.                                                        DTSBE713
00645      EJECT                                                        DTSBE713
00646  P0000-PROCESS.                                                   DTSBE713
00647      PERFORM P1000-SUBJECTIVITY THRU P1000-EXIT.                  DTSBE713
00648                                                                   DTSBE713
00649      PERFORM P2000-MISSING-REPORTS THRU P2000-EXIT.               DTSBE713
00650                                                                   DTSBE713
00651      PERFORM P3000-UI-TAX-RECEIVABLES THRU P3000-EXIT.            DTSBE713
00652                                                                   DTSBE713
00653      PERFORM P4000-AUDIT-ACTIVITY THRU P4000-EXIT.                DTSBE713
00654  P0000-EXIT.                                                      DTSBE713
00655      EXIT.                                                        DTSBE713
00656      EJECT                                                        DTSBE713
00657  P1000-SUBJECTIVITY.                                              DTSBE713
00658      PERFORM P1100-ACTIVE THRU P1100-EXIT.                        DTSBE713
00659                                                                   DTSBE713
00660      MOVE LOW-VALUES TO MERD-KEY-AREA.                            DTSBE713
00661      MOVE MPRF-EMP-NO TO MERD-EMP-NO.                             DTSBE713
00662      SET MERD-ERD-88 TO TRUE.                                     DTSBE713
00663      MOVE WRK-PERIOD-START-ABSTIME                                DTSBE713
00664        TO MERD-ESTB-ABSTIME.                                      DTSBE713
00665      MOVE MERD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
00666      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE713
00667      PERFORM P1200-SCAN-MERD THRU P1200-EXIT                      DTSBE713
00668          UNTIL L910-NO-REC-88.                                    DTSBE713
00669  P1000-EXIT.                                                      DTSBE713
00670      EXIT.                                                        DTSBE713
00671      SKIP3                                                        DTSBE713
00672  P1100-ACTIVE.                                                    DTSBE713
00673      IF MPRF-CLASS-SUB-88                                         DTSBE713
00674          NEXT SENTENCE                                            DTSBE713
00675      ELSE                                                         DTSBE713
00676          GO TO P1100-EXIT.                                        DTSBE713
00677                                                                   DTSBE713
00678      MOVE 'N' TO WRK-ACTIVE-DURING-PERIOD-IND.                    DTSBE713
00679                                                                   DTSBE713
00680      MOVE LOW-VALUES TO MSOL-KEY-AREA.                            DTSBE713
00681      MOVE MPRF-EMP-NO TO MSOL-EMP-NO.                             DTSBE713
00682      SET MSOL-SOL-88 TO TRUE.                                     DTSBE713
00683      MOVE MSOL-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
00684      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE713
00685      PERFORM P1110-SCAN-MSOL THRU P1110-EXIT                      DTSBE713
00686          UNTIL (L910-NO-REC-88)                                   DTSBE713
00687                    OR                                             DTSBE713
00688                (WRK-ACTIVE-DURING-PERIOD-IND = 'Y').              DTSBE713
00689                                                                   DTSBE713
00690      IF WRK-ACTIVE-DURING-PERIOD-IND = 'N'                        DTSBE713
00691          GO TO P1100-EXIT.                                        DTSBE713
00692                                                                   DTSBE713
00693      MOVE 'Y' TO WRK-ALL-ZERO-TOT-WAGE-IND.                       DTSBE713
00694                                                                   DTSBE713
00695      MOVE WRK-ZERO-TOT-WAGE-START-YRQ TO L004-QTR-5-9.            DTSBE713
00696      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE713
00697      PERFORM P1120-READ-MQTR THRU P1120-EXIT                      DTSBE713
00698          UNTIL (WRK-ALL-ZERO-TOT-WAGE-IND = 'N')                  DTSBE713
00699                    OR                                             DTSBE713
00700                (L004-QTR-5-9 > WRK-ZERO-TOT-WAGE-END-YRQ).        DTSBE713
00701                                                                   DTSBE713
00702      IF WRK-ALL-ZERO-TOT-WAGE-IND = 'Y'                           DTSBE713
00703          GO TO P1100-EXIT.                                        DTSBE713
00704                                                                   DTSBE713
00705      IF MPRF-CLASS-SELF-INS-88                                       CL**6
00706          ADD +1 TO F581-REIMB-EMP-CNT                             DTSBE713
00707      ELSE                                                         DTSBE713
00708          ADD +1 TO F581-CON-EMP-CNT.                              DTSBE713
00709  P1100-EXIT.                                                      DTSBE713
00710      EXIT.                                                        DTSBE713
00711      SKIP3                                                        DTSBE713
00712  P1110-SCAN-MSOL.                                                 DTSBE713
00713      MOVE MSKL-REC TO MSOL-REC.                                   DTSBE713
00714                                                                   DTSBE713
00715 *****                                                             DTSBE713
00716 *                                                                 DTSBE713
00717 *    MONTANA INTERPRETS THE ETA 581 "ACTIVE EMPLOYER" DEFINITION  DTSBE713
00718 *    AS "ACTIVE ON THE LAST DAY OF THE REPORTING PERIOD".         DTSBE713
00719 *                                                                 DTSBE713
00720 *****                                                             DTSBE713
00721                                                                   DTSBE713
00722      IF MSOL-INACT-WITHDRAWN-88                                   DTSBE713
00723          NEXT SENTENCE                                            DTSBE713
00724      ELSE                                                         DTSBE713
00725          IF (MSOL-INACT-DATE < WRK-PERIOD-END-DATE)               DTSBE713
00726                  OR                                               DTSBE713
00727             (MSOL-LIAB-DATE > WRK-PERIOD-END-DATE)                DTSBE713
00728              NEXT SENTENCE                                        DTSBE713
00729          ELSE                                                     DTSBE713
00730              MOVE 'Y' TO WRK-ACTIVE-DURING-PERIOD-IND             DTSBE713
00731              GO TO P1110-EXIT.                                    DTSBE713
00732                                                                   DTSBE713
00733      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE713
00734  P1110-EXIT.                                                      DTSBE713
00735      EXIT.                                                        DTSBE713
00736      SKIP3                                                        DTSBE713
00737  P1120-READ-MQTR.                                                 DTSBE713
00738      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE713
00739      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE713
00740      SET MQTR-QTR-88 TO TRUE.                                     DTSBE713
00741      MOVE L004-QTR-5-9 TO MQTR-YRQ.                               DTSBE713
00742      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
00743      PERFORM S910-READ THRU S910-EXIT.                            DTSBE713
00744      IF L910-NO-REC-88                                            DTSBE713
00745          MOVE 'N' TO WRK-ALL-ZERO-TOT-WAGE-IND                    DTSBE713
00746          GO TO P1120-EXIT.                                        DTSBE713
00747      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE713
00748      IF MQTR-CURR-RCVD-88                                         DTSBE713
00749          NEXT SENTENCE                                            DTSBE713
00750      ELSE                                                         DTSBE713
00751          MOVE 'N' TO WRK-ALL-ZERO-TOT-WAGE-IND                    DTSBE713
00752          GO TO P1120-EXIT.                                        DTSBE713
00753      IF MQTR-TOT-WAGE = +0                                        DTSBE713
00754          NEXT SENTENCE                                            DTSBE713
00755      ELSE                                                         DTSBE713
00756          MOVE 'N' TO WRK-ALL-ZERO-TOT-WAGE-IND                    DTSBE713
00757          GO TO P1120-EXIT.                                        DTSBE713
00758                                                                   DTSBE713
00759      ADD +1 TO L004-ABS-QTR.                                      DTSBE713
00760      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE713
00761  P1120-EXIT.                                                      DTSBE713
00762      EXIT.                                                        DTSBE713
00763      SKIP3                                                        DTSBE713
00764  P1200-SCAN-MERD.                                                 DTSBE713
00765      MOVE MSKL-REC TO MERD-REC.                                   DTSBE713
00766                                                                   DTSBE713
00767      IF (MERD-ESTB-DATE < WRK-PERIOD-START-DATE)                  DTSBE713
00768            OR                                                     DTSBE713
00769         (MERD-ESTB-DATE > WRK-PERIOD-END-DATE)                    DTSBE713
00770          NEXT SENTENCE                                            DTSBE713
00771      ELSE                                                         DTSBE713
00772          PERFORM P1210-COUNT-MERD THRU P1210-EXIT.                DTSBE713
00773                                                                   DTSBE713
00774      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE713
00775  P1200-EXIT.                                                      DTSBE713
00776      EXIT.                                                        DTSBE713
00777      SKIP3                                                        DTSBE713
00778  P1210-COUNT-MERD.                                                DTSBE713
00779      IF MERD-DETER-INACT-88                                       DTSBE713
00780          ADD +1 TO F581-TERMINATION-CNT                           DTSBE713
00781          GO TO P1210-EXIT.                                        DTSBE713
00782                                                                   DTSBE713
00783      MOVE MERD-ESTB-DATE TO L001-FED-8-DATE-9.                    DTSBE713
00784      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBE713
00785      MOVE L001-JUL-ABS-DAY TO WRK-ENTRY-JUL-ABS-DAY.              DTSBE713
00786                                                                   DTSBE713
00787      MOVE MERD-EFFECTIVE-DATE TO L004-DATE.                       DTSBE713
00788      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBE713
00789      MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9.                 DTSBE713
00790      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBE713
00791                                                                   DTSBE713
00792      COMPUTE WRK-TIME-LAPSE-DAYS                                  DTSBE713
00793        = WRK-ENTRY-JUL-ABS-DAY - L001-JUL-ABS-DAY.                DTSBE713
00794                                                                   DTSBE713
00795      IF MERD-DETER-NEW-88                                         DTSBE713
00796          ADD +1 TO F581-NEW-DETERM-CNT                            DTSBE713
00797          IF WRK-TIME-LAPSE-DAYS > +180                            DTSBE713
00798              NEXT SENTENCE                                        DTSBE713
00799          ELSE                                                     DTSBE713
00800              ADD +1 TO F581-NEW-DETERM-T180-CNT                   DTSBE713
00801              IF WRK-TIME-LAPSE-DAYS > +90                         DTSBE713
00802                  NEXT SENTENCE                                    DTSBE713
00803              ELSE                                                 DTSBE713
00804                  ADD +1 TO F581-NEW-DETERM-T90-CNT                DTSBE713
00805      ELSE                                                         DTSBE713
00806          ADD +1 TO F581-SUC-DETERM-CNT                            DTSBE713
00807          IF WRK-TIME-LAPSE-DAYS > +180                            DTSBE713
00808              NEXT SENTENCE                                        DTSBE713
00809          ELSE                                                     DTSBE713
00810              ADD +1 TO F581-SUC-DETERM-T180-CNT                   DTSBE713
00811              IF WRK-TIME-LAPSE-DAYS > +90                         DTSBE713
00812                  NEXT SENTENCE                                    DTSBE713
00813              ELSE                                                 DTSBE713
00814                  ADD +1 TO F581-SUC-DETERM-T90-CNT.               DTSBE713
00815  P1210-EXIT.                                                      DTSBE713
00816      EXIT.                                                        DTSBE713
00817      EJECT                                                        DTSBE713
00818  P2000-MISSING-REPORTS.                                           DTSBE713
00819      PERFORM P2100-DEL-NOTICE-YRQ THRU P2100-EXIT.                DTSBE713
00820                                                                   DTSBE713
00821      PERFORM P2200-DEL-NOTICE-MINUS-ONE-YRQ THRU P2200-EXIT.      DTSBE713
00822                                                                   DTSBE713
00823      PERFORM P2300-OUTSTDG-QTRS-CNT THRU P2300-EXIT.              DTSBE713
00824  P2000-EXIT.                                                      DTSBE713
00825      EXIT.                                                        DTSBE713
00826      SKIP3                                                        DTSBE713
00827  P2100-DEL-NOTICE-YRQ.                                            DTSBE713
00828 *****                                                             DTSBE713
00829 *                                                                 DTSBE713
00830 *    MONTANA INTERPRETS A "SECURED" REPORT TO BE A REPORT         DTSBE713
00831 *    RECEIVED FROM THE EMPLOYER.                                  DTSBE713
00832 *                                                                 DTSBE713
00833 *    MONTANA INTERPRETS A "TIMELY" REPORT TO BE A "SECURED"       DTSBE713
00834 *    REPORT WITH A REPORT RECEIVED DATE LESS THAN OR EQUAL        DTSBE713
00835 *    TO THE REPORT'S DUE DATE.                                    DTSBE713
00836 *                                                                 DTSBE713
00837 *****                                                             DTSBE713
00838      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE713
00839      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE713
00840      SET MQTR-QTR-88 TO TRUE.                                     DTSBE713
00841      MOVE WRK-DEL-NOTICE-YRQ TO MQTR-YRQ.                         DTSBE713
00842      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
00843      PERFORM S910-READ THRU S910-EXIT.                            DTSBE713
00844      IF L910-NO-REC-88                                            DTSBE713
00845          GO TO P2100-EXIT.                                        DTSBE713
00846                                                                   DTSBE713
00847      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE713
00848                                                                   DTSBE713
00849      IF MQTR-CURR-RCVD-88                                         DTSBE713
00850          NEXT SENTENCE                                            DTSBE713
00851      ELSE                                                         DTSBE713
00852          GO TO P2100-EXIT.                                        DTSBE713
00853                                                                   DTSBE713
00854      IF MPRF-CLASS-SELF-INS-88                                       CL**6
00855          ADD +1 TO F581-REIMB-SECURED-CNT                         DTSBE713
00856      ELSE                                                         DTSBE713
00857          ADD +1 TO F581-CON-SECURED-CNT.                          DTSBE713
00858                                                                   DTSBE713
00859      MOVE +0 TO WRK-ORIG-RPT-RECEIVED-DATE.                       DTSBE713
00860                                                                   DTSBE713
00861      MOVE LOW-VALUES TO MRPT-KEY-AREA.                            DTSBE713
00862      MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSBE713
00863      SET MRPT-RPT-88 TO TRUE.                                     DTSBE713
00864      MOVE WRK-DEL-NOTICE-YRQ TO MRPT-YRQ.                         DTSBE713
00865      MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
00866      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE713
00867      PERFORM P2110-SCAN-MRPT THRU P2110-EXIT                      DTSBE713
00868          UNTIL L910-NO-REC-88.                                    DTSBE713
00869      IF (WRK-ORIG-RPT-RECEIVED-DATE = +0)                         DTSBE713
00870              OR                                                   DTSBE713
00871         (WRK-ORIG-RPT-RECEIVED-DATE > MQTR-RPT-DUE-DATE)          DTSBE713
00872          GO TO P2100-EXIT.                                        DTSBE713
00873                                                                   DTSBE713
00874      IF MPRF-CLASS-SELF-INS-88                                       CL**6
00875          ADD +1 TO F581-REIMB-TIMELY-CNT                          DTSBE713
00876      ELSE                                                         DTSBE713
00877          ADD +1 TO F581-CON-TIMELY-CNT.                           DTSBE713
00878  P2100-EXIT.                                                      DTSBE713
00879      EXIT.                                                        DTSBE713
00880      SKIP3                                                        DTSBE713
00881  P2110-SCAN-MRPT.                                                 DTSBE713
00882      MOVE MSKL-REC TO MRPT-REC.                                   DTSBE713
00883                                                                   DTSBE713
00884      IF MRPT-YRQ = WRK-DEL-NOTICE-YRQ                             DTSBE713
00885          NEXT SENTENCE                                            DTSBE713
00886      ELSE                                                         DTSBE713
00887          SET L910-NO-REC-88 TO TRUE                               DTSBE713
00888          GO TO P2110-EXIT.                                        DTSBE713
00889                                                                   DTSBE713
00890      IF MRPT-ORIG-88                                              DTSBE713
00891          MOVE MRPT-RECEIVED-DATE TO WRK-ORIG-RPT-RECEIVED-DATE.   DTSBE713
00892                                                                   DTSBE713
00893      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE713
00894  P2110-EXIT.                                                      DTSBE713
00895      EXIT.                                                        DTSBE713
00896      SKIP3                                                        DTSBE713
00897  P2200-DEL-NOTICE-MINUS-ONE-YRQ.                                  DTSBE713
00898 *****                                                             DTSBE713
00899 *                                                                 DTSBE713
00900 *    MONTANA INTERPRETS A "RESOLVED" REPORT TO BE A REPORT        DTSBE713
00901 *    RECEIVED FROM THE EMPLOYER, A REPORT ESTIMATED BY THE        DTSBE713
00902 *    DEPARTMENT, OR THE EMPLOYER HAVING BEEN LIABLE AT THE        DTSBE713
00903 *    MISSING REPORT CUTOFF DATE AND THE EMPLOYER NO LONGER        DTSBE713
00904 *    LIABLE AT ETA581 RUN TIME.                                   DTSBE713
00905 *                                                                 DTSBE713
00906 *****                                                             DTSBE713
00907      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE713
00908      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE713
00909      SET MQTR-QTR-88 TO TRUE.                                     DTSBE713
00910      MOVE WRK-DEL-NOTICE-MINUS-ONE-YRQ TO MQTR-YRQ.               DTSBE713
00911      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
00912      PERFORM S910-READ THRU S910-EXIT.                            DTSBE713
00913      IF L910-NO-REC-88                                            DTSBE713
00914          GO TO P2200-EXIT.                                        DTSBE713
00915                                                                   DTSBE713
00916      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE713
00917                                                                   DTSBE713
00918      IF MQTR-CURR-RCVD-88 OR MQTR-CURR-ESTIM-88                   DTSBE713
00919          IF MPRF-CLASS-SELF-INS-88                                   CL**6
00920              ADD +1 TO F581-REIMB-RESOLVED-CNT                    DTSBE713
00921              GO TO P2200-EXIT                                     DTSBE713
00922          ELSE                                                     DTSBE713
00923              ADD +1 TO F581-CON-RESOLVED-CNT                      DTSBE713
00924              GO TO P2200-EXIT.                                    DTSBE713
00925                                                                   DTSBE713
00926      IF MQTR-MISS-NOT-LIABLE-88                                   DTSBE713
00927          GO TO P2200-EXIT.                                        DTSBE713
00928                                                                   DTSBE713
00929      IF MQTR-CURR-NOT-LIABLE-88                                   DTSBE713
00930          IF MPRF-CLASS-SELF-INS-88                                   CL**6
00931              ADD +1 TO F581-REIMB-RESOLVED-CNT                    DTSBE713
00932              GO TO P2200-EXIT                                     DTSBE713
00933          ELSE                                                     DTSBE713
00934              ADD +1 TO F581-CON-RESOLVED-CNT                      DTSBE713
00935              GO TO P2200-EXIT.                                    DTSBE713
00936  P2200-EXIT.                                                      DTSBE713
00937      EXIT.                                                        DTSBE713
00938      SKIP3                                                        DTSBE713
00939  P2300-OUTSTDG-QTRS-CNT.                                          DTSBE713
00940      IF MPRF-CLASS-SELF-INS-88                                       CL**6
00941          GO TO P2300-EXIT.                                        DTSBE713
00942                                                                   DTSBE713
00943      IF MPRF-PURSUED-RPT-CNT > +0                                 DTSBE713
00944          NEXT SENTENCE                                            DTSBE713
00945      ELSE                                                         DTSBE713
00946          GO TO P2300-EXIT.                                        DTSBE713
00947                                                                   DTSBE713
00948      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE713
00949      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE713
00950      SET MQTR-QTR-88 TO TRUE.                                     DTSBE713
00951      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
00952      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE713
00953      PERFORM P2310-SCAN-MQTR THRU P2310-EXIT                      DTSBE713
00954          UNTIL L910-NO-REC-88.                                    DTSBE713
00955  P2300-EXIT.                                                      DTSBE713
00956      EXIT.                                                        DTSBE713
00957      SKIP3                                                        DTSBE713
00958  P2310-SCAN-MQTR.                                                 DTSBE713
00959      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE713
00960                                                                   DTSBE713
00961      IF MQTR-RPT-IS-PURSUED-88                                    DTSBE713
00962          ADD +1 TO F581-OUTSTDG-QTRS-CNT                          DTSBE713
00963          IF MQTR-CURR-ESTIM-88                                    DTSBE713
00964              NEXT SENTENCE                                        DTSBE713
00965           ELSE                                                    DTSBE713
00966               ADD +1 TO WRK-ITEM13-YRQ-CNT.                       DTSBE713
00967                                                                   DTSBE713
00968      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE713
00969  P2310-EXIT.                                                      DTSBE713
00970      EXIT.                                                        DTSBE713
00971      EJECT                                                        DTSBE713
00972  P3000-UI-TAX-RECEIVABLES.                                        DTSBE713
00973      MOVE +0 TO WRK-QTR-CNT.                                      DTSBE713
00974                                                                   DTSBE713
00975      MOVE +0 TO WRK-TOT-UI-BALANCE-OVERDUE.                       DTSBE713
00976                                                                   DTSBE713
00977      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE713
00978      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE713
00979      SET MSKL-QTR-88 TO TRUE.                                     DTSBE713
00980      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE713
00981      PERFORM                                                      DTSBE713
00982        UNTIL L910-NO-REC-88                                       DTSBE713
00983          MOVE MSKL-REC TO MQTR-REC                                DTSBE713
00984          PERFORM P3100-PROCESS-MQTR THRU P3100-EXIT               DTSBE713
00985          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE713
00986      END-PERFORM.                                                 DTSBE713
00987                                                                   DTSBE713
00988      IF WRK-TOT-UI-BALANCE-OVERDUE > +0                           DTSBE713
00989          IF MPRF-CLASS-SELF-INS-88                                   CL**6
00990              ADD WRK-TOT-UI-BALANCE-OVERDUE                       DTSBE713
00991               TO F581-REIMB-RECVBL-END-PERIOD                     DTSBE713
00992              ADD +1 TO F581-REIMB-RECVBL-EMP-CNT                  DTSBE713
00993          ELSE                                                     DTSBE713
00994              ADD WRK-TOT-UI-BALANCE-OVERDUE                       DTSBE713
00995               TO F581-CON-RECVBL-END-PERIOD                       DTSBE713
00996              ADD +1 TO F581-CON-RECVBL-EMP-CNT.                   DTSBE713
00997                                                                   DTSBE713
00998      MOVE +0 TO WRK-QTR-SUB.                                      DTSBE713
00999                                                                   DTSBE713
01000      MOVE LOW-VALUES TO MJRN-KEY-AREA.                            DTSBE713
01001      MOVE MPRF-EMP-NO TO MJRN-EMP-NO.                             DTSBE713
01002      SET MJRN-JRN-88 TO TRUE.                                     DTSBE713
01003      MOVE WRK-PERIOD-START-ABSTIME TO MJRN-ESTB-ABSTIME.          DTSBE713
01004      MOVE MJRN-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
01005      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE713
01006                                                                   DTSBE713
01007      PERFORM                                                      DTSBE713
01008        UNTIL L910-NO-REC-88                                       DTSBE713
01009          MOVE MSKL-REC TO MJRN-REC                                DTSBE713
01010          PERFORM P3200-PROCESS-MJRN THRU P3200-EXIT               DTSBE713
01011          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE713
01012      END-PERFORM.                                                 DTSBE713
01013  P3000-EXIT.                                                      DTSBE713
01014      EXIT.                                                        DTSBE713
01015      SKIP3                                                        DTSBE713
01016  P3100-PROCESS-MQTR.                                              DTSBE713
01017 *****                                                                CL**8
01018 *                                                                    CL**8
01019 *    FOR ETA581 PURPOSES, IGNORE PICKUP ACTIVITY.                    CL**8
01020 *                                                                    CL**8
01021 *****                                                                CL**8
01022                                                                      CL**8
01023      IF MQTR-YRQ = LECM-PICKUP-YRQ                                   CL**8
01024          GO TO P3100-EXIT.                                           CL**8
01025                                                                      CL**8
01026                                                                      CL**8
01027      IF WRK-QTR-CNT < WRK-QTR-MAX                                 DTSBE713
01028          NEXT SENTENCE                                            DTSBE713
01029      ELSE                                                         DTSBE713
01030          MOVE 'LOGIC ERROR P3100-1' TO ABEND-MSG                  DTSBE713
01031          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE713
01032                                                                   DTSBE713
01033      ADD +1 TO WRK-QTR-CNT.                                       DTSBE713
01034                                                                   DTSBE713
01035      MOVE MQTR-YRQ TO WRK-QTR-YRQ (WRK-QTR-CNT).                  DTSBE713
01036      MOVE MQTR-ETA581-REMOVED-IND                                 DTSBE713
01037        TO WRK-QTR-PREV-REMOVED-IND (WRK-QTR-CNT).                 DTSBE713
01038      MOVE MQTR-ETA581-UNCOLLECT-IND                               DTSBE713
01039        TO WRK-QTR-PREV-UNCOLLECT-IND (WRK-QTR-CNT).               DTSBE713
01040      MOVE MQTR-TAX-DUE-DATE                                       DTSBE713
01041        TO WRK-QTR-TAX-DUE-DATE (WRK-QTR-CNT).                     DTSBE713
01042      SKIP3                                                        DTSBE713
01043 *****                                                             DTSBE713
01044 *                                                                 DTSBE713
01045 *    PER THE 06/15/95 ZIP FROM LYNNETTE STERN, MONTANA            DTSBE713
01046 *    INTERPRETS THE "REMOVED" ITEM AND THE "UNCOLLECTIBLE"        DTSBE713
01047 *    ITEM INSTRUCTIONS TO MEAN THAT ONCE A BALANCE DUE IN A       DTSBE713
01048 *    QUARTER HAS BEEN REPORTED ON THE ETA581 AS REMOVED OR        DTSBE713
01049 *    ONCE A SUSPENDED AMOUNT IN A QUARTER HAS BEEN REPORTED          CL**4
01050 *    ON THE ETA581 AS UNCOLLECTIBLE, THEN ALL FURTHER             DTSBE713
01051 *    TRANSACTIONS AGAINST THE QUARTER ARE IGNORED FOR ETA581      DTSBE713
01052 *    REPORTING PURPOSES.                                          DTSBE713
01053 *                                                                 DTSBE713
01054 *    THE FOLLOWING CODE ACCOMPLISHES THE MONTANA INTERPERTATION   DTSBE713
01055 *    OF THE "REMOVED" ITEM AND THE MONTANA INTERPERTATION OF      DTSBE713
01056 *    THE "UNCOLLECTIBLE" ITEM.                                    DTSBE713
01057 *                                                                 DTSBE713
01058 *****                                                             DTSBE713
01059                                                                   DTSBE713
01060      IF MQTR-ETA581-REMOVED-YES-88                                DTSBE713
01061          GO TO P3100-EXIT.                                        DTSBE713
01062                                                                   DTSBE713
01063      IF MQTR-ETA581-UNCOLLECT-YES-88                              DTSBE713
01064          GO TO P3100-EXIT.                                        DTSBE713
01065                                                                   DTSBE713
01066      MOVE +0 TO WRK-QTR-UI-BALANCE-AMT                            DTSBE713
01067                 WRK-QTR-UI-WRITTEN-OFF-AMT.                          CL**4
01068                                                                   DTSBE713
01069      PERFORM                                                      DTSBE713
01070        VARYING MQTR-ACCT-IDX FROM 1 BY 1                          DTSBE713
01071        UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                        DTSBE713
01072          IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                       DTSBE713
01073              ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                 DTSBE713
01074               TO WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01075              ADD MQTR-WRITTEN-OFF-AMT (MQTR-ACCT-IDX)                CL**4
01076               TO WRK-QTR-UI-WRITTEN-OFF-AMT                          CL**4
01077          END-IF                                                   DTSBE713
01078      END-PERFORM.                                                 DTSBE713
01079                                                                   DTSBE713
01080      IF WRK-QTR-UI-WRITTEN-OFF-AMT > +0                              CL**4
01081          PERFORM P3130-UNCOLLECT THRU P3130-EXIT                  DTSBE713
01082          GO TO P3100-EXIT.                                        DTSBE713
01083                                                                   DTSBE713
01084      IF WRK-QTR-UI-BALANCE-AMT > +0                               DTSBE713
01085          NEXT SENTENCE                                            DTSBE713
01086      ELSE                                                         DTSBE713
01087          GO TO P3100-EXIT.                                        DTSBE713
01088                                                                   DTSBE713
01089      IF (MQTR-ETA581-OVR15MNTH-RPT-CNT = +2)                      DTSBE713
01090               AND                                                 DTSBE713
01091          (MQTR-ETA581-OVR15MNTH-RPT-YRQ (1)                       DTSBE713
01092            = WRK-REMOVED-YRQ-1 OR WRK-REMOVED-YRQ-2)              DTSBE713
01093               AND                                                 DTSBE713
01094          (MQTR-ETA581-OVR15MNTH-RPT-YRQ (2)                       DTSBE713
01095            = WRK-REMOVED-YRQ-1 OR WRK-REMOVED-YRQ-2)              DTSBE713
01096           PERFORM P3110-REMOVE-QTR THRU P3110-EXIT                DTSBE713
01097           GO TO P3100-EXIT.                                       DTSBE713
01098                                                                   DTSBE713
01099      IF MQTR-YRQ < WRK-PARM-SUBJECT-YRQ                           DTSBE713
01100          NEXT SENTENCE                                            DTSBE713
01101      ELSE                                                         DTSBE713
01102          GO TO P3100-EXIT.                                        DTSBE713
01103                                                                   DTSBE713
01104      IF MQTR-TAX-DUE-DATE > WRK-PERIOD-END-DATE                   DTSBE713
01105          GO TO P3100-EXIT.                                        DTSBE713
01106                                                                   DTSBE713
01107      IF MPRF-CLASS-SELF-INS-88                                       CL**6
01108          IF MQTR-YRQ > WRK-RECVBL-9-MOS-YRQ                       DTSBE713
01109              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01110               TO F581-REIMB-RECVBL-6-MOS                          DTSBE713
01111          ELSE                                                     DTSBE713
01112          IF MQTR-YRQ = WRK-RECVBL-9-MOS-YRQ                       DTSBE713
01113              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01114               TO F581-REIMB-RECVBL-9-MOS                          DTSBE713
01115          ELSE                                                     DTSBE713
01116          IF MQTR-YRQ = WRK-RECVBL-12-MOS-YRQ                      DTSBE713
01117              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01118               TO F581-REIMB-RECVBL-12-MOS                         DTSBE713
01119          ELSE                                                     DTSBE713
01120          IF MQTR-YRQ = WRK-RECVBL-15-MOS-YRQ                      DTSBE713
01121              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01122               TO F581-REIMB-RECVBL-15-MOS                         DTSBE713
01123          ELSE                                                     DTSBE713
01124              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01125               TO F581-REIMB-RECVBL-OVER15-MOS                     DTSBE713
01126              PERFORM P3120-OVER15MNTH THRU P3120-EXIT             DTSBE713
01127      ELSE                                                         DTSBE713
01128          IF MQTR-YRQ > WRK-RECVBL-9-MOS-YRQ                       DTSBE713
01129              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01130               TO F581-CON-RECVBL-6-MOS                            DTSBE713
01131          ELSE                                                     DTSBE713
01132          IF MQTR-YRQ = WRK-RECVBL-9-MOS-YRQ                       DTSBE713
01133              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01134               TO F581-CON-RECVBL-9-MOS                            DTSBE713
01135          ELSE                                                     DTSBE713
01136          IF MQTR-YRQ = WRK-RECVBL-12-MOS-YRQ                      DTSBE713
01137              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01138               TO F581-CON-RECVBL-12-MOS                           DTSBE713
01139          ELSE                                                     DTSBE713
01140          IF MQTR-YRQ = WRK-RECVBL-15-MOS-YRQ                      DTSBE713
01141              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01142               TO F581-CON-RECVBL-15-MOS                           DTSBE713
01143          ELSE                                                     DTSBE713
01144              ADD WRK-QTR-UI-BALANCE-AMT                           DTSBE713
01145               TO F581-CON-RECVBL-OVER15-MOS                       DTSBE713
01146              PERFORM P3120-OVER15MNTH THRU P3120-EXIT.            DTSBE713
01147                                                                   DTSBE713
01148      ADD WRK-QTR-UI-BALANCE-AMT TO WRK-TOT-UI-BALANCE-OVERDUE.    DTSBE713
01149  P3100-EXIT.                                                      DTSBE713
01150      EXIT.                                                        DTSBE713
01151      SKIP3                                                        DTSBE713
01152  P3110-REMOVE-QTR.                                                DTSBE713
01153      IF MPRF-CLASS-SELF-INS-88                                       CL**6
01154          ADD WRK-QTR-UI-BALANCE-AMT TO F581-REIMB-RECVBL-REMOVED  DTSBE713
01155      ELSE                                                         DTSBE713
01156          ADD WRK-QTR-UI-BALANCE-AMT TO F581-CON-RECVBL-REMOVED.   DTSBE713
01157                                                                   DTSBE713
01158      SET MQTR-ETA581-REMOVED-YES-88 TO TRUE.                      DTSBE713
01159                                                                   DTSBE713
01160      PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT.                  DTSBE713
01161  P3110-EXIT.                                                      DTSBE713
01162      EXIT.                                                        DTSBE713
01163      SKIP3                                                        DTSBE713
01164  P3120-OVER15MNTH.                                                DTSBE713
01165      IF MQTR-ETA581-OVR15MNTH-RPT-CNT = +0                        DTSBE713
01166          MOVE +1 TO MQTR-ETA581-OVR15MNTH-RPT-CNT                 DTSBE713
01167          MOVE WRK-PARM-SUBJECT-YRQ                                DTSBE713
01168            TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (1)                   DTSBE713
01169          PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT               DTSBE713
01170      ELSE                                                         DTSBE713
01171      IF MQTR-ETA581-OVR15MNTH-RPT-CNT = +1                        DTSBE713
01172          IF WRK-PARM-SUBJECT-YRQ                                  DTSBE713
01173                = MQTR-ETA581-OVR15MNTH-RPT-YRQ (1)                DTSBE713
01174              NEXT SENTENCE                                        DTSBE713
01175          ELSE                                                     DTSBE713
01176              MOVE +2 TO MQTR-ETA581-OVR15MNTH-RPT-CNT             DTSBE713
01177              MOVE WRK-PARM-SUBJECT-YRQ                            DTSBE713
01178                TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (2)               DTSBE713
01179              PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT           DTSBE713
01180      ELSE                                                         DTSBE713
01181          IF WRK-PARM-SUBJECT-YRQ                                  DTSBE713
01182               = MQTR-ETA581-OVR15MNTH-RPT-YRQ (1)                 DTSBE713
01183                   OR MQTR-ETA581-OVR15MNTH-RPT-YRQ (2)            DTSBE713
01184              NEXT SENTENCE                                        DTSBE713
01185          ELSE                                                     DTSBE713
01186              PERFORM P3121-MOVE-OVR15MNTH-YRQ THRU P3121-EXIT     DTSBE713
01187              MOVE +2 TO MQTR-ETA581-OVR15MNTH-RPT-CNT             DTSBE713
01188              MOVE WRK-PARM-SUBJECT-YRQ                            DTSBE713
01189                TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (2)               DTSBE713
01190              PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT.          DTSBE713
01191  P3120-EXIT.                                                      DTSBE713
01192      EXIT.                                                        DTSBE713
01193      SKIP3                                                        DTSBE713
01194  P3121-MOVE-OVR15MNTH-YRQ.                                        DTSBE713
01195      IF MQTR-ETA581-OVR15MNTH-RPT-YRQ (1)                         DTSBE713
01196          < MQTR-ETA581-OVR15MNTH-RPT-YRQ (2)                      DTSBE713
01197          MOVE MQTR-ETA581-OVR15MNTH-RPT-YRQ (2)                   DTSBE713
01198            TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (1).                  DTSBE713
01199  P3121-EXIT.                                                      DTSBE713
01200      EXIT.                                                        DTSBE713
01201      SKIP3                                                        DTSBE713
01202  P3130-UNCOLLECT.                                                 DTSBE713
01203      SET MQTR-ETA581-UNCOLLECT-YES-88 TO TRUE.                    DTSBE713
01204                                                                   DTSBE713
01205      PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT.                  DTSBE713
01206                                                                   DTSBE713
01207      IF MPRF-CLASS-SELF-INS-88                                       CL**6
01208          ADD WRK-QTR-UI-WRITTEN-OFF-AMT                              CL**6
01209                               TO F581-REIMB-RECVBL-UNCOLLECT         CL**6
01210      ELSE                                                         DTSBE713
01211          ADD WRK-QTR-UI-WRITTEN-OFF-AMT                              CL**6
01212                               TO F581-CON-RECVBL-UNCOLLECT.          CL**7
01213  P3130-EXIT.                                                      DTSBE713
01214      EXIT.                                                        DTSBE713
01215      SKIP3                                                        DTSBE713
01216  P3190-REWRITE-MQTR.                                              DTSBE713
01217      IF WRK-PARM-MSTR-UPDATE-YES-88                               DTSBE713
01218          MOVE LECM-CURR-RUN-DATE TO MQTR-CHNG-DATE                DTSBE713
01219          MOVE MQTR-REC TO MSKL-REC                                DTSBE713
01220          PERFORM S910-REWRITE THRU S910-EXIT.                     DTSBE713
01221  P3190-EXIT.                                                      DTSBE713
01222      EXIT.                                                        DTSBE713
01223      SKIP3                                                        DTSBE713
01224  P3200-PROCESS-MJRN.                                              DTSBE713
01225      IF MJRN-TRAN-CNVR-88                                         DTSBE713
01226          GO TO P3200-EXIT.                                        DTSBE713
01227                                                                   DTSBE713
01228      IF (MJRN-ESTB-DATE < WRK-PERIOD-START-DATE)                  DTSBE713
01229              OR                                                   DTSBE713
01230         (MJRN-ESTB-DATE > WRK-PERIOD-END-DATE)                    DTSBE713
01231          GO TO P3200-EXIT.                                        DTSBE713
01232                                                                   DTSBE713
01233      PERFORM P3210-ACCT-GROUP THRU P3210-EXIT                     DTSBE713
01234          VARYING MJRN-OCC-IDX FROM 1 BY 1                         DTSBE713
01235          UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT.                       DTSBE713
01236  P3200-EXIT.                                                      DTSBE713
01237      EXIT.                                                        DTSBE713
01238      SKIP3                                                        DTSBE713
01239  P3210-ACCT-GROUP.                                                DTSBE713
01240      IF MJRN-ROW-UI-88 (MJRN-OCC-IDX)                             DTSBE713
01241          NEXT SENTENCE                                            DTSBE713
01242      ELSE                                                         DTSBE713
01243          GO TO P3210-EXIT.                                        DTSBE713
01244                                                                   DTSBE713
01245      IF (MJRN-COL-PAID-88 (MJRN-OCC-IDX))                         DTSBE713
01246             OR                                                    DTSBE713
01247         (MJRN-COL-TOLERATED-88 (MJRN-OCC-IDX))                       CL**4
01248          NEXT SENTENCE                                            DTSBE713
01249      ELSE                                                         DTSBE713
01250          GO TO P3210-EXIT.                                        DTSBE713
01251                                                                   DTSBE713
01252      MOVE MJRN-YRQ (MJRN-OCC-IDX) TO WRK-MJRN-YRQ.                DTSBE713
01253                                                                   DTSBE713
01254      IF WRK-MJRN-YRQ = LECM-PICKUP-YRQ                               CL**8
01255          GO TO P3210-EXIT.                                           CL**8
01256                                                                      CL**8
01257      IF WRK-MJRN-YRQ < WRK-PARM-SUBJECT-YRQ                       DTSBE713
01258          NEXT SENTENCE                                            DTSBE713
01259      ELSE                                                         DTSBE713
01260          GO TO P3210-EXIT.                                        DTSBE713
01261                                                                   DTSBE713
01262      IF (WRK-QTR-SUB = +0)                                        DTSBE713
01263             OR                                                    DTSBE713
01264         (WRK-QTR-YRQ (WRK-QTR-SUB) NOT = WRK-MJRN-YRQ)            DTSBE713
01265          MOVE +0 TO WRK-QTR-SUB                                   DTSBE713
01266          PERFORM                                                  DTSBE713
01267            VARYING WRK-QTR-IDX FROM 1 BY 1                        DTSBE713
01268            UNTIL (WRK-QTR-IDX > WRK-QTR-CNT)                      DTSBE713
01269                     OR                                            DTSBE713
01270                  (WRK-QTR-SUB NOT = +0)                           DTSBE713
01271              IF WRK-MJRN-YRQ = WRK-QTR-YRQ (WRK-QTR-IDX)          DTSBE713
01272                  SET WRK-QTR-SUB TO WRK-QTR-IDX                   DTSBE713
01273              END-IF                                               DTSBE713
01274          END-PERFORM.                                             DTSBE713
01275      SKIP3                                                        DTSBE713
01276 *****                                                             DTSBE713
01277 *                                                                 DTSBE713
01278 *    FOR INTERPERTATION OF THE FOLLOWING SENTENCE, PLEASE         DTSBE713
01279 *    SEE THE COMMENT IN P3100.                                    DTSBE713
01280 *                                                                 DTSBE713
01281 *****                                                             DTSBE713
01282                                                                   DTSBE713
01283      IF WRK-QTR-SUB = +0                                          DTSBE713
01284          NEXT SENTENCE                                            DTSBE713
01285      ELSE                                                         DTSBE713
01286          IF (WRK-QTR-PREV-REMOVED-YES-88 (WRK-QTR-SUB))           DTSBE713
01287                  OR                                               DTSBE713
01288             (WRK-QTR-PREV-UNCOLLECT-YES-88 (WRK-QTR-SUB))         DTSBE713
01289              GO TO P3210-EXIT.                                    DTSBE713
01290                                                                   DTSBE713
01291 *****                                                             DTSBE713
01292 *     PER LYNNETTE ON 06/01/95, ONLY AN INCREASE IN PAID AMT      DTSBE713
01293 *     OR AN INCREASE IN TOLERATED AMT IS TO BE COUNTED IN         DTSBE713
01294 *     LIQUIDATED.                                                 DTSBE713
01295 *****                                                             DTSBE713
01296      IF MJRN-AMT (MJRN-OCC-IDX) > +0                              DTSBE713
01297          NEXT SENTENCE                                            DTSBE713
01298      ELSE                                                         DTSBE713
01299          GO TO P3210-EXIT.                                        DTSBE713
01300                                                                   DTSBE713
01301      IF (WRK-QTR-SUB = +0)                                        DTSBE713
01302               OR                                                  DTSBE713
01303          (MJRN-RECEIVED-DATE                                      DTSBE713
01304             > WRK-QTR-TAX-DUE-DATE (WRK-QTR-SUB))                 DTSBE713
01305           IF MPRF-CLASS-SELF-INS-88                                  CL**6
01306               ADD MJRN-AMT (MJRN-OCC-IDX)                         DTSBE713
01307                TO F581-REIMB-RECVBL-LIQUID                        DTSBE713
01308           ELSE                                                    DTSBE713
01309               ADD MJRN-AMT (MJRN-OCC-IDX)                         DTSBE713
01310                TO F581-CON-RECVBL-LIQUID.                         DTSBE713
01311  P3210-EXIT.                                                      DTSBE713
01312      EXIT.                                                        DTSBE713
01313      EJECT                                                        DTSBE713
01314  P4000-AUDIT-ACTIVITY.                                            DTSBE713
01315      IF MPRF-NO-MFAS-88                                           DTSBE713
01316          GO TO P4000-EXIT.                                        DTSBE713
01317                                                                   DTSBE713
01318      MOVE LOW-VALUES TO MFAS-KEY-AREA.                            DTSBE713
01319      MOVE MPRF-EMP-NO TO MFAS-EMP-NO.                             DTSBE713
01320      SET MFAS-FAS-88 TO TRUE.                                     DTSBE713
01321      MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
01322      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE713
01323      PERFORM P4100-SCAN-MFAS THRU P4100-EXIT                      DTSBE713
01324          UNTIL L910-NO-REC-88.                                    DTSBE713
01325  P4000-EXIT.                                                      DTSBE713
01326      EXIT.                                                        DTSBE713
01327      SKIP3                                                        DTSBE713
01328  P4100-SCAN-MFAS.                                                 DTSBE713
01329      MOVE MSKL-REC TO MFAS-REC.                                   DTSBE713
01330                                                                   DTSBE713
01331      IF (MFAS-PROCESSED-DATE < WRK-PERIOD-START-DATE)             DTSBE713
01332              OR                                                   DTSBE713
01333         (MFAS-PROCESSED-DATE > WRK-PERIOD-END-DATE)               DTSBE713
01334          NEXT SENTENCE                                            DTSBE713
01335      ELSE                                                         DTSBE713
01336          PERFORM P4110-AUDIT-RESULTS THRU P4110-EXIT              DTSBE713
01337          MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA                      DTSBE713
01338          PERFORM S910-START-BROWSE THRU S910-EXIT                 DTSBE713
01339          IF L910-NO-REC-88                                        DTSBE713
01340              MOVE 'LOGIC ERROR IN P4100' TO ABEND-MSG             DTSBE713
01341              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE713
01342                                                                   DTSBE713
01343      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE713
01344  P4100-EXIT.                                                      DTSBE713
01345      EXIT.                                                        DTSBE713
01346      SKIP3                                                        DTSBE713
01347  P4110-AUDIT-RESULTS.                                             DTSBE713
01348      MOVE LOW-VALUES TO MAUR-KEY-AREA.                            DTSBE713
01349      MOVE MPRF-EMP-NO TO MAUR-EMP-NO.                             DTSBE713
01350      SET MAUR-AUR-88 TO TRUE.                                     DTSBE713
01351      MOVE MFAS-ASSIGN-NO TO MAUR-ASSIGN-NO.                       DTSBE713
01352      MOVE MAUR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
01353      PERFORM S910-READ THRU S910-EXIT.                            DTSBE713
01354      IF L910-NO-REC-88                                            DTSBE713
01355          GO TO P4110-EXIT.                                        DTSBE713
01356                                                                   DTSBE713
01357      MOVE MSKL-REC TO MAUR-REC.                                   DTSBE713
01358                                                                   DTSBE713
01359      ADD +1 TO F581-AUDIT-TOT-EMP-CNT.                            DTSBE713
01360                                                                   DTSBE713
01361      IF MAUR-EMP-SIZE-LARGE-88                                    DTSBE713
01362          ADD +1 TO F581-AUDIT-LARGE-EMP-CNT.                      DTSBE713
01363                                                                   DTSBE713
01364      ADD MAUR-QTRS-AUDITED-CNT TO F581-AUDIT-QTR-CNT.             DTSBE713
01365                                                                   DTSBE713
01366      ADD MAUR-AUDIT-HRS TO F581-AUDIT-HOURS-CNT.                  DTSBE713
01367                                                                   DTSBE713
01368      ADD MAUR-INDCON-TO-EMPL-CNT                                     CL**9
01369       TO F581-AUDIT-INDCON-TO-EMPL-CNT.                              CL**9
01370                                                                      CL**9
01371      MOVE 'N' TO WRK-CHANGE-AUDIT-IND.                            DTSBE713
01372                                                                   DTSBE713
01373      MOVE LOW-VALUES TO MAUY-KEY-AREA.                            DTSBE713
01374      MOVE MPRF-EMP-NO TO MAUY-EMP-NO.                             DTSBE713
01375      SET MAUY-AUY-88 TO TRUE.                                     DTSBE713
01376      MOVE MFAS-ASSIGN-NO TO MAUY-ASSIGN-NO.                       DTSBE713
01377      MOVE MAUY-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE713
01378      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE713
01379      PERFORM P4111-SCAN-MAUY THRU P4111-EXIT                      DTSBE713
01380          UNTIL L910-NO-REC-88.                                    DTSBE713
01381                                                                   DTSBE713
01382      IF WRK-CHANGE-AUDIT-IND = 'Y'                                DTSBE713
01383          ADD +1 TO F581-AUDIT-CHANGE-CNT.                         DTSBE713
01384  P4110-EXIT.                                                      DTSBE713
01385      EXIT.                                                        DTSBE713
01386      SKIP3                                                        DTSBE713
01387  P4111-SCAN-MAUY.                                                 DTSBE713
01388      MOVE MSKL-REC TO MAUY-REC.                                   DTSBE713
01389                                                                   DTSBE713
01390      IF MAUY-ASSIGN-NO = MFAS-ASSIGN-NO                           DTSBE713
01391          NEXT SENTENCE                                            DTSBE713
01392      ELSE                                                         DTSBE713
01393          SET L910-NO-REC-88 TO TRUE                               DTSBE713
01394          GO TO P4111-EXIT.                                        DTSBE713
01395                                                                   DTSBE713
01396      PERFORM P4111A-QTR-LOOP THRU P4111A-EXIT                     DTSBE713
01397          VARYING MAUY-QTR-IDX FROM 1 BY 1                         DTSBE713
01398          UNTIL MAUY-QTR-IDX > MMAX-AUY-QTR-MAX.                   DTSBE713
01399                                                                   DTSBE713
01400      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE713
01401  P4111-EXIT.                                                      DTSBE713
01402      EXIT.                                                        DTSBE713
01403      SKIP3                                                        DTSBE713
01404  P4111A-QTR-LOOP.                                                 DTSBE713
01405      IF MAUY-QTR-NOT-AUDITED-88 (MAUY-QTR-IDX)                    DTSBE713
01406          GO TO P4111A-EXIT.                                       DTSBE713
01407                                                                   DTSBE713
01408      ADD MAUY-QTR-GROSS-PAYROLL (MAUY-QTR-IDX)                    DTSBE713
01409       TO F581-AUDIT-TOT-WAGES-POST.                               DTSBE713
01410                                                                   DTSBE713
01411      IF (MAUY-QTR-UNDER-TOT-WAGE (MAUY-QTR-IDX) = +0)             DTSBE713
01412              AND                                                  DTSBE713
01413         (MAUY-QTR-UNDER-TAX-WAGE (MAUY-QTR-IDX) = +0)             DTSBE713
01414              AND                                                  DTSBE713
01415         (MAUY-QTR-UNDER-CONTRIB (MAUY-QTR-IDX) = +0)              DTSBE713
01416              AND                                                  DTSBE713
01417         (MAUY-QTR-OVER-TOT-WAGE (MAUY-QTR-IDX) = +0)              DTSBE713
01418              AND                                                  DTSBE713
01419         (MAUY-QTR-OVER-TAX-WAGE (MAUY-QTR-IDX) = +0)              DTSBE713
01420              AND                                                  DTSBE713
01421         (MAUY-QTR-OVER-CONTRIB (MAUY-QTR-IDX) = +0)               DTSBE713
01422          GO TO P4111A-EXIT.                                       DTSBE713
01423                                                                   DTSBE713
01424      MOVE 'Y' TO WRK-CHANGE-AUDIT-IND.                            DTSBE713
01425                                                                   DTSBE713
01426      ADD MAUY-QTR-UNDER-TOT-WAGE (MAUY-QTR-IDX)                   DTSBE713
01427       TO F581-AUDIT-UNDERRPT-TOT-WAGES.                           DTSBE713
01428                                                                   DTSBE713
01429      ADD MAUY-QTR-UNDER-TAX-WAGE (MAUY-QTR-IDX)                   DTSBE713
01430       TO F581-AUDIT-UNDERRPT-TAX-WAGES.                           DTSBE713
01431                                                                   DTSBE713
01432      ADD MAUY-QTR-UNDER-CONTRIB (MAUY-QTR-IDX)                    DTSBE713
01433       TO F581-AUDIT-UNDERRPT-CONTRIB.                             DTSBE713
01434                                                                   DTSBE713
01435      ADD MAUY-QTR-OVER-TOT-WAGE (MAUY-QTR-IDX)                    DTSBE713
01436       TO F581-AUDIT-OVERRPT-TOT-WAGES.                            DTSBE713
01437                                                                   DTSBE713
01438      ADD MAUY-QTR-OVER-TAX-WAGE (MAUY-QTR-IDX)                    DTSBE713
01439       TO F581-AUDIT-OVERRPT-TAX-WAGES.                            DTSBE713
01440                                                                   DTSBE713
01441      ADD MAUY-QTR-OVER-CONTRIB (MAUY-QTR-IDX)                     DTSBE713
01442       TO F581-AUDIT-OVERRPT-CONTRIB.                              DTSBE713
01443  P4111A-EXIT.                                                     DTSBE713
01444      EXIT.                                                        DTSBE713
01445      EJECT                                                        DTSBE713
01446  T0000-TERMINATE.                                                 DTSBE713
01447      MOVE WRK-PERIOD-START-DATE TO F581-PERIOD-BEGIN-DATE.        DTSBE713
01448      MOVE WRK-PERIOD-END-DATE TO F581-PERIOD-END-DATE.            DTSBE713
01449                                                                   DTSBE713
01450      ADD F581-CON-EMP-CNT                                         DTSBE713
01451          F581-REIMB-EMP-CNT                                       DTSBE713
01452        GIVING F581-TOTAL-EMP-CNT.                                 DTSBE713
01453                                                                   DTSBE713
01454      MOVE WRK-DEL-NOTICE-DATE TO F581-DEL-CUTOFF-DATE.            DTSBE713
01455                                                                   DTSBE713
01456      COMPUTE F581-EST-UI-DUE-AMT                                  DTSBE713
01457        = WRK-PARM-EST-AVG-DUE * WRK-ITEM13-YRQ-CNT.               DTSBE713
01458                                                                   DTSBE713
01459      MOVE WRK-CON-RECVBL-BEG-PERIOD TO F581-CON-RECVBL-BEG-PERIOD.DTSBE713
01460                                                                   DTSBE713
01461      COMPUTE F581-CON-RECVBL-DETERM                               DTSBE713
01462        = F581-CON-RECVBL-LIQUID                                   DTSBE713
01463            + F581-CON-RECVBL-UNCOLLECT                            DTSBE713
01464            + F581-CON-RECVBL-REMOVED                              DTSBE713
01465            + F581-CON-RECVBL-END-PERIOD                           DTSBE713
01466            - F581-CON-RECVBL-BEG-PERIOD.                          DTSBE713
01467                                                                   DTSBE713
01468      MOVE WRK-REIMB-RECVBL-BEG-PERIOD                             DTSBE713
01469        TO F581-REIMB-RECVBL-BEG-PERIOD.                           DTSBE713
01470                                                                   DTSBE713
01471      COMPUTE F581-REIMB-RECVBL-DETERM                             DTSBE713
01472        = F581-REIMB-RECVBL-LIQUID                                 DTSBE713
01473            + F581-REIMB-RECVBL-UNCOLLECT                          DTSBE713
01474            + F581-REIMB-RECVBL-REMOVED                            DTSBE713
01475            + F581-REIMB-RECVBL-END-PERIOD                         DTSBE713
01476            - F581-REIMB-RECVBL-BEG-PERIOD.                        DTSBE713
01477                                                                   DTSBE713
01478      COMPUTE F581-AUDIT-TOT-WAGES-PRE                             DTSBE713
01479        = F581-AUDIT-TOT-WAGES-POST                                DTSBE713
01480            - F581-AUDIT-UNDERRPT-TOT-WAGES                        DTSBE713
01481            + F581-AUDIT-OVERRPT-TOT-WAGES.                        DTSBE713
01482                                                                   DTSBE713
01483      MOVE F581-KEY-AREA TO FSKL-KEY-AREA.                         DTSBE713
01484      PERFORM S931-READ THRU S931-EXIT.                            DTSBE713
01485      IF L931-NO-REC-88                                            DTSBE713
01486          MOVE F581-REC TO FSKL-REC                                DTSBE713
01487          PERFORM S931-WRITE THRU S931-EXIT                        DTSBE713
01488      ELSE                                                         DTSBE713
01489          MOVE F581-REC TO FSKL-REC                                DTSBE713
01490          PERFORM S931-REWRITE THRU S931-EXIT.                     DTSBE713
01491                                                                   DTSBE713
01492      MOVE WRK-PARM-SUBJECT-YRQ TO R713-YRQ.                       DTSBE713
01493      PERFORM S946-WRITE-R713 THRU S946-EXIT.                      DTSBE713
01494  T0000-EXIT.                                                      DTSBE713
01495      EXIT.                                                        DTSBE713
01496      EJECT                                                        DTSBE713
01497  S001-FROM-FED-8.                                                 DTSBE713
01498      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE713
01499      GO TO S001-DATE.                                             DTSBE713
01500                                                                   DTSBE713
01501  S001-FROM-ABS-DAY.                                               DTSBE713
01502      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE713
01503      GO TO S001-DATE.                                             DTSBE713
01504                                                                   DTSBE713
01505  S001-FROM-CAL-6.                                                 DTSBE713
01506      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE713
01507      GO TO S001-DATE.                                             DTSBE713
01508                                                                   DTSBE713
01509  S001-DATE.                                                       DTSBE713
01510      CALL 'DTSBU001' USING L001-LINK-AREA.                           CL**2
01511  S001-EXIT.                                                       DTSBE713
01512      EXIT.                                                        DTSBE713
01513      SKIP3                                                        DTSBE713
01514  S004-FROM-5.                                                     DTSBE713
01515      SET L004-FROM-5 TO TRUE.                                     DTSBE713
01516      GO TO S004-QTR.                                              DTSBE713
01517                                                                   DTSBE713
01518  S004-FROM-ABS.                                                   DTSBE713
01519      SET L004-FROM-ABS TO TRUE.                                   DTSBE713
01520      GO TO S004-QTR.                                              DTSBE713
01521                                                                   DTSBE713
01522  S004-FROM-3.                                                     DTSBE713
01523      SET L004-FROM-3 TO TRUE.                                     DTSBE713
01524      GO TO S004-QTR.                                              DTSBE713
01525                                                                   DTSBE713
01526  S004-FROM-DATE.                                                  DTSBE713
01527      SET L004-FROM-DATE TO TRUE.                                  DTSBE713
01528      GO TO S004-QTR.                                              DTSBE713
01529                                                                   DTSBE713
01530  S004-QTR.                                                        DTSBE713
01531                                                                   DTSBE713
01532      CALL 'DTSBU004' USING L004-LINK-AREA.                           CL**2
01533                                                                   DTSBE713
01534  S004-EXIT.                                                       DTSBE713
01535      EXIT.                                                        DTSBE713
01536      SKIP3                                                        DTSBE713
01537  S005-FROM-ABSTIME.                                               DTSBE713
01538      SET L005-FROM-ABSTIME TO TRUE.                               DTSBE713
01539      GO TO S005-ABSTIME.                                          DTSBE713
01540                                                                   DTSBE713
01541  S005-FROM-DATE-TIME.                                             DTSBE713
01542      SET L005-FROM-DATE-TIME TO TRUE.                             DTSBE713
01543      GO TO S005-ABSTIME.                                          DTSBE713
01544                                                                   DTSBE713
01545  S005-ABSTIME.                                                    DTSBE713
01546      CALL 'DTSBU005' USING L005-LINK-AREA.                           CL**2
01547  S005-EXIT.                                                       DTSBE713
01548      EXIT.                                                        DTSBE713
01549      SKIP3                                                        DTSBE713
01550  S910-READ.                                                       DTSBE713
01551      SET L910-READ-88 TO TRUE.                                    DTSBE713
01552      GO TO S910-MSTR-IO.                                          DTSBE713
01553                                                                   DTSBE713
01554  S910-START-BROWSE.                                               DTSBE713
01555      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE713
01556      GO TO S910-MSTR-IO.                                          DTSBE713
01557                                                                   DTSBE713
01558  S910-READ-NEXT.                                                  DTSBE713
01559      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE713
01560      GO TO S910-MSTR-IO.                                          DTSBE713
01561                                                                   DTSBE713
01562 *S910-COUNT.                                                      DTSBE713
01563 *****SET L910-COUNT-88 TO TRUE.                                   DTSBE713
01564 *****GO TO S910-MSTR-IO.                                          DTSBE713
01565                                                                   DTSBE713
01566  S910-REWRITE.                                                    DTSBE713
01567      SET L910-REWRITE-88 TO TRUE.                                 DTSBE713
01568      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE713
01569      GO TO S910-MSTR-IO.                                          DTSBE713
01570                                                                   DTSBE713
01571  S910-MSTR-IO.                                                    DTSBE713
01572      CALL 'DTSBU910' USING L910-LINK-AREA                            CL**2
01573                            MSKL-REC.                              DTSBE713
01574  S910-EXIT.                                                       DTSBE713
01575      EXIT.                                                        DTSBE713
01576      SKIP3                                                        DTSBE713
01577  S931-READ.                                                       DTSBE713
01578      SET L931-READ-88 TO TRUE.                                    DTSBE713
01579      GO TO S931-REF-I.                                            DTSBE713
01580                                                                   DTSBE713
01581 *S931-START-BROWSE.                                               DTSBE713
01582 *****SET L931-START-BROWSE-88 TO TRUE.                            DTSBE713
01583 *****GO TO S931-REF-I.                                            DTSBE713
01584                                                                   DTSBE713
01585 *S931-READ-NEXT.                                                  DTSBE713
01586 *****SET L931-READ-NEXT-88 TO TRUE.                               DTSBE713
01587 *****GO TO S931-REF-I.                                            DTSBE713
01588                                                                   DTSBE713
01589  S931-WRITE.                                                      DTSBE713
01590      SET L931-WRITE-88 TO TRUE.                                   DTSBE713
01591      GO TO S931-REF-I.                                            DTSBE713
01592                                                                   DTSBE713
01593  S931-REWRITE.                                                    DTSBE713
01594      SET L931-REWRITE-88 TO TRUE.                                 DTSBE713
01595      GO TO S931-REF-I.                                            DTSBE713
01596                                                                   DTSBE713
01597 *S931-DELETE.                                                     DTSBE713
01598 *****SET L931-DELETE-88 TO TRUE.                                  DTSBE713
01599 *****GO TO S931-REF-I.                                            DTSBE713
01600                                                                   DTSBE713
01601  S931-REF-I.                                                      DTSBE713
01602      CALL 'DTSBU931' USING L931-LINK-AREA                            CL**2
01603                            FSKL-REC.                              DTSBE713
01604  S931-EXIT.                                                       DTSBE713
01605      EXIT.                                                        DTSBE713
01606      SKIP3                                                        DTSBE713
01607  S946-WRITE-R713.                                                 DTSBE713
01608      CALL 'DTSBU946' USING R713-REC.                                 CL**2
01609      GO TO S946-EXIT.                                             DTSBE713
01610                                                                   DTSBE713
01611  S946-EXIT.                                                       DTSBE713
01612      EXIT.                                                        DTSBE713
01613      SKIP3                                                        DTSBE713
01614  S999-ABEND.                                                      DTSBE713
01615      DISPLAY '*** DTSBE713 ABENDING.  '                              CL**2
01616              ABEND-MSG.                                           DTSBE713
01617                                                                   DTSBE713
01618      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL**2
01619  S999-EXIT.                                                       DTSBE713
01620      EXIT.                                                        DTSBE713
