00001  IDENTIFICATION DIVISION.                                         06/06/01
00002  PROGRAM-ID.             DTSBR418.                                DTSBR418
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV004
00004                          MODIFIED BY TRW S&ITG.                   DTSBR418
00005  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR418
00006  DATE-COMPILED.                                                   DTSBR418
00007      SKIP3                                                        DTSBR418
00008 *****                                                             DTSBR418
00009 *                                                                 DTSBR418
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR418
00011 *                       DTSBE417 WHICH UPDATES DTSIR418           DTSBR418
00012 *                       DTSBR418 READS DTSIR418 RECORDS.          DTSBR418
00013 *                                                                 DTSBR418
00014 *    FUNCTION:  DELINQUENT ACCOUNT NUMBER LIST.                   DTSBR418
00015 *                                                                 DTSBR418
00016 *                                                                 DTSBR418
00017 *    MODIFICATION HISTORY:                                        DTSBR418
00018 *                                                                 DTSBR418
00019 * 12-29-94 INITIAL DEVELOPMENT                                    DTSBR418
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RHC  DTSBR418
00021 *                                                                 DTSBR418
00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR418
00023 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR418
00024 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR418
00025 *                                                                 DTSBR418
00026 *                                                                 DTSBR418
00027 *    DESCRIPTION:                                                 DTSBR418
00028 *                                                                 DTSBR418
00029 *        THIS MODULE PRODUCES THE DELINQUENT ACCOUNT NUMBER LIST. DTSBR418
00030 *                                                                 DTSBR418
00031 *                                                                 DTSBR418
00032 *    RECORDS READ:                                                DTSBR418
00033 *                                                                 DTSBR418
00034 *        NONE.                                                    DTSBR418
00035 *                                                                 DTSBR418
00036 *                                                                 DTSBR418
00037 *    PRINTED OUTPUTS:                                             DTSBR418
00038 *                                                                 DTSBR418
00039 *        418R1  DELINQUENT ACCOUNT NUMBER LIST                    DTSBR418
00040 *                                                                 DTSBR418
00041 *                                                                 DTSBR418
00042 *    RECORDS WRITTEN:                                             DTSBR418
00043 *                                                                 DTSBR418
00044 *        NONE.                                                    DTSBR418
00045 *                                                                 DTSBR418
00046 *                                                                 DTSBR418
00047 *    MODULES CALLED:                                              DTSBR418
00048 *                                                                 DTSBR418
00049 *        DTSBU004  QUARTER CONVERT.                               DTSBR418
00050 *        DTSBU056  RATE FORMAT.                                   DTSBR418
00051 *                                                                 DTSBR418
00052 *                                                                 DTSBR418
00053 *****                                                             DTSBR418
00054      EJECT                                                        DTSBR418
00055  ENVIRONMENT DIVISION.                                            DTSBR418
00056                                                                   DTSBR418
00057  CONFIGURATION SECTION.                                           DTSBR418
00058  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR418
00059                                                                   DTSBR418
00060  INPUT-OUTPUT SECTION.                                            DTSBR418
00061  FILE-CONTROL.                                                    DTSBR418
00062      SELECT PRT-FILE ASSIGN TO RPT418R1.                          DTSBR418
00063                                                                   DTSBR418
00064  DATA DIVISION.                                                   DTSBR418
00065  FILE SECTION.                                                    DTSBR418
00066                                                                   DTSBR418
00067  FD  PRT-FILE                                                     DTSBR418
00068      RECORDING MODE IS F.                                         DTSBR418
00069  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR418
00070                                                                   DTSBR418
00071  WORKING-STORAGE SECTION.                                         DTSBR418
000715 77  PAN-VALET PICTURE X(24) VALUE '004DTSBR418  06/06/01'.       DTSBR418
00072                                                                   DTSBR418
00073  01  WRK-AREA.                                                    DTSBR418
00074      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +418.DTSBR418
00075      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR418
00076                                                                   DTSBR418
00077      05  WS-BLANK-PAGE               PIC  X(133) VALUE SPACES.    DTSBR418
00078      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR418
00079      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR418
00080      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR418
00081      05  WS-FOOT-NUMBER-ONE          PIC S9(05) COMP-3 VALUE +0.  DTSBR418
00082                                                                   DTSBR418
00083      05  WRK-ADDR                    PIC  X(07).                  DTSBR418
00084                                                                   DTSBR418
00085      EJECT                                                        DTSBR418
00086  01  L004-LINK-AREA.                                              DTSBR418
00087  ++INCLUDE DTSIL004                                               DTSBR418
00088      EJECT                                                        DTSBR418
00089  01  L056-LINK-AREA.                                              DTSBR418
00090  ++INCLUDE DTSIL056                                               DTSBR418
00091      EJECT                                                        DTSBR418
00092  01  PAGE-HEADING.                                                DTSBR418
00093      05  HDR1-LINE-1.                                             DTSBR418
00094          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00095          10  FILLER                  PIC  X(05)                   DTSBR418
00096                 VALUE '418R1'.                                    DTSBR418
00097          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR418
00098          10  HDR1-AGY-NAME-LINE1     PIC  X(50).                  DTSBR418
00099          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR418
00100          10  FILLER                  PIC  X(05)                   DTSBR418
00101                 VALUE 'DATE:'.                                    DTSBR418
00102          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00103          10  HDR1-SYS-DATE           PIC  X(08).                  DTSBR418
00104      05  HDR1-LINE-2.                                             DTSBR418
00105          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR418
00106          10  HDR1-AGY-NAME-LINE2     PIC  X(50).                  DTSBR418
00107          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR418
00108          10  FILLER                  PIC  X(05)                   DTSBR418
00109                 VALUE 'TIME:'.                                    DTSBR418
00110          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00111          10  HDR1-SYS-TIME           PIC  X(08).                  DTSBR418
00112      05  HDR1-LINE-3.                                             DTSBR418
00113          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00114          10  FILLER                  PIC  X(27)                   DTSBR418
00115                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR418
00116          10  FILLER                  PIC  X(90)  VALUE SPACES.    DTSBR418
00117          10  FILLER                  PIC  X(05)                   DTSBR418
00118                 VALUE 'PAGE:'.                                    DTSBR418
00119          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR418
00120          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR418
00121      05  HDR1-LINE-4.                                             DTSBR418
00122          10  FILLER                  PIC  X(51)  VALUE SPACES.    DTSBR418
00123          10  FILLER                  PIC  X(43)                   DTSBR418
00124                 VALUE 'DELINQUENT ACCOUNT NUMBER LIST'.           DTSBR418
00125      05  HDR1-LINE-5                 PIC  X(133) VALUE SPACES.    DTSBR418
00126      05  HDR1-LINE-6.                                             DTSBR418
00127          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00128          10  FILLER                  PIC  X(12)                   DTSBR418
00129                 VALUE 'SUBJECT YRQ:'.                             DTSBR418
00130          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00131          10  WRK-SUBJECT-SLASH-QTR   PIC  X(04).                  DTSBR418
00132      05  HDR1-LINE-7                 PIC  X(133) VALUE SPACES.    DTSBR418
00133      05  HDR1-LINE-8.                                             DTSBR418
00134          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR418
00135          10  FILLER                  PIC  X(08)                   DTSBR418
00136                 VALUE 'SUBJ YRQ'.                                 DTSBR418
00137          10  FILLER                  PIC  X(48)  VALUE SPACES.    DTSBR418
00138          10  FILLER                  PIC  X(07)                   DTSBR418
00139                 VALUE 'SENT TO'.                                  DTSBR418
00140      05  HDR1-LINE-9.                                             DTSBR418
00141          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00142          10  FILLER                  PIC  X(06)                   DTSBR418
00143                 VALUE 'EMP NO'.                                   DTSBR418
00144          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00145          10  FILLER                  PIC  X(08)                   DTSBR418
00146                 VALUE 'TOT RATE'.                                 DTSBR418
00147          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR418
00148          10  FILLER                  PIC  X(13)                   DTSBR418
00149                 VALUE 'PRIMARY NAME'.                             DTSBR418
00150          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR418
00151          10  FILLER                  PIC  X(08)                   DTSBR418
00152                 VALUE 'TAX ADDR'.                                 DTSBR418
00153          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR418
00154          10  FILLER                  PIC  X(04)                   DTSBR418
00155                 VALUE 'CITY'.                                     DTSBR418
00156          10  FILLER                  PIC  X(21)  VALUE SPACES.    DTSBR418
00157          10  FILLER                  PIC  X(05)                   DTSBR418
00158                 VALUE 'STATE'.                                    DTSBR418
00159          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR418
00160          10  FILLER                  PIC  X(03)                   DTSBR418
00161                 VALUE 'ZIP'.                                      DTSBR418
00162          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR418
00163          10  FILLER                  PIC  X(08)                   DTSBR418
00164                 VALUE 'FLD CODE'.                                 DTSBR418
00165                                                                   DTSBR418
00166  01  DETAIL-LINE.                                                 DTSBR418
00167      05  DTL1-LINE-3.                                             DTSBR418
00168          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00169          10  DTL1-EMP-NO             PIC  999B999.                DTSBR418
00170          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00171          10  DTL1-DISP-RATE          PIC  X(07).                  DTSBR418
00172          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR418
00173          10  DTL1-PRIMARY-NAME       PIC  X(40).                  DTSBR418
00174          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR418
00175          10  DTL1-ADDR               PIC  X(07).                  DTSBR418
00176          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR418
00177          10  DTL1-CITY               PIC  X(25).                  DTSBR418
00178          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR418
00179          10  DTL1-STATE              PIC  X(02).                  DTSBR418
00180          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR418
00181          10  DTL1-ZIP                PIC  X(10).                  DTSBR418
00182          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR418
00183          10  DTL1-FIELD-REP-ID       PIC  X(02).                  DTSBR418
00184                                                                   DTSBR418
00185      05  DTL1-LINE-5.                                             DTSBR418
00186          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR418
00187          10  FILLER                  PIC  X(20)                   DTSBR418
00188                 VALUE 'ADDITIONAL DELQ YRQ:'.                     DTSBR418
00189          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00190          10  DTL1-ADD-RPT-YRQ-1      PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00191          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00192          10  DTL1-ADD-RPT-YRQ-2      PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00193          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00194          10  DTL1-ADD-RPT-YRQ-3      PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00195          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00196          10  DTL1-ADD-RPT-YRQ-4      PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00197          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00198          10  DTL1-ADD-RPT-YRQ-5      PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00199          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00200          10  DTL1-ADD-RPT-YRQ-6      PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00201          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00202          10  DTL1-ADD-RPT-YRQ-7      PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00203          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00204          10  DTL1-ADD-RPT-YRQ-8      PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00205          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00206          10  DTL1-ADD-RPT-YRQ-9      PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00207          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00208          10  DTL1-ADD-RPT-YRQ-10     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00209          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00210          10  DTL1-ADD-RPT-YRQ-11     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00211          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00212          10  DTL1-ADD-RPT-YRQ-12     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00213          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00214          10  DTL1-ADD-RPT-YRQ-13     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00215          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00216          10  DTL1-ADD-RPT-YRQ-14     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00217          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00218          10  DTL1-ADD-RPT-YRQ-15     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00219          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00220          10  DTL1-ADD-RPT-YRQ-16     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00221          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00222          10  DTL1-ADD-RPT-YRQ-17     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00223          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00224          10  DTL1-ADD-RPT-YRQ-18     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00225          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR418
00226          10  DTL1-ADD-RPT-YRQ-19     PIC  9(03)  BLANK WHEN ZEROS.DTSBR418
00227                                                                   DTSBR418
00228  01  CONTROL-FOOTING-FINAL.                                       DTSBR418
00229      05  CTF-LINE-3.                                              DTSBR418
00230          10  FILLER                  PIC  X(15)   VALUE SPACES.   DTSBR418
00231          10  CTF-REC-CNT             PIC  ZZ,ZZ9.                 DTSBR418
00232          10  FILLER                  PIC  X(01)   VALUE SPACE.    DTSBR418
00233          10  FILLER                  PIC  X(40)                   DTSBR418
00234                 VALUE 'EMPLOYERS WITH MISSING QUARTERLY REPORTS'. DTSBR418
00235          10  FILLER                  PIC  X(11)                   DTSBR418
00236                 VALUE ' ARE LISTED'.                              DTSBR418
00237      EJECT                                                        DTSBR418
00238  LINKAGE SECTION.                                                 DTSBR418
00239      SKIP3                                                        DTSBR418
00240  01  LRCM-LINK-AREA.                                              DTSBR418
00241  ++INCLUDE DTSILRCM                                               DTSBR418
00242      EJECT                                                        DTSBR418
00243  01  R418-REC.                                                    DTSBR418
00244  ++INCLUDE DTSIR418                                               DTSBR418
00245      EJECT                                                        DTSBR418
00246  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR418
00247                           R418-REC.                               DTSBR418
00248                                                                   DTSBR418
00249      IF FIRST-TIME-IND = 'Y'                                      DTSBR418
00250          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR418
00251          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR418
00252                                                                   DTSBR418
00253      IF LRCM-EOR-88                                               DTSBR418
00254          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR418
00255      ELSE                                                         DTSBR418
00256          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR418
00257                                                                   DTSBR418
00258      GOBACK.                                                      DTSBR418
00259      EJECT                                                        DTSBR418
00260  I1000-INITIATE.                                                  DTSBR418
00261                                                                   DTSBR418
00262      MOVE R418-YRQ TO L004-QTR-5-9.                               DTSBR418
00263      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBR418
00264      MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR.                DTSBR418
00265                                                                   DTSBR418
00266      OPEN OUTPUT PRT-FILE.                                        DTSBR418
00267      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR418
00268      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR418
00269      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR418
00270      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR418
00271      MOVE SPACES TO REPORT-LISTING1.                              DTSBR418
00272                                                                   DTSBR418
00273  I1000-EXIT.                                                      DTSBR418
00274      EXIT.                                                        DTSBR418
00275                                                                   DTSBR418
00276  P1000-PROCESS.                                                   DTSBR418
00277                                                                   DTSBR418
00278      MOVE R418-TOTAL-RATE TO L056-RATE.                           DTSBR418
00279      PERFORM S056-RATE-FORMAT THRU S056-EXIT.                     DTSBR418
00280                                                                   DTSBR418
00281      IF R418-ADDRESS1-SENT-YES                                    DTSBR418
00282          IF R418-ADDRESS2-SENT-YES                                DTSBR418
00283              IF R418-ADDRESS3-SENT-YES                            DTSBR418
00284                  MOVE '1, 2, 3' TO WRK-ADDR                       DTSBR418
00285              ELSE                                                 DTSBR418
00286                  MOVE '1, 2' TO WRK-ADDR                          DTSBR418
00287          ELSE                                                     DTSBR418
00288              IF R418-ADDRESS3-SENT-YES                            DTSBR418
00289                  MOVE '1, 3' TO WRK-ADDR                          DTSBR418
00290              ELSE                                                 DTSBR418
00291                  MOVE '1' TO WRK-ADDR                             DTSBR418
00292      ELSE                                                         DTSBR418
00293          IF R418-ADDRESS2-SENT-YES                                DTSBR418
00294              IF R418-ADDRESS3-SENT-YES                            DTSBR418
00295                  MOVE '2, 3' TO WRK-ADDR                          DTSBR418
00296              ELSE                                                 DTSBR418
00297                  MOVE '2' TO WRK-ADDR                             DTSBR418
00298          ELSE                                                     DTSBR418
00299              IF R418-ADDRESS3-SENT-YES                            DTSBR418
00300                  MOVE '3' TO WRK-ADDR                             DTSBR418
00301              ELSE                                                 DTSBR418
00302                  MOVE 'XXX' TO WRK-ADDR.                          DTSBR418
00303                                                                   DTSBR418
00304      MOVE R418-EMP-NO           TO DTL1-EMP-NO.                   DTSBR418
00305      MOVE L056-DISP-RATE        TO DTL1-DISP-RATE.                DTSBR418
00306      MOVE R418-PRIMARY-NAME     TO DTL1-PRIMARY-NAME.             DTSBR418
00307      MOVE WRK-ADDR              TO DTL1-ADDR.                     DTSBR418
00308      MOVE R418-CITY             TO DTL1-CITY.                     DTSBR418
00309      MOVE R418-STATE            TO DTL1-STATE.                    DTSBR418
00310      MOVE R418-ZIP              TO DTL1-ZIP.                      DTSBR418
00311      MOVE R418-FIELD-REP-ID     TO DTL1-FIELD-REP-ID.             DTSBR418
00312      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR418
00313      WRITE REPORT-LISTING1 FROM DTL1-LINE-3 AFTER 3.              DTSBR418
00314      ADD +3    TO WS-LINE-CNT2.                                   DTSBR418
00315      ADD +1    TO WS-FOOT-NUMBER-ONE.                             DTSBR418
00316                                                                   DTSBR418
00317      IF R418-ADDITIONAL-RPT-CNT > 0                               DTSBR418
00318         MOVE R418-ADDITIONAL-RPT-YRQ (1) TO DTL1-ADD-RPT-YRQ-1    DTSBR418
00319         MOVE R418-ADDITIONAL-RPT-YRQ (2) TO DTL1-ADD-RPT-YRQ-2    DTSBR418
00320         MOVE R418-ADDITIONAL-RPT-YRQ (3) TO DTL1-ADD-RPT-YRQ-3    DTSBR418
00321         MOVE R418-ADDITIONAL-RPT-YRQ (4) TO DTL1-ADD-RPT-YRQ-4    DTSBR418
00322         MOVE R418-ADDITIONAL-RPT-YRQ (5) TO DTL1-ADD-RPT-YRQ-5    DTSBR418
00323         MOVE R418-ADDITIONAL-RPT-YRQ (6) TO DTL1-ADD-RPT-YRQ-6    DTSBR418
00324         MOVE R418-ADDITIONAL-RPT-YRQ (7) TO DTL1-ADD-RPT-YRQ-7    DTSBR418
00325         MOVE R418-ADDITIONAL-RPT-YRQ (8) TO DTL1-ADD-RPT-YRQ-8    DTSBR418
00326         MOVE R418-ADDITIONAL-RPT-YRQ (9) TO DTL1-ADD-RPT-YRQ-9    DTSBR418
00327         MOVE R418-ADDITIONAL-RPT-YRQ (10) TO DTL1-ADD-RPT-YRQ-10  DTSBR418
00328         MOVE R418-ADDITIONAL-RPT-YRQ (11) TO DTL1-ADD-RPT-YRQ-11  DTSBR418
00329         MOVE R418-ADDITIONAL-RPT-YRQ (12) TO DTL1-ADD-RPT-YRQ-12  DTSBR418
00330         MOVE R418-ADDITIONAL-RPT-YRQ (13) TO DTL1-ADD-RPT-YRQ-13  DTSBR418
00331         MOVE R418-ADDITIONAL-RPT-YRQ (14) TO DTL1-ADD-RPT-YRQ-14  DTSBR418
00332         MOVE R418-ADDITIONAL-RPT-YRQ (15) TO DTL1-ADD-RPT-YRQ-15  DTSBR418
00333         MOVE R418-ADDITIONAL-RPT-YRQ (16) TO DTL1-ADD-RPT-YRQ-16  DTSBR418
00334         MOVE R418-ADDITIONAL-RPT-YRQ (17) TO DTL1-ADD-RPT-YRQ-17  DTSBR418
00335         MOVE R418-ADDITIONAL-RPT-YRQ (18) TO DTL1-ADD-RPT-YRQ-18  DTSBR418
00336         MOVE R418-ADDITIONAL-RPT-YRQ (19) TO DTL1-ADD-RPT-YRQ-19  DTSBR418
00337         WRITE REPORT-LISTING1 FROM DTL1-LINE-5 AFTER 2            DTSBR418
00338         ADD +2  TO WS-LINE-CNT2                                   DTSBR418
00339      END-IF.                                                      DTSBR418
00340                                                                   DTSBR418
00341  P1000-EXIT.                                                      DTSBR418
00342      EXIT.                                                        DTSBR418
00343                                                                   DTSBR418
00344  P2000-PRINT-HEADER.                                              DTSBR418
00345                                                                   DTSBR418
00346      IF WS-LINE-CNT GREATER 56 OR                                 DTSBR418
00347           WS-LINE-CNT2 GREATER 56                                 DTSBR418
00348         MOVE +0          TO WS-LINE-CNT                           DTSBR418
00349         MOVE +0          TO WS-LINE-CNT2                          DTSBR418
00350         ADD  +1          TO WS-PAGE-CNT                           DTSBR418
00351         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR418
00352         WRITE REPORT-LISTING1 FROM HDR1-LINE-1                    DTSBR418
00353                 AFTER TOP-OF-PAGE                                 DTSBR418
00354         WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1            DTSBR418
00355         WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1            DTSBR418
00356         WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1            DTSBR418
00357         WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1            DTSBR418
00358         WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1            DTSBR418
00359         WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1            DTSBR418
00360         WRITE REPORT-LISTING1 FROM HDR1-LINE-8 AFTER 1            DTSBR418
00361         WRITE REPORT-LISTING1 FROM HDR1-LINE-9 AFTER 1            DTSBR418
00362         ADD +9    TO WS-LINE-CNT2.                                DTSBR418
00363                                                                   DTSBR418
00364  P2000-EXIT.                                                      DTSBR418
00365      EXIT.                                                        DTSBR418
00366                                                                   DTSBR418
00367  T1000-TERMINATE.                                                 DTSBR418
00368                                                                   DTSBR418
00369      MOVE WS-FOOT-NUMBER-ONE TO CTF-REC-CNT.                      DTSBR418
00370      WRITE REPORT-LISTING1 FROM CTF-LINE-3 AFTER 3.               DTSBR418
00371      CLOSE PRT-FILE.                                              DTSBR418
00372                                                                   DTSBR418
00373  T1000-EXIT.                                                      DTSBR418
00374      EXIT.                                                        DTSBR418
00375                                                                   DTSBR418
00376  S004-FROM-5.                                                     DTSBR418
00377                                                                   DTSBR418
00378      SET L004-FROM-5 TO TRUE.                                     DTSBR418
00379                                                                   DTSBR418
00380      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR418
00381                                                                   DTSBR418
00382  S004-EXIT.                                                       DTSBR418
00383      EXIT.                                                        DTSBR418
00384                                                                   DTSBR418
00385  S056-RATE-FORMAT.                                                DTSBR418
00386                                                                   DTSBR418
00387      SET L056-DISP2-RIGHT-PCT-88 TO TRUE.                         DTSBR418
00388                                                                   DTSBR418
00389      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR418
00390                                                                   DTSBR418
00391  S056-EXIT.                                                       DTSBR418
00392      EXIT.                                                        DTSBR418
00393                                                                   DTSBR418
00394 *S999-ABEND.                                                      DTSBR418
00395 *                                                                 DTSBR418
00396 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR418
00397 *                                                                 DTSBR418
00398 *S999-EXIT.                                                       DTSBR418
00399 *    EXIT.                                                        DTSBR418
00400                                                                   DTSBR418
