00001  IDENTIFICATION DIVISION.                                         01/20/04
00002  PROGRAM-ID.             DTSBR454.                                DTSBR454
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV001
00004  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR454
00005  DATE-COMPILED.                                                   DTSBR454
00006      SKIP3                                                        DTSBR454
00007 *****                                                             DTSBR454
00008 *                                                                 DTSBR454
00009 *    CALLING SEQUENCE:  DTSBE453 CREATES DTSIR454 RECORDS.        DTSBR454
00010 *                       DTSBD800 CALLS DTSBR454 WHICH PRODUCES    DTSBR454
00011 *                                THE REPORT NOTICE.               DTSBR454
00012 *                                                                 DTSBR454
00013 *    FUNCTION:  DELINQUENT REPORT LIST.                           DTSBR454
00014 *                                                                 DTSBR454
00015 *                                                                 DTSBR454
00016 *    MODIFICATION HISTORY:                                        DTSBR454
00017 *                                                                 DTSBR454
00018 * 12-29-94 INITIAL DEVELOPMENT                                    DTSBR454
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RHC  DTSBR454
00020 *                                                                 DTSBR454
00021 * 04-25-95 DROP REMOVED DELINQUENT EMPLOYERS FROM R454R1.  SPLIT  DTSBR454
00022 *          OUT TOTALS BETWEEN REMOVED AND INCLUDED DELINQUENT     DTSBR454
00023 *          EMPLOYERS IN R454R2.                                   DTSBR454
00024 *          REFERENCE RFP #CR082           AUTHOR OF CHANGE - RHC  DTSBR454
00025 *                                                                 DTSBR454
00026 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR454
00027 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR454
00028 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR454
00029 *                                                                 DTSBR454
00030 *                                                                 DTSBR454
00031 *    DESCRIPTION:                                                 DTSBR454
00032 *                                                                 DTSBR454
00033 *        THIS MODULE PRODUCES THE DELINQUENT REPORT LIST.         DTSBR454
00034 *                                                                 DTSBR454
00035 *        PAGE COUNTER RESETS WHEN FIELD REP CHANGES.              DTSBR454
00036 *                                                                 DTSBR454
00037 *                                                                 DTSBR454
00038 *    RECORDS READ:                                                DTSBR454
00039 *                                                                 DTSBR454
00040 *        NONE.                                                    DTSBR454
00041 *                                                                 DTSBR454
00042 *                                                                 DTSBR454
00043 *    PRINTED OUTPUTS:                                             DTSBR454
00044 *                                                                 DTSBR454
00045 *        454R1  DELINQUENT REPORT LIST - FIELD CODE ORDER.        DTSBR454
00046 *        454R2  DELINQUENT REPORT LIST - FIELD REP SUMMARY.       DTSBR454
00047 *                                                                 DTSBR454
00048 *                                                                 DTSBR454
00049 *    RECORDS WRITTEN:                                             DTSBR454
00050 *                                                                 DTSBR454
00051 *        NONE.                                                    DTSBR454
00052 *                                                                 DTSBR454
00053 *                                                                 DTSBR454
00054 *    MODULES CALLED:                                              DTSBR454
00055 *                                                                 DTSBR454
00056 *        DTSBU001  DATE CONVERT.                                  DTSBR454
00057 *        DTSBU004  QUARTER CONVERT.                               DTSBR454
00058 *        DTSBU056  RATE FORMAT.                                   DTSBR454
00059 *        DTSBU062  FIELD REP LOOKUP.                              DTSBR454
00060 *                                                                 DTSBR454
00061 *                                                                 DTSBR454
00062 *****                                                             DTSBR454
00063      EJECT                                                        DTSBR454
00064  ENVIRONMENT DIVISION.                                            DTSBR454
00065                                                                   DTSBR454
00066  CONFIGURATION SECTION.                                           DTSBR454
00067  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR454
00068                                                                   DTSBR454
00069  INPUT-OUTPUT SECTION.                                            DTSBR454
00070  FILE-CONTROL.                                                    DTSBR454
00071      SELECT PRT-FILE-1 ASSIGN TO RPT454R1.                        DTSBR454
00072      SELECT PRT-FILE-2 ASSIGN TO RPT454R2.                        DTSBR454
00073                                                                   DTSBR454
00074  DATA DIVISION.                                                   DTSBR454
00075  FILE SECTION.                                                    DTSBR454
00076                                                                   DTSBR454
00077  FD  PRT-FILE-1                                                   DTSBR454
00078      RECORDING MODE IS F.                                         DTSBR454
00079  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR454
00080                                                                   DTSBR454
00081  FD  PRT-FILE-2                                                   DTSBR454
00082      RECORDING MODE IS F.                                         DTSBR454
00083  01  REPORT-LISTING2                 PIC  X(133).                 DTSBR454
00084                                                                   DTSBR454
00085      EJECT                                                        DTSBR454
00086  WORKING-STORAGE SECTION.                                         DTSBR454
000865 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR454  01/20/04'.       DTSBR454
00087                                                                   DTSBR454
00088  01  WRK-AREA.                                                    DTSBR454
00089      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +422.DTSBR454
00090      05  FIRST-TIME-IND              PIC  X(01)        VALUE 'Y'. DTSBR454
00091      05  WRK-CNT                     PIC S9(04)  COMP  VALUE ZERO.DTSBR454
00092      05  ODD-PAGE-BLANK              PIC S9(04)  COMP  VALUE ZERO.DTSBR454
00093      05  ZPAGE                       PIC S9(04)  COMP  VALUE ZERO.DTSBR454
00094                                                                   DTSBR454
00095      05  WS-BLANK-PAGE               PIC  X(133) VALUE SPACES.    DTSBR454
00096      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR454
00097      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR454
00098      05  WS-LINE-CNT3                PIC S9(02) COMP-3 VALUE 60.  DTSBR454
00099      05  WS-LINE-CNT4                PIC S9(02) COMP-3 VALUE +0.  DTSBR454
00100      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR454
00101      05  WS-PAGE-CNT2                PIC S9(03) COMP-3 VALUE +0.  DTSBR454
00102                                                                   DTSBR454
00103      05  WS-NUMBER-ONE               PIC S9(03) COMP-3 VALUE +0.  DTSBR454
00104      05  WS-NUMBER-TWO               PIC S9(03) COMP-3 VALUE +0.  DTSBR454
00105      05  WS-FOOT-NUMBER-ONE          PIC S9(05) COMP-3 VALUE +0.  DTSBR454
00106      05  WS-FOOT-NUMBER-TWO          PIC S9(05) COMP-3 VALUE +0.  DTSBR454
00107                                                                   DTSBR454
00108      05  WS-DTLR-DTLI-CNT1           PIC S9(05) COMP-3 VALUE +0.  DTSBR454
00109      05  WS-DTLR-CNT1                PIC S9(05) COMP-3 VALUE +0.  DTSBR454
00110      05  WS-DTLI-CNT1                PIC S9(05) COMP-3 VALUE +0.  DTSBR454
00111      05  WS-DTLR-DTLI-CNT2           PIC S9(05) COMP-3 VALUE +0.  DTSBR454
00112      05  WS-DTLR-CNT2                PIC S9(05) COMP-3 VALUE +0.  DTSBR454
00113      05  WS-DTLI-CNT2                PIC S9(05) COMP-3 VALUE +0.  DTSBR454
00114      05  DTL1-BLANK-LINE             PIC X(133) VALUE SPACES.     DTSBR454
00115                                                                   DTSBR454
00116      05  WRK-PAGE-TRUNCATE           PIC  9(01).                  DTSBR454
00117          88  WRK-ODD-PAGE-88             VALUE 1 3 5 7 9.         DTSBR454
00118                                                                   DTSBR454
00119      05  WRK-FIELD-ZIP               PIC  X(05).                  DTSBR454
00120                                                                   DTSBR454
00121      05  WRK-FLD-REP-ID-NAME.                                     DTSBR454
00122          10  WRK-FLD-REP-ID          PIC  X(02).                  DTSBR454
00123          10  WRK-FLD-REP-NAME        PIC  X(32).                  DTSBR454
00124                                                                   DTSBR454
00125      05  WRK-VOICE OCCURS 3 TIMES.                                DTSBR454
00126          10  WRK-VOICE-LEFT          PIC  X(01).                  DTSBR454
00127          10  WRK-VOICE-AREA-CD       PIC  X(03).                  DTSBR454
00128          10  WRK-VOICE-RIGHT         PIC  X(02).                  DTSBR454
00129          10  WRK-VOICE-PREFIX        PIC  X(03).                  DTSBR454
00130          10  WRK-VOICE-DASH          PIC  X(01).                  DTSBR454
00131          10  WRK-VOICE-SUFFIX        PIC  X(04).                  DTSBR454
00132                                                                   DTSBR454
00133      05  WRK-INACTIVE-DATE           PIC  X(08).                  DTSBR454
00134                                                                   DTSBR454
00135      05  WRK-RATE                    PIC  X(07).                  DTSBR454
00136                                                                   DTSBR454
00137      05  WRK-ADDR1-CSZ.                                           DTSBR454
00138          10  WRK-ADDR1-CITY          PIC  X(26).                  DTSBR454
00139          10  WRK-ADDR1-STATE         PIC  X(04).                  DTSBR454
00140          10  WRK-ADDR1-ZIP           PIC  X(10).                  DTSBR454
00141      05  WRK-ADDR2-CSZ.                                           DTSBR454
00142          10  WRK-ADDR2-CITY          PIC  X(26).                  DTSBR454
00143          10  WRK-ADDR2-STATE         PIC  X(04).                  DTSBR454
00144          10  WRK-ADDR2-ZIP           PIC  X(10).                  DTSBR454
00145                                                                   DTSBR454
00146      05  WRK-AMT                     PIC S9(09)V9(02) COMP-3.     DTSBR454
00147                                                                   DTSBR454
00148      05  WRK-ADDNL-YRQ-TBL.                                       DTSBR454
00149          10  WRK-ADDNL-YRQ OCCURS 19 TIMES.                       DTSBR454
00150              15  WRK-ADDNL-YRQ-9         PIC  9(03).              DTSBR454
00151      EJECT                                                        DTSBR454
00152  01  L001-LINK-AREA.                                              DTSBR454
00153  ++INCLUDE DTSIL001                                               DTSBR454
00154      EJECT                                                        DTSBR454
00155  01  L004-LINK-AREA.                                              DTSBR454
00156  ++INCLUDE DTSIL004                                               DTSBR454
00157      EJECT                                                        DTSBR454
00158  01  L056-LINK-AREA.                                              DTSBR454
00159  ++INCLUDE DTSIL056                                               DTSBR454
00160      EJECT                                                        DTSBR454
00161  01  L062-LINK-AREA.                                              DTSBR454
00162  ++INCLUDE DTSIL062                                               DTSBR454
00163      EJECT                                                        DTSBR454
00164  01  RPT1-HDG.                                                    DTSBR454
00165      05  HDR1-LINE-1.                                             DTSBR454
00166          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00167          10  FILLER                      PIC  X(05)               DTSBR454
00168                 VALUE '454R1'.                                    DTSBR454
00169          10  FILLER                      PIC  X(35)  VALUE SPACES.DTSBR454
00170          10  HDR1-AGY-NAME-LINE1         PIC  X(50).              DTSBR454
00171          10  FILLER                      PIC  X(27)  VALUE SPACES.DTSBR454
00172          10  FILLER                      PIC  X(05)               DTSBR454
00173                 VALUE 'DATE:'.                                    DTSBR454
00174          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00175          10  HDR1-SYS-DATE               PIC  X(08).              DTSBR454
00176      05  HDR1-LINE-2.                                             DTSBR454
00177          10  FILLER                      PIC  X(41)  VALUE SPACES.DTSBR454
00178          10  HDR1-AGY-NAME-LINE2         PIC  X(50).              DTSBR454
00179          10  FILLER                      PIC  X(27)  VALUE SPACES.DTSBR454
00180          10  FILLER                      PIC  X(05)               DTSBR454
00181                 VALUE 'TIME:'.                                    DTSBR454
00182          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00183          10  HDR1-SYS-TIME               PIC  X(08).              DTSBR454
00184      05  HDR1-LINE-3.                                             DTSBR454
00185          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00186          10  FILLER                      PIC  X(27)               DTSBR454
00187                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR454
00188          10  FILLER                      PIC  X(90)  VALUE SPACES.DTSBR454
00189          10  FILLER                      PIC  X(05)               DTSBR454
00190                 VALUE 'PAGE:'.                                    DTSBR454
00191          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR454
00192          10  HDR1-PAGE-CNT               PIC  ZZ,ZZ9.             DTSBR454
00193      05  HDR1-LINE-4.                                             DTSBR454
00194          10  FILLER                      PIC  X(51)  VALUE SPACES.DTSBR454
00195          10  FILLER                      PIC  X(29)               DTSBR454
00196                 VALUE 'ANNUAL DELINQUENT REPORT LIST'.            DTSBR454
00197      05  HDR1-LINE-5                     PIC  X(133) VALUE SPACES.DTSBR454
00198      05  HDR1-LINE-6.                                             DTSBR454
00199          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR454
00200          10  FILLER                      PIC  X(13)               DTSBR454
00201                 VALUE 'SUBJECT YEAR:'.                            DTSBR454
00202          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00203 *        10  HDR1-SUBJECT-QTR            PIC  X(04).              DTSBR454
00204          10  HDR1-SUBJECT-YEAR           PIC  X(04).              DTSBR454
00205          10  FILLER                      PIC  X(35)  VALUE SPACES.DTSBR454
00206          10  FILLER                      PIC  X(16)               DTSBR454
00207                 VALUE 'FIELD CODE ORDER'.                         DTSBR454
00208      05  HDR1-LINE-7.                                             DTSBR454
00209          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00210          10  FILLER                      PIC  X(17)               DTSBR454
00211                 VALUE 'COMPUTATION DATE:'.                        DTSBR454
00212          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00213          10  HDR1-COMPUTATION-DATE       PIC  X(08).              DTSBR454
00214      05  HDR1-LINE-8                     PIC  X(133) VALUE SPACES.DTSBR454
00215      05  HDR1-LINE-9.                                             DTSBR454
00216          10  FILLER                      PIC  X(09)  VALUE SPACES.DTSBR454
00217          10  FILLER                      PIC  X(08)               DTSBR454
00218                 VALUE 'FLD REP:'.                                 DTSBR454
00219          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR454
00220          10  HDR1-FLD-REP-ID             PIC  X(02).              DTSBR454
00221          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR454
00222          10  HDR1-FLD-REP-NAME           PIC  X(32).              DTSBR454
00223      05  HDR1-LINE-10                    PIC  X(133) VALUE SPACES.DTSBR454
00224      05  HDR1-LINE-11.                                            DTSBR454
00225          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00226          10  FILLER                      PIC  X(05)               DTSBR454
00227                 VALUE 'FIELD'.                                    DTSBR454
00228          10  FILLER                      PIC  X(94)  VALUE SPACES.DTSBR454
00229          10  FILLER                      PIC  X(13)               DTSBR454
00230                 VALUE 'ADDRESS PHONE'.                            DTSBR454
00231          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR454
00232          10  FILLER                      PIC  X(08)               DTSBR454
00233                 VALUE 'INACTIVE'.                                 DTSBR454
00234          10  FILLER                      PIC  X(04)  VALUE SPACES.DTSBR454
00235          10  FILLER                      PIC  X(03)               DTSBR454
00236                 VALUE 'TOT'.                                      DTSBR454
00237      05  HDR1-LINE-12.                                            DTSBR454
00238          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR454
00239          10  FILLER                      PIC  X(03)               DTSBR454
00240                 VALUE 'ZIP'.                                      DTSBR454
00241          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR454
00242          10  FILLER                      PIC  X(06)               DTSBR454
00243                 VALUE 'EMP NO'.                                   DTSBR454
00244          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR454
00245          10  FILLER                      PIC  X(27)               DTSBR454
00246                 VALUE 'PRIMARY NAME/OPO NAMES 1-6'.               DTSBR454
00247          10  FILLER                      PIC  X(13)  VALUE SPACES.DTSBR454
00248          10  FILLER                      PIC  X(24)               DTSBR454
00249                 VALUE 'MAIL/DC LOCATION ADDRESS'.                 DTSBR454
00250          10  FILLER                      PIC  X(18)  VALUE SPACES.DTSBR454
00251          10  FILLER                      PIC  X(13)               DTSBR454
00252                 VALUE '   NUMBERS   '.                            DTSBR454
00253          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR454
00254          10  FILLER                      PIC  X(05)               DTSBR454
00255                 VALUE 'DATE'.                                     DTSBR454
00256          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR454
00257          10  FILLER                      PIC  X(04)               DTSBR454
00258                 VALUE 'RATE'.                                     DTSBR454
00259      05  HDR1-LINE-13                    PIC  X(133) VALUE SPACES.DTSBR454
00260                                                                   DTSBR454
00261  01  DETAIL-LINE-1.                                               DTSBR454
00262      05  DTL1-LINE-5.                                             DTSBR454
00263          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00264          10  DTL1-FIELD-ZIP              PIC  X(05).              DTSBR454
00265          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00266          10  DTL1-EMP-NO                 PIC  999B999.            DTSBR454
00267          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00268          10  DTL1-PRIMARY-NAME           PIC  X(40).              DTSBR454
00269          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR454
00270          10  DTL1-ADDR1-ATTN-LINE        PIC  X(40).              DTSBR454
00271          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR454
00272          10  DTL1-VOICE-1                PIC  X(14).              DTSBR454
00273          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR454
00274          10  DTL1-INACTIVE-DATE          PIC  X(08).              DTSBR454
00275          10  FILLER                      PIC  X(02)  VALUE SPACE. DTSBR454
00276          10  DTL1-RATE                   PIC  X(07).              DTSBR454
00277      05  DTL1-LINE-6.                                             DTSBR454
00278          10  FILLER                      PIC  X(16)  VALUE SPACES.DTSBR454
00279          10  DTL1-OPO-NAME-1             PIC  X(32).              DTSBR454
00280          10  FILLER                      PIC  X(09)  VALUE SPACES.DTSBR454
00281          10  DTL1-ADDR1-DELIV-LINE-2     PIC  X(40).              DTSBR454
00282          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR454
00283          10  DTL1-VOICE-2                PIC  X(14).              DTSBR454
00284          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR454
00285          10  FILLER                      PIC  X(15)               DTSBR454
00286                 VALUE 'TOT DUE/CREDIT:'.                          DTSBR454
00287      05  DTL1-LINE-7.                                             DTSBR454
00288          10  FILLER                      PIC  X(16)  VALUE SPACES.DTSBR454
00289          10  DTL1-OPO-NAME-2             PIC  X(32).              DTSBR454
00290          10  FILLER                      PIC  X(09)  VALUE SPACES.DTSBR454
00291          10  DTL1-ADDR1-CSZ              PIC  X(40).              DTSBR454
00292          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR454
00293          10  DTL1-VOICE-3                PIC  X(14).              DTSBR454
00294          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR454
00295          10  DTL1-AMT                    PIC  ZZ,ZZZ,ZZ9.99-.     DTSBR454
00296      05  DTL1-LINE-8.                                             DTSBR454
00297          10  FILLER                      PIC  X(16)  VALUE SPACES.DTSBR454
00298          10  DTL1-OPO-NAME-3             PIC  X(32).              DTSBR454
00299      05  DTL1-LINE-9.                                             DTSBR454
00300          10  FILLER                      PIC  X(16)  VALUE SPACES.DTSBR454
00301          10  DTL1-OPO-NAME-4             PIC  X(32).              DTSBR454
00302          10  FILLER                      PIC  X(09)  VALUE SPACES.DTSBR454
00303          10  DTL1-ADDR2-ATTN-LINE        PIC  X(40).              DTSBR454
00304          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR454
00305          10  DTL1-DELQ-YRQS              PIC  X(16)               DTSBR454
00306                 VALUE 'OTHER DELQ YRQS:'.                         DTSBR454
00307          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00308          10  DTL1-YRQ-1                  PIC  X(03).              DTSBR454
00309          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00310          10  DTL1-YRQ-2                  PIC  X(03).              DTSBR454
00311          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00312          10  DTL1-YRQ-3                  PIC  X(03).              DTSBR454
00313          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00314          10  DTL1-YRQ-4                  PIC  X(03).              DTSBR454
00315                                                                   DTSBR454
00316      05  DTL1-LINE-10.                                            DTSBR454
00317          10  FILLER                      PIC  X(16)  VALUE SPACES.DTSBR454
00318          10  DTL1-OPO-NAME-5             PIC  X(32).              DTSBR454
00319          10  FILLER                      PIC  X(09)  VALUE SPACES.DTSBR454
00320          10  DTL1-ADDR2-DELIV-LINE-2     PIC  X(40).              DTSBR454
00321          10  FILLER                      PIC  X(03)  VALUE SPACE. DTSBR454
00322          10  DTL1-YRQ-5                  PIC  X(03).              DTSBR454
00323          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00324          10  DTL1-YRQ-6                  PIC  X(03).              DTSBR454
00325          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00326          10  DTL1-YRQ-7                  PIC  X(03).              DTSBR454
00327          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00328          10  DTL1-YRQ-8                  PIC  X(03).              DTSBR454
00329          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00330          10  DTL1-YRQ-9                  PIC  X(03).              DTSBR454
00331          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00332          10  DTL1-YRQ-10                 PIC  X(03).              DTSBR454
00333          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00334          10  DTL1-YRQ-11                 PIC  X(03).              DTSBR454
00335          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00336          10  DTL1-YRQ-12                 PIC  X(03).              DTSBR454
00337                                                                   DTSBR454
00338      05  DTL1-LINE-11.                                            DTSBR454
00339          10  FILLER                      PIC  X(16)  VALUE SPACES.DTSBR454
00340          10  DTL1-OPO-NAME-6             PIC  X(32).              DTSBR454
00341          10  FILLER                      PIC  X(09)  VALUE SPACES.DTSBR454
00342          10  DTL1-ADDR2-CSZ              PIC  X(40).              DTSBR454
00343          10  FILLER                      PIC  X(03)  VALUE SPACE. DTSBR454
00344          10  DTL1-YRQ-13                 PIC  X(03).              DTSBR454
00345          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00346          10  DTL1-YRQ-14                 PIC  X(03).              DTSBR454
00347          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00348          10  DTL1-YRQ-15                 PIC  X(03).              DTSBR454
00349          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00350          10  DTL1-YRQ-16                 PIC  X(03).              DTSBR454
00351          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00352          10  DTL1-YRQ-17                 PIC  X(03).              DTSBR454
00353          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00354          10  DTL1-YRQ-18                 PIC  X(03).              DTSBR454
00355          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00356          10  DTL1-YRQ-19                 PIC  X(03).              DTSBR454
00357                                                                   DTSBR454
00358  01  CONTROL-FOOTING1.                                            DTSBR454
00359      05  CTF1-LINE-5.                                             DTSBR454
00360          10  FILLER                      PIC  X(28)  VALUE SPACES.DTSBR454
00361          10  CTF1-NUMBER-ONE             PIC  ZZ,ZZ9.             DTSBR454
00362          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00363          10  FILLER                      PIC  X(33)               DTSBR454
00364                 VALUE 'DELINQUENT EMPLOYERS FOR ZIP CODE'.        DTSBR454
00365          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00366          10  CTF1-FIELD-ZIP              PIC  X(05).              DTSBR454
00367                                                                   DTSBR454
00368  01  CONTROL-FOOTING2.                                            DTSBR454
00369      05  CTF2-LINE-2.                                             DTSBR454
00370          10  FILLER                      PIC  X(28)  VALUE SPACES.DTSBR454
00371          10  CTF2-NUMBER-TWO             PIC  ZZ,ZZ9.             DTSBR454
00372          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00373          10  FILLER                      PIC  X(35)               DTSBR454
00374                 VALUE 'DELINQUENT EMPLOYERS FOR FIELD CODE'.      DTSBR454
00375          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00376          10  CTF2-FLD-REP-ID             PIC  X(02).              DTSBR454
00377                                                                   DTSBR454
00378  01  PAGE-HEADING2.                                               DTSBR454
00379      05  HDR2-LINE-1.                                             DTSBR454
00380          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00381          10  FILLER                      PIC  X(05)               DTSBR454
00382                 VALUE '454R2'.                                    DTSBR454
00383          10  FILLER                      PIC  X(35)  VALUE SPACES.DTSBR454
00384          10  HDR2-AGY-NAME-LINE1         PIC  X(50).              DTSBR454
00385          10  FILLER                      PIC  X(27)  VALUE SPACES.DTSBR454
00386          10  FILLER                      PIC  X(05)               DTSBR454
00387                 VALUE 'DATE:'.                                    DTSBR454
00388          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00389          10  HDR2-SYS-DATE               PIC  X(08).              DTSBR454
00390      05  HDR2-LINE-2.                                             DTSBR454
00391          10  FILLER                      PIC  X(41)  VALUE SPACES.DTSBR454
00392          10  HDR2-AGY-NAME-LINE2         PIC  X(50).              DTSBR454
00393          10  FILLER                      PIC  X(27)  VALUE SPACES.DTSBR454
00394          10  FILLER                      PIC  X(05)               DTSBR454
00395                 VALUE 'TIME:'.                                    DTSBR454
00396          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00397          10  HDR2-SYS-TIME               PIC  X(08).              DTSBR454
00398      05  HDR2-LINE-3.                                             DTSBR454
00399          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00400          10  FILLER                      PIC  X(27)               DTSBR454
00401                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR454
00402          10  FILLER                      PIC  X(90)  VALUE SPACES.DTSBR454
00403          10  FILLER                      PIC  X(05)               DTSBR454
00404                 VALUE 'PAGE:'.                                    DTSBR454
00405          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR454
00406          10  HDR2-PAGE-CNT               PIC  ZZ,ZZ9.             DTSBR454
00407      05  HDR2-LINE-4.                                             DTSBR454
00408          10  FILLER                      PIC  X(51)  VALUE SPACES.DTSBR454
00409          10  FILLER                      PIC  X(29)               DTSBR454
00410                 VALUE 'ANNUAL DELINQUENT REPORT LIST'.            DTSBR454
00411      05  HDR2-LINE-5                     PIC  X(133) VALUE SPACES.DTSBR454
00412      05  HDR2-LINE-6.                                             DTSBR454
00413          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR454
00414          10  FILLER                      PIC  X(13)               DTSBR454
00415                 VALUE 'SUBJECT YEAR:'.                            DTSBR454
00416          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00417 *        10  HDR2-SUBJECT-QTR            PIC  X(04).              DTSBR454
00418          10  HDR2-SUBJECT-YEAR           PIC  X(04).              DTSBR454
00419          10  FILLER                      PIC  X(35)  VALUE SPACES.DTSBR454
00420          10  FILLER                      PIC  X(17)               DTSBR454
00421                 VALUE 'FIELD REP SUMMARY'.                        DTSBR454
00422      05  HDR2-LINE-7.                                             DTSBR454
00423          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00424          10  FILLER                      PIC  X(17)               DTSBR454
00425                 VALUE 'COMPUTATION DATE:'.                        DTSBR454
00426          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00427          10  HDR2-COMPUTATION-DATE       PIC  X(08).              DTSBR454
00428      05  HDR2-LINE-8                     PIC  X(133) VALUE SPACES.DTSBR454
00429      05  HDR2-LINE-9.                                             DTSBR454
00430          10  FILLER                      PIC  X(53)  VALUE SPACES.DTSBR454
00431          10  FILLER                      PIC  X(20)               DTSBR454
00432                 VALUE '        TOTAL       '.                     DTSBR454
00433          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR454
00434          10  FILLER                      PIC  X(20)               DTSBR454
00435                 VALUE '       REMOVED      '.                     DTSBR454
00436          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR454
00437          10  FILLER                      PIC  X(20)               DTSBR454
00438                 VALUE '      INCLUDED      '.                     DTSBR454
00439      05  HDR2-LINE-10.                                            DTSBR454
00440          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR454
00441          10  FILLER                      PIC  X(10)               DTSBR454
00442                 VALUE 'FIELD CODE'.                               DTSBR454
00443          10  FILLER                      PIC  X(05).              DTSBR454
00444          10  FILLER                      PIC  X(14)               DTSBR454
00445                 VALUE 'FIELD REP NAME'.                           DTSBR454
00446          10  FILLER                      PIC  X(23).              DTSBR454
00447          10  FILLER                      PIC  X(20)               DTSBR454
00448                 VALUE 'DELINQUENT EMPLOYERS'.                     DTSBR454
00449          10  FILLER                      PIC  X(05).              DTSBR454
00450          10  FILLER                      PIC  X(20)               DTSBR454
00451                 VALUE 'DELINQUENT EMPLOYERS'.                     DTSBR454
00452          10  FILLER                      PIC  X(05).              DTSBR454
00453          10  FILLER                      PIC  X(20)               DTSBR454
00454                 VALUE 'DELINQUENT EMPLOYERS'.                     DTSBR454
00455                                                                   DTSBR454
00456  01  CONTROL-FOOTING3.                                            DTSBR454
00457      05  CTF3-LINE-2.                                             DTSBR454
00458          10  FILLER                      PIC  X(04)  VALUE SPACES.DTSBR454
00459          10  CTF3-FLD-REP-ID             PIC  X(02).              DTSBR454
00460          10  FILLER                      PIC  X(10)  VALUE SPACES.DTSBR454
00461          10  CTF3-FLD-REP-NAME           PIC  X(32).              DTSBR454
00462          10  FILLER                      PIC  X(12)  VALUE SPACES.DTSBR454
00463          10  CTF3-DTLR-DTLI-CNT          PIC  ZZ,ZZ9.             DTSBR454
00464          10  FILLER                      PIC  X(19)  VALUE SPACES.DTSBR454
00465          10  CTF3-DTLR-CNT               PIC  ZZ,ZZ9.             DTSBR454
00466          10  FILLER                      PIC  X(19)  VALUE SPACES.DTSBR454
00467          10  CTF3-DTLI-CNT               PIC  ZZ,ZZ9.             DTSBR454
00468                                                                   DTSBR454
00469  01  CONTROL-FOOTING-FINAL.                                       DTSBR454
00470      05  CFF-LINE-3.                                              DTSBR454
00471          10  FILLER                      PIC  X(59)  VALUE SPACES.DTSBR454
00472          10  FILLER                      PIC  X(08)               DTSBR454
00473                 VALUE '--------'.                                 DTSBR454
00474          10  FILLER                      PIC  X(17)  VALUE SPACES.DTSBR454
00475          10  FILLER                      PIC  X(08)               DTSBR454
00476                 VALUE '--------'.                                 DTSBR454
00477          10  FILLER                      PIC  X(17)  VALUE SPACES.DTSBR454
00478          10  FILLER                      PIC  X(08)               DTSBR454
00479                 VALUE '--------'.                                 DTSBR454
00480      05  CFF-LINE-4.                                              DTSBR454
00481          10  FILLER                      PIC  X(39)  VALUE SPACES.DTSBR454
00482          10  FILLER                      PIC  X(13)               DTSBR454
00483                 VALUE 'REPORT TOTALS'.                            DTSBR454
00484          10  FILLER                      PIC  X(08)  VALUE SPACES.DTSBR454
00485          10  CFF-DTLR-DTLI-CNT           PIC  ZZ,ZZ9.             DTSBR454
00486          10  FILLER                      PIC  X(19)  VALUE SPACES.DTSBR454
00487          10  CFF-DTLR-CNT                PIC  ZZ,ZZ9.             DTSBR454
00488          10  FILLER                      PIC  X(19)  VALUE SPACES.DTSBR454
00489          10  CFF-DTLI-CNT                PIC  ZZ,ZZ9.             DTSBR454
00490      EJECT                                                        DTSBR454
00491  LINKAGE SECTION.                                                 DTSBR454
00492      SKIP3                                                        DTSBR454
00493  01  LRCM-LINK-AREA.                                              DTSBR454
00494  ++INCLUDE DTSILRCM                                               DTSBR454
00495      EJECT                                                        DTSBR454
00496  01  R454-REC.                                                    DTSBR454
00497  ++INCLUDE DTSIR454                                               DTSBR454
00498      EJECT                                                        DTSBR454
00499  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR454
00500                           R454-REC.                               DTSBR454
00501                                                                   DTSBR454
00502      IF FIRST-TIME-IND = 'Y'                                      DTSBR454
00503          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR454
00504          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR454
00505                                                                   DTSBR454
00506      IF LRCM-EOR-88                                               DTSBR454
00507          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR454
00508      ELSE                                                         DTSBR454
00509          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR454
00510      SKIP3                                                        DTSBR454
00511      GOBACK.                                                      DTSBR454
00512      EJECT                                                        DTSBR454
00513  I1000-INITIATE.                                                  DTSBR454
00514                                                                   DTSBR454
00515      MOVE R454-YRQ TO L004-QTR-5-9.                               DTSBR454
00516      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBR454
00517 *    MOVE L004-SLASH-QTR TO HDR1-SUBJECT-QTR HDR2-SUBJECT-QTR.    DTSBR454
00518      MOVE L004-QTR-5-YR TO HDR1-SUBJECT-YEAR HDR2-SUBJECT-YEAR.   DTSBR454
00519                                                                   DTSBR454
00520      MOVE R454-COMPUTATION-DATE TO L001-FED-8-DATE-9.             DTSBR454
00521      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR454
00522      MOVE L001-SLASH-DATE TO HDR1-COMPUTATION-DATE                DTSBR454
00523                              HDR2-COMPUTATION-DATE.               DTSBR454
00524                                                                   DTSBR454
00525      OPEN OUTPUT PRT-FILE-1                                       DTSBR454
00526                  PRT-FILE-2.                                      DTSBR454
00527                                                                   DTSBR454
00528      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR454
00529      MOVE LRCM-SYS-DATE TO HDR2-SYS-DATE.                         DTSBR454
00530      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR454
00531      MOVE LRCM-SYS-TIME TO HDR2-SYS-TIME.                         DTSBR454
00532      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR454
00533      MOVE LRCM-AGY-NAME-LINE1 TO HDR2-AGY-NAME-LINE1.             DTSBR454
00534      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR454
00535      MOVE LRCM-AGY-NAME-LINE2 TO HDR2-AGY-NAME-LINE2.             DTSBR454
00536      MOVE SPACES TO REPORT-LISTING1 REPORT-LISTING2.              DTSBR454
00537                                                                   DTSBR454
00538  I1000-EXIT.                                                      DTSBR454
00539      EXIT.                                                        DTSBR454
00540      EJECT                                                        DTSBR454
00541  P1000-PROCESS.                                                   DTSBR454
00542                                                                   DTSBR454
00543      IF R454-FIELD-REP-ID NOT = WRK-FLD-REP-ID                    DTSBR454
00544          PERFORM S1000-FIELD-REP-ID-BREAK THRU S1000-EXIT         DTSBR454
00545                                                                   DTSBR454
00546          IF WS-NUMBER-TWO = +0                                    DTSBR454
00547             MOVE +99 TO WS-NUMBER-TWO                             DTSBR454
00548          ELSE                                                     DTSBR454
00549             PERFORM  P6000-PRINT-FOOTER THRU P6000-EXIT           DTSBR454
00550             MOVE +60 TO WS-LINE-CNT2                              DTSBR454
00551             MOVE +0  TO WS-NUMBER-ONE                             DTSBR454
00552             PERFORM  P7000-PRINT-FOOTER THRU P7000-EXIT           DTSBR454
00553          END-IF                                                   DTSBR454
00554      END-IF.                                                      DTSBR454
00555                                                                   DTSBR454
00556      IF R454-SUSPEND-COLL-YES-88                                  DTSBR454
00557          ADD +1    TO WS-DTLR-CNT1                                DTSBR454
00558          ADD +1    TO WS-DTLR-CNT2                                DTSBR454
00559          GO TO P1000-EXIT.                                        DTSBR454
00560                                                                   DTSBR454
00561                                                                   DTSBR454
00562      IF R454-FIELD-ZIP  NOT = WRK-FIELD-ZIP                       DTSBR454
00563          MOVE R454-FIELD-ZIP TO WRK-FIELD-ZIP                     DTSBR454
00564 *                                                                 DTSBR454
00565          IF WS-NUMBER-ONE = +0                                    DTSBR454
00566             MOVE +99 TO WS-NUMBER-ONE                             DTSBR454
00567          ELSE                                                     DTSBR454
00568             PERFORM  P5000-PRINT-FOOTER THRU P5000-EXIT           DTSBR454
00569             MOVE +60 TO WS-LINE-CNT2                              DTSBR454
00570          END-IF                                                   DTSBR454
00571      END-IF.                                                      DTSBR454
00572 *                                                                 DTSBR454
00573                                                                   DTSBR454
00574      PERFORM VARYING WRK-CNT FROM 1 BY 1                          DTSBR454
00575              UNTIL   WRK-CNT > 3                                  DTSBR454
00576          IF R454-EMPLOYER-VOICE (WRK-CNT) = SPACE                 DTSBR454
00577              MOVE SPACE TO WRK-VOICE (WRK-CNT)                    DTSBR454
00578          ELSE                                                     DTSBR454
00579              MOVE '('                                             DTSBR454
00580                TO WRK-VOICE-LEFT     (WRK-CNT)                    DTSBR454
00581              MOVE R454-VOICE-AREA-CD (WRK-CNT)                    DTSBR454
00582                TO WRK-VOICE-AREA-CD  (WRK-CNT)                    DTSBR454
00583              MOVE ') '                                            DTSBR454
00584                TO WRK-VOICE-RIGHT    (WRK-CNT)                    DTSBR454
00585              MOVE R454-VOICE-PREFIX  (WRK-CNT)                    DTSBR454
00586                TO WRK-VOICE-PREFIX   (WRK-CNT)                    DTSBR454
00587              MOVE '-'                                             DTSBR454
00588                TO WRK-VOICE-DASH     (WRK-CNT)                    DTSBR454
00589              MOVE R454-VOICE-SUFFIX  (WRK-CNT)                    DTSBR454
00590                TO WRK-VOICE-SUFFIX   (WRK-CNT)                    DTSBR454
00591          END-IF                                                   DTSBR454
00592      END-PERFORM.                                                 DTSBR454
00593                                                                   DTSBR454
00594      MOVE R454-INACT-DATE TO L001-FED-8-DATE-9.                   DTSBR454
00595      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR454
00596      IF L001-VALID-DATE                                           DTSBR454
00597          MOVE L001-SLASH-DATE TO WRK-INACTIVE-DATE                DTSBR454
00598      ELSE                                                         DTSBR454
00599          MOVE ' ACTIVE '      TO WRK-INACTIVE-DATE.               DTSBR454
00600                                                                   DTSBR454
00601      MOVE R454-TOTAL-RATE TO L056-RATE.                           DTSBR454
00602      PERFORM S056-RATE-FORMAT THRU S056-EXIT.                     DTSBR454
00603      MOVE L056-DISP-RATE TO WRK-RATE.                             DTSBR454
00604                                                                   DTSBR454
00605      IF R454-BALANCE-AMT > 0                                      DTSBR454
00606          MOVE R454-BALANCE-AMT TO WRK-AMT                         DTSBR454
00607      ELSE                                                         DTSBR454
00608          MULTIPLY R454-CREDIT-AMT BY -1 GIVING WRK-AMT.           DTSBR454
00609                                                                   DTSBR454
00610      MOVE R454-ADDR1-CITY    TO WRK-ADDR1-CITY.                   DTSBR454
00611      MOVE R454-ADDR1-STATE   TO WRK-ADDR1-STATE.                  DTSBR454
00612      MOVE R454-ADDR1-ZIP     TO WRK-ADDR1-ZIP.                    DTSBR454
00613      MOVE R454-ADDR2-CITY    TO WRK-ADDR2-CITY.                   DTSBR454
00614      MOVE R454-ADDR2-STATE   TO WRK-ADDR2-STATE.                  DTSBR454
00615      MOVE R454-ADDR2-ZIP     TO WRK-ADDR2-ZIP.                    DTSBR454
00616      MOVE WRK-FIELD-ZIP      TO CTF1-FIELD-ZIP.                   DTSBR454
00617      MOVE R454-FIELD-REP-ID TO CTF2-FLD-REP-ID.                   DTSBR454
00618      MOVE R454-FIELD-REP-ID TO CTF3-FLD-REP-ID.                   DTSBR454
00619      MOVE WRK-FLD-REP-NAME TO CTF3-FLD-REP-NAME.                  DTSBR454
00620                                                                   DTSBR454
00621      MOVE SPACE TO WRK-ADDNL-YRQ-TBL.                             DTSBR454
00622      PERFORM VARYING WRK-CNT FROM 1 BY 1                          DTSBR454
00623              UNTIL   WRK-CNT > R454-ADDITIONAL-RPT-CNT            DTSBR454
00624          MOVE R454-ADDITIONAL-RPT-YRQ (WRK-CNT)                   DTSBR454
00625            TO WRK-ADDNL-YRQ-9 (WRK-CNT)                           DTSBR454
00626      END-PERFORM.                                                 DTSBR454
00627                                                                   DTSBR454
00628      MOVE R454-EMP-NO                TO DTL1-EMP-NO.              DTSBR454
00629      MOVE R454-PRIMARY-NAME          TO DTL1-PRIMARY-NAME.        DTSBR454
00630                                                                   DTSBR454
00631      PERFORM P3000-PRINT-HEADER    THRU P3000-EXIT.               DTSBR454
00632                                                                   DTSBR454
00633 * DTL1-LINE-5                                                     DTSBR454
00634      IF R454-ADDR1-ATTN-LINE NOT = SPACES                         DTSBR454
00635         MOVE R454-ADDR1-ATTN-LINE    TO DTL1-ADDR1-ATTN-LINE      DTSBR454
00636      ELSE                                                         DTSBR454
00637         MOVE R454-ADDR1-DELIV-LINE-2 TO DTL1-ADDR1-ATTN-LINE      DTSBR454
00638      END-IF.                                                      DTSBR454
00639      MOVE WRK-VOICE (1)              TO DTL1-VOICE-1.             DTSBR454
00640      MOVE WRK-INACTIVE-DATE          TO DTL1-INACTIVE-DATE.       DTSBR454
00641      MOVE WRK-RATE                   TO DTL1-RATE.                DTSBR454
00642      WRITE REPORT-LISTING1 FROM DTL1-LINE-5  AFTER 1.             DTSBR454
00643      MOVE SPACES                    TO DTL1-FIELD-ZIP.            DTSBR454
00644                                                                   DTSBR454
00645 * DTL1-LINE-6                                                     DTSBR454
00646      IF R454-OPO-NAME-CNT > 0                                     DTSBR454
00647         MOVE R454-OPO-NAME (1)       TO DTL1-OPO-NAME-1           DTSBR454
00648      END-IF.                                                      DTSBR454
00649      IF R454-ADDR1-ATTN-LINE NOT = SPACES                         DTSBR454
00650         MOVE R454-ADDR1-DELIV-LINE-2 TO DTL1-ADDR1-DELIV-LINE-2   DTSBR454
00651      ELSE                                                         DTSBR454
00652         MOVE WRK-ADDR1-CSZ           TO DTL1-ADDR1-DELIV-LINE-2   DTSBR454
00653      END-IF.                                                      DTSBR454
00654      MOVE WRK-VOICE (2)              TO DTL1-VOICE-2.             DTSBR454
00655      WRITE REPORT-LISTING1 FROM DTL1-LINE-6 AFTER 1.              DTSBR454
00656      MOVE SPACES                    TO DTL1-OPO-NAME-1.           DTSBR454
00657      MOVE SPACES                    TO DTL1-ADDR1-DELIV-LINE-2.   DTSBR454
00658                                                                   DTSBR454
00659 * DTL1-LINE-7                                                     DTSBR454
00660      IF R454-OPO-NAME-CNT > 1                                     DTSBR454
00661         MOVE R454-OPO-NAME (2)       TO DTL1-OPO-NAME-2           DTSBR454
00662      END-IF.                                                      DTSBR454
00663      IF R454-ADDR1-ATTN-LINE NOT = SPACES                         DTSBR454
00664         MOVE WRK-ADDR1-CSZ           TO DTL1-ADDR1-CSZ            DTSBR454
00665      END-IF.                                                      DTSBR454
00666      MOVE WRK-VOICE (3)              TO DTL1-VOICE-3.             DTSBR454
00667      MOVE WRK-AMT                    TO DTL1-AMT.                 DTSBR454
00668      WRITE REPORT-LISTING1 FROM DTL1-LINE-7 AFTER 1.              DTSBR454
00669      MOVE SPACES                    TO DTL1-OPO-NAME-2.           DTSBR454
00670      MOVE SPACES                    TO DTL1-ADDR1-CSZ.            DTSBR454
00671                                                                   DTSBR454
00672 * DTL1-LINE-8                                                     DTSBR454
00673      IF R454-OPO-NAME-CNT > 2                                     DTSBR454
00674         MOVE R454-OPO-NAME (3)       TO DTL1-OPO-NAME-3           DTSBR454
00675      END-IF.                                                      DTSBR454
00676      WRITE REPORT-LISTING1 FROM DTL1-LINE-8 AFTER 1.              DTSBR454
00677      MOVE SPACES                    TO DTL1-OPO-NAME-3.           DTSBR454
00678                                                                   DTSBR454
00679 * DTL1-LINE-9                                                     DTSBR454
00680      IF R454-OPO-NAME-CNT > 3                                     DTSBR454
00681         MOVE R454-OPO-NAME (4)       TO DTL1-OPO-NAME-4           DTSBR454
00682      END-IF.                                                      DTSBR454
00683      IF R454-ADDR2-ATTN-LINE NOT = SPACES                         DTSBR454
00684         MOVE R454-ADDR2-ATTN-LINE    TO DTL1-ADDR2-ATTN-LINE      DTSBR454
00685      ELSE                                                         DTSBR454
00686         MOVE R454-ADDR2-DELIV-LINE-2 TO DTL1-ADDR2-ATTN-LINE      DTSBR454
00687      END-IF.                                                      DTSBR454
00688      IF R454-ADDITIONAL-RPT-CNT > 0                               DTSBR454
00689         MOVE 'OTHER DELQ YRQS:'      TO DTL1-DELQ-YRQS            DTSBR454
00690      ELSE                                                         DTSBR454
00691         MOVE SPACES                  TO DTL1-DELQ-YRQS            DTSBR454
00692      END-IF.                                                      DTSBR454
00693      IF R454-ADDITIONAL-RPT-CNT > 0                               DTSBR454
00694         MOVE WRK-ADDNL-YRQ (1)       TO DTL1-YRQ-1                DTSBR454
00695      ELSE                                                         DTSBR454
00696         MOVE SPACES                  TO DTL1-YRQ-1                DTSBR454
00697      END-IF.                                                      DTSBR454
00698      IF R454-ADDITIONAL-RPT-CNT > 1                               DTSBR454
00699         MOVE WRK-ADDNL-YRQ (2)       TO DTL1-YRQ-2                DTSBR454
00700      ELSE                                                         DTSBR454
00701         MOVE SPACES                  TO DTL1-YRQ-2                DTSBR454
00702      END-IF.                                                      DTSBR454
00703      IF R454-ADDITIONAL-RPT-CNT > 2                               DTSBR454
00704         MOVE WRK-ADDNL-YRQ (3)       TO DTL1-YRQ-3                DTSBR454
00705      ELSE                                                         DTSBR454
00706         MOVE SPACES                  TO DTL1-YRQ-3                DTSBR454
00707      END-IF.                                                      DTSBR454
00708      IF R454-ADDITIONAL-RPT-CNT > 3                               DTSBR454
00709         MOVE WRK-ADDNL-YRQ (4)       TO DTL1-YRQ-4                DTSBR454
00710      ELSE                                                         DTSBR454
00711         MOVE SPACES                  TO DTL1-YRQ-4                DTSBR454
00712      END-IF.                                                      DTSBR454
00713      WRITE REPORT-LISTING1 FROM DTL1-LINE-9 AFTER 1.              DTSBR454
00714      MOVE SPACES                    TO DTL1-OPO-NAME-4.           DTSBR454
00715      MOVE SPACES                    TO DTL1-ADDR2-ATTN-LINE.      DTSBR454
00716                                                                   DTSBR454
00717 * DTL1-LINE-10                                                    DTSBR454
00718      IF R454-OPO-NAME-CNT > 4                                     DTSBR454
00719         MOVE R454-OPO-NAME (5)       TO DTL1-OPO-NAME-5           DTSBR454
00720      END-IF.                                                      DTSBR454
00721      IF R454-ADDR2-ATTN-LINE NOT = SPACES                         DTSBR454
00722         MOVE R454-ADDR2-DELIV-LINE-2 TO DTL1-ADDR2-DELIV-LINE-2   DTSBR454
00723      ELSE                                                         DTSBR454
00724         MOVE WRK-ADDR2-CSZ           TO DTL1-ADDR2-DELIV-LINE-2   DTSBR454
00725      END-IF.                                                      DTSBR454
00726      IF R454-ADDITIONAL-RPT-CNT > 4                               DTSBR454
00727         MOVE WRK-ADDNL-YRQ (5)       TO DTL1-YRQ-5                DTSBR454
00728      ELSE                                                         DTSBR454
00729         MOVE SPACES                  TO DTL1-YRQ-5                DTSBR454
00730      END-IF.                                                      DTSBR454
00731      IF R454-ADDITIONAL-RPT-CNT > 5                               DTSBR454
00732         MOVE WRK-ADDNL-YRQ (6)       TO DTL1-YRQ-6                DTSBR454
00733      ELSE                                                         DTSBR454
00734         MOVE SPACES                  TO DTL1-YRQ-6                DTSBR454
00735      END-IF.                                                      DTSBR454
00736      IF R454-ADDITIONAL-RPT-CNT > 6                               DTSBR454
00737         MOVE WRK-ADDNL-YRQ (7)       TO DTL1-YRQ-7                DTSBR454
00738      ELSE                                                         DTSBR454
00739         MOVE SPACES                  TO DTL1-YRQ-7                DTSBR454
00740      END-IF.                                                      DTSBR454
00741      IF R454-ADDITIONAL-RPT-CNT > 7                               DTSBR454
00742         MOVE WRK-ADDNL-YRQ (8)       TO DTL1-YRQ-8                DTSBR454
00743      ELSE                                                         DTSBR454
00744         MOVE SPACES                  TO DTL1-YRQ-8                DTSBR454
00745      END-IF.                                                      DTSBR454
00746      IF R454-ADDITIONAL-RPT-CNT > 8                               DTSBR454
00747         MOVE WRK-ADDNL-YRQ (9)       TO DTL1-YRQ-9                DTSBR454
00748      ELSE                                                         DTSBR454
00749         MOVE SPACES                  TO DTL1-YRQ-9                DTSBR454
00750      END-IF.                                                      DTSBR454
00751      IF R454-ADDITIONAL-RPT-CNT > 9                               DTSBR454
00752         MOVE WRK-ADDNL-YRQ (10)      TO DTL1-YRQ-10               DTSBR454
00753      ELSE                                                         DTSBR454
00754         MOVE SPACES                  TO DTL1-YRQ-10               DTSBR454
00755      END-IF.                                                      DTSBR454
00756      IF R454-ADDITIONAL-RPT-CNT > 10                              DTSBR454
00757         MOVE WRK-ADDNL-YRQ (11)      TO DTL1-YRQ-11               DTSBR454
00758      ELSE                                                         DTSBR454
00759         MOVE SPACES                  TO DTL1-YRQ-11               DTSBR454
00760      END-IF.                                                      DTSBR454
00761      IF R454-ADDITIONAL-RPT-CNT > 11                              DTSBR454
00762         MOVE WRK-ADDNL-YRQ (12)      TO DTL1-YRQ-12               DTSBR454
00763      ELSE                                                         DTSBR454
00764         MOVE SPACES                  TO DTL1-YRQ-12               DTSBR454
00765      END-IF.                                                      DTSBR454
00766      WRITE REPORT-LISTING1 FROM DTL1-LINE-10 AFTER 1.             DTSBR454
00767      MOVE SPACES                    TO DTL1-OPO-NAME-5.           DTSBR454
00768      MOVE SPACES                    TO DTL1-ADDR2-DELIV-LINE-2.   DTSBR454
00769                                                                   DTSBR454
00770 * DTL1-LINE-11                                                    DTSBR454
00771      IF R454-OPO-NAME-CNT > 5                                     DTSBR454
00772         MOVE R454-OPO-NAME (6)       TO DTL1-OPO-NAME-6           DTSBR454
00773      END-IF.                                                      DTSBR454
00774      IF R454-ADDR2-ATTN-LINE NOT = SPACES                         DTSBR454
00775         MOVE WRK-ADDR2-CSZ           TO DTL1-ADDR2-CSZ            DTSBR454
00776      END-IF.                                                      DTSBR454
00777      IF R454-ADDITIONAL-RPT-CNT > 12                              DTSBR454
00778         MOVE WRK-ADDNL-YRQ (13)      TO DTL1-YRQ-13               DTSBR454
00779      ELSE                                                         DTSBR454
00780         MOVE SPACES                  TO DTL1-YRQ-13               DTSBR454
00781      END-IF.                                                      DTSBR454
00782      IF R454-ADDITIONAL-RPT-CNT > 13                              DTSBR454
00783         MOVE WRK-ADDNL-YRQ (14)      TO DTL1-YRQ-14               DTSBR454
00784      ELSE                                                         DTSBR454
00785         MOVE SPACES                  TO DTL1-YRQ-14               DTSBR454
00786      END-IF.                                                      DTSBR454
00787      IF R454-ADDITIONAL-RPT-CNT > 14                              DTSBR454
00788         MOVE WRK-ADDNL-YRQ (15)      TO DTL1-YRQ-15               DTSBR454
00789      ELSE                                                         DTSBR454
00790         MOVE SPACES                  TO DTL1-YRQ-15               DTSBR454
00791      END-IF.                                                      DTSBR454
00792      IF R454-ADDITIONAL-RPT-CNT > 15                              DTSBR454
00793         MOVE WRK-ADDNL-YRQ (16)      TO DTL1-YRQ-16               DTSBR454
00794      ELSE                                                         DTSBR454
00795         MOVE SPACES                  TO DTL1-YRQ-16               DTSBR454
00796      END-IF.                                                      DTSBR454
00797      IF R454-ADDITIONAL-RPT-CNT > 16                              DTSBR454
00798         MOVE WRK-ADDNL-YRQ (17)      TO DTL1-YRQ-17               DTSBR454
00799      ELSE                                                         DTSBR454
00800         MOVE SPACES                  TO DTL1-YRQ-17               DTSBR454
00801      END-IF.                                                      DTSBR454
00802      IF R454-ADDITIONAL-RPT-CNT > 17                              DTSBR454
00803         MOVE WRK-ADDNL-YRQ (17)      TO DTL1-YRQ-18               DTSBR454
00804      ELSE                                                         DTSBR454
00805         MOVE SPACES                  TO DTL1-YRQ-18               DTSBR454
00806      END-IF.                                                      DTSBR454
00807      IF R454-ADDITIONAL-RPT-CNT > 18                              DTSBR454
00808         MOVE WRK-ADDNL-YRQ (18)      TO DTL1-YRQ-19               DTSBR454
00809      ELSE                                                         DTSBR454
00810         MOVE SPACES                  TO DTL1-YRQ-19               DTSBR454
00811      END-IF.                                                      DTSBR454
00812                                                                   DTSBR454
00813      WRITE REPORT-LISTING1 FROM DTL1-LINE-11 AFTER 1.             DTSBR454
00814      WRITE REPORT-LISTING1 FROM DTL1-BLANK-LINE AFTER 4.          DTSBR454
00815      MOVE SPACES                    TO DTL1-OPO-NAME-6.           DTSBR454
00816      MOVE SPACES                    TO DTL1-ADDR2-CSZ.            DTSBR454
00817                                                                   DTSBR454
00818      ADD +11   TO WS-LINE-CNT2.                                   DTSBR454
00819      ADD +1    TO WS-DTLI-CNT1.                                   DTSBR454
00820      ADD +1    TO WS-DTLR-DTLI-CNT1.                              DTSBR454
00821      ADD +1    TO WS-DTLI-CNT2.                                   DTSBR454
00822      ADD +1    TO WS-DTLR-DTLI-CNT2.                              DTSBR454
00823      ADD +1    TO WS-FOOT-NUMBER-TWO.                             DTSBR454
00824      ADD +1    TO WS-FOOT-NUMBER-ONE.                             DTSBR454
00825                                                                   DTSBR454
00826  P1000-EXIT.                                                      DTSBR454
00827      EXIT.                                                        DTSBR454
00828                                                                   DTSBR454
00829  P3000-PRINT-HEADER.                                              DTSBR454
00830                                                                   DTSBR454
00831      IF WS-LINE-CNT GREATER 56 OR                                 DTSBR454
00832           WS-LINE-CNT2 GREATER 56                                 DTSBR454
00833         MOVE +0          TO WS-LINE-CNT                           DTSBR454
00834         MOVE +0          TO WS-LINE-CNT2                          DTSBR454
00835         ADD  +1          TO WS-PAGE-CNT                           DTSBR454
00836         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR454
00837         MOVE R454-FIELD-ZIP TO DTL1-FIELD-ZIP                     DTSBR454
00838         WRITE REPORT-LISTING1 FROM HDR1-LINE-1                    DTSBR454
00839                 AFTER TOP-OF-PAGE                                 DTSBR454
00840         WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1            DTSBR454
00841         WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1            DTSBR454
00842         WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1            DTSBR454
00843         WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1            DTSBR454
00844         WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1            DTSBR454
00845         WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1            DTSBR454
00846         WRITE REPORT-LISTING1 FROM HDR1-LINE-8 AFTER 1            DTSBR454
00847         WRITE REPORT-LISTING1 FROM HDR1-LINE-9 AFTER 1            DTSBR454
00848         WRITE REPORT-LISTING1 FROM HDR1-LINE-10 AFTER 1           DTSBR454
00849         WRITE REPORT-LISTING1 FROM HDR1-LINE-11 AFTER 1           DTSBR454
00850         WRITE REPORT-LISTING1 FROM HDR1-LINE-12 AFTER 1           DTSBR454
00851         WRITE REPORT-LISTING1 FROM HDR1-LINE-13 AFTER 1           DTSBR454
00852         ADD +13   TO WS-LINE-CNT2.                                DTSBR454
00853                                                                   DTSBR454
00854  P3000-EXIT.                                                      DTSBR454
00855      EXIT.                                                        DTSBR454
00856                                                                   DTSBR454
00857  P4000-PRINT-HEADER.                                              DTSBR454
00858                                                                   DTSBR454
00859      IF WS-LINE-CNT3 GREATER 58 OR                                DTSBR454
00860           WS-LINE-CNT4 GREATER 58                                 DTSBR454
00861         MOVE +0          TO WS-LINE-CNT3                          DTSBR454
00862         MOVE +0          TO WS-LINE-CNT4                          DTSBR454
00863         ADD  +1          TO WS-PAGE-CNT2                          DTSBR454
00864         MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT                        DTSBR454
00865         WRITE REPORT-LISTING2 FROM HDR2-LINE-1                    DTSBR454
00866                 AFTER TOP-OF-PAGE                                 DTSBR454
00867         WRITE REPORT-LISTING2 FROM HDR2-LINE-2 AFTER 1            DTSBR454
00868         WRITE REPORT-LISTING2 FROM HDR2-LINE-3 AFTER 1            DTSBR454
00869         WRITE REPORT-LISTING2 FROM HDR2-LINE-4 AFTER 1            DTSBR454
00870         WRITE REPORT-LISTING2 FROM HDR2-LINE-5 AFTER 1            DTSBR454
00871         WRITE REPORT-LISTING2 FROM HDR2-LINE-6 AFTER 1            DTSBR454
00872         WRITE REPORT-LISTING2 FROM HDR2-LINE-7 AFTER 1            DTSBR454
00873         WRITE REPORT-LISTING2 FROM HDR2-LINE-8 AFTER 1            DTSBR454
00874         WRITE REPORT-LISTING2 FROM HDR2-LINE-9 AFTER 1            DTSBR454
00875         WRITE REPORT-LISTING2 FROM HDR2-LINE-10 AFTER 1           DTSBR454
00876         ADD +10   TO WS-LINE-CNT4.                                DTSBR454
00877                                                                   DTSBR454
00878  P4000-EXIT.                                                      DTSBR454
00879      EXIT.                                                        DTSBR454
00880                                                                   DTSBR454
00881  P5000-PRINT-FOOTER.                                              DTSBR454
00882      IF WS-LINE-CNT2 > 52                                         DTSBR454
00883         ADD +8 TO WS-LINE-CNT2                                    DTSBR454
00884         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR454
00885      END-IF.                                                      DTSBR454
00886                                                                   DTSBR454
00887      MOVE WS-FOOT-NUMBER-ONE TO CTF1-NUMBER-ONE.                  DTSBR454
00888      WRITE REPORT-LISTING1 FROM CTF1-LINE-5 AFTER 5.              DTSBR454
00889      MOVE +0 TO WS-FOOT-NUMBER-ONE.                               DTSBR454
00890                                                                   DTSBR454
00891  P5000-EXIT.                                                      DTSBR454
00892      EXIT.                                                        DTSBR454
00893                                                                   DTSBR454
00894  P6000-PRINT-FOOTER.                                              DTSBR454
00895      IF WS-LINE-CNT2 > 52                                         DTSBR454
00896         ADD +8 TO WS-LINE-CNT2                                    DTSBR454
00897         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR454
00898      END-IF.                                                      DTSBR454
00899                                                                   DTSBR454
00900      PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT.                  DTSBR454
00901      MOVE WS-FOOT-NUMBER-TWO TO CTF2-NUMBER-TWO.                  DTSBR454
00902      WRITE REPORT-LISTING1 FROM CTF2-LINE-2 AFTER 2.              DTSBR454
00903      MOVE +0 TO WS-FOOT-NUMBER-TWO.                               DTSBR454
00904                                                                   DTSBR454
00905      DIVIDE WS-PAGE-CNT BY 2 GIVING ODD-PAGE-BLANK                DTSBR454
00906             REMAINDER ZPAGE.                                      DTSBR454
00907                                                                   DTSBR454
00908      IF ZPAGE > 0                                                 DTSBR454
00909        WRITE REPORT-LISTING1 FROM DTL1-BLANK-LINE                 DTSBR454
00910                 AFTER TOP-OF-PAGE.                                DTSBR454
00911                                                                   DTSBR454
00912      MOVE +0 TO WS-PAGE-CNT.                                      DTSBR454
00913                                                                   DTSBR454
00914  P6000-EXIT.                                                      DTSBR454
00915      EXIT.                                                        DTSBR454
00916                                                                   DTSBR454
00917  P7000-PRINT-FOOTER.                                              DTSBR454
00918      IF WS-LINE-CNT3 > 52                                         DTSBR454
00919         ADD +8 TO WS-LINE-CNT4                                    DTSBR454
00920         PERFORM P4000-PRINT-HEADER THRU P4000-EXIT                DTSBR454
00921      END-IF.                                                      DTSBR454
00922                                                                   DTSBR454
00923      MOVE WS-DTLR-DTLI-CNT1  TO CTF3-DTLR-DTLI-CNT.               DTSBR454
00924      MOVE WS-DTLR-CNT1       TO CTF3-DTLR-CNT.                    DTSBR454
00925      MOVE WS-DTLI-CNT1       TO CTF3-DTLI-CNT.                    DTSBR454
00926                                                                   DTSBR454
00927      WRITE REPORT-LISTING2 FROM CTF3-LINE-2 AFTER 2.              DTSBR454
00928      MOVE +0 TO WS-DTLR-DTLI-CNT1.                                DTSBR454
00929      MOVE +0 TO WS-DTLR-CNT1.                                     DTSBR454
00930      MOVE +0 TO WS-DTLI-CNT1.                                     DTSBR454
00931      ADD  +2   TO WS-LINE-CNT4.                                   DTSBR454
00932                                                                   DTSBR454
00933  P7000-EXIT.                                                      DTSBR454
00934      EXIT.                                                        DTSBR454
00935                                                                   DTSBR454
00936  T1000-TERMINATE.                                                 DTSBR454
00937                                                                   DTSBR454
00938      PERFORM P6000-PRINT-FOOTER THRU P6000-EXIT.                  DTSBR454
00939      PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT.                  DTSBR454
00940                                                                   DTSBR454
00941      MOVE WS-DTLR-DTLI-CNT2  TO CFF-DTLR-DTLI-CNT.                DTSBR454
00942      MOVE WS-DTLR-CNT2       TO CFF-DTLR-CNT.                     DTSBR454
00943      MOVE WS-DTLI-CNT2       TO CFF-DTLI-CNT.                     DTSBR454
00944                                                                   DTSBR454
00945      WRITE REPORT-LISTING2 FROM CFF-LINE-3 AFTER 3.               DTSBR454
00946      WRITE REPORT-LISTING2 FROM CFF-LINE-4 AFTER 1.               DTSBR454
00947      CLOSE PRT-FILE-1                                             DTSBR454
00948            PRT-FILE-2.                                            DTSBR454
00949                                                                   DTSBR454
00950  T1000-EXIT.                                                      DTSBR454
00951      EXIT.                                                        DTSBR454
00952      EJECT                                                        DTSBR454
00953  S1000-FIELD-REP-ID-BREAK.                                        DTSBR454
00954      MOVE R454-FIELD-REP-ID TO WRK-FLD-REP-ID                     DTSBR454
00955                                HDR1-FLD-REP-ID                    DTSBR454
00956                                L062-FLD-REP-ID.                   DTSBR454
00957      PERFORM S062-FLD-REP THRU S062-EXIT.                         DTSBR454
00958      MOVE L062-NAME TO WRK-FLD-REP-NAME HDR1-FLD-REP-NAME.        DTSBR454
00959  S1000-EXIT.                                                      DTSBR454
00960      EXIT.                                                        DTSBR454
00961      EJECT                                                        DTSBR454
00962  S001-FROM-FED-8.                                                 DTSBR454
00963                                                                   DTSBR454
00964      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR454
00965                                                                   DTSBR454
00966      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR454
00967                                                                   DTSBR454
00968  S001-EXIT.                                                       DTSBR454
00969      EXIT.                                                        DTSBR454
00970      SKIP3                                                        DTSBR454
00971  S004-FROM-5.                                                     DTSBR454
00972                                                                   DTSBR454
00973      SET L004-FROM-5 TO TRUE.                                     DTSBR454
00974                                                                   DTSBR454
00975      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR454
00976                                                                   DTSBR454
00977  S004-EXIT.                                                       DTSBR454
00978      EXIT.                                                        DTSBR454
00979                                                                   DTSBR454
00980  S056-RATE-FORMAT.                                                DTSBR454
00981                                                                   DTSBR454
00982      SET L056-DISP1-RIGHT-PCT-88 TO TRUE.                         DTSBR454
00983                                                                   DTSBR454
00984      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR454
00985                                                                   DTSBR454
00986  S056-EXIT.                                                       DTSBR454
00987      EXIT.                                                        DTSBR454
00988                                                                   DTSBR454
00989  S062-FLD-REP.                                                    DTSBR454
00990                                                                   DTSBR454
00991      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR454
00992                                                                   DTSBR454
00993  S062-EXIT.                                                       DTSBR454
00994      EXIT.                                                        DTSBR454
00995                                                                   DTSBR454
00996 *S999-ABEND.                                                      DTSBR454
00997 *                                                                 DTSBR454
00998 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR454
00999 *                                                                 DTSBR454
01000 *S999-EXIT.                                                       DTSBR454
01001 *    EXIT.                                                        DTSBR454
01002                                                                   DTSBR454
