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