00001  IDENTIFICATION DIVISION.                                         05/28/14
00002  PROGRAM-ID.             DTSBR325.                                DTSBR325
00003  AUTHOR.                 NGI.                                        LV009
00004  DATE-WRITTEN.           MAR 2006.                                DTSBR325
00005  DATE-COMPILED.                                                   DTSBR325
00006      SKIP3                                                        DTSBR325
00007 *****                                                             DTSBR325
00008 *                                                                 DTSBR325
00009 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR325
00010 *                       DTSBE325 WHICH CREATES DTSIR325 RECORDS   DTSBR325
00011 *                       DTSBD800 CALLS                            DTSBR325
00012 *                       DTSBR325 WHICH READS DTSIR325 RECORDS     DTSBR325
00013 *                                                                 DTSBR325
00014 *    FUNCTION:  DEBIT MEMO PRINT.                                 DTSBR325
00015 *                                                                 DTSBR325
00016 *    MODIFICATION HISTORY:                                        DTSBR325
00017 *                                                                 DTSBR325
00018 * 03-08-06 CREATED FROM DTSBR141. PRODUCE DAILY ASSESMENT BILL    DTSBR325
00019 *          FOR SELF INSURED EMPLOYERS                             DTSBR325
00020 *          REFERENCE RFP # dc sur charge         PROGRAMMER: ZL1  DTSBR325
00021 *                                                                 DTSBR325
00022 * 08-21-06 MODIFIED TO RUN FOLLOWING DAILY UPDATE (DTSPDAY1).     DTSBR325
00023 *          THE PROGRAM FINDS THE ADMIN ASSESMENT BALANCE DUE      DTSBR325
00024 *          FROM THE TAX DATABASE AND SENDS A BILL ONLY IF THERE   DTSBR325
00025 *          IS A BALANCE DUE > $1.00.                              DTSBR325
00026 *          IT ALSO PRODUCES MANAGEMENT REPORTS FORMERLY           DTSBR325
00027 *          GENERATED IN DTSBE325.                                 DTSBR325
00028 *          REFERENCE RFP # dc sur charge         PROGRAMMER: GD   DTSBR325
00029 *                                                                 DTSBR325
00030 * 06-02-10 MODIFIED TO REPORT WHEN THE ASSESSMENT AMOUNT HAS      DTSBR325
00031 *          BEEN REVERSED.                                         DTSBR325
00032 *          REFERENCE RFP #                       PROGRAMMER: GD   DTSBR325
00033 *                                                                 DTSBR325
00034 * 04-30-14 MODIFIED p1100-print-bill to only pring bill when      DTSBR325
00035 *          the r325-final-assess-due amount is greater than       DTSBR325
00036 *          +1                                                     DTSBR325
00037 *          REFERENCE RFP #                       PROGRAMMER: nh   DTSBR325
00038 *                                                                 DTSBR325
00039 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR325
00040 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR325
00041 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR325
00042 *                                                                 DTSBR325
00043 *                                                                 DTSBR325
00044 *  DESCRIPTION:                                                   DTSBR325
00045 *                                                                 DTSBR325
00046 *      THIS MODULE PRINTS ASSESSMENT BILLS FOR SI EMPLOYERS       DTSBR325
00047 *      AND MANAGEMENT REPORTS.                                    DTSBR325
00048 *                                                                 DTSBR325
00049 *  PROCESSING:                                                    DTSBR325
00050 *                                                                 DTSBR325
00051 *      DETAIL:                                                    DTSBR325
00052 *                                                                 DTSBR325
00053 *                                                                 DTSBR325
00054 *    RECORDS READ:                                                DTSBR325
00055 *                                                                 DTSBR325
00056 *        FOPR.                                                    DTSBR325
00057 *                                                                 DTSBR325
00058 *                                                                 DTSBR325
00059 *    PRINTED OUTPUTS:                                             DTSBR325
00060 *                                                                 DTSBR325
00061 *        325R1  LETTER OF ASSESSMENT BILL SEND TO SI EMPLOYERS.   DTSBR325
00062 *        325R2  100% OF WAGES ON FILE DETAIL REPORT.              DTSBR325
00063 *        325R3  LESS THAN 10% IN WAGE DISCREPANCY DETAIL RPT.     DTSBR325
00064 *        325R4  GREATER THAN 100K OR 10% IN WAGE DISCREPANCY      DTSBR325
00065 *               DETAIL REPORT.                                    DTSBR325
00066 *        325R5  WAGE DATA MISSING DETAIL REPORT.                  DTSBR325
00067 *                                                                 DTSBR325
00068 *    RECORDS WRITTEN:                                             DTSBR325
00069 *                                                                 DTSBR325
00070 *        NONE.                                                    DTSBR325
00071 *                                                                 DTSBR325
00072 *                                                                 DTSBR325
00073 *    MODULES CALLED:                                              DTSBR325
00074 *                                                                 DTSBR325
00075 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBR325
00076 *                                                                 DTSBR325
00077 *****                                                             DTSBR325
00078      EJECT                                                        DTSBR325
00079  ENVIRONMENT DIVISION.                                            DTSBR325
00080      SKIP2                                                        DTSBR325
00081  CONFIGURATION SECTION.                                           DTSBR325
00082  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR325
00083  INPUT-OUTPUT SECTION.                                            DTSBR325
00084      SKIP2                                                        DTSBR325
00085  FILE-CONTROL.                                                    DTSBR325
00086                                                                   DTSBR325
00087      SELECT RPT-FILE1   ASSIGN TO RPT325R1                        DTSBR325
00088             FILE STATUS IS RPT-STATUS.                            DTSBR325
00089                                                                   DTSBR325
00090      SELECT RPT-FILE2 ASSIGN TO RPT325R2                          DTSBR325
00091             FILE STATUS IS RPT-STATUS.                            DTSBR325
00092                                                                   DTSBR325
00093      SELECT RPT-FILE3 ASSIGN TO RPT325R3                          DTSBR325
00094             FILE STATUS IS RPT-STATUS.                            DTSBR325
00095                                                                   DTSBR325
00096      SELECT RPT-FILE4 ASSIGN TO RPT325R4                          DTSBR325
00097             FILE STATUS IS RPT-STATUS.                            DTSBR325
00098                                                                   DTSBR325
00099      SELECT RPT-FILE5 ASSIGN TO RPT325R5                          DTSBR325
00100             FILE STATUS IS RPT-STATUS.                            DTSBR325
00101                                                                   DTSBR325
00102  DATA DIVISION.                                                   DTSBR325
00103                                                                   DTSBR325
00104  FILE SECTION.                                                    DTSBR325
00105                                                                   DTSBR325
00106  FD  RPT-FILE1                                                    DTSBR325
00107      RECORDING MODE IS F                                          DTSBR325
00108      LABEL RECORDS ARE STANDARD.                                  DTSBR325
00109  01  RPT-REC1.                                                    DTSBR325
00110      05  FILLER              PIC X(132).                          DTSBR325
00111                                                                   DTSBR325
00112  FD  RPT-FILE2                                                    DTSBR325
00113      RECORDING MODE IS F.                                         DTSBR325
00114  01  RPT-REC2                PIC X(133).                          DTSBR325
00115                                                                   DTSBR325
00116  FD  RPT-FILE3                                                    DTSBR325
00117      RECORDING MODE IS F.                                         DTSBR325
00118  01  RPT-REC3                PIC X(133).                          DTSBR325
00119                                                                   DTSBR325
00120  FD  RPT-FILE4                                                    DTSBR325
00121      RECORDING MODE IS F.                                         DTSBR325
00122  01  RPT-REC4                PIC X(133).                          DTSBR325
00123                                                                   DTSBR325
00124  FD  RPT-FILE5                                                    DTSBR325
00125      RECORDING MODE IS F.                                         DTSBR325
00126  01  RPT-REC5                PIC X(133).                          DTSBR325
00127                                                                   DTSBR325
00128  WORKING-STORAGE SECTION.                                         DTSBR325
001285 77  PAN-VALET PICTURE X(24) VALUE '009DTSBR325  05/28/14'.       DTSBR325
00129  77  PAN-VALET PICTURE X(24) VALUE '016DTSBR325  05/06/14'.       DTSBR325
00130  77  PAN-VALET PICTURE X(24) VALUE '007DTSBR325  06/19/13'.       DTSBR325
00131  77  PAN-VALET PICTURE X(24) VALUE '003DTSBR325  06/19/13'.       DTSBR325
00132  77  PAN-VALET PICTURE X(24) VALUE '005DTSBR325  06/18/13'.       DTSBR325
00133  77  PAN-VALET PICTURE X(24) VALUE '003DTSBR325  06/17/13'.       DTSBR325
00134  77  PAN-VALET PICTURE X(24) VALUE '010DTSBR325  04/10/12'.       DTSBR325
00135                                                                   DTSBR325
00136  01  WRK-AREA-CONSTANTS.                                          DTSBR325
00137      05  WRK-ABEND-CD                PIC S9(04)  COMP             DTSBR325
00138                                                      VALUE +325.  DTSBR325
00139      05  WRK-TRACE-IND               PIC  X(01).                  DTSBR325
00140      05  WRK-ABEND-MSG               PIC  X(60)  VALUE SPACES.    DTSBR325
00141      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBR325'.DTSBR325
00142      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR325
00143                                                                   DTSBR325
00144      05  TOT-LINE-CNT                PIC S9(04)  COMP  VALUE +47. DTSBR325
00145      05  MAX-QTR-PRINT               PIC S9(04)  COMP  VALUE +21. DTSBR325
00146      05  LINE-CNT                    PIC S9(04)  COMP  VALUE +0.  DTSBR325
00147                                                                   DTSBR325
00148      05  RPT-STATUS                  PIC  X(02).                  DTSBR325
00149          88  RPT-STATUS-OK-88         VALUE '00'.                 DTSBR325
00150                                                                   DTSBR325
00151      05  PRT-STATUS                  PIC  X(02).                  DTSBR325
00152          88  PRT-STATUS-OK-88         VALUE '00'.                 DTSBR325
00153                                                                   DTSBR325
00154      05  WRK-ERROR-IND               PIC  X(01).                  DTSBR325
00155          88  WRK-ERROR-YES-88         VALUE 'Y'.                  DTSBR325
00156          88  WRK-ERROR-NO-88          VALUE 'N'.                  DTSBR325
00157                                                                   DTSBR325
00158      05  WRK-TOT-REG-TAX       PIC S9(11)V9(02)  COMP-3 VALUE +0. DTSBR325
00159      05  WRK-TOT-ERR-TAX       PIC S9(11)V9(02)  COMP-3 VALUE +0. DTSBR325
00160      05  WRK-WAGE-DIFF         PIC S9(11)V9(02)  COMP-3 VALUE +0. DTSBR325
00161      05  WRK-TOT-ERR20-TAX     PIC S9(11)V9(02)  COMP-3 VALUE +0. DTSBR325
00162                                                                   DTSBR325
00163      05  WRK-100-WAGES-CNT     PIC S9(07)  COMP-3 VALUE 0.        DTSBR325
00164      05  WRK-080-WAGES-CNT     PIC S9(07)  COMP-3 VALUE 0.        DTSBR325
00165      05  WRK-079-WAGES-CNT     PIC S9(07)  COMP-3 VALUE 0.        DTSBR325
00166      05  WRK-ZERO-WAGES-CNT    PIC S9(07)  COMP-3 VALUE 0.        DTSBR325
00167                                                                   DTSBR325
00168      05  WS-WRK-QTR                  PIC  9(05)  VALUE ZEROS.     DTSBR325
00169      05  WS-WRK-QTR-X REDEFINES WS-WRK-QTR.                       DTSBR325
00170          10  WRK-QTR-YR              PIC  9(04).                  DTSBR325
00171          10  WRK-QTR-Q               PIC  9(01).                  DTSBR325
00172                                                                   DTSBR325
00173      05  WS-PRT-QTR.                                              DTSBR325
00174          10  WRK-PRT-YR              PIC  X(04)  VALUE SPACES.    DTSBR325
00175          10  WRK-PRT-SLASH           PIC  X(01)  VALUE SPACES.    DTSBR325
00176          10  WRK-PRT-Q               PIC  X(01)  VALUE SPACES.    DTSBR325
00177                                                                   DTSBR325
00178      05  WS-EMP-NAME.                                             DTSBR325
00179          10  WRK-FIRST-4             PIC  X(04)  VALUE SPACES.    DTSBR325
00180          10  WRK-LAST-36             PIC  X(36)  VALUE SPACES.    DTSBR325
00181                                                                   DTSBR325
00182      05  WS-REC                      PIC  X(132) VALUE SPACES.    DTSBR325
00183      05  WS-XREC                     PIC  X(132)  VALUE SPACES.   DTSBR325
00184                                                                   DTSBR325
00185      05  WS-SUR-BAL           PIC S9(09)V99 COMP-3.               DTSBR325
00186      05  WS-QTR-PLUS20        PIC 9(3)      VALUE ZERO.           DTSBR325
00187      05  WS-QTR-CNT           PIC 9(3)      VALUE ZERO.           DTSBR325
00188      05  TOT-RPT-CNT          PIC 9(5)      VALUE ZERO.           DTSBR325
00189      05  WS-QTR-IDX           PIC 9(3)      VALUE ZERO.           DTSBR325
00190      05  WRK-CTR              PIC 9(3)      VALUE ZERO.           DTSBR325
00191      05  PAGE-CNT             PIC 9(3)      VALUE ZERO.           DTSBR325
00192                                                                   DTSBR325
00193  ++INCLUDE DTSXL325                                               DTSBR325
00194      SKIP3                                                        DTSBR325
00195      05  STUB-LINE.                                               DTSBR325
00196          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR325
00197          10  STUB-EMP-NO             PIC  999B999.                DTSBR325
00198          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR325
00199          10  STUB-NAME-CHEK          PIC  X(04).                  DTSBR325
00200          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR325
00201          10  STUB-EMP-FEIN           PIC  99B9999999.             DTSBR325
00202          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR325
00203          10  STUB-QTR                PIC  X(10).                  DTSBR325
00204 *        10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR325
00205          10  STUB-STMT-DATE          PIC  X(10).                  DTSBR325
00206          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR325
00207          10  STUB-AMT                PIC  $,$$$,$$$.$$.           DTSBR325
00208                                                                   DTSBR325
00209      05  ADDR01.                                                  DTSBR325
00210          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR325
00211          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR325
00212          10  STUB-ADDR-LINE1         PIC  X(40).                  DTSBR325
00213          10  FILLER                  PIC  X(23)  value spaces.    DTSBR325
00214                                                                   DTSBR325
00215      05  ADDR02.                                                  DTSBR325
00216          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR325
00217          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR325
00218          10  STUB-ADDR-LINE2         PIC  X(40).                  DTSBR325
00219          10  FILLER                  PIC  X(23)  value spaces.    DTSBR325
00220                                                                   DTSBR325
00221      05  ADDR03.                                                  DTSBR325
00222          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR325
00223          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR325
00224          10  STUB-ADDR-LINE3         PIC  X(40).                  DTSBR325
00225          10  FILLER                  PIC  X(23)  value spaces.    DTSBR325
00226                                                                   DTSBR325
00227      05  ADDR04.                                                  DTSBR325
00228          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR325
00229          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR325
00230          10  STUB-ADDR-LINE4         PIC  X(40).                  DTSBR325
00231          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR325
00232                                                                   DTSBR325
00233      05  ADDR05.                                                  DTSBR325
00234          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR325
00235          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR325
00236          10  STUB-ADDR-LINE5         PIC  X(40).                  DTSBR325
00237          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR325
00238                                                                   DTSBR325
00239      05  STMT-LINE1.                                              DTSBR325
00240          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR325
00241          10  STMT-EMP-NO             PIC  999B999.                DTSBR325
00242          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR325
00243          10  STMT-EMP-FEIN           PIC  99B9999999.             DTSBR325
00244          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR325
00245          10  STMT-QTR                PIC  X(10).                  DTSBR325
00246          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR325
00247          10  STMT-STMT-DATE          PIC  X(10).                  DTSBR325
00248          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR325
00249                                                                   DTSBR325
00250      05  STMT-LINE2.                                              DTSBR325
00251          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR325
00252          10  FILLER              PIC X(50) VALUE                  DTSBR325
00253          'YOUR CREDIT HAS BEEN APPLIED TO THE BALANCE DUE'.       DTSBR325
00254                                                                   DTSBR325
00255      05  STMT-QTR-DETAIL.                                         DTSBR325
00256 *        10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR325
00257 *        10  QTR-DET-YR.                                          DTSBR325
00258 *            15  QTR-DET-YR1         PIC  X(06).                  DTSBR325
00259 *            15  QTR-DET-YR2         PIC  X(03).                  DTSBR325
00260          10  FILLER                  PIC  X(07).                  DTSBR325
00261          10  QTR-DET-TOTAL-WAGE      PIC  $,$$$,$$$,$$$.99.       DTSBR325
00262          10  FILLER                  PIC  X(04).                  DTSBR325
00263          10  QTR-DET-ASSESSMENT-WAGE PIC  $,$$$,$$$,$$$.99.       DTSBR325
00264          10  FILLER                  PIC  X(06).                  DTSBR325
00265          10  QTR-DET-ASSESSMENT-RATE PIC  Z,ZZZ,Z9.999.           DTSBR325
00266          10  FILLER                  PIC  X(13).                  DTSBR325
00267          10  QTR-DET-ASSESSMENT-DUE  PIC  $,$$$,$$$.99.           DTSBR325
00268          10  FILLER                  PIC  X(02).                  DTSBR325
00269                                                                   DTSBR325
00270      05  AMT-DISP1                PIC -,---,---,--9.99.           DTSBR325
00271      05  AMT-DISP2                PIC -,---,---,--9.99.           DTSBR325
00272      05  AMT-DISP3                PIC -,---,---,--9.99.           DTSBR325
00273      05  AMT-DISP4                PIC -,---,---,--9.99.           DTSBR325
00274                                                                   DTSBR325
00275      05  DIS-ASSESS-DUE           PIC -,---,---,--9.99.           DTSBR325
00276      05  DIS-SUR-BAL              PIC -,---,---,--9.99.           DTSBR325
00277      05  DIS-BALANCE-AMT          PIC -,---,---,--9.99.           DTSBR325
00278                                                                   DTSBR325
00279      05  WS-REG-LINE-CNT          PIC S9(02) COMP-3 VALUE 55.     DTSBR325
00280      05  WS-PAGE-CNT              PIC S9(03) COMP-3 VALUE +1.     DTSBR325
00281                                                                   DTSBR325
00282      05  WS-ERR-LINE-CNT         PIC S9(02) COMP-3 VALUE 55.      DTSBR325
00283      05  WS-ERR-PAGE-CNT         PIC S9(03) COMP-3 VALUE +1.      DTSBR325
00284                                                                   DTSBR325
00285      05  WS-ERR20-LINE-CNT       PIC S9(02) COMP-3 VALUE 55.      DTSBR325
00286      05  WS-ERR20-PAGE-CNT       PIC S9(03) COMP-3 VALUE +1.      DTSBR325
00287                                                                   DTSBR325
00288      05  WS-ZERO-LINE-CNT        PIC S9(02) COMP-3 VALUE 55.      DTSBR325
00289      05  WS-ZERO-PAGE-CNT        PIC S9(03) COMP-3 VALUE +1.      DTSBR325
00290                                                                   DTSBR325
00291  01  HEADER1.                                                     DTSBR325
00292      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR325
00293      05  HDR1-RPT                 PIC X(05).                      DTSBR325
00294      05  FILLER                   PIC X(44) VALUE SPACES.         DTSBR325
00295      05  FILLER                   PIC X(60) VALUE                 DTSBR325
00296          'DISTRICT OF COLUMBIA'.                                  DTSBR325
00297      05  FILLER                   PIC X(06) VALUE 'DATE:'.        DTSBR325
00298      05  HDR1-DATE                PIC X(08).                      DTSBR325
00299                                                                   DTSBR325
00300  01  HEADER2.                                                     DTSBR325
00301      05  FILLER                   PIC X(54) VALUE SPACES.         DTSBR325
00302      05  FILLER                   PIC X(56) VALUE                 DTSBR325
00303          'TAX DIVISION'.                                          DTSBR325
00304      05  FILLER                   PIC X(06) VALUE 'TIME:'.        DTSBR325
00305      05  HDR2-TIME                PIC X(08).                      DTSBR325
00306                                                                   DTSBR325
00307  01  HEADER25.                                                    DTSBR325
00308      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR325
00309      05  FILLER                   PIC X(38) VALUE                 DTSBR325
00310          'SELF INSURED EMPLOYERS    '.                            DTSBR325
00311      05  FILLER                   PIC X(46) VALUE                 DTSBR325
00312          '  ADMINISTRATIVE ASSESSMENT DETAIL REPORT  '.           DTSBR325
00313      05  FILLER                   PIC X(25) VALUE SPACES.         DTSBR325
00314                                                                   DTSBR325
00315  01  HEADER26.                                                    DTSBR325
00316      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR325
00317      05  FILLER                   PIC X(36) VALUE                 DTSBR325
00318          'SELF INSURED EMPLOYERS    '.                            DTSBR325
00319      05  FILLER                   PIC X(46) VALUE                 DTSBR325
00320          '  ADMINISTRATIVE ASSESSMENT EXCEPTION REPORT '.         DTSBR325
00321      05  FILLER                   PIC X(25) VALUE SPACES.         DTSBR325
00322                                                                   DTSBR325
00323  01  HEADER3.                                                     DTSBR325
00324      05  FILLER                   PIC X(33) VALUE SPACES.         DTSBR325
00325      05  FILLER                   PIC X(46) VALUE                 DTSBR325
00326          '                 100% OF WAGES ON FILE  '.              DTSBR325
00327      05  FILLER                   PIC X(32) VALUE SPACES.         DTSBR325
00328      05  FILLER                   PIC X(06) VALUE 'PAGE:'.        DTSBR325
00329      05  HDR3-PAGE                PIC ZZ,ZZ9.                     DTSBR325
00330                                                                   DTSBR325
00331  01  HEADER35.                                                    DTSBR325
00332      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR325
00333      05  FILLER                   PIC X(37) VALUE SPACES.         DTSBR325
00334      05  FILLER                   PIC X(46) VALUE                 DTSBR325
00335          ' GREATER THAN 100K OR 10% IN WAGE DISCREPANCY'.         DTSBR325
00336      05  FILLER                   PIC X(27) VALUE SPACES.         DTSBR325
00337      05  FILLER                   PIC X(06) VALUE 'PAGE:'.        DTSBR325
00338      05  ERR-PAGE                 PIC ZZ,ZZ9.                     DTSBR325
00339                                                                   DTSBR325
00340  01  HEADER36.                                                    DTSBR325
00341      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR325
00342      05  FILLER                   PIC X(38) VALUE SPACES.         DTSBR325
00343      05  FILLER                   PIC X(46) VALUE                 DTSBR325
00344          '     LESS THAN 10% IN WAGE DISCREPANCY'.                DTSBR325
00345      05  FILLER                   PIC X(26) VALUE SPACES.         DTSBR325
00346      05  FILLER                   PIC X(06) VALUE 'PAGE:'.        DTSBR325
00347      05  ERR20-PAGE               PIC ZZ,ZZ9.                     DTSBR325
00348                                                                   DTSBR325
00349  01  HEADER37.                                                    DTSBR325
00350      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR325
00351      05  FILLER                   PIC X(35) VALUE SPACES.         DTSBR325
00352      05  FILLER                   PIC X(46) VALUE                 DTSBR325
00353          '                WAGE DATA MISSING          '.           DTSBR325
00354      05  FILLER                   PIC X(29) VALUE SPACES.         DTSBR325
00355      05  FILLER                   PIC X(06) VALUE 'PAGE:'.        DTSBR325
00356      05  ERR-ZERO-PAGE            PIC ZZ,ZZ9.                     DTSBR325
00357                                                                   DTSBR325
00358  01  HEADER4.                                                     DTSBR325
00359      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBR325
00360      05  FILLER                   PIC X(132) VALUE SPACES.        DTSBR325
00361                                                                   DTSBR325
00362  01  HEADER5.                                                     DTSBR325
00363      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBR325
00364      05  FILLER                   PIC X(02)  VALUE SPACES.        DTSBR325
00365      05  FILLER                   PIC X(06)  VALUE                DTSBR325
00366                       'EMP NO'.                                   DTSBR325
00367      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00368      05  FILLER                   PIC X(12)  VALUE                DTSBR325
00369                       'PRIMARY NAME'.                             DTSBR325
00370      05  FILLER                   PIC X(12)  VALUE SPACES.        DTSBR325
00371      05  FILLER                   PIC X(03)  VALUE SPACES.        DTSBR325
00372      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00373                        'UC30 REPORTED'.                           DTSBR325
00374      05  FILLER                   PIC X(06)  VALUE SPACES.        DTSBR325
00375      05  FILLER                   PIC X(12)  VALUE                DTSBR325
00376                       '   WAGE FILE'.                             DTSBR325
00377      05  FILLER                   PIC X(06)  VALUE SPACES.        DTSBR325
00378      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00379                       'WAGES SUBJECT'.                            DTSBR325
00380      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00381      05  FILLER                   PIC X(11)  VALUE                DTSBR325
00382                       '  ASSESSED '.                              DTSBR325
00383      05  FILLER                   PIC X(04)  VALUE SPACES.        DTSBR325
00384      05  FILLER                   PIC X(03)  VALUE                DTSBR325
00385                       'QTR'.                                      DTSBR325
00386      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00387                                                                   DTSBR325
00388  01  HEADER55.                                                    DTSBR325
00389      05  FILLER                   PIC X(42)  VALUE SPACES.        DTSBR325
00390      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00391                        '    WAGES    '.                           DTSBR325
00392      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00393      05  FILLER                   PIC X(12)  VALUE                DTSBR325
00394                       '     WAGES  '.                             DTSBR325
00395      05  FILLER                   PIC X(06)  VALUE SPACES.        DTSBR325
00396      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00397                       'TO ASSESSMENT'.                            DTSBR325
00398      05  FILLER                   PIC X(07)  VALUE SPACES.        DTSBR325
00399      05  FILLER                   PIC X(11)  VALUE                DTSBR325
00400                       '  AMOUNT   '.                              DTSBR325
00401      05  FILLER                   PIC X(09)  VALUE SPACES.        DTSBR325
00402                                                                   DTSBR325
00403  01  HEADER6.                                                     DTSBR325
00404      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBR325
00405      05  FILLER                   PIC X(132) VALUE SPACES.        DTSBR325
00406                                                                   DTSBR325
00407  01  HEADER7.                                                     DTSBR325
00408      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBR325
00409      05  FILLER                   PIC X(02)  VALUE SPACES.        DTSBR325
00410      05  FILLER                   PIC X(06)  VALUE                DTSBR325
00411                       'EMP NO'.                                   DTSBR325
00412      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00413      05  FILLER                   PIC X(12)  VALUE                DTSBR325
00414                       'PRIMARY NAME'.                             DTSBR325
00415      05  FILLER                   PIC X(12)  VALUE SPACES.        DTSBR325
00416      05  FILLER                   PIC X(03)  VALUE SPACES.        DTSBR325
00417      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00418                        'UC30 REPORTED'.                           DTSBR325
00419      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00420      05  FILLER                   PIC X(12)  VALUE                DTSBR325
00421                       '   WAGE FILE'.                             DTSBR325
00422      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00423      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00424                       '  DIFFERENCE '.                            DTSBR325
00425      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00426      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00427                       'WAGES SUBJECT'.                            DTSBR325
00428      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00429      05  FILLER                   PIC X(11)  VALUE                DTSBR325
00430                       '  ASSESSED '.                              DTSBR325
00431      05  FILLER                   PIC X(03)  VALUE SPACES.        DTSBR325
00432      05  FILLER                   PIC X(06)  VALUE                DTSBR325
00433                       'QTR  '.                                    DTSBR325
00434      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00435                                                                   DTSBR325
00436  01  HEADER71.                                                    DTSBR325
00437          05  FILLER                   PIC X(01)  VALUE SPACES.    DTSBR325
00438          05  FILLER                   PIC X(02)  VALUE SPACES.    DTSBR325
00439          05  FILLER                   PIC X(06)  VALUE            DTSBR325
00440                           'EMP NO'.                               DTSBR325
00441          05  FILLER                   PIC X(05)  VALUE SPACES.    DTSBR325
00442          05  FILLER                   PIC X(12)  VALUE            DTSBR325
00443                           'PRIMARY NAME'.                         DTSBR325
00444          05  FILLER                   PIC X(12)  VALUE SPACES.    DTSBR325
00445          05  FILLER                   PIC X(03)  VALUE SPACES.    DTSBR325
00446          05  FILLER                   PIC X(13)  VALUE            DTSBR325
00447                            'UC30 REPORTED'.                       DTSBR325
00448          05  FILLER                   PIC X(05)  VALUE SPACES.    DTSBR325
00449          05  FILLER                   PIC X(12)  VALUE            DTSBR325
00450                           '   WAGE FILE'.                         DTSBR325
00451          05  FILLER                   PIC X(03)  VALUE SPACES.    DTSBR325
00452          05  FILLER                   PIC X(13)  VALUE            DTSBR325
00453                           '  QTR        '.                        DTSBR325
00454  01  HEADER72.                                                    DTSBR325
00455      05  FILLER                   PIC X(41)  VALUE SPACES.        DTSBR325
00456      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00457                        '    WAGES    '.                           DTSBR325
00458      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00459      05  FILLER                   PIC X(12)  VALUE                DTSBR325
00460                       '     WAGES  '.                             DTSBR325
00461      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00462                                                                   DTSBR325
00463  01  HEADER75.                                                    DTSBR325
00464      05  FILLER                   PIC X(41)  VALUE SPACES.        DTSBR325
00465      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00466                        '    WAGES    '.                           DTSBR325
00467      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00468      05  FILLER                   PIC X(12)  VALUE                DTSBR325
00469                       '     WAGES  '.                             DTSBR325
00470      05  FILLER                   PIC X(06)  VALUE SPACES.        DTSBR325
00471      05  FILLER                   PIC X(12)  VALUE                DTSBR325
00472                       '  IN WAGES  '.                             DTSBR325
00473      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00474      05  FILLER                   PIC X(13)  VALUE                DTSBR325
00475                       'TO ASSESSMENT'.                            DTSBR325
00476      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBR325
00477      05  FILLER                   PIC X(11)  VALUE                DTSBR325
00478                       '   AMOUNT  '.                              DTSBR325
00479      05  FILLER                   PIC X(09)  VALUE SPACES.        DTSBR325
00480                                                                   DTSBR325
00481  01  REG-DETAIL.                                                  DTSBR325
00482      05  FILLER                  PIC  X(02)  VALUE SPACES.        DTSBR325
00483      05  WS-EMP-NO               PIC  999B999.                    DTSBR325
00484      05  FILLER                  PIC  X(02)  VALUE SPACES.        DTSBR325
00485      05  WS-PRIMARY-NAME         PIC  X(25).                      DTSBR325
00486      05  FILLER                  PIC  X(04)  VALUE SPACES.        DTSBR325
00487      05  WS-TOT-WAGE-UC30        PIC  -,---,---,---.99.           DTSBR325
00488      05  FILLER                  PIC  X(04)  VALUE SPACES.        DTSBR325
00489      05  WS-TOT-WAGE-CALC        PIC  ---,---,---.99.             DTSBR325
00490      05  FILLER                  PIC  X(04)  VALUE SPACES.        DTSBR325
00491      05  WS-TAX-WAGE             PIC  -,---,---,---.99.           DTSBR325
00492      05  FILLER                  PIC  X(04)  VALUE SPACES.        DTSBR325
00493      05  WS-SUR-CHARGE-AMT       PIC  -,---,--9.99.               DTSBR325
00494      05  FILLER                  PIC  X(04)  VALUE SPACES.        DTSBR325
00495      05  WS-QTR                  PIC  X(06).                      DTSBR325
00496      05  FILLER                  PIC  X(04)  VALUE SPACES.        DTSBR325
00497      05  WS-AMEND                PIC  X(12).                      DTSBR325
00498                                                                   DTSBR325
00499  01  ERR-DETAIL.                                                  DTSBR325
00500      05  FILLER                  PIC  X(02)  VALUE SPACES.        DTSBR325
00501      05  WS-ERR-EMP-NO          PIC  999B999.                     DTSBR325
00502      05  FILLER                  PIC  X(02)  VALUE SPACES.        DTSBR325
00503      05  WS-ERR-PRIMARY-NAME     PIC X(25).                       DTSBR325
00504      05  FILLER                  PIC  X(04)  VALUE SPACES.        DTSBR325
00505      05  WS-ERR-UC30-WAGES       PIC  -,---,---,---.99.           DTSBR325
00506      05  FILLER                  PIC  X(03)  VALUE SPACES.        DTSBR325
00507      05  WS-ERR-CALC-WAGES       PIC  -,---,---,---.99.           DTSBR325
00508      05  FILLER                  PIC  X(03)  VALUE SPACES.        DTSBR325
00509      05  WS-ERR-DIFF             PIC  -,---,---,---.99.           DTSBR325
00510      05  FILLER                  PIC  X(05)  VALUE SPACES.        DTSBR325
00511      05  WS-ERR-TAX-WAGES        PIC  ---,---,---.99.             DTSBR325
00512      05  FILLER                  PIC  X(01)  VALUE SPACES.        DTSBR325
00513      05  WS-ERR-SUR-CHARGE-AMT   PIC  ---,---,---.99.             DTSBR325
00514      05  FILLER                  PIC  X(03)  VALUE SPACES.        DTSBR325
00515      05  WS-ERR-QTR              PIC  X(06).                      DTSBR325
00516      05  FILLER                  PIC  X(01)  VALUE SPACES.        DTSBR325
00517      05  WS-ERR-AMEND            PIC  X(06).                      DTSBR325
00518                                                                   DTSBR325
00519  01  NO-WAGE-DETAIL.                                              DTSBR325
00520      05  FILLER                  PIC  X(02)  VALUE SPACES.        DTSBR325
00521      05  WS-WGE-EMP-NO          PIC  999B999.                     DTSBR325
00522      05  FILLER                  PIC  X(02)  VALUE SPACES.        DTSBR325
00523      05  WS-WGE-PRIMARY-NAME     PIC X(25).                       DTSBR325
00524      05  FILLER                  PIC  X(04)  VALUE SPACES.        DTSBR325
00525      05  WS-WGE-UC30-WAGES       PIC  -,---,---,---.99.           DTSBR325
00526      05  FILLER                  PIC  X(03)  VALUE SPACES.        DTSBR325
00527      05  WS-WGE-CALC-WAGES       PIC  -,---,---,---.99.           DTSBR325
00528      05  FILLER                  PIC  X(04)  VALUE SPACES.        DTSBR325
00529      05  WS-WGE-QTR              PIC  X(06).                      DTSBR325
00530      05  FILLER                  PIC  X(03)  VALUE SPACES.        DTSBR325
00531      05  WS-WGE-TYPE             PIC  X(15).                      DTSBR325
00532                                                                   DTSBR325
00533  01  FOOTING1                     PIC X(116) VALUE ALL '_'.       DTSBR325
00534  01  FOOTING2.                                                    DTSBR325
00535      05  FILLER                   PIC  X(02)  VALUE SPACES.       DTSBR325
00536      05  FILLER                   PIC  X(43) VALUE                DTSBR325
00537                     'TOTAL ADMINISTRATIVE ASSESSMENT: '.          DTSBR325
00538      05  FILLER                   PIC  X(45)  VALUE SPACES.       DTSBR325
00539      05  WS-FOOTING-AMT           PIC  -,---,---,--9.99.          DTSBR325
00540                                                                   DTSBR325
00541  01  FOOTING3.                                                    DTSBR325
00542      05  FILLER                   PIC  X(02)  VALUE SPACES.       DTSBR325
00543      05  FILLER                   PIC  X(43) VALUE                DTSBR325
00544                     'TOTAL ADMINISTRATIVE ASSESSMENT: '.          DTSBR325
00545      05  FILLER                   PIC  X(61)  VALUE SPACES.       DTSBR325
00546      05  WS-FOOTING-AMT2          PIC  -,---,---,--9.99.          DTSBR325
00547  01  FOOTING4                     PIC X(131) VALUE ALL '_'.       DTSBR325
00548                                                                   DTSBR325
00549      EJECT                                                        DTSBR325
00550  01  L001-LINK-AREA.                                              DTSBR325
00551  ++INCLUDE DTSIL001                                               DTSBR325
00552      EJECT                                                        DTSBR325
00553  01  L004-LINK-AREA.                                              DTSBR325
00554  ++INCLUDE DTSIL004                                               DTSBR325
00555      EJECT                                                        DTSBR325
00556  01  L005-LINK-AREA.                                              DTSBR325
00557  ++INCLUDE DTSIL005                                               DTSBR325
00558      EJECT                                                        DTSBR325
00559  01  L910-LINK-AREA.                                              DTSBR325
00560  ++INCLUDE DTSIL910                                               DTSBR325
00561      EJECT                                                        DTSBR325
00562  01  MSKL-REC.                                                    DTSBR325
00563  ++INCLUDE DTSIMSKL                                               DTSBR325
00564      EJECT                                                        DTSBR325
00565  01  MQTR-REC.                                                    DTSBR325
00566  ++INCLUDE DTSIMQTR                                               DTSBR325
00567      EJECT                                                        DTSBR325
00568                                                                   DTSBR325
00569  LINKAGE SECTION.                                                 DTSBR325
00570      SKIP3                                                        DTSBR325
00571  01  LRCM-LINK-AREA.                                              DTSBR325
00572  ++INCLUDE DTSILRCM                                               DTSBR325
00573      EJECT                                                        DTSBR325
00574  01  R325-REC.                                                    DTSBR325
00575  ++INCLUDE DTSIR325                                               DTSBR325
00576      EJECT                                                        DTSBR325
00577  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR325
00578                           R325-REC.                               DTSBR325
00579      SKIP2                                                        DTSBR325
00580      IF FIRST-TIME-IND = 'Y'                                      DTSBR325
00581          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR325
00582          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR325
00583                                                                   DTSBR325
00584      IF LRCM-EOR-88                                               DTSBR325
00585          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR325
00586      ELSE                                                         DTSBR325
00587          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR325
00588      SKIP2                                                        DTSBR325
00589      GOBACK.                                                      DTSBR325
00590      EJECT                                                        DTSBR325
00591  I1000-INITIATE.                                                  DTSBR325
00592                                                                   DTSBR325
00593      MOVE 'N' TO WRK-TRACE-IND.                                   DTSBR325
00594      SET WRK-ERROR-NO-88 TO TRUE.                                 DTSBR325
00595                                                                   DTSBR325
00596      OPEN OUTPUT RPT-FILE1.                                       DTSBR325
00597      IF NOT RPT-STATUS-OK-88                                      DTSBR325
00598         DISPLAY 'CANNOT OPEN PRT FILE1 ' RPT-STATUS               DTSBR325
00599         SET WRK-ERROR-YES-88 TO TRUE                              DTSBR325
00600         GO TO I1000-EXIT.                                         DTSBR325
00601                                                                   DTSBR325
00602      OPEN OUTPUT RPT-FILE2.                                       DTSBR325
00603      IF NOT RPT-STATUS-OK-88                                      DTSBR325
00604         DISPLAY 'CANNOT OPEN RPT FILE2 ' RPT-STATUS               DTSBR325
00605         SET WRK-ERROR-YES-88 TO TRUE                              DTSBR325
00606         GO TO I1000-EXIT.                                         DTSBR325
00607                                                                   DTSBR325
00608      OPEN OUTPUT RPT-FILE3.                                       DTSBR325
00609      IF NOT RPT-STATUS-OK-88                                      DTSBR325
00610         DISPLAY 'CANNOT OPEN RPT FILE3' RPT-STATUS                DTSBR325
00611         SET WRK-ERROR-YES-88 TO TRUE                              DTSBR325
00612         GO TO I1000-EXIT.                                         DTSBR325
00613                                                                   DTSBR325
00614      OPEN OUTPUT RPT-FILE4.                                       DTSBR325
00615      IF NOT RPT-STATUS-OK-88                                      DTSBR325
00616         DISPLAY 'CANNOT OPEN RPT FILE4' RPT-STATUS                DTSBR325
00617         SET WRK-ERROR-YES-88 TO TRUE                              DTSBR325
00618         GO TO I1000-EXIT.                                         DTSBR325
00619                                                                   DTSBR325
00620      OPEN OUTPUT RPT-FILE5.                                       DTSBR325
00621      IF NOT RPT-STATUS-OK-88                                      DTSBR325
00622         DISPLAY 'CANNOT OPEN RPT FILE5' RPT-STATUS                DTSBR325
00623         SET WRK-ERROR-YES-88 TO TRUE                              DTSBR325
00624         GO TO I1000-EXIT.                                         DTSBR325
00625                                                                   DTSBR325
00626      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSBR325
00627      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBR325
00628                                                                   DTSBR325
00629      MOVE LRCM-SYS-DATE          TO HDR1-DATE.                    DTSBR325
00630      MOVE LRCM-SYS-TIME          TO HDR2-TIME.                    DTSBR325
00631                                                                   DTSBR325
00632      MOVE +0 TO PAGE-CNT.                                         DTSBR325
00633                                                                   DTSBR325
00634      MOVE 0      TO STMT-EMP-NO                                   DTSBR325
00635                     STUB-EMP-NO                                   DTSBR325
00636                     STUB-EMP-FEIN                                 DTSBR325
00637                     STMT-EMP-FEIN.                                DTSBR325
00638      MOVE SPACES TO STMT-STMT-DATE.                               DTSBR325
00639                                                                   DTSBR325
00640      MOVE XEROX-8X11-LINE    TO WS-REC.                           DTSBR325
00641      WRITE RPT-REC1 FROM WS-REC                                   DTSBR325
00642            AFTER ADVANCING PAGE.                                  DTSBR325
00643                                                                   DTSBR325
00644      MOVE XEROX-CNTL-LINE2   TO WS-REC.                           DTSBR325
00645      WRITE RPT-REC1 FROM WS-REC                                   DTSBR325
00646            AFTER ADVANCING 1.                                     DTSBR325
00647                                                                   DTSBR325
00648  I1000-EXIT.                                                      DTSBR325
00649      EXIT.                                                        DTSBR325
00650                                                                   DTSBR325
00651  P1000-PROCESS.                                                   DTSBR325
00652      MOVE ZERO                      TO WS-SUR-BAL.                DTSBR325
00653                                                                   DTSBR325
00654 *&                                                                DTSBR325
00655      MOVE R325-CALC-ASSESS-DUE TO DIS-BALANCE-AMT.                DTSBR325
00656      DISPLAY 'BR325 P1000 ' R325-EMP-NO '  ' R325-QTR             DTSBR325
00657        '  ' R325-RPT-TYPE '  ' DIS-BALANCE-AMT.                   DTSBR325
00658 *&                                                                DTSBR325
00659 *    IF R325-RPT-CHG-ASSESS-88                                    DTSBR325
00660 *       MOVE LOW-VALUES             TO MQTR-KEY-AREA              DTSBR325
00661 *       SET MQTR-QTR-88             TO TRUE                       DTSBR325
00662 *       MOVE R325-EMP-NO            TO MQTR-EMP-NO                DTSBR325
00663 *       MOVE R325-QTR               TO MQTR-YRQ                   DTSBR325
00664 *       MOVE MQTR-KEY-AREA          TO MSKL-KEY-AREA              DTSBR325
00665 *       PERFORM S910-READ           THRU S910-EXIT                DTSBR325
00666 *       IF L910-OK-88                                             DTSBR325
00667 *          MOVE MSKL-REC            TO MQTR-REC                   DTSBR325
00668 *          PERFORM                                                DTSBR325
00669 *            VARYING MQTR-ACCT-IDX FROM +1 BY +1                  DTSBR325
00670 *            UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                  DTSBR325
00671 *              IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                DTSBR325
00672 *                 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)            DTSBR325
00673 *                     TO WS-SUR-BAL                               DTSBR325
00674 *              END-IF                                             DTSBR325
00675 *          END-PERFORM                                            DTSBR325
00676 *          IF WS-SUR-BAL > 1                                      DTSBR325
00677 *         DISPLAY 'BR325 P1000 sub bal  ' ws-sur-bal              DTSBR325
00678 *             PERFORM P1100-PRINT-BILL    THRU P1100-EXIT         DTSBR325
00679 *          ELSE                                                   DTSBR325
00680 *         DISPLAY 'BR325 P1000 sub bal=0 ' ws-sur-bal             DTSBR325
00681 *          END-IF                                                 DTSBR325
00682 *       ELSE                                                      DTSBR325
00683 *         DISPLAY 'BR325 P1000 NOT FOUND '                        DTSBR325
00684 *            R325-EMP-NO '  ' R325-QTR                            DTSBR325
00685 *       END-IF                                                    DTSBR325
00686 *    END-IF.                                                      DTSBR325
00687                                                                   DTSBR325
00688      IF R325-RPT-CHG-ASSESS-88                                    DTSBR325
00689         PERFORM P1100-PRINT-BILL       THRU P1100-EXIT.           DTSBR325
00690      PERFORM P2000-PRINT-REPORTS    THRU P2000-EXIT.              DTSBR325
00691                                                                   DTSBR325
00692  P1000-EXIT.                                                      DTSBR325
00693      EXIT.                                                        DTSBR325
00694      SKIP3                                                        DTSBR325
00695                                                                   DTSBR325
00696  P1100-PRINT-BILL.                                                DTSBR325
00697                                                                   DTSBR325
00698      if (r325-final-assess-due > +1 or                            DTSBR325
00699         (r325-final-assess-due = 0 and R325-CALC-ASSESS-DUE       DTSBR325
00700          > +0))                                                   DTSBR325
00701         MOVE r325-final-assess-due TO  DIS-BALANCE-AMT            DTSBR325
00702         dISPLAY 'P1100 ' R325-EMP-NO '  ' R325-RPT-TYPE           DTSBR325
00703         '  '   DIS-BALANCE-AMT                                    DTSBR325
00704                                                                   DTSBR325
00705         MOVE SPACES             TO WS-REC                         DTSBR325
00706                                                                   DTSBR325
00707         ADD 1                   TO TOT-RPT-CNT                    DTSBR325
00708         MOVE R325-EMP-NO        TO STUB-EMP-NO                    DTSBR325
00709                                 STMT-EMP-NO                       DTSBR325
00710         MOVE R325-EMP-FEIN      TO STUB-EMP-FEIN                  DTSBR325
00711                                 STMT-EMP-FEIN                     DTSBR325
00712                                                                   DTSBR325
00713         MOVE R325-STMT-DATE     TO L001-FED-8-DATE-9              DTSBR325
00714         PERFORM S001-FROM-FED-8 THRU S001-EXIT                    DTSBR325
00715         MOVE L001-SLASH-8-DATE  TO STUB-STMT-DATE                 DTSBR325
00716                                 STMT-STMT-DATE                    DTSBR325
00717                                                                   DTSBR325
00718         MOVE R325-QTR           TO WS-WRK-QTR                     DTSBR325
00719         MOVE WRK-QTR-Q          TO WRK-PRT-Q                      DTSBR325
00720         MOVE WRK-QTR-YR         TO WRK-PRT-YR                     DTSBR325
00721         MOVE '/'                TO WRK-PRT-SLASH                  DTSBR325
00722         MOVE WS-PRT-QTR         TO STUB-QTR                       DTSBR325
00723                                 STMT-QTR                          DTSBR325
00724                                                                   DTSBR325
00725         MOVE R325-FMT-LINE (1)  TO STUB-ADDR-LINE1                DTSBR325
00726                                 MAIL-ADDR-LINE1                   DTSBR325
00727                                 WS-EMP-NAME                       DTSBR325
00728                                                                   DTSBR325
00729         MOVE R325-FMT-LINE (2)  TO STUB-ADDR-LINE2                DTSBR325
00730                                 MAIL-ADDR-LINE2                   DTSBR325
00731                                                                   DTSBR325
00732         MOVE R325-FMT-LINE (3)  TO STUB-ADDR-LINE3                DTSBR325
00733                                 MAIL-ADDR-LINE3                   DTSBR325
00734                                                                   DTSBR325
00735         mOVE R325-FMT-LINE (4)  TO STUB-ADDR-LINE4                DTSBR325
00736                                 MAIL-ADDR-LINE4                   DTSBR325
00737                                                                   DTSBR325
00738         MOVE R325-FMT-LINE (5)  TO STUB-ADDR-LINE5                DTSBR325
00739                                 MAIL-ADDR-LINE5                   DTSBR325
00740                                                                   DTSBR325
00741         MOVE WRK-FIRST-4        TO STUB-NAME-CHEK                 DTSBR325
00742                                                                   DTSBR325
00743         MOVE R325-UC30-WAGES       TO QTR-DET-TOTAL-WAGE          DTSBR325
00744         MOVE R325-ASSESSMENT-WAGES TO QTR-DET-ASSESSMENT-WAGE     DTSBR325
00745         MOVE R325-ASSESSMENT-RATE  TO QTR-DET-ASSESSMENT-RATE     DTSBR325
00746         MOVE r325-final-assess-due TO QTR-DET-ASSESSMENT-DUE      DTSBR325
00747                                    STUB-AMT                       DTSBR325
00748         PERFORM P1200-PRINT-STUB-MAILR   THRU P1200-EXIT          DTSBR325
00749                                                                   DTSBR325
00750         mOVE 24                    TO LINE-CNT                    DTSBR325
00751                                                                   DTSBR325
00752                                                                   DTSBR325
00753         WRITE RPT-REC1 FROM WS-REC                                DTSBR325
00754            AFTER ADVANCING WRK-CTR LINES                          DTSBR325
00755                                                                   DTSBR325
00756         MOVE SPACES TO WS-REC                                     DTSBR325
00757                                                                   DTSBR325
00758                                                                   DTSBR325
00759         WRITE RPT-REC1 FROM WS-REC                                DTSBR325
00760             AFTER ADVANCING 1 LINES                               DTSBR325
00761                                                                   DTSBR325
00762         MOVE SPACES TO WS-XREC                                    DTSBR325
00763                                                                   DTSBR325
00764         PERFORM P1500-PRINT-MAILR-ADDR THRU P1500-EXIT            DTSBR325
00765      end-if.                                                      DTSBR325
00766  P1100-EXIT.                                                      DTSBR325
00767      EXIT.                                                        DTSBR325
00768      SKIP3                                                        DTSBR325
00769  P1200-PRINT-STUB-MAILR.                                          DTSBR325
00770                                                                   DTSBR325
00771         ADD +1 TO PAGE-CNT                                        DTSBR325
00772         WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING PAGE           DTSBR325
00773         WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 6 LINES        DTSBR325
00774         MOVE   STUB-LINE   TO WS-REC                              DTSBR325
00775         WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR325
00776         MOVE   ADDR01 TO WS-REC                                   DTSBR325
00777         WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 2 LINES        DTSBR325
00778         MOVE   ADDR02 TO WS-REC                                   DTSBR325
00779         WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR325
00780         MOVE   ADDR03 TO WS-REC                                   DTSBR325
00781         WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR325
00782         MOVE   ADDR04 TO WS-REC                                   DTSBR325
00783         WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR325
00784         MOVE   ADDR05 TO WS-REC                                   DTSBR325
00785         WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES        DTSBR325
00786         MOVE STMT-LINE1 TO WS-REC                                 DTSBR325
00787         WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 20 LINES       DTSBR325
00788 *nh credit testing                                                DTSBR325
00789         if r325-final-assess-due = 0 and                          DTSBR325
00790                     R325-CALC-ASSESS-DUE > 0                      DTSBR325
00791            write rpt-rec1 from stmt-line2                         DTSBR325
00792                          after advancing 3 lines                  DTSBR325
00793            MOVE SPACES TO WS-REC                                  DTSBR325
00794            WRITE RPT-REC1 FROM STMT-QTR-DETAIL                    DTSBR325
00795                          AFTER ADVANCING 5 LINE                   DTSBR325
00796         else                                                      DTSBR325
00797            MOVE SPACES TO WS-REC                                  DTSBR325
00798            WRITE RPT-REC1 FROM STMT-QTR-DETAIL                    DTSBR325
00799                           AFTER ADVANCING 8 LINE                  DTSBR325
00800         end-if.                                                   DTSBR325
00801                                                                   DTSBR325
00802  P1200-EXIT.                                                      DTSBR325
00803      EXIT.                                                        DTSBR325
00804      SKIP3                                                        DTSBR325
00805                                                                   DTSBR325
00806  P1500-PRINT-MAILR-ADDR.                                          DTSBR325
00807                                                                   DTSBR325
00808         WRITE RPT-REC1 FROM WS-XREC AFTER ADVANCING PAGE          DTSBR325
00809         MOVE LINE-ADDR-17   TO WS-XREC                            DTSBR325
00810         WRITE RPT-REC1 FROM WS-XREC                               DTSBR325
00811                 AFTER ADVANCING 17 LINES                          DTSBR325
00812         MOVE LINE-ADDR-18   TO WS-XREC                            DTSBR325
00813         WRITE RPT-REC1 FROM WS-XREC AFTER 1                       DTSBR325
00814         MOVE LINE-ADDR-19   TO WS-XREC                            DTSBR325
00815         WRITE RPT-REC1 FROM WS-XREC AFTER 1                       DTSBR325
00816         MOVE LINE-ADDR-20   TO WS-XREC                            DTSBR325
00817         WRITE RPT-REC1 FROM WS-XREC AFTER 1                       DTSBR325
00818         MOVE LINE-ADDR-21   TO WS-XREC                            DTSBR325
00819         WRITE RPT-REC1 FROM WS-XREC AFTER 1.                      DTSBR325
00820  P1500-EXIT.                                                      DTSBR325
00821      EXIT.                                                        DTSBR325
00822      SKIP3                                                        DTSBR325
00823  P2000-PRINT-REPORTS.                                             DTSBR325
00824 *    DISPLAY 'P2000 ' R325-EMP-NO '  ' R325-RPT-TYPE.             DTSBR325
00825      EVALUATE TRUE                                                DTSBR325
00826         WHEN R325-RPT-EXACT-88                                    DTSBR325
00827           OR R325-RPT-WITHIN-TOL-88                               DTSBR325
00828           OR R325-RPT-REVERSE-88                                  DTSBR325
00829             PERFORM P2100-ALL-WAGES     THRU P2100-EXIT           DTSBR325
00830                                                                   DTSBR325
00831         WHEN R325-RPT-UNDER-MAX-88                                DTSBR325
00832             PERFORM P2200-UNDER-MAX     THRU P2200-EXIT           DTSBR325
00833                                                                   DTSBR325
00834         WHEN R325-RPT-OVER-MAX-88                                 DTSBR325
00835             PERFORM P2300-OVER-MAX      THRU P2300-EXIT           DTSBR325
00836                                                                   DTSBR325
00837         WHEN R325-RPT-NO-WAGES-88                                 DTSBR325
00838             PERFORM P2400-NO-WAGES      THRU P2400-EXIT           DTSBR325
00839      END-EVALUATE.                                                DTSBR325
00840                                                                   DTSBR325
00841  P2000-EXIT.                                                      DTSBR325
00842      EXIT.                                                        DTSBR325
00843                                                                   DTSBR325
00844  P2100-ALL-WAGES.                                                 DTSBR325
00845      ADD 1 TO WRK-100-WAGES-CNT.                                  DTSBR325
00846      IF WS-REG-LINE-CNT > 50                                      DTSBR325
00847         MOVE WS-PAGE-CNT TO HDR3-PAGE                             DTSBR325
00848         MOVE '325R2'                TO HDR1-RPT                   DTSBR325
00849         WRITE RPT-REC2 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE   DTSBR325
00850         WRITE RPT-REC2 FROM HEADER2 AFTER ADVANCING  1            DTSBR325
00851         WRITE RPT-REC2 FROM HEADER25 AFTER ADVANCING 1            DTSBR325
00852         WRITE RPT-REC2 FROM HEADER3 AFTER ADVANCING  1            DTSBR325
00853         WRITE RPT-REC2 FROM HEADER4 AFTER ADVANCING  1            DTSBR325
00854         WRITE RPT-REC2 FROM HEADER5 AFTER ADVANCING  1            DTSBR325
00855         WRITE RPT-REC2 FROM HEADER55 AFTER ADVANCING 1            DTSBR325
00856         WRITE RPT-REC2 FROM HEADER6 AFTER ADVANCING  1            DTSBR325
00857         ADD  1 TO WS-PAGE-CNT                                     DTSBR325
00858         MOVE 1 TO WS-REG-LINE-CNT                                 DTSBR325
00859      END-IF.                                                      DTSBR325
00860                                                                   DTSBR325
00861      MOVE R325-EMP-NO           TO WS-EMP-NO.                     DTSBR325
00862      MOVE R325-FMT-LINE (1)     TO WS-PRIMARY-NAME.               DTSBR325
00863      MOVE R325-UC30-WAGES       TO WS-TOT-WAGE-UC30.              DTSBR325
00864      MOVE R325-WAGE-FILE-WAGES  TO WS-TOT-WAGE-CALC.              DTSBR325
00865      MOVE R325-ASSESSMENT-WAGES TO WS-TAX-WAGE.                   DTSBR325
00866      MOVE R325-CALC-ASSESS-DUE  TO WS-SUR-CHARGE-AMT.             DTSBR325
00867      MOVE R325-QTR              TO L004-QTR-5-9.                  DTSBR325
00868      PERFORM S004-FROM-5        THRU S004-EXIT.                   DTSBR325
00869      MOVE L004-SLASH-5-QTR      TO WS-QTR.                        DTSBR325
00870      MOVE SPACES                TO WS-AMEND.                      DTSBR325
00871                                                                   DTSBR325
00872      WRITE RPT-REC2 FROM REG-DETAIL AFTER ADVANCING 1.            DTSBR325
00873                                                                   DTSBR325
00874      ADD  1 TO WS-REG-LINE-CNT.                                   DTSBR325
00875      ADD R325-CALC-ASSESS-DUE   TO WRK-TOT-REG-TAX.               DTSBR325
00876                                                                   DTSBR325
00877  P2100-EXIT.                                                      DTSBR325
00878      EXIT.                                                        DTSBR325
00879                                                                   DTSBR325
00880  P2200-UNDER-MAX.                                                 DTSBR325
00881      ADD 1 TO WRK-080-WAGES-CNT.                                  DTSBR325
00882      IF WS-ERR-LINE-CNT > 50                                      DTSBR325
00883         MOVE WS-ERR-PAGE-CNT TO ERR20-PAGE                        DTSBR325
00884         MOVE '325R3'                TO HDR1-RPT                   DTSBR325
00885         WRITE RPT-REC3 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE   DTSBR325
00886         WRITE RPT-REC3 FROM HEADER2 AFTER ADVANCING  1            DTSBR325
00887         WRITE RPT-REC3 FROM HEADER26 AFTER ADVANCING 1            DTSBR325
00888         WRITE RPT-REC3 FROM HEADER36 AFTER ADVANCING 1            DTSBR325
00889         WRITE RPT-REC3 FROM HEADER4 AFTER ADVANCING  1            DTSBR325
00890         WRITE RPT-REC3 FROM HEADER7 AFTER ADVANCING  1            DTSBR325
00891         WRITE RPT-REC3 FROM HEADER75 AFTER ADVANCING 1            DTSBR325
00892         WRITE RPT-REC3 FROM HEADER6 AFTER ADVANCING  1            DTSBR325
00893         ADD  1 TO WS-ERR-PAGE-CNT                                 DTSBR325
00894         MOVE 1 TO WS-ERR-LINE-CNT                                 DTSBR325
00895      END-IF.                                                      DTSBR325
00896                                                                   DTSBR325
00897      COMPUTE WRK-WAGE-DIFF =                                      DTSBR325
00898         (R325-UC30-WAGES - R325-WAGE-FILE-WAGES).                 DTSBR325
00899                                                                   DTSBR325
00900      IF WRK-WAGE-DIFF < ZERO                                      DTSBR325
00901         COMPUTE WRK-WAGE-DIFF = WRK-WAGE-DIFF * -1.               DTSBR325
00902                                                                   DTSBR325
00903      MOVE R325-EMP-NO           TO WS-ERR-EMP-NO.                 DTSBR325
00904      MOVE R325-FMT-LINE (1)     TO WS-ERR-PRIMARY-NAME.           DTSBR325
00905      MOVE R325-UC30-WAGES       TO WS-ERR-UC30-WAGES.             DTSBR325
00906      MOVE R325-WAGE-FILE-WAGES  TO WS-ERR-CALC-WAGES.             DTSBR325
00907      MOVE WRK-WAGE-DIFF         TO WS-ERR-DIFF.                   DTSBR325
00908      MOVE R325-ASSESSMENT-WAGES TO WS-ERR-TAX-WAGES.              DTSBR325
00909      MOVE R325-CALC-ASSESS-DUE  TO WS-ERR-SUR-CHARGE-AMT.         DTSBR325
00910      MOVE R325-QTR              TO L004-QTR-5-9.                  DTSBR325
00911      PERFORM S004-FROM-5        THRU S004-EXIT.                   DTSBR325
00912      MOVE L004-SLASH-5-QTR      TO WS-ERR-QTR.                    DTSBR325
00913      MOVE SPACES                TO WS-ERR-AMEND.                  DTSBR325
00914                                                                   DTSBR325
00915      WRITE RPT-REC3 FROM ERR-DETAIL AFTER ADVANCING 1.            DTSBR325
00916                                                                   DTSBR325
00917      ADD  1 TO WS-ERR-LINE-CNT.                                   DTSBR325
00918      ADD R325-CALC-ASSESS-DUE   TO WRK-TOT-ERR-TAX.               DTSBR325
00919                                                                   DTSBR325
00920  P2200-EXIT.                                                      DTSBR325
00921      EXIT.                                                        DTSBR325
00922                                                                   DTSBR325
00923  P2300-OVER-MAX.                                                  DTSBR325
00924      ADD 1 TO WRK-079-WAGES-CNT.                                  DTSBR325
00925      IF WS-ERR20-LINE-CNT > 50                                    DTSBR325
00926         MOVE WS-ERR20-PAGE-CNT TO ERR-PAGE                        DTSBR325
00927         MOVE '325R4'                TO HDR1-RPT                   DTSBR325
00928         WRITE RPT-REC4 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE   DTSBR325
00929         WRITE RPT-REC4 FROM HEADER2 AFTER ADVANCING 1             DTSBR325
00930         WRITE RPT-REC4 FROM HEADER26 AFTER ADVANCING 1            DTSBR325
00931         WRITE RPT-REC4 FROM HEADER35 AFTER ADVANCING 1            DTSBR325
00932         WRITE RPT-REC4 FROM HEADER4 AFTER ADVANCING 1             DTSBR325
00933         WRITE RPT-REC4 FROM HEADER7 AFTER ADVANCING 1             DTSBR325
00934         WRITE RPT-REC4 FROM HEADER75 AFTER ADVANCING 1            DTSBR325
00935         WRITE RPT-REC4 FROM HEADER6 AFTER ADVANCING 1             DTSBR325
00936         ADD  1 TO WS-ERR20-PAGE-CNT                               DTSBR325
00937         MOVE 1 TO WS-ERR20-LINE-CNT                               DTSBR325
00938      END-IF.                                                      DTSBR325
00939                                                                   DTSBR325
00940      COMPUTE WRK-WAGE-DIFF =                                      DTSBR325
00941         (R325-UC30-WAGES - R325-WAGE-FILE-WAGES).                 DTSBR325
00942                                                                   DTSBR325
00943      IF WRK-WAGE-DIFF < ZERO                                      DTSBR325
00944         COMPUTE WRK-WAGE-DIFF = WRK-WAGE-DIFF * -1.               DTSBR325
00945                                                                   DTSBR325
00946      MOVE R325-EMP-NO           TO WS-ERR-EMP-NO.                 DTSBR325
00947      MOVE R325-FMT-LINE (1)     TO WS-ERR-PRIMARY-NAME.           DTSBR325
00948      MOVE R325-UC30-WAGES       TO WS-ERR-UC30-WAGES.             DTSBR325
00949      MOVE R325-WAGE-FILE-WAGES  TO WS-ERR-CALC-WAGES.             DTSBR325
00950      MOVE WRK-WAGE-DIFF         TO WS-ERR-DIFF.                   DTSBR325
00951      MOVE R325-ASSESSMENT-WAGES TO WS-ERR-TAX-WAGES.              DTSBR325
00952      MOVE R325-CALC-ASSESS-DUE  TO WS-ERR-SUR-CHARGE-AMT.         DTSBR325
00953      MOVE R325-QTR              TO L004-QTR-5-9.                  DTSBR325
00954      PERFORM S004-FROM-5        THRU S004-EXIT.                   DTSBR325
00955      MOVE L004-SLASH-5-QTR      TO WS-ERR-QTR.                    DTSBR325
00956      MOVE SPACES                TO WS-ERR-AMEND.                  DTSBR325
00957                                                                   DTSBR325
00958      MOVE ZEROS                 TO WS-ERR-SUR-CHARGE-AMT.         DTSBR325
00959                                                                   DTSBR325
00960      WRITE RPT-REC4 FROM ERR-DETAIL AFTER ADVANCING 1.            DTSBR325
00961                                                                   DTSBR325
00962      ADD  1 TO WS-ERR20-LINE-CNT.                                 DTSBR325
00963      ADD R325-CALC-ASSESS-DUE   TO WRK-TOT-ERR20-TAX.             DTSBR325
00964                                                                   DTSBR325
00965  P2300-EXIT.                                                      DTSBR325
00966      EXIT.                                                        DTSBR325
00967                                                                   DTSBR325
00968  P2400-NO-WAGES.                                                  DTSBR325
00969      ADD 1 TO WRK-ZERO-WAGES-CNT.                                 DTSBR325
00970      IF WS-ZERO-LINE-CNT > 50                                     DTSBR325
00971         MOVE WS-ZERO-PAGE-CNT TO ERR-ZERO-PAGE                    DTSBR325
00972         MOVE '325R5'                TO HDR1-RPT                   DTSBR325
00973         WRITE RPT-REC5 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE   DTSBR325
00974         WRITE RPT-REC5 FROM HEADER2 AFTER ADVANCING 1             DTSBR325
00975         WRITE RPT-REC5 FROM HEADER26 AFTER ADVANCING 1            DTSBR325
00976         WRITE RPT-REC5 FROM HEADER37 AFTER ADVANCING 1            DTSBR325
00977         WRITE RPT-REC5 FROM HEADER4 AFTER ADVANCING 1             DTSBR325
00978         WRITE RPT-REC5 FROM HEADER71 AFTER ADVANCING 1            DTSBR325
00979         WRITE RPT-REC5 FROM HEADER72 AFTER ADVANCING 1            DTSBR325
00980         WRITE RPT-REC5 FROM HEADER6 AFTER ADVANCING 1             DTSBR325
00981         ADD  1 TO WS-ZERO-PAGE-CNT                                DTSBR325
00982         MOVE 1 TO WS-ZERO-LINE-CNT                                DTSBR325
00983      END-IF.                                                      DTSBR325
00984                                                                   DTSBR325
00985      MOVE R325-EMP-NO           TO WS-WGE-EMP-NO.                 DTSBR325
00986      MOVE R325-FMT-LINE (1)     TO WS-WGE-PRIMARY-NAME.           DTSBR325
00987      MOVE R325-UC30-WAGES       TO WS-WGE-UC30-WAGES.             DTSBR325
00988      MOVE R325-WAGE-FILE-WAGES  TO WS-WGE-CALC-WAGES.             DTSBR325
00989      MOVE R325-QTR              TO L004-QTR-5-9.                  DTSBR325
00990      PERFORM S004-FROM-5        THRU S004-EXIT.                   DTSBR325
00991      MOVE L004-SLASH-5-QTR      TO WS-WGE-QTR.                    DTSBR325
00992                                                                   DTSBR325
00993      WRITE RPT-REC5 FROM  NO-WAGE-DETAIL AFTER ADVANCING 1.       DTSBR325
00994      ADD  1 TO WS-ZERO-LINE-CNT.                                  DTSBR325
00995                                                                   DTSBR325
00996  P2400-EXIT.                                                      DTSBR325
00997      EXIT.                                                        DTSBR325
00998                                                                   DTSBR325
00999  T1000-TERMINATE.                                                 DTSBR325
01000      PERFORM T2000-REPORT-TOTALS   THRU T2000-EXIT.               DTSBR325
01001                                                                   DTSBR325
01002      DISPLAY ' '.                                                 DTSBR325
01003                                                                   DTSBR325
01004      DISPLAY '***  DTSBR325 (SI ASSESSMENT BILLS   ) '            DTSBR325
01005              'TERMINATION STATISTICS'.                            DTSBR325
01006      DISPLAY 'TOTAL ASSESSMENT STATEMENT  GENERATED ' TOT-RPT-CNT.DTSBR325
01007      DISPLAY ' '.                                                 DTSBR325
01008      DISPLAY '  REPORTS WITH 100% WAGES   : ' WRK-100-WAGES-CNT.  DTSBR325
01009      DISPLAY '  REPORTS WITHIN TOLERENCE  : ' WRK-080-WAGES-CNT.  DTSBR325
01010      DISPLAY '  REPORTS EXCEEDED TOLERENCE: ' WRK-079-WAGES-CNT.  DTSBR325
01011      DISPLAY '  REPORTS WITH ZERO WAGES   : ' WRK-ZERO-WAGES-CNT. DTSBR325
01012      DISPLAY ' '.                                                 DTSBR325
01013      DISPLAY '***END JOB****'.                                    DTSBR325
01014                                                                   DTSBR325
01015      CLOSE RPT-FILE1 RPT-FILE2 RPT-FILE3 RPT-FILE4                DTSBR325
01016            RPT-FILE5.                                             DTSBR325
01017                                                                   DTSBR325
01018  T1000-EXIT.                                                      DTSBR325
01019      EXIT.                                                        DTSBR325
01020      EJECT                                                        DTSBR325
01021  T2000-REPORT-TOTALS.                                             DTSBR325
01022      ADD  1 TO WS-REG-LINE-CNT.                                   DTSBR325
01023      IF WS-REG-LINE-CNT > 60                                      DTSBR325
01024         MOVE WS-PAGE-CNT TO HDR3-PAGE                             DTSBR325
01025         MOVE '325R2'                TO HDR1-RPT                   DTSBR325
01026         WRITE RPT-REC2 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE   DTSBR325
01027         WRITE RPT-REC2 FROM HEADER2 AFTER ADVANCING 1             DTSBR325
01028         WRITE RPT-REC2 FROM HEADER3 AFTER ADVANCING 1             DTSBR325
01029         WRITE RPT-REC2 FROM HEADER4 AFTER ADVANCING 1             DTSBR325
01030         WRITE RPT-REC2 FROM HEADER5 AFTER ADVANCING 1             DTSBR325
01031         WRITE RPT-REC2 FROM HEADER6 AFTER ADVANCING 1             DTSBR325
01032         ADD  1 TO WS-PAGE-CNT                                     DTSBR325
01033         MOVE 1 TO WS-REG-LINE-CNT                                 DTSBR325
01034      END-IF.                                                      DTSBR325
01035                                                                   DTSBR325
01036      IF WRK-TOT-REG-TAX = ZEROS                                   DTSBR325
01037         NEXT SENTENCE                                             DTSBR325
01038      ELSE                                                         DTSBR325
01039         WRITE RPT-REC2 FROM FOOTING1 AFTER ADVANCING 1            DTSBR325
01040         MOVE  WRK-TOT-REG-TAX TO WS-FOOTING-AMT                   DTSBR325
01041         WRITE RPT-REC2 FROM FOOTING2 AFTER ADVANCING 1            DTSBR325
01042         WRITE RPT-REC2 FROM FOOTING1 AFTER ADVANCING 1.           DTSBR325
01043                                                                   DTSBR325
01044      ADD  1 TO WS-ERR-LINE-CNT.                                   DTSBR325
01045      IF WS-ERR-LINE-CNT > 60                                      DTSBR325
01046         MOVE WS-ERR-PAGE-CNT TO ERR20-PAGE                        DTSBR325
01047         MOVE '325R3'                TO HDR1-RPT                   DTSBR325
01048         WRITE RPT-REC3 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE   DTSBR325
01049         WRITE RPT-REC3 FROM HEADER2 AFTER ADVANCING 1             DTSBR325
01050         WRITE RPT-REC3 FROM HEADER35 AFTER ADVANCING 1            DTSBR325
01051         WRITE RPT-REC3 FROM HEADER4 AFTER ADVANCING 1             DTSBR325
01052         WRITE RPT-REC3 FROM HEADER7 AFTER ADVANCING 1             DTSBR325
01053         WRITE RPT-REC3 FROM HEADER6 AFTER ADVANCING 1             DTSBR325
01054         ADD  1 TO WS-ERR-PAGE-CNT                                 DTSBR325
01055         MOVE 1 TO WS-ERR-LINE-CNT                                 DTSBR325
01056      END-IF.                                                      DTSBR325
01057                                                                   DTSBR325
01058      IF WRK-TOT-ERR-TAX = ZEROS                                   DTSBR325
01059         NEXT SENTENCE                                             DTSBR325
01060      ELSE                                                         DTSBR325
01061         WRITE RPT-REC3 FROM FOOTING4 AFTER ADVANCING 1            DTSBR325
01062         MOVE  WRK-TOT-ERR-TAX TO WS-FOOTING-AMT2                  DTSBR325
01063         WRITE RPT-REC3 FROM FOOTING3 AFTER ADVANCING 1            DTSBR325
01064         WRITE RPT-REC3 FROM FOOTING4 AFTER ADVANCING 1.           DTSBR325
01065                                                                   DTSBR325
01066  T2000-EXIT.                                                      DTSBR325
01067      EXIT.                                                        DTSBR325
01068                                                                   DTSBR325
01069  S001-FROM-FED-8.                                                 DTSBR325
01070      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR325
01071      GO TO S001-DATE.                                             DTSBR325
01072                                                                   DTSBR325
01073  S001-DATE.                                                       DTSBR325
01074      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR325
01075  S001-EXIT.                                                       DTSBR325
01076      EXIT.                                                        DTSBR325
01077                                                                   DTSBR325
01078  S004-FROM-5.                                                     DTSBR325
01079      SET L004-FROM-5     TO TRUE.                                 DTSBR325
01080      GO TO S004-EDIT-QTR.                                         DTSBR325
01081                                                                   DTSBR325
01082  S004-FROM-ABS.                                                   DTSBR325
01083      SET L004-FROM-ABS   TO TRUE.                                 DTSBR325
01084      GO TO S004-EDIT-QTR.                                         DTSBR325
01085                                                                   DTSBR325
01086  S004-EDIT-QTR.                                                   DTSBR325
01087      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR325
01088                                                                   DTSBR325
01089  S004-EXIT.                                                       DTSBR325
01090      EXIT.                                                        DTSBR325
01091                                                                   DTSBR325
01092  S005-SYS-DATE.                                                   DTSBR325
01093      SET L005-FROM-SYS TO TRUE                                    DTSBR325
01094      GO TO S005-ABSTIME.                                          DTSBR325
01095  S005-FROM-ABSTIME.                                               DTSBR325
01096      SET L005-FROM-ABSTIME TO TRUE.                               DTSBR325
01097      GO TO S005-ABSTIME.                                          DTSBR325
01098  S005-ABSTIME.                                                    DTSBR325
01099      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBR325
01100  S005-EXIT.                                                       DTSBR325
01101      EXIT.                                                        DTSBR325
01102                                                                   DTSBR325
01103  S910-OPEN-READ.                                                  DTSBR325
01104      SET L910-OPEN-READ-88 TO TRUE.                               DTSBR325
01105      GO TO S910-MSTR-IO.                                          DTSBR325
01106  S910-READ.                                                       DTSBR325
01107      SET L910-READ-88 TO TRUE.                                    DTSBR325
01108      GO TO S910-MSTR-IO.                                          DTSBR325
01109  S910-START-BROWSE.                                               DTSBR325
01110      SET L910-START-BROWSE-88 TO TRUE                             DTSBR325
01111      GO TO S910-MSTR-IO.                                          DTSBR325
01112  S910-READ-NEXT.                                                  DTSBR325
01113      SET L910-READ-NEXT-88 TO TRUE                                DTSBR325
01114      GO TO S910-MSTR-IO.                                          DTSBR325
01115  S910-CLOSE.                                                      DTSBR325
01116      SET L910-CLOSE-88 TO TRUE                                    DTSBR325
01117      GO TO S910-MSTR-IO.                                          DTSBR325
01118  S910-MSTR-IO.                                                    DTSBR325
01119       CALL 'DTSBU910' USING L910-LINK-AREA                        DTSBR325
01120                       MSKL-REC.                                   DTSBR325
01121  S910-EXIT.                                                       DTSBR325
01122       EXIT.                                                       DTSBR325
01123                                                                   DTSBR325
01124  S999-ABEND.                                                      DTSBR325
01125      DISPLAY WRK-ABEND-MSG.                                       DTSBR325
01126                                                                   DTSBR325
01127      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR325
01128  S999-EXIT.                                                       DTSBR325
01129      EXIT.                                                        DTSBR325
