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