00001  IDENTIFICATION DIVISION.                                         11/29/01
00002  PROGRAM-ID.             DTSBR704.                                DTSBR704
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV027
00004  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR704
00005  DATE-COMPILED.                                                   DTSBR704
00006                                                                   DTSBR704
00007 *****                                                             DTSBR704
00008 *                                                                 DTSBR704
00009 *    FUNCTION:  SUCCESSFUL FUTA CERTIFICATIONS.                   DTSBR704
00010 *                                                                 DTSBR704
00011 *                                                                 DTSBR704
00012 *    MODIFICATION HISTORY:                                        DTSBR704
00013 *                                                                 DTSBR704
00014 * 12-06-94 INITIAL DEVELOPMENT                                    DTSBR704
00015 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR704
00016 *                                                                 DTSBR704
00017 * 11-13-97 TAX YEAR 1996 MODIFICATIONS.  FOUR DIGIT YEAR.         DTSBR704
00018 *          REFERENCE RFP #TCL 222         AUTHOR OF CHANGE - EHH  DTSBR704
00019 *                                                                 DTSBR704
00020 * 10/19/1998 ADD TWO NEW "PAYMENT" DATA ELEMENTS ('THRU 4/15'     DTSBR704
00021 *            & 'AFTER 4/15') AND FORM-INDICATOR.                  DTSBR704
00022 *            USED 'COBOL FOR MVS' COMPILE.                        DTSBR704
00023 *            REFERENCE: TCL 237                  PROGRAMMER: KDN  DTSBR704
00024 *                                                                 DTSBR704
00025 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR704
00026 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR704
00027 *            REFERENCE: XXX                      PROGRAMMER: XXX  DTSBR704
00028 *                                                                 DTSBR704
00029 *                                                                 DTSBR704
00030 *    DESCRIPTION:                                                 DTSBR704
00031 *                                                                 DTSBR704
00032 *        THIS MODULE GENERATES A DETAIL LINE FOR EVERY SUCCESSFUL DTSBR704
00033 *        MATCH BETWEEN THE IRS FORM 940 IDENTIFICATION TAPE AND   DTSBR704
00034 *        THE MONTANA TAX SYSTEM MASTER FILE DURING YEARLY FUTA    DTSBR704
00035 *        PROCESSING.                                              DTSBR704
00036 *                                                                 DTSBR704
00037 *                                                                 DTSBR704
00038 *    RECORDS READ:                                                DTSBR704
00039 *                                                                 DTSBR704
00040 *        NONE.                                                    DTSBR704
00041 *                                                                 DTSBR704
00042 *                                                                 DTSBR704
00043 *    PRINTED OUTPUTS:                                             DTSBR704
00044 *                                                                 DTSBR704
00045 *        704R1  SUCCESSFUL FUTA CERTIFICATIONS                    DTSBR704
00046 *                                                                 DTSBR704
00047 *                                                                 DTSBR704
00048 *    RECORDS WRITTEN:                                             DTSBR704
00049 *                                                                 DTSBR704
00050 *        NONE.                                                    DTSBR704
00051 *                                                                 DTSBR704
00052 *                                                                 DTSBR704
00053 *    MODULES CALLED:                                              DTSBR704
00054 *                                                                 DTSBR704
00055 *        DTSBU056 RATE DISPLAY MODULE                             DTSBR704
00056 *                                                                 DTSBR704
00057 *                                                                 DTSBR704
00058 *****                                                             DTSBR704
00059      EJECT                                                        DTSBR704
00060  ENVIRONMENT DIVISION.                                            DTSBR704
00061                                                                   DTSBR704
00062  CONFIGURATION SECTION.                                           DTSBR704
00063  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR704
00064                                                                   DTSBR704
00065  INPUT-OUTPUT SECTION.                                            DTSBR704
00066                                                                   DTSBR704
00067  FILE-CONTROL.                                                    DTSBR704
00068      SELECT PRT-FILE ASSIGN TO RPT704R1.                          DTSBR704
00069                                                                   DTSBR704
00070  DATA DIVISION.                                                   DTSBR704
00071                                                                   DTSBR704
00072  FILE SECTION.                                                    DTSBR704
00073                                                                   DTSBR704
00074  FD  PRT-FILE                                                     DTSBR704
00075      RECORDING MODE IS F.                                         DTSBR704
00076  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR704
00077                                                                   DTSBR704
00078      EJECT                                                        DTSBR704
00079  WORKING-STORAGE SECTION.                                         DTSBR704
000795 77  PAN-VALET PICTURE X(24) VALUE '027DTSBR704  11/29/01'.       DTSBR704
00080                                                                   DTSBR704
00081  01  WRK-AREA.                                                    DTSBR704
00082      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +704.DTSBR704
00083      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR704
00084      05  WS-SUB                      PIC S9(04)  COMP.            DTSBR704
00085      05  WS-NUMBER-ONE               PIC S9(05)  COMP-3 VALUE +0. DTSBR704
00086                                                                   DTSBR704
00087      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR704
00088      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR704
00089      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR704
00090                                                                   DTSBR704
00091      05  WS-WAGE-RATE-DISPLAY-TABLE.                              DTSBR704
00092          10  WS-DISPLAY-OCCURS OCCURS 4 TIMES.                    DTSBR704
00093              15  WS-TAXABLE-WAGES-DISPLAY                         DTSBR704
00094                                      PIC X(16).                   DTSBR704
00095              15  WS-TAXABLE-WAGES-EDIT                            DTSBR704
00096                     REDEFINES WS-TAXABLE-WAGES-DISPLAY            DTSBR704
00097                                      PIC ZZZZZ,ZZZ,ZZ9.99.        DTSBR704
00098              15  WS-RATE-DISPLAY     PIC  X(07).                  DTSBR704
00099      EJECT                                                        DTSBR704
00100  01  L056-LINK-AREA.                                              DTSBR704
00101  ++INCLUDE DTSIL056                                               DTSBR704
00102      EJECT                                                        DTSBR704
00103                                                                   DTSBR704
00104  01  PAGE-HEADING.                                                DTSBR704
00105      05  HDR-LINE-1.                                              DTSBR704
00106          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00107          10  FILLER                  PIC  X(05)                   DTSBR704
00108                 VALUE '704R1'.                                    DTSBR704
00109          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR704
00110          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR704
00111          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR704
00112          10  FILLER                  PIC  X(05)                   DTSBR704
00113                 VALUE 'DATE:'.                                    DTSBR704
00114          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00115          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR704
00116                                                                   DTSBR704
00117      05  HDR-LINE-2.                                              DTSBR704
00118          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR704
00119          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR704
00120          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR704
00121          10  FILLER                  PIC  X(05)                   DTSBR704
00122                 VALUE 'TIME:'.                                    DTSBR704
00123          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00124          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR704
00125                                                                   DTSBR704
00126      05  HDR-LINE-3.                                              DTSBR704
00127          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00128          10  FILLER                  PIC  X(29)                   DTSBR704
00129                 VALUE 'ROUTE TO: CHIEF, TAX DIVISION'.            DTSBR704
00130          10  FILLER                  PIC  X(89)  VALUE SPACES.    DTSBR704
00131          10  FILLER                  PIC  X(05)                   DTSBR704
00132                 VALUE 'PAGE:'.                                    DTSBR704
00133          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR704
00134          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR704
00135                                                                   DTSBR704
00136      05  HDR-LINE-4.                                              DTSBR704
00137          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR704
00138          10  FILLER                  PIC  X(20)                   DTSBR704
00139                 VALUE '                    '.                     DTSBR704
00140          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR704
00141          10  FILLER                  PIC  X(30)                   DTSBR704
00142                VALUE 'SUCCESSFUL FUTA CERTIFICATIONS'.            DTSBR704
00143                                                                   DTSBR704
00144      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR704
00145      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR704
00146      05  HDR-LINE-7.                                              DTSBR704
00147          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR704
00148          10  FILLER                  PIC  X(23)                   DTSBR704
00149                 VALUE 'DOCUMENT    TAX  CHK F '.                  DTSBR704
00150          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR704
00151          10  FILLER                  PIC  X(08)                   DTSBR704
00152                 VALUE 'PAYMENTS'.                                 DTSBR704
00153          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR704
00154          10  FILLER                  PIC  X(08)                   DTSBR704
00155                 VALUE 'PAYMENTS'.                                 DTSBR704
00156          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR704
00157          10  FILLER                  PIC  X(08)                   DTSBR704
00158                 VALUE 'PAYMENTS'.                                 DTSBR704
00159          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR704
00160          10  FILLER                  PIC  X(08)                   DTSBR704
00161                 VALUE 'PAYMENTS'.                                 DTSBR704
00162          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR704
00163          10  FILLER                  PIC  X(08)                   DTSBR704
00164                 VALUE 'PAYMENTS'.                                 DTSBR704
00165                                                                   DTSBR704
00166      05  HDR-LINE-8.                                              DTSBR704
00167          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00168          10  FILLER                  PIC  X(15)                   DTSBR704
00169                 VALUE 'EMP NO     FEIN'.                          DTSBR704
00170          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR704
00171          10  FILLER                  PIC  X(23)                   DTSBR704
00172                 VALUE 'LOCATER     PER  DIG I '.                  DTSBR704
00173          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00174          10  FILLER                  PIC  X(11)                   DTSBR704
00175                 VALUE 'PRIOR 02/01'.                              DTSBR704
00176          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR704
00177          10  FILLER                  PIC  X(11)                   DTSBR704
00178                 VALUE '02/01-02/10'.                              DTSBR704
00179          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR704
00180          10  FILLER                  PIC  X(11)                   DTSBR704
00181                 VALUE 'AFTER 02/10'.                              DTSBR704
00182          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR704
00183          10  FILLER                  PIC  X(11)                   DTSBR704
00184                 VALUE '04/15&PRIOR'.                              DTSBR704
00185          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR704
00186          10  FILLER                  PIC  X(11)                   DTSBR704
00187                 VALUE 'AFTER 04/15'.                              DTSBR704
00188          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR704
00189          10  FILLER                  PIC  X(14)                   DTSBR704
00190                 VALUE 'TAX WAGES@RATE'.                           DTSBR704
00191                                                                   DTSBR704
00192  01  DETAIL-LINE1.                                                DTSBR704
00193      05  DTL1-LINE-2.                                             DTSBR704
00194          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00195          10  DTL1-EMP-NO             PIC  999B999.                DTSBR704
00196          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR704
00197          10  DTL1-FEIN               PIC  99B9(07).               DTSBR704
00198          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00199          10  DTL1-DOC-LOC-NO         PIC  X(13).                  DTSBR704
00200          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00201          10  DTL1-TAX-YEAR           PIC  9(04).                  DTSBR704
00202          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR704
00203          10  DTL1-CHECK-DIGIT        PIC  X(02).                  DTSBR704
00204          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00205          10  DTL1-FORM-INDICATOR     PIC  X(01).                  DTSBR704
00206          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00207          10  DTL1-ONTIME             PIC  ZZZZZ,ZZ9.99.           DTSBR704
00208          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00209          10  DTL1-GRACE              PIC  ZZZZZ,ZZ9.99.           DTSBR704
00210          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00211          10  DTL1-LATE               PIC  ZZZZZ,ZZ9.99.           DTSBR704
00212          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00213          10  DTL1-ONTIME-SCHED-H     PIC  ZZZZZ,ZZ9.99.           DTSBR704
00214          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00215          10  DTL1-LATE-SCHED-H       PIC  ZZZZZ,ZZ9.99.           DTSBR704
00216          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00217          10  WS-TAXABLE-WAGES-EDIT-1 PIC  X(16).                  DTSBR704
00218          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00219          10  WS-RATE-DISPLAY-1       PIC  X(4).                   DTSBR704
00220                                                                   DTSBR704
00221  01  DETAIL-LINE2.                                                DTSBR704
00222      05  DTL2-LINE-1.                                             DTSBR704
00223          10  FILLER                  PIC  X(112) VALUE SPACES.    DTSBR704
00224          10  WS-TAXABLE-WAGES-EDIT-2 PIC  X(16).                  DTSBR704
00225          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00226          10  WS-RATE-DISPLAY-2       PIC  X(4).                   DTSBR704
00227                                                                   DTSBR704
00228  01  DETAIL-LINE3.                                                DTSBR704
00229      05  DTL3-LINE-1.                                             DTSBR704
00230          10  FILLER                  PIC  X(112) VALUE SPACES.    DTSBR704
00231          10  WS-TAXABLE-WAGES-EDIT-3 PIC  X(16).                  DTSBR704
00232          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00233          10  WS-RATE-DISPLAY-3       PIC  X(4).                   DTSBR704
00234                                                                   DTSBR704
00235  01  DETAIL-LINE4.                                                DTSBR704
00236      05  DTL4-LINE-1.                                             DTSBR704
00237          10  FILLER                  PIC  X(112) VALUE SPACES.    DTSBR704
00238          10  WS-TAXABLE-WAGES-EDIT-4 PIC  X(16).                  DTSBR704
00239          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00240          10  WS-RATE-DISPLAY-4       PIC  X(4).                   DTSBR704
00241                                                                   DTSBR704
00242  01  CONTROL-FOOTING-FINAL.                                       DTSBR704
00243      05  CFF-LINE-4.                                              DTSBR704
00244          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR704
00245          10  CFF-NUMBER-ONE          PIC  ZZZZ,ZZ9.               DTSBR704
00246          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR704
00247          10  FILLER                  PIC  X(40)                   DTSBR704
00248                 VALUE 'SUCCESSFUL FUTA CERTIFICATIONS (MATCHED '. DTSBR704
00249          10  FILLER                  PIC  X(24)                   DTSBR704
00250                 VALUE 'RECORDS RETURNED TO MCC)'.                 DTSBR704
00251      EJECT                                                        DTSBR704
00252  LINKAGE SECTION.                                                 DTSBR704
00253                                                                   DTSBR704
00254  01  LRCM-LINK-AREA.                                              DTSBR704
00255  ++INCLUDE DTSILRCM                                               DTSBR704
00256      EJECT                                                        DTSBR704
00257  01  R704-REC.                                                    DTSBR704
00258  ++INCLUDE DTSIR704                                               DTSBR704
00259      EJECT                                                        DTSBR704
00260  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR704
00261                           R704-REC.                               DTSBR704
00262                                                                   DTSBR704
00263      IF FIRST-TIME-IND = 'Y'                                      DTSBR704
00264          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR704
00265          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR704
00266                                                                   DTSBR704
00267      IF LRCM-EOR-88                                               DTSBR704
00268          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR704
00269      ELSE                                                         DTSBR704
00270          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR704
00271                                                                   DTSBR704
00272      GOBACK.                                                      DTSBR704
00273      EJECT                                                        DTSBR704
00274  I1000-INITIATE.                                                  DTSBR704
00275                                                                   DTSBR704
00276      OPEN OUTPUT PRT-FILE.                                        DTSBR704
00277      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR704
00278      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR704
00279      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR704
00280      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR704
00281      MOVE SPACES TO REPORT-LISTING1.                              DTSBR704
00282                                                                   DTSBR704
00283  I1000-EXIT.                                                      DTSBR704
00284      EXIT.                                                        DTSBR704
00285                                                                   DTSBR704
00286  P1000-PROCESS.                                                   DTSBR704
00287                                                                   DTSBR704
00288      MOVE SPACES TO WS-WAGE-RATE-DISPLAY-TABLE.                   DTSBR704
00289      PERFORM                                                      DTSBR704
00290         VARYING WS-SUB FROM +1 BY +1                              DTSBR704
00291         UNTIL WS-SUB > R704-WAGE-RATE-CNT                         DTSBR704
00292          MOVE R704-TAXABLE-WAGES (WS-SUB)                         DTSBR704
00293             TO WS-TAXABLE-WAGES-EDIT (WS-SUB)                     DTSBR704
00294          MOVE R704-RATE (WS-SUB) TO L056-RATE                     DTSBR704
00295          SET L056-DISP1-LEFT-88 TO TRUE                           DTSBR704
00296          PERFORM S056-RATE-DISPLAY THRU S056-EXIT                 DTSBR704
00297          MOVE L056-DISP-RATE TO WS-RATE-DISPLAY (WS-SUB)          DTSBR704
00298      END-PERFORM.                                                 DTSBR704
00299                                                                   DTSBR704
00300      MOVE R704-EMP-NO               TO DTL1-EMP-NO.               DTSBR704
00301      MOVE R704-FEIN                 TO DTL1-FEIN.                 DTSBR704
00302      MOVE R704-DOC-LOC-NO           TO DTL1-DOC-LOC-NO.           DTSBR704
00303      MOVE R704-TAX-YEAR             TO DTL1-TAX-YEAR.             DTSBR704
00304      MOVE R704-CHECK-DIGIT          TO DTL1-CHECK-DIGIT.          DTSBR704
00305      MOVE R704-FORM-INDICATOR       TO DTL1-FORM-INDICATOR.       DTSBR704
00306      MOVE R704-ONTIME               TO DTL1-ONTIME.               DTSBR704
00307      MOVE R704-GRACE                TO DTL1-GRACE.                DTSBR704
00308      MOVE R704-LATE                 TO DTL1-LATE.                 DTSBR704
00309      MOVE R704-ONTIME-SCHED-H       TO DTL1-ONTIME-SCHED-H.       DTSBR704
00310      MOVE R704-LATE-SCHED-H         TO DTL1-LATE-SCHED-H.         DTSBR704
00311      MOVE WS-TAXABLE-WAGES-EDIT (1) TO WS-TAXABLE-WAGES-EDIT-1.   DTSBR704
00312      MOVE WS-RATE-DISPLAY (1)       TO WS-RATE-DISPLAY-1.         DTSBR704
00313      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR704
00314      WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2.              DTSBR704
00315      ADD +1    TO WS-NUMBER-ONE.                                  DTSBR704
00316      ADD +2    TO WS-LINE-CNT2.                                   DTSBR704
00317                                                                   DTSBR704
00318      IF R704-WAGE-RATE-CNT > 1                                    DTSBR704
00319           MOVE WS-TAXABLE-WAGES-EDIT (2) TO                       DTSBR704
00320                                        WS-TAXABLE-WAGES-EDIT-2    DTSBR704
00321           MOVE WS-RATE-DISPLAY (2)       TO WS-RATE-DISPLAY-2     DTSBR704
00322           WRITE REPORT-LISTING1 FROM DTL2-LINE-1 AFTER 1          DTSBR704
00323           ADD +1    TO WS-LINE-CNT2.                              DTSBR704
00324                                                                   DTSBR704
00325      IF R704-WAGE-RATE-CNT > 2                                    DTSBR704
00326           MOVE WS-TAXABLE-WAGES-EDIT (3) TO                       DTSBR704
00327                                        WS-TAXABLE-WAGES-EDIT-3    DTSBR704
00328           MOVE WS-RATE-DISPLAY (3)       TO WS-RATE-DISPLAY-3     DTSBR704
00329           WRITE REPORT-LISTING1 FROM DTL3-LINE-1 AFTER 1          DTSBR704
00330           ADD +1    TO WS-LINE-CNT2.                              DTSBR704
00331                                                                   DTSBR704
00332      IF R704-WAGE-RATE-CNT > 3                                    DTSBR704
00333           MOVE WS-TAXABLE-WAGES-EDIT (4) TO                       DTSBR704
00334                                        WS-TAXABLE-WAGES-EDIT-4    DTSBR704
00335           MOVE WS-RATE-DISPLAY (4)       TO WS-RATE-DISPLAY-4     DTSBR704
00336           WRITE REPORT-LISTING1 FROM DTL4-LINE-1 AFTER 1          DTSBR704
00337           ADD +1    TO WS-LINE-CNT2.                              DTSBR704
00338                                                                   DTSBR704
00339  P1000-EXIT.                                                      DTSBR704
00340      EXIT.                                                        DTSBR704
00341                                                                   DTSBR704
00342  P2000-PRINT-HEADER.                                              DTSBR704
00343                                                                   DTSBR704
00344      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR704
00345           WS-LINE-CNT2 GREATER 58                                 DTSBR704
00346         MOVE +0          TO WS-LINE-CNT                           DTSBR704
00347         MOVE +0          TO WS-LINE-CNT2                          DTSBR704
00348         ADD  +1          TO WS-PAGE-CNT                           DTSBR704
00349         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR704
00350         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR704
00351                 AFTER TOP-OF-PAGE                                 DTSBR704
00352         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR704
00353         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR704
00354         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR704
00355         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR704
00356         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR704
00357         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR704
00358         WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1             DTSBR704
00359         ADD +8    TO WS-LINE-CNT2.                                DTSBR704
00360                                                                   DTSBR704
00361  P2000-EXIT.                                                      DTSBR704
00362      EXIT.                                                        DTSBR704
00363                                                                   DTSBR704
00364  T1000-TERMINATE.                                                 DTSBR704
00365                                                                   DTSBR704
00366      IF WS-LINE-CNT2 > 52                                         DTSBR704
00367         MOVE +60 TO WS-LINE-CNT2                                  DTSBR704
00368         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.               DTSBR704
00369                                                                   DTSBR704
00370      MOVE WS-NUMBER-ONE TO CFF-NUMBER-ONE.                        DTSBR704
00371      WRITE REPORT-LISTING1 FROM CFF-LINE-4 AFTER 4.               DTSBR704
00372                                                                   DTSBR704
00373      CLOSE PRT-FILE.                                              DTSBR704
00374                                                                   DTSBR704
00375  T1000-EXIT.                                                      DTSBR704
00376      EXIT.                                                        DTSBR704
00377                                                                   DTSBR704
00378  S056-RATE-DISPLAY.                                               DTSBR704
00379                                                                   DTSBR704
00380      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR704
00381                                                                   DTSBR704
00382  S056-EXIT.                                                       DTSBR704
00383      EXIT.                                                        DTSBR704
00384                                                                   DTSBR704
00385 *S999-ABEND.                                                      DTSBR704
00386 *    SKIP1                                                        DTSBR704
00387 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR704
00388 *    SKIP2                                                        DTSBR704
00389 *S999-EXIT.                                                       DTSBR704
00390 *    EXIT.                                                        DTSBR704
00391                                                                   DTSBR704
