00001  IDENTIFICATION DIVISION.                                         01/14/08
00002  PROGRAM-ID.             DTSBR737.                                DTSBR737
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV013
00004  DATE-WRITTEN.           APRIL 1995.                              DTSBR737
00005  DATE-COMPILED.                                                   DTSBR737
00006      SKIP3                                                        DTSBR737
00007 *****                                                             DTSBR737
00008 *                                                                 DTSBR737
00009 *    CALLING SEQUENCE:  DTSBD520 EXTRACTS VSAM WAGE FILE.            CL*13
00010 *                       DTSBD530 WHICH UPDATES DTSIR737           DTSBR737
00011 *                       DTSBR737 READS DTSIR737 RECORDS.          DTSBR737
00012 *                                                                 DTSBR737
00013 *    FUNCTION:  WAGE FILE / TAX FILE COMPARISON - EXCEPTIONS.     DTSBR737
00014 *                                                                 DTSBR737
00015 *                                                                 DTSBR737
00016 *    MODIFICATION HISTORY:                                        DTSBR737
00017 *                                                                 DTSBR737
00018 * 04-12-95 INITIAL DEVELOPMENT                                    DTSBR737
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR737
00020 *                                                                 DTSBR737
00021 * 03-02-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS.     DTSBR737
00022 *          REFERENCE RFP #****            AUTHOR OF CHANGE - DVS  DTSBR737
00023 *                                                                 DTSBR737
00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR737
00025 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR737
00026 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR737
00027 *                                                                 DTSBR737
00028 *                                                                 DTSBR737
00029 *    DESCRIPTION:                                                 DTSBR737
00030 *                                                                 DTSBR737
00031 *        THIS MODULE LISTS EMPLOYERS WITH DISCREPANCIES BETWEEN   DTSBR737
00032 *        THE TAX FILE AND THE WAGE FILE IN TAXABLE OR TOTAL WAGE  DTSBR737
00033 *        AMOUNTS.                                                 DTSBR737
00034 *                                                                 DTSBR737
00035 *                                                                 DTSBR737
00036 *    RECORDS READ:                                                DTSBR737
00037 *                                                                 DTSBR737
00038 *        NONE.                                                    DTSBR737
00039 *                                                                 DTSBR737
00040 *                                                                 DTSBR737
00041 *    PRINTED OUTPUTS:                                             DTSBR737
00042 *                                                                 DTSBR737
00043 *        737R1  WAGE FILE / TAX FILE COMPARISON - EXCEPTION LIST  DTSBR737
00044 *                                                                 DTSBR737
00045 *                                                                 DTSBR737
00046 *    RECORDS WRITTEN:                                             DTSBR737
00047 *                                                                 DTSBR737
00048 *        NONE                                                     DTSBR737
00049 *                                                                 DTSBR737
00050 *                                                                 DTSBR737
00051 *    MODULES CALLED:                                              DTSBR737
00052 *                                                                 DTSBR737
00053 *        DTSBU056 RATE DISPLAY MODULE                             DTSBR737
00054 *                                                                 DTSBR737
00055 *                                                                 DTSBR737
00056 *****                                                             DTSBR737
00057      EJECT                                                        DTSBR737
00058  ENVIRONMENT DIVISION.                                            DTSBR737
00059                                                                   DTSBR737
00060  CONFIGURATION SECTION.                                           DTSBR737
00061  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR737
00062                                                                   DTSBR737
00063  INPUT-OUTPUT SECTION.                                            DTSBR737
00064                                                                   DTSBR737
00065  FILE-CONTROL.                                                    DTSBR737
00066      SELECT PRT-FILE ASSIGN TO RPT737R1.                          DTSBR737
00067                                                                   DTSBR737
00068  DATA DIVISION.                                                   DTSBR737
00069                                                                   DTSBR737
00070  FILE SECTION.                                                    DTSBR737
00071                                                                   DTSBR737
00072  FD  PRT-FILE                                                     DTSBR737
00073      RECORDING MODE IS F.                                         DTSBR737
00074  01  PRT-RECORD              PIC X(133).                          DTSBR737
00075                                                                   DTSBR737
00076      EJECT                                                        DTSBR737
00077  WORKING-STORAGE SECTION.                                         DTSBR737
000775 77  PAN-VALET PICTURE X(24) VALUE '013DTSBR737  01/14/08'.       DTSBR737
00078                                                                   DTSBR737
00079  01  WRK-AREA.                                                    DTSBR737
00080      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +737.DTSBR737
00081      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR737
00082      05  WS-SUB                      PIC S9(04)  COMP.            DTSBR737
00083      05  WS-CITY-ST-ZIP              PIC  X(40).                  DTSBR737
00084      05  WS-YRQ OCCURS 4 TIMES       PIC  9(05).                  DTSBR737
00085      05  WS-RATE-DISPLAY OCCURS 4 TIMES                           DTSBR737
00086                                      PIC  X(07).                  DTSBR737
00087                                                                   DTSBR737
00088      05  WS-TOL-GROUP-IND-HOLD       PIC  X(01)  VALUE SPACE.     DTSBR737
00089      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +0. DTSBR737
00090      05  WS-FOOT-REC-CNT             PIC S9(05)  COMP-3 VALUE +0. DTSBR737
00091      05  WS-SUM-REC-CNT              PIC S9(05)  COMP-3 VALUE +0. DTSBR737
00092      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE 60. DTSBR737
00093      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE +0. DTSBR737
00094      05  WS-PAGE-CNT                 PIC S9(05)  COMP-3 VALUE +0. DTSBR737
00095                                                                   DTSBR737
00096      EJECT                                                        DTSBR737
00097  01  L056-LINK-AREA.                                              DTSBR737
00098  ++INCLUDE DTSIL056                                               DTSBR737
00099      EJECT                                                        DTSBR737
00100  01  PAGE-HEADING.                                                DTSBR737
00101      05  HDR-LINE-1.                                              DTSBR737
00102          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00103          10  FILLER                  PIC  X(05)                   DTSBR737
00104                 VALUE '737R1'.                                    DTSBR737
00105          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR737
00106          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR737
00107          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR737
00108          10  FILLER                  PIC  X(05)                   DTSBR737
00109                 VALUE 'DATE:'.                                    DTSBR737
00110          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00111          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR737
00112      05  HDR-LINE-2.                                              DTSBR737
00113          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR737
00114          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR737
00115          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR737
00116          10  FILLER                  PIC  X(05)                   DTSBR737
00117                 VALUE 'TIME:'.                                    DTSBR737
00118          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00119          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR737
00120      05  HDR-LINE-3.                                              DTSBR737
00121          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00122          10  FILLER                  PIC  X(40)                   DTSBR737
00123                 VALUE 'ROUTE TO:  CHIEF, TAX DIVISION          '. DTSBR737
00124          10  FILLER                  PIC  X(77)  VALUE SPACES.    DTSBR737
00125          10  FILLER                  PIC  X(05)                   DTSBR737
00126                 VALUE 'PAGE:'.                                    DTSBR737
00127          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR737
00128          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR737
00129      05  HDR-LINE-4                  PIC  X(133) VALUE SPACES.    DTSBR737
00130      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR737
00131      05  HDR-LINE-6.                                              DTSBR737
00132          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR737
00133          10  FILLER                  PIC  X(40)                   DTSBR737
00134                 VALUE 'WAGE FILE / TAX FILE COMPARISON - EXCEPT'. DTSBR737
00135          10  FILLER                  PIC  X(21)                   DTSBR737
00136                 VALUE 'ION LIST (DIFFERENCE '.                    DTSBR737
00137          10  HDR-TOL-MIN-AMT         PIC  $$$,$$9.                DTSBR737
00138          10  FILLER                  PIC  X(06)                   DTSBR737
00139                 VALUE ' THRU '.                                   DTSBR737
00140          10  HDR-TOL-MAX-AMT         PIC  $$$,$$9.                DTSBR737
00141          10  HDR-TOL-MAX-AMT-X REDEFINES HDR-TOL-MAX-AMT          DTSBR737
00142                                      PIC  X(07).                  DTSBR737
00143          10  FILLER                  PIC  X(01)                   DTSBR737
00144                 VALUE ')'.                                        DTSBR737
00145      05  HDR-LINE-7                  PIC  X(133) VALUE SPACES.    DTSBR737
00146      05  HDR-LINE-8                  PIC  X(133) VALUE SPACES.    DTSBR737
00147      05  HDR-LINE-9.                                              DTSBR737
00148          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00149          10  FILLER                  PIC  X(32)                   DTSBR737
00150                 VALUE 'EMP NO   PRIMARY  NAME / ADDRESS'.         DTSBR737
00151          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR737
00152          10  HDR-YRQ-1               PIC  99/9.                   DTSBR737
00153          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR737
00154          10  HDR-YRQ-2               PIC  99/9.                   DTSBR737
00155          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR737
00156          10  HDR-YRQ-3               PIC  99/9.                   DTSBR737
00157          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR737
00158          10  HDR-YRQ-4               PIC  99/9.                   DTSBR737
00159                                                                   DTSBR737
00160  01  DETAIL-LINE.                                                 DTSBR737
00161      05  DTL-LINE-3.                                              DTSBR737
00162          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00163          10  DTL-EMP-NO              PIC  999B999.                DTSBR737
00164          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00165          10  DTL-PRIMARY-NAME        PIC  X(40).                  DTSBR737
00166          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR737
00167          10  FILLER                  PIC  X(09)                   DTSBR737
00168                 VALUE 'TOT (TAX)'.                                DTSBR737
00169          10  FILLER                  PIC  X(02)  VALUE SPACE.     DTSBR737
00170          10  DTL-TOT-FROM-DTS-1      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00171          10  DTL-TOT-DIFF-IND-1      PIC  X(02).                  DTSBR737
00172          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00173          10  DTL-TOT-FROM-DTS-2      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00174          10  DTL-TOT-DIFF-IND-2      PIC  X(02).                  DTSBR737
00175          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00176          10  DTL-TOT-FROM-DTS-3      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00177          10  DTL-TOT-DIFF-IND-3      PIC  X(02).                  DTSBR737
00178          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR737
00179          10  DTL-TOT-FROM-DTS-4      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00180          10  DTL-TOT-DIFF-IND-4      PIC  X(02).                  DTSBR737
00181      05  DTL-LINE-4.                                              DTSBR737
00182          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR737
00183          10  DTL-LINE-4-ADDR         PIC  X(40).                  DTSBR737
00184          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR737
00185          10  FILLER                  PIC  X(09)                   DTSBR737
00186                 VALUE '    (WGE)'.                                DTSBR737
00187          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR737
00188          10  DTL-TOT-FROM-WAGE-1     PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00189          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR737
00190          10  DTL-TOT-FROM-WAGE-2     PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00191          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR737
00192          10  DTL-TOT-FROM-WAGE-3     PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00193          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR737
00194          10  DTL-TOT-FROM-WAGE-4     PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00195      05  DTL-LINE-5.                                              DTSBR737
00196          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR737
00197          10  DTL-LINE-5-ADDR         PIC  X(40).                  DTSBR737
00198      05  DTL-LINE-6.                                              DTSBR737
00199          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR737
00200          10  DTL-LINE-6-ADDR         PIC  X(40).                  DTSBR737
00201          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR737
00202          10  FILLER                  PIC  X(09)                   DTSBR737
00203                 VALUE 'TAX (TAX)'.                                DTSBR737
00204          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR737
00205          10  DTL-TAX-FROM-DTS-1      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00206          10  DTL-TAX-DIFF-IND-1      PIC  X(02).                  DTSBR737
00207          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR737
00208          10  DTL-TAX-FROM-DTS-2      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00209          10  DTL-TAX-DIFF-IND-2      PIC  X(02).                  DTSBR737
00210          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR737
00211          10  DTL-TAX-FROM-DTS-3      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00212          10  DTL-TAX-DIFF-IND-3      PIC  X(02).                  DTSBR737
00213          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR737
00214          10  DTL-TAX-FROM-DTS-4      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00215          10  DTL-TAX-DIFF-IND-4      PIC  X(02).                  DTSBR737
00216      05  DTL-LINE-7.                                              DTSBR737
00217          10  FILLER                  PIC  X(52)  VALUE SPACES.    DTSBR737
00218          10  FILLER                  PIC  X(09)                   DTSBR737
00219                 VALUE '    (WGE)'.                                DTSBR737
00220          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR737
00221          10  DTL-TAX-FROM-WAGE-1     PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00222          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR737
00223          10  DTL-TAX-FROM-WAGE-2     PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00224          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR737
00225          10  DTL-TAX-FROM-WAGE-3     PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00226          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR737
00227          10  DTL-TAX-FROM-WAGE-4     PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR737
00228      05  DTL-LINE-8                  PIC  X(133) VALUE SPACES.    DTSBR737
00229      05  DTL-LINE-9.                                              DTSBR737
00230          10  FILLER                  PIC  X(52)  VALUE SPACES.    DTSBR737
00231          10  FILLER                  PIC  X(09)                   DTSBR737
00232                 VALUE 'BATCH    '.                                DTSBR737
00233          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR737
00234          10  DTL-BATCH-NO-1          PIC  9(05).                  DTSBR737
00235          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR737
00236          10  DTL-BATCH-NO-2          PIC  9(05).                  DTSBR737
00237          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR737
00238          10  DTL-BATCH-NO-3          PIC  9(05).                  DTSBR737
00239          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR737
00240          10  DTL-BATCH-NO-4          PIC  9(05).                  DTSBR737
00241      05  DTL-LINE-10.                                             DTSBR737
00242          10  FILLER                  PIC  X(52)  VALUE SPACES.    DTSBR737
00243          10  FILLER                  PIC  X(09)                   DTSBR737
00244                 VALUE 'UI RATE  '.                                DTSBR737
00245          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR737
00246          10  DTL-RATE-DISPLAY-1      PIC  X(07).                  DTSBR737
00247          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR737
00248          10  DTL-RATE-DISPLAY-2      PIC  X(07).                  DTSBR737
00249          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR737
00250          10  DTL-RATE-DISPLAY-3      PIC  X(07).                  DTSBR737
00251          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR737
00252          10  DTL-RATE-DISPLAY-4      PIC  X(07).                  DTSBR737
00253                                                                   DTSBR737
00254  01  CONTROL-FOOTING.                                             DTSBR737
00255      05  CTF-LINE-4.                                              DTSBR737
00256          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR737
00257          10  CTF-FOOT-REC-CNT        PIC  ZZZ,ZZ9.                DTSBR737
00258          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR737
00259          10  FILLER                  PIC  X(18)                   DTSBR737
00260                 VALUE 'EXCEPTION ACCOUNTS'.                       DTSBR737
00261      SKIP2                                                        DTSBR737
00262  01  CONTROL-FOOTING-FINAL.                                       DTSBR737
00263      05  CFF-LINE-5.                                              DTSBR737
00264          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR737
00265          10  CFF-SUM-REC-CNT         PIC  ZZZ,ZZ9.                DTSBR737
00266          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR737
00267          10  FILLER                  PIC  X(24)                   DTSBR737
00268                 VALUE 'TOTAL EXCEPTION ACCOUNTS'.                 DTSBR737
00269      EJECT                                                        DTSBR737
00270  LINKAGE SECTION.                                                 DTSBR737
00271                                                                   DTSBR737
00272  01  LRCM-LINK-AREA.                                              DTSBR737
00273  ++INCLUDE DTSILRCM                                               DTSBR737
00274      EJECT                                                        DTSBR737
00275  01  R737-REC.                                                    DTSBR737
00276  ++INCLUDE DTSIR737                                               DTSBR737
00277      EJECT                                                        DTSBR737
00278  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR737
00279                           R737-REC.                               DTSBR737
00280                                                                   DTSBR737
00281      IF FIRST-TIME-IND = 'Y'                                      DTSBR737
00282          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR737
00283          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR737
00284      SKIP1                                                        DTSBR737
00285      IF LRCM-EOR-88                                               DTSBR737
00286          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR737
00287      ELSE                                                         DTSBR737
00288          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR737
00289                                                                   DTSBR737
00290      GOBACK.                                                      DTSBR737
00291      EJECT                                                        DTSBR737
00292  I1000-INITIATE.                                                  DTSBR737
00293                                                                   DTSBR737
00294      OPEN OUTPUT PRT-FILE.                                        DTSBR737
00295      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR737
00296      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR737
00297      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR737
00298      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR737
00299      MOVE SPACES TO PRT-RECORD.                                   DTSBR737
00300                                                                   DTSBR737
00301  I1000-EXIT.                                                      DTSBR737
00302      EXIT.                                                        DTSBR737
00303                                                                   DTSBR737
00304  P1000-PROCESS.                                                   DTSBR737
00305                                                                   DTSBR737
00306      MOVE SPACES TO WS-CITY-ST-ZIP.                               DTSBR737
00307      STRING R737-CITY DELIMITED BY '  '                           DTSBR737
00308             ', '      DELIMITED BY SIZE                           DTSBR737
00309             R737-ST   DELIMITED BY SIZE                           DTSBR737
00310             ' '       DELIMITED BY SIZE                           DTSBR737
00311             R737-ZIP  DELIMITED BY SIZE                           DTSBR737
00312         INTO                                                      DTSBR737
00313             WS-CITY-ST-ZIP.                                       DTSBR737
00314                                                                   DTSBR737
00315      PERFORM                                                      DTSBR737
00316         VARYING WS-SUB FROM +1 BY +1                              DTSBR737
00317         UNTIL WS-SUB > R737-YRQ-CNT                               DTSBR737
00318          MOVE R737-YRQ (WS-SUB) TO WS-YRQ (WS-SUB)                DTSBR737
00319          MOVE R737-UI-RATE (WS-SUB) TO L056-RATE                  DTSBR737
00320          SET L056-DISP1-RIGHT-88 TO TRUE                          DTSBR737
00321          PERFORM S056-RATE-DISPLAY THRU S056-EXIT                 DTSBR737
00322          MOVE L056-DISP-RATE TO WS-RATE-DISPLAY (WS-SUB)          DTSBR737
00323      END-PERFORM.                                                 DTSBR737
00324                                                                   DTSBR737
00325      IF R737-TOL-GROUP-IND NOT = WS-TOL-GROUP-IND-HOLD            DTSBR737
00326          MOVE R737-TOL-GROUP-IND TO WS-TOL-GROUP-IND-HOLD         DTSBR737
00327                                                                   DTSBR737
00328          IF WS-NUMBER-ONE = +0                                    DTSBR737
00329             MOVE +99 TO WS-NUMBER-ONE                             DTSBR737
00330          ELSE                                                     DTSBR737
00331             PERFORM  P4000-PRINT-FOOTER THRU P4000-EXIT           DTSBR737
00332             MOVE +60 TO WS-LINE-CNT2                              DTSBR737
00333          END-IF.                                                  DTSBR737
00334      MOVE R737-TOL-MIN-AMT      TO HDR-TOL-MIN-AMT.               DTSBR737
00335      IF NOT R737-TOL-MAX-BLANK-88                                 DTSBR737
00336           MOVE R737-TOL-MAX-AMT TO HDR-TOL-MAX-AMT                DTSBR737
00337      ELSE MOVE SPACES TO HDR-TOL-MAX-AMT-X.                       DTSBR737
00338      IF R737-YRQ-CNT > +0                                         DTSBR737
00339           MOVE WS-YRQ (1) (3:3) TO HDR-YRQ-1.                     DTSBR737
00340      IF R737-YRQ-CNT > +1                                         DTSBR737
00341           MOVE WS-YRQ (2) (3:3) TO HDR-YRQ-2.                     DTSBR737
00342      IF R737-YRQ-CNT > +2                                         DTSBR737
00343           MOVE WS-YRQ (3) (3:3) TO HDR-YRQ-3.                     DTSBR737
00344      IF R737-YRQ-CNT > +3                                         DTSBR737
00345           MOVE WS-YRQ (4) (3:3) TO HDR-YRQ-4.                     DTSBR737
00346      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR737
00347      PERFORM P3000-PRINT-DETAIL THRU P3000-EXIT.                  DTSBR737
00348      ADD +1    TO WS-FOOT-REC-CNT.                                DTSBR737
00349      ADD +1    TO WS-SUM-REC-CNT.                                 DTSBR737
00350                                                                   DTSBR737
00351  P1000-EXIT.                                                      DTSBR737
00352      EXIT.                                                        DTSBR737
00353                                                                   DTSBR737
00354  P2000-PRINT-HEADER.                                              DTSBR737
00355      IF WS-LINE-CNT GREATER 53 OR                                 DTSBR737
00356           WS-LINE-CNT2 GREATER 53                                 DTSBR737
00357         MOVE +0          TO WS-LINE-CNT                           DTSBR737
00358         MOVE +0          TO WS-LINE-CNT2                          DTSBR737
00359         ADD  +1          TO WS-PAGE-CNT                           DTSBR737
00360         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR737
00361         WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE        DTSBR737
00362         WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1                  DTSBR737
00363         WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1                  DTSBR737
00364         WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1                  DTSBR737
00365         WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1                  DTSBR737
00366         WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1                  DTSBR737
00367         WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1                  DTSBR737
00368         WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1                  DTSBR737
00369         WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1                  DTSBR737
00370         ADD +9    TO WS-LINE-CNT2.                                DTSBR737
00371  P2000-EXIT.                                                      DTSBR737
00372      EXIT.                                                        DTSBR737
00373                                                                   DTSBR737
00374  P3000-PRINT-DETAIL.                                              DTSBR737
00375      IF WS-LINE-CNT2 > 53                                         DTSBR737
00376         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR737
00377      END-IF.                                                      DTSBR737
00378                                                                   DTSBR737
00379      MOVE R737-EMP-NO           TO DTL-EMP-NO.                    DTSBR737
00380      MOVE R737-PRIMARY-NAME     TO DTL-PRIMARY-NAME.              DTSBR737
00381      IF R737-YRQ-CNT > +0                                         DTSBR737
00382           MOVE R737-TOT-FROM-DTS (1) TO DTL-TOT-FROM-DTS-1        DTSBR737
00383           MOVE R737-TOT-DIFFERENCE-IND (1) TO DTL-TOT-DIFF-IND-1. DTSBR737
00384      IF R737-YRQ-CNT > +1                                         DTSBR737
00385           MOVE R737-TOT-FROM-DTS (2) TO DTL-TOT-FROM-DTS-2        DTSBR737
00386           MOVE R737-TOT-DIFFERENCE-IND (2) TO DTL-TOT-DIFF-IND-2. DTSBR737
00387      IF R737-YRQ-CNT > +2                                         DTSBR737
00388           MOVE R737-TOT-FROM-DTS (3) TO DTL-TOT-FROM-DTS-3        DTSBR737
00389           MOVE R737-TOT-DIFFERENCE-IND (3) TO DTL-TOT-DIFF-IND-3. DTSBR737
00390      IF R737-YRQ-CNT > +3                                         DTSBR737
00391           MOVE R737-TOT-FROM-DTS (4) TO DTL-TOT-FROM-DTS-4        DTSBR737
00392           MOVE R737-TOT-DIFFERENCE-IND (4) TO DTL-TOT-DIFF-IND-1. DTSBR737
00393      WRITE PRT-RECORD FROM DTL-LINE-3     AFTER 2.                DTSBR737
00394      ADD +2    TO WS-LINE-CNT2.                                   DTSBR737
00395                                                                   DTSBR737
00396      IF R737-ATTN-LINE NOT = SPACES                               DTSBR737
00397           MOVE R737-ATTN-LINE TO DTL-LINE-4-ADDR                  DTSBR737
00398      ELSE IF (R737-ATTN-LINE = SPACES) AND (R737-DELIV-LINE-1     DTSBR737
00399                NOT = SPACES)                                      DTSBR737
00400               MOVE R737-DELIV-LINE-1 TO DTL-LINE-4-ADDR           DTSBR737
00401           ELSE IF (R737-ATTN-LINE = SPACES) AND (R737-DELIV-LINE-1DTSBR737
00402                   = SPACES)                                       DTSBR737
00403                   MOVE WS-CITY-ST-ZIP TO DTL-LINE-4-ADDR.         DTSBR737
00404      IF R737-YRQ-CNT > +0                                         DTSBR737
00405           MOVE R737-TOT-FROM-WAGE (1) TO DTL-TOT-FROM-WAGE-1.     DTSBR737
00406      IF R737-YRQ-CNT > +1                                         DTSBR737
00407           MOVE R737-TOT-FROM-WAGE (2) TO DTL-TOT-FROM-WAGE-2.     DTSBR737
00408      IF R737-YRQ-CNT > +2                                         DTSBR737
00409           MOVE R737-TOT-FROM-WAGE (3) TO DTL-TOT-FROM-WAGE-3.     DTSBR737
00410      IF R737-YRQ-CNT > +3                                         DTSBR737
00411           MOVE R737-TOT-FROM-WAGE (4) TO DTL-TOT-FROM-WAGE-4.     DTSBR737
00412      WRITE PRT-RECORD FROM DTL-LINE-4     AFTER 1.                DTSBR737
00413      MOVE SPACES TO DTL-LINE-4-ADDR.                              DTSBR737
00414      ADD +1    TO WS-LINE-CNT2.                                   DTSBR737
00415                                                                   DTSBR737
00416      IF (R737-ATTN-LINE NOT = SPACES) AND (R737-DELIV-LINE-1      DTSBR737
00417                NOT = SPACES)                                      DTSBR737
00418           MOVE R737-DELIV-LINE-1 TO DTL-LINE-5-ADDR               DTSBR737
00419      ELSE                                                         DTSBR737
00420        IF ((R737-ATTN-LINE = SPACES) AND (R737-DELIV-LINE-1       DTSBR737
00421                  NOT = SPACES)) OR                                DTSBR737
00422           ((R737-ATTN-LINE NOT = SPACES) AND (R737-DELIV-LINE-1   DTSBR737
00423             = SPACES))                                            DTSBR737
00424           MOVE WS-CITY-ST-ZIP TO DTL-LINE-5-ADDR.                 DTSBR737
00425      WRITE PRT-RECORD FROM DTL-LINE-5     AFTER 1.                DTSBR737
00426      MOVE SPACES TO DTL-LINE-5-ADDR.                              DTSBR737
00427      ADD +1    TO WS-LINE-CNT2.                                   DTSBR737
00428                                                                   DTSBR737
00429      IF (R737-ATTN-LINE NOT = SPACES) AND (R737-DELIV-LINE-1      DTSBR737
00430                NOT = SPACES)                                      DTSBR737
00431           MOVE WS-CITY-ST-ZIP TO DTL-LINE-6-ADDR.                 DTSBR737
00432      IF R737-YRQ-CNT > +0                                         DTSBR737
00433           MOVE R737-TAX-FROM-DTS (1) TO DTL-TAX-FROM-DTS-1        DTSBR737
00434           MOVE R737-TAX-DIFFERENCE-IND (1) TO DTL-TAX-DIFF-IND-1. DTSBR737
00435      IF R737-YRQ-CNT > +1                                         DTSBR737
00436           MOVE R737-TAX-FROM-DTS (2) TO DTL-TAX-FROM-DTS-2        DTSBR737
00437           MOVE R737-TAX-DIFFERENCE-IND (2) TO DTL-TAX-DIFF-IND-2. DTSBR737
00438      IF R737-YRQ-CNT > +2                                         DTSBR737
00439           MOVE R737-TAX-FROM-DTS (3) TO DTL-TAX-FROM-DTS-3        DTSBR737
00440           MOVE R737-TAX-DIFFERENCE-IND (3) TO DTL-TAX-DIFF-IND-3. DTSBR737
00441      IF R737-YRQ-CNT > +3                                         DTSBR737
00442           MOVE R737-TAX-FROM-DTS (4) TO DTL-TAX-FROM-DTS-4        DTSBR737
00443           MOVE R737-TAX-DIFFERENCE-IND (4) TO DTL-TAX-DIFF-IND-4. DTSBR737
00444      WRITE PRT-RECORD FROM DTL-LINE-6     AFTER 1.                DTSBR737
00445      MOVE SPACES TO DTL-LINE-6-ADDR.                              DTSBR737
00446      ADD +1    TO WS-LINE-CNT2.                                   DTSBR737
00447                                                                   DTSBR737
00448      IF R737-YRQ-CNT > +0                                         DTSBR737
00449           MOVE R737-TAX-FROM-WAGE (1) TO DTL-TAX-FROM-WAGE-1.     DTSBR737
00450      IF R737-YRQ-CNT > +1                                         DTSBR737
00451           MOVE R737-TAX-FROM-WAGE (2) TO DTL-TAX-FROM-WAGE-2.     DTSBR737
00452      IF R737-YRQ-CNT > +2                                         DTSBR737
00453           MOVE R737-TAX-FROM-WAGE (3) TO DTL-TAX-FROM-WAGE-3.     DTSBR737
00454      IF R737-YRQ-CNT > +3                                         DTSBR737
00455           MOVE R737-TAX-FROM-WAGE (4) TO DTL-TAX-FROM-WAGE-4.     DTSBR737
00456      WRITE PRT-RECORD FROM DTL-LINE-7     AFTER 1.                DTSBR737
00457      ADD +1    TO WS-LINE-CNT2.                                   DTSBR737
00458                                                                   DTSBR737
00459      WRITE PRT-RECORD FROM DTL-LINE-8     AFTER 1.                DTSBR737
00460      ADD +1    TO WS-LINE-CNT2.                                   DTSBR737
00461                                                                   DTSBR737
00462      IF (R737-YRQ-CNT > +0) AND (R737-BATCH-NO (1) > +0)          DTSBR737
00463           MOVE R737-BATCH-NO  (1) TO DTL-BATCH-NO-1.              DTSBR737
00464      IF (R737-YRQ-CNT > +1) AND (R737-BATCH-NO (2) > +0)          DTSBR737
00465           MOVE R737-BATCH-NO  (2) TO DTL-BATCH-NO-2.              DTSBR737
00466      IF (R737-YRQ-CNT > +2) AND (R737-BATCH-NO (3) > +0)          DTSBR737
00467           MOVE R737-BATCH-NO  (3) TO DTL-BATCH-NO-3.              DTSBR737
00468      IF (R737-YRQ-CNT > +3) AND (R737-BATCH-NO (4) > +0)          DTSBR737
00469           MOVE R737-BATCH-NO  (4) TO DTL-BATCH-NO-4.              DTSBR737
00470      WRITE PRT-RECORD FROM DTL-LINE-9     AFTER 1.                DTSBR737
00471      ADD +1    TO WS-LINE-CNT2.                                   DTSBR737
00472                                                                   DTSBR737
00473      IF R737-YRQ-CNT > +0                                         DTSBR737
00474           MOVE WS-RATE-DISPLAY (1) TO DTL-RATE-DISPLAY-1.         DTSBR737
00475      IF R737-YRQ-CNT > +1                                         DTSBR737
00476           MOVE WS-RATE-DISPLAY (2) TO DTL-RATE-DISPLAY-2.         DTSBR737
00477      IF R737-YRQ-CNT > +2                                         DTSBR737
00478           MOVE WS-RATE-DISPLAY (3) TO DTL-RATE-DISPLAY-3.         DTSBR737
00479      IF R737-YRQ-CNT > +3                                         DTSBR737
00480           MOVE WS-RATE-DISPLAY (4) TO DTL-RATE-DISPLAY-4.         DTSBR737
00481      WRITE PRT-RECORD FROM DTL-LINE-10    AFTER 1.                DTSBR737
00482      ADD +1    TO WS-LINE-CNT2.                                   DTSBR737
00483                                                                   DTSBR737
00484  P3000-EXIT.                                                      DTSBR737
00485      EXIT.                                                        DTSBR737
00486                                                                   DTSBR737
00487  P4000-PRINT-FOOTER.                                              DTSBR737
00488                                                                   DTSBR737
00489      IF WS-LINE-CNT2 > 53                                         DTSBR737
00490         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR737
00491      END-IF.                                                      DTSBR737
00492                                                                   DTSBR737
00493      MOVE WS-FOOT-REC-CNT    TO CTF-FOOT-REC-CNT.                 DTSBR737
00494      WRITE PRT-RECORD FROM CTF-LINE-4  AFTER 4.                   DTSBR737
00495      MOVE +0 TO WS-FOOT-REC-CNT.                                  DTSBR737
00496                                                                   DTSBR737
00497  P4000-EXIT.                                                      DTSBR737
00498      EXIT.                                                        DTSBR737
00499                                                                   DTSBR737
00500  T1000-TERMINATE.                                                 DTSBR737
00501                                                                   DTSBR737
00502      IF WS-LINE-CNT2 > 53                                         DTSBR737
00503         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR737
00504      END-IF.                                                      DTSBR737
00505                                                                   DTSBR737
00506      MOVE WS-FOOT-REC-CNT    TO CTF-FOOT-REC-CNT.                 DTSBR737
00507      WRITE PRT-RECORD FROM CTF-LINE-4  AFTER 3.                   DTSBR737
00508      MOVE +0 TO WS-FOOT-REC-CNT.                                  DTSBR737
00509                                                                   DTSBR737
00510      IF WS-LINE-CNT2 > 53                                         DTSBR737
00511         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR737
00512      END-IF.                                                      DTSBR737
00513                                                                   DTSBR737
00514      MOVE WS-SUM-REC-CNT    TO CFF-SUM-REC-CNT.                   DTSBR737
00515      WRITE PRT-RECORD FROM CFF-LINE-5  AFTER 5.                   DTSBR737
00516                                                                   DTSBR737
00517      CLOSE PRT-FILE.                                              DTSBR737
00518                                                                   DTSBR737
00519  T1000-EXIT.                                                      DTSBR737
00520      EXIT.                                                        DTSBR737
00521                                                                   DTSBR737
00522  S056-RATE-DISPLAY.                                               DTSBR737
00523      SKIP1                                                        DTSBR737
00524      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR737
00525                                                                   DTSBR737
00526  S056-EXIT.                                                       DTSBR737
00527      EXIT.                                                        DTSBR737
00528                                                                   DTSBR737
00529 *S999-ABEND.                                                      DTSBR737
00530 *    SKIP1                                                        DTSBR737
00531 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR737
00532 *    SKIP2                                                        DTSBR737
00533 *S999-EXIT.                                                       DTSBR737
00534 *    EXIT.                                                        DTSBR737
00535                                                                   DTSBR737
