00001  IDENTIFICATION DIVISION.                                         05/07/13
00002  PROGRAM-ID.             DTSBE720.                                DTSBE720
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV013
00004                          MODIFIED BY TRW/BDM OCT. 1998.           DTSBE720
00005  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBE720
00006  DATE-COMPILED.                                                   DTSBE720
00007      SKIP3                                                        DTSBE720
00008 *****                                                             DTSBE720
00009 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBE720
00010 *                       DTSBE720 WHICH UPDATES DTSIR720           DTSBE720
00011 *                       DTSBR720 READS DTSIR720 RECORDS.          DTSBE720
00012 *                                                                 DTSBE720
00013 *    FUNCTION:  RQC DEBITS/BILLINGS CONTRIBUTORY EMPLOYERS        DTSBE720
00014 *                                                                 DTSBE720
00015 *                                                                 DTSBE720
00016 *               UNIVERSE RECORDS EXTRACT.                         DTSBE720
00017 *                                                                 DTSBE720
00018 *                                                                 DTSBE720
00019 *    MODIFICATION LOG:                                            DTSBE720
00020 *                                                                 DTSBE720
00021 *    03/01/2011  MODIFIED P0000: SELECT ONLY WHERE BALANCE DUE    DTSBE720
00022 *                IS GREATER THAN $100.00.                         DTSBE720
00023 *                WORK ORDER:                    PROGRAMMER: GD    DTSBE720
00024 *                                                                 DTSBE720
00025 *    XX/XX/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE720
00026 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE720
00027 *                WORK ORDER:                    PROGRAMMER: XXX   DTSBE720
00028 *                                                                 DTSBE720
00029 *                                                                 DTSBE720
00030 *  DESCRIPTION:                                                   DTSBE720
00031 *                                                                 DTSBE720
00032 *                                                                 DTSBE720
00033 *    INITIATION:                                                  DTSBE720
00034 *                                                                 DTSBE720
00035 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE720
00036 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE720
00037 *                                                                 DTSBE720
00038 *      EDIT AND DEFAULT PARAMETERS.                               DTSBE720
00039 *                                                                 DTSBE720
00040 *                                                                 DTSBE720
00041 *    PROCESSING:                                                  DTSBE720
00042 *                                                                 DTSBE720
00043 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (720R1).       DTSBE720
00044 *                                                                 DTSBE720
00045 *                                                                 DTSBE720
00046 *    TERMINATION:                                                 DTSBE720
00047 *                                                                 DTSBE720
00048 *      NONE.                                                      DTSBE720
00049 *                                                                 DTSBE720
00050 *                                                                 DTSBE720
00051 *    RECORDS READ:                                                DTSBE720
00052 *                                                                 DTSBE720
00053 *      MASTER:                                                    DTSBE720
00054 *                                                                 DTSBE720
00055 *        MQTR                                                     DTSBE720
00056 *        MJRN                                                     DTSBE720
00057 *                                                                 DTSBE720
00058 *                                                                 DTSBE720
00059 *      ALTERNATE INDEX:                                           DTSBE720
00060 *                                                                 DTSBE720
00061 *        NONE.                                                    DTSBE720
00062 *                                                                 DTSBE720
00063 *                                                                 DTSBE720
00064 *      REFERENCE:                                                 DTSBE720
00065 *                                                                 DTSBE720
00066 *        NONE.                                                    DTSBE720
00067 *                                                                 DTSBE720
00068 *                                                                 DTSBE720
00069 *    RECORDS UPDATED:                                             DTSBE720
00070 *                                                                 DTSBE720
00071 *        NONE.                                                    DTSBE720
00072 *                                                                 DTSBE720
00073 *                                                                 DTSBE720
00074 *    REPORT RECORDS WRITTEN:                                      DTSBE720
00075 *                                                                 DTSBE720
00076 *        R720 RQC DEBITS/BILLINGS CONTRIBTORY EMPLOYERS           DTSBE720
00077 *             UNIVERSE RECORDS.                                   DTSBE720
00078 *                                                                 DTSBE720
00079 *                                                                 DTSBE720
00080 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE720
00081 *                                                                 DTSBE720
00082 *        NONE.                                                    DTSBE720
00083 *                                                                 DTSBE720
00084 *                                                                 DTSBE720
00085 *    MODULES CALLED:                                              DTSBE720
00086 *                                                                 DTSBE720
00087 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBE720
00088 *        DTSBU910  MASTER FILE I/O.                               DTSBE720
00089 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE720
00090 *                                                                 DTSBE720
00091 *                                                                 DTSBE720
00092 *    VERMONT REFERENCE:                                           DTSBE720
00093 *                                                                 DTSBE720
00094 *        NONE.                                                    DTSBE720
00095 *                                                                 DTSBE720
00096 *****                                                             DTSBE720
00097      SKIP3                                                        DTSBE720
00098  ENVIRONMENT DIVISION.                                            DTSBE720
00099      EJECT                                                        DTSBE720
00100  DATA DIVISION.                                                   DTSBE720
00101      SKIP3                                                        DTSBE720
00102  WORKING-STORAGE SECTION.                                         DTSBE720
001025 77  PAN-VALET PICTURE X(24) VALUE '013DTSBE720  05/07/13'.       DTSBE720
00103  77  PAN-VALET PICTURE X(24) VALUE '002DTSBE720  05/07/12'.       DTSBE720
00104      SKIP3                                                        DTSBE720
00105  01  WRK-AREA.                                                    DTSBE720
00106      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +720.DTSBE720
00107      SKIP1                                                        DTSBE720
00108      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE720'.DTSBE720
00109      SKIP3                                                        DTSBE720
00110      05  ABEND-MSG                   PIC  X(60).                  DTSBE720
00111      SKIP3                                                        DTSBE720
00112      05  WRK-PARM-PERIOD-START-DATE  PIC S9(09)  COMP-3.          DTSBE720
00113                                                                   DTSBE720
00114      05  WRK-PARM-PERIOD-END-DATE    PIC S9(09)  COMP-3.          DTSBE720
00115      SKIP3                                                        DTSBE720
00116      05  WRK-CURRENT-UI-TAX-DUE      PIC S9(09)V9(02)  COMP-3.    DTSBE720
00117                                                                   DTSBE720
00118      05  WRK-PERIOD-END-UI-TAX-DUE   PIC S9(09)V9(02)  COMP-3.    DTSBE720
00119                                                                   DTSBE720
00120      05  WRK-PERIOD-START-UI-TAX-DUE PIC S9(09)V9(02)  COMP-3.    DTSBE720
00121                                                                   DTSBE720
00122      05  WRK-UI-TAX-CHARGE-CHNG      PIC S9(09)V9(02)  COMP-3.    DTSBE720
00123                                                                   DTSBE720
00124      05  WRK-UI-TAX-PAID-CHNG        PIC S9(09)V9(02)  COMP-3.    DTSBE720
00125                                                                   DTSBE720
00126      05  AMT-DISP1                   PIC --------9.99.            DTSBE720
00127      05  AMT-DISP2                   PIC --------9.99.            DTSBE720
00128      EJECT                                                        DTSBE720
00129  01  L001-LINK-AREA.                                              DTSBE720
00130  ++INCLUDE DTSIL001                                               DTSBE720
00131      EJECT                                                        DTSBE720
00132  01  L910-LINK-AREA.                                              DTSBE720
00133  ++INCLUDE DTSIL910                                               DTSBE720
00134      SKIP3                                                        DTSBE720
00135  01  MSKL-REC.                                                    DTSBE720
00136  ++INCLUDE DTSIMSKL                                               DTSBE720
00137      SKIP3                                                        DTSBE720
00138  01  MQTR-REC.                                                    DTSBE720
00139  ++INCLUDE DTSIMQTR                                               DTSBE720
00140      SKIP3                                                        DTSBE720
00141  01  MJRN-REC.                                                    DTSBE720
00142  ++INCLUDE DTSIMJRN                                               DTSBE720
00143      EJECT                                                        DTSBE720
00144  01  R720-REC.                                                    DTSBE720
00145  ++INCLUDE DTSIR720                                               DTSBE720
00146      EJECT                                                        DTSBE720
00147  LINKAGE SECTION.                                                 DTSBE720
00148      SKIP3                                                        DTSBE720
00149  01  LECM-LINK-AREA.                                              DTSBE720
00150  ++INCLUDE DTSILECM                                               DTSBE720
00151      SKIP3                                                        DTSBE720
00152          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE720
00153              15  LECM-PARM-PERIOD-START-DATE  PIC  X(06).         DTSBE720
00154              15  FILLER                       PIC  X(01).         DTSBE720
00155              15  LECM-PARM-PERIOD-END-DATE    PIC  X(06).         DTSBE720
00156              15  FILLER                       PIC  X(55).         DTSBE720
00157      EJECT                                                        DTSBE720
00158  01  MPRF-LINK-REC.                                               DTSBE720
00159  ++INCLUDE DTSIMPRF                                               DTSBE720
00160      EJECT                                                        DTSBE720
00161  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE720
00162                           MPRF-LINK-REC.                          DTSBE720
00163      SKIP2                                                        DTSBE720
00164      SKIP2                                                        DTSBE720
00165      IF LECM-PROCESS-88                                           DTSBE720
00166          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE720
00167      ELSE                                                         DTSBE720
00168      IF LECM-INITIALIZE-88                                        DTSBE720
00169          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE720
00170      ELSE                                                         DTSBE720
00171      IF LECM-TERMINATE-88                                         DTSBE720
00172          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE720
00173      ELSE                                                         DTSBE720
00174          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE720
00175            TO ABEND-MSG                                           DTSBE720
00176          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE720
00177      SKIP2                                                        DTSBE720
00178      GOBACK.                                                      DTSBE720
00179      EJECT                                                        DTSBE720
00180  I0000-INITIALIZE.                                                DTSBE720
00181      SKIP2                                                        DTSBE720
00182      MOVE LENGTH OF R720-REC TO R720-LENGTH.                      DTSBE720
00183      MOVE '720'              TO R720-REC-TYPE.                    DTSBE720
00184      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE720
00185      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE720
00186                                                                   DTSBE720
00187      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE720
00188                                                                   DTSBE720
00189      DISPLAY 'BE720 START: ' WRK-PARM-PERIOD-START-DATE           DTSBE720
00190      DISPLAY 'BE720 END: : ' WRK-PARM-PERIOD-END-DATE             DTSBE720
00191                                                                   DTSBE720
00192                                                                   DTSBE720
00193      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE720
00194      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE720
00195      SKIP2                                                        DTSBE720
00196  I0000-EXIT.                                                      DTSBE720
00197      EXIT.                                                        DTSBE720
00198      SKIP3                                                        DTSBE720
00199  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE720
00200      PERFORM I1100-PERIOD-START-DATE THRU I1100-EXIT.             DTSBE720
00201                                                                   DTSBE720
00202      PERFORM I1200-PERIOD-END-DATE THRU I1200-EXIT.               DTSBE720
00203  I1000-EXIT.                                                      DTSBE720
00204      EXIT.                                                        DTSBE720
00205      SKIP3                                                        DTSBE720
00206  I1100-PERIOD-START-DATE.                                         DTSBE720
00207      IF LECM-PARM-PERIOD-START-DATE = SPACES                      DTSBE720
00208          MOVE 'LECM-PARM-PERIOD-START-DATE IS MISSING'            DTSBE720
00209            TO ABEND-MSG                                           DTSBE720
00210          PERFORM S999-ABEND THRU S999-EXIT                        DTSBE720
00211      ELSE                                                         DTSBE720
00212          MOVE LECM-PARM-PERIOD-START-DATE TO L001-CAL-6-DATE-X    DTSBE720
00213          PERFORM S001-FROM-CAL-6 THRU S001-EXIT                   DTSBE720
00214          IF L001-VALID-DATE                                       DTSBE720
00215              MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-START-DATE DTSBE720
00216          ELSE                                                     DTSBE720
00217              MOVE 'LECM-PARM-PERIOD-START-DATE NOT VALID'         DTSBE720
00218                TO ABEND-MSG                                       DTSBE720
00219              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE720
00220                                                                   DTSBE720
00221      IF WRK-PARM-PERIOD-START-DATE > LECM-LAST-MJRN-PURGE-DATE    DTSBE720
00222          NEXT SENTENCE                                            DTSBE720
00223      ELSE                                                         DTSBE720
00224          MOVE                                                     DTSBE720
00225      'PERIOD-START-DATE NOT GREATER THAN LAST-MJRN-PURGE-DATE'    DTSBE720
00226            TO ABEND-MSG                                           DTSBE720
00227          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE720
00228  I1100-EXIT.                                                      DTSBE720
00229      EXIT.                                                        DTSBE720
00230      SKIP3                                                        DTSBE720
00231  I1200-PERIOD-END-DATE.                                           DTSBE720
00232      IF LECM-PARM-PERIOD-END-DATE = SPACES                        DTSBE720
00233          MOVE 'LECM-PARM-PERIOD-END-DATE IS MISSING'              DTSBE720
00234            TO ABEND-MSG                                           DTSBE720
00235          PERFORM S999-ABEND THRU S999-EXIT                        DTSBE720
00236      ELSE                                                         DTSBE720
00237          MOVE LECM-PARM-PERIOD-END-DATE TO L001-CAL-6-DATE-X      DTSBE720
00238          PERFORM S001-FROM-CAL-6 THRU S001-EXIT                   DTSBE720
00239          IF L001-VALID-DATE                                       DTSBE720
00240              MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-END-DATE   DTSBE720
00241          ELSE                                                     DTSBE720
00242              MOVE 'LECM-PARM-PERIOD-END-DATE NOT VALID'           DTSBE720
00243                TO ABEND-MSG                                       DTSBE720
00244              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE720
00245                                                                   DTSBE720
00246      IF WRK-PARM-PERIOD-END-DATE < WRK-PARM-PERIOD-START-DATE     DTSBE720
00247          MOVE                                                     DTSBE720
00248            'PERIOD-END-DATE IS LESS THAN PERIOD-START-DATE'       DTSBE720
00249            TO ABEND-MSG                                           DTSBE720
00250          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE720
00251  I1200-EXIT.                                                      DTSBE720
00252      EXIT.                                                        DTSBE720
00253      EJECT                                                        DTSBE720
00254  P0000-PROCESS.                                                   DTSBE720
00255 * ZL1  - PROCESS BOTH RATED AND SI FOR 2011                       DTSBE720
00256 *                                                                 DTSBE720
00257 *    IF MPRF-CLASS-SELF-INS-88                                    DTSBE720
00258 *        GO TO P0000-EXIT.                                        DTSBE720
00259 *                                                                 DTSBE720
00260      MOVE +0 TO WRK-CURRENT-UI-TAX-DUE.                           DTSBE720
00261                                                                   DTSBE720
00262      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE720
00263      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE720
00264      SET MQTR-QTR-88 TO TRUE.                                     DTSBE720
00265      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE720
00266      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE720
00267      PERFORM P1000-SCAN-MQTR THRU P1000-EXIT                      DTSBE720
00268          UNTIL L910-NO-REC-88.                                    DTSBE720
00269                                                                   DTSBE720
00270      IF MPRF-EMP-NO = 145328 OR 149629                            DTSBE720
00271         MOVE WRK-CURRENT-UI-TAX-DUE  TO AMT-DISP1                 DTSBE720
00272         DISPLAY MPRF-EMP-NO ' QTR BAL ' AMT-DISP1                 DTSBE720
00273      END-IF.                                                      DTSBE720
00274                                                                   DTSBE720
00275      MOVE WRK-CURRENT-UI-TAX-DUE TO WRK-PERIOD-START-UI-TAX-DUE   DTSBE720
00276                                     WRK-PERIOD-END-UI-TAX-DUE.    DTSBE720
00277                                                                   DTSBE720
00278                                                                   DTSBE720
00279      MOVE +0 TO WRK-UI-TAX-CHARGE-CHNG                            DTSBE720
00280                 WRK-UI-TAX-PAID-CHNG.                             DTSBE720
00281                                                                   DTSBE720
00282      MOVE LOW-VALUES TO MJRN-KEY-AREA.                            DTSBE720
00283      MOVE MPRF-EMP-NO TO MJRN-EMP-NO.                             DTSBE720
00284      SET MJRN-JRN-88 TO TRUE.                                     DTSBE720
00285      MOVE MJRN-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE720
00286      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE720
00287      PERFORM P2000-SCAN-MJRN THRU P2000-EXIT                      DTSBE720
00288          UNTIL L910-NO-REC-88.                                    DTSBE720
00289                                                                   DTSBE720
00290      IF MPRF-EMP-NO = 145328 OR 149629                            DTSBE720
00291         MOVE WRK-PERIOD-START-UI-TAX-DUE  TO AMT-DISP1            DTSBE720
00292         MOVE WRK-PERIOD-END-UI-TAX-DUE  TO AMT-DISP2              DTSBE720
00293         DISPLAY MPRF-EMP-NO ' START BAL ' AMT-DISP1               DTSBE720
00294            ' END BAL ' AMT-DISP2                                  DTSBE720
00295      END-IF.                                                      DTSBE720
00296 **   IF WRK-PERIOD-END-UI-TAX-DUE > WRK-PERIOD-START-UI-TAX-DUE   DTSBE720
00297      IF WRK-PERIOD-END-UI-TAX-DUE >                               DTSBE720
00298         (WRK-PERIOD-START-UI-TAX-DUE + 100)                       DTSBE720
00299          NEXT SENTENCE                                            DTSBE720
00300      ELSE                                                         DTSBE720
00301          GO TO P0000-EXIT.                                        DTSBE720
00302                                                                   DTSBE720
00303      IF MPRF-CLASS-SELF-INS-88                                    DTSBE720
00304      SET R720-TRANS-TYPE-REIMB-88 TO TRUE                         DTSBE720
00305      ELSE                                                         DTSBE720
00306      SET R720-TRANS-TYPE-CNTRB-88 TO TRUE.                        DTSBE720
00307      MOVE MPRF-EMP-NO TO R720-EMP-NO.                             DTSBE720
00308      MOVE LECM-PRIOR-RUN-DATE TO R720-RUN-DATE.                   DTSBE720
00309      MOVE WRK-UI-TAX-CHARGE-CHNG TO R720-TAX-DUE.                 DTSBE720
00310      MOVE WRK-UI-TAX-PAID-CHNG TO R720-TAX-PAID.                  DTSBE720
00311                                                                   DTSBE720
00312      PERFORM S946-WRITE-R720 THRU S946-EXIT.                      DTSBE720
00313  P0000-EXIT.                                                      DTSBE720
00314      EXIT.                                                        DTSBE720
00315      EJECT                                                        DTSBE720
00316  P1000-SCAN-MQTR.                                                 DTSBE720
00317      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE720
00318                                                                   DTSBE720
00319      PERFORM                                                      DTSBE720
00320        VARYING MQTR-ACCT-IDX FROM 1 BY 1                          DTSBE720
00321        UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                        DTSBE720
00322          IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                       DTSBE720
00323              ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                 DTSBE720
00324               TO WRK-CURRENT-UI-TAX-DUE                           DTSBE720
00325          END-IF                                                   DTSBE720
00326      END-PERFORM.                                                 DTSBE720
00327                                                                   DTSBE720
00328      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE720
00329  P1000-EXIT.                                                      DTSBE720
00330      EXIT.                                                        DTSBE720
00331      EJECT                                                        DTSBE720
00332  P2000-SCAN-MJRN.                                                 DTSBE720
00333      MOVE MSKL-REC TO MJRN-REC.                                   DTSBE720
00334                                                                   DTSBE720
00335      IF MJRN-TRAN-CNVR-88                                         DTSBE720
00336          NEXT SENTENCE                                            DTSBE720
00337      ELSE                                                         DTSBE720
00338      IF MJRN-ESTB-DATE < WRK-PARM-PERIOD-START-DATE               DTSBE720
00339          NEXT SENTENCE                                            DTSBE720
00340      ELSE                                                         DTSBE720
00341          PERFORM P2100-ACCT-GROUP-SCAN THRU P2100-EXIT            DTSBE720
00342              VARYING MJRN-OCC-IDX FROM 1 BY 1                     DTSBE720
00343              UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT.                   DTSBE720
00344                                                                   DTSBE720
00345      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE720
00346  P2000-EXIT.                                                      DTSBE720
00347      EXIT.                                                        DTSBE720
00348      SKIP3                                                        DTSBE720
00349  P2100-ACCT-GROUP-SCAN.                                           DTSBE720
00350      IF MJRN-ROW-UI-88 (MJRN-OCC-IDX)                             DTSBE720
00351          NEXT SENTENCE                                            DTSBE720
00352      ELSE                                                         DTSBE720
00353          GO TO P2100-EXIT.                                        DTSBE720
00354                                                                   DTSBE720
00355      IF MPRF-EMP-NO = 145328 OR 149629                            DTSBE720
00356         DISPLAY MPRF-EMP-NO ' JRN ' MJRN-BATCH-NO                 DTSBE720
00357            ' ' MJRN-ITEM-NO '  ' MJRN-ESTB-DATE                   DTSBE720
00358      END-IF.                                                      DTSBE720
00359      IF MJRN-COL-CHARGED-88 (MJRN-OCC-IDX)                        DTSBE720
00360          SUBTRACT MJRN-AMT (MJRN-OCC-IDX)                         DTSBE720
00361            FROM WRK-PERIOD-START-UI-TAX-DUE                       DTSBE720
00362          IF MPRF-EMP-NO = 145328 OR 149629                        DTSBE720
00363             MOVE MJRN-AMT (MJRN-OCC-IDX) TO AMT-DISP1             DTSBE720
00364             DISPLAY MPRF-EMP-NO ' 1  CHG ' AMT-DISP1              DTSBE720
00365          END-IF                                                   DTSBE720
00366      ELSE                                                         DTSBE720
00367          IF MPRF-EMP-NO = 145328 OR 149629                        DTSBE720
00368             MOVE MJRN-AMT (MJRN-OCC-IDX) TO AMT-DISP1             DTSBE720
00369             DISPLAY MPRF-EMP-NO ' 1  PD ' AMT-DISP1               DTSBE720
00370          END-IF                                                   DTSBE720
00371          ADD MJRN-AMT (MJRN-OCC-IDX)                              DTSBE720
00372           TO WRK-PERIOD-START-UI-TAX-DUE.                         DTSBE720
00373                                                                   DTSBE720
00374      IF MJRN-ESTB-DATE > WRK-PARM-PERIOD-END-DATE                 DTSBE720
00375          IF MJRN-COL-CHARGED-88 (MJRN-OCC-IDX)                    DTSBE720
00376              SUBTRACT MJRN-AMT (MJRN-OCC-IDX)                     DTSBE720
00377                FROM WRK-PERIOD-END-UI-TAX-DUE                     DTSBE720
00378              IF MPRF-EMP-NO = 145328 OR 149629                    DTSBE720
00379                 MOVE MJRN-AMT (MJRN-OCC-IDX) TO AMT-DISP1         DTSBE720
00380                 DISPLAY MPRF-EMP-NO ' 2 CH ' AMT-DISP1            DTSBE720
00381              END-IF                                               DTSBE720
00382          ELSE                                                     DTSBE720
00383              IF MPRF-EMP-NO = 145328 OR 149629                    DTSBE720
00384                 MOVE MJRN-AMT (MJRN-OCC-IDX) TO AMT-DISP1         DTSBE720
00385                 DISPLAY MPRF-EMP-NO ' 2 PD ' AMT-DISP1            DTSBE720
00386              END-IF                                               DTSBE720
00387              ADD MJRN-AMT (MJRN-OCC-IDX)                          DTSBE720
00388               TO WRK-PERIOD-END-UI-TAX-DUE                        DTSBE720
00389      ELSE                                                         DTSBE720
00390          IF MJRN-COL-CHARGED-88 (MJRN-OCC-IDX)                    DTSBE720
00391              IF MPRF-EMP-NO = 145328 OR 149629                    DTSBE720
00392                 MOVE MJRN-AMT (MJRN-OCC-IDX) TO AMT-DISP1         DTSBE720
00393                 DISPLAY MPRF-EMP-NO ' 3 CH ' AMT-DISP1            DTSBE720
00394              END-IF                                               DTSBE720
00395              ADD MJRN-AMT (MJRN-OCC-IDX)                          DTSBE720
00396               TO WRK-UI-TAX-CHARGE-CHNG                           DTSBE720
00397          ELSE                                                     DTSBE720
00398          IF MJRN-COL-PAID-88 (MJRN-OCC-IDX)                       DTSBE720
00399              IF MPRF-EMP-NO = 145328 OR 149629                    DTSBE720
00400                 MOVE MJRN-AMT (MJRN-OCC-IDX) TO AMT-DISP1         DTSBE720
00401                 DISPLAY MPRF-EMP-NO ' 3 PD ' AMT-DISP1            DTSBE720
00402              END-IF                                               DTSBE720
00403              ADD MJRN-AMT (MJRN-OCC-IDX)                          DTSBE720
00404               TO WRK-UI-TAX-PAID-CHNG.                            DTSBE720
00405  P2100-EXIT.                                                      DTSBE720
00406      EXIT.                                                        DTSBE720
00407      EJECT                                                        DTSBE720
00408  T0000-TERMINATE.                                                 DTSBE720
00409      SKIP2                                                        DTSBE720
00410      SKIP2                                                        DTSBE720
00411  T0000-EXIT.                                                      DTSBE720
00412      EXIT.                                                        DTSBE720
00413      EJECT                                                        DTSBE720
00414  S001-FROM-FED-8.                                                 DTSBE720
00415      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE720
00416      GO TO S001-DATE.                                             DTSBE720
00417      SKIP1                                                        DTSBE720
00418  S001-FROM-ABS-DAY.                                               DTSBE720
00419      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE720
00420      GO TO S001-DATE.                                             DTSBE720
00421      SKIP1                                                        DTSBE720
00422  S001-FROM-CAL-6.                                                 DTSBE720
00423      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE720
00424      GO TO S001-DATE.                                             DTSBE720
00425      SKIP1                                                        DTSBE720
00426  S001-DATE.                                                       DTSBE720
00427      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE720
00428  S001-EXIT.                                                       DTSBE720
00429      EXIT.                                                        DTSBE720
00430      SKIP3                                                        DTSBE720
00431  S910-READ.                                                       DTSBE720
00432      SET L910-READ-88 TO TRUE.                                    DTSBE720
00433      GO TO S910-MSTR-IO.                                          DTSBE720
00434      SKIP1                                                        DTSBE720
00435  S910-START-BROWSE.                                               DTSBE720
00436      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE720
00437      GO TO S910-MSTR-IO.                                          DTSBE720
00438      SKIP1                                                        DTSBE720
00439  S910-READ-NEXT.                                                  DTSBE720
00440      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE720
00441      GO TO S910-MSTR-IO.                                          DTSBE720
00442      SKIP1                                                        DTSBE720
00443  S910-COUNT.                                                      DTSBE720
00444      SET L910-COUNT-88 TO TRUE.                                   DTSBE720
00445      GO TO S910-MSTR-IO.                                          DTSBE720
00446      SKIP1                                                        DTSBE720
00447  S910-MSTR-IO.                                                    DTSBE720
00448      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE720
00449                            MSKL-REC.                              DTSBE720
00450  S910-EXIT.                                                       DTSBE720
00451      EXIT.                                                        DTSBE720
00452      SKIP3                                                        DTSBE720
00453  S946-WRITE-R720.                                                 DTSBE720
00454      CALL 'DTSBU946' USING R720-REC.                              DTSBE720
00455      GO TO S946-EXIT.                                             DTSBE720
00456      SKIP1                                                        DTSBE720
00457  S946-EXIT.                                                       DTSBE720
00458      EXIT.                                                        DTSBE720
00459      SKIP3                                                        DTSBE720
00460  S999-ABEND.                                                      DTSBE720
00461      DISPLAY '*** DTSBE720 ABENDING.  '                           DTSBE720
00462              ABEND-MSG.                                           DTSBE720
00463      SKIP1                                                        DTSBE720
00464      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE720
00465  S999-EXIT.                                                       DTSBE720
00466      EXIT.                                                        DTSBE720
