00001  IDENTIFICATION DIVISION.                                         05/01/07
00002  PROGRAM-ID.             DTSBE423.                                DTSBE423
00003  AUTHOR.                 NORTHROP GRUMMAN CORP.                      LV028
00004  DATE-WRITTEN.           SEPTEMBER 2005.                          DTSBE423
00005  DATE-COMPILED.                                                   DTSBE423
00006      SKIP3                                                        DTSBE423
00007 *****                                                             DTSBE423
00008 *                                                                 DTSBE423
00009 *    FUNCTION:  CURRENT AND PRIOR DELINQUENT LISTS EXTRACT.       DTSBE423
00010 *                                                                 DTSBE423
00011 *                                                                 DTSBE423
00012 *    MODIFICATION LOG:                                            DTSBE423
00013 *                                                                 DTSBE423
00014 *    04/25/1995  BYPASS R423R2 WHEN MPRF-FLD-LIST-REMOVE-88.      DTSBE423
00015 *                WORK ORDER: CR082                PROGRAMMER: RHC DTSBE423
00016 *                                                                 DTSBE423
00017 *    03/13/1999  REVIEWED AND MODIFIED FOR DC.                    DTSBE423
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBE423
00019 *                                                                 DTSBE423
00020 *    05/24/1999  PICKUP MODIFICATIONS.  START YRQ MUST BE         DTSBE423
00021 *                GREATER THAN LECM-PICKUP-YRQ.                    DTSBE423
00022 *                REFERENCE: PICKUP DIR          PROGRAMMER: EHH   DTSBE423
00023 *                                                                 DTSBE423
00024 *    09/10/2003  CORRECTED PROBLEM WITH OJR CODE.                 DTSBE423
00025 *                REFERENCE:                     PROGRAMMER: GD    DTSBE423
00026 *                                                                 DTSBE423
00027 *    XX/XX/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE423
00028 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE423
00029 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBE423
00030 *                                                                 DTSBE423
00031 *  DESCRIPTION:                                                   DTSBE423
00032 *                                                                 DTSBE423
00033 *                                                                 DTSBE423
00034 *    INITIATION:                                                  DTSBE423
00035 *                                                                 DTSBE423
00036 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE423
00037 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE423
00038 *                                                                 DTSBE423
00039 *      EDIT AND DEFAULT PARAMETERS.  SEE PRINTED OUTPUTS          DTSBE423
00040 *      DESCRIPTIONS AND LAYOUTS (423R1, 423R2, AND R423R3).       DTSBE423
00041 *                                                                 DTSBE423
00042 *                                                                 DTSBE423
00043 *    PROCESSING:                                                  DTSBE423
00044 *                                                                 DTSBE423
00045 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (423R1, R2, R3)DTSBE423
00046 *                                                                 DTSBE423
00047 *                                                                 DTSBE423
00048 *    TERMINATION:                                                 DTSBE423
00049 *                                                                 DTSBE423
00050 *      NONE.                                                      DTSBE423
00051 *                                                                 DTSBE423
00052 *                                                                 DTSBE423
00053 *    RECORDS READ:                                                DTSBE423
00054 *                                                                 DTSBE423
00055 *      MASTER:                                                    DTSBE423
00056 *                                                                 DTSBE423
00057 *        MQTR                                                     DTSBE423
00058 *        MSOL                                                     DTSBE423
00059 *                                                                 DTSBE423
00060 *                                                                 DTSBE423
00061 *      ALTERNATE INDEX:                                           DTSBE423
00062 *                                                                 DTSBE423
00063 *        NONE.                                                    DTSBE423
00064 *                                                                 DTSBE423
00065 *                                                                 DTSBE423
00066 *      REFERENCE:                                                 DTSBE423
00067 *                                                                 DTSBE423
00068 *        FQTR                                                     DTSBE423
00069 *                                                                 DTSBE423
00070 *                                                                 DTSBE423
00071 *    RECORDS UPDATED:                                             DTSBE423
00072 *                                                                 DTSBE423
00073 *        NONE.                                                    DTSBE423
00074 *                                                                 DTSBE423
00075 *                                                                 DTSBE423
00076 *    REPORT RECORDS WRITTEN:                                      DTSBE423
00077 *                                                                 DTSBE423
00078 *        R423  CURRENT AND PRIOR DELINQUENT LISTS.                DTSBE423
00079 *                                                                 DTSBE423
00080 *                                                                 DTSBE423
00081 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE423
00082 *                                                                 DTSBE423
00083 *        NONE.                                                    DTSBE423
00084 *                                                                 DTSBE423
00085 *                                                                 DTSBE423
00086 *    MODULES CALLED:                                              DTSBE423
00087 *                                                                 DTSBE423
00088 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE423
00089 *        DTSBU004  QUARTER CONVERSION/EDIT.                       DTSBE423
00090 *        DTSBU061  FIELD ZIP / FIELD REP ID.                      DTSBE423
00091 *        DTSBU111  ADDRESS LOOKUP.                                DTSBE423
00092 *        DTSBU112  ADDRESS FORMAT.                                DTSBE423
00093 *        DTSBU910  MASTER FILE I/O DRIVER.                        DTSBE423
00094 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE423
00095 *                                                                 DTSBE423
00096 *****                                                             DTSBE423
00097      SKIP3                                                        DTSBE423
00098  ENVIRONMENT DIVISION.                                            DTSBE423
00099      EJECT                                                        DTSBE423
00100  DATA DIVISION.                                                   DTSBE423
00101      SKIP3                                                        DTSBE423
00102  WORKING-STORAGE SECTION.                                         DTSBE423
001025 77  PAN-VALET PICTURE X(24) VALUE '028DTSBE423  05/01/07'.       DTSBE423
00103      SKIP3                                                        DTSBE423
00104  01  WRK-AREA.                                                    DTSBE423
00105      05  WRK-ABEND-CD            PIC S9(04)  COMP  VALUE +423.    DTSBE423
00106                                                                   DTSBE423
00107      05  WRK-MOD-NAME            PIC  X(08)  VALUE 'DTSBE423'.    DTSBE423
00108                                                                   DTSBE423
00109      05  ALL-NINES-DATE          PIC  S9(09) COMP-3               DTSBE423
00110                                              VALUE +999999999.    DTSBE423
00111      05  ABEND-MSG               PIC  X(60).                      DTSBE423
00112                                                                   DTSBE423
00113 ***INCLUDE OJRWE423                                               DTSBE423
00114  01  OJRWE423-DATA-AREA.                                          DTSBE423
00115                                                                   DTSBE423
00116      05  OJR-PARM-START-YRQ      PIC X(3).                        DTSBE423
00117      05  OJR-PARM-END-YRQ        PIC X(3).                        DTSBE423
00118                                                                   DTSBE423
00119      05  OJR-FIRST-PURSUED-RPT-YRQ      PIC  S9(05) COMP-3.       DTSBE423
00120      05  OJR-LAST-UC30-DEL-MAIL-YRQ     PIC  S9(05) COMP-3.       DTSBE423
00121      05  OJR-PICKUP-YRQ                 PIC  S9(05) COMP-3.       DTSBE423
00122                                                                   DTSBE423
00123      05  WRK-QTR-5                  PIC 9(05).                    DTSBE423
00124      05  WRK-QTR-3                  PIC 9(03).                    DTSBE423
00125                                                                   DTSBE423
00126      05  WRK-PARM-START-YRQ      PIC S9(05)  COMP-3.              DTSBE423
00127      05  WRK-PARM-END-YRQ        PIC S9(05)  COMP-3.              DTSBE423
00128                                                                   DTSBE423
00129      05  WRK-PARM-EMP-NO-LIST-IND        PIC  X(01).              DTSBE423
00130          88  WRK-PARM-EMP-NO-LIST-YES-88       VALUE 'Y'.         DTSBE423
00131          88  WRK-PARM-EMP-NO-LIST-NO-88        VALUE 'N'.         DTSBE423
00132                                                                   DTSBE423
00133      05  WRK-PARM-FIELD-LIST-IND         PIC  X(01).              DTSBE423
00134          88  WRK-PARM-FIELD-LIST-YES-88        VALUE 'Y'.         DTSBE423
00135          88  WRK-PARM-FIELD-LIST-NO-88         VALUE 'N'.         DTSBE423
00136                                                                   DTSBE423
00137      05  WRK-EDIT-STATUS-IND             PIC X(01).               DTSBE423
00138          88  WRK-EDIT-PASSED-88                VALUE 'Y'.         DTSBE423
00139          88  WRK-EDIT-FAILED-88                VALUE 'N'.         DTSBE423
00140 ***                                                               DTSBE423
00141      05  WRK-SUB                         PIC S9(04)  COMP.        DTSBE423
00142      EJECT                                                        DTSBE423
00143  01  MSG-AREA.                                                    DTSBE423
00144      05  MSG1-AREA.                                               DTSBE423
00145          10  MSG1-ID                PIC  X(03)  VALUE '   '.      DTSBE423
00146          10  MSG1-TEXT.                                           DTSBE423
00147              15  FILLER             PIC  X(40)                    DTSBE423
00148                VALUE '                                        '.  DTSBE423
00149              15  FILLER             PIC  X(40)                    DTSBE423
00150                VALUE '                                        '.  DTSBE423
00151      EJECT                                                        DTSBE423
00152  01  L001-LINK-AREA.                                              DTSBE423
00153  ++INCLUDE DTSIL001                                               DTSBE423
00154      EJECT                                                        DTSBE423
00155  01  L004-LINK-AREA.                                              DTSBE423
00156  ++INCLUDE DTSIL004                                               DTSBE423
00157      EJECT                                                        DTSBE423
00158  01  L061-LINK-AREA.                                              DTSBE423
00159  ++INCLUDE DTSIL061                                               DTSBE423
00160      EJECT                                                        DTSBE423
00161  01  L109-LINK-AREA.                                              DTSBE423
00162  ++INCLUDE DTSIL109                                               DTSBE423
00163      EJECT                                                        DTSBE423
00164  01  L064-LINK-AREA.                                              DTSBE423
00165  ++INCLUDE DTSIL064                                               DTSBE423
00166      EJECT                                                        DTSBE423
00167  01  L910-LINK-AREA.                                              DTSBE423
00168  ++INCLUDE DTSIL910                                               DTSBE423
00169      EJECT                                                        DTSBE423
00170  01  MSKL-REC.                                                    DTSBE423
00171  ++INCLUDE DTSIMSKL                                               DTSBE423
00172      SKIP3                                                        DTSBE423
00173  01  MQTR-REC.                                                    DTSBE423
00174  ++INCLUDE DTSIMQTR                                               DTSBE423
00175      SKIP3                                                        DTSBE423
00176  01  MSOL-REC.                                                    DTSBE423
00177  ++INCLUDE DTSIMSOL                                               DTSBE423
00178      EJECT                                                        DTSBE423
00179  01  R423-REC.                                                    DTSBE423
00180  ++INCLUDE DTSIR423                                               DTSBE423
00181      EJECT                                                        DTSBE423
00182  LINKAGE SECTION.                                                 DTSBE423
00183      SKIP3                                                        DTSBE423
00184  01  LECM-LINK-AREA.                                              DTSBE423
00185  ++INCLUDE DTSILECM                                               DTSBE423
00186      SKIP3                                                        DTSBE423
00187          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE423
00188              15  LECM-PARM-START-YRQ         PIC  X(03).          DTSBE423
00189              15  FILLER                      PIC  X(01).          DTSBE423
00190              15  LECM-PARM-END-YRQ           PIC  X(03).          DTSBE423
00191              15  FILLER                      PIC  X(61).          DTSBE423
00192      EJECT                                                        DTSBE423
00193  01  MPRF-LINK-REC.                                               DTSBE423
00194  ++INCLUDE DTSIMPRF                                               DTSBE423
00195      EJECT                                                        DTSBE423
00196  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE423
00197                           MPRF-LINK-REC.                          DTSBE423
00198                                                                   DTSBE423
00199      EVALUATE TRUE                                                DTSBE423
00200                                                                   DTSBE423
00201      WHEN LECM-PROCESS-88                                         DTSBE423
00202          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE423
00203                                                                   DTSBE423
00204      WHEN LECM-INITIALIZE-88                                      DTSBE423
00205          SET WRK-EDIT-PASSED-88 TO TRUE                           DTSBE423
00206          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE423
00207          IF WRK-EDIT-FAILED-88                                    DTSBE423
00208             PERFORM S999-ABEND THRU S999-EXIT                     DTSBE423
00209      END-IF                                                       DTSBE423
00210                                                                   DTSBE423
00211      WHEN LECM-TERMINATE-88                                       DTSBE423
00212          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE423
00213                                                                   DTSBE423
00214      WHEN OTHER                                                   DTSBE423
00215          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE423
00216            TO ABEND-MSG                                           DTSBE423
00217          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE423
00218                                                                   DTSBE423
00219                                                                   DTSBE423
00220      GOBACK.                                                      DTSBE423
00221      EJECT                                                        DTSBE423
00222  I0000-INITIALIZE.                                                DTSBE423
00223      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE423
00224                                                                   DTSBE423
00225      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE423
00226                                                                   DTSBE423
00227      MOVE LENGTH OF R423-REC TO R423-LENGTH.                      DTSBE423
00228                                                                   DTSBE423
00229      MOVE '423' TO R423-REC-TYPE.                                 DTSBE423
00230                                                                   DTSBE423
00231 *OJR                                                              DTSBE423
00232      DISPLAY 'I000-INIT-START'                                    DTSBE423
00233                                                                   DTSBE423
00234      MOVE LECM-PARM-START-YRQ TO OJR-PARM-START-YRQ.              DTSBE423
00235      MOVE LECM-PARM-END-YRQ TO OJR-PARM-END-YRQ.                  DTSBE423
00236      MOVE LECM-FIRST-PURSUED-RPT-YRQ                              DTSBE423
00237           TO OJR-FIRST-PURSUED-RPT-YRQ.                           DTSBE423
00238      MOVE LECM-LAST-UC30-DEL-MAIL-YRQ                             DTSBE423
00239           TO OJR-LAST-UC30-DEL-MAIL-YRQ.                          DTSBE423
00240      MOVE LECM-PICKUP-YRQ TO OJR-PICKUP-YRQ.                      DTSBE423
00241                                                                   DTSBE423
00242      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE423
00243                                                                   DTSBE423
00244      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE423
00245                                                                   DTSBE423
00246      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE423
00247      SKIP2                                                        DTSBE423
00248  I0000-EXIT.                                                      DTSBE423
00249      EXIT.                                                        DTSBE423
00250      SKIP3                                                        DTSBE423
00251 ***INCLUDE OJRPE423                                               DTSBE423
00252  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE423
00253      PERFORM I1100-EMP-NO-LIST-IND THRU I1100-EXIT.               DTSBE423
00254                                                                   DTSBE423
00255      PERFORM I1200-FIELD-LIST-IND THRU I1200-EXIT.                DTSBE423
00256                                                                   DTSBE423
00257      PERFORM I1300-START-YRQ THRU I1300-EXIT.                     DTSBE423
00258                                                                   DTSBE423
00259      PERFORM I1400-END-YRQ THRU I1400-EXIT.                       DTSBE423
00260                                                                   DTSBE423
00261  I1000-EXIT.                                                      DTSBE423
00262      EXIT.                                                        DTSBE423
00263                                                                   DTSBE423
00264  I1100-EMP-NO-LIST-IND.                                           DTSBE423
00265                                                                   DTSBE423
00266      SET WRK-PARM-EMP-NO-LIST-YES-88 TO TRUE.                     DTSBE423
00267                                                                   DTSBE423
00268  I1100-EXIT.                                                      DTSBE423
00269      EXIT.                                                        DTSBE423
00270                                                                   DTSBE423
00271  I1200-FIELD-LIST-IND.                                            DTSBE423
00272                                                                   DTSBE423
00273      SET WRK-PARM-FIELD-LIST-NO-88 TO TRUE.                       DTSBE423
00274                                                                   DTSBE423
00275  I1200-EXIT.                                                      DTSBE423
00276      EXIT.                                                        DTSBE423
00277                                                                   DTSBE423
00278  I1300-START-YRQ.                                                 DTSBE423
00279      IF OJR-PARM-START-YRQ = SPACES                               DTSBE423
00280          MOVE OJR-FIRST-PURSUED-RPT-YRQ TO WRK-PARM-START-YRQ     DTSBE423
00281      ELSE                                                         DTSBE423
00282          MOVE OJR-PARM-START-YRQ TO L004-QTR-3-X                  DTSBE423
00283          PERFORM S004-FROM-3 THRU S004-EXIT                       DTSBE423
00284          IF (L004-VALID-QTR)                                      DTSBE423
00285                 AND                                               DTSBE423
00286             (L004-QTR-5-9 > OJR-PICKUP-YRQ)                       DTSBE423
00287              MOVE L004-QTR-5-9 TO WRK-PARM-START-YRQ              DTSBE423
00288          ELSE                                                     DTSBE423
00289              MOVE 'PARM-START-YRQ NOT VALID'                      DTSBE423
00290                TO ABEND-MSG                                       DTSBE423
00291              SET WRK-EDIT-FAILED-88  TO TRUE.                     DTSBE423
00292  I1300-EXIT.                                                      DTSBE423
00293      EXIT.                                                        DTSBE423
00294                                                                   DTSBE423
00295  I1400-END-YRQ.                                                   DTSBE423
00296      IF OJR-PARM-END-YRQ = SPACES                                 DTSBE423
00297          MOVE OJR-LAST-UC30-DEL-MAIL-YRQ TO WRK-PARM-END-YRQ      DTSBE423
00298      ELSE                                                         DTSBE423
00299          MOVE OJR-PARM-END-YRQ TO L004-QTR-3-X                    DTSBE423
00300          PERFORM S004-FROM-3 THRU S004-EXIT                       DTSBE423
00301          IF L004-VALID-QTR                                        DTSBE423
00302              MOVE L004-QTR-5-9 TO WRK-PARM-END-YRQ                DTSBE423
00303          ELSE                                                     DTSBE423
00304              MOVE 'PARM-END-YRQ NOT VALID'                        DTSBE423
00305                TO ABEND-MSG                                       DTSBE423
00306              SET WRK-EDIT-FAILED-88  TO TRUE.                     DTSBE423
00307                                                                   DTSBE423
00308      IF WRK-PARM-END-YRQ < WRK-PARM-START-YRQ                     DTSBE423
00309          MOVE 'PARM-END-YRQ IS LESS THAN PARM-START-YRQ'          DTSBE423
00310            TO ABEND-MSG                                           DTSBE423
00311          SET WRK-EDIT-FAILED-88  TO TRUE.                         DTSBE423
00312  I1400-EXIT.                                                      DTSBE423
00313      EXIT.                                                        DTSBE423
00314                                                                   DTSBE423
00315      EJECT                                                        DTSBE423
00316  P0000-PROCESS.                                                   DTSBE423
00317 *****IF (MPRF-EMP-NO < 360094)                                    DTSBE423
00318 ************OR                                                    DTSBE423
00319 ********(MPRF-EMP-NO > 360098)                                    DTSBE423
00320 *********GO TO P0000-EXIT.                                        DTSBE423
00321                                                                   DTSBE423
00322      IF MPRF-PURSUED-RPT-CNT > +0                                 DTSBE423
00323          NEXT SENTENCE                                            DTSBE423
00324      ELSE                                                         DTSBE423
00325          GO TO P0000-EXIT.                                        DTSBE423
00326                                                                   DTSBE423
00327      MOVE ZERO TO R423-YRQ-CNT.                                   DTSBE423
00328                                                                   DTSBE423
00329      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE423
00330                                                                   DTSBE423
00331      MOVE WRK-PARM-START-YRQ TO MQTR-YRQ.                         DTSBE423
00332                                                                   DTSBE423
00333      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE423
00334                                                                   DTSBE423
00335      SET MQTR-QTR-88 TO TRUE.                                     DTSBE423
00336                                                                   DTSBE423
00337      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE423
00338                                                                   DTSBE423
00339      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE423
00340                                                                   DTSBE423
00341      PERFORM P1000-SCAN-MQTR THRU P1000-EXIT                      DTSBE423
00342          UNTIL L910-NO-REC-88.                                    DTSBE423
00343                                                                   DTSBE423
00344                                                                   DTSBE423
00345      IF R423-YRQ-CNT GREATER THAN ZERO                            DTSBE423
00346          PERFORM P2000-SETUP-BASIC-R423 THRU P2000-EXIT.          DTSBE423
00347  P0000-EXIT.                                                      DTSBE423
00348      EXIT.                                                        DTSBE423
00349      EJECT                                                        DTSBE423
00350  P1000-SCAN-MQTR.                                                 DTSBE423
00351      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE423
00352                                                                   DTSBE423
00353                                                                   DTSBE423
00354      IF MQTR-YRQ GREATER THAN WRK-PARM-END-YRQ                    DTSBE423
00355          SET L910-NO-REC-88 TO TRUE                               DTSBE423
00356          GO TO P1000-EXIT.                                        DTSBE423
00357                                                                   DTSBE423
00358                                                                   DTSBE423
00359      IF MQTR-RPT-NOT-PURSUED-88                                   DTSBE423
00360          NEXT SENTENCE                                            DTSBE423
00361      ELSE                                                         DTSBE423
00362          PERFORM P1100-SETUP-R423-TABLE THRU P1100-EXIT.          DTSBE423
00363                                                                   DTSBE423
00364                                                                   DTSBE423
00365      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE423
00366  P1000-EXIT.                                                      DTSBE423
00367      EXIT.                                                        DTSBE423
00368      SKIP3                                                        DTSBE423
00369  P1100-SETUP-R423-TABLE.                                          DTSBE423
00370      IF R423-YRQ-CNT LESS THAN +20                                DTSBE423
00371          NEXT SENTENCE                                            DTSBE423
00372      ELSE                                                         DTSBE423
00373          PERFORM P2000-SETUP-BASIC-R423 THRU P2000-EXIT           DTSBE423
00374          MOVE ZERO TO R423-YRQ-CNT                                DTSBE423
00375          MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA                      DTSBE423
00376          PERFORM S910-READ THRU S910-EXIT.                        DTSBE423
00377                                                                   DTSBE423
00378                                                                   DTSBE423
00379      ADD +1 TO R423-YRQ-CNT.                                      DTSBE423
00380                                                                   DTSBE423
00381      MOVE MQTR-YRQ TO R423-MISSING-YRQ (R423-YRQ-CNT).            DTSBE423
00382                                                                   DTSBE423
00383      PERFORM P1110-CALC-RATE THRU P1110-EXIT.                     DTSBE423
00384  P1100-EXIT.                                                      DTSBE423
00385      EXIT.                                                        DTSBE423
00386      EJECT                                                        DTSBE423
00387  P1110-CALC-RATE.                                                 DTSBE423
00388      IF MQTR-NO-UI-RATE-88                                        DTSBE423
00389          IF MPRF-CLASS-SELF-INS-88                                DTSBE423
00390              PERFORM P1111-GET-L109 THRU P1111-EXIT               DTSBE423
00391              COMPUTE                                              DTSBE423
00392                   R423-MISSING-YRQ-TOTAL-RATE (R423-YRQ-CNT)      DTSBE423
00393                     = L109-SUR-RATE                               DTSBE423
00394          ELSE                                                     DTSBE423
00395              SET R423-MISSING-YRQ-NO-RATE-88 (R423-YRQ-CNT)       DTSBE423
00396               TO TRUE                                             DTSBE423
00397      ELSE                                                         DTSBE423
00398          PERFORM P1111-GET-L109 THRU P1111-EXIT                   DTSBE423
00399              COMPUTE                                              DTSBE423
00400                   R423-MISSING-YRQ-TOTAL-RATE (R423-YRQ-CNT)      DTSBE423
00401                    = MQTR-UI-RATE + L109-SUR-RATE.                DTSBE423
00402  P1110-EXIT.                                                      DTSBE423
00403      EXIT.                                                        DTSBE423
00404      SKIP3                                                        DTSBE423
00405  P1111-GET-L109.                                                  DTSBE423
00406      SET L109-CMND-INPUT-QTR-88  TO TRUE.                         DTSBE423
00407                                                                   DTSBE423
00408      MOVE MPRF-EMP-CLASS TO L109-EMP-CLASS                        DTSBE423
00409                                                                   DTSBE423
00410      MOVE MQTR-YRQ TO L109-YRQ                                    DTSBE423
00411                                                                   DTSBE423
00412      PERFORM S109-LOOKUP-SUR-RATE THRU S109-EXIT.                 DTSBE423
00413  P1111-EXIT.                                                      DTSBE423
00414      EXIT.                                                        DTSBE423
00415      EJECT                                                        DTSBE423
00416  P2000-SETUP-BASIC-R423.                                          DTSBE423
00417      MOVE WRK-PARM-START-YRQ TO R423-YRQ-OLDEST.                  DTSBE423
00418                                                                   DTSBE423
00419      MOVE WRK-PARM-END-YRQ TO R423-YRQ-MOST-RECENT.               DTSBE423
00420                                                                   DTSBE423
00421      MOVE MPRF-PRIMARY-NAME TO R423-PRIMARY-NAME.                 DTSBE423
00422                                                                   DTSBE423
00423      IF MPRF-STATUS-ACT-88                                        DTSBE423
00424          MOVE ALL-NINES-DATE TO R423-INACT-DATE                   DTSBE423
00425      ELSE                                                         DTSBE423
00426          MOVE ZEROS TO R423-INACT-DATE                            DTSBE423
00427          MOVE LOW-VALUES TO MSOL-KEY-AREA                         DTSBE423
00428          MOVE MPRF-EMP-NO TO MSOL-EMP-NO                          DTSBE423
00429          SET MSOL-SOL-88 TO TRUE                                  DTSBE423
00430          MOVE MSOL-KEY-AREA TO MSKL-KEY-AREA                      DTSBE423
00431          PERFORM S910-START-BROWSE THRU S910-EXIT                 DTSBE423
00432          PERFORM P2200-SCAN-MSOL THRU P2200-EXIT                  DTSBE423
00433              UNTIL L910-NO-REC-88.                                DTSBE423
00434                                                                   DTSBE423
00435                                                                   DTSBE423
00436      PERFORM P2100-LOOKUP-ADDR  THRU  P2100-EXIT.                 DTSBE423
00437                                                                   DTSBE423
00438                                                                   DTSBE423
00439      IF WRK-PARM-EMP-NO-LIST-YES-88                               DTSBE423
00440          MOVE LOW-VALUES TO R423-SORT-VAR-AREA                    DTSBE423
00441          MOVE MPRF-EMP-NO TO R423-SORTE-EMP-NO                    DTSBE423
00442          SET R423-SORT-TYPE-E-88 TO TRUE                          DTSBE423
00443          PERFORM S946-WRITE-R423 THRU S946-EXIT.                  DTSBE423
00444                                                                   DTSBE423
00445                                                                   DTSBE423
00446      IF WRK-PARM-FIELD-LIST-YES-88                                DTSBE423
00447                 AND                                               DTSBE423
00448         MPRF-SUSPEND-COLL-NO-88                                   DTSBE423
00449          MOVE LOW-VALUES TO R423-SORT-VAR-AREA                    DTSBE423
00450          MOVE MPRF-EMP-NO TO R423-SORTF-EMP-NO                    DTSBE423
00451          SET R423-SORT-TYPE-F-88 TO TRUE                          DTSBE423
00452          PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT            DTSBE423
00453          MOVE L061-FLD-ZIP TO R423-SORTF-FIELD-ZIP                DTSBE423
00454          MOVE L061-FLD-REP-ID TO R423-SORTF-FIELD-REP-ID          DTSBE423
00455          PERFORM S946-WRITE-R423 THRU S946-EXIT.                  DTSBE423
00456                                                                   DTSBE423
00457                                                                   DTSBE423
00458      PERFORM P2300-INITIALIZE-TABLE THRU P2300-EXIT               DTSBE423
00459          VARYING WRK-SUB FROM 1 BY 1                              DTSBE423
00460              UNTIL  WRK-SUB GREATER THAN R423-YRQ-CNT.            DTSBE423
00461  P2000-EXIT.                                                      DTSBE423
00462      EXIT.                                                        DTSBE423
00463      SKIP3                                                        DTSBE423
00464  P2100-LOOKUP-ADDR.                                               DTSBE423
00465      MOVE MPRF-EMP-NO TO L064-EMP-NO.                             DTSBE423
00466                                                                   DTSBE423
00467      MOVE MPRF-TAX-REC-ADDR-EXISTS-IND                            DTSBE423
00468        TO L064-TAX-REC-ADDR-EXISTS-IND.                           DTSBE423
00469                                                                   DTSBE423
00470      PERFORM S064-LOOKUP-ADDR THRU S064-EXIT.                     DTSBE423
00471                                                                   DTSBE423
00472      IF L064-OK-88                                                DTSBE423
00473          MOVE L064-ATTN-LINE TO R423-ATTN-LINE                    DTSBE423
00474          MOVE L064-DELIV-LINE-1 TO R423-DELIV-LINE-1              DTSBE423
00475          MOVE L064-DELIV-LINE-2 TO R423-DELIV-LINE-2              DTSBE423
00476          MOVE L064-CITY TO R423-CITY                              DTSBE423
00477          MOVE L064-ST TO R423-ST                                  DTSBE423
00478          MOVE L064-ZIP TO R423-ZIP                                DTSBE423
00479          MOVE L064-VOICE TO R423-VOICE-1                          DTSBE423
00480      ELSE                                                         DTSBE423
00481          MOVE ALL '?' TO R423-ADDR.                               DTSBE423
00482  P2100-EXIT.                                                      DTSBE423
00483      EXIT.                                                        DTSBE423
00484      SKIP3                                                        DTSBE423
00485  P2200-SCAN-MSOL.                                                 DTSBE423
00486      MOVE MSKL-REC TO MSOL-REC.                                   DTSBE423
00487                                                                   DTSBE423
00488      IF MSOL-INACT-DATE GREATER THAN R423-INACT-DATE              DTSBE423
00489          MOVE MSOL-INACT-DATE TO R423-INACT-DATE.                 DTSBE423
00490                                                                   DTSBE423
00491      PERFORM S910-READ-NEXT  THRU  S910-EXIT.                     DTSBE423
00492  P2200-EXIT.                                                      DTSBE423
00493      EXIT.                                                        DTSBE423
00494      SKIP3                                                        DTSBE423
00495  P2300-INITIALIZE-TABLE.                                          DTSBE423
00496      MOVE LOW-VALUES TO R423-MISSING-YRQ-DATA (WRK-SUB).          DTSBE423
00497  P2300-EXIT.                                                      DTSBE423
00498      EXIT.                                                        DTSBE423
00499      EJECT                                                        DTSBE423
00500  T0000-TERMINATE.                                                 DTSBE423
00501                                                                   DTSBE423
00502                                                                   DTSBE423
00503  T0000-EXIT.                                                      DTSBE423
00504      EXIT.                                                        DTSBE423
00505      EJECT                                                        DTSBE423
00506  S001-FROM-FED-8.                                                 DTSBE423
00507      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE423
00508      GO TO S001-DATE.                                             DTSBE423
00509                                                                   DTSBE423
00510  S001-FROM-CAL-6.                                                 DTSBE423
00511      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE423
00512      GO TO S001-DATE.                                             DTSBE423
00513                                                                   DTSBE423
00514  S001-FROM-ABS-DAY.                                               DTSBE423
00515      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE423
00516      GO TO S001-DATE.                                             DTSBE423
00517                                                                   DTSBE423
00518  S001-DATE.                                                       DTSBE423
00519      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE423
00520  S001-EXIT.                                                       DTSBE423
00521      EXIT.                                                        DTSBE423
00522      SKIP3                                                        DTSBE423
00523  S004-FROM-5.                                                     DTSBE423
00524      SET L004-FROM-5 TO TRUE.                                     DTSBE423
00525      GO TO S004-QTR.                                              DTSBE423
00526                                                                   DTSBE423
00527  S004-FROM-ABS.                                                   DTSBE423
00528      SET L004-FROM-ABS TO TRUE.                                   DTSBE423
00529      GO TO S004-QTR.                                              DTSBE423
00530                                                                   DTSBE423
00531  S004-FROM-3.                                                     DTSBE423
00532      SET L004-FROM-3 TO TRUE.                                     DTSBE423
00533      GO TO S004-QTR.                                              DTSBE423
00534                                                                   DTSBE423
00535  S004-QTR.                                                        DTSBE423
00536                                                                   DTSBE423
00537      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE423
00538                                                                   DTSBE423
00539  S004-EXIT.                                                       DTSBE423
00540      EXIT.                                                        DTSBE423
00541      SKIP3                                                        DTSBE423
00542  S061-DETERMINE-FLD-REP.                                          DTSBE423
00543      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBE423
00544                                                                   DTSBE423
00545      MOVE MPRF-EMP-NO TO L061-EMP-NO.                             DTSBE423
00546                                                                   DTSBE423
00547      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBE423
00548  S061-EXIT.                                                       DTSBE423
00549      EXIT.                                                        DTSBE423
00550      SKIP3                                                        DTSBE423
00551  S109-LOOKUP-SUR-RATE.                                            DTSBE423
00552      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBE423
00553  S109-EXIT.                                                       DTSBE423
00554      EXIT.                                                        DTSBE423
00555      SKIP3                                                        DTSBE423
00556  S064-LOOKUP-ADDR.                                                DTSBE423
00557      MOVE MPRF-EMP-NO TO L064-EMP-NO.                             DTSBE423
00558                                                                   DTSBE423
00559      CALL 'DTSBU064' USING L064-LINK-AREA.                        DTSBE423
00560  S064-EXIT.                                                       DTSBE423
00561      EXIT.                                                        DTSBE423
00562      SKIP3                                                        DTSBE423
00563  S910-READ.                                                       DTSBE423
00564      SET L910-READ-88 TO TRUE.                                    DTSBE423
00565      GO TO S910-MSTR-IO.                                          DTSBE423
00566                                                                   DTSBE423
00567  S910-START-BROWSE.                                               DTSBE423
00568      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE423
00569      GO TO S910-MSTR-IO.                                          DTSBE423
00570                                                                   DTSBE423
00571  S910-READ-NEXT.                                                  DTSBE423
00572      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE423
00573      GO TO S910-MSTR-IO.                                          DTSBE423
00574                                                                   DTSBE423
00575 *S910-COUNT.                                                      DTSBE423
00576 *****SET L910-COUNT-88 TO TRUE.                                   DTSBE423
00577 *****GO TO S910-MSTR-IO.                                          DTSBE423
00578                                                                   DTSBE423
00579  S910-MSTR-IO.                                                    DTSBE423
00580      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE423
00581                            MSKL-REC.                              DTSBE423
00582  S910-EXIT.                                                       DTSBE423
00583      EXIT.                                                        DTSBE423
00584      SKIP3                                                        DTSBE423
00585  S946-WRITE-R423.                                                 DTSBE423
00586      CALL 'DTSBU946' USING R423-REC.                              DTSBE423
00587      GO TO S946-EXIT.                                             DTSBE423
00588                                                                   DTSBE423
00589  S946-EXIT.                                                       DTSBE423
00590      EXIT.                                                        DTSBE423
00591      SKIP3                                                        DTSBE423
00592  S999-ABEND.                                                      DTSBE423
00593      DISPLAY '*** DTSBE423 ABENDING.  '                           DTSBE423
00594              ABEND-MSG.                                           DTSBE423
00595                                                                   DTSBE423
00596      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE423
00597  S999-EXIT.                                                       DTSBE423
00598      EXIT.                                                        DTSBE423
