00001  IDENTIFICATION DIVISION.                                         05/30/13
00002  PROGRAM-ID.             DTSBD374.                                DTSBD374
00003  AUTHOR.                 TRW.                                        LV069
00004  DATE-WRITTEN.           JANUARY 2002.                            DTSBD374
00005  DATE-COMPILED.                                                   DTSBD374
00006      SKIP3                                                        DTSBD374
00007 *****                                                             DTSBD374
00008 *                                                                 DTSBD374
00009 *    >>> NEW VERSION: CALL BD371           <<<                    DTSBD374
00010 *                                                                 DTSBD374
00011 *    FUNCTION:  ANNUAL REPORT TRANSACTION PROCESSING.             DTSBD374
00012 *                                                                 DTSBD374
00013 *                                                                 DTSBD374
00014 *    MODIFICATION LOG:                                            DTSBD374
00015 *                                                                 DTSBD374
00016 *    01/29/2002  INITIAL DEVELOPMENT.                             DTSBD374
00017 *                WORK ORDER: HOUSEHOLD            PROGRAMMER: GD  DTSBD374
00018 *                                                                 DTSBD374
00019 *    03/31/2003  MODIFIED P0400 - DO NOT CHECK FOR DIFFERENCE     DTSBD374
00020 *                BETWEEN REPORTED TAX WAGE AND SUM OF TAX WAGE    DTSBD374
00021 *                AMOUNTS FOR EACH EMPLOYEE WHEN REPORT IS         DTSBD374
00022 *                WITHDRAWN.                                       DTSBD374
00023 *                BYPASS P0411-ADJUST-TAX IF TAX WAGE SUM = 0      DTSBD374
00024 *                (POTENTIAL DIVISION BY ZERO ERROR).              DTSBD374
00025 *                WORK ORDER: HOUSEHOLD            PROGRAMMER: GD  DTSBD374
00026 *                                                                 DTSBD374
00027 *    11/18/2003  MODIFIED P0300 - BYPASS IF RPT TYPE = WITHDRAWN  DTSBD374
00028 *                MODIFIED P1300 - BYPASS TEST:                    DTSBD374
00029 *                  (IF NOT MQTR-CURR-RCVD-88 ...)                 DTSBD374
00030 *                WHEN QUARTER IS NOT LIABLE.                      DTSBD374
00031 *                WORK ORDER: HOUSEHOLD            PROGRAMMER: GD  DTSBD374
00032 *                                                                 DTSBD374
00033 *    12/16/2003  MODIFIED EDIT PARAGRAPHS TO BYPASS QUARTERS IN   DTSBD374
00034 *                WHICH THE EMPLOYER IS NOT LIABLE:                DTSBD374
00035 *                P1100, P1200, P1400.                             DTSBD374
00036 *                WORK ORDER: HOUSEHOLD            PROGRAMMER: GD  DTSBD374
00037 *                                                                 DTSBD374
00038 *    12/17/2003  CORRECTED P2520 (MISSING EMPLOYEE COUNT          DTSBD374
00039 *                LETTER) - CODE NOT CHANGED FROM DTSBD371.        DTSBD374
00040 *                WORK ORDER: HOUSEHOLD            PROGRAMMER: GD  DTSBD374
00041 *                                                                 DTSBD374
00042 *    02/23/2004  CORRECTED TIMING FOR READ OF MQTR RECORDS.       DTSBD374
00043 *                THE PROGRAM WAS READING ALL 4 QUARTERS AT THE    DTSBD374
00044 *                START OF PROCESSING FOR EACH EMPLOYER.  THIS     DTSBD374
00045 *                RESULTED IN ERRORS DURING ADJUSTMENT PROCESSING  DTSBD374
00046 *                BECAUSE CALLED PROGRAMS (DTSBU520, DTSBU521)     DTSBD374
00047 *                MODIFY MQTR RECORDS.  THE READ FOR EACH QUARTER  DTSBD374
00048 *                HAS BEEN MOVED TO P0000 (IT IS PERFORMED IN      DTSBD374
00049 *                P0220).                                          DTSBD374
00050 *                WORK ORDER: PRODUCTION PROBLEM   PROGRAMMER: GD  DTSBD374
00051 *                                                                 DTSBD374
00052 *    03/19/2004  ADDED REFERENCE TO L102-ELECTRONIC-RPT AND       DTSBD374
00053 *                L420-ABSTIME - BOTH USED IN ELECTRONIC           DTSBD374
00054 *                REPORTING PROCESS.                               DTSBD374
00055 *                WORK ORDER: EFT                  PROGRAMMER: GD  DTSBD374
00056 *                                                                 DTSBD374
00057 *    03/22/2004  CORRECTED PROBLEM WITH EMPLOYEE COUNTS. THE FIELDDTSBD374
00058 *                IN THE AATX RECORD IS SHORTER THAN THE FIELD IN  DTSBD374
00059 *                THE MQTR.  WHEN AATX-JAN-NO-ENTRY-88 IS SET TO   DTSBD374
00060 *                TRUE AND THEN MOVED TO THE MQTR RECORD, THE MQTR DTSBD374
00061 *                SEES THE VALUE (99,999) AS AN ACTUAL COUNT, AND  DTSBD374
00062 *                NOT AS A SPECIAL VALUE INDICATING "NO COUNT      DTSBD374
00063 *                ENTERED."  MODIFIED CODE IN P2520.               DTSBD374
00064 *                WORK ORDER: ES-202               PROGRAMMER: GD  DTSBD374
00065 *                                                                 DTSBD374
00066 *    04/06/2004  CORRECTED PROBLEM WITH P1300 EDITS. IF CURRENT   DTSBD374
00067 *                REPORT TYPE IS 'NOT DUE,' DO NOT EDIT CURRENT    DTSBD374
00068 *                REPORT TYPE AGAINST AATX REPORT TYPE.            DTSBD374
00069 *                WORK ORDER: EFT                  PROGRAMMER: GD  DTSBD374
00070 *                                                                 DTSBD374
00071 *    04/08/2004  ADDED CODE IN P0210 TO ENFORCE GRACE PERIOD.     DTSBD374
00072 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD374
00073 *                                                                 DTSBD374
00074 *    05/21/2004  MOVED P1000 EDITS TO ENSURE ALL QUARTERS PASS    DTSBD374
00075 *                ALL EDITS BEFORE BEGINNING TO UPDATE QUARTER.    DTSBD374
00076 *                MOVED TEST FOR YRQ < FIRST ANNUAL YRQ AND        DTSBD374
00077 *                TEST FOR DUPLICATE TRANSACTION FROM              DTSBD374
00078 *                P1000 (EXECUTED FOR EACH QUARTER) TO P0100       DTSBD374
00079 *                (EXECUTED ONE TIME).                             DTSBD374
00080 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD374
00081 *                                                                 DTSBD374
00082 *    06/22/2004  MODIFIED P2820. BECAUSE WRK-LAST-LIAB-YRQ IS     DTSBD374
00083 *                ALWAYS ZERO WHEN PROCESSING A WD TRANSACTION,    DTSBD374
00084 *                CODE IN P2800 TO DECREMENT PAYMENTS AND WAIVERS  DTSBD374
00085 *                WAS NOT EXECUTED. COPIED THIS CODE TO P2820.     DTSBD374
00086 *                WORK ORDER: PRODUCTION PROBLEM   PROGRAMMER: GD  DTSBD374
00087 *                                                                 DTSBD374
00088 *    07/22/2004  REMOVED CALL THE P0411 TO ADJUST TAX WAGES.      DTSBD374
00089 *                TOTAL TAXABLE WAGES MUST ALWAYS EQUAL THE        DTSBD374
00090 *                AMOUNT CALCULATED FROM THE WAGE ITEMS.           DTSBD374
00091 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD374
00092 *                                                                 DTSBD374
00093 *    01/25/2005  INITIALIZE NEW FILED (APAY-NSF-MNTE-ABSTIME).    DTSBD374
00094 *                WORK ORDER: RETURNED CHECK       PROGRAMMER: ZL1 DTSBD374
00095 *                                                                 DTSBD374
00096 *    04/25/2005  MODIFIED FOR NEW PENALTY PROCESS.                DTSBD374
00097 *                WORK ORDER: DIR 107              PROGRAMMER: GD  DTSBD374
00098 *                                                                 DTSBD374
00099 *    10/07/2005  MODIFIED P3000 TO INITIALIZE MRPT-WAGE-RPT-IND   DTSBD374
00100 *                AND MRPT-STATUS-CHNG-IND.                        DTSBD374
00101 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD374
00102 *                                                                 DTSBD374
00103 *    03/07/2006  PENALTY AND INTEREST CALCULATIONS MODIFIED       DTSBD374
00104 *                TO EXCLUDE SUR-TAX: P2031A, P2840.               DTSBD374
00105 *                MODIFIED FOR NEW VERSION OF BU109.               DTSBD374
00106 *                REFERENCE: ADMIN ASSESS        PROGRAMMER: GD    DTSBD374
00107 *                                                                 DTSBD374
00108 *    04/06/2006  MODIFIED P1900 TO CORRECT FOR ERRORS RESULTING   DTSBD374
00109 *                FROM THE DIFFERENCE BETWEEN WAGE AMOUNTS ON THE  DTSBD374
00110 *                WAGE FILE (WITH THE PENNIES REMOVED) AND WAGE    DTSBD374
00111 *                ON THE TAX REPORT (INCLUDING PENNIES). THE       DTSBD374
00112 *                DIFFERENCE BETWEEN THESE VALUES CAUSED           DTSBD374
00113 *                TRANSACTIONS TO FAIL WHEN THE CALCULATION        DTSBD374
00114 *                PRODUCED NEGATIVE NUMBERS.                       DTSBD374
00115 *                REFERENCE:                     PROGRAMMER: GD    DTSBD374
00116 *                                                                 DTSBD374
00117 *    06/13/2007  MODIFIED P0000 TO PASS MPRF-EMP-NO TO BU420.     DTSBD374
00118 *                REFERENCE:                     PROGRAMMER: GD    DTSBD374
00119 *                                                                 DTSBD374
00120 *    09/10/2007  MODIFIED P2830 TO PASS LBCM-CURR-RUN-DATE TO     DTSBD374
00121 *                NEW FIELD L102-CURR-RUN-DATE                     DTSBD374
00122 *                REFERENCE:                     PROGRAMMER: ZL1   DTSBD374
00123 *                                                                 DTSBD374
00124 *    02/06/2008  MODIFIED FOR STATUS CHANGE INDICATOR (P3000).    DTSBD374
00125 *                REFERENCE:                     PROGRAMMER: GD    DTSBD374
00126 *                                                                 DTSBD374
00127 *&  >>> THE FOLLOWING COMMENTED OUT UNTIL READY FOR TESTING       DTSBD374
00128 *&  >>> OF NEW PENALTY AND INTEREST RULE.                         DTSBD374
00129 *&  >>> CHANGES MARKED WITH *& IN I0000 AND P2840.                DTSBD374
00130 *    02/11/2008  MODIFIED FOR NEW PENALTY AND INTEREST RULE.      DTSBD374
00131 *                ADMIN ASSESSMENT IS INCLUDED IN THE              DTSBD374
00132 *                CALCULATION FOR QUARTERS >= 2008/1.              DTSBD374
00133 *                A CALL TO DTSBU109 RETURNS THE START QUARTER.    DTSBD374
00134 *                REFERENCE:                     PROGRAMMER: GD    DTSBD374
00135 *                                                                 DTSBD374
00136 *    06/22/2009  CORRECTED PROBLEM WITH PURSUED REPORT COUNT.     DTSBD374
00137 *                THE COUNT WAS CORRECTED ANNUAL REPORT BY         DTSBD374
00138 *                ANNUAL REPORT, SUBTRACTING 1 FOR EACH            DTSBD374
00139 *                REPORT PROCESSED, OR ADDING 1 FOR EACH           DTSBD374
00140 *                NEWLY LIABLE REPORT.                             DTSBD374
00141 *                THIS PROCESS DOES NOT WORK WHEN QUARTERS         DTSBD374
00142 *                ARE CHANGED FROM QUARTERLY TO ANNUAL.            DTSBD374
00143 *                THE NEW PROCESS READS ALL QUARTERS, AND          DTSBD374
00144 *                RESETS THE MPRF COUNT BASED ON THE ACTUAL        DTSBD374
00145 *                SETTINGS OF THE PURSUED REPORT INDICATORS.       DTSBD374
00146 *                REFERENCE:                     PROGRAMMER: GD    DTSBD374
00147 *                                                                 DTSBD374
00148 *    07/13/2010  CORRECTED PROBLEM WITH QUARTER STATUS FOR        DTSBD374
00149 *                WITHDRAWN REPORTS. PROGRAM WAS USING THE         DTSBD374
00150 *                WRONG DATE FOR THE LAST DELINQUENT YEAR          DTSBD374
00151 *                IN P2210.                                        DTSBD374
00152 *                CORRECTED ERROR WITH PURSUED REPORT COUNT IN     DTSBD374
00153 *                P0900 - ADDED CODE FOR ANNUAL REPORTS.           DTSBD374
00154 *                REMOVED CODE IN P2610 TO ADJUST ROUNDING OF      DTSBD374
00155 *                OF UI TAX AND ADMIN ASSESSMENT. THE              DTSBD374
00156 *                CORRESPONDING CODE IN DTSBD371 WAS REMOVED       DTSBD374
00157 *                IN 2007.                                         DTSBD374
00158 *                REFERENCE:                     PROGRAMMER: GD    DTSBD374
00159 *                                                                 DTSBD374
00160 *    11/15/2011  MODIFIED FOR NEW VERSION OF L420 LINKAGE.        DTSBD374
00161 *                REFERENCE:                     PROGRAMMER: GD    DTSBD374
00162 *                                                                 DTSBD374
00163 *    03/02/2012  ADDED QUARTER TO L420 LINKAGE.  CODE THAT CALLS  DTSBD374
00164 *                DTSBU420 HAS BEEN MODIFIED TO PASS THE QUARTER.  DTSBD374
00165 *                REFERENCE:                     PROGRAMMER: GD    DTSBD374
00166 *                                                                 DTSBD374
00167 *    11/29/2012  MODIFED THE CALL TO BU420 IN P0000. IT WILL SET  DTSBD374
00168 *                THE QUARTER IN THE L420 LINKAGE. THIS ENSURES    DTSBD374
00169 *                THAT ANY CHANGE TO THE YEAR IS PASSED TO THE     DTSBD374
00170 *                WAGES.                                           DTSBD374
00171 *                REFERENCE:                     PROGRAMMER: GD    DTSBD374
00172 *                                                                 DTSBD374
00173 *                                                                 DTSBD374
00174 *    03/22/2013  MODIFED TO INCLUDE SUR TAX FOR TIMELY PAYMENTS   DTSBD374
00175 *                REFERENCE:                     PROGRAMMER: ZL1   DTSBD374
00176 *                                                                 DTSBD374
00177 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD374
00178 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD374
00179 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD374
00180 *                                                                 DTSBD374
00181 *                                                                 DTSBD374
00182 *  DESCRIPTION:                                                   DTSBD374
00183 *                                                                 DTSBD374
00184 *      PROCESSES ANNUAL ACCOUNTING REPORT TRANSACTIONS.           DTSBD374
00185 *                                                                 DTSBD374
00186 *                                                                 DTSBD374
00187 *      MASTER FILE RECORDS READ:                                  DTSBD374
00188 *                                                                 DTSBD374
00189 *        MQTR                                                     DTSBD374
00190 *        MRPT                                                     DTSBD374
00191 *        MPAY                                                     DTSBD374
00192 *        MTCK                                                     DTSBD374
00193 *                                                                 DTSBD374
00194 *                                                                 DTSBD374
00195 *      MASTER FILE RECORDS UPDATED:                               DTSBD374
00196 *                                                                 DTSBD374
00197 *        MQTR (WRITE, REWRITE)                                    DTSBD374
00198 *        MRPT (WRITE)                                             DTSBD374
00199 *                                                                 DTSBD374
00200 *                                                                 DTSBD374
00201 *      REPORT RECORDS WRITTEN:                                    DTSBD374
00202 *                                                                 DTSBD374
00203 *        R726  MISSING EMPLOYEE COUNT LETTER.                     DTSBD374
00204 *        R907  ERROR.                                             DTSBD374
00205 *                                                                 DTSBD374
00206 *                                                                 DTSBD374
00207 *      MODULES CALLED:                                            DTSBD374
00208 *                                                                 DTSBD374
00209 *        DTSBD372 PAYMENT TRANSACTION PROCESSING.                 DTSBD374
00210 *        DTSBU001 DATE EDIT/CONVERSION.                           DTSBD374
00211 *        DTSBU101 COMPUTE INTEREST CHARGED.                       DTSBD374
00212 *        DTSBU102 COMPUTE LATE PAYMENT PENALTY CHARGED.           DTSBD374
00213 *        DTSBU511 INITIALIZE A MQTR RECORD.                       DTSBD374
00214 *        DTSBU516 DETERMINE LIABILITY, DUE DATE, AND RATE FOR A   DTSBD374
00215 *                 GIVEN QUARTER.                                  DTSBD374
00216 *        DTSBU520 PAYMENT APPLICATION.                            DTSBD374
00217 *        DTSBU522 RETURN A PAID AMOUNT TO UNAPPLIED CREDIT.       DTSBD374
00218 *        DTSBU541 MODIFY A SPECIFIED CHARGED, WAIVED, TOLERATED   DTSBD374
00219 *                 OR WRITTEN OFF AMOUNT.                          DTSBD374
00220 *        DTSBU549 JOURNALING/BATCH DETAIL LISTING.                DTSBD374
00221 *        DTSBU590 EMPLOYER CLEANUP.                               DTSBD374
00222 *        DTSBU910 MASTER FILE I/O.                                DTSBD374
00223 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1.     DTSBD374
00224 *                                                                 DTSBD374
00225 *                                                                 DTSBD374
00226 *****                                                             DTSBD374
00227      SKIP3                                                        DTSBD374
00228  ENVIRONMENT DIVISION.                                            DTSBD374
00229      EJECT                                                        DTSBD374
00230  DATA DIVISION.                                                   DTSBD374
00231      SKIP3                                                        DTSBD374
00232  WORKING-STORAGE SECTION.                                         DTSBD374
002325 77  PAN-VALET PICTURE X(24) VALUE '069DTSBD374  05/30/13'.       DTSBD374
00233  77  PAN-VALET PICTURE X(24) VALUE '005DTSBD374  05/29/13'.       DTSBD374
00234  77  PAN-VALET PICTURE X(24) VALUE '067DTSBD374  05/20/13'.       DTSBD374
00235  77  PAN-VALET PICTURE X(24) VALUE '009DTSBD374  05/15/13'.       DTSBD374
00236  77  PAN-VALET PICTURE X(24) VALUE '037DTSBD374  03/27/13'.       DTSBD374
00237  77  PAN-VALET PICTURE X(24) VALUE '065DTSBD374  03/12/12'.       DTSBD374
00238      SKIP3                                                        DTSBD374
00239  01  WRK-AREA.                                                    DTSBD374
00240      05  AMT1-DISP                       PIC  Z(08)9.99-.         DTSBD374
00241      05  AMT2-DISP                       PIC  Z(08)9.99-.         DTSBD374
00242      05  AMT3-DISP                       PIC  Z(08)9.99-.         DTSBD374
00243      05  AMT4-DISP                       PIC  Z(08)9.99-.         DTSBD374
00244                                                                   DTSBD374
00245      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +374.DTSBD374
00246                                                                   DTSBD374
00247      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD374'.DTSBD374
00248                                                                   DTSBD374
00249      05  FIRST-TIME-IND                  PIC  X(01)    VALUE 'Y'. DTSBD374
00250                                                                   DTSBD374
00251      05  WRK-NULL-DOC-NO.                                         DTSBD374
00252          10  WRK-NULL-BATCH-NO           PIC S9(05)       COMP-3. DTSBD374
00253          10  WRK-NULL-ITEM-NO            PIC S9(03)       COMP-3. DTSBD374
00254                                                                   DTSBD374
00255      05  WRK-WAGE-FIRST-TIME-IND         PIC  X(01).              DTSBD374
00256          88  WRK-WAGE-FIRST-TIME-YES-88   VALUE 'Y'.              DTSBD374
00257          88  WRK-WAGE-FIRST-TIME-NO-88    VALUE 'N'.              DTSBD374
00258                                                                   DTSBD374
00259      05  WRK-PMT-FIRST-TIME-IND          PIC  X(01).              DTSBD374
00260          88  WRK-PMT-FIRST-TIME-YES-88    VALUE 'Y'.              DTSBD374
00261          88  WRK-PMT-FIRST-TIME-NO-88     VALUE 'N'.              DTSBD374
00262                                                                   DTSBD374
00263      05  WRK-LBCM-TRN-RESULT-IND         PIC  X(01).              DTSBD374
00264      05  WRK-LBCM-TRN-MSG-AREA           PIC  X(131).             DTSBD374
00265                                                                   DTSBD374
00266      05  WRK-GRACE-PERIOD-END            PIC S9(09)       COMP-3. DTSBD374
00267      05  WRK-WORK-DAY-CNT                PIC S9(03)       COMP.   DTSBD374
00268                                                                   DTSBD374
00269      05  WRK-WAGES-FOUND-IND             PIC  X(01).              DTSBD374
00270          88  WRK-WAGES-FOUND-YES-88       VALUE 'Y'.              DTSBD374
00271          88  WRK-WAGES-FOUND-NO-88        VALUE 'N'.              DTSBD374
00272                                                                   DTSBD374
00273      05  WRK-UI-CHARGED-AMT              PIC S9(09)V9(02) COMP-3. DTSBD374
00274                                                                   DTSBD374
00275      05  WRK-SUR-CHARGED-AMT             PIC S9(09)V9(02) COMP-3. DTSBD374
00276                                                                   DTSBD374
00277      05  WRK-TAX-CHRG-DIFF-AMT           PIC S9(09)V9(02) COMP-3. DTSBD374
00278                                                                   DTSBD374
00279      05  UI-TAX-RATE                     PIC S9(01)V9(04) COMP-3. DTSBD374
00280      05  UI-TAX-RATE-IND                 PIC  X(01).              DTSBD374
00281          88  UI-TAX-RATE-YES-88      VALUE '0'.                   DTSBD374
00282          88  UI-TAX-RATE-NO-88       VALUE '1'.                   DTSBD374
00283          88  UI-TAX-RATE-ESTIM-88    VALUE '2'.                   DTSBD374
00284                                                                   DTSBD374
00285      05  WRK-REMIT-AMT                   PIC S9(09)V99    COMP-3. DTSBD374
00286      05  WRK-TOT-CHG-AMT                 PIC S9(09)V99    COMP-3. DTSBD374
00287                                                                   DTSBD374
00288      05  WRK-UC30H-DEL-END-YRQ           PIC S9(05)       COMP-3. DTSBD374
00289                                                                   DTSBD374
00290      05  WRK-FIRST-ANN-YRQ               PIC S9(05)       COMP-3  DTSBD374
00291                                           VALUE +20021.           DTSBD374
00292                                                                   DTSBD374
00293      05  WRK-LAST-LIAB-YRQ               PIC S9(05)       COMP-3. DTSBD374
00294                                                                   DTSBD374
00295      05  WRK-CURR-YEAR                   PIC  9(04) VALUE ZERO.   DTSBD374
00296                                                                   DTSBD374
00297      05  WRK-TAX-WAGE-BASE               PIC S9(07)V9(02) COMP-3. DTSBD374
00298      05  WRK-TAX-WAGE-REMAIN             PIC S9(07)V9(02) COMP-3. DTSBD374
00299                                                                   DTSBD374
00300      05  WRK-QTR1                        PIC S9(05)       COMP-3. DTSBD374
00301      05  WRK-QTR1-LIABLE-IND             PIC  X(01).              DTSBD374
00302          88  WRK-QTR1-LIABLE-88           VALUE '0'.              DTSBD374
00303          88  WRK-QTR1-NOT-LIABLE-88       VALUE '1'.              DTSBD374
00304                                                                   DTSBD374
00305      05  WRK-QTR2                        PIC S9(05)       COMP-3. DTSBD374
00306      05  WRK-QTR2-LIABLE-IND             PIC  X(01).              DTSBD374
00307          88  WRK-QTR2-LIABLE-88           VALUE '0'.              DTSBD374
00308          88  WRK-QTR2-NOT-LIABLE-88       VALUE '1'.              DTSBD374
00309                                                                   DTSBD374
00310      05  WRK-QTR3                        PIC S9(05)       COMP-3. DTSBD374
00311      05  WRK-QTR3-LIABLE-IND             PIC  X(01).              DTSBD374
00312          88  WRK-QTR3-LIABLE-88           VALUE '0'.              DTSBD374
00313          88  WRK-QTR3-NOT-LIABLE-88       VALUE '1'.              DTSBD374
00314                                                                   DTSBD374
00315      05  WRK-QTR4                        PIC S9(05)       COMP-3. DTSBD374
00316      05  WRK-QTR4-LIABLE-IND             PIC  X(01).              DTSBD374
00317          88  WRK-QTR4-LIABLE-88           VALUE '0'.              DTSBD374
00318          88  WRK-QTR4-NOT-LIABLE-88       VALUE '1'.              DTSBD374
00319                                                                   DTSBD374
00320      05  WRK-BATCH-TABLE.                                         DTSBD374
00321          10  WRK-BATCH-MAX               PIC S9(04) COMP          DTSBD374
00322                                            VALUE +1000.           DTSBD374
00323          10  WRK-BATCH-LAST              PIC S9(04) COMP.         DTSBD374
00324          10  SUB                         PIC S9(04) COMP.         DTSBD374
00325          10  SUB1                        PIC S9(04) COMP.         DTSBD374
00326          10  WRK-BATCH-ENTRY    OCCURS 1000 TIMES.                DTSBD374
00327              15  WRK-BATCH-NO            PIC S9(05)       COMP-3. DTSBD374
00328              15  WRK-LAST-ITEM-NO        PIC S9(03)       COMP-3. DTSBD374
00329                                                                   DTSBD374
00330      05  WRK-TOT-WAGE                    PIC S9(11)V9(02) COMP-3. DTSBD374
00331      05  WRK-TAX-WAGE                    PIC S9(11)V9(02) COMP-3. DTSBD374
00332      05  WRK-REMIT                       PIC S9(09)V9(02) COMP-3. DTSBD374
00333                                                                   DTSBD374
00334      05  WRK-SSN-QTR1-TOT-WAGE           PIC S9(11)V9(02) COMP-3. DTSBD374
00335      05  WRK-SSN-QTR2-TOT-WAGE           PIC S9(11)V9(02) COMP-3. DTSBD374
00336      05  WRK-SSN-QTR3-TOT-WAGE           PIC S9(11)V9(02) COMP-3. DTSBD374
00337      05  WRK-SSN-QTR4-TOT-WAGE           PIC S9(11)V9(02) COMP-3. DTSBD374
00338                                                                   DTSBD374
00339      05  WRK-QTR1-TOT-WAGE               PIC S9(11)V9(02) COMP-3. DTSBD374
00340      05  WRK-QTR2-TOT-WAGE               PIC S9(11)V9(02) COMP-3. DTSBD374
00341      05  WRK-QTR3-TOT-WAGE               PIC S9(11)V9(02) COMP-3. DTSBD374
00342      05  WRK-QTR4-TOT-WAGE               PIC S9(11)V9(02) COMP-3. DTSBD374
00343                                                                   DTSBD374
00344      05  WRK-QTR1-TAX-WAGE               PIC S9(11)V9(02) COMP-3. DTSBD374
00345      05  WRK-QTR2-TAX-WAGE               PIC S9(11)V9(02) COMP-3. DTSBD374
00346      05  WRK-QTR3-TAX-WAGE               PIC S9(11)V9(02) COMP-3. DTSBD374
00347      05  WRK-QTR4-TAX-WAGE               PIC S9(11)V9(02) COMP-3. DTSBD374
00348                                                                   DTSBD374
00349      05  WRK-QTR1-CURR-WAGE              PIC S9(11)V9(02) COMP-3. DTSBD374
00350      05  WRK-QTR2-CURR-WAGE              PIC S9(11)V9(02) COMP-3. DTSBD374
00351      05  WRK-QTR3-CURR-WAGE              PIC S9(11)V9(02) COMP-3. DTSBD374
00352      05  WRK-QTR4-CURR-WAGE              PIC S9(11)V9(02) COMP-3. DTSBD374
00353                                                                   DTSBD374
00354      05  WRK-QTR1-CALC-REMIT             PIC S9(09)V99    COMP-3. DTSBD374
00355      05  WRK-QTR2-CALC-REMIT             PIC S9(09)V99    COMP-3. DTSBD374
00356      05  WRK-QTR3-CALC-REMIT             PIC S9(09)V99    COMP-3. DTSBD374
00357      05  WRK-QTR4-CALC-REMIT             PIC S9(09)V99    COMP-3. DTSBD374
00358                                                                   DTSBD374
00359      05  WRK-TAX-WAGE-SUM                PIC S9(11)V9(02) COMP-3. DTSBD374
00360      05  WRK-TOT-WAGE-SUM                PIC S9(11)V9(02) COMP-3. DTSBD374
00361                                                                   DTSBD374
00362      05  WRK-YRQ                         PIC S9(05)       COMP-3. DTSBD374
00363                                                                   DTSBD374
00364      05  WRK-SSN                         PIC S9(09)       COMP-3. DTSBD374
00365                                                                   DTSBD374
00366                                                                   DTSBD374
00367      05  WRK-AMT1                        PIC S9(09)V9(02) COMP-3. DTSBD374
00368      05  AMT-DISP1                       PIC --,---,---,--9.99.   DTSBD374
00369      05  AMT-DISP2                       PIC --,---,---,--9.99.   DTSBD374
00370      05  AMT-DISP3                       PIC --,---,---,--9.99.   DTSBD374
00371                                                                   DTSBD374
00372      05  EVL-TEXT                        PIC  X(50).              DTSBD374
00373                                                                   DTSBD374
00374      05  HOLD-LBCM-TRN-AREA              PIC  X(256).             DTSBD374
00375      EJECT                                                        DTSBD374
00376  01  MSG-TABLE.                                                   DTSBD374
00377      05  MSG0-NOT-PASSED-FULL-EDITS.                              DTSBD374
00378          10  MSG0-ID         PIC  X(11)  VALUE 'DTSBD374905'.     DTSBD374
00379          10  MSG0-SHORT-TEXT PIC  X(20)  VALUE 'FAILED FULL EDT'. DTSBD374
00380          10  MSG0-LONG-TEXT.                                      DTSBD374
00381              15  FILLER      PIC  X(30)                           DTSBD374
00382                    VALUE 'TRANSACTION FAILED - DID NOT P'.        DTSBD374
00383              15  FILLER      PIC  X(30)                           DTSBD374
00384                    VALUE 'ASS FULL EDITS ON SCREEN 24   '.        DTSBD374
00385                                                                   DTSBD374
00386      05  MSG1-INVALID-RPT-TYPE.                                   DTSBD374
00387          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD374311'.     DTSBD374
00388          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'INVALID RPT TY'.  DTSBD374
00389          10  MSG1-LONG-TEXT.                                      DTSBD374
00390              15  FILLER      PIC  X(30)                           DTSBD374
00391                    VALUE 'TRANSACTION FAILED - REPORT TY'.        DTSBD374
00392              15  FILLER      PIC  X(30)                           DTSBD374
00393                    VALUE 'PE NOT VALID                  '.        DTSBD374
00394                                                                   DTSBD374
00395      05  MSG2-INCONSISTANT-RPT-TYPE.                              DTSBD374
00396          10  MSG2-ID         PIC  X(11)  VALUE 'DTSBD374312'.     DTSBD374
00397          10  MSG2-SHORT-TEXT PIC  X(20)  VALUE 'INCONST RPT TY'.  DTSBD374
00398          10  MSG2-LONG-TEXT.                                      DTSBD374
00399              15  FILLER      PIC  X(30)                           DTSBD374
00400                    VALUE 'TRANSACTION FAILED - RPT TYP N'.        DTSBD374
00401              15  FILLER      PIC  X(30)                           DTSBD374
00402                    VALUE 'OT CONSISTANT WITH CURR RPT TY'.        DTSBD374
00403                                                                   DTSBD374
00404      05  MSG3-NOT-LIABLE.                                         DTSBD374
00405          10  MSG3-ID         PIC  X(11)  VALUE 'DTSBD374313'.     DTSBD374
00406          10  MSG3-SHORT-TEXT PIC  X(20)  VALUE 'EMP NOT LIABLE'.  DTSBD374
00407          10  MSG3-LONG-TEXT.                                      DTSBD374
00408              15  FILLER      PIC  X(30)                           DTSBD374
00409                    VALUE 'TRANSACTION FAILED - EMPLOYER '.        DTSBD374
00410              15  FILLER      PIC  X(30)                           DTSBD374
00411                    VALUE 'NOT LIABLE DURING RPT-YRQ     '.        DTSBD374
00412                                                                   DTSBD374
00413      05  MSG4-NO-RATE.                                            DTSBD374
00414          10  MSG4-ID         PIC  X(11)  VALUE 'DTSBD374314'.     DTSBD374
00415          10  MSG4-SHORT-TEXT PIC  X(20)  VALUE 'NO RATE EXISTS'.  DTSBD374
00416          10  MSG4-LONG-TEXT.                                      DTSBD374
00417              15  FILLER      PIC  X(30)                           DTSBD374
00418                    VALUE 'TRANSACTION FAILED - NO RATE E'.        DTSBD374
00419              15  FILLER      PIC  X(30)                           DTSBD374
00420                    VALUE 'XISTS FOR RPT-YRQ             '.        DTSBD374
00421                                                                   DTSBD374
00422      05  MSG5-NEGATIVE-NUMERIC.                                   DTSBD374
00423          10  MSG5-ID         PIC  X(11)  VALUE 'DTSBD374315'.     DTSBD374
00424          10  MSG5-SHORT-TEXT PIC  X(20)  VALUE 'YIELDS NEGATIV'.  DTSBD374
00425          10  MSG5-LONG-TEXT.                                      DTSBD374
00426              15  FILLER      PIC  X(30)                           DTSBD374
00427                    VALUE 'TRANSACTION FAILED - WOULD RES'.        DTSBD374
00428              15  FILLER      PIC  X(30)                           DTSBD374
00429                    VALUE 'ULT IN NEGATIVE NUMERIC FIELD '.        DTSBD374
00430                                                                   DTSBD374
00431      05  MSG6-MANUAL-INT-QTR.                                     DTSBD374
00432          10  MSG6-ID.                                             DTSBD374
00433              15  MSG6-ID1    PIC  X(08)  VALUE 'DTSBD374'.        DTSBD374
00434              15  MSG6-ID2    PIC  X(03)  VALUE '316'.             DTSBD374
00435          10  MSG6-SHORT-TEXT PIC  X(20)  VALUE 'MANUAL INT QTR'.  DTSBD374
00436          10  MSG6-LONG-TEXT.                                      DTSBD374
00437              15  FILLER      PIC  X(30)                           DTSBD374
00438                    VALUE 'QUARTERLY REPORT PROCESSED FOR'.        DTSBD374
00439              15  FILLER      PIC  X(26)                           DTSBD374
00440                    VALUE ' MANUAL INTEREST QUARTER: '.            DTSBD374
00441              15  MSG6-YRQ    PIC  X(04).                          DTSBD374
00442                                                                   DTSBD374
00443      05  MSG7-MANUAL-PEN-QTR.                                     DTSBD374
00444          10  MSG7-ID.                                             DTSBD374
00445              15  MSG7-ID1    PIC  X(08)  VALUE 'DTSBD374'.        DTSBD374
00446              15  MSG7-ID2    PIC  X(03)  VALUE '317'.             DTSBD374
00447          10  MSG7-SHORT-TEXT PIC  X(20)  VALUE 'MANUAL PEN QTR'.  DTSBD374
00448          10  MSG7-LONG-TEXT.                                      DTSBD374
00449              15  FILLER      PIC  X(30)                           DTSBD374
00450                    VALUE 'QUARTERLY REPORT PROCESSED FOR'.        DTSBD374
00451              15  FILLER      PIC  X(26)                           DTSBD374
00452                    VALUE ' MANUAL PENALTY QUARTER:  '.            DTSBD374
00453              15  MSG7-YRQ    PIC  X(04).                          DTSBD374
00454                                                                   DTSBD374
00455      05  MSG8-DUPLICATE-TRAN.                                     DTSBD374
00456          10  MSG8-ID         PIC  X(11)  VALUE 'DTSBD374307'.     DTSBD374
00457          10  MSG8-SHORT-TEXT PIC  X(20)  VALUE 'DUPLICATE TRAN'.  DTSBD374
00458          10  MSG8-LONG-TEXT.                                      DTSBD374
00459              15  FILLER      PIC  X(30)                           DTSBD374
00460                    VALUE 'TRANSACTION FAILED - DUPLICATE'.        DTSBD374
00461              15  FILLER      PIC  X(30)                           DTSBD374
00462                    VALUE ' TRANSACTION                  '.        DTSBD374
00463                                                                   DTSBD374
00464      05  MSG9-ESTIM-OVERLAY.                                      DTSBD374
00465          10  MSG9-ID.                                             DTSBD374
00466              15  MSG9-ID1    PIC  X(08)  VALUE 'DTSBD374'.        DTSBD374
00467              15  MSG9-ID2    PIC  X(03)  VALUE '318'.             DTSBD374
00468          10  MSG9-SHORT-TEXT PIC  X(20)  VALUE 'ESTIMATED OVLY'.  DTSBD374
00469          10  MSG9-LONG-TEXT.                                      DTSBD374
00470              15  FILLER      PIC  X(30)                           DTSBD374
00471                    VALUE 'ESTIMATED REPORT REPLACED BY O'.        DTSBD374
00472              15  FILLER      PIC  X(26)                           DTSBD374
00473                    VALUE 'RIGINAL REPORT.  QUARTER: '.            DTSBD374
00474              15  MSG9-YRQ    PIC  X(04).                          DTSBD374
00475                                                                   DTSBD374
00476      05  MSG10-LESS-FIRST-ANNUAL-YEAR.                            DTSBD374
00477          10  MSG10-ID.                                            DTSBD374
00478              15  MSG10-ID1   PIC  X(08)  VALUE 'DTSBD374'.        DTSBD374
00479              15  MSG10-ID2   PIC  X(03)  VALUE '319'.             DTSBD374
00480          10  MSG10-SHORT-TEXT PIC X(20)  VALUE 'YEAR < 2002   '.  DTSBD374
00481          10  MSG10-LONG-TEXT.                                     DTSBD374
00482              15  FILLER      PIC  X(30)                           DTSBD374
00483                    VALUE 'TRANSACTION FAILED - YEAR < FI'.        DTSBD374
00484              15  FILLER      PIC  X(30)                           DTSBD374
00485                    VALUE 'RST ANNUAL YEAR (2002)        '.        DTSBD374
00486                                                                   DTSBD374
00487      05  MSG11-WAGES-ON-NON-LIABLE-YRQ.                           DTSBD374
00488          10  MSG11-ID.                                            DTSBD374
00489              15  MSG11-ID1   PIC  X(08)  VALUE 'DTSBD374'.        DTSBD374
00490              15  MSG11-ID2   PIC  X(03)  VALUE '320'.             DTSBD374
00491          10  MSG11-SHORT-TEXT PIC X(20)                           DTSBD374
00492                    VALUE 'NON-LIAB-QTR W/WAGES'.                  DTSBD374
00493          10  MSG11-LONG-TEXT.                                     DTSBD374
00494              15  FILLER      PIC  X(30)                           DTSBD374
00495                    VALUE 'TRANSACTION FAILED - WAGES REP'.        DTSBD374
00496              15  FILLER      PIC  X(30)                           DTSBD374
00497                    VALUE 'ORTED ON NON-LIABLE QTR       '.        DTSBD374
00498                                                                   DTSBD374
00499      05  MSG12-NOT-ANNUAL.                                        DTSBD374
00500          10  MSG12-ID.                                            DTSBD374
00501              15  MSG12-ID1   PIC  X(08)  VALUE 'DTSBD374'.        DTSBD374
00502              15  MSG12-ID2   PIC  X(03)  VALUE '321'.             DTSBD374
00503          10  MSG12-SHORT-TEXT PIC X(20)                           DTSBD374
00504                    VALUE 'NOT AN ANNUAL FILER '.                  DTSBD374
00505          10  MSG12-LONG-TEXT.                                     DTSBD374
00506              15  FILLER      PIC  X(30)                           DTSBD374
00507                    VALUE 'TRANSACTION FAILED - QTR NOT F'.        DTSBD374
00508              15  FILLER      PIC  X(30)                           DTSBD374
00509                    VALUE 'ILED ANNUALLY                 '.        DTSBD374
00510      EJECT                                                        DTSBD374
00511                                                                   DTSBD374
00512      05  MSG13-INVALID-CURR-WAGE.                                 DTSBD374
00513          10  MSG13-ID.                                            DTSBD374
00514              15  MSG13-ID1   PIC  X(08)  VALUE 'DTSBD374'.        DTSBD374
00515              15  MSG13-ID2   PIC  X(03)  VALUE '322'.             DTSBD374
00516          10  MSG13-SHORT-TEXT PIC X(20)                           DTSBD374
00517                    VALUE 'INVALID CURRENT WAGE'.                  DTSBD374
00518          10  MSG13-LONG-TEXT.                                     DTSBD374
00519              15  FILLER      PIC  X(30)                           DTSBD374
00520                    VALUE 'TRANSACTION FAILED - CURRENT W'.        DTSBD374
00521              15  FILLER      PIC  X(30)                           DTSBD374
00522                    VALUE 'AGES HAVE CHANGED             '.        DTSBD374
00523                                                                   DTSBD374
00524      05  MSG14-ESTIMATED-RATE.                                    DTSBD374
00525          10  MSG14-ID.                                            DTSBD374
00526              15  MSG14-ID1   PIC  X(08)  VALUE 'DTSBD374'.        DTSBD374
00527              15  MSG14-ID2   PIC  X(03)  VALUE '323'.             DTSBD374
00528          10  MSG14-SHORT-TEXT PIC X(20)                           DTSBD374
00529                    VALUE 'ESTIMATED RATE      '.                  DTSBD374
00530          10  MSG14-LONG-TEXT.                                     DTSBD374
00531              15  FILLER      PIC  X(30)                           DTSBD374
00532                    VALUE 'TRANSACTION FAILED - ESTIMATED'.        DTSBD374
00533              15  FILLER      PIC  X(30)                           DTSBD374
00534                    VALUE ' RATE                         '.        DTSBD374
00535  01  EVL-TABLE.                                                   DTSBD374
00536      05  EVL1-TEXT.                                               DTSBD374
00537          10  FILLER          PIC  X(45)                           DTSBD374
00538        VALUE 'REPORT RCVD WITHOUT USEABLE WAGE DATA.  YRQ: '.     DTSBD374
00539          10  EVL1-SLASH-QTR  PIC  X(04).                          DTSBD374
00540      EJECT                                                        DTSBD374
00541  01  APAY-REC.                                                    DTSBD374
00542  ++INCLUDE DTSIAPAY                                               DTSBD374
00543      EJECT                                                        DTSBD374
00544  01  ARPT-REC.                                                    DTSBD374
00545  ++INCLUDE DTSIARPT                                               DTSBD374
00546      EJECT                                                        DTSBD374
00547  01  ASKL-REC.                                                    DTSBD374
00548  ++INCLUDE DTSIASKL                                               DTSBD374
00549      EJECT                                                        DTSBD374
00550  01  R907-REC.                                                    DTSBD374
00551  ++INCLUDE DTSIR907                                               DTSBD374
00552      EJECT                                                        DTSBD374
00553  01  L516-LINK-AREA.                                              DTSBD374
00554  ++INCLUDE DTSIL516                                               DTSBD374
00555                                                                   DTSBD374
00556  01  T051-REC.                                                    DTSBD374
00557  ++INCLUDE DTSIT051                                               DTSBD374
00558                                                                   DTSBD374
00559  01  L910-LINK-AREA.                                              DTSBD374
00560  ++INCLUDE DTSIL910                                               DTSBD374
00561      SKIP3                                                        DTSBD374
00562  01  MSKL-REC.                                                    DTSBD374
00563  ++INCLUDE DTSIMSKL                                               DTSBD374
00564      SKIP3                                                        DTSBD374
00565  01  MQTR-REC.                                                    DTSBD374
00566  ++INCLUDE DTSIMQTR                                               DTSBD374
00567      SKIP3                                                        DTSBD374
00568  01  MRPT-REC.                                                    DTSBD374
00569  ++INCLUDE DTSIMRPT                                               DTSBD374
00570      SKIP3                                                        DTSBD374
00571  01  MPAY-REC.                                                    DTSBD374
00572  ++INCLUDE DTSIMPAY                                               DTSBD374
00573      SKIP3                                                        DTSBD374
00574  01  MTCK-REC.                                                    DTSBD374
00575  ++INCLUDE DTSIMTCK                                               DTSBD374
00576      SKIP3                                                        DTSBD374
00577  01  MDST-REC.                                                    DTSBD374
00578  ++INCLUDE DTSIMDST                                               DTSBD374
00579      SKIP3                                                        DTSBD374
00580  01  MEVL-REC.                                                    DTSBD374
00581  ++INCLUDE DTSIMEVL                                               DTSBD374
00582      EJECT                                                        DTSBD374
00583  01  L931-LINK-AREA.                                              DTSBD374
00584  ++INCLUDE DTSIL931                                               DTSBD374
00585      SKIP3                                                        DTSBD374
00586  01  FSKL-REC.                                                    DTSBD374
00587  ++INCLUDE DTSIFSKL                                               DTSBD374
00588      SKIP3                                                        DTSBD374
00589  01  FCYR-REC.                                                    DTSBD374
00590  ++INCLUDE DTSIFCYR                                               DTSBD374
00591      SKIP3                                                        DTSBD374
00592  01  L983-LINK-AREA.                                              DTSBD374
00593  ++INCLUDE DTSIL983                                               DTSBD374
00594      SKIP3                                                        DTSBD374
00595  01  WSKL-REC.                                                    DTSBD374
00596  ++INCLUDE DTSIWSKL                                               DTSBD374
00597      SKIP3                                                        DTSBD374
00598  01  W001-REC.                                                    DTSBD374
00599  ++INCLUDE DTSIW001                                               DTSBD374
00600      SKIP3                                                        DTSBD374
00601  01  L001-LINK-AREA.                                              DTSBD374
00602  ++INCLUDE DTSIL001                                               DTSBD374
00603      SKIP3                                                        DTSBD374
00604  01  L003-LINK-AREA.                                              DTSBD374
00605  ++INCLUDE DTSIL003                                               DTSBD374
00606      SKIP3                                                        DTSBD374
00607  01  L004-LINK-AREA.                                              DTSBD374
00608  ++INCLUDE DTSIL004                                               DTSBD374
00609      SKIP3                                                        DTSBD374
00610  01  L005-LINK-AREA.                                              DTSBD374
00611  ++INCLUDE DTSIL005                                               DTSBD374
00612      SKIP3                                                        DTSBD374
00613  01  L549-LINK-AREA.                                              DTSBD374
00614  ++INCLUDE DTSIL549                                               DTSBD374
00615                                                                   DTSBD374
00616  01  L109-LINK-AREA.                                              DTSBD374
00617  ++INCLUDE DTSIL109                                               DTSBD374
00618                                                                   DTSBD374
00619  01  MMAX-LITERALS.                                               DTSBD374
00620  ++INCLUDE DTSIMMAX                                               DTSBD374
00621      SKIP3                                                        DTSBD374
00622  01  CACT-LITERALS.                                               DTSBD374
00623  ++INCLUDE DTSICACT                                               DTSBD374
00624      EJECT                                                        DTSBD374
00625  LINKAGE SECTION.                                                 DTSBD374
00626      SKIP3                                                        DTSBD374
00627  01  LBCM-LINK-AREA.                                              DTSBD374
00628  ++INCLUDE DTSILBCM                                               DTSBD374
00629      EJECT                                                        DTSBD374
00630  01  MPRF-REC.                                                    DTSBD374
00631  ++INCLUDE DTSIMPRF                                               DTSBD374
00632      EJECT                                                        DTSBD374
00633  01  AATX-REC.                                                    DTSBD374
00634  ++INCLUDE DTSIAATX                                               DTSBD374
00635      EJECT                                                        DTSBD374
00636  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD374
00637                           MPRF-REC                                DTSBD374
00638                           AATX-REC.                               DTSBD374
00639                                                                   DTSBD374
00640                                                                   DTSBD374
00641      IF FIRST-TIME-IND = 'Y'                                      DTSBD374
00642          PERFORM I0000-FIRST-TIME THRU I0000-EXIT                 DTSBD374
00643          MOVE 'N' TO FIRST-TIME-IND.                              DTSBD374
00644                                                                   DTSBD374
00645                                                                   DTSBD374
00646      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBD374
00647                                                                   DTSBD374
00648                                                                   DTSBD374
00649      GOBACK.                                                      DTSBD374
00650      EJECT                                                        DTSBD374
00651  I0000-FIRST-TIME.                                                DTSBD374
00652      MOVE LBCM-TRACE-IND TO L910-TRACE-IND.                       DTSBD374
00653                                                                   DTSBD374
00654      MOVE WRK-MOD-NAME   TO L910-MOD-NAME                         DTSBD374
00655                             L983-MOD-NAME                         DTSBD374
00656                             R907-MODULE-NAME.                     DTSBD374
00657                                                                   DTSBD374
00658      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBD374
00659                                                                   DTSBD374
00660      MOVE '907' TO R907-REC-TYPE.                                 DTSBD374
00661                                                                   DTSBD374
00662      MOVE +0 TO WRK-NULL-BATCH-NO                                 DTSBD374
00663                 WRK-NULL-ITEM-NO.                                 DTSBD374
00664                                                                   DTSBD374
00665      PERFORM                                                      DTSBD374
00666        VARYING SUB FROM +1 BY +1                                  DTSBD374
00667        UNTIL SUB > WRK-BATCH-MAX                                  DTSBD374
00668          MOVE +0                   TO WRK-BATCH-NO (SUB)          DTSBD374
00669                                       WRK-LAST-ITEM-NO (SUB)      DTSBD374
00670      END-PERFORM.                                                 DTSBD374
00671                                                                   DTSBD374
00672  I0000-EXIT.                                                      DTSBD374
00673      EXIT.                                                        DTSBD374
00674                                                                   DTSBD374
00675      EJECT                                                        DTSBD374
00676  P0000-PROCESS.                                                   DTSBD374
00677 *&                                                                DTSBD374
00678 *    DISPLAY 'BD374 ' MPRF-EMP-NO '  ' AATX-RPT-TYPE              DTSBD374
00679 *       '  TOT ' AATX-TOT-WAGE                                    DTSBD374
00680 *       '  TAX ' AATX-TAX-WAGE                                    DTSBD374
00681 *       '  EXC ' AATX-EXCESS-WAGE.                                DTSBD374
00682 *&                                                                DTSBD374
00683      IF LBCM-LAST-AATX-ITEM-NO NOT NUMERIC                        DTSBD374
00684         DISPLAY 'BD374 - NON-NUMERIC LBCM ITEM '                  DTSBD374
00685         PERFORM S999-ABEND    THRU S999-EXIT                      DTSBD374
00686      ELSE                                                         DTSBD374
00687         IF LBCM-LAST-AATX-ITEM-NO = ZERO                          DTSBD374
00688            DISPLAY 'BD374 - NO LBCM ITEM '                        DTSBD374
00689            PERFORM S999-ABEND    THRU S999-EXIT                   DTSBD374
00690         ELSE                                                      DTSBD374
00691            PERFORM P0100-LAST-ITEM        THRU P0100-EXIT         DTSBD374
00692         END-IF                                                    DTSBD374
00693      END-IF.                                                      DTSBD374
00694                                                                   DTSBD374
00695      MOVE SPACES              TO WRK-LBCM-TRN-RESULT-IND          DTSBD374
00696                                  WRK-LBCM-TRN-MSG-AREA.           DTSBD374
00697                                                                   DTSBD374
00698      PERFORM P0200-SET-QTRS   THRU P0200-EXIT.                    DTSBD374
00699                                                                   DTSBD374
00700      PERFORM P0300-LIABILITY  THRU P0300-EXIT.                    DTSBD374
00701                                                                   DTSBD374
00702      IF AATX-ESTIM-88                                             DTSBD374
00703         PERFORM P0420-ESTIM-RPT  THRU P0420-EXIT                  DTSBD374
00704      ELSE                                                         DTSBD374
00705         PERFORM P0400-SUM-WAGES  THRU P0400-EXIT.                 DTSBD374
00706                                                                   DTSBD374
00707      PERFORM P0500-CALC-REMIT THRU P0500-EXIT.                    DTSBD374
00708                                                                   DTSBD374
00709      MOVE WRK-QTR1              TO WRK-YRQ.                       DTSBD374
00710      MOVE WRK-QTR1-TOT-WAGE     TO WRK-TOT-WAGE.                  DTSBD374
00711      MOVE WRK-QTR1-TAX-WAGE     TO WRK-TAX-WAGE.                  DTSBD374
00712      MOVE WRK-QTR1-CALC-REMIT   TO WRK-REMIT.                     DTSBD374
00713      PERFORM P1000-PROCESS-QTR  THRU P1000-EXIT.                  DTSBD374
00714                                                                   DTSBD374
00715      MOVE WRK-QTR2              TO WRK-YRQ.                       DTSBD374
00716      MOVE WRK-QTR2-TOT-WAGE     TO WRK-TOT-WAGE.                  DTSBD374
00717      MOVE WRK-QTR2-TAX-WAGE     TO WRK-TAX-WAGE.                  DTSBD374
00718      MOVE WRK-QTR2-CALC-REMIT   TO WRK-REMIT.                     DTSBD374
00719      PERFORM P1000-PROCESS-QTR  THRU P1000-EXIT.                  DTSBD374
00720                                                                   DTSBD374
00721      MOVE WRK-QTR3              TO WRK-YRQ.                       DTSBD374
00722      MOVE WRK-QTR3-TOT-WAGE     TO WRK-TOT-WAGE.                  DTSBD374
00723      MOVE WRK-QTR3-TAX-WAGE     TO WRK-TAX-WAGE.                  DTSBD374
00724      MOVE WRK-QTR3-CALC-REMIT   TO WRK-REMIT.                     DTSBD374
00725      PERFORM P1000-PROCESS-QTR  THRU P1000-EXIT.                  DTSBD374
00726                                                                   DTSBD374
00727      MOVE WRK-QTR4              TO WRK-YRQ.                       DTSBD374
00728      MOVE WRK-QTR4-TOT-WAGE     TO WRK-TOT-WAGE.                  DTSBD374
00729      MOVE WRK-QTR4-TAX-WAGE     TO WRK-TAX-WAGE.                  DTSBD374
00730      MOVE WRK-QTR4-CALC-REMIT   TO WRK-REMIT.                     DTSBD374
00731      PERFORM P1000-PROCESS-QTR  THRU P1000-EXIT.                  DTSBD374
00732                                                                   DTSBD374
00733                                                                   DTSBD374
00734  P0000-EXIT.                                                      DTSBD374
00735      EXIT.                                                        DTSBD374
00736                                                                   DTSBD374
00737  P0100-LAST-ITEM.                                                 DTSBD374
00738      MOVE +0                          TO SUB1.                    DTSBD374
00739                                                                   DTSBD374
00740      PERFORM                                                      DTSBD374
00741        VARYING SUB FROM +1 BY +1                                  DTSBD374
00742        UNTIL SUB > WRK-BATCH-LAST                                 DTSBD374
00743          IF WRK-BATCH-NO (SUB) = AATX-BATCH-NO                    DTSBD374
00744            MOVE SUB                   TO SUB1                     DTSBD374
00745            DISPLAY 'BD374-BATCH FOUND ' AATX-BATCH-NO             DTSBD374
00746               '  ' WRK-LAST-ITEM-NO (SUB) '  ' SUB1               DTSBD374
00747          END-IF                                                   DTSBD374
00748      END-PERFORM.                                                 DTSBD374
00749                                                                   DTSBD374
00750      IF SUB1 = ZERO                                               DTSBD374
00751         PERFORM P0110-ADD-BATCH    THRU P0110-EXIT                DTSBD374
00752      END-IF.                                                      DTSBD374
00753                                                                   DTSBD374
00754  P0100-EXIT.                                                      DTSBD374
00755      EXIT.                                                        DTSBD374
00756                                                                   DTSBD374
00757  P0110-ADD-BATCH.                                                 DTSBD374
00758      IF WRK-BATCH-LAST < WRK-BATCH-MAX                            DTSBD374
00759         ADD +1                   TO WRK-BATCH-LAST                DTSBD374
00760      ELSE                                                         DTSBD374
00761         DISPLAY 'BATCH TABLE LENGTH EXCEEDED ' AATX-BATCH-NO      DTSBD374
00762         PERFORM S999-ABEND       THRU S999-EXIT                   DTSBD374
00763      END-IF.                                                      DTSBD374
00764                                                                   DTSBD374
00765      MOVE WRK-BATCH-LAST         TO SUB1                          DTSBD374
00766      MOVE AATX-BATCH-NO          TO WRK-BATCH-NO (SUB1)           DTSBD374
00767      MOVE LBCM-LAST-AATX-ITEM-NO TO WRK-LAST-ITEM-NO (SUB1)       DTSBD374
00768      DISPLAY 'BD374-LAST ITEM ' WRK-BATCH-NO (SUB1)               DTSBD374
00769         ' ' WRK-LAST-ITEM-NO (SUB1) '  ' SUB1.                    DTSBD374
00770  P0110-EXIT.                                                      DTSBD374
00771      EXIT.                                                        DTSBD374
00772                                                                   DTSBD374
00773  P0200-SET-QTRS.                                                  DTSBD374
00774      MOVE AATX-YRQ               TO L004-QTR-5-9.                 DTSBD374
00775                                                                   DTSBD374
00776      MOVE 1                      TO L004-QTR-5-Q.                 DTSBD374
00777      PERFORM S004-FROM-5         THRU S004-EXIT.                  DTSBD374
00778      MOVE L004-QTR-5-9           TO WRK-QTR1.                     DTSBD374
00779      MOVE WRK-QTR1               TO L516-YRQ.                     DTSBD374
00780      PERFORM S516-LIABILITY-INFO THRU S516-EXIT.                  DTSBD374
00781      MOVE L516-LIABLE-IND        TO WRK-QTR1-LIABLE-IND.          DTSBD374
00782                                                                   DTSBD374
00783      MOVE 2                      TO L004-QTR-5-Q.                 DTSBD374
00784      PERFORM S004-FROM-5         THRU S004-EXIT.                  DTSBD374
00785      MOVE L004-QTR-5-9           TO WRK-QTR2.                     DTSBD374
00786      MOVE WRK-QTR2               TO L516-YRQ.                     DTSBD374
00787      PERFORM S516-LIABILITY-INFO THRU S516-EXIT.                  DTSBD374
00788      MOVE L516-LIABLE-IND        TO WRK-QTR2-LIABLE-IND.          DTSBD374
00789                                                                   DTSBD374
00790      MOVE 3                      TO L004-QTR-5-Q.                 DTSBD374
00791      PERFORM S004-FROM-5         THRU S004-EXIT.                  DTSBD374
00792      MOVE L004-QTR-5-9           TO WRK-QTR3.                     DTSBD374
00793      MOVE WRK-QTR3               TO L516-YRQ.                     DTSBD374
00794      PERFORM S516-LIABILITY-INFO THRU S516-EXIT.                  DTSBD374
00795      MOVE L516-LIABLE-IND        TO WRK-QTR3-LIABLE-IND.          DTSBD374
00796                                                                   DTSBD374
00797      MOVE 4                      TO L004-QTR-5-Q.                 DTSBD374
00798      PERFORM S004-FROM-5         THRU S004-EXIT.                  DTSBD374
00799      MOVE L004-QTR-5-9           TO WRK-QTR4.                     DTSBD374
00800      MOVE WRK-QTR4               TO L516-YRQ.                     DTSBD374
00801      PERFORM S516-LIABILITY-INFO THRU S516-EXIT.                  DTSBD374
00802      MOVE L516-LIABLE-IND        TO WRK-QTR4-LIABLE-IND.          DTSBD374
00803                                                                   DTSBD374
00804      PERFORM P0210-GRACE-PERIOD  THRU P0210-EXIT.                 DTSBD374
00805                                                                   DTSBD374
00806  P0200-EXIT.                                                      DTSBD374
00807      EXIT.                                                        DTSBD374
00808                                                                   DTSBD374
00809  P0210-GRACE-PERIOD.                                              DTSBD374
00810 *&                                                                DTSBD374
00811 *    DISPLAY 'BD374 P0210 ' MPRF-EMP-NO                           DTSBD374
00812 *       '  AATX ' AATX-RECEIVED-DATE                              DTSBD374
00813 *       '  L516 ' L516-DEFAULT-RPT-DUE-DATE.                      DTSBD374
00814 *&                                                                DTSBD374
00815      MOVE WRK-QTR1 TO L516-YRQ.                                   DTSBD374
00816      PERFORM S516-LIABILITY-INFO     THRU S516-EXIT.              DTSBD374
00817      MOVE L516-RATE-IND              TO UI-TAX-RATE-IND.          DTSBD374
00818      MOVE L516-UI-RATE               TO UI-TAX-RATE.              DTSBD374
00819      MOVE L516-DEFAULT-RPT-DUE-DATE  TO L001-FED-8-DATE-9.        DTSBD374
00820      PERFORM S001-FROM-FED-8         THRU S001-EXIT.              DTSBD374
00821                                                                   DTSBD374
00822      MOVE +0 TO WRK-WORK-DAY-CNT.                                 DTSBD374
00823                                                                   DTSBD374
00824      PERFORM                                                      DTSBD374
00825        UNTIL WRK-WORK-DAY-CNT > +4                                DTSBD374
00826          ADD +1 TO L001-JUL-ABS-DAY                               DTSBD374
00827          PERFORM S001-FROM-ABS-DAY THRU S001-EXIT                 DTSBD374
00828          MOVE L001-FED-8-DATE-9 TO L003-DATE                      DTSBD374
00829                                    WRK-GRACE-PERIOD-END           DTSBD374
00830          PERFORM S003-AGENCY-DAY THRU S003-EXIT                   DTSBD374
00831          IF L003-IS-WORK-DAY                                      DTSBD374
00832              ADD +1 TO WRK-WORK-DAY-CNT                           DTSBD374
00833          END-IF                                                   DTSBD374
00834      END-PERFORM.                                                 DTSBD374
00835                                                                   DTSBD374
00836      IF (AATX-RECEIVED-DATE    > WRK-GRACE-PERIOD-END)            DTSBD374
00837               OR                                                  DTSBD374
00838         (AATX-RECEIVED-DATE    <= L516-DEFAULT-RPT-DUE-DATE)      DTSBD374
00839          NEXT SENTENCE                                            DTSBD374
00840      ELSE                                                         DTSBD374
00841          MOVE L516-DEFAULT-RPT-DUE-DATE TO AATX-RECEIVED-DATE     DTSBD374
00842      END-IF.                                                      DTSBD374
00843                                                                   DTSBD374
00844 *&                                                                DTSBD374
00845 *    DISPLAY 'BD374 P0210'                                        DTSBD374
00846 *       '  GRACE ' WRK-GRACE-PERIOD-END                           DTSBD374
00847 *       '  AATX ' AATX-RECEIVED-DATE.                             DTSBD374
00848 *&                                                                DTSBD374
00849  P0210-EXIT.                                                      DTSBD374
00850      EXIT.                                                        DTSBD374
00851                                                                   DTSBD374
00852  P0300-LIABILITY.                                                 DTSBD374
00853      IF AATX-WITHDRW-88                                           DTSBD374
00854         GO TO P0300-EXIT                                          DTSBD374
00855      END-IF.                                                      DTSBD374
00856                                                                   DTSBD374
00857      IF WRK-QTR1-LIABLE-88                                        DTSBD374
00858      OR WRK-QTR2-LIABLE-88                                        DTSBD374
00859      OR WRK-QTR3-LIABLE-88                                        DTSBD374
00860      OR WRK-QTR4-LIABLE-88                                        DTSBD374
00861         NEXT SENTENCE                                             DTSBD374
00862      ELSE                                                         DTSBD374
00863         SET LBCM-TRN-NOT-OK-88 TO TRUE                            DTSBD374
00864         MOVE MSG3-NOT-LIABLE TO LBCM-TRN-MSG-AREA                 DTSBD374
00865         GO TO P0300-EXIT                                          DTSBD374
00866      END-IF.                                                      DTSBD374
00867                                                                   DTSBD374
00868  P0300-EXIT.                                                      DTSBD374
00869      EXIT.                                                        DTSBD374
00870                                                                   DTSBD374
00871  P0400-SUM-WAGES.                                                 DTSBD374
00872      MOVE ZERO                  TO WRK-QTR1-TOT-WAGE              DTSBD374
00873                                    WRK-QTR2-TOT-WAGE              DTSBD374
00874                                    WRK-QTR3-TOT-WAGE              DTSBD374
00875                                    WRK-QTR4-TOT-WAGE              DTSBD374
00876                                    WRK-QTR1-TAX-WAGE              DTSBD374
00877                                    WRK-QTR2-TAX-WAGE              DTSBD374
00878                                    WRK-QTR3-TAX-WAGE              DTSBD374
00879                                    WRK-QTR4-TAX-WAGE              DTSBD374
00880                                    WRK-QTR1-CURR-WAGE             DTSBD374
00881                                    WRK-QTR2-CURR-WAGE             DTSBD374
00882                                    WRK-QTR3-CURR-WAGE             DTSBD374
00883                                    WRK-QTR4-CURR-WAGE.            DTSBD374
00884                                                                   DTSBD374
00885      SET WRK-WAGES-FOUND-NO-88      TO TRUE.                      DTSBD374
00886      SET WRK-WAGE-FIRST-TIME-YES-88 TO TRUE.                      DTSBD374
00887                                                                   DTSBD374
00888 *&                                                                DTSBD374
00889 *    IF MPRF-EMP-NO = 014319                                      DTSBD374
00890 *       DISPLAY 'BD374 P0400 ' MPRF-EMP-NO                        DTSBD374
00891 *          '  BATCH ' AATX-BATCH-NO                               DTSBD374
00892 *          '  ' AATX-ITEM-NO.                                     DTSBD374
00893 *       DISPLAY '   ' WRK-QTR1 ' ' WRK-QTR2 ' ' WRK-QTR3          DTSBD374
00894 *          '  ' WRK-QTR4.                                         DTSBD374
00895 *    ELSE                                                         DTSBD374
00896 *       DISPLAY 'BD374 P0400 ' MPRF-EMP-NO.                       DTSBD374
00897 *                                                                 DTSBD374
00898 *&                                                                DTSBD374
00899      MOVE LOW-VALUE                 TO WSKL-REC.                  DTSBD374
00900      MOVE AATX-BATCH-NO             TO WSKL-BATCH-NO.             DTSBD374
00901      MOVE AATX-ITEM-NO              TO WSKL-ITEM-NO.              DTSBD374
00902      PERFORM S983-START-BROWSE      THRU S983-EXIT.               DTSBD374
00903      IF L983-NO-REC-88                                            DTSBD374
00904         OR WSKL-BATCH-NO            NOT = AATX-BATCH-NO           DTSBD374
00905         OR WSKL-ITEM-NO             NOT = AATX-ITEM-NO            DTSBD374
00906         GO TO P0400-EXIT.                                         DTSBD374
00907                                                                   DTSBD374
00908      PERFORM P0410-SCAN-W001        THRU P0410-EXIT               DTSBD374
00909         UNTIL L983-NO-REC-88                                      DTSBD374
00910         OR WSKL-BATCH-NO            NOT = AATX-BATCH-NO           DTSBD374
00911         OR WSKL-ITEM-NO             NOT = AATX-ITEM-NO.           DTSBD374
00912                                                                   DTSBD374
00913      COMPUTE WRK-TAX-WAGE-SUM =                                   DTSBD374
00914         WRK-QTR1-TAX-WAGE +                                       DTSBD374
00915         WRK-QTR2-TAX-WAGE +                                       DTSBD374
00916         WRK-QTR3-TAX-WAGE +                                       DTSBD374
00917         WRK-QTR4-TAX-WAGE.                                        DTSBD374
00918                                                                   DTSBD374
00919 *&                                                                DTSBD374
00920 *    IF MPRF-EMP-NO = 014319                                      DTSBD374
00921 *       DISPLAY 'BD374 P0400 TAX SUM ' WRK-TAX-WAGE-SUM           DTSBD374
00922 *          '  AATX TAX ' AATX-TAX-WAGE.                           DTSBD374
00923                                                                   DTSBD374
00924  P0400-EXIT.                                                      DTSBD374
00925      EXIT.                                                        DTSBD374
00926                                                                   DTSBD374
00927  P0410-SCAN-W001.                                                 DTSBD374
00928      MOVE WSKL-REC            TO W001-REC.                        DTSBD374
00929                                                                   DTSBD374
00930      EVALUATE TRUE                                                DTSBD374
00931         WHEN W001-YRQ = WRK-QTR1                                  DTSBD374
00932            ADD W001-WAGE-CHNG     TO WRK-QTR1-TOT-WAGE            DTSBD374
00933            ADD W001-TAX-WAGE      TO WRK-QTR1-TAX-WAGE            DTSBD374
00934            ADD W001-CURR-WAGE     TO WRK-QTR1-CURR-WAGE           DTSBD374
00935         WHEN W001-YRQ = WRK-QTR2                                  DTSBD374
00936            ADD W001-WAGE-CHNG     TO WRK-QTR2-TOT-WAGE            DTSBD374
00937            ADD W001-TAX-WAGE      TO WRK-QTR2-TAX-WAGE            DTSBD374
00938            ADD W001-CURR-WAGE     TO WRK-QTR2-CURR-WAGE           DTSBD374
00939         WHEN W001-YRQ = WRK-QTR3                                  DTSBD374
00940            ADD W001-WAGE-CHNG     TO WRK-QTR3-TOT-WAGE            DTSBD374
00941            ADD W001-TAX-WAGE      TO WRK-QTR3-TAX-WAGE            DTSBD374
00942            ADD W001-CURR-WAGE     TO WRK-QTR3-CURR-WAGE           DTSBD374
00943         WHEN W001-YRQ = WRK-QTR4                                  DTSBD374
00944            ADD W001-WAGE-CHNG     TO WRK-QTR4-TOT-WAGE            DTSBD374
00945            ADD W001-TAX-WAGE      TO WRK-QTR4-TAX-WAGE            DTSBD374
00946            ADD W001-CURR-WAGE     TO WRK-QTR4-CURR-WAGE           DTSBD374
00947      END-EVALUATE.                                                DTSBD374
00948                                                                   DTSBD374
00949 *&                                                                DTSBD374
00950 *    IF MPRF-EMP-NO = 136406                                      DTSBD374
00951 *       DISPLAY 'P0410 SCAN W001 ' W001-EMP-NO '  ' W001-SSN      DTSBD374
00952 *       DISPLAY 'QTR1 ' WRK-QTR1-TOT-WAGE '  ' WRK-QTR1-TAX-WAGE  DTSBD374
00953 *                     ' ' WRK-QTR1-CURR-WAGE                      DTSBD374
00954 *       DISPLAY 'QTR2 ' WRK-QTR2-TOT-WAGE '  ' WRK-QTR2-TAX-WAGE  DTSBD374
00955 *                     ' ' WRK-QTR2-CURR-WAGE                      DTSBD374
00956 *       DISPLAY 'QTR3 ' WRK-QTR3-TOT-WAGE '  ' WRK-QTR3-TAX-WAGE  DTSBD374
00957 *                     ' ' WRK-QTR3-CURR-WAGE                      DTSBD374
00958 *       DISPLAY 'QTR4 ' WRK-QTR4-TOT-WAGE '  ' WRK-QTR4-TAX-WAGE  DTSBD374
00959 *                     ' ' WRK-QTR4-CURR-WAGE                      DTSBD374
00960 *    END-IF.                                                      DTSBD374
00961 *&                                                                DTSBD374
00962      PERFORM S983-READ-NEXT             THRU S983-EXIT.           DTSBD374
00963                                                                   DTSBD374
00964  P0410-EXIT.                                                      DTSBD374
00965      EXIT.                                                        DTSBD374
00966                                                                   DTSBD374
00967  P0420-ESTIM-RPT.                                                 DTSBD374
00968      MOVE ZERO                  TO WRK-QTR1-TOT-WAGE              DTSBD374
00969                                    WRK-QTR2-TOT-WAGE              DTSBD374
00970                                    WRK-QTR3-TOT-WAGE              DTSBD374
00971                                    WRK-QTR4-TOT-WAGE              DTSBD374
00972                                    WRK-QTR1-TAX-WAGE              DTSBD374
00973                                    WRK-QTR2-TAX-WAGE              DTSBD374
00974                                    WRK-QTR3-TAX-WAGE              DTSBD374
00975                                    WRK-QTR4-TAX-WAGE              DTSBD374
00976                                    WRK-QTR1-CURR-WAGE             DTSBD374
00977                                    WRK-QTR2-CURR-WAGE             DTSBD374
00978                                    WRK-QTR3-CURR-WAGE             DTSBD374
00979                                    WRK-QTR4-CURR-WAGE.            DTSBD374
00980                                                                   DTSBD374
00981      MOVE AATX-TOT-WAGE        TO WRK-QTR1-TOT-WAGE.              DTSBD374
00982      MOVE AATX-TAX-WAGE        TO WRK-QTR1-TAX-WAGE.              DTSBD374
00983                                                                   DTSBD374
00984  P0420-EXIT.                                                      DTSBD374
00985      EXIT.                                                        DTSBD374
00986                                                                   DTSBD374
00987 ****************************************************************  DTSBD374
00988 *  DISTRIBUTE THE REMITTANCE AMOUNT AMONG THE QUARTERS COVERED    DTSBD374
00989 *  BY THE ANNUAL REPORT.                                          DTSBD374
00990 ****************************************************************  DTSBD374
00991  P0500-CALC-REMIT.                                                DTSBD374
00992      MOVE ZERO         TO WRK-QTR1-CALC-REMIT                     DTSBD374
00993                           WRK-QTR2-CALC-REMIT                     DTSBD374
00994                           WRK-QTR3-CALC-REMIT                     DTSBD374
00995                           WRK-QTR4-CALC-REMIT                     DTSBD374
00996                           WRK-TOT-CHG-AMT                         DTSBD374
00997                           WRK-UI-CHARGED-AMT                      DTSBD374
00998                           WRK-SUR-CHARGED-AMT.                    DTSBD374
00999                                                                   DTSBD374
01000 *&                                                                DTSBD374
01001         MOVE AATX-REMIT-AMT       TO AMT-DISP1                    DTSBD374
01002         DISPLAY 'BD374 P0500 ATX REMIT ' AMT-DISP1.               DTSBD374
01003 *&                                                                DTSBD374
01004      IF UI-TAX-RATE-NO-88                                         DTSBD374
01005      OR AATX-REMIT-AMT = +0                                       DTSBD374
01006         GO TO P0500-EXIT.                                         DTSBD374
01007                                                                   DTSBD374
01008      MOVE MPRF-EMP-CLASS        TO L109-EMP-CLASS.                DTSBD374
01009      MOVE WRK-QTR1              TO L109-YRQ.                      DTSBD374
01010      SET L109-CMND-INPUT-QTR-88 TO TRUE.                          DTSBD374
01011      PERFORM S109-SUR-RATE      THRU S109-EXIT.                   DTSBD374
01012      ADD L109-SUR-RATE          TO UI-TAX-RATE.                   DTSBD374
01013                                                                   DTSBD374
01014      MOVE AATX-REMIT-AMT        TO WRK-REMIT-AMT.                 DTSBD374
01015                                                                   DTSBD374
01016      COMPUTE WRK-UI-CHARGED-AMT =                                 DTSBD374
01017            WRK-QTR1-TAX-WAGE * UI-TAX-RATE.                       DTSBD374
01018      ADD WRK-UI-CHARGED-AMT     TO WRK-TOT-CHG-AMT.               DTSBD374
01019      IF WRK-UI-CHARGED-AMT <= WRK-REMIT-AMT                       DTSBD374
01020         MOVE WRK-UI-CHARGED-AMT TO WRK-QTR1-CALC-REMIT            DTSBD374
01021      ELSE                                                         DTSBD374
01022         MOVE WRK-REMIT-AMT      TO WRK-QTR1-CALC-REMIT            DTSBD374
01023      END-IF.                                                      DTSBD374
01024      SUBTRACT WRK-QTR1-CALC-REMIT FROM WRK-REMIT-AMT.             DTSBD374
01025                                                                   DTSBD374
01026                                                                   DTSBD374
01027 *&                                                                DTSBD374
01028 *    IF MPRF-EMP-NO = 081547                                      DTSBD374
01029         MOVE WRK-QTR1-CALC-REMIT  TO AMT-DISP1                    DTSBD374
01030         MOVE WRK-REMIT-AMT        TO AMT-DISP2                    DTSBD374
01031         DISPLAY 'BD374 P0500 QTR1 REMIT ' AMT-DISP1               DTSBD374
01032            '  W REMIT ' AMT-DISP2.                                DTSBD374
01033 *&                                                                DTSBD374
01034      COMPUTE WRK-UI-CHARGED-AMT =                                 DTSBD374
01035            WRK-QTR2-TAX-WAGE * UI-TAX-RATE.                       DTSBD374
01036      ADD WRK-UI-CHARGED-AMT     TO WRK-TOT-CHG-AMT.               DTSBD374
01037      IF WRK-UI-CHARGED-AMT <= WRK-REMIT-AMT                       DTSBD374
01038         MOVE WRK-UI-CHARGED-AMT TO WRK-QTR2-CALC-REMIT            DTSBD374
01039      ELSE                                                         DTSBD374
01040         MOVE WRK-REMIT-AMT      TO WRK-QTR2-CALC-REMIT            DTSBD374
01041      END-IF.                                                      DTSBD374
01042      SUBTRACT WRK-QTR2-CALC-REMIT FROM WRK-REMIT-AMT.             DTSBD374
01043                                                                   DTSBD374
01044 *&                                                                DTSBD374
01045 *    IF MPRF-EMP-NO = 081547                                      DTSBD374
01046         MOVE WRK-QTR2-CALC-REMIT  TO AMT-DISP1                    DTSBD374
01047         MOVE WRK-REMIT-AMT        TO AMT-DISP2                    DTSBD374
01048         DISPLAY 'BD374 P0500 QTR2 REMIT ' AMT-DISP1               DTSBD374
01049            '  W REMIT ' AMT-DISP2.                                DTSBD374
01050 *&                                                                DTSBD374
01051      COMPUTE WRK-UI-CHARGED-AMT =                                 DTSBD374
01052            WRK-QTR3-TAX-WAGE * UI-TAX-RATE.                       DTSBD374
01053      ADD WRK-UI-CHARGED-AMT     TO WRK-TOT-CHG-AMT.               DTSBD374
01054      IF WRK-UI-CHARGED-AMT <= WRK-REMIT-AMT                       DTSBD374
01055         MOVE WRK-UI-CHARGED-AMT TO WRK-QTR3-CALC-REMIT            DTSBD374
01056      ELSE                                                         DTSBD374
01057         MOVE WRK-REMIT-AMT      TO WRK-QTR3-CALC-REMIT            DTSBD374
01058      END-IF.                                                      DTSBD374
01059      SUBTRACT WRK-QTR3-CALC-REMIT FROM WRK-REMIT-AMT.             DTSBD374
01060                                                                   DTSBD374
01061 *&                                                                DTSBD374
01062 *    IF MPRF-EMP-NO = 081547                                      DTSBD374
01063         MOVE WRK-QTR3-CALC-REMIT  TO AMT-DISP1                    DTSBD374
01064         MOVE WRK-REMIT-AMT        TO AMT-DISP2                    DTSBD374
01065         DISPLAY 'BD374 P0500 QTR3 REMIT ' AMT-DISP1               DTSBD374
01066 *          '  W REMIT ' AMT-DISP2.                                DTSBD374
01067 *&                                                                DTSBD374
01068      COMPUTE WRK-UI-CHARGED-AMT =                                 DTSBD374
01069            WRK-QTR4-TAX-WAGE * UI-TAX-RATE.                       DTSBD374
01070      ADD WRK-UI-CHARGED-AMT     TO WRK-TOT-CHG-AMT.               DTSBD374
01071      IF WRK-UI-CHARGED-AMT <= WRK-REMIT-AMT                       DTSBD374
01072         MOVE WRK-UI-CHARGED-AMT TO WRK-QTR4-CALC-REMIT            DTSBD374
01073      ELSE                                                         DTSBD374
01074         MOVE WRK-REMIT-AMT      TO WRK-QTR4-CALC-REMIT            DTSBD374
01075      END-IF.                                                      DTSBD374
01076      SUBTRACT WRK-QTR4-CALC-REMIT FROM WRK-REMIT-AMT.             DTSBD374
01077                                                                   DTSBD374
01078 *&                                                                DTSBD374
01079 *    IF MPRF-EMP-NO = 081547                                      DTSBD374
01080         MOVE WRK-QTR4-CALC-REMIT  TO AMT-DISP1                    DTSBD374
01081         MOVE WRK-REMIT-AMT        TO AMT-DISP2                    DTSBD374
01082         DISPLAY 'BD374 P0500 QTR4 REMIT ' AMT-DISP1               DTSBD374
01083            '  W REMIT ' AMT-DISP2.                                DTSBD374
01084 *&                                                                DTSBD374
01085      IF WRK-REMIT-AMT > ZERO                                      DTSBD374
01086         ADD WRK-REMIT-AMT       TO WRK-QTR4-CALC-REMIT.           DTSBD374
01087                                                                   DTSBD374
01088 *&                                                                DTSBD374
01089 *    IF MPRF-EMP-NO = 081547                                      DTSBD374
01090         MOVE WRK-QTR1-CALC-REMIT    TO AMT-DISP1                  DTSBD374
01091         DISPLAY 'BD374 P0500 Q1 REMIT ' AMT-DISP1.                DTSBD374
01092 *&                                                                DTSBD374
01093  P0500-EXIT.                                                      DTSBD374
01094      EXIT.                                                        DTSBD374
01095                                                                   DTSBD374
01096  P1000-PROCESS-QTR.                                               DTSBD374
01097      MOVE LOW-VALUES                  TO ARPT-REC.                DTSBD374
01098                                                                   DTSBD374
01099      IF WRK-YRQ = WRK-QTR1                                        DTSBD374
01100         MOVE AATX-KEY-AREA            TO ARPT-KEY-AREA            DTSBD374
01101      ELSE                                                         DTSBD374
01102         MOVE AATX-BATCH-NO            TO ARPT-BATCH-NO            DTSBD374
01103         ADD +1                        TO WRK-LAST-ITEM-NO (SUB1)  DTSBD374
01104         MOVE WRK-LAST-ITEM-NO (SUB1)  TO ARPT-ITEM-NO             DTSBD374
01105      END-IF.                                                      DTSBD374
01106                                                                   DTSBD374
01107 ***********                                                       DTSBD374
01108 * NORMALLY, LBCM-TRN-DOC-NO IS SET BY BD300 AS EACH               DTSBD374
01109 * TRANSACTION IS PROCESSED. SINCE NEW ITEMS ARE BEING             DTSBD374
01110 * CREATED IN BD374, THE LBCM DOC NUMBER NEEDS TO BE SET           DTSBD374
01111 * FOR EACH ONE.                                                   DTSBD374
01112 ***********                                                       DTSBD374
01113      MOVE ARPT-DOC-NO               TO LBCM-TRN-DOC-NO.           DTSBD374
01114                                                                   DTSBD374
01115      DISPLAY 'BD374 ' AATX-EMP-NO '  ' ARPT-BATCH-NO              DTSBD374
01116         '  ' ARPT-ITEM-NO.                                        DTSBD374
01117                                                                   DTSBD374
01118      SET ARPT-RPT-88                TO TRUE.                      DTSBD374
01119      MOVE AATX-NAME-CHECK           TO ARPT-NAME-CHECK.           DTSBD374
01120      MOVE AATX-EMP-NO               TO ARPT-EMP-NO.               DTSBD374
01121      MOVE AATX-RPT-TYPE             TO ARPT-RPT-TYPE.             DTSBD374
01122      MOVE AATX-RPT-TYPE             TO ARPT-RPT-TYPE.             DTSBD374
01123      MOVE WRK-YRQ                   TO ARPT-YRQ.                  DTSBD374
01124      MOVE WRK-TOT-WAGE              TO ARPT-TOT-WAGE.             DTSBD374
01125      MOVE WRK-TAX-WAGE              TO ARPT-TAX-WAGE.             DTSBD374
01126      COMPUTE ARPT-EXCESS-WAGE = (WRK-TOT-WAGE - WRK-TAX-WAGE).    DTSBD374
01127 *&                                                                DTSBD374
01128 *    IF MPRF-EMP-NO = 081547                                      DTSBD374
01129 *       MOVE WRK-REMIT              TO AMT-DISP1                  DTSBD374
01130 *       DISPLAY 'BD374 P1000 REMIT ' WRK-YRQ '  ' AMT-DISP1.      DTSBD374
01131 *&                                                                DTSBD374
01132      MOVE WRK-REMIT                 TO ARPT-REMIT-AMT.            DTSBD374
01133      SET ARPT-WAGE-RPT-YES-88       TO TRUE.                      DTSBD374
01134      MOVE AATX-WAIVE-BOTH-IND       TO ARPT-WAIVE-BOTH-IND.       DTSBD374
01135      MOVE AATX-WAIVE-INT-IND        TO ARPT-WAIVE-INT-IND.        DTSBD374
01136      MOVE AATX-WAIVE-LATE-PEN-IND   TO ARPT-WAIVE-LATE-PEN-IND.   DTSBD374
01137      MOVE AATX-TOTAL-EMPL-CNT       TO ARPT-TOTAL-EMPL-CNT.       DTSBD374
01138      PERFORM P1100-EMPL-COUNTS      THRU P1100-EXIT.              DTSBD374
01139      MOVE AATX-VERIFIED-IND         TO ARPT-VERIFIED-IND.         DTSBD374
01140      MOVE AATX-RECEIVED-DATE        TO ARPT-RECEIVED-DATE.        DTSBD374
01141      MOVE AATX-DEPOSIT-DATE         TO ARPT-DEPOSIT-DATE.         DTSBD374
01142      MOVE AATX-RESPONSIBLE-ACTIVITY TO ARPT-RESPONSIBLE-ACTIVITY. DTSBD374
01143      MOVE AATX-RESPONSIBLE-OP-ID    TO ARPT-RESPONSIBLE-OP-ID.    DTSBD374
01144      MOVE AATX-DISREGARD-EDITS-IND  TO ARPT-DISREGARD-EDITS-IND.  DTSBD374
01145      MOVE AATX-PASSED-FULL-EDITS-IND                              DTSBD374
01146                                     TO ARPT-PASSED-FULL-EDITS-IND.DTSBD374
01147      MOVE +0                        TO ARPT-TRACE-NO              DTSBD374
01148                                        ARPT-PSEUDO-BATCH-NO       DTSBD374
01149                                        ARPT-PSEUDO-ITEM-NO        DTSBD374
01150                                        ARPT-CHECK-SCAN-DT         DTSBD374
01151                                        ARPT-CHECK-SEQUENCE.       DTSBD374
01152      MOVE AATX-STATUS-CHANGE-IND    TO ARPT-STATUS-CHNG-IND.      DTSBD374
01153      MOVE AATX-PROCESSED-DATE       TO ARPT-PROCESSED-DATE.       DTSBD374
01154                                                                   DTSBD374
01155      MOVE ARPT-REC                  TO ASKL-REC.                  DTSBD374
01156                                                                   DTSBD374
01157      PERFORM P1200-MJRN-TABLE-INIT  THRU P1200-EXIT.              DTSBD374
01158                                                                   DTSBD374
01159 *&                                                                DTSBD374
01160      DISPLAY 'BD374 CALL BD371 ' ARPT-EMP-NO '  ' ARPT-YRQ.       DTSBD374
01161 *&                                                                DTSBD374
01162                                                                   DTSBD374
01163      CALL 'DTSBD371' USING LBCM-LINK-AREA                         DTSBD374
01164                            MPRF-REC                               DTSBD374
01165                            ARPT-REC.                              DTSBD374
01166 *&                                                                DTSBD374
01167      DISPLAY 'BD374 P1000 TERM ' LBCM-TRN-RESULT-IND              DTSBD374
01168         '  ' LBCM-TRN-MSG-AREA.                                   DTSBD374
01169 *&                                                                DTSBD374
01170      IF LBCM-TRN-OK-88                                            DTSBD374
01171         PERFORM S549-TERM-TRAN-PRIM  THRU S549-EXIT               DTSBD374
01172      ELSE                                                         DTSBD374
01173         PERFORM S549-CANCEL-TRAN     THRU S549-EXIT               DTSBD374
01174      END-IF.                                                      DTSBD374
01175                                                                   DTSBD374
01176  P1000-EXIT.                                                      DTSBD374
01177      EXIT.                                                        DTSBD374
01178                                                                   DTSBD374
01179  P1100-EMPL-COUNTS.                                               DTSBD374
01180      MOVE WRK-YRQ                        TO L004-QTR-5-9.         DTSBD374
01181                                                                   DTSBD374
01182      EVALUATE L004-QTR-5-Q                                        DTSBD374
01183        WHEN 1                                                     DTSBD374
01184          PERFORM P1110-QTR1              THRU P1110-EXIT          DTSBD374
01185        WHEN 2                                                     DTSBD374
01186          PERFORM P1120-QTR2              THRU P1120-EXIT          DTSBD374
01187        WHEN 3                                                     DTSBD374
01188          PERFORM P1130-QTR3              THRU P1130-EXIT          DTSBD374
01189        WHEN 4                                                     DTSBD374
01190          PERFORM P1140-QTR4              THRU P1140-EXIT          DTSBD374
01191      END-EVALUATE.                                                DTSBD374
01192                                                                   DTSBD374
01193  P1100-EXIT.                                                      DTSBD374
01194      EXIT.                                                        DTSBD374
01195                                                                   DTSBD374
01196  P1110-QTR1.                                                      DTSBD374
01197      MOVE AATX-JAN-EMPL-CNT           TO ARPT-1ST-MTH-EMPL-CNT.   DTSBD374
01198      MOVE AATX-FEB-EMPL-CNT           TO ARPT-2ND-MTH-EMPL-CNT.   DTSBD374
01199      MOVE AATX-MAR-EMPL-CNT           TO ARPT-3RD-MTH-EMPL-CNT.   DTSBD374
01200                                                                   DTSBD374
01201  P1110-EXIT.                                                      DTSBD374
01202      EXIT.                                                        DTSBD374
01203                                                                   DTSBD374
01204  P1120-QTR2.                                                      DTSBD374
01205      MOVE AATX-APR-EMPL-CNT           TO ARPT-1ST-MTH-EMPL-CNT.   DTSBD374
01206      MOVE AATX-MAY-EMPL-CNT           TO ARPT-2ND-MTH-EMPL-CNT.   DTSBD374
01207      MOVE AATX-JUN-EMPL-CNT           TO ARPT-3RD-MTH-EMPL-CNT.   DTSBD374
01208                                                                   DTSBD374
01209  P1120-EXIT.                                                      DTSBD374
01210      EXIT.                                                        DTSBD374
01211                                                                   DTSBD374
01212  P1130-QTR3.                                                      DTSBD374
01213      MOVE AATX-JUL-EMPL-CNT           TO ARPT-1ST-MTH-EMPL-CNT.   DTSBD374
01214      MOVE AATX-AUG-EMPL-CNT           TO ARPT-2ND-MTH-EMPL-CNT.   DTSBD374
01215      MOVE AATX-SEP-EMPL-CNT           TO ARPT-3RD-MTH-EMPL-CNT.   DTSBD374
01216                                                                   DTSBD374
01217  P1130-EXIT.                                                      DTSBD374
01218      EXIT.                                                        DTSBD374
01219                                                                   DTSBD374
01220  P1140-QTR4.                                                      DTSBD374
01221      MOVE AATX-OCT-EMPL-CNT           TO ARPT-1ST-MTH-EMPL-CNT.   DTSBD374
01222      MOVE AATX-NOV-EMPL-CNT           TO ARPT-2ND-MTH-EMPL-CNT.   DTSBD374
01223      MOVE AATX-DEC-EMPL-CNT           TO ARPT-3RD-MTH-EMPL-CNT.   DTSBD374
01224                                                                   DTSBD374
01225  P1140-EXIT.                                                      DTSBD374
01226      EXIT.                                                        DTSBD374
01227                                                                   DTSBD374
01228  P1200-MJRN-TABLE-INIT.                                           DTSBD374
01229      MOVE ARPT-DOC-NO              TO L549-TRN-DOC-NO.            DTSBD374
01230      MOVE LBCM-TRACE-IND           TO L549-INIT-TRACE-IND.        DTSBD374
01231      MOVE LBCM-CURR-RUN-DATE       TO L549-INIT-CURR-RUN-DATE.    DTSBD374
01232      MOVE LBCM-EMP-ABSTIME         TO L549-INIT-ABSTIME.          DTSBD374
01233      MOVE MPRF-EMP-NO              TO L549-INIT-EMP-NO.           DTSBD374
01234      MOVE MPRF-EMP-CLASS           TO L549-INIT-EMP-CLASS.        DTSBD374
01235      MOVE MPRF-ELIGIBLE-CD         TO L549-INIT-ELIGIBLE-CD.      DTSBD374
01236      MOVE ARPT-REC-TYPE            TO L549-INIT-REC-TYPE          DTSBD374
01237      MOVE ARPT-RPT-TYPE            TO L549-INIT-TRANS-TYPE        DTSBD374
01238      MOVE ARPT-RECEIVED-DATE       TO L549-INIT-RECEIVED-DATE     DTSBD374
01239      MOVE ARPT-DEPOSIT-DATE        TO L549-INIT-DEPOSIT-DATE      DTSBD374
01240      MOVE ARPT-REMIT-AMT           TO L549-INIT-REMIT-AMT         DTSBD374
01241      IF ARPT-WAIVE-BOTH-YES-88                                    DTSBD374
01242          MOVE ARPT-WAIVE-BOTH-IND  TO ARPT-WAIVE-INT-IND          DTSBD374
01243                                       ARPT-WAIVE-LATE-PEN-IND     DTSBD374
01244          SET ARPT-WAIVE-BOTH-NO-88 TO TRUE                        DTSBD374
01245      END-IF.                                                      DTSBD374
01246      MOVE ARPT-WAIVE-INT-IND       TO L549-INIT-WAIVE-INT-IND.    DTSBD374
01247      MOVE ARPT-WAIVE-LATE-PEN-IND                                 DTSBD374
01248        TO L549-INIT-WAIVE-LATE-PEN-IND.                           DTSBD374
01249      MOVE ARPT-YRQ                 TO L549-INIT-APPLIC-YRQ.       DTSBD374
01250      MOVE SPACE                    TO L549-INIT-APPLIC-ACCT-IND.  DTSBD374
01251      MOVE +0                       TO L549-INIT-APPLIC-BATCH-NO   DTSBD374
01252                                       L549-INIT-APPLIC-ITEM-NO.   DTSBD374
01253      MOVE ARPT-RESPONSIBLE-ACTIVITY                               DTSBD374
01254        TO L549-INIT-RESP-ACTIVITY                                 DTSBD374
01255      MOVE ARPT-RESPONSIBLE-OP-ID   TO L549-INIT-RESP-OP-ID.       DTSBD374
01256                                                                   DTSBD374
01257 *&                                                                DTSBD374
01258      DISPLAY 'BD374 P1200 ' L549-INIT-EMP-NO                      DTSBD374
01259        '  ' ARPT-BATCH-NO '  ' ARPT-ITEM-NO.                      DTSBD374
01260 *&                                                                DTSBD374
01261      PERFORM S549-INIT-TRAN        THRU S549-EXIT.                DTSBD374
01262                                                                   DTSBD374
01263  P1200-EXIT.                                                      DTSBD374
01264      EXIT.                                                        DTSBD374
01265                                                                   DTSBD374
01266  S001-FROM-FED-8.                                                 DTSBD374
01267      SET L001-FROM-FED-8 TO TRUE.                                 DTSBD374
01268      GO TO S001-DATE.                                             DTSBD374
01269                                                                   DTSBD374
01270  S001-FROM-ABS-DAY.                                               DTSBD374
01271      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBD374
01272      GO TO S001-DATE.                                             DTSBD374
01273                                                                   DTSBD374
01274  S001-DATE.                                                       DTSBD374
01275      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD374
01276  S001-EXIT.                                                       DTSBD374
01277      EXIT.                                                        DTSBD374
01278      SKIP3                                                        DTSBD374
01279  S004-FROM-5.                                                     DTSBD374
01280      SET L004-FROM-5 TO TRUE.                                     DTSBD374
01281      GO TO S004-QTR.                                              DTSBD374
01282                                                                   DTSBD374
01283  S003-AGENCY-DAY.                                                 DTSBD374
01284      SET L003-AGENCY-DAY TO TRUE.                                 DTSBD374
01285      CALL 'DTSBU003' USING L003-LINK-AREA.                        DTSBD374
01286                                                                   DTSBD374
01287  S003-EXIT.                                                       DTSBD374
01288      EXIT.                                                        DTSBD374
01289      SKIP3                                                        DTSBD374
01290  S004-QTR.                                                        DTSBD374
01291      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBD374
01292  S004-EXIT.                                                       DTSBD374
01293      EXIT.                                                        DTSBD374
01294      SKIP3                                                        DTSBD374
01295  S005-FROM-ABSTIME.                                               DTSBD374
01296      SET L005-FROM-ABSTIME TO TRUE.                               DTSBD374
01297      GO TO S005-ABSTIME.                                          DTSBD374
01298                                                                   DTSBD374
01299  S005-ABSTIME.                                                    DTSBD374
01300      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD374
01301  S005-EXIT.                                                       DTSBD374
01302      EXIT.                                                        DTSBD374
01303      SKIP3                                                        DTSBD374
01304  S109-FIRST-PEN-INT-YRQ.                                          DTSBD374
01305      SET L109-CMND-PEN-INT-QTR-88 TO TRUE.                        DTSBD374
01306      GO TO S109-SUR-RATE.                                         DTSBD374
01307                                                                   DTSBD374
01308  S109-SUR-RATE.                                                   DTSBD374
01309      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBD374
01310  S109-EXIT.                                                       DTSBD374
01311      EXIT.                                                        DTSBD374
01312                                                                   DTSBD374
01313  S516-LIABILITY-INFO.                                             DTSBD374
01314      CALL 'DTSBU516' USING L516-LINK-AREA                         DTSBD374
01315                            MPRF-REC.                              DTSBD374
01316  S516-EXIT.                                                       DTSBD374
01317      EXIT.                                                        DTSBD374
01318                                                                   DTSBD374
01319  S549-INIT-TRAN.                                                  DTSBD374
01320      SET L549-INIT-TRAN-88 TO TRUE.                               DTSBD374
01321      GO TO S549-JOURNAL.                                          DTSBD374
01322                                                                   DTSBD374
01323  S549-DELTA.                                                      DTSBD374
01324      SET L549-DELTA-88 TO TRUE.                                   DTSBD374
01325      GO TO S549-JOURNAL.                                          DTSBD374
01326                                                                   DTSBD374
01327  S549-CANCEL-TRAN.                                                DTSBD374
01328      SET L549-CANCEL-TRAN-88 TO TRUE.                             DTSBD374
01329      GO TO S549-JOURNAL.                                          DTSBD374
01330                                                                   DTSBD374
01331  S549-TERM-TRAN-PRIM.                                             DTSBD374
01332      SET L549-TERM-TRAN-PRIM-88 TO TRUE.                          DTSBD374
01333      GO TO S549-JOURNAL.                                          DTSBD374
01334                                                                   DTSBD374
01335  S549-JOURNAL.                                                    DTSBD374
01336      MOVE ARPT-DOC-NO TO L549-TRN-DOC-NO.                         DTSBD374
01337                                                                   DTSBD374
01338      CALL 'DTSBU549' USING L549-LINK-AREA.                        DTSBD374
01339  S549-EXIT.                                                       DTSBD374
01340      EXIT.                                                        DTSBD374
01341                                                                   DTSBD374
01342  S910-READ.                                                       DTSBD374
01343      SET L910-READ-88 TO TRUE.                                    DTSBD374
01344      GO TO S910-MSTR-IO.                                          DTSBD374
01345                                                                   DTSBD374
01346  S910-START-BROWSE.                                               DTSBD374
01347      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD374
01348      GO TO S910-MSTR-IO.                                          DTSBD374
01349                                                                   DTSBD374
01350  S910-READ-NEXT.                                                  DTSBD374
01351      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD374
01352      GO TO S910-MSTR-IO.                                          DTSBD374
01353                                                                   DTSBD374
01354  S910-COUNT.                                                      DTSBD374
01355      SET L910-COUNT-88 TO TRUE.                                   DTSBD374
01356      GO TO S910-MSTR-IO.                                          DTSBD374
01357                                                                   DTSBD374
01358  S910-WRITE.                                                      DTSBD374
01359      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD374
01360      SET L910-WRITE-88 TO TRUE.                                   DTSBD374
01361      GO TO S910-MSTR-IO.                                          DTSBD374
01362                                                                   DTSBD374
01363  S910-REWRITE.                                                    DTSBD374
01364      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD374
01365      SET L910-REWRITE-88 TO TRUE.                                 DTSBD374
01366      GO TO S910-MSTR-IO.                                          DTSBD374
01367                                                                   DTSBD374
01368  S910-DELETE.                                                     DTSBD374
01369      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD374
01370      SET L910-DELETE-88 TO TRUE.                                  DTSBD374
01371      GO TO S910-MSTR-IO.                                          DTSBD374
01372                                                                   DTSBD374
01373  S910-MSTR-IO.                                                    DTSBD374
01374      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD374
01375                            MSKL-REC.                              DTSBD374
01376  S910-EXIT.                                                       DTSBD374
01377      EXIT.                                                        DTSBD374
01378      SKIP3                                                        DTSBD374
01379  S931-READ.                                                       DTSBD374
01380      SET L931-READ-88 TO TRUE.                                    DTSBD374
01381      GO TO S931-REF-I.                                            DTSBD374
01382                                                                   DTSBD374
01383  S931-REF-I.                                                      DTSBD374
01384      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBD374
01385                            FSKL-REC.                              DTSBD374
01386  S931-EXIT.                                                       DTSBD374
01387      EXIT.                                                        DTSBD374
01388      SKIP3                                                        DTSBD374
01389  S946-R907-WRITE.                                                 DTSBD374
01390      CALL 'DTSBU946' USING R907-REC.                              DTSBD374
01391      GO TO S946-EXIT.                                             DTSBD374
01392                                                                   DTSBD374
01393  S946-EXIT.                                                       DTSBD374
01394      EXIT.                                                        DTSBD374
01395      SKIP3                                                        DTSBD374
01396  S983-START-BROWSE.                                               DTSBD374
01397      SET L983-START-BROWSE-88 TO TRUE.                            DTSBD374
01398      GO TO S983-WAGE-I.                                           DTSBD374
01399                                                                   DTSBD374
01400  S983-READ-NEXT.                                                  DTSBD374
01401      SET L983-READ-NEXT-88 TO TRUE.                               DTSBD374
01402      GO TO S983-WAGE-I.                                           DTSBD374
01403                                                                   DTSBD374
01404  S983-WAGE-I.                                                     DTSBD374
01405      CALL 'DTSBU983' USING L983-LINK-AREA                         DTSBD374
01406                            WSKL-REC.                              DTSBD374
01407  S983-EXIT.                                                       DTSBD374
01408      EXIT.                                                        DTSBD374
01409      SKIP3                                                        DTSBD374
01410  S999-ABEND.                                                      DTSBD374
01411      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD374
01412  S999-EXIT.                                                       DTSBD374
01413      EXIT.                                                        DTSBD374
