00001  IDENTIFICATION DIVISION.                                         06/10/05
00002  PROGRAM-ID.             DTSBR122.                                DTSBR122
00003  AUTHOR.                 UPDATED BY TRW/BDM OCT. 1998.               LV043
00004  DATE-WRITTEN.           AUGUST 1998.                             DTSBR122
00005  DATE-COMPILED.                                                   DTSBR122
00006                                                                   DTSBR122
00007 *****                                                             DTSBR122
00008 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR122
00009 *                       DTSBE122 WHICH WRITES DTSIR122            DTSBR122
00010 *                       DTSBR122 READS DTSIR122 RECORDS.          DTSBR122
00011 *                                                                 DTSBR122
00012 *    FUNCTION:  LIABILITY DETERMINATION ACTIVITY LIST.            DTSBR122
00013 *                                                                 DTSBR122
00014 *                                                                 DTSBR122
00015 *    MODIFICATION HISTORY:                                        DTSBR122
00016 *                                                                 DTSBR122
00017 * 09-25-94 INITIAL DEVELOPMENT                                    DTSBR122
00018 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR122
00019 *                                                                 DTSBR122
00020 * 02-05-01 CORRECTED SEVERAL ERRORS IN PAGING, PAGE NUMBERS,      DTSBR122
00021 *          CATEGORY TOTALS (AND UNDER VARIOUS CONDITIONS)  - JHP  DTSBR122
00022 *                                                                 DTSBR122
00023 * 07-13-04 ADDING OPERATOR ID ON REPORT RPT122R1 AND INACTIVE     DTSBR122
00024 *          DATE AND OPERATOR ON REPORT RPT122R2.           - RW1  DTSBR122
00025 *                                                                 DTSBR122
00026 * 08-03-04 ADDING REPORT RPT122R4 FOR MISSING FR-500 RECEIVED     DTSBR122
00027 *          DATE AND RPT122R5 FOR PENDING DETERMINATION RPTS- RW1  DTSBR122
00028 *                                                                 DTSBR122
00029 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR122
00030 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR122
00031 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR122
00032 *                                                                 DTSBR122
00033 *                                                                 DTSBR122
00034 *    DESCRIPTION:                                                 DTSBR122
00035 *                                                                 DTSBR122
00036 *        THIS MODULE GENERATES REPORTS TO HELP THE REGISTRATION   DTSBR122
00037 *        IN MEETING THE FEDERAL EMPLOYER REGISTRATION DESIRED     DTSBR122
00038 *        LEVEL OF ACHIEVEMENT.                                    DTSBR122
00039 *                                                                 DTSBR122
00040 *                                                                 DTSBR122
00041 *    RECORDS READ:                                                DTSBR122
00042 *                                                                 DTSBR122
00043 *        NONE.                                                    DTSBR122
00044 *                                                                 DTSBR122
00045 *                                                                 DTSBR122
00046 *    PRINTED OUTPUTS:                                             DTSBR122
00047 *                                                                 DTSBR122
00048 *        122R1  LIABILITY DETERMINATION LIST                      DTSBR122
00049 *              - HANDLES TRX TYPE 1 (LIAB. NEW)                   DTSBR122
00050 *                     &  TRX TYPE 2 (LIAB. SUCCESSOR)             DTSBR122
00051 *                    (&  FOOTERS FOR TYPE 1)                      DTSBR122
00052 *        122R2  INACTIVATION ENTRY AND REVERSAL LIST              DTSBR122
00053 *              - HANDLES TRX TYPE 3 (INAC. ENTERED)               DTSBR122
00054 *                     &  TRX TYPE 4 (INAC. REVERSED)              DTSBR122
00055 *                    (&  FOOTERS FOR TYPE 1 OR 2, OR 3)           DTSBR122
00056 *        122R3  SUMMARY STATISTICS REPORT                         DTSBR122
00057 *              - HANDLES TRX TYPE 5 (ACTIVE EMPLOYERS)            DTSBR122
00058 *        122R4  MISSING FR-500 RECEIVED DATE                      DTSBR122
00059 *              - HANDLES TRX TYPE 6 CATEGORY                      DTSBR122
00060 *        122R5  PENDING DETERMINATIONS                            DTSBR122
00061 *              - HANDLES TRX TYPE 7 CATEGORY                      DTSBR122
00062 *                                                                 DTSBR122
00063 *      (TERMINATE HANDLES FOOTERS FOR TYPE 1 OR 2, 3 OR 4)        DTSBR122
00064 *                                                                 DTSBR122
00065 *    RECORDS WRITTEN:                                             DTSBR122
00066 *                                                                 DTSBR122
00067 *        NONE.                                                    DTSBR122
00068 *                                                                 DTSBR122
00069 *                                                                 DTSBR122
00070 *    MODULES CALLED:                                              DTSBR122
00071 *                                                                 DTSBR122
00072 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR122
00073 *                                                                 DTSBR122
00074 *                                                                 DTSBR122
00075 *****                                                             DTSBR122
00076      EJECT                                                        DTSBR122
00077  ENVIRONMENT DIVISION.                                            DTSBR122
00078                                                                   DTSBR122
00079  CONFIGURATION SECTION.                                           DTSBR122
00080  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR122
00081                                                                   DTSBR122
00082  INPUT-OUTPUT SECTION.                                            DTSBR122
00083                                                                   DTSBR122
00084  FILE-CONTROL.                                                    DTSBR122
00085      SELECT PRT-FILE1 ASSIGN TO RPT122R1.                         DTSBR122
00086      SELECT PRT-FILE2 ASSIGN TO RPT122R2.                         DTSBR122
00087      SELECT PRT-FILE3 ASSIGN TO RPT122R3.                         DTSBR122
00088      SELECT PRT-FILE4 ASSIGN TO RPT122R4.                         DTSBR122
00089      SELECT PRT-FILE5 ASSIGN TO RPT122R5.                         DTSBR122
00090                                                                   DTSBR122
00091  DATA DIVISION.                                                   DTSBR122
00092                                                                   DTSBR122
00093  FILE SECTION.                                                    DTSBR122
00094                                                                   DTSBR122
00095  FD  PRT-FILE1                                                    DTSBR122
00096      RECORDING MODE IS F.                                         DTSBR122
00097  01  REPORT-LISTING1         PIC X(133).                          DTSBR122
00098                                                                   DTSBR122
00099  FD  PRT-FILE2                                                    DTSBR122
00100      RECORDING MODE IS F.                                         DTSBR122
00101  01  REPORT-LISTING2         PIC X(133).                          DTSBR122
00102                                                                   DTSBR122
00103  FD  PRT-FILE3                                                    DTSBR122
00104      RECORDING MODE IS F.                                         DTSBR122
00105  01  REPORT-LISTING3         PIC X(133).                          DTSBR122
00106                                                                   DTSBR122
00107  FD  PRT-FILE4                                                    DTSBR122
00108      RECORDING MODE IS F.                                         DTSBR122
00109  01  REPORT-LISTING4         PIC X(133).                          DTSBR122
00110                                                                   DTSBR122
00111  FD  PRT-FILE5                                                    DTSBR122
00112      RECORDING MODE IS F.                                         DTSBR122
00113  01  REPORT-LISTING5         PIC X(133).                          DTSBR122
00114                                                                   DTSBR122
00115  WORKING-STORAGE SECTION.                                         DTSBR122
001155 77  PAN-VALET PICTURE X(24) VALUE '043DTSBR122  06/10/05'.       DTSBR122
00116                                                                   DTSBR122
00117  01  FILLER.                                                      DTSBR122
00118 ***  05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +122.DTSBR122
00119      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR122
00120                                                                   DTSBR122
00121 ***      USED FOR LIAB. NEW, THEN SUCCESSOR                       DTSBR122
00122      05  WS-FOOT-NUMBER-ONE          PIC S9(03)  COMP-3 VALUE +0. DTSBR122
00123 ***      USED FOR TOTAL OF LIAB. NEW & SUCCESSOR                  DTSBR122
00124      05  WS-SUM-NUMBER-ONE           PIC S9(03)  COMP-3 VALUE +0. DTSBR122
00125 ***      USED FOR INAC ENTERED                                    DTSBR122
00126      05  WS-FOOT-NUMBER-TWO          PIC S9(03)  COMP-3 VALUE +0. DTSBR122
00127 ***      USED FOR INAC REVERSED                                   DTSBR122
00128      05  WS-FOOT-NUMBER-THREE        PIC S9(03)  COMP-3 VALUE +0. DTSBR122
00129 ***      USED FOR RPT122R1                                        DTSBR122
00130      05  WS-LINE-CNT-R1              PIC S9(02)  COMP-3 VALUE 60. DTSBR122
00131 ***      USED FOR RPT122R2                                        DTSBR122
00132      05  WS-LINE-CNT-R2              PIC S9(02)  COMP-3 VALUE +0. DTSBR122
00133      05  WS-PAGE-CNT                 PIC S9(03)  COMP-3 VALUE +0. DTSBR122
00134 ***      USED FOR RPT122R4                                        DTSBR122
00135      05  WS-SUM-NUMBER-FOUR          PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00136      05  WS-LINE-CNT-I4              PIC S9(02)  COMP-3 VALUE 60. DTSBR122
00137      05  WS-LINE-CNT-R4              PIC S9(02)  COMP-3 VALUE +0. DTSBR122
00138      05  WS-PAGE-CNT-4               PIC S9(03)  COMP-3 VALUE +0. DTSBR122
00139 ***      USED FOR RPT122R5                                        DTSBR122
00140      05  WS-SUM-NUMBER-FIVE          PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00141      05  WS-LINE-CNT-I5              PIC S9(02)  COMP-3 VALUE 60. DTSBR122
00142      05  WS-LINE-CNT-R5              PIC S9(02)  COMP-3 VALUE +0. DTSBR122
00143      05  WS-PAGE-CNT-5               PIC S9(03)  COMP-3 VALUE +0. DTSBR122
00144                                                                   DTSBR122
00145      05  WS-REPORT-TYPE1             PIC  X(05)  VALUE '122R1'.   DTSBR122
00146      05  WS-REPORT-TYPE2             PIC  X(05)  VALUE '122R2'.   DTSBR122
00147      05  WS-REPORT-TYPE3             PIC  X(05)  VALUE '122R3'.   DTSBR122
00148      05  WS-REPORT-TYPE4             PIC  X(05)  VALUE '122R4'.   DTSBR122
00149      05  WS-REPORT-TYPE5             PIC  X(05)  VALUE '122R5'.   DTSBR122
00150                                                                   DTSBR122
00151      05  WS-LIAB-TYPE-HOLD           PIC  X(01) VALUE SPACE.      DTSBR122
00152          88  WS-LIAB-TYPE-HOLD-NEW-88            VALUE '1'.       DTSBR122
00153          88  WS-LIAB-TYPE-HOLD-SUCC-88           VALUE '2'.       DTSBR122
00154          88  WS-LIAB-TYPE-HOLD-INIT-88           VALUE SPACE.     DTSBR122
00155                                                                   DTSBR122
00156      05  WS-LIAB-FOOTING-TEXT-N.                                  DTSBR122
00157          10  FILLER                  PIC  X(37)                   DTSBR122
00158                 VALUE 'NEW LIABILITY DETERMINATIONS ENTERED '.    DTSBR122
00159          10  FILLER                  PIC  X(29)                   DTSBR122
00160                 VALUE 'DURING REPORTING PERIOD      '.            DTSBR122
00161      05  WS-LIAB-FOOTING-TEXT-S.                                  DTSBR122
00162          10  FILLER                  PIC  X(35)                   DTSBR122
00163                 VALUE 'SUCCESSOR LIABILITY DETERMINATIONS '.      DTSBR122
00164          10  FILLER                  PIC  X(31)                   DTSBR122
00165                 VALUE 'ENTERED DURING REPORTING PERIOD'.          DTSBR122
00166                                                                   DTSBR122
00167      05  WS-INAC-TYPE-HOLD           PIC  X(01) VALUE SPACE.      DTSBR122
00168          88  WS-INAC-TYPE-HOLD-ENTERED-88        VALUE '3'.       DTSBR122
00169          88  WS-INAC-TYPE-HOLD-REVERSED-88       VALUE '4'.       DTSBR122
00170          88  WS-INAC-TYPE-HOLD-INIT-88           VALUE SPACE.     DTSBR122
00171                                                                   DTSBR122
00172      05  WS-INAC-R-HEADINGS1.                                     DTSBR122
00173          10  FILLER                  PIC  X(23)                   DTSBR122
00174                 VALUE ' EMP NO   PRIMARY NAME '.                  DTSBR122
00175          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00176          10  FILLER                  PIC  X(31)                   DTSBR122
00177                 VALUE 'INACTIVATION         TIME LAPSE'.          DTSBR122
00178          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00179          10  FILLER                  PIC  X(21)                   DTSBR122
00180                 VALUE 'TIME LAPSE INDICATORS'.                    DTSBR122
00181      05  WS-INAC-R-HEADINGS2.                                     DTSBR122
00182          10  FILLER                  PIC  X(57)  VALUE SPACES.    DTSBR122
00183          10  FILLER                  PIC  X(12)                   DTSBR122
00184                 VALUE 'REVERSE DATE'.                             DTSBR122
00185          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR122
00186          10  FILLER                  PIC  X(20)                   DTSBR122
00187                 VALUE '90 DAY      180 DAY '.                     DTSBR122
00188      05  WS-INAC-E-HEADINGS1.                                     DTSBR122
00189          10  FILLER                  PIC  X(23)                   DTSBR122
00190                 VALUE ' EMP NO   PRIMARY NAME '.                  DTSBR122
00191          10  FILLER                  PIC  X(31)  VALUE SPACES.    DTSBR122
00192          10  FILLER                  PIC  X(08)                   DTSBR122
00193                 VALUE 'OPER ID '.                                 DTSBR122
00194          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00195          10  FILLER                  PIC  X(08)                   DTSBR122
00196                 VALUE 'INACTIVE'.                                 DTSBR122
00197          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00198          10  FILLER                  PIC  X(12)                   DTSBR122
00199                 VALUE 'INACTIVATION'.                             DTSBR122
00200          10  FILLER                  PIC  X(48)  VALUE SPACES.    DTSBR122
00201      05  WS-INAC-E-HEADINGS2.                                     DTSBR122
00202          10  FILLER                  PIC  X(54)  VALUE SPACES.    DTSBR122
00203          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00204          10  FILLER                  PIC  X(08)                   DTSBR122
00205                 VALUE '  DATE  '.                                 DTSBR122
00206          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00207          10  FILLER                  PIC  X(10)                   DTSBR122
00208                 VALUE 'ENTRY DATE'.                               DTSBR122
00209          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR122
00210                                                                   DTSBR122
00211      05  WS-INAC-FOOTING-TEXT-R.                                  DTSBR122
00212          10  FILLER                  PIC  X(37)                   DTSBR122
00213                 VALUE 'INACTIVATIONS REVERSED DURING REPORT '.    DTSBR122
00214          10  FILLER                  PIC  X(06)                   DTSBR122
00215                 VALUE 'PERIOD'.                                   DTSBR122
00216      05  WS-INAC-FOOTING-TEXT-E.                                  DTSBR122
00217          10  FILLER                  PIC  X(36)                   DTSBR122
00218                 VALUE 'INACTIVATIONS ENTERED DURING REPORT '.     DTSBR122
00219          10  FILLER                  PIC  X(07)                   DTSBR122
00220                 VALUE 'PERIOD '.                                  DTSBR122
00221                                                                   DTSBR122
00222      05  WS-SUMMARY-NEW              PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00223      05  WS-SUMMARY-NEW-90-DAY       PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00224      05  WS-SUMMARY-NEW-90-DAY-DVD   PIC S9V99999 COMP-3          DTSBR122
00225                                                         VALUE +0. DTSBR122
00226      05  WS-SUMMARY-NEW-90-DAY-PCT                                DTSBR122
00227             REDEFINES WS-SUMMARY-NEW-90-DAY-DVD                   DTSBR122
00228                                      PIC S999V999 COMP-3.         DTSBR122
00229      05  WS-SUMMARY-NEW-180-DAY      PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00230      05  WS-SUMMARY-NEW-180-DAY-DVD  PIC S9V99999 COMP-3          DTSBR122
00231                                                         VALUE +0. DTSBR122
00232      05  WS-SUMMARY-NEW-180-DAY-PCT                               DTSBR122
00233             REDEFINES WS-SUMMARY-NEW-180-DAY-DVD                  DTSBR122
00234                                      PIC S999V999 COMP-3.         DTSBR122
00235      05  WS-SUMMARY-SUCC             PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00236      05  WS-SUMMARY-SUCC-90-DAY      PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00237      05  WS-SUMMARY-SUCC-90-DAY-DVD  PIC S9V99999 COMP-3          DTSBR122
00238                                                         VALUE +0. DTSBR122
00239      05  WS-SUMMARY-SUCC-90-DAY-PCT                               DTSBR122
00240             REDEFINES WS-SUMMARY-SUCC-90-DAY-DVD                  DTSBR122
00241                                      PIC S999V999 COMP-3.         DTSBR122
00242      05  WS-SUMMARY-SUCC-180-DAY     PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00243      05  WS-SUMMARY-SUCC-180-DAY-DVD PIC S9V99999 COMP-3          DTSBR122
00244                                                         VALUE +0. DTSBR122
00245      05  WS-SUMMARY-SUCC-180-DAY-PCT                              DTSBR122
00246             REDEFINES WS-SUMMARY-SUCC-180-DAY-DVD                 DTSBR122
00247                                      PIC S999V999 COMP-3.         DTSBR122
00248      05  WS-SUMMARY-TOT              PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00249      05  WS-SUMMARY-TOT-90-DAY       PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00250      05  WS-SUMMARY-TOT-90-DAY-DVD   PIC S9V99999 COMP-3          DTSBR122
00251                                                         VALUE +0. DTSBR122
00252      05  WS-SUMMARY-TOT-90-DAY-PCT                                DTSBR122
00253             REDEFINES WS-SUMMARY-TOT-90-DAY-DVD                   DTSBR122
00254                                      PIC S999V999 COMP-3.         DTSBR122
00255      05  WS-SUMMARY-TOT-180-DAY      PIC S9(05)  COMP-3 VALUE +0. DTSBR122
00256      05  WS-SUMMARY-TOT-180-DAY-DVD  PIC S9V99999 COMP-3          DTSBR122
00257                                                         VALUE +0. DTSBR122
00258      05  WS-SUMMARY-TOT-180-DAY-PCT                               DTSBR122
00259             REDEFINES WS-SUMMARY-TOT-180-DAY-DVD                  DTSBR122
00260                                      PIC S999V999 COMP-3.         DTSBR122
00261                                                                   DTSBR122
00262      05  WS-ACTIVE-RATED-TOT         PIC S9(05) COMP-3 VALUE +0.  DTSBR122
00263      05  WS-ACTIVE-CHG-ONLY-TOT      PIC S9(05) COMP-3 VALUE +0.  DTSBR122
00264      05  WS-ACTIVE-SELF-TOT          PIC S9(05) COMP-3 VALUE +0.  DTSBR122
00265      05  WS-ACTIVE-UNK-TOT           PIC S9(05) COMP-3 VALUE +0.  DTSBR122
00266      05  WS-ACTIVE-TOT-TOT           PIC S9(05) COMP-3 VALUE +0.  DTSBR122
00267      EJECT                                                        DTSBR122
00268  01  L001-LINK-AREA.                                              DTSBR122
00269  ++INCLUDE DTSIL001                                               DTSBR122
00270      EJECT                                                        DTSBR122
00271                                                                   DTSBR122
00272 ***************************************************************   DTSBR122
00273 *    COMMON HEADINGS FOR DTSBR122 (RPT122R1) REPORT               DTSBR122
00274 ***************************************************************   DTSBR122
00275  01  PAGE-HEADING-1.                                              DTSBR122
00276      05  HEADER1-1.                                               DTSBR122
00277          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00278          10  WS-REPORT-TYPE-1        PIC  X(05) VALUE SPACE.      DTSBR122
00279          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00280          10  WS-H1-AGY-NAME-LINE1    PIC  X(50) VALUE SPACE.      DTSBR122
00281          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR122
00282          10  FILLER                  PIC  X(05)                   DTSBR122
00283                 VALUE 'DATE:'.                                    DTSBR122
00284          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00285          10  WS-H1-SYS-DATE          PIC  X(08) VALUE SPACE.      DTSBR122
00286      05  HEADER1-2.                                               DTSBR122
00287          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR122
00288          10  WS-H1-AGY-NAME-LINE2    PIC  X(50) VALUE SPACE.      DTSBR122
00289          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR122
00290          10  FILLER                  PIC  X(05)                   DTSBR122
00291                 VALUE 'TIME:'.                                    DTSBR122
00292          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00293          10  WS-H1-SYS-TIME          PIC  X(08) VALUE SPACE.      DTSBR122
00294      05  HEADER1-3.                                               DTSBR122
00295          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00296          10  FILLER                  PIC  X(40)                   DTSBR122
00297                 VALUE 'ROUTE TO:  REGISTRATION AND RATES     '.   DTSBR122
00298          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR122
00299          10  FILLER                  PIC  X(37)                   DTSBR122
00300                 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'.    DTSBR122
00301          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00302          10  FILLER                  PIC  X(05)                   DTSBR122
00303                 VALUE 'PAGE:'.                                    DTSBR122
00304          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR122
00305          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR122
00306      05  HEADER1-4                   PIC  X(133) VALUE SPACES.    DTSBR122
00307      05  HEADER1-6.                                               DTSBR122
00308          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00309          10  FILLER                  PIC  X(17)                   DTSBR122
00310                 VALUE 'REPORTING PERIOD:'.                        DTSBR122
00311          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00312          10  WS-H1-PERIOD-START-DATE    PIC  X(08).               DTSBR122
00313          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00314          10  FILLER                  PIC  X(01)                   DTSBR122
00315                 VALUE '-'.                                        DTSBR122
00316          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00317          10  WS-H1-PERIOD-END-DATE   PIC  X(08) VALUE SPACE.      DTSBR122
00318          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR122
00319          10  WS-H1-SUMMARY-TITLE     PIC  X(18) VALUE SPACE.      DTSBR122
00320      05  HEADER1-7                   PIC  X(133) VALUE SPACES.    DTSBR122
00321      05  HEADER1-9.                                               DTSBR122
00322          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00323          10  FILLER                  PIC  X(35)                   DTSBR122
00324                 VALUE 'LIABILITY DETERMINATIONS ENTERED - '.      DTSBR122
00325          10  WS-LIAB-TYPE-DSCR       PIC  X(09) VALUE SPACE.      DTSBR122
00326      05  HEADER1-11.                                              DTSBR122
00327          10  FILLER                  PIC  X(54)  VALUE SPACES.    DTSBR122
00328          10  FILLER                  PIC  X(23)                   DTSBR122
00329                 VALUE 'LIABILITY     LIABILITY'.                  DTSBR122
00330          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00331          10  FILLER                  PIC  X(08)                   DTSBR122
00332                 VALUE 'OPER ID '.                                 DTSBR122
00333          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00334          10  FILLER                  PIC  X(36)                   DTSBR122
00335                 VALUE 'TIME LAPSE     TIME LAPSE INDICATORS'.     DTSBR122
00336      05  HEADER1-12.                                              DTSBR122
00337          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00338          10  FILLER                  PIC  X(22)                   DTSBR122
00339                 VALUE 'EMP NO   PRIMARY NAME '.                   DTSBR122
00340          10  FILLER                  PIC  X(31)  VALUE SPACES.    DTSBR122
00341          10  FILLER                  PIC  X(24)                   DTSBR122
00342                 VALUE 'ESTB DATE     ENTRY DATE'.                 DTSBR122
00343          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00344          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00345          10  FILLER                  PIC  X(36)                   DTSBR122
00346                 VALUE '                90 DAY      180 DAY '.     DTSBR122
00347                                                                   DTSBR122
00348 ***                                         DETAIL-LINE1.         DTSBR122
00349  01  FILLER.                                                      DTSBR122
00350      05  DL1-LINE-2.                                              DTSBR122
00351          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00352          10  WS-DL1-EMP-NO           PIC  999B999.                DTSBR122
00353          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR122
00354          10  WS-LIAB-PRIMARY-NAME    PIC  X(40)  VALUE SPACE.     DTSBR122
00355          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00356          10  WS-LIAB-ESTAB-DATE      PIC  X(08)  VALUE SPACE.     DTSBR122
00357          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR122
00358          10  WS-LIAB-ENTRY-DATE      PIC  X(08)  VALUE SPACE.     DTSBR122
00359          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00360          10  WS-LIAB-OP-ID           PIC  X(08)  VALUE SPACE.     DTSBR122
00361          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00362          10  WS-R122-TIME-LAPSE      PIC  Z(04)9.                 DTSBR122
00363          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00364          10  WS-DL1-90-DAY-IND       PIC  X(01)  VALUE SPACE.     DTSBR122
00365          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00366          10  WS-DL1-180-DAY-IND      PIC  X(01)  VALUE SPACE.     DTSBR122
00367                                                                   DTSBR122
00368 ***                                      CONTROL-FOOTING-1.       DTSBR122
00369  01  FILLER.                                                      DTSBR122
00370      05  CTF-LINE-3.                                              DTSBR122
00371          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR122
00372          10  WS-CTF-NUMBER-ONE       PIC  ZZ,ZZ9.                 DTSBR122
00373          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00374          10  WS-CTF-LIAB-FOOTING-TEXT PIC  X(66) VALUE SPACE.     DTSBR122
00375                                                                   DTSBR122
00376 ***                                  CONTROL-FOOTING-FINAL-1.     DTSBR122
00377  01  FILLER.                                                      DTSBR122
00378      05  CFF-LINE-3.                                              DTSBR122
00379          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR122
00380          10  WS-CFF-NUMBER-TWO       PIC  ZZ,ZZ9.                 DTSBR122
00381          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00382          10  FILLER                  PIC  X(39)                   DTSBR122
00383                 VALUE 'TOTAL LIABILITY DETERMINATIONS ENTERED '.  DTSBR122
00384          10  FILLER                  PIC  X(23)                   DTSBR122
00385                 VALUE 'DURING REPORTING PERIOD'.                  DTSBR122
00386      EJECT                                                        DTSBR122
00387                                                                   DTSBR122
00388 ***************************************************************   DTSBR122
00389 *    COMMON HEADINGS FOR DTSBR122 (RPT122R2) REPORT               DTSBR122
00390 ***************************************************************   DTSBR122
00391  01  PAGE-HEADING-2.                                              DTSBR122
00392      05  HEADER2-1.                                               DTSBR122
00393          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00394          10  WS-REPORT-TYPE-2        PIC  X(05) VALUE SPACE.      DTSBR122
00395          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00396          10  WS-H2-AGY-NAME-LINE1    PIC  X(50) VALUE SPACE.      DTSBR122
00397          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR122
00398          10  FILLER                  PIC  X(05)                   DTSBR122
00399                 VALUE 'DATE:'.                                    DTSBR122
00400          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00401          10  WS-H2-SYS-DATE          PIC  X(08) VALUE SPACE.      DTSBR122
00402      05  HEADER2-2.                                               DTSBR122
00403          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR122
00404          10  WS-H2-AGY-NAME-LINE2    PIC  X(50) VALUE SPACE.      DTSBR122
00405          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR122
00406          10  FILLER                  PIC  X(05)                   DTSBR122
00407                 VALUE 'TIME:'.                                    DTSBR122
00408          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR122
00409          10  WS-H2-SYS-TIME          PIC  X(08) VALUE SPACE.      DTSBR122
00410      05  HEADER2-3.                                               DTSBR122
00411          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00412          10  FILLER                  PIC  X(33)                   DTSBR122
00413                 VALUE 'ROUTE TO: REGISTRATION AND RATES'.         DTSBR122
00414          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00415          10  FILLER                  PIC  X(37)                   DTSBR122
00416                 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'.    DTSBR122
00417          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00418          10  FILLER                  PIC  X(05)                   DTSBR122
00419                 VALUE 'PAGE:'.                                    DTSBR122
00420          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR122
00421          10  HDR2-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR122
00422      05  HEADER2-4                   PIC  X(133) VALUE SPACES.    DTSBR122
00423      05  HEADER2-5.                                               DTSBR122
00424          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00425          10  FILLER                  PIC  X(17)                   DTSBR122
00426                 VALUE 'REPORTING PERIOD:'.                        DTSBR122
00427          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00428          10  WS-H2-PERIOD-START-DATE PIC  X(08).                  DTSBR122
00429          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00430          10  FILLER                  PIC  X(01)                   DTSBR122
00431                 VALUE '-'.                                        DTSBR122
00432          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00433          10  WS-H2-PERIOD-END-DATE   PIC  X(08).                  DTSBR122
00434          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR122
00435          10  WS-H2-SUMMARY-TITLE     PIC  X(18).                  DTSBR122
00436      05  HEADER2-8                   PIC  X(133) VALUE SPACES.    DTSBR122
00437      05  HEADER2-9.                                               DTSBR122
00438          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00439          10  FILLER                  PIC  X(14)                   DTSBR122
00440                 VALUE 'INACTIVATIONS '.                           DTSBR122
00441          10  WS-INAC-TYPE-DSCR       PIC  X(08) VALUE SPACE.      DTSBR122
00442      05  HEADER2-11                  PIC  X(133) VALUE SPACES.    DTSBR122
00443      05  HEADER2-12.                                              DTSBR122
00444          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00445          10  WS-INAC-COL-HDR1        PIC  X(114) VALUE SPACE.     DTSBR122
00446      05  HEADER2-13.                                              DTSBR122
00447          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00448          10  WS-INAC-COL-HDR2        PIC  X(114) VALUE SPACE.     DTSBR122
00449                                                                   DTSBR122
00450 ***                                      DETAIL-LINE2-R.          DTSBR122
00451  01  FILLER.                                                      DTSBR122
00452      05  DL2R-LINE-2.                                             DTSBR122
00453          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00454          10  WS-DL2R-EMP-NO          PIC  999B999.                DTSBR122
00455          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR122
00456          10  WS-INAC-R-PRIMARY-NAME  PIC  X(40) VALUE SPACE.      DTSBR122
00457          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR122
00458          10  WS-DL2R-INAC-DATE       PIC  X(08) VALUE SPACE.      DTSBR122
00459          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00460          10  WS-INAC-R-TIME-LAPSE    PIC  Z(04)9.                 DTSBR122
00461          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00462          10  WS-DL2R-90-DAY-IND      PIC  X(01) VALUE SPACE.      DTSBR122
00463          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00464          10  WS-DL2R-180-DAY-IND     PIC  X(01) VALUE SPACE.      DTSBR122
00465                                                                   DTSBR122
00466 ***                                      DETAIL-LINE2-E.          DTSBR122
00467  01  FILLER.                                                      DTSBR122
00468      05  DL2E-LINE-2.                                             DTSBR122
00469          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00470          10  WS-DL2E-EMP-NO          PIC  999B999.                DTSBR122
00471          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR122
00472          10  WS-INAC-E-PRIMARY-NAME  PIC  X(40) VALUE SPACE.      DTSBR122
00473          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00474          10  WS-DL2E-OPERID          PIC  X(08) VALUE SPACE.      DTSBR122
00475          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00476          10  WS-DL2E-INACTIVE-DATE   PIC  X(08) VALUE SPACE.      DTSBR122
00477          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00478          10  WS-DL2E-INAC-DATE       PIC  X(08) VALUE SPACE.      DTSBR122
00479                                                                   DTSBR122
00480 ***                                     CONTROL-FOOTING-2.        DTSBR122
00481  01  FILLER.                                                      DTSBR122
00482      05  CF2-LINE-3.                                              DTSBR122
00483          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR122
00484          10  WS-CF2-NUMBER-TWO       PIC  ZZ,ZZ9.                 DTSBR122
00485          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR122
00486          10  WS-INAC-FOOTING-TEXT    PIC  X(43) VALUE SPACE.      DTSBR122
00487                                                                   DTSBR122
00488 ***************************************************************   DTSBR122
00489 *    COMMON HEADINGS FOR DTSBR122 (RPT122R3) REPORT               DTSBR122
00490 ***************************************************************   DTSBR122
00491  01  PAGE-HEADING-3.                                              DTSBR122
00492      05  HEADER3-1.                                               DTSBR122
00493          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00494          10  WS-REPORT-TYPE-3        PIC  X(05) VALUE SPACE.      DTSBR122
00495          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00496          10  WS-H3-AGY-NAME-LINE1    PIC  X(50) VALUE SPACE.      DTSBR122
00497          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR122
00498          10  FILLER                  PIC  X(05)                   DTSBR122
00499                 VALUE 'DATE:'.                                    DTSBR122
00500          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00501          10  WS-H3-SYS-DATE          PIC  X(08) VALUE SPACE.      DTSBR122
00502      05  HEADER3-2.                                               DTSBR122
00503          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR122
00504          10  WS-H3-AGY-NAME-LINE2    PIC  X(50).                  DTSBR122
00505          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR122
00506          10  FILLER                  PIC  X(05)                   DTSBR122
00507                 VALUE 'TIME:'.                                    DTSBR122
00508          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00509          10  WS-H3-SYS-TIME          PIC  X(08) VALUE SPACE.      DTSBR122
00510      05  HEADER3-3.                                               DTSBR122
00511          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00512          10  FILLER                  PIC  X(40)                   DTSBR122
00513                 VALUE 'ROUTE TO:  REGISTRATION AND RATES     '.   DTSBR122
00514          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR122
00515          10  FILLER                  PIC  X(37)                   DTSBR122
00516                 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'.    DTSBR122
00517          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00518          10  FILLER                  PIC  X(05)                   DTSBR122
00519                 VALUE 'PAGE:'.                                    DTSBR122
00520          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR122
00521          10  HDR3-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR122
00522      05  HEADER3-4                   PIC  X(133) VALUE SPACES.    DTSBR122
00523      05  HEADER3-5.                                               DTSBR122
00524          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00525          10  FILLER                  PIC  X(17)                   DTSBR122
00526                 VALUE 'REPORTING PERIOD:'.                        DTSBR122
00527          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00528          10  WS-H3-PERIOD-START-DATE    PIC  X(08).               DTSBR122
00529          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00530          10  FILLER                  PIC  X(01)                   DTSBR122
00531                 VALUE '-'.                                        DTSBR122
00532          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00533          10  WS-H3-PERIOD-END-DATE   PIC  X(08) VALUE SPACE.      DTSBR122
00534          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR122
00535          10  WS-H3-SUMMARY-TITLE     PIC  X(18) VALUE SPACE.      DTSBR122
00536                                                                   DTSBR122
00537 ***                                          DETAIL-LINE3.        DTSBR122
00538  01  FILLER.                                                      DTSBR122
00539      05  DL3-LINE-9.                                              DTSBR122
00540          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR122
00541          10  FILLER                  PIC  X(40)                   DTSBR122
00542                 VALUE 'LIABILITY DETERMINATION TIME LAPSE DURIN'. DTSBR122
00543          10  FILLER                  PIC  X(40)                   DTSBR122
00544                 VALUE 'G REPORTING PERIOD                      '. DTSBR122
00545      05  DL3-LINE-10                 PIC X(133) VALUE SPACES.     DTSBR122
00546      05  DL3-LINE-11                 PIC X(133) VALUE SPACES.     DTSBR122
00547      05  DL3-LINE-12.                                             DTSBR122
00548          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR122
00549          10  FILLER                  PIC  X(40)                   DTSBR122
00550                 VALUE '          LESS THAN OR       PERCENT LES'. DTSBR122
00551          10  FILLER                  PIC  X(40)                   DTSBR122
00552                 VALUE 'S        LESS THAN OR      PERCENT LESS '. DTSBR122
00553      05  DL3-LINE-13.                                             DTSBR122
00554          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR122
00555          10  FILLER                  PIC  X(40)                   DTSBR122
00556                 VALUE 'ALL       EQUAL 90 DAYS      THAN OR EQU'. DTSBR122
00557          10  FILLER                  PIC  X(40)                   DTSBR122
00558                 VALUE 'AL      EQUAL 180 DAYS     THAN OR EQUAL'. DTSBR122
00559      05  DL3-LINE-14.                                             DTSBR122
00560          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR122
00561          10  FILLER                  PIC  X(40)                   DTSBR122
00562                 VALUE '                                90 DAYS '. DTSBR122
00563          10  FILLER                  PIC  X(40)                   DTSBR122
00564                 VALUE '                             180 DAYS   '. DTSBR122
00565      05  DL3-LINE-15                 PIC X(133) VALUE SPACES.     DTSBR122
00566      05  DL3-LINE-16.                                             DTSBR122
00567          10  FILLER                  PIC  X(14)  VALUE SPACES.    DTSBR122
00568          10  FILLER                  PIC  X(03)                   DTSBR122
00569                 VALUE 'NEW'.                                      DTSBR122
00570          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00571          10  WS-SUM-NEW              PIC  ZZ,ZZ9.                 DTSBR122
00572          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR122
00573          10  WS-SUM-NEW-90-DAY       PIC  ZZ,ZZ9.                 DTSBR122
00574          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00575          10  WS-SUM-NEW-90-DAY-PCT   PIC  ZZ9.99.                 DTSBR122
00576          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00577          10  WS-SUM-NEW-180-DAY      PIC  ZZ,ZZ9.                 DTSBR122
00578          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00579          10  WS-SUM-NEW-180-DAY-PCT  PIC  ZZ9.999.                DTSBR122
00580      05  DL3-LINE-17                 PIC X(133) VALUE SPACES.     DTSBR122
00581      05  DL3-LINE-18.                                             DTSBR122
00582          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR122
00583          10  FILLER                  PIC  X(09)                   DTSBR122
00584                 VALUE 'SUCCESSOR'.                                DTSBR122
00585          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00586          10  WS-SUM-SUCC             PIC  ZZ,ZZ9.                 DTSBR122
00587          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR122
00588          10  WS-SUM-SUCC-90-DAY      PIC  ZZ,ZZ9.                 DTSBR122
00589          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00590          10  WS-SUM-SUCC-90-DAY-PCT  PIC  ZZ9.999.                DTSBR122
00591          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00592          10  WS-SUM-SUCC-180-DAY     PIC  ZZ,ZZ9.                 DTSBR122
00593          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00594          10  WS-SUM-SUCC-180-DAY-PCT PIC  ZZ9.999.                DTSBR122
00595      05  DL3-LINE-19                 PIC X(133) VALUE SPACES.     DTSBR122
00596      05  DL3-LINE-20.                                             DTSBR122
00597          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR122
00598          10  FILLER                  PIC  X(09)                   DTSBR122
00599                 VALUE '    TOTAL'.                                DTSBR122
00600          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00601          10  WS-SUM-TOT              PIC  ZZ,ZZ9.                 DTSBR122
00602          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR122
00603          10  WS-SUM-TOT-90-DAY       PIC  ZZ,ZZ9.                 DTSBR122
00604          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00605          10  WS-SUM-TOT-90-DAY-PCT   PIC  ZZ9.999.                DTSBR122
00606          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00607          10  WS-SUM-TOT-180-DAY      PIC  ZZ,ZZ9.                 DTSBR122
00608          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00609          10  WS-SUM-TOT-180-DAY-PCT  PIC  ZZ9.999.                DTSBR122
00610      05  DL3-LINE-21                 PIC X(133) VALUE SPACES.     DTSBR122
00611      05  DL3-LINE-22                 PIC X(133) VALUE SPACES.     DTSBR122
00612      05  DL3-LINE-23                 PIC X(133) VALUE SPACES.     DTSBR122
00613      05  DL3-LINE-24                 PIC X(133) VALUE SPACES.     DTSBR122
00614      05  DL3-LINE-25.                                             DTSBR122
00615          10  FILLER                  PIC  X(17)  VALUE SPACES.    DTSBR122
00616          10  FILLER                  PIC  X(38)                   DTSBR122
00617                 VALUE 'ACTIVE EMPLOYERS AS OF REPORT RUN DATE'.   DTSBR122
00618      05  DL3-LINE-26                 PIC X(133) VALUE SPACES.     DTSBR122
00619      05  DL3-LINE-27.                                             DTSBR122
00620          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00621          10  FILLER                  PIC  X(13)                   DTSBR122
00622                 VALUE 'CHARGING ONLY'.                            DTSBR122
00623          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR122
00624          10  DL3-ACTIVE-CHG-ONLY-TOT PIC  ZZ,ZZ9.                 DTSBR122
00625      05  DL3-LINE-28                 PIC X(133) VALUE SPACES.     DTSBR122
00626      05  DL3-LINE-29.                                             DTSBR122
00627          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00628          10  FILLER                  PIC  X(12)                   DTSBR122
00629                 VALUE 'RATED       '.                             DTSBR122
00630          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00631          10  DL3-ACTIVE-RATED-TOT    PIC  ZZ,ZZ9.                 DTSBR122
00632      05  DL3-LINE-30                 PIC X(133) VALUE SPACES.     DTSBR122
00633      05  DL3-LINE-31.                                             DTSBR122
00634          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00635          10  FILLER                  PIC  X(12)                   DTSBR122
00636                 VALUE 'SELF-INSURED'.                             DTSBR122
00637          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00638          10  DL3-ACTIVE-SELF-TOT     PIC  ZZ,ZZ9.                 DTSBR122
00639      05  DL3-LINE-32                 PIC X(133) VALUE SPACES.     DTSBR122
00640      05  DL3-LINE-33.                                             DTSBR122
00641          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00642          10  FILLER                  PIC  X(12)                   DTSBR122
00643                 VALUE 'UNKNOWN     '.                             DTSBR122
00644          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00645          10  DL3-ACTIVE-UNK-TOT      PIC  ZZ,ZZ9.                 DTSBR122
00646      05  DL3-LINE-34                 PIC X(133) VALUE SPACES.     DTSBR122
00647      05  DL3-LINE-35.                                             DTSBR122
00648          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00649          10  FILLER                  PIC  X(13)                   DTSBR122
00650                 VALUE '       TOTAL:'.                            DTSBR122
00651          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR122
00652          10  DL3-ACTIVE-TOT-TOT      PIC  ZZ,ZZ9.                 DTSBR122
00653                                                                   DTSBR122
00654 ***************************************************************   DTSBR122
00655 *    COMMON HEADINGS FOR DTSBR122 (RPT122R4) REPORT               DTSBR122
00656 ***************************************************************   DTSBR122
00657  01  PAGE-HEADING-4.                                              DTSBR122
00658      05  HEADER4-1.                                               DTSBR122
00659          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR122
00660          10  WS-REPORT-TYPE-4        PIC  X(05) VALUE SPACE.      DTSBR122
00661          10  FILLER                  PIC  X(34) VALUE SPACES.     DTSBR122
00662          10  WS-H4-AGY-NAME-LINE1    PIC  X(50) VALUE SPACE.      DTSBR122
00663          10  FILLER                  PIC  X(28) VALUE SPACES.     DTSBR122
00664          10  FILLER                  PIC  X(05)                   DTSBR122
00665                 VALUE 'DATE:'.                                    DTSBR122
00666          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR122
00667          10  WS-H4-SYS-DATE          PIC  X(08) VALUE SPACE.      DTSBR122
00668      05  HEADER4-2.                                               DTSBR122
00669          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR122
00670          10  WS-H4-AGY-NAME-LINE2    PIC  X(50) VALUE SPACE.      DTSBR122
00671          10  FILLER                  PIC  X(28) VALUE SPACES.     DTSBR122
00672          10  FILLER                  PIC  X(05)                   DTSBR122
00673                 VALUE 'TIME:'.                                    DTSBR122
00674          10  FILLER                  PIC  X(01) VALUE SPACES.     DTSBR122
00675          10  WS-H4-SYS-TIME          PIC  X(08) VALUE SPACE.      DTSBR122
00676      05  HEADER4-3.                                               DTSBR122
00677          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00678          10  FILLER                  PIC  X(33)                   DTSBR122
00679                 VALUE 'ROUTE TO: REGISTRATION AND RATES'.         DTSBR122
00680          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00681          10  FILLER                  PIC  X(37)                   DTSBR122
00682                 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'.    DTSBR122
00683          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00684          10  FILLER                  PIC  X(05)                   DTSBR122
00685                 VALUE 'PAGE:'.                                    DTSBR122
00686          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR122
00687          10  HDR4-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR122
00688      05  HEADER4-4                   PIC  X(133) VALUE SPACES.    DTSBR122
00689      05  HEADER4-5                   PIC  X(133) VALUE SPACES.    DTSBR122
00690      05  HEADER4-6.                                               DTSBR122
00691          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00692          10  FILLER                  PIC  X(28)                   DTSBR122
00693                 VALUE 'MISSING FR-500 RECEIVED DATE'.             DTSBR122
00694          10  FILLER                  PIC  X(100) VALUE SPACE.     DTSBR122
00695      05  HEADER4-7                   PIC  X(133) VALUE SPACES.    DTSBR122
00696      05  HEADER4-8.                                               DTSBR122
00697          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00698          10  FILLER                  PIC  X(23)                   DTSBR122
00699                 VALUE ' EMP NO   PRIMARY NAME '.                  DTSBR122
00700          10  FILLER                  PIC  X(31)  VALUE SPACES.    DTSBR122
00701          10  FILLER                  PIC  X(08)                   DTSBR122
00702                 VALUE 'OPER ID '.                                 DTSBR122
00703          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00704          10  FILLER                  PIC  X(09)                   DTSBR122
00705                 VALUE 'LIABILITY'.                                DTSBR122
00706          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00707          10  FILLER                  PIC  X(12)                   DTSBR122
00708                 VALUE 'SOURCE      '.                             DTSBR122
00709          10  FILLER                  PIC  X(48)  VALUE SPACES.    DTSBR122
00710      05  HEADER4-9.                                               DTSBR122
00711          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00712          10  FILLER                  PIC  X(54)  VALUE SPACES.    DTSBR122
00713          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR122
00714          10  FILLER                  PIC  X(10)                   DTSBR122
00715                 VALUE 'ENTRY DATE'.                               DTSBR122
00716          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR122
00717          10  FILLER                  PIC  X(60)  VALUE SPACES.    DTSBR122
00718      05  HEADER4-10                  PIC  X(133) VALUE SPACES.    DTSBR122
00719                                                                   DTSBR122
00720 ***                                      DETAIL-LINE4.            DTSBR122
00721  01  FILLER.                                                      DTSBR122
00722      05  DTL4-LINE.                                               DTSBR122
00723          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00724          10  WS-DTL4-EMP-NO          PIC  999B999.                DTSBR122
00725          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR122
00726          10  WS-DTL4-PRIMARY-NAME    PIC  X(40)  VALUE SPACES.    DTSBR122
00727          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00728          10  WS-DTL4-OPERID          PIC  X(08)  VALUE SPACES.    DTSBR122
00729          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00730          10  WS-DTL4-LIAB-DATE       PIC  X(08)  VALUE SPACES.    DTSBR122
00731          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR122
00732          10  WS-DTL4-SOURCE          PIC  X(02)  VALUE SPACES.    DTSBR122
00733          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR122
00734                                                                   DTSBR122
00735 ***                                     CONTROL-FOOTING-4.        DTSBR122
00736  01  FILLER.                                                      DTSBR122
00737      05  CF4-LINE.                                                DTSBR122
00738          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR122
00739          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR122
00740          10  WS-FOOT-NUMBER-FOUR     PIC  ZZ,ZZ9.                 DTSBR122
00741          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR122
00742          10  FILLER                  PIC  X(19)  VALUE            DTSBR122
00743                   'MISSING FR-500 DATE'.                          DTSBR122
00744          10  FILLER                  PIC  X(91) VALUE SPACES.     DTSBR122
00745                                                                   DTSBR122
00746 ***************************************************************   DTSBR122
00747 *    COMMON HEADINGS FOR DTSBR122 (RPT122R5) REPORT               DTSBR122
00748 ***************************************************************   DTSBR122
00749  01  PAGE-HEADING-5.                                              DTSBR122
00750      05  HEADER5-1.                                               DTSBR122
00751          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR122
00752          10  WS-REPORT-TYPE-5        PIC  X(05) VALUE SPACE.      DTSBR122
00753          10  FILLER                  PIC  X(34) VALUE SPACES.     DTSBR122
00754          10  WS-H5-AGY-NAME-LINE1    PIC  X(50) VALUE SPACE.      DTSBR122
00755          10  FILLER                  PIC  X(28) VALUE SPACES.     DTSBR122
00756          10  FILLER                  PIC  X(05)                   DTSBR122
00757                 VALUE 'DATE:'.                                    DTSBR122
00758          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR122
00759          10  WS-H5-SYS-DATE          PIC  X(08) VALUE SPACE.      DTSBR122
00760      05  HEADER5-2.                                               DTSBR122
00761          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR122
00762          10  WS-H5-AGY-NAME-LINE2    PIC  X(50) VALUE SPACE.      DTSBR122
00763          10  FILLER                  PIC  X(28) VALUE SPACES.     DTSBR122
00764          10  FILLER                  PIC  X(05)                   DTSBR122
00765                 VALUE 'TIME:'.                                    DTSBR122
00766          10  FILLER                  PIC  X(01) VALUE SPACES.     DTSBR122
00767          10  WS-H5-SYS-TIME          PIC  X(08) VALUE SPACE.      DTSBR122
00768      05  HEADER5-3.                                               DTSBR122
00769          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00770          10  FILLER                  PIC  X(33)                   DTSBR122
00771                 VALUE 'ROUTE TO: REGISTRATION AND RATES'.         DTSBR122
00772          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00773          10  FILLER                  PIC  X(37)                   DTSBR122
00774                 VALUE 'LIABILITY DETERMINATION ACTIVITY LIST'.    DTSBR122
00775          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00776          10  FILLER                  PIC  X(05)                   DTSBR122
00777                 VALUE 'PAGE:'.                                    DTSBR122
00778          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR122
00779          10  HDR5-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR122
00780      05  HEADER5-4                   PIC  X(133) VALUE SPACES.    DTSBR122
00781      05  HEADER5-5                   PIC  X(133) VALUE SPACES.    DTSBR122
00782      05  HEADER5-6.                                               DTSBR122
00783          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00784          10  FILLER                  PIC  X(22)                   DTSBR122
00785                 VALUE 'PENDING DETERMINATIONS'.                   DTSBR122
00786          10  FILLER                  PIC  X(106) VALUE SPACE.     DTSBR122
00787      05  HEADER5-7                   PIC  X(133) VALUE SPACES.    DTSBR122
00788      05  HEADER5-8.                                               DTSBR122
00789          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00790          10  FILLER                  PIC  X(23)                   DTSBR122
00791                 VALUE ' EMP NO   PRIMARY NAME '.                  DTSBR122
00792          10  FILLER                  PIC  X(31)  VALUE SPACES.    DTSBR122
00793          10  FILLER                  PIC  X(08)                   DTSBR122
00794                 VALUE 'OPER ID '.                                 DTSBR122
00795          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00796          10  FILLER                  PIC  X(12)                   DTSBR122
00797                 VALUE 'REGISTRATION'.                             DTSBR122
00798          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00799          10  FILLER                  PIC  X(11)                   DTSBR122
00800                 VALUE 'LAST ACTION'.                              DTSBR122
00801          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR122
00802          10  FILLER                  PIC  X(11)                   DTSBR122
00803                 VALUE 'LAST ACTION'.                              DTSBR122
00804          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR122
00805      05  HEADER5-9.                                               DTSBR122
00806          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00807          10  FILLER                  PIC  X(54)  VALUE SPACES.    DTSBR122
00808          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR122
00809          10  FILLER                  PIC  X(10)                   DTSBR122
00810                 VALUE 'ENTRY DATE'.                               DTSBR122
00811          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR122
00812          10  FILLER                  PIC  X(04)  VALUE 'DATE'.    DTSBR122
00813          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR122
00814          10  FILLER                  PIC  X(04)  VALUE 'TYPE'.    DTSBR122
00815          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR122
00816      05  HEADER5-10                  PIC  X(133) VALUE SPACES.    DTSBR122
00817                                                                   DTSBR122
00818 ***                                      DETAIL-LINE5.            DTSBR122
00819  01  FILLER.                                                      DTSBR122
00820      05  DTL5-LINE.                                               DTSBR122
00821          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR122
00822          10  WS-DTL5-EMP-NO          PIC  999B999.                DTSBR122
00823          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR122
00824          10  WS-DTL5-PRIMARY-NAME    PIC  X(40)  VALUE SPACE.     DTSBR122
00825          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR122
00826          10  WS-DTL5-OPERID          PIC  X(08)  VALUE SPACE.     DTSBR122
00827          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR122
00828          10  WS-DTL5-REGI-DATE       PIC  X(08)  VALUE SPACE.     DTSBR122
00829          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR122
00830          10  WS-DTL5-LAST-ACT-DATE   PIC  X(08)  VALUE SPACE.     DTSBR122
00831          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR122
00832          10  WS-DTL5-LAST-ACT-TYPE   PIC  X(15)  VALUE SPACE.     DTSBR122
00833          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR122
00834                                                                   DTSBR122
00835 ***                                     CONTROL-FOOTING-5.        DTSBR122
00836  01  FILLER.                                                      DTSBR122
00837      05  CF5-LINE.                                                DTSBR122
00838          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR122
00839          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR122
00840          10  WS-FOOT-NUMBER-FIVE     PIC  ZZ,ZZ9.                 DTSBR122
00841          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR122
00842          10  FILLER                  PIC  X(22) VALUE             DTSBR122
00843                   'PENDING DETERMINATIONS'.                       DTSBR122
00844          10  FILLER                  PIC  X(88)  VALUE SPACES.    DTSBR122
00845                                                                   DTSBR122
00846      EJECT                                                        DTSBR122
00847  LINKAGE SECTION.                                                 DTSBR122
00848                                                                   DTSBR122
00849  01  LRCM-LINK-AREA.                                              DTSBR122
00850  ++INCLUDE DTSILRCM                                               DTSBR122
00851      EJECT                                                        DTSBR122
00852  01  R122-REC.                                                    DTSBR122
00853  ++INCLUDE DTSIR122                                               DTSBR122
00854      EJECT                                                        DTSBR122
00855  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR122
00856                           R122-REC.                               DTSBR122
00857                                                                   DTSBR122
00858      IF FIRST-TIME-IND = 'Y'                                      DTSBR122
00859          PERFORM I1000-INITIATE                                   DTSBR122
00860             THRU I1000-EXIT                                       DTSBR122
00861          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR122
00862                                                                   DTSBR122
00863      IF LRCM-EOR-88                                               DTSBR122
00864          PERFORM P5000-SUMMARY-REPORT                             DTSBR122
00865             THRU P5000-EXIT                                       DTSBR122
00866          PERFORM T1000-TERMINATE                                  DTSBR122
00867             THRU T1000-EXIT                                       DTSBR122
00868      ELSE                                                         DTSBR122
00869          PERFORM P1000-PROCESS                                    DTSBR122
00870             THRU P1000-EXIT.                                      DTSBR122
00871                                                                   DTSBR122
00872      GOBACK.                                                      DTSBR122
00873      EJECT                                                        DTSBR122
00874  I1000-INITIATE.                                                  DTSBR122
00875                                                                   DTSBR122
00876      MOVE R122-PERIOD-START-DATE TO L001-FED-8-DATE-9.            DTSBR122
00877      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR122
00878                                                                   DTSBR122
00879      PERFORM S001-DATE                                            DTSBR122
00880         THRU S001-EXIT.                                           DTSBR122
00881                                                                   DTSBR122
00882      MOVE WS-REPORT-TYPE1 TO WS-REPORT-TYPE-1.                    DTSBR122
00883      MOVE WS-REPORT-TYPE2 TO WS-REPORT-TYPE-2.                    DTSBR122
00884      MOVE WS-REPORT-TYPE3 TO WS-REPORT-TYPE-3.                    DTSBR122
00885      MOVE WS-REPORT-TYPE4 TO WS-REPORT-TYPE-4.                    DTSBR122
00886      MOVE WS-REPORT-TYPE5 TO WS-REPORT-TYPE-5.                    DTSBR122
00887      MOVE L001-SLASH-DATE TO WS-H1-PERIOD-START-DATE              DTSBR122
00888                              WS-H2-PERIOD-START-DATE              DTSBR122
00889                              WS-H3-PERIOD-START-DATE.             DTSBR122
00890                                                                   DTSBR122
00891      MOVE R122-PERIOD-END-DATE TO L001-FED-8-DATE-9.              DTSBR122
00892                                                                   DTSBR122
00893      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR122
00894                                                                   DTSBR122
00895      PERFORM S001-DATE                                            DTSBR122
00896         THRU S001-EXIT.                                           DTSBR122
00897                                                                   DTSBR122
00898      MOVE L001-SLASH-DATE TO WS-H1-PERIOD-END-DATE                DTSBR122
00899                              WS-H2-PERIOD-END-DATE                DTSBR122
00900                              WS-H3-PERIOD-END-DATE.               DTSBR122
00901                                                                   DTSBR122
00902      SET WS-LIAB-TYPE-HOLD-INIT-88 TO TRUE.                       DTSBR122
00903      SET WS-INAC-TYPE-HOLD-INIT-88 TO TRUE.                       DTSBR122
00904                                                                   DTSBR122
00905      OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4          DTSBR122
00906                  PRT-FILE5.                                       DTSBR122
00907      MOVE SPACES TO REPORT-LISTING1.                              DTSBR122
00908      MOVE SPACES TO REPORT-LISTING2.                              DTSBR122
00909      MOVE SPACES TO REPORT-LISTING3.                              DTSBR122
00910      MOVE SPACES TO REPORT-LISTING4.                              DTSBR122
00911      MOVE SPACES TO REPORT-LISTING5.                              DTSBR122
00912                                                                   DTSBR122
00913      MOVE LRCM-SYS-DATE TO WS-H1-SYS-DATE                         DTSBR122
00914                            WS-H2-SYS-DATE                         DTSBR122
00915                            WS-H3-SYS-DATE                         DTSBR122
00916                            WS-H4-SYS-DATE                         DTSBR122
00917                            WS-H5-SYS-DATE.                        DTSBR122
00918      MOVE LRCM-SYS-TIME TO WS-H1-SYS-TIME                         DTSBR122
00919                            WS-H2-SYS-TIME                         DTSBR122
00920                            WS-H3-SYS-TIME                         DTSBR122
00921                            WS-H4-SYS-TIME                         DTSBR122
00922                            WS-H5-SYS-TIME.                        DTSBR122
00923      MOVE LRCM-AGY-NAME-LINE1 TO WS-H1-AGY-NAME-LINE1             DTSBR122
00924                                  WS-H2-AGY-NAME-LINE1             DTSBR122
00925                                  WS-H3-AGY-NAME-LINE1             DTSBR122
00926                                  WS-H4-AGY-NAME-LINE1             DTSBR122
00927                                  WS-H5-AGY-NAME-LINE1.            DTSBR122
00928      MOVE LRCM-AGY-NAME-LINE2 TO WS-H1-AGY-NAME-LINE2             DTSBR122
00929                                  WS-H2-AGY-NAME-LINE2             DTSBR122
00930                                  WS-H3-AGY-NAME-LINE2             DTSBR122
00931                                  WS-H4-AGY-NAME-LINE2             DTSBR122
00932                                  WS-H5-AGY-NAME-LINE2.            DTSBR122
00933  I1000-EXIT.                                                      DTSBR122
00934      EXIT.                                                        DTSBR122
00935      EJECT                                                        DTSBR122
00936  P1000-PROCESS.                                                   DTSBR122
00937      EVALUATE TRUE                                                DTSBR122
00938         WHEN R122-LIAB-ENTERED-NEW-88                             DTSBR122
00939             PERFORM P2000-LIAB                                    DTSBR122
00940                THRU P2000-EXIT                                    DTSBR122
00941         WHEN R122-LIAB-ENTERED-SUCC-88                            DTSBR122
00942             PERFORM P2000-LIAB                                    DTSBR122
00943                THRU P2000-EXIT                                    DTSBR122
00944         WHEN R122-INACT-ENTERED-88                                DTSBR122
00945             PERFORM P3000-INAC                                    DTSBR122
00946                THRU P3000-EXIT                                    DTSBR122
00947         WHEN R122-INACT-REVERSED-88                               DTSBR122
00948             PERFORM P3000-INAC                                    DTSBR122
00949                THRU P3000-EXIT                                    DTSBR122
00950         WHEN R122-ACTIVE-EMPLOYER-88                              DTSBR122
00951             PERFORM P4000-ACTIVE-COUNT                            DTSBR122
00952                THRU P4000-EXIT                                    DTSBR122
00953         WHEN R122-MISSING-FR500-88                                DTSBR122
00954             PERFORM P9200-FR500-DATA                              DTSBR122
00955                THRU P9200-EXIT                                    DTSBR122
00956         WHEN R122-PENDING-DETERM-88                               DTSBR122
00957             PERFORM P9400-PENDING-DATA                            DTSBR122
00958                THRU P9400-EXIT                                    DTSBR122
00959      END-EVALUATE.                                                DTSBR122
00960                                                                   DTSBR122
00961  P1000-EXIT.                                                      DTSBR122
00962      EXIT.                                                        DTSBR122
00963      EJECT                                                        DTSBR122
00964  P2000-LIAB.                                                      DTSBR122
00965 ***                                        PROCESS LIABILITIES    DTSBR122
00966      IF R122-CATEGORY = WS-LIAB-TYPE-HOLD                         DTSBR122
00967          NEXT SENTENCE                                            DTSBR122
00968      ELSE                                                         DTSBR122
00969 ***                                          SET UP FOR OLD FTR   DTSBR122
00970          EVALUATE TRUE                                            DTSBR122
00971             WHEN WS-LIAB-TYPE-HOLD-INIT-88                        DTSBR122
00972                 MOVE SPACES                                       DTSBR122
00973                    TO WS-CTF-LIAB-FOOTING-TEXT                    DTSBR122
00974             WHEN WS-LIAB-TYPE-HOLD-NEW-88                         DTSBR122
00975                 MOVE WS-LIAB-FOOTING-TEXT-N                       DTSBR122
00976                    TO WS-CTF-LIAB-FOOTING-TEXT                    DTSBR122
00977             WHEN WS-LIAB-TYPE-HOLD-SUCC-88                        DTSBR122
00978                 MOVE WS-LIAB-FOOTING-TEXT-S                       DTSBR122
00979                    TO WS-CTF-LIAB-FOOTING-TEXT                    DTSBR122
00980          END-EVALUATE                                             DTSBR122
00981 ***                                          LIAB. FOOTER NEEDED? DTSBR122
00982          IF WS-FOOT-NUMBER-ONE NOT = +0                           DTSBR122
00983             PERFORM  P7000-PRINT-FOOTER THRU P7000-EXIT           DTSBR122
00984          END-IF                                                   DTSBR122
00985 ***                                          SET UP FOR NEW HDR   DTSBR122
00986          EVALUATE TRUE                                            DTSBR122
00987             WHEN R122-LIAB-ENTERED-NEW-88                         DTSBR122
00988                 MOVE 'NEW      ' TO WS-LIAB-TYPE-DSCR             DTSBR122
00989             WHEN R122-LIAB-ENTERED-SUCC-88                        DTSBR122
00990                 MOVE 'SUCCESSOR' TO WS-LIAB-TYPE-DSCR             DTSBR122
00991          END-EVALUATE                                             DTSBR122
00992 ***                                          NOW DO THE NEW HDR   DTSBR122
00993          PERFORM P6000-PRINT-HEADER THRU P6000-EXIT               DTSBR122
00994 ***                                          SET UP FOR NEXT REC  DTSBR122
00995          MOVE R122-CATEGORY TO WS-LIAB-TYPE-HOLD                  DTSBR122
00996 ***                                          SET UP FOR NEW FTR   DTSBR122
00997          EVALUATE TRUE                                            DTSBR122
00998             WHEN WS-LIAB-TYPE-HOLD-NEW-88                         DTSBR122
00999                 MOVE WS-LIAB-FOOTING-TEXT-N                       DTSBR122
01000                      TO WS-CTF-LIAB-FOOTING-TEXT                  DTSBR122
01001             WHEN WS-LIAB-TYPE-HOLD-SUCC-88                        DTSBR122
01002                 MOVE WS-LIAB-FOOTING-TEXT-S                       DTSBR122
01003                      TO WS-CTF-LIAB-FOOTING-TEXT                  DTSBR122
01004          END-EVALUATE                                             DTSBR122
01005      END-IF.                                                      DTSBR122
01006                                                                   DTSBR122
01007      IF R122-LIAB-ENTERED-NEW-88                                  DTSBR122
01008          ADD +1 TO WS-SUMMARY-NEW                                 DTSBR122
01009          IF R122-LIAB-TIME-LAPSE > 90                             DTSBR122
01010              MOVE '*' TO WS-DL1-90-DAY-IND                        DTSBR122
01011          ELSE                                                     DTSBR122
01012              MOVE SPACE TO WS-DL1-90-DAY-IND                      DTSBR122
01013              ADD +1 TO WS-SUMMARY-NEW-90-DAY                      DTSBR122
01014          END-IF                                                   DTSBR122
01015          IF R122-LIAB-TIME-LAPSE > 180                            DTSBR122
01016              MOVE '*' TO WS-DL1-180-DAY-IND                       DTSBR122
01017          ELSE                                                     DTSBR122
01018              MOVE SPACE TO WS-DL1-180-DAY-IND                     DTSBR122
01019              ADD +1 TO WS-SUMMARY-NEW-180-DAY                     DTSBR122
01020          END-IF                                                   DTSBR122
01021      ELSE                                                         DTSBR122
01022          ADD +1 TO WS-SUMMARY-SUCC                                DTSBR122
01023          IF R122-LIAB-TIME-LAPSE > 90                             DTSBR122
01024              MOVE '*' TO WS-DL1-90-DAY-IND                        DTSBR122
01025          ELSE                                                     DTSBR122
01026              MOVE SPACE TO WS-DL1-90-DAY-IND                      DTSBR122
01027              ADD +1 TO WS-SUMMARY-SUCC-90-DAY                     DTSBR122
01028          END-IF                                                   DTSBR122
01029          IF R122-LIAB-TIME-LAPSE > 180                            DTSBR122
01030              MOVE '*' TO WS-DL1-180-DAY-IND                       DTSBR122
01031          ELSE                                                     DTSBR122
01032              MOVE SPACE TO WS-DL1-180-DAY-IND                     DTSBR122
01033              ADD +1 TO WS-SUMMARY-SUCC-180-DAY                    DTSBR122
01034          END-IF                                                   DTSBR122
01035      END-IF.                                                      DTSBR122
01036                                                                   DTSBR122
01037      MOVE R122-LIAB-ESTAB-DATE TO L001-FED-8-DATE-9.              DTSBR122
01038      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR122
01039      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR122
01040      MOVE L001-SLASH-DATE TO WS-LIAB-ESTAB-DATE.                  DTSBR122
01041                                                                   DTSBR122
01042      MOVE R122-LIAB-ENTRY-DATE TO L001-FED-8-DATE-9.              DTSBR122
01043      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR122
01044      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR122
01045      MOVE L001-SLASH-DATE TO WS-LIAB-ENTRY-DATE.                  DTSBR122
01046                                                                   DTSBR122
01047      MOVE R122-EMP-NO            TO WS-DL1-EMP-NO.                DTSBR122
01048      MOVE R122-LIAB-PRIMARY-NAME TO WS-LIAB-PRIMARY-NAME.         DTSBR122
01049      MOVE R122-LIAB-TIME-LAPSE   TO WS-R122-TIME-LAPSE.           DTSBR122
01050      MOVE R122-OP-ID             TO WS-LIAB-OP-ID.                DTSBR122
01051                                                                   DTSBR122
01052      WRITE REPORT-LISTING1 FROM DL1-LINE-2 AFTER 2.               DTSBR122
01053      ADD +2    TO WS-LINE-CNT-R1.                                 DTSBR122
01054 ***                                  COUNT LIABILITY EMPLRS       DTSBR122
01055      ADD +1    TO WS-FOOT-NUMBER-ONE.                             DTSBR122
01056      ADD +1    TO WS-SUM-NUMBER-ONE.                              DTSBR122
01057                                                                   DTSBR122
01058      IF WS-LINE-CNT-R1 > 54                                       DTSBR122
01059          PERFORM P6000-PRINT-HEADER THRU P6000-EXIT.              DTSBR122
01060  P2000-EXIT.                                                      DTSBR122
01061      EXIT.                                                        DTSBR122
01062      EJECT                                                        DTSBR122
01063  P3000-INAC.                                                      DTSBR122
01064 ***                                 FINISHED OFF LIAB. FOOTER?    DTSBR122
01065      IF WS-FOOT-NUMBER-ONE NOT = +0                               DTSBR122
01066         EVALUATE TRUE                                             DTSBR122
01067            WHEN WS-LIAB-TYPE-HOLD-NEW-88                          DTSBR122
01068                MOVE WS-LIAB-FOOTING-TEXT-N                        DTSBR122
01069                     TO WS-CTF-LIAB-FOOTING-TEXT                   DTSBR122
01070            WHEN WS-LIAB-TYPE-HOLD-SUCC-88                         DTSBR122
01071                MOVE WS-LIAB-FOOTING-TEXT-S                        DTSBR122
01072                     TO WS-CTF-LIAB-FOOTING-TEXT                   DTSBR122
01073         END-EVALUATE                                              DTSBR122
01074 ***                                     LIAB. NEW/SUCC. FOOTER    DTSBR122
01075         PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT                DTSBR122
01076 ***                                         LIAB. TOTAL FOOTER    DTSBR122
01077         PERFORM P7200-PRINT-FOOTER THRU P7200-EXIT                DTSBR122
01078      END-IF.                                                      DTSBR122
01079 *                                                                 DTSBR122
01080      IF R122-CATEGORY = WS-INAC-TYPE-HOLD                         DTSBR122
01081          NEXT SENTENCE                                            DTSBR122
01082      ELSE                                                         DTSBR122
01083 ***                              'INACT. ENTERED' FOOTER NEEDED?  DTSBR122
01084          IF WS-FOOT-NUMBER-TWO NOT = +0                           DTSBR122
01085             MOVE WS-FOOT-NUMBER-TWO TO WS-CF2-NUMBER-TWO          DTSBR122
01086             PERFORM  P8200-PRINT-FOOTER THRU P8200-EXIT           DTSBR122
01087             MOVE +0 TO WS-FOOT-NUMBER-TWO                         DTSBR122
01088          END-IF                                                   DTSBR122
01089 ***                              SET UP FOR INACT. NEW TRXS HDR   DTSBR122
01090          EVALUATE TRUE                                            DTSBR122
01091            WHEN R122-INACT-ENTERED-88                             DTSBR122
01092              MOVE 'ENTERED '          TO WS-INAC-TYPE-DSCR        DTSBR122
01093              MOVE WS-INAC-E-HEADINGS1 TO WS-INAC-COL-HDR1         DTSBR122
01094              MOVE WS-INAC-E-HEADINGS2 TO WS-INAC-COL-HDR2         DTSBR122
01095            WHEN R122-INACT-REVERSED-88                            DTSBR122
01096              MOVE 'REVERSED'          TO WS-INAC-TYPE-DSCR        DTSBR122
01097              MOVE WS-INAC-R-HEADINGS1 TO WS-INAC-COL-HDR1         DTSBR122
01098              MOVE WS-INAC-R-HEADINGS2 TO WS-INAC-COL-HDR2         DTSBR122
01099          END-EVALUATE                                             DTSBR122
01100 ***                                              NOW DO THE HDR   DTSBR122
01101          PERFORM P8000-PRINT-HEADER THRU P8000-EXIT               DTSBR122
01102 ***                                           SET UP FOR NEW REC  DTSBR122
01103          MOVE R122-CATEGORY TO WS-INAC-TYPE-HOLD                  DTSBR122
01104 ***                                           SET UP FOR NEW FTR  DTSBR122
01105          EVALUATE TRUE                                            DTSBR122
01106            WHEN WS-INAC-TYPE-HOLD-INIT-88                         DTSBR122
01107              MOVE SPACES                 TO WS-INAC-FOOTING-TEXT  DTSBR122
01108            WHEN WS-INAC-TYPE-HOLD-ENTERED-88                      DTSBR122
01109              MOVE WS-INAC-FOOTING-TEXT-E TO WS-INAC-FOOTING-TEXT  DTSBR122
01110            WHEN WS-INAC-TYPE-HOLD-REVERSED-88                     DTSBR122
01111              MOVE WS-INAC-FOOTING-TEXT-R TO WS-INAC-FOOTING-TEXT  DTSBR122
01112          END-EVALUATE                                             DTSBR122
01113      END-IF.                                                      DTSBR122
01114                                                                   DTSBR122
01115      IF R122-INACT-REVERSED-88                                    DTSBR122
01116          MOVE R122-INAC-R-DATE TO L001-FED-8-DATE-9               DTSBR122
01117          SET L001-FROM-FED-8 TO TRUE                              DTSBR122
01118          PERFORM S001-DATE THRU S001-EXIT                         DTSBR122
01119          MOVE L001-SLASH-DATE TO WS-DL2R-INAC-DATE                DTSBR122
01120                                                                   DTSBR122
01121          IF R122-INAC-R-TIME-LAPSE > 90                           DTSBR122
01122              MOVE '*' TO WS-DL2R-90-DAY-IND                       DTSBR122
01123          ELSE                                                     DTSBR122
01124              MOVE SPACE TO WS-DL2R-90-DAY-IND                     DTSBR122
01125              ADD +1 TO WS-SUMMARY-NEW-90-DAY                      DTSBR122
01126          END-IF                                                   DTSBR122
01127                                                                   DTSBR122
01128          IF R122-INAC-R-TIME-LAPSE > 180                          DTSBR122
01129              MOVE '*' TO WS-DL2R-180-DAY-IND                      DTSBR122
01130          ELSE                                                     DTSBR122
01131              MOVE SPACE TO WS-DL2R-180-DAY-IND                    DTSBR122
01132              ADD +1 TO WS-SUMMARY-NEW-180-DAY                     DTSBR122
01133          END-IF                                                   DTSBR122
01134                                                                   DTSBR122
01135          ADD +1 TO WS-SUMMARY-NEW                                 DTSBR122
01136                                                                   DTSBR122
01137          MOVE R122-EMP-NO              TO WS-DL2R-EMP-NO          DTSBR122
01138          MOVE R122-INAC-R-PRIMARY-NAME TO WS-INAC-R-PRIMARY-NAME  DTSBR122
01139          MOVE R122-INAC-R-TIME-LAPSE   TO WS-INAC-R-TIME-LAPSE    DTSBR122
01140                                                                   DTSBR122
01141          WRITE REPORT-LISTING2 FROM DL2R-LINE-2 AFTER 2           DTSBR122
01142          ADD +2    TO WS-LINE-CNT-R2                              DTSBR122
01143 ***                                          INACT. REVERSED      DTSBR122
01144          ADD +1    TO WS-FOOT-NUMBER-THREE                        DTSBR122
01145      ELSE                                                         DTSBR122
01146          MOVE R122-OP-ID      TO WS-DL2E-OPERID                   DTSBR122
01147          MOVE R122-INAC-E-INACT-DATE TO L001-FED-8-DATE-9         DTSBR122
01148          SET L001-FROM-FED-8 TO TRUE                              DTSBR122
01149          PERFORM S001-DATE THRU S001-EXIT                         DTSBR122
01150          MOVE L001-SLASH-DATE TO WS-DL2E-INACTIVE-DATE            DTSBR122
01151                                                                   DTSBR122
01152          MOVE R122-INAC-E-DATE TO L001-FED-8-DATE-9               DTSBR122
01153          SET L001-FROM-FED-8 TO TRUE                              DTSBR122
01154          PERFORM S001-DATE THRU S001-EXIT                         DTSBR122
01155          MOVE L001-SLASH-DATE TO WS-DL2E-INAC-DATE                DTSBR122
01156                                                                   DTSBR122
01157          MOVE R122-EMP-NO              TO WS-DL2E-EMP-NO          DTSBR122
01158          MOVE R122-INAC-E-PRIMARY-NAME TO WS-INAC-E-PRIMARY-NAME  DTSBR122
01159                                                                   DTSBR122
01160          WRITE REPORT-LISTING2 FROM DL2E-LINE-2 AFTER 2           DTSBR122
01161          ADD +2    TO WS-LINE-CNT-R2                              DTSBR122
01162 ***                                          INACT. ENTERED       DTSBR122
01163          ADD +1    TO WS-FOOT-NUMBER-TWO                          DTSBR122
01164      END-IF.                                                      DTSBR122
01165                                                                   DTSBR122
01166      IF WS-LINE-CNT-R2 > 54                                       DTSBR122
01167          PERFORM P8000-PRINT-HEADER THRU P8000-EXIT.              DTSBR122
01168  P3000-EXIT.                                                      DTSBR122
01169      EXIT.                                                        DTSBR122
01170      EJECT                                                        DTSBR122
01171  P4000-ACTIVE-COUNT.                                              DTSBR122
01172      EVALUATE TRUE                                                DTSBR122
01173         WHEN R122-CLASS-CHG-ONLY-88                               DTSBR122
01174                             ADD +1 TO WS-ACTIVE-CHG-ONLY-TOT      DTSBR122
01175         WHEN R122-CLASS-RATED-88                                  DTSBR122
01176                             ADD +1 TO WS-ACTIVE-RATED-TOT         DTSBR122
01177         WHEN R122-CLASS-SELF-INS-88                               DTSBR122
01178                             ADD +1 TO WS-ACTIVE-SELF-TOT          DTSBR122
01179         WHEN R122-CLASS-UNK-88                                    DTSBR122
01180                             ADD +1 TO WS-ACTIVE-UNK-TOT           DTSBR122
01181      END-EVALUATE.                                                DTSBR122
01182                                                                   DTSBR122
01183  P4000-EXIT.                                                      DTSBR122
01184      EXIT.                                                        DTSBR122
01185      EJECT                                                        DTSBR122
01186  P5000-SUMMARY-REPORT.                                            DTSBR122
01187 ***                                                    RPT122R3   DTSBR122
01188      MOVE 'SUMMARY STATISTICS' TO WS-H3-SUMMARY-TITLE.            DTSBR122
01189                                                                   DTSBR122
01190      ADD WS-SUMMARY-NEW WS-SUMMARY-SUCC GIVING WS-SUMMARY-TOT.    DTSBR122
01191                                                                   DTSBR122
01192      ADD WS-SUMMARY-NEW-90-DAY WS-SUMMARY-SUCC-90-DAY             DTSBR122
01193          GIVING WS-SUMMARY-TOT-90-DAY.                            DTSBR122
01194                                                                   DTSBR122
01195      ADD WS-SUMMARY-NEW-180-DAY WS-SUMMARY-SUCC-180-DAY           DTSBR122
01196         GIVING WS-SUMMARY-TOT-180-DAY.                            DTSBR122
01197                                                                   DTSBR122
01198      DIVIDE WS-SUMMARY-NEW-90-DAY BY WS-SUMMARY-NEW               DTSBR122
01199          GIVING WS-SUMMARY-NEW-90-DAY-DVD ROUNDED                 DTSBR122
01200        ON SIZE ERROR                                              DTSBR122
01201          MOVE +0 TO WS-SUMMARY-NEW-90-DAY-DVD.                    DTSBR122
01202                                                                   DTSBR122
01203      DIVIDE WS-SUMMARY-NEW-180-DAY BY WS-SUMMARY-NEW              DTSBR122
01204          GIVING WS-SUMMARY-NEW-180-DAY-DVD ROUNDED                DTSBR122
01205        ON SIZE ERROR                                              DTSBR122
01206          MOVE +0 TO WS-SUMMARY-NEW-180-DAY-DVD.                   DTSBR122
01207                                                                   DTSBR122
01208      DIVIDE WS-SUMMARY-SUCC-90-DAY BY WS-SUMMARY-SUCC             DTSBR122
01209          GIVING WS-SUMMARY-SUCC-90-DAY-DVD ROUNDED                DTSBR122
01210        ON SIZE ERROR                                              DTSBR122
01211          MOVE +0 TO WS-SUMMARY-SUCC-90-DAY-DVD.                   DTSBR122
01212                                                                   DTSBR122
01213      DIVIDE WS-SUMMARY-SUCC-180-DAY BY WS-SUMMARY-SUCC            DTSBR122
01214          GIVING WS-SUMMARY-SUCC-180-DAY-DVD ROUNDED               DTSBR122
01215        ON SIZE ERROR                                              DTSBR122
01216          MOVE +0 TO WS-SUMMARY-SUCC-180-DAY-DVD.                  DTSBR122
01217                                                                   DTSBR122
01218      DIVIDE WS-SUMMARY-TOT-90-DAY BY WS-SUMMARY-TOT               DTSBR122
01219          GIVING WS-SUMMARY-TOT-90-DAY-DVD ROUNDED                 DTSBR122
01220        ON SIZE ERROR                                              DTSBR122
01221          MOVE +0 TO WS-SUMMARY-TOT-90-DAY-DVD.                    DTSBR122
01222                                                                   DTSBR122
01223      DIVIDE WS-SUMMARY-TOT-180-DAY BY WS-SUMMARY-TOT              DTSBR122
01224          GIVING WS-SUMMARY-TOT-180-DAY-DVD ROUNDED                DTSBR122
01225        ON SIZE ERROR                                              DTSBR122
01226          MOVE +0 TO WS-SUMMARY-TOT-180-DAY-DVD.                   DTSBR122
01227                                                                   DTSBR122
01228      ADD WS-ACTIVE-RATED-TOT                                      DTSBR122
01229          WS-ACTIVE-CHG-ONLY-TOT                                   DTSBR122
01230          WS-ACTIVE-SELF-TOT                                       DTSBR122
01231          WS-ACTIVE-UNK-TOT                                        DTSBR122
01232      GIVING WS-ACTIVE-TOT-TOT.                                    DTSBR122
01233                                                                   DTSBR122
01234      PERFORM P9000-PRINT-HDR3-DETAIL THRU P9000-EXIT.             DTSBR122
01235                                                                   DTSBR122
01236  P5000-EXIT.                                                      DTSBR122
01237      EXIT.                                                        DTSBR122
01238      EJECT                                                        DTSBR122
01239  P6000-PRINT-HEADER.                                              DTSBR122
01240 ***                                           RPT122R1            DTSBR122
01241         MOVE +0          TO WS-LINE-CNT-R1                        DTSBR122
01242         ADD  +1          TO WS-PAGE-CNT                           DTSBR122
01243         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR122
01244         WRITE REPORT-LISTING1 FROM HEADER1-1 AFTER TOP-OF-PAGE    DTSBR122
01245         WRITE REPORT-LISTING1 FROM HEADER1-2 AFTER 1              DTSBR122
01246         WRITE REPORT-LISTING1 FROM HEADER1-3 AFTER 1              DTSBR122
01247         WRITE REPORT-LISTING1 FROM HEADER1-4 AFTER 1              DTSBR122
01248         WRITE REPORT-LISTING1 FROM HEADER1-6 AFTER 1              DTSBR122
01249         WRITE REPORT-LISTING1 FROM HEADER1-7 AFTER 1              DTSBR122
01250         WRITE REPORT-LISTING1 FROM HEADER1-9 AFTER 1              DTSBR122
01251         WRITE REPORT-LISTING1 FROM HEADER1-11 AFTER 1             DTSBR122
01252         WRITE REPORT-LISTING1 FROM HEADER1-12 AFTER 1             DTSBR122
01253         ADD +09   TO WS-LINE-CNT-R1.                              DTSBR122
01254  P6000-EXIT.                                                      DTSBR122
01255      EXIT.                                                        DTSBR122
01256 ***                                       LIABILITY FOOTER        DTSBR122
01257  P7000-PRINT-FOOTER.                                              DTSBR122
01258      IF WS-LINE-CNT-R1 > 52                                       DTSBR122
01259         PERFORM P6000-PRINT-HEADER THRU P6000-EXIT                DTSBR122
01260      END-IF.                                                      DTSBR122
01261                                                                   DTSBR122
01262      MOVE WS-FOOT-NUMBER-ONE TO WS-CTF-NUMBER-ONE.                DTSBR122
01263      WRITE REPORT-LISTING1 FROM CTF-LINE-3 AFTER 3.               DTSBR122
01264      ADD  +3 TO WS-LINE-CNT-R1.                                   DTSBR122
01265      MOVE +0 TO WS-FOOT-NUMBER-ONE.                               DTSBR122
01266                                                                   DTSBR122
01267  P7000-EXIT.                                                      DTSBR122
01268      EXIT.                                                        DTSBR122
01269                                                                   DTSBR122
01270 ***                                      LIAB TOTAL FOOTER        DTSBR122
01271  P7200-PRINT-FOOTER.                                              DTSBR122
01272      IF WS-LINE-CNT-R1 > 52                                       DTSBR122
01273         PERFORM P6000-PRINT-HEADER THRU P6000-EXIT                DTSBR122
01274      END-IF.                                                      DTSBR122
01275                                                                   DTSBR122
01276      MOVE WS-SUM-NUMBER-ONE TO WS-CFF-NUMBER-TWO.                 DTSBR122
01277      WRITE REPORT-LISTING1 FROM CFF-LINE-3 AFTER 3.               DTSBR122
01278      ADD  +3 TO WS-LINE-CNT-R1.                                   DTSBR122
01279 ***                                      SET UP FOR RPT122R2      DTSBR122
01280      MOVE +0          TO WS-PAGE-CNT.                             DTSBR122
01281                                                                   DTSBR122
01282  P7200-EXIT.                                                      DTSBR122
01283      EXIT.                                                        DTSBR122
01284      EJECT                                                        DTSBR122
01285  P8000-PRINT-HEADER.                                              DTSBR122
01286 ***                                                RPT122R2       DTSBR122
01287         MOVE +0          TO WS-LINE-CNT-R2                        DTSBR122
01288         ADD  +1          TO WS-PAGE-CNT                           DTSBR122
01289         MOVE WS-PAGE-CNT TO HDR2-PAGE-CNT                         DTSBR122
01290         WRITE REPORT-LISTING2 FROM HEADER2-1 AFTER TOP-OF-PAGE    DTSBR122
01291         WRITE REPORT-LISTING2 FROM HEADER2-2 AFTER 1              DTSBR122
01292         WRITE REPORT-LISTING2 FROM HEADER2-3 AFTER 1              DTSBR122
01293         WRITE REPORT-LISTING2 FROM HEADER2-4 AFTER 1              DTSBR122
01294         WRITE REPORT-LISTING2 FROM HEADER2-5 AFTER 1              DTSBR122
01295         WRITE REPORT-LISTING2 FROM HEADER2-8 AFTER 1              DTSBR122
01296         WRITE REPORT-LISTING2 FROM HEADER2-9 AFTER 1              DTSBR122
01297         WRITE REPORT-LISTING2 FROM HEADER2-11 AFTER 1             DTSBR122
01298         WRITE REPORT-LISTING2 FROM HEADER2-12 AFTER 1             DTSBR122
01299         WRITE REPORT-LISTING2 FROM HEADER2-13 AFTER 1             DTSBR122
01300         ADD +10   TO WS-LINE-CNT-R2.                              DTSBR122
01301  P8000-EXIT.                                                      DTSBR122
01302      EXIT.                                                        DTSBR122
01303 ***                                              INACT. FOOTER    DTSBR122
01304  P8200-PRINT-FOOTER.                                              DTSBR122
01305      IF WS-LINE-CNT-R2 > 52                                       DTSBR122
01306         PERFORM P8000-PRINT-HEADER THRU P8000-EXIT                DTSBR122
01307      END-IF.                                                      DTSBR122
01308                                                                   DTSBR122
01309      WRITE REPORT-LISTING2 FROM CF2-LINE-3 AFTER 3                DTSBR122
01310      ADD  +3 TO WS-LINE-CNT-R2.                                   DTSBR122
01311                                                                   DTSBR122
01312  P8200-EXIT.                                                      DTSBR122
01313      EXIT.                                                        DTSBR122
01314      EJECT                                                        DTSBR122
01315  P9000-PRINT-HDR3-DETAIL.                                         DTSBR122
01316 ***                                    THIS IS A 1-PAGE REPORT    DTSBR122
01317      MOVE +0          TO WS-PAGE-CNT.                             DTSBR122
01318      ADD  +1          TO WS-PAGE-CNT.                             DTSBR122
01319      MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT.                           DTSBR122
01320      WRITE REPORT-LISTING3 FROM HEADER3-1 AFTER TOP-OF-PAGE.      DTSBR122
01321      WRITE REPORT-LISTING3 FROM HEADER3-2 AFTER 1.                DTSBR122
01322      WRITE REPORT-LISTING3 FROM HEADER3-3 AFTER 1.                DTSBR122
01323      WRITE REPORT-LISTING3 FROM HEADER3-4 AFTER 1.                DTSBR122
01324      WRITE REPORT-LISTING3 FROM HEADER3-5 AFTER 1.                DTSBR122
01325                                                                   DTSBR122
01326      MOVE WS-SUMMARY-NEW             TO WS-SUM-NEW.               DTSBR122
01327      MOVE WS-SUMMARY-NEW-90-DAY      TO WS-SUM-NEW-90-DAY.        DTSBR122
01328      MOVE WS-SUMMARY-NEW-90-DAY-PCT  TO WS-SUM-NEW-90-DAY-PCT.    DTSBR122
01329      MOVE WS-SUMMARY-NEW-180-DAY     TO WS-SUM-NEW-180-DAY.       DTSBR122
01330      MOVE WS-SUMMARY-NEW-180-DAY-PCT TO WS-SUM-NEW-180-DAY-PCT.   DTSBR122
01331      MOVE WS-SUMMARY-SUCC            TO WS-SUM-SUCC.              DTSBR122
01332      MOVE WS-SUMMARY-SUCC-90-DAY     TO WS-SUM-SUCC-90-DAY.       DTSBR122
01333      MOVE WS-SUMMARY-SUCC-90-DAY-PCT TO WS-SUM-SUCC-90-DAY-PCT.   DTSBR122
01334      MOVE WS-SUMMARY-SUCC-180-DAY    TO WS-SUM-SUCC-180-DAY.      DTSBR122
01335      MOVE WS-SUMMARY-SUCC-180-DAY-PCT TO WS-SUM-SUCC-180-DAY-PCT. DTSBR122
01336      MOVE WS-SUMMARY-TOT             TO WS-SUM-TOT.               DTSBR122
01337      MOVE WS-SUMMARY-TOT-90-DAY      TO WS-SUM-TOT-90-DAY.        DTSBR122
01338      MOVE WS-SUMMARY-TOT-90-DAY-PCT  TO WS-SUM-TOT-90-DAY-PCT.    DTSBR122
01339      MOVE WS-SUMMARY-TOT-180-DAY     TO WS-SUM-TOT-180-DAY.       DTSBR122
01340      MOVE WS-SUMMARY-TOT-180-DAY-PCT TO WS-SUM-TOT-180-DAY-PCT.   DTSBR122
01341      MOVE WS-ACTIVE-CHG-ONLY-TOT     TO DL3-ACTIVE-CHG-ONLY-TOT.  DTSBR122
01342      MOVE WS-ACTIVE-RATED-TOT        TO DL3-ACTIVE-RATED-TOT.     DTSBR122
01343      MOVE WS-ACTIVE-SELF-TOT         TO DL3-ACTIVE-SELF-TOT.      DTSBR122
01344      MOVE WS-ACTIVE-UNK-TOT          TO DL3-ACTIVE-UNK-TOT.       DTSBR122
01345      MOVE WS-ACTIVE-TOT-TOT          TO DL3-ACTIVE-TOT-TOT.       DTSBR122
01346      WRITE REPORT-LISTING3 FROM DL3-LINE-9 AFTER 4.               DTSBR122
01347      WRITE REPORT-LISTING3 FROM DL3-LINE-10 AFTER 1.              DTSBR122
01348      WRITE REPORT-LISTING3 FROM DL3-LINE-11 AFTER 1.              DTSBR122
01349      WRITE REPORT-LISTING3 FROM DL3-LINE-12 AFTER 1.              DTSBR122
01350      WRITE REPORT-LISTING3 FROM DL3-LINE-13 AFTER 1.              DTSBR122
01351      WRITE REPORT-LISTING3 FROM DL3-LINE-14 AFTER 1.              DTSBR122
01352      WRITE REPORT-LISTING3 FROM DL3-LINE-15 AFTER 1.              DTSBR122
01353      WRITE REPORT-LISTING3 FROM DL3-LINE-16 AFTER 1.              DTSBR122
01354      WRITE REPORT-LISTING3 FROM DL3-LINE-17 AFTER 1.              DTSBR122
01355      WRITE REPORT-LISTING3 FROM DL3-LINE-18 AFTER 1.              DTSBR122
01356      WRITE REPORT-LISTING3 FROM DL3-LINE-19 AFTER 1.              DTSBR122
01357      WRITE REPORT-LISTING3 FROM DL3-LINE-20 AFTER 1.              DTSBR122
01358      WRITE REPORT-LISTING3 FROM DL3-LINE-21 AFTER 1.              DTSBR122
01359      WRITE REPORT-LISTING3 FROM DL3-LINE-22 AFTER 1.              DTSBR122
01360      WRITE REPORT-LISTING3 FROM DL3-LINE-23 AFTER 1.              DTSBR122
01361      WRITE REPORT-LISTING3 FROM DL3-LINE-24 AFTER 1.              DTSBR122
01362      WRITE REPORT-LISTING3 FROM DL3-LINE-25 AFTER 1.              DTSBR122
01363      WRITE REPORT-LISTING3 FROM DL3-LINE-26 AFTER 1.              DTSBR122
01364      WRITE REPORT-LISTING3 FROM DL3-LINE-27 AFTER 1.              DTSBR122
01365      WRITE REPORT-LISTING3 FROM DL3-LINE-28 AFTER 1.              DTSBR122
01366      WRITE REPORT-LISTING3 FROM DL3-LINE-29 AFTER 1.              DTSBR122
01367      WRITE REPORT-LISTING3 FROM DL3-LINE-30 AFTER 1.              DTSBR122
01368      WRITE REPORT-LISTING3 FROM DL3-LINE-31 AFTER 1.              DTSBR122
01369      WRITE REPORT-LISTING3 FROM DL3-LINE-32 AFTER 1.              DTSBR122
01370      WRITE REPORT-LISTING3 FROM DL3-LINE-33 AFTER 1.              DTSBR122
01371      WRITE REPORT-LISTING3 FROM DL3-LINE-34 AFTER 1.              DTSBR122
01372      WRITE REPORT-LISTING3 FROM DL3-LINE-35 AFTER 1.              DTSBR122
01373                                                                   DTSBR122
01374  P9000-EXIT.                                                      DTSBR122
01375      EXIT.                                                        DTSBR122
01376      EJECT                                                        DTSBR122
01377  P9200-FR500-DATA.                                                DTSBR122
01378                                                                   DTSBR122
01379      PERFORM P9210-PRINT-HEADER THRU P9210-EXIT.                  DTSBR122
01380                                                                   DTSBR122
01381      MOVE R122-EMP-NO             TO WS-DTL4-EMP-NO.              DTSBR122
01382      MOVE R122-FR500-PRIMARY-NAME TO WS-DTL4-PRIMARY-NAME.        DTSBR122
01383      MOVE R122-OP-ID              TO WS-DTL4-OPERID.              DTSBR122
01384                                                                   DTSBR122
01385      MOVE R122-FR500-LIAB-DATE TO L001-FED-8-DATE-9.              DTSBR122
01386      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR122
01387      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR122
01388      MOVE L001-SLASH-DATE TO WS-DTL4-LIAB-DATE.                   DTSBR122
01389                                                                   DTSBR122
01390      MOVE R122-FR500-SOURCE    TO WS-DTL4-SOURCE.                 DTSBR122
01391                                                                   DTSBR122
01392      WRITE REPORT-LISTING4 FROM DTL4-LINE AFTER 2.                DTSBR122
01393      ADD +2    TO WS-LINE-CNT-R4.                                 DTSBR122
01394      ADD +1    TO WS-SUM-NUMBER-FOUR.                             DTSBR122
01395                                                                   DTSBR122
01396  P9200-EXIT.                                                      DTSBR122
01397      EXIT.                                                        DTSBR122
01398      EJECT                                                        DTSBR122
01399  P9210-PRINT-HEADER.                                              DTSBR122
01400      IF WS-LINE-CNT-I4 GREATER 56 OR                              DTSBR122
01401           WS-LINE-CNT-R4 GREATER 56                               DTSBR122
01402         MOVE +0          TO WS-LINE-CNT-I4                        DTSBR122
01403         MOVE +0          TO WS-LINE-CNT-R4                        DTSBR122
01404         ADD  +1          TO WS-PAGE-CNT-4                         DTSBR122
01405         MOVE WS-PAGE-CNT-4 TO HDR4-PAGE-CNT                       DTSBR122
01406         WRITE REPORT-LISTING4 FROM HEADER4-1 AFTER TOP-OF-PAGE    DTSBR122
01407         WRITE REPORT-LISTING4 FROM HEADER4-2 AFTER 1              DTSBR122
01408         WRITE REPORT-LISTING4 FROM HEADER4-3 AFTER 1              DTSBR122
01409         WRITE REPORT-LISTING4 FROM HEADER4-4 AFTER 1              DTSBR122
01410         WRITE REPORT-LISTING4 FROM HEADER4-5 AFTER 1              DTSBR122
01411         WRITE REPORT-LISTING4 FROM HEADER4-6 AFTER 1              DTSBR122
01412         WRITE REPORT-LISTING4 FROM HEADER4-7 AFTER 1              DTSBR122
01413         WRITE REPORT-LISTING4 FROM HEADER4-8 AFTER 1              DTSBR122
01414         WRITE REPORT-LISTING4 FROM HEADER4-9 AFTER 1              DTSBR122
01415         ADD +9    TO WS-LINE-CNT-R4.                              DTSBR122
01416                                                                   DTSBR122
01417  P9210-EXIT.                                                      DTSBR122
01418      EXIT.                                                        DTSBR122
01419                                                                   DTSBR122
01420  P9400-PENDING-DATA.                                              DTSBR122
01421                                                                   DTSBR122
01422      PERFORM P9410-PRINT-HEADER THRU P9410-EXIT.                  DTSBR122
01423                                                                   DTSBR122
01424      MOVE R122-EMP-NO             TO WS-DTL5-EMP-NO.              DTSBR122
01425      MOVE R122-PEND-PRIMARY-NAME  TO WS-DTL5-PRIMARY-NAME.        DTSBR122
01426      MOVE R122-OP-ID              TO WS-DTL5-OPERID.              DTSBR122
01427                                                                   DTSBR122
01428      MOVE R122-PEND-REG-DATE TO L001-FED-8-DATE-9.                DTSBR122
01429      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR122
01430      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR122
01431      MOVE L001-SLASH-DATE TO WS-DTL5-REGI-DATE.                   DTSBR122
01432                                                                   DTSBR122
01433      MOVE R122-PEND-ACTION-DATE TO L001-FED-8-DATE-9.             DTSBR122
01434      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR122
01435      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR122
01436      MOVE L001-SLASH-DATE TO WS-DTL5-LAST-ACT-DATE.               DTSBR122
01437                                                                   DTSBR122
01438      IF R122-PEND-ACT-LTR1-88                                     DTSBR122
01439         MOVE 'FIRST LETTER'              TO WS-DTL5-LAST-ACT-TYPE DTSBR122
01440      ELSE                                                         DTSBR122
01441      IF R122-PEND-ACT-LTR2-88                                     DTSBR122
01442         MOVE 'SECOND LETTER'             TO WS-DTL5-LAST-ACT-TYPE DTSBR122
01443      ELSE                                                         DTSBR122
01444      IF R122-PEND-ACT-FLD-88                                      DTSBR122
01445         MOVE 'FIELD ASSIGN'              TO WS-DTL5-LAST-ACT-TYPE DTSBR122
01446      ELSE                                                         DTSBR122
01447      IF R122-PEND-ACT-COOP-88                                     DTSBR122
01448         MOVE 'COOP STATE'                TO WS-DTL5-LAST-ACT-TYPE DTSBR122
01449      ELSE                                                         DTSBR122
01450      IF R122-PEND-ACT-RCVD-88                                     DTSBR122
01451         MOVE 'FR500 RCVD'                TO WS-DTL5-LAST-ACT-TYPE.DTSBR122
01452                                                                   DTSBR122
01453      WRITE REPORT-LISTING5 FROM DTL5-LINE AFTER 2.                DTSBR122
01454      ADD +2    TO WS-LINE-CNT-R5.                                 DTSBR122
01455      ADD +1    TO WS-SUM-NUMBER-FIVE.                             DTSBR122
01456                                                                   DTSBR122
01457  P9400-EXIT.                                                      DTSBR122
01458      EXIT.                                                        DTSBR122
01459      EJECT                                                        DTSBR122
01460  P9410-PRINT-HEADER.                                              DTSBR122
01461      IF WS-LINE-CNT-I5 GREATER 56 OR                              DTSBR122
01462           WS-LINE-CNT-R5 GREATER 56                               DTSBR122
01463         MOVE +0          TO WS-LINE-CNT-I5                        DTSBR122
01464         MOVE +0          TO WS-LINE-CNT-R5                        DTSBR122
01465         ADD  +1          TO WS-PAGE-CNT-5                         DTSBR122
01466         MOVE WS-PAGE-CNT-5 TO HDR5-PAGE-CNT                       DTSBR122
01467         WRITE REPORT-LISTING5 FROM HEADER5-1 AFTER TOP-OF-PAGE    DTSBR122
01468         WRITE REPORT-LISTING5 FROM HEADER5-2 AFTER 1              DTSBR122
01469         WRITE REPORT-LISTING5 FROM HEADER5-3 AFTER 1              DTSBR122
01470         WRITE REPORT-LISTING5 FROM HEADER5-4 AFTER 1              DTSBR122
01471         WRITE REPORT-LISTING5 FROM HEADER5-5 AFTER 1              DTSBR122
01472         WRITE REPORT-LISTING5 FROM HEADER5-6 AFTER 1              DTSBR122
01473         WRITE REPORT-LISTING5 FROM HEADER5-7 AFTER 1              DTSBR122
01474         WRITE REPORT-LISTING5 FROM HEADER5-8 AFTER 1              DTSBR122
01475         WRITE REPORT-LISTING5 FROM HEADER5-9 AFTER 1              DTSBR122
01476         ADD +9    TO WS-LINE-CNT-R5.                              DTSBR122
01477                                                                   DTSBR122
01478  P9410-EXIT.                                                      DTSBR122
01479      EXIT.                                                        DTSBR122
01480                                                                   DTSBR122
01481  T1000-TERMINATE.                                                 DTSBR122
01482 ***      FOLLOWING FOOTERS ARE MUTUALLY EXCLUSIVE                 DTSBR122
01483 ***         (THE MOST YOU CAN HAVE IS ONE)                        DTSBR122
01484 ***                                       LIAB. FOOTER NEEDED?    DTSBR122
01485      IF WS-FOOT-NUMBER-ONE NOT = +0                               DTSBR122
01486         IF WS-LINE-CNT-R1 > 52                                    DTSBR122
01487            PERFORM P6000-PRINT-HEADER THRU P6000-EXIT             DTSBR122
01488         END-IF                                                    DTSBR122
01489 ***                                               LIAB. FOOTER    DTSBR122
01490         PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT                DTSBR122
01491 ***                                         LIAB. TOTAL FOOTER    DTSBR122
01492         PERFORM P7200-PRINT-FOOTER THRU P7200-EXIT                DTSBR122
01493      END-IF.                                                      DTSBR122
01494 ***                                       INAC. FOOTER NEEDED?    DTSBR122
01495      IF WS-FOOT-NUMBER-TWO NOT = +0                               DTSBR122
01496         IF WS-LINE-CNT-R2 > 52                                    DTSBR122
01497            PERFORM P8000-PRINT-HEADER THRU P8000-EXIT             DTSBR122
01498         END-IF                                                    DTSBR122
01499 ***                                          INAC. ENT. FOOTER    DTSBR122
01500         MOVE WS-FOOT-NUMBER-TWO TO WS-CF2-NUMBER-TWO              DTSBR122
01501         PERFORM P8200-PRINT-FOOTER THRU P8200-EXIT                DTSBR122
01502         MOVE +0 TO WS-FOOT-NUMBER-TWO                             DTSBR122
01503      END-IF.                                                      DTSBR122
01504 *                                                                 DTSBR122
01505      IF WS-FOOT-NUMBER-THREE NOT = +0                             DTSBR122
01506         IF WS-LINE-CNT-R2 > 52                                    DTSBR122
01507            PERFORM P8000-PRINT-HEADER THRU P8000-EXIT             DTSBR122
01508         END-IF                                                    DTSBR122
01509 ***                                          INAC. REV. FOOTER    DTSBR122
01510         MOVE WS-FOOT-NUMBER-THREE TO WS-CF2-NUMBER-TWO            DTSBR122
01511         PERFORM P8200-PRINT-FOOTER THRU P8200-EXIT                DTSBR122
01512         MOVE +0 TO WS-FOOT-NUMBER-THREE                           DTSBR122
01513      END-IF.                                                      DTSBR122
01514 *                                                                 DTSBR122
01515      IF WS-SUM-NUMBER-FOUR NOT = +0                               DTSBR122
01516         IF WS-LINE-CNT-R4 > 54                                    DTSBR122
01517            PERFORM P9210-PRINT-HEADER THRU P9210-EXIT             DTSBR122
01518         END-IF                                                    DTSBR122
01519 ***                                          FR500 FOOTER         DTSBR122
01520         MOVE WS-SUM-NUMBER-FOUR TO WS-FOOT-NUMBER-FOUR            DTSBR122
01521         WRITE REPORT-LISTING4 FROM CF4-LINE AFTER 3               DTSBR122
01522      END-IF.                                                      DTSBR122
01523 *                                                                 DTSBR122
01524      IF WS-SUM-NUMBER-FIVE NOT = +0                               DTSBR122
01525         IF WS-LINE-CNT-R5 > 54                                    DTSBR122
01526            PERFORM P9410-PRINT-HEADER THRU P9410-EXIT             DTSBR122
01527         END-IF                                                    DTSBR122
01528 ***                                          PENDING FOOTER       DTSBR122
01529         MOVE WS-SUM-NUMBER-FIVE TO WS-FOOT-NUMBER-FIVE            DTSBR122
01530         WRITE REPORT-LISTING5 FROM CF5-LINE AFTER 3               DTSBR122
01531      END-IF.                                                      DTSBR122
01532 *                                                                 DTSBR122
01533      CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4 PRT-FILE5.     DTSBR122
01534                                                                   DTSBR122
01535  T1000-EXIT.                                                      DTSBR122
01536      EXIT.                                                        DTSBR122
01537                                                                   DTSBR122
01538                                                                   DTSBR122
01539  S001-DATE.                                                       DTSBR122
01540                                                                   DTSBR122
01541      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR122
01542                                                                   DTSBR122
01543  S001-EXIT.                                                       DTSBR122
01544      EXIT.                                                        DTSBR122
01545                                                                   DTSBR122
01546 ***S999-ABEND.                                                    DTSBR122
01547 ***                                                               DTSBR122
01548 ***     CALL 'DTSBU999' USING WRK-ABEND-CD.                       DTSBR122
01549 ***                                                               DTSBR122
01550 *** S999-EXIT.                                                    DTSBR122
01551 ***     EXIT.                                                     DTSBR122
