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