00001  IDENTIFICATION DIVISION.                                         05/01/07
00002  PROGRAM-ID.             DTSBE453.                                DTSBE453
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV005
00004  DATE-WRITTEN.           SEPTEMBER 2002.                          DTSBE453
00005  DATE-COMPILED.                                                   DTSBE453
00006      SKIP3                                                        DTSBE453
00007 *****                                                             DTSBE453
00008 *                                                                 DTSBE453
00009 *    FUNCTION:  FINAL DELINQUENT REPORT EXTRACT FOR               DTSBE453
00010 *               EMPLOYERS FILING ANNUALLY.                        DTSBE453
00011 *                                                                 DTSBE453
00012 *    MODIFICATION LOG:                                            DTSBE453
00013 *                                                                 DTSBE453
00014 *    03/13/95  DON'T PRINT R453 WHEN NO IN-STATE FIELD REP.       DTSBE453
00015 *              WORK ORDER: CR049                PROGRAMMER: RHC   DTSBE453
00016 *                                                                 DTSBE453
00017 *    04/25/95  ADD R454-SUSPEND-COLL-IND TO REPORT RECORD.        DTSBE453
00018 *              WORK ORDER: CR082                PROGRAMMER: RHC   DTSBE453
00019 *                                                                 DTSBE453
00020 *    03/13/1999  REVIEWED AND MODIFIED FOR DC.                    DTSBE453
00021 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBE453
00022 *                                                                 DTSBE453
00023 *    09/09/2002  INITIAL DEVELOPMENT AND CLONING FROM DTSBE420    DTSBE453
00024 *                REFERENCE: HOUSEHOLD           PROGRAMMER: RW1   DTSBE453
00025 *                                                                 DTSBE453
00026 *    11/28/05  ADD MPRF-RETURN-MAIL-IND.IF MPRF-RETURN-MAIL-YES-88DTSBE453
00027 *              ON MPRF-EMP-NO, BY PASS THAT ACCOUNT EXTRACT INFO- DTSBE453
00028 *              MATION AND SEND NO ANNUAL DELINQUENT LETTER TO THATDTSBE453
00029 *              EMPLOYER.                                          DTSBE453
00030 *              WORK ORDER:                      PROGRAMMER: RW1   DTSBE453
00031 *                                                                 DTSBE453
00032 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE453
00033 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE453
00034 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBE453
00035 *                                                                 DTSBE453
00036 *                                                                 DTSBE453
00037 *  DESCRIPTION:                                                   DTSBE453
00038 *                                                                 DTSBE453
00039 *                                                                 DTSBE453
00040 *    INITIATION:                                                  DTSBE453
00041 *                                                                 DTSBE453
00042 *      IF LECM-PARM-NOTICE-IND = 'Y'                              DTSBE453
00043 *          SET LECM-MST-OPEN-UPDATE-88 TO TRUE                    DTSBE453
00044 *          SET LECM-REF-OPEN-UPDATE-88 TO TRUE                    DTSBE453
00045 *      ELSE                                                       DTSBE453
00046 *          SET LECM-MST-OPEN-READ-88 TO TRUE                      DTSBE453
00047 *          SET LECM-REF-OPEN-READ-88 TO TRUE.                     DTSBE453
00048 *                                                                 DTSBE453
00049 *      EDIT AND DEFAULT PARAMETERS.  SEE PRINTED OUTPUTS          DTSBE453
00050 *      DESCRIPTIONS AND LAYOUTS (453R1, 454R1).                   DTSBE453
00051 *                                                                 DTSBE453
00052 *                                                                 DTSBE453
00053 *    PROCESSING:                                                  DTSBE453
00054 *                                                                 DTSBE453
00055 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (453R1,        DTSBE453
00056 *      454R1).                                                    DTSBE453
00057 *                                                                 DTSBE453
00058 *                                                                 DTSBE453
00059 *    TERMINATION:                                                 DTSBE453
00060 *                                                                 DTSBE453
00061 *      IF WRK-PARM-NOTICE-IND = 'Y', THEN                         DTSBE453
00062 *      READ FAFD RECORD FOR WRK-PARM-SUBJECT-YRQ.  IF FOUND,      DTSBE453
00063 *      REWRITE; IF NOT FOUND, CREATE A FAFD RECORD AND WRITE.     DTSBE453
00064 *      MOVE LECM-CURR-RUN-DATE TO FAFD-UC30H-FINAL-DEL-MAIL-DATE. DTSBE453
00065 *                                                                 DTSBE453
00066 *                                                                 DTSBE453
00067 *    RECORDS READ:                                                DTSBE453
00068 *                                                                 DTSBE453
00069 *      MASTER:                                                    DTSBE453
00070 *                                                                 DTSBE453
00071 *        MQTR                                                     DTSBE453
00072 *        MTAD                                                     DTSBE453
00073 *        MOPO                                                     DTSBE453
00074 *        MTAA                                                     DTSBE453
00075 *                                                                 DTSBE453
00076 *                                                                 DTSBE453
00077 *      ALTERNATE INDEX:                                           DTSBE453
00078 *                                                                 DTSBE453
00079 *        NONE.                                                    DTSBE453
00080 *                                                                 DTSBE453
00081 *                                                                 DTSBE453
00082 *      REFERENCE:                                                 DTSBE453
00083 *                                                                 DTSBE453
00084 *        FAFD                                                     DTSBE453
00085 *                                                                 DTSBE453
00086 *                                                                 DTSBE453
00087 *    RECORDS UPDATED:                                             DTSBE453
00088 *                                                                 DTSBE453
00089 *        MEVL (WRITE)                                             DTSBE453
00090 *                                                                 DTSBE453
00091 *                                                                 DTSBE453
00092 *    REPORT RECORDS WRITTEN:                                      DTSBE453
00093 *                                                                 DTSBE453
00094 *        R453  FINAL DELINQUENT REPORT NOTICE.                    DTSBE453
00095 *        R454  FINAL DELINQUENT NOTICE LIST - FIELD CODE          DTSBE453
00096 *              SEQUENCE.                                          DTSBE453
00097 *        R907  UNUSUAL CONDITION ENCOUNTERED.                     DTSBE453
00098 *                                                                 DTSBE453
00099 *                                                                 DTSBE453
00100 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE453
00101 *                                                                 DTSBE453
00102 *        NONE.                                                    DTSBE453
00103 *                                                                 DTSBE453
00104 *                                                                 DTSBE453
00105 *    MODULES CALLED:                                              DTSBE453
00106 *                                                                 DTSBE453
00107 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE453
00108 *        DTSBU004  QUARTER CONVERSION/EDIT.                       DTSBE453
00109 *        DTSBU061  FIELD ZIP / FIELD REP ID.                      DTSBE453
00110 *        DTSBU101  INTEREST COMPUTATION.                          DTSBE453
00111 *        DTSBU111  ADDRESS LOOKUP.                                DTSBE453
00112 *        DTSBU112  ADDRESS FORMAT.                                DTSBE453
00113 *        DTSBU910  MASTER FILE I/O DRIVER.                        DTSBE453
00114 *        DTSBU931  REFERENCE FILE I/O DRIVER.                     DTSBE453
00115 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE453
00116 *                                                                 DTSBE453
00117 *****                                                             DTSBE453
00118      SKIP3                                                        DTSBE453
00119  ENVIRONMENT DIVISION.                                            DTSBE453
00120      EJECT                                                        DTSBE453
00121  DATA DIVISION.                                                   DTSBE453
00122      SKIP3                                                        DTSBE453
00123  WORKING-STORAGE SECTION.                                         DTSBE453
001235 77  PAN-VALET PICTURE X(24) VALUE '005DTSBE453  05/01/07'.       DTSBE453
00124      SKIP3                                                        DTSBE453
00125  01  WRK-AREA.                                                    DTSBE453
00126      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +453.DTSBE453
00127                                                                   DTSBE453
00128      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE453'.DTSBE453
00129                                                                   DTSBE453
00130                                                                   DTSBE453
00131      05  ABEND-MSG                       PIC  X(60).              DTSBE453
00132 *RW1                                                              DTSBE453
00133      05  WRK-START-YRQ                   PIC S9(05)  COMP-3.      DTSBE453
00134      05  WRK-END-YRQ                     PIC S9(05)  COMP-3.      DTSBE453
00135 *RW2                                                              DTSBE453
00136      05  WRK-PARM-SUBJECT-YRQ            PIC S9(05)  COMP-3.      DTSBE453
00137                                                                   DTSBE453
00138 *    05  WRK-SUBJECT-SLASH-QTR           PIC  X(04).              DTSBE453
00139      05  WRK-SUBJECT-YEAR                PIC  X(04).              DTSBE453
00140                                                                   DTSBE453
00141      05  WRK-PARM-NOTICE-IND             PIC  X(01).              DTSBE453
00142          88  WRK-PARM-NOTICE-YES-88            VALUE 'Y'.         DTSBE453
00143          88  WRK-PARM-NOTICE-NO-88             VALUE 'N'.         DTSBE453
00144                                                                   DTSBE453
00145      05  WRK-PARM-INT-COMP-DATE          PIC S9(09)  COMP-3.      DTSBE453
00146                                                                   DTSBE453
00147      05  WRK-PARM-FINAL-ACTION-DATE      PIC S9(09)  COMP-3.      DTSBE453
00148                                                                   DTSBE453
00149                                                                   DTSBE453
00150      05  WRK-AS-OF-DATE                  PIC S9(09)        COMP-3.DTSBE453
00151                                                                   DTSBE453
00152      05  WRK-UC30-FIRST-DEL-MAIL-DATE    PIC S9(09)        COMP-3.DTSBE453
00153                                                                   DTSBE453
00154      05  WRK-UC30-FINAL-DEL-CUTOFF-DATE  PIC S9(09)        COMP-3.DTSBE453
00155                                                                   DTSBE453
00156      05  WRK-UC30-FINAL-DEL-MAIL-DATE    PIC S9(09)        COMP-3.DTSBE453
00157                                                                   DTSBE453
00158                                                                   DTSBE453
00159      05  TAD-MISS-RPT-LTRS-IND           PIC  X(01).              DTSBE453
00160          88  TAD-MISS-RPT-LTRS-YES-88       VALUE 'Y'.            DTSBE453
00161          88  TAD-MISS-RPT-LTRS-NO-88        VALUE 'N'.            DTSBE453
00162                                                                   DTSBE453
00163      05  OPO-MISS-RPT-LTRS-IND           PIC  X(01).              DTSBE453
00164          88  OPO-MISS-RPT-LTRS-YES-88       VALUE 'Y'.            DTSBE453
00165          88  OPO-MISS-RPT-LTRS-NO-88        VALUE 'N'.            DTSBE453
00166                                                                   DTSBE453
00167      05  TAA-MISS-RPT-LTRS-IND           PIC  X(01).              DTSBE453
00168          88  TAA-MISS-RPT-LTRS-YES-88       VALUE 'Y'.            DTSBE453
00169          88  TAA-MISS-RPT-LTRS-NO-88        VALUE 'N'.            DTSBE453
00170                                                                   DTSBE453
00171                                                                   DTSBE453
00172      05  WRK-TOTAL-RATE                  PIC S9(01)V9(04)  COMP-3.DTSBE453
00173                                                                   DTSBE453
00174      05  WRK-RPT-DUE-DATE                PIC S9(09)        COMP-3.DTSBE453
00175                                                                   DTSBE453
00176      05  WRK-QUARTERLY-FILER-CNT         PIC S9(07)        COMP-3 DTSBE453
00177                                              VALUE +0.            DTSBE453
00178      05  WRK-NOTICE-CNT                  PIC S9(07)        COMP-3 DTSBE453
00179                                              VALUE +0.            DTSBE453
00180      05  WRK-CNT-DISP                    PIC Z(06)9.              DTSBE453
00181                                                                   DTSBE453
00182      05  EVL-TEXT.                                                DTSBE453
00183          10  FILLER                      PIC  X(29)               DTSBE453
00184                VALUE 'FINAL MISSING RPT LETTER FOR '.             DTSBE453
00185 *        10  EVL-SLASH-QTR               PIC  X(04).              DTSBE453
00186          10  EVL-YEAR                    PIC  X(04).              DTSBE453
00187          10  FILLER                      PIC  X(09)               DTSBE453
00188                VALUE ' SENT TO '.                                 DTSBE453
00189          10  EVL-ADDR-TYPE               PIC  X(04).              DTSBE453
00190          10  FILLER                      PIC  X(01)  VALUE SPACES.DTSBE453
00191          10  EVL-ADDR-ID-NO              PIC  ZZ9.                DTSBE453
00192      SKIP3                                                        DTSBE453
00193  01  MSG-AREA.                                                    DTSBE453
00194      05  MSG1-AREA.                                               DTSBE453
00195          10  MSG1-ID                 PIC  X(03)  VALUE '453'.     DTSBE453
00196          10  MSG1-TEXT.                                           DTSBE453
00197              15  FILLER              PIC  X(40)                   DTSBE453
00198                VALUE 'RATE MISSING.  FINAL DELINQUENT REPORT L'.  DTSBE453
00199              15  FILLER              PIC  X(40)                   DTSBE453
00200                VALUE 'ETTER PRINTED WITHOUT A RATE.   YEAR =  '.  DTSBE453
00201 *            15  MSG1-SLASHED-YRQ    PIC  X(04).                  DTSBE453
00202              15  MSG1-YEAR           PIC  X(04).                  DTSBE453
00203                                                                   DTSBE453
00204      05  MSG2-AREA.                                               DTSBE453
00205          10  MSG2-ID                 PIC  X(03)  VALUE '454'.     DTSBE453
00206          10  MSG2-TEXT.                                           DTSBE453
00207              15  FILLER              PIC  X(40)                   DTSBE453
00208                VALUE 'FINAL MISSING REPORT LETTER PRINTING SUP'.  DTSBE453
00209              15  FILLER              PIC  X(40)                   DTSBE453
00210                VALUE 'PRESSED ON ALL MTAD RECORDS.    YEAR =  '.  DTSBE453
00211 *            15  MSG2-SLASHED-YRQ    PIC  X(04).                  DTSBE453
00212              15  MSG2-YEAR           PIC  X(04).                  DTSBE453
00213                                                                   DTSBE453
00214      05  MSG3-AREA.                                               DTSBE453
00215          10  MSG3-ID                 PIC  X(03)  VALUE '455'.     DTSBE453
00216          10  MSG3-TEXT.                                           DTSBE453
00217              15  FILLER              PIC  X(40)                   DTSBE453
00218                VALUE 'MORE THAN 19 ADDITIONAL QUARTERS ARE PUR'.  DTSBE453
00219              15  FILLER              PIC  X(40)                   DTSBE453
00220                VALUE 'SUED.  INCOMPLETE FINAL NOTICE LIST(S) P'.  DTSBE453
00221              15  FILLER              PIC  X(20)                   DTSBE453
00222                VALUE 'RINTED.             '.                      DTSBE453
00223                                                                   DTSBE453
00224      05  MSG4-AREA.                                               DTSBE453
00225          10  MSG4-ID                 PIC  X(03)  VALUE '694'.     DTSBE453
00226          10  MSG4-TEXT.                                           DTSBE453
00227              15 FILLER               PIC  X(40)                   DTSBE453
00228                VALUE 'FINAL DELINQUENT NOTICE NOT PRINTED - NO'.  DTSBE453
00229              15 FILLER               PIC  X(28)                   DTSBE453
00230                VALUE 'FIELD REP ASSIGNED.         '.              DTSBE453
00231                                                                   DTSBE453
00232      05  MSG5-AREA.                                               DTSBE453
00233          10  MSG5-ID                 PIC  X(03)  VALUE '456'.     DTSBE453
00234          10  MSG5-TEXT.                                           DTSBE453
00235              15  FILLER              PIC  X(40)                   DTSBE453
00236                VALUE 'FINAL MISSING REPORT LETTER PRINTING SUP'.  DTSBE453
00237              15  FILLER              PIC  X(40)                   DTSBE453
00238                VALUE 'PRESSED ON ALL ADDRESSES.       YEAR =  '.  DTSBE453
00239 *            15  MSG5-SLASHED-YRQ    PIC  X(04).                  DTSBE453
00240              15  MSG5-YEAR           PIC  X(04).                  DTSBE453
00241      EJECT                                                        DTSBE453
00242  01  L001-LINK-AREA.                                              DTSBE453
00243  ++INCLUDE DTSIL001                                               DTSBE453
00244      SKIP3                                                        DTSBE453
00245  01  L004-LINK-AREA.                                              DTSBE453
00246  ++INCLUDE DTSIL004                                               DTSBE453
00247      SKIP3                                                        DTSBE453
00248  01  L005-LINK-AREA.                                              DTSBE453
00249  ++INCLUDE DTSIL005                                               DTSBE453
00250      SKIP3                                                        DTSBE453
00251  01  L061-LINK-AREA.                                              DTSBE453
00252  ++INCLUDE DTSIL061                                               DTSBE453
00253      SKIP3                                                        DTSBE453
00254  01  L101-LINK-AREA.                                              DTSBE453
00255  ++INCLUDE DTSIL101                                               DTSBE453
00256      SKIP3                                                        DTSBE453
00257  01  L410-LINK-AREA.                                              DTSBE453
00258  ++INCLUDE DTSIL410                                               DTSBE453
00259      SKIP3                                                        DTSBE453
00260  01  L415-LINK-AREA.                                              DTSBE453
00261  ++INCLUDE DTSIL415                                               DTSBE453
00262      SKIP3                                                        DTSBE453
00263  01  L109-LINK-AREA.                                              DTSBE453
00264  ++INCLUDE DTSIL109                                               DTSBE453
00265      SKIP3                                                        DTSBE453
00266  01  L111-LINK-AREA.                                              DTSBE453
00267  ++INCLUDE DTSIL111                                               DTSBE453
00268      SKIP3                                                        DTSBE453
00269  01  L112-LINK-AREA.                                              DTSBE453
00270  ++INCLUDE DTSIL112                                               DTSBE453
00271      EJECT                                                        DTSBE453
00272  01  L910-LINK-AREA.                                              DTSBE453
00273  ++INCLUDE DTSIL910                                               DTSBE453
00274      SKIP3                                                        DTSBE453
00275  01  MSKL-REC.                                                    DTSBE453
00276  ++INCLUDE DTSIMSKL                                               DTSBE453
00277      SKIP3                                                        DTSBE453
00278  01  MQTR-REC.                                                    DTSBE453
00279  ++INCLUDE DTSIMQTR                                               DTSBE453
00280      SKIP3                                                        DTSBE453
00281  01  MTAD-REC.                                                    DTSBE453
00282  ++INCLUDE DTSIMTAD                                               DTSBE453
00283      SKIP3                                                        DTSBE453
00284  01  MEVL-REC.                                                    DTSBE453
00285  ++INCLUDE DTSIMEVL                                               DTSBE453
00286      SKIP3                                                        DTSBE453
00287  01  MSOL-REC.                                                    DTSBE453
00288  ++INCLUDE DTSIMSOL                                               DTSBE453
00289      SKIP3                                                        DTSBE453
00290  01  MOPO-REC.                                                    DTSBE453
00291  ++INCLUDE DTSIMOPO                                               DTSBE453
00292      SKIP3                                                        DTSBE453
00293  01  MTAA-REC.                                                    DTSBE453
00294  ++INCLUDE DTSIMTAA                                               DTSBE453
00295      EJECT                                                        DTSBE453
00296  01  L931-LINK-AREA.                                              DTSBE453
00297  ++INCLUDE DTSIL931                                               DTSBE453
00298      SKIP3                                                        DTSBE453
00299  01  FSKL-REC.                                                    DTSBE453
00300  ++INCLUDE DTSIFSKL                                               DTSBE453
00301      SKIP3                                                        DTSBE453
00302  01  FAFD-REC.                                                    DTSBE453
00303  ++INCLUDE DTSIFAFD                                               DTSBE453
00304      EJECT                                                        DTSBE453
00305  01  R453-REC.                                                    DTSBE453
00306  ++INCLUDE DTSIR453                                               DTSBE453
00307      SKIP3                                                        DTSBE453
00308  01  R454-REC.                                                    DTSBE453
00309  ++INCLUDE DTSIR454                                               DTSBE453
00310      SKIP3                                                        DTSBE453
00311  01  R907-REC.                                                    DTSBE453
00312  ++INCLUDE DTSIR907                                               DTSBE453
00313      EJECT                                                        DTSBE453
00314  LINKAGE SECTION.                                                 DTSBE453
00315      SKIP3                                                        DTSBE453
00316  01  LECM-LINK-AREA.                                              DTSBE453
00317  ++INCLUDE DTSILECM                                               DTSBE453
00318      SKIP3                                                        DTSBE453
00319          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE453
00320              15  LECM-PARM-NOTICE-IND        PIC  X(01).          DTSBE453
00321              15  FILLER                      PIC  X(01).          DTSBE453
00322              15  LECM-PARM-SUBJECT-YRQ       PIC  X(03).          DTSBE453
00323              15  FILLER                      PIC  X(01).          DTSBE453
00324              15  LECM-PARM-INT-COMP-DATE     PIC  X(06).          DTSBE453
00325              15  FILLER                      PIC  X(01).          DTSBE453
00326              15  LECM-PARM-FINAL-ACTION-DATE                      DTSBE453
00327                                              PIC  X(06).          DTSBE453
00328              15  FILLER                      PIC  X(49).          DTSBE453
00329      EJECT                                                        DTSBE453
00330  01  MPRF-LINK-REC.                                               DTSBE453
00331  ++INCLUDE DTSIMPRF                                               DTSBE453
00332      EJECT                                                        DTSBE453
00333  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE453
00334                           MPRF-LINK-REC.                          DTSBE453
00335                                                                   DTSBE453
00336                                                                   DTSBE453
00337      IF LECM-PROCESS-88                                           DTSBE453
00338          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE453
00339      ELSE                                                         DTSBE453
00340      IF LECM-INITIALIZE-88                                        DTSBE453
00341          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE453
00342      ELSE                                                         DTSBE453
00343      IF LECM-TERMINATE-88                                         DTSBE453
00344          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE453
00345      ELSE                                                         DTSBE453
00346          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE453
00347            TO ABEND-MSG                                           DTSBE453
00348          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE453
00349                                                                   DTSBE453
00350                                                                   DTSBE453
00351      GOBACK.                                                      DTSBE453
00352      EJECT                                                        DTSBE453
00353  I0000-INITIALIZE.                                                DTSBE453
00354      MOVE LECM-TRACE-IND TO L910-TRACE-IND                        DTSBE453
00355                             L931-TRACE-IND.                       DTSBE453
00356                                                                   DTSBE453
00357      MOVE WRK-MOD-NAME TO L910-MOD-NAME                           DTSBE453
00358                           L931-MOD-NAME                           DTSBE453
00359                           R907-MODULE-NAME.                       DTSBE453
00360                                                                   DTSBE453
00361                                                                   DTSBE453
00362      MOVE LENGTH OF R453-REC TO R453-LENGTH.                      DTSBE453
00363                                                                   DTSBE453
00364      MOVE '453' TO R453-REC-TYPE.                                 DTSBE453
00365                                                                   DTSBE453
00366      MOVE LENGTH OF R454-REC TO R454-LENGTH.                      DTSBE453
00367                                                                   DTSBE453
00368      MOVE '454' TO R454-REC-TYPE.                                 DTSBE453
00369                                                                   DTSBE453
00370      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBE453
00371                                                                   DTSBE453
00372      MOVE '907' TO R907-REC-TYPE.                                 DTSBE453
00373                                                                   DTSBE453
00374                                                                   DTSBE453
00375      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE453
00376                                                                   DTSBE453
00377                                                                   DTSBE453
00378      IF WRK-PARM-NOTICE-YES-88                                    DTSBE453
00379          SET LECM-MST-OPEN-UPDATE-88 TO TRUE                      DTSBE453
00380          SET LECM-REF-OPEN-UPDATE-88 TO TRUE                      DTSBE453
00381      ELSE                                                         DTSBE453
00382          SET LECM-MST-OPEN-READ-88 TO TRUE                        DTSBE453
00383          SET LECM-REF-OPEN-READ-88 TO TRUE.                       DTSBE453
00384      SKIP2                                                        DTSBE453
00385  I0000-EXIT.                                                      DTSBE453
00386      EXIT.                                                        DTSBE453
00387      SKIP3                                                        DTSBE453
00388  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE453
00389      PERFORM I1100-NOTICE-IND THRU I1100-EXIT.                    DTSBE453
00390                                                                   DTSBE453
00391                                                                   DTSBE453
00392      PERFORM I1300-SUBJECT-YRQ THRU I1300-EXIT.                   DTSBE453
00393                                                                   DTSBE453
00394                                                                   DTSBE453
00395      PERFORM I1400-INT-COMP-DATE THRU I1400-EXIT.                 DTSBE453
00396                                                                   DTSBE453
00397                                                                   DTSBE453
00398      MOVE +0 TO WRK-PARM-FINAL-ACTION-DATE                        DTSBE453
00399                 WRK-AS-OF-DATE                                    DTSBE453
00400                 WRK-UC30-FIRST-DEL-MAIL-DATE                      DTSBE453
00401                 WRK-UC30-FINAL-DEL-CUTOFF-DATE                    DTSBE453
00402                 WRK-UC30-FINAL-DEL-MAIL-DATE.                     DTSBE453
00403                                                                   DTSBE453
00404                                                                   DTSBE453
00405      IF WRK-PARM-NOTICE-YES-88                                    DTSBE453
00406          PERFORM I2000-NOTICE-PARAMETERS THRU I2000-EXIT.         DTSBE453
00407  I1000-EXIT.                                                      DTSBE453
00408      EXIT.                                                        DTSBE453
00409      SKIP3                                                        DTSBE453
00410  I1100-NOTICE-IND.                                                DTSBE453
00411                                                                   DTSBE453
00412      IF LECM-PARM-NOTICE-IND = SPACES                             DTSBE453
00413          SET WRK-PARM-NOTICE-NO-88 TO TRUE                        DTSBE453
00414      ELSE                                                         DTSBE453
00415          IF LECM-PARM-NOTICE-IND = 'N' OR 'Y'                     DTSBE453
00416              MOVE LECM-PARM-NOTICE-IND TO WRK-PARM-NOTICE-IND     DTSBE453
00417          ELSE                                                     DTSBE453
00418              MOVE 'PARM-NOTICE-IND NOT VALID'                     DTSBE453
00419                TO ABEND-MSG                                       DTSBE453
00420              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE453
00421  I1100-EXIT.                                                      DTSBE453
00422      EXIT.                                                        DTSBE453
00423      SKIP3                                                        DTSBE453
00424  I1300-SUBJECT-YRQ.                                               DTSBE453
00425 *RW1                                                              DTSBE453
00426      SET L415-MODE-MOST-RECENT-88 TO TRUE.                        DTSBE453
00427      PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT.                 DTSBE453
00428      MOVE L415-UC30H-FIRST-DEL-STRT-YRQ TO L004-QTR-5-9.          DTSBE453
00429 *RW2                                                              DTSBE453
00430      IF LECM-PARM-SUBJECT-YRQ = SPACES                            DTSBE453
00431 **      MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO WRK-PARM-SUBJECT-YRQ  DTSBE453
00432         MOVE L415-UC30H-FIRST-DEL-STRT-YRQ TO WRK-PARM-SUBJECT-YRQDTSBE453
00433      ELSE                                                         DTSBE453
00434          MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3-X               DTSBE453
00435          PERFORM S004-FROM-3 THRU S004-EXIT                       DTSBE453
00436          IF L004-VALID-QTR                                        DTSBE453
00437 *RW1                                                              DTSBE453
00438             IF L004-QTR-5-Q = 1                                   DTSBE453
00439                MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ          DTSBE453
00440             ELSE                                                  DTSBE453
00441                MOVE 'PARM-SUBJECT-YRQ NOT VALID'                  DTSBE453
00442                  TO ABEND-MSG                                     DTSBE453
00443                PERFORM S999-ABEND THRU S999-EXIT                  DTSBE453
00444             END-IF                                                DTSBE453
00445 *RW2                                                              DTSBE453
00446          ELSE                                                     DTSBE453
00447              MOVE 'PARM-SUBJECT-YRQ NOT VALID'                    DTSBE453
00448                TO ABEND-MSG                                       DTSBE453
00449              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE453
00450                                                                   DTSBE453
00451 *    IF WRK-PARM-SUBJECT-YRQ > LECM-LAST-UC30-DEL-MAIL-YRQ        DTSBE453
00452      IF WRK-PARM-SUBJECT-YRQ > L415-UC30H-MASS-MAIL-STRT-YRQ      DTSBE453
00453          MOVE                                                     DTSBE453
00454      'PARM-SUBJ-YRQ NOT COMP WITH L415-UC30H-MASS-MAIL-STRT-YRQ'  DTSBE453
00455            TO ABEND-MSG                                           DTSBE453
00456          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE453
00457                                                                   DTSBE453
00458                                                                   DTSBE453
00459      MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9.                   DTSBE453
00460                                                                   DTSBE453
00461      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE453
00462                                                                   DTSBE453
00463 *    MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR.                DTSBE453
00464      MOVE L004-QTR-5-YR  TO WRK-SUBJECT-YEAR.                     DTSBE453
00465 *RW1                                                              DTSBE453
00466      MOVE L004-QTR-5-9   TO WRK-START-YRQ.                        DTSBE453
00467      MOVE 4              TO L004-QTR-5-Q.                         DTSBE453
00468      MOVE L004-QTR-5-9   TO WRK-END-YRQ.                          DTSBE453
00469 *RW2                                                              DTSBE453
00470  I1300-EXIT.                                                      DTSBE453
00471      EXIT.                                                        DTSBE453
00472      SKIP3                                                        DTSBE453
00473  I1400-INT-COMP-DATE.                                             DTSBE453
00474      IF LECM-PARM-INT-COMP-DATE = SPACES                          DTSBE453
00475          MOVE LECM-CURR-RUN-DATE TO WRK-PARM-INT-COMP-DATE        DTSBE453
00476      ELSE                                                         DTSBE453
00477          MOVE LECM-PARM-INT-COMP-DATE TO L001-CAL-6-DATE-X        DTSBE453
00478          PERFORM S001-FROM-CAL-6 THRU S001-EXIT                   DTSBE453
00479          IF L001-VALID-DATE                                       DTSBE453
00480              MOVE L001-FED-8-DATE-9 TO WRK-PARM-INT-COMP-DATE     DTSBE453
00481          ELSE                                                     DTSBE453
00482              MOVE 'PARM-INT-COMP-DATE NOT VALID'                  DTSBE453
00483                TO ABEND-MSG                                       DTSBE453
00484              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE453
00485  I1400-EXIT.                                                      DTSBE453
00486      EXIT.                                                        DTSBE453
00487      EJECT                                                        DTSBE453
00488  I2000-NOTICE-PARAMETERS.                                         DTSBE453
00489 *    MOVE LOW-VALUES TO FQTR-KEY-AREA.                            DTSBE453
00490 *                                                                 DTSBE453
00491 *    SET FQTR-QTR-88 TO TRUE.                                     DTSBE453
00492 *                                                                 DTSBE453
00493 *    MOVE WRK-PARM-SUBJECT-YRQ TO FQTR-YRQ.                       DTSBE453
00494 *                                                                 DTSBE453
00495 *    MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA.                         DTSBE453
00496 *                                                                 DTSBE453
00497 *    PERFORM S931-READ THRU S931-EXIT.                            DTSBE453
00498 *                                                                 DTSBE453
00499 *    IF L931-NO-REC-88                                            DTSBE453
00500 *        MOVE 'FQTR RECORD FOR SUBJECT YRQ NOT FOUND'             DTSBE453
00501 *          TO ABEND-MSG                                           DTSBE453
00502 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE453
00503 *                                                                 DTSBE453
00504 *                                                                 DTSBE453
00505 *    MOVE FSKL-REC TO FQTR-REC.                                   DTSBE453
00506 *                                                                 DTSBE453
00507 *RW1                                                              DTSBE453
00508      MOVE L004-QTR-5-YR          TO L415-YR.                      DTSBE453
00509      SET L415-MODE-INPUT-YEAR-88 TO TRUE.                         DTSBE453
00510      PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT.                 DTSBE453
00511      IF L415-OK-88                                                DTSBE453
00512 *RW2                                                              DTSBE453
00513         PERFORM I2100-FINAL-ACTION-DATE THRU I2100-EXIT           DTSBE453
00514      ELSE                                                         DTSBE453
00515          MOVE 'ANNUAL FILING LINKAGE ACCESS ERROR'                DTSBE453
00516            TO ABEND-MSG                                           DTSBE453
00517          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE453
00518                                                                   DTSBE453
00519      MOVE LECM-PRIOR-RUN-DATE TO WRK-AS-OF-DATE.                  DTSBE453
00520                                                                   DTSBE453
00521                                                                   DTSBE453
00522 *    IF FQTR-UC30-FIRST-DEL-DATE = +0                             DTSBE453
00523      IF L415-UC30H-FIRST-DEL-DATE = +0                            DTSBE453
00524          MOVE 'L415-UC30-FIRST-DEL-DATE NOT FOUND'                DTSBE453
00525            TO ABEND-MSG                                           DTSBE453
00526          PERFORM S999-ABEND THRU S999-EXIT                        DTSBE453
00527      ELSE                                                         DTSBE453
00528 *         MOVE FQTR-UC30-FIRST-DEL-DATE                           DTSBE453
00529           MOVE L415-UC30H-FIRST-DEL-DATE                          DTSBE453
00530             TO WRK-UC30-FIRST-DEL-MAIL-DATE.                      DTSBE453
00531                                                                   DTSBE453
00532                                                                   DTSBE453
00533      MOVE LECM-CURR-RUN-DATE TO WRK-UC30-FINAL-DEL-CUTOFF-DATE    DTSBE453
00534                                 WRK-UC30-FINAL-DEL-MAIL-DATE.     DTSBE453
00535                                                                   DTSBE453
00536                                                                   DTSBE453
00537      IF (WRK-UC30-FIRST-DEL-MAIL-DATE                             DTSBE453
00538           < WRK-UC30-FINAL-DEL-MAIL-DATE)                         DTSBE453
00539                AND                                                DTSBE453
00540         (WRK-UC30-FINAL-DEL-MAIL-DATE                             DTSBE453
00541           < WRK-PARM-FINAL-ACTION-DATE)                           DTSBE453
00542          NEXT SENTENCE                                            DTSBE453
00543      ELSE                                                         DTSBE453
00544          MOVE 'INCONSISTENT DATES ENCOUNTERED'                    DTSBE453
00545            TO ABEND-MSG                                           DTSBE453
00546          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE453
00547  I2000-EXIT.                                                      DTSBE453
00548      EXIT.                                                        DTSBE453
00549      SKIP3                                                        DTSBE453
00550  I2100-FINAL-ACTION-DATE.                                         DTSBE453
00551      IF LECM-PARM-FINAL-ACTION-DATE = SPACES                      DTSBE453
00552 *        IF FQTR-UC30-FINAL-ACTION-DATE = +0                      DTSBE453
00553          IF L415-UC30H-FINAL-ACTION-DATE = +0                     DTSBE453
00554              MOVE LECM-CURR-RUN-DATE TO L001-FED-8-DATE-9         DTSBE453
00555              PERFORM S001-FROM-FED-8 THRU S001-EXIT               DTSBE453
00556              ADD +14 TO L001-JUL-ABS-DAY                          DTSBE453
00557              PERFORM S001-FROM-ABS-DAY THRU S001-EXIT             DTSBE453
00558              MOVE L001-FED-8-DATE-9                               DTSBE453
00559                TO WRK-PARM-FINAL-ACTION-DATE                      DTSBE453
00560          ELSE                                                     DTSBE453
00561 *            MOVE FQTR-UC30-FINAL-ACTION-DATE                     DTSBE453
00562              MOVE L415-UC30H-FINAL-ACTION-DATE                    DTSBE453
00563                TO WRK-PARM-FINAL-ACTION-DATE                      DTSBE453
00564      ELSE                                                         DTSBE453
00565          MOVE LECM-PARM-FINAL-ACTION-DATE                         DTSBE453
00566            TO L001-CAL-6-DATE-X                                   DTSBE453
00567          PERFORM S001-FROM-CAL-6 THRU S001-EXIT                   DTSBE453
00568          IF L001-VALID-DATE                                       DTSBE453
00569              MOVE L001-FED-8-DATE-9                               DTSBE453
00570                TO WRK-PARM-FINAL-ACTION-DATE                      DTSBE453
00571          ELSE                                                     DTSBE453
00572              MOVE 'INVALID PARM-FINAL-ACTION-DATE ENCOUNTERED'    DTSBE453
00573                TO ABEND-MSG                                       DTSBE453
00574              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE453
00575  I2100-EXIT.                                                      DTSBE453
00576      EXIT.                                                        DTSBE453
00577      EJECT                                                        DTSBE453
00578  P0000-PROCESS.                                                   DTSBE453
00579 *****IF (MPRF-EMP-NO < 360094)                                    DTSBE453
00580 ***************OR                                                 DTSBE453
00581 ********(MPRF-EMP-NO > 360098)                                    DTSBE453
00582 *********GO TO P0000-EXIT.                                        DTSBE453
00583                                                                   DTSBE453
00584                                                                   DTSBE453
00585      MOVE MPRF-EMP-NO TO R907-EMP-NO.                             DTSBE453
00586                                                                   DTSBE453
00587      IF MPRF-PURSUED-RPT-CNT > +0                                 DTSBE453
00588          NEXT SENTENCE                                            DTSBE453
00589      ELSE                                                         DTSBE453
00590          GO TO P0000-EXIT.                                        DTSBE453
00591 *RW                                                               DTSBE453
00592      IF MPRF-RETURN-MAIL-YES-88                                   DTSBE453
00593          GO TO P0000-EXIT.                                        DTSBE453
00594 *RW                                                               DTSBE453
00595      SET L410-MODE-INPUT-YRQ-88 TO TRUE                           DTSBE453
00596      MOVE MPRF-EMP-NO           TO L410-EMP-NO                    DTSBE453
00597      MOVE WRK-PARM-SUBJECT-YRQ  TO L410-YRQ                       DTSBE453
00598      PERFORM S410-FILE-SCHED    THRU S410-EXIT                    DTSBE453
00599      IF L410-ANN-SCHED-88                                         DTSBE453
00600         NEXT SENTENCE                                             DTSBE453
00601      ELSE                                                         DTSBE453
00602         IF L410-QTRLY-SCHED-88                                    DTSBE453
00603            ADD +1 TO WRK-QUARTERLY-FILER-CNT                      DTSBE453
00604            GO TO P0000-EXIT                                       DTSBE453
00605         ELSE                                                      DTSBE453
00606            ADD +1 TO WRK-QUARTERLY-FILER-CNT                      DTSBE453
00607            GO TO P0000-EXIT                                       DTSBE453
00608         END-IF                                                    DTSBE453
00609      END-IF.                                                      DTSBE453
00610                                                                   DTSBE453
00611                                                                   DTSBE453
00612      DISPLAY 'EMP NO ' MPRF-EMP-NO.                               DTSBE453
00613      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE453
00614                                                                   DTSBE453
00615      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE453
00616                                                                   DTSBE453
00617      SET MQTR-QTR-88 TO TRUE.                                     DTSBE453
00618                                                                   DTSBE453
00619      MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ.                       DTSBE453
00620                                                                   DTSBE453
00621      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE453
00622                                                                   DTSBE453
00623      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE453
00624                                                                   DTSBE453
00625      IF L910-NO-REC-88                                            DTSBE453
00626          GO TO P0000-EXIT.                                        DTSBE453
00627                                                                   DTSBE453
00628      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE453
00629                                                                   DTSBE453
00630      IF (MQTR-YRQ >= WRK-START-YRQ) AND (MQTR-YRQ <= WRK-END-YRQ) DTSBE453
00631         IF MQTR-RPT-NOT-PURSUED-88                                DTSBE453
00632             GO TO P0000-EXIT                                      DTSBE453
00633         END-IF                                                    DTSBE453
00634      ELSE                                                         DTSBE453
00635         GO TO P0000-EXIT.                                         DTSBE453
00636                                                                   DTSBE453
00637                                                                   DTSBE453
00638      IF MQTR-MISS-LETTER-SENT-88                                  DTSBE453
00639          NEXT SENTENCE                                            DTSBE453
00640      ELSE                                                         DTSBE453
00641          GO TO P0000-EXIT.                                        DTSBE453
00642                                                                   DTSBE453
00643                                                                   DTSBE453
00644      SET TAD-MISS-RPT-LTRS-NO-88 TO TRUE.                         DTSBE453
00645                                                                   DTSBE453
00646      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE453
00647                                                                   DTSBE453
00648      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE453
00649                                                                   DTSBE453
00650      SET MSKL-TAD-88 TO TRUE.                                     DTSBE453
00651                                                                   DTSBE453
00652      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE453
00653                                                                   DTSBE453
00654      PERFORM                                                      DTSBE453
00655        UNTIL L910-NO-REC-88                                       DTSBE453
00656          MOVE MSKL-REC TO MTAD-REC                                DTSBE453
00657          IF MTAD-MISSING-RPT-LTRS-YES-88                          DTSBE453
00658              SET TAD-MISS-RPT-LTRS-YES-88 TO TRUE                 DTSBE453
00659          END-IF                                                   DTSBE453
00660          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE453
00661      END-PERFORM.                                                 DTSBE453
00662                                                                   DTSBE453
00663                                                                   DTSBE453
00664      SET OPO-MISS-RPT-LTRS-NO-88 TO TRUE.                         DTSBE453
00665                                                                   DTSBE453
00666      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE453
00667                                                                   DTSBE453
00668      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE453
00669                                                                   DTSBE453
00670      SET MSKL-OPO-88 TO TRUE.                                     DTSBE453
00671                                                                   DTSBE453
00672      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE453
00673                                                                   DTSBE453
00674      PERFORM                                                      DTSBE453
00675        UNTIL L910-NO-REC-88                                       DTSBE453
00676          MOVE MSKL-REC TO MOPO-REC                                DTSBE453
00677          IF MOPO-MISSING-RPT-LTRS-YES-88                          DTSBE453
00678              SET OPO-MISS-RPT-LTRS-YES-88 TO TRUE                 DTSBE453
00679          END-IF                                                   DTSBE453
00680          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE453
00681      END-PERFORM.                                                 DTSBE453
00682                                                                   DTSBE453
00683                                                                   DTSBE453
00684      SET TAA-MISS-RPT-LTRS-NO-88 TO TRUE.                         DTSBE453
00685                                                                   DTSBE453
00686      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE453
00687                                                                   DTSBE453
00688      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE453
00689                                                                   DTSBE453
00690      SET MSKL-TAA-88 TO TRUE.                                     DTSBE453
00691                                                                   DTSBE453
00692      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE453
00693                                                                   DTSBE453
00694      PERFORM                                                      DTSBE453
00695        UNTIL L910-NO-REC-88                                       DTSBE453
00696          MOVE MSKL-REC TO MTAA-REC                                DTSBE453
00697          IF MTAA-MISSING-RPT-LTRS-YES-88                          DTSBE453
00698              SET TAA-MISS-RPT-LTRS-YES-88 TO TRUE                 DTSBE453
00699          END-IF                                                   DTSBE453
00700          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE453
00701      END-PERFORM.                                                 DTSBE453
00702                                                                   DTSBE453
00703                                                                   DTSBE453
00704      IF TAD-MISS-RPT-LTRS-NO-88                                   DTSBE453
00705          MOVE MSG2-ID TO R907-MSG-ID                              DTSBE453
00706 *        MOVE WRK-SUBJECT-SLASH-QTR TO MSG2-SLASHED-YRQ           DTSBE453
00707          MOVE WRK-SUBJECT-YEAR      TO MSG2-YEAR                  DTSBE453
00708          MOVE MSG2-TEXT TO R907-MSG-TEXT                          DTSBE453
00709          PERFORM S946-WRITE-R907 THRU S946-EXIT.                  DTSBE453
00710                                                                   DTSBE453
00711                                                                   DTSBE453
00712      IF (TAD-MISS-RPT-LTRS-NO-88)                                 DTSBE453
00713               AND                                                 DTSBE453
00714         (OPO-MISS-RPT-LTRS-NO-88)                                 DTSBE453
00715               AND                                                 DTSBE453
00716         (TAA-MISS-RPT-LTRS-NO-88)                                 DTSBE453
00717          MOVE MSG5-ID TO R907-MSG-ID                              DTSBE453
00718 *        MOVE WRK-SUBJECT-SLASH-QTR TO MSG5-SLASHED-YRQ           DTSBE453
00719          MOVE WRK-SUBJECT-YEAR      TO MSG5-YEAR                  DTSBE453
00720          MOVE MSG5-TEXT TO R907-MSG-TEXT                          DTSBE453
00721          PERFORM S946-WRITE-R907 THRU S946-EXIT                   DTSBE453
00722          GO TO P0000-EXIT.                                        DTSBE453
00723                                                                   DTSBE453
00724                                                                   DTSBE453
00725      PERFORM P1000-TOTAL-RATE THRU P1000-EXIT.                    DTSBE453
00726                                                                   DTSBE453
00727                                                                   DTSBE453
00728      MOVE MQTR-RPT-DUE-DATE TO WRK-RPT-DUE-DATE.                  DTSBE453
00729                                                                   DTSBE453
00730                                                                   DTSBE453
00731      PERFORM P2000-FIELD-LIST THRU P2000-EXIT.                    DTSBE453
00732                                                                   DTSBE453
00733                                                                   DTSBE453
00734      IF WRK-PARM-NOTICE-YES-88                                    DTSBE453
00735 *        ADD +1 TO WRK-NOTICE-CNT                                 DTSBE453
00736          PERFORM P3000-FINAL-NOTICE THRU P3000-EXIT.              DTSBE453
00737  P0000-EXIT.                                                      DTSBE453
00738      EXIT.                                                        DTSBE453
00739      EJECT                                                        DTSBE453
00740  P1000-TOTAL-RATE.                                                DTSBE453
00741      IF MPRF-CLASS-SELF-INS-88                                    DTSBE453
00742          PERFORM S109-LOOKUP-SUR-RATE THRU S109-EXIT              DTSBE453
00743          MOVE L109-SUR-RATE TO WRK-TOTAL-RATE                     DTSBE453
00744      ELSE                                                         DTSBE453
00745          IF MQTR-NO-UI-RATE-88                                    DTSBE453
00746              MOVE MQTR-UI-RATE TO WRK-TOTAL-RATE                  DTSBE453
00747          ELSE                                                     DTSBE453
00748              PERFORM S109-LOOKUP-SUR-RATE THRU S109-EXIT          DTSBE453
00749              ADD MQTR-UI-RATE                                     DTSBE453
00750                  L109-SUR-RATE GIVING WRK-TOTAL-RATE.             DTSBE453
00751  P1000-EXIT.                                                      DTSBE453
00752      EXIT.                                                        DTSBE453
00753      EJECT                                                        DTSBE453
00754  P2000-FIELD-LIST.                                                DTSBE453
00755      PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT.               DTSBE453
00756                                                                   DTSBE453
00757                                                                   DTSBE453
00758      MOVE L061-FLD-REP-ID TO R454-FIELD-REP-ID.                   DTSBE453
00759                                                                   DTSBE453
00760      MOVE MPRF-FLD-ZIP TO R454-FIELD-ZIP.                         DTSBE453
00761                                                                   DTSBE453
00762      MOVE MPRF-EMP-NO TO R454-EMP-NO.                             DTSBE453
00763                                                                   DTSBE453
00764                                                                   DTSBE453
00765      MOVE LOW-VALUES TO R454-DATA-AREA.                           DTSBE453
00766                                                                   DTSBE453
00767                                                                   DTSBE453
00768      MOVE WRK-PARM-SUBJECT-YRQ TO R454-YRQ.                       DTSBE453
00769                                                                   DTSBE453
00770      MOVE WRK-PARM-INT-COMP-DATE TO R454-COMPUTATION-DATE.        DTSBE453
00771                                                                   DTSBE453
00772      MOVE MPRF-SUSPEND-COLL-IND TO R454-SUSPEND-COLL-IND.         DTSBE453
00773                                                                   DTSBE453
00774      MOVE MPRF-PRIMARY-NAME TO R454-PRIMARY-NAME.                 DTSBE453
00775                                                                   DTSBE453
00776                                                                   DTSBE453
00777      MOVE LOW-VALUES TO MTAD-KEY-AREA.                            DTSBE453
00778                                                                   DTSBE453
00779      MOVE MPRF-EMP-NO TO MTAD-EMP-NO.                             DTSBE453
00780                                                                   DTSBE453
00781      SET MTAD-TAD-88 TO TRUE.                                     DTSBE453
00782                                                                   DTSBE453
00783      MOVE +1 TO MTAD-ID-NO.                                       DTSBE453
00784                                                                   DTSBE453
00785      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE453
00786                                                                   DTSBE453
00787      PERFORM S910-READ THRU S910-EXIT.                            DTSBE453
00788                                                                   DTSBE453
00789      IF L910-OK-88                                                DTSBE453
00790          MOVE MSKL-REC TO MTAD-REC                                DTSBE453
00791          MOVE MTAD-ATTN-LINE TO R454-ADDR1-ATTN-LINE              DTSBE453
00792          MOVE MTAD-DELIV-LINE-1 TO R454-ADDR1-DELIV-LINE-1        DTSBE453
00793          MOVE MTAD-DELIV-LINE-2 TO R454-ADDR1-DELIV-LINE-2        DTSBE453
00794          MOVE MTAD-CITY TO R454-ADDR1-CITY                        DTSBE453
00795          MOVE MTAD-ST TO R454-ADDR1-STATE                         DTSBE453
00796          MOVE MTAD-ZIP TO R454-ADDR1-ZIP                          DTSBE453
00797          MOVE MTAD-VOICE-1 TO R454-EMPLOYER-VOICE (1)             DTSBE453
00798          MOVE MTAD-VOICE-2 TO R454-EMPLOYER-VOICE (2)             DTSBE453
00799      ELSE                                                         DTSBE453
00800          MOVE SPACE TO R454-ADDR1-ATTN-LINE                       DTSBE453
00801                        R454-ADDR1-DELIV-LINE-1                    DTSBE453
00802                        R454-ADDR1-DELIV-LINE-2                    DTSBE453
00803                        R454-ADDR1-CITY                            DTSBE453
00804                        R454-ADDR1-STATE                           DTSBE453
00805                        R454-ADDR1-ZIP                             DTSBE453
00806                        R454-EMPLOYER-VOICE (1)                    DTSBE453
00807                        R454-EMPLOYER-VOICE (2).                   DTSBE453
00808                                                                   DTSBE453
00809                                                                   DTSBE453
00810      MOVE +2 TO MTAD-ID-NO.                                       DTSBE453
00811                                                                   DTSBE453
00812      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE453
00813                                                                   DTSBE453
00814      PERFORM S910-READ THRU S910-EXIT.                            DTSBE453
00815                                                                   DTSBE453
00816      IF L910-OK-88                                                DTSBE453
00817          MOVE MSKL-REC TO MTAD-REC                                DTSBE453
00818          MOVE MTAD-ATTN-LINE TO R454-ADDR2-ATTN-LINE              DTSBE453
00819          MOVE MTAD-DELIV-LINE-1 TO R454-ADDR2-DELIV-LINE-1        DTSBE453
00820          MOVE MTAD-DELIV-LINE-2 TO R454-ADDR2-DELIV-LINE-2        DTSBE453
00821          MOVE MTAD-CITY TO R454-ADDR2-CITY                        DTSBE453
00822          MOVE MTAD-ST TO R454-ADDR2-STATE                         DTSBE453
00823          MOVE MTAD-ZIP TO R454-ADDR2-ZIP                          DTSBE453
00824          MOVE MTAD-VOICE-1 TO R454-EMPLOYER-VOICE (3)             DTSBE453
00825          MOVE MTAD-VOICE-2 TO R454-EMPLOYER-VOICE (4)             DTSBE453
00826      ELSE                                                         DTSBE453
00827          MOVE SPACE TO R454-ADDR2-ATTN-LINE                       DTSBE453
00828                        R454-ADDR2-DELIV-LINE-1                    DTSBE453
00829                        R454-ADDR2-DELIV-LINE-2                    DTSBE453
00830                        R454-ADDR2-CITY                            DTSBE453
00831                        R454-ADDR2-STATE                           DTSBE453
00832                        R454-ADDR2-ZIP                             DTSBE453
00833                        R454-EMPLOYER-VOICE (3)                    DTSBE453
00834                        R454-EMPLOYER-VOICE (4).                   DTSBE453
00835                                                                   DTSBE453
00836                                                                   DTSBE453
00837      MOVE +0 TO R454-INACT-DATE.                                  DTSBE453
00838                                                                   DTSBE453
00839      IF MPRF-STATUS-INACT-88                                      DTSBE453
00840          MOVE LOW-VALUES TO MSKL-KEY-AREA                         DTSBE453
00841          MOVE MPRF-EMP-NO TO MSKL-EMP-NO                          DTSBE453
00842          SET MSKL-SOL-88 TO TRUE                                  DTSBE453
00843          PERFORM S910-START-BROWSE THRU S910-EXIT                 DTSBE453
00844          PERFORM                                                  DTSBE453
00845            UNTIL L910-NO-REC-88                                   DTSBE453
00846              MOVE MSKL-REC TO MSOL-REC                            DTSBE453
00847              MOVE MSOL-INACT-DATE TO R454-INACT-DATE              DTSBE453
00848              PERFORM S910-READ-NEXT THRU S910-EXIT                DTSBE453
00849          END-PERFORM.                                             DTSBE453
00850                                                                   DTSBE453
00851                                                                   DTSBE453
00852      MOVE WRK-TOTAL-RATE TO R454-TOTAL-RATE.                      DTSBE453
00853                                                                   DTSBE453
00854                                                                   DTSBE453
00855      MOVE +0 TO R454-BALANCE-AMT.                                 DTSBE453
00856                                                                   DTSBE453
00857      IF MPRF-TOT-BALANCE-AMT > +0                                 DTSBE453
00858          MOVE LOW-VALUES TO MSKL-KEY-AREA                         DTSBE453
00859          MOVE MPRF-EMP-NO TO MSKL-EMP-NO                          DTSBE453
00860          SET MSKL-QTR-88 TO TRUE                                  DTSBE453
00861          PERFORM S910-START-BROWSE THRU S910-EXIT                 DTSBE453
00862          PERFORM P2100-SCAN-MQTR THRU P2100-EXIT                  DTSBE453
00863              UNTIL L910-NO-REC-88.                                DTSBE453
00864                                                                   DTSBE453
00865                                                                   DTSBE453
00866      MOVE MPRF-TOT-CREDIT-AMT TO R454-CREDIT-AMT.                 DTSBE453
00867                                                                   DTSBE453
00868                                                                   DTSBE453
00869      MOVE +0 TO R454-ADDITIONAL-RPT-CNT.                          DTSBE453
00870                                                                   DTSBE453
00871      IF MPRF-PURSUED-RPT-CNT > +1                                 DTSBE453
00872          MOVE LOW-VALUES TO MSKL-KEY-AREA                         DTSBE453
00873          MOVE MPRF-EMP-NO TO MSKL-EMP-NO                          DTSBE453
00874          SET MSKL-QTR-88 TO TRUE                                  DTSBE453
00875          PERFORM S910-START-BROWSE THRU S910-EXIT                 DTSBE453
00876          PERFORM P2200-SCAN-MQTR THRU P2200-EXIT                  DTSBE453
00877              UNTIL L910-NO-REC-88.                                DTSBE453
00878                                                                   DTSBE453
00879                                                                   DTSBE453
00880      MOVE +0 TO R454-OPO-NAME-CNT.                                DTSBE453
00881                                                                   DTSBE453
00882      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE453
00883                                                                   DTSBE453
00884      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE453
00885                                                                   DTSBE453
00886      SET MSKL-OPO-88 TO TRUE.                                     DTSBE453
00887                                                                   DTSBE453
00888      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE453
00889                                                                   DTSBE453
00890      PERFORM P2300-SCAN-MOPO THRU P2300-EXIT                      DTSBE453
00891          UNTIL L910-NO-REC-88.                                    DTSBE453
00892                                                                   DTSBE453
00893                                                                   DTSBE453
00894      PERFORM S946-WRITE-R454 THRU S946-EXIT.                      DTSBE453
00895  P2000-EXIT.                                                      DTSBE453
00896      EXIT.                                                        DTSBE453
00897      SKIP3                                                        DTSBE453
00898  P2100-SCAN-MQTR.                                                 DTSBE453
00899      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE453
00900                                                                   DTSBE453
00901                                                                   DTSBE453
00902      MOVE +0 TO L101-PAID-CHNG.                                   DTSBE453
00903                                                                   DTSBE453
00904      PERFORM                                                      DTSBE453
00905        VARYING MQTR-ACCT-IDX FROM 1 BY 1                          DTSBE453
00906        UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                        DTSBE453
00907          ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                     DTSBE453
00908           TO R454-BALANCE-AMT                                     DTSBE453
00909          IF MQTR-ACCT-TAX-88 (MQTR-ACCT-IDX)                      DTSBE453
00910              ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                 DTSBE453
00911               TO L101-PAID-CHNG                                   DTSBE453
00912          END-IF                                                   DTSBE453
00913      END-PERFORM.                                                 DTSBE453
00914                                                                   DTSBE453
00915      IF L101-PAID-CHNG > +0                                       DTSBE453
00916          PERFORM P2110-PROJECT-PEN-INT THRU P2110-EXIT.           DTSBE453
00917                                                                   DTSBE453
00918                                                                   DTSBE453
00919      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE453
00920  P2100-EXIT.                                                      DTSBE453
00921      EXIT.                                                        DTSBE453
00922      SKIP3                                                        DTSBE453
00923  P2110-PROJECT-PEN-INT.                                           DTSBE453
00924      MOVE WRK-PARM-INT-COMP-DATE TO L101-RECEIVED-DATE.           DTSBE453
00925                                                                   DTSBE453
00926      SET L101-WAIVE-INT-NO-88 TO TRUE.                            DTSBE453
00927                                                                   DTSBE453
00928      MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE.                 DTSBE453
00929                                                                   DTSBE453
00930      MOVE MQTR-INT-AREA TO L101-INT-AREA.                         DTSBE453
00931                                                                   DTSBE453
00932      PERFORM S101-PER-MONTH-NO THRU S101-EXIT.                    DTSBE453
00933                                                                   DTSBE453
00934      ADD L101-INT-CHARGE-CHNG TO R454-BALANCE-AMT.                DTSBE453
00935                                                                   DTSBE453
00936      SUBTRACT L101-INT-WAIVE-CHNG FROM R454-BALANCE-AMT.          DTSBE453
00937  P2110-EXIT.                                                      DTSBE453
00938      EXIT.                                                        DTSBE453
00939      SKIP3                                                        DTSBE453
00940  P2200-SCAN-MQTR.                                                 DTSBE453
00941      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE453
00942 * EVEN WE RUN ANNUAL THE FOLLOWING IF STATEMENT O.K. ?            DTSBE453
00943      IF MQTR-YRQ = WRK-PARM-SUBJECT-YRQ                           DTSBE453
00944          NEXT SENTENCE                                            DTSBE453
00945      ELSE                                                         DTSBE453
00946          IF MQTR-RPT-IS-PURSUED-88                                DTSBE453
00947              IF R454-ADDITIONAL-RPT-CNT < +19                     DTSBE453
00948                  ADD +1 TO R454-ADDITIONAL-RPT-CNT                DTSBE453
00949                  MOVE MQTR-YRQ                                    DTSBE453
00950                    TO R454-ADDITIONAL-RPT-YRQ                     DTSBE453
00951                         (R454-ADDITIONAL-RPT-CNT)                 DTSBE453
00952              ELSE                                                 DTSBE453
00953                  MOVE MSG3-ID TO R907-MSG-ID                      DTSBE453
00954                  MOVE MSG3-TEXT TO R907-MSG-TEXT                  DTSBE453
00955                  PERFORM S946-WRITE-R907 THRU S946-EXIT           DTSBE453
00956                  SET L910-NO-REC-88 TO TRUE                       DTSBE453
00957                  GO TO P2200-EXIT.                                DTSBE453
00958                                                                   DTSBE453
00959                                                                   DTSBE453
00960      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE453
00961  P2200-EXIT.                                                      DTSBE453
00962      EXIT.                                                        DTSBE453
00963      SKIP3                                                        DTSBE453
00964  P2300-SCAN-MOPO.                                                 DTSBE453
00965      MOVE MSKL-REC TO MOPO-REC.                                   DTSBE453
00966                                                                   DTSBE453
00967      ADD +1 TO R454-OPO-NAME-CNT.                                 DTSBE453
00968                                                                   DTSBE453
00969      MOVE MOPO-NAME TO R454-OPO-NAME (R454-OPO-NAME-CNT).         DTSBE453
00970                                                                   DTSBE453
00971      IF R454-OPO-NAME-CNT < +6                                    DTSBE453
00972          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE453
00973      ELSE                                                         DTSBE453
00974          SET L910-NO-REC-88 TO TRUE.                              DTSBE453
00975  P2300-EXIT.                                                      DTSBE453
00976      EXIT.                                                        DTSBE453
00977      EJECT                                                        DTSBE453
00978  P3000-FINAL-NOTICE.                                              DTSBE453
00979      IF L061-FLD-REP-ID = '??'                                    DTSBE453
00980          MOVE MSG4-ID TO R907-MSG-ID                              DTSBE453
00981          MOVE MSG4-TEXT TO R907-MSG-TEXT                          DTSBE453
00982          PERFORM S946-WRITE-R907 THRU S946-EXIT                   DTSBE453
00983          GO TO P3000-EXIT                                         DTSBE453
00984      ELSE                                                         DTSBE453
00985      IF L061-FLD-DESK-88                                          DTSBE453
00986          SET R453-FLD-DESK-YES-88 TO TRUE                         DTSBE453
00987      ELSE                                                         DTSBE453
00988          SET R453-FLD-DESK-NO-88 TO TRUE.                         DTSBE453
00989                                                                   DTSBE453
00990      ADD +1 TO WRK-NOTICE-CNT                                     DTSBE453
00991                                                                   DTSBE453
00992      MOVE SPACES TO R453-SORT-ZIP.                                DTSBE453
00993                                                                   DTSBE453
00994      MOVE MPRF-EMP-NO TO R453-EMP-NO.                             DTSBE453
00995                                                                   DTSBE453
00996      MOVE LOW-VALUES TO R453-DATA-AREA.                           DTSBE453
00997                                                                   DTSBE453
00998      MOVE L061-FLD-REP-ID TO R453-FIELD-REP-ID.                   DTSBE453
00999                                                                   DTSBE453
01000      MOVE WRK-UC30-FINAL-DEL-MAIL-DATE TO R453-MAIL-DATE.         DTSBE453
01001                                                                   DTSBE453
01002      MOVE WRK-AS-OF-DATE TO R453-AS-OF-DATE.                      DTSBE453
01003                                                                   DTSBE453
01004      MOVE WRK-UC30-FIRST-DEL-MAIL-DATE                            DTSBE453
01005        TO R453-UC30-FIRST-DEL-MAIL-DATE.                          DTSBE453
01006                                                                   DTSBE453
01007      MOVE WRK-PARM-FINAL-ACTION-DATE                              DTSBE453
01008        TO R453-FINAL-ACTION-DATE.                                 DTSBE453
01009                                                                   DTSBE453
01010      MOVE SPACES TO R453-FMT-ADDR                                 DTSBE453
01011                     R453-ZIP                                      DTSBE453
01012                     R453-ADVANCED-BARCODE.                        DTSBE453
01013                                                                   DTSBE453
01014      MOVE WRK-TOTAL-RATE TO R453-TOTAL-RATE.                      DTSBE453
01015                                                                   DTSBE453
01016      IF R453-NO-UI-RATE-88                                        DTSBE453
01017          MOVE MSG1-ID TO R907-MSG-ID                              DTSBE453
01018 *        MOVE WRK-SUBJECT-SLASH-QTR TO MSG1-SLASHED-YRQ           DTSBE453
01019          MOVE WRK-SUBJECT-YEAR      TO MSG1-YEAR                  DTSBE453
01020          MOVE MSG1-TEXT TO R907-MSG-TEXT                          DTSBE453
01021          PERFORM S946-WRITE-R907 THRU S946-EXIT.                  DTSBE453
01022                                                                   DTSBE453
01023      MOVE WRK-PARM-SUBJECT-YRQ TO R453-YRQ.                       DTSBE453
01024                                                                   DTSBE453
01025      MOVE WRK-RPT-DUE-DATE TO R453-DUE-DATE.                      DTSBE453
01026                                                                   DTSBE453
01027                                                                   DTSBE453
01028      MOVE R454-ADDITIONAL-RPT-CNT TO R453-ADDITIONAL-RPT-CNT.     DTSBE453
01029                                                                   DTSBE453
01030      PERFORM                                                      DTSBE453
01031        VARYING R454-YRQ-IDX FROM 1 BY 1                           DTSBE453
01032        UNTIL R454-YRQ-IDX > R454-ADDITIONAL-RPT-CNT               DTSBE453
01033          SET R453-YRQ-IDX TO R454-YRQ-IDX                         DTSBE453
01034          MOVE R454-ADDITIONAL-RPT-YRQ (R454-YRQ-IDX)              DTSBE453
01035            TO R453-ADDITIONAL-RPT-YRQ (R453-YRQ-IDX)              DTSBE453
01036      END-PERFORM.                                                 DTSBE453
01037                                                                   DTSBE453
01038                                                                   DTSBE453
01039      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE453
01040                                                                   DTSBE453
01041      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE453
01042                                                                   DTSBE453
01043      SET MSKL-TAD-88 TO TRUE.                                     DTSBE453
01044                                                                   DTSBE453
01045      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE453
01046                                                                   DTSBE453
01047      PERFORM                                                      DTSBE453
01048        UNTIL L910-NO-REC-88                                       DTSBE453
01049          MOVE MSKL-REC TO MTAD-REC                                DTSBE453
01050          IF MTAD-MISSING-RPT-LTRS-YES-88                          DTSBE453
01051              PERFORM P3100-TAD-PROCESS THRU P3100-EXIT            DTSBE453
01052              MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA                  DTSBE453
01053              PERFORM S910-READ THRU S910-EXIT                     DTSBE453
01054          END-IF                                                   DTSBE453
01055          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE453
01056      END-PERFORM.                                                 DTSBE453
01057                                                                   DTSBE453
01058                                                                   DTSBE453
01059      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE453
01060                                                                   DTSBE453
01061      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE453
01062                                                                   DTSBE453
01063      SET MSKL-OPO-88 TO TRUE.                                     DTSBE453
01064                                                                   DTSBE453
01065      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE453
01066                                                                   DTSBE453
01067      PERFORM                                                      DTSBE453
01068        UNTIL L910-NO-REC-88                                       DTSBE453
01069          MOVE MSKL-REC TO MOPO-REC                                DTSBE453
01070          IF MOPO-MISSING-RPT-LTRS-YES-88                          DTSBE453
01071              PERFORM P3200-OPO-PROCESS THRU P3200-EXIT            DTSBE453
01072              MOVE MOPO-KEY-AREA TO MSKL-KEY-AREA                  DTSBE453
01073              PERFORM S910-READ THRU S910-EXIT                     DTSBE453
01074          END-IF                                                   DTSBE453
01075          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE453
01076      END-PERFORM.                                                 DTSBE453
01077                                                                   DTSBE453
01078                                                                   DTSBE453
01079      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE453
01080                                                                   DTSBE453
01081      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE453
01082                                                                   DTSBE453
01083      SET MSKL-TAA-88 TO TRUE.                                     DTSBE453
01084                                                                   DTSBE453
01085      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE453
01086                                                                   DTSBE453
01087      PERFORM                                                      DTSBE453
01088        UNTIL L910-NO-REC-88                                       DTSBE453
01089          MOVE MSKL-REC TO MTAA-REC                                DTSBE453
01090          IF MTAA-MISSING-RPT-LTRS-YES-88                          DTSBE453
01091              PERFORM P3300-TAA-PROCESS THRU P3300-EXIT            DTSBE453
01092              MOVE MTAA-KEY-AREA TO MSKL-KEY-AREA                  DTSBE453
01093              PERFORM S910-READ THRU S910-EXIT                     DTSBE453
01094          END-IF                                                   DTSBE453
01095          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE453
01096      END-PERFORM.                                                 DTSBE453
01097  P3000-EXIT.                                                      DTSBE453
01098      EXIT.                                                        DTSBE453
01099      SKIP3                                                        DTSBE453
01100  P3100-TAD-PROCESS.                                               DTSBE453
01101      MOVE MTAD-ID-NO TO L111-ID-NO.                               DTSBE453
01102                                                                   DTSBE453
01103      PERFORM S111-LOOKUP-TAD THRU S111-EXIT.                      DTSBE453
01104                                                                   DTSBE453
01105      IF L111-ADDR-NOT-FOUND-88                                    DTSBE453
01106          GO TO P3100-EXIT.                                        DTSBE453
01107                                                                   DTSBE453
01108                                                                   DTSBE453
01109      MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA.             DTSBE453
01110                                                                   DTSBE453
01111      PERFORM S112-FORMAT-TAD THRU S112-EXIT.                      DTSBE453
01112                                                                   DTSBE453
01113                                                                   DTSBE453
01114      MOVE L112-ZIP TO R453-SORT-ZIP.                              DTSBE453
01115                                                                   DTSBE453
01116      MOVE L112-MAILING-ADDRESS TO R453-FMT-ADDR.                  DTSBE453
01117                                                                   DTSBE453
01118      MOVE L112-ZIP TO R453-ZIP.                                   DTSBE453
01119                                                                   DTSBE453
01120      MOVE L112-ADVANCED-BARCODE TO R453-ADVANCED-BARCODE.         DTSBE453
01121                                                                   DTSBE453
01122                                                                   DTSBE453
01123      PERFORM S946-WRITE-R453 THRU S946-EXIT.                      DTSBE453
01124                                                                   DTSBE453
01125                                                                   DTSBE453
01126      MOVE 'MTAD' TO EVL-ADDR-TYPE.                                DTSBE453
01127                                                                   DTSBE453
01128      MOVE L111-ID-NO TO EVL-ADDR-ID-NO.                           DTSBE453
01129                                                                   DTSBE453
01130 *    MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR.                 DTSBE453
01131      MOVE WRK-SUBJECT-YEAR      TO EVL-YEAR.                      DTSBE453
01132                                                                   DTSBE453
01133      PERFORM S1000-WRITE-MEVL THRU S1000-EXIT.                    DTSBE453
01134  P3100-EXIT.                                                      DTSBE453
01135      EXIT.                                                        DTSBE453
01136      SKIP3                                                        DTSBE453
01137  P3200-OPO-PROCESS.                                               DTSBE453
01138      MOVE MOPO-ID-NO TO L111-ID-NO.                               DTSBE453
01139                                                                   DTSBE453
01140      PERFORM S111-LOOKUP-OPO THRU S111-EXIT.                      DTSBE453
01141                                                                   DTSBE453
01142      IF L111-ADDR-NOT-FOUND-88                                    DTSBE453
01143          GO TO P3200-EXIT.                                        DTSBE453
01144                                                                   DTSBE453
01145                                                                   DTSBE453
01146      MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA.             DTSBE453
01147                                                                   DTSBE453
01148      PERFORM S112-FORMAT-OPO THRU S112-EXIT.                      DTSBE453
01149                                                                   DTSBE453
01150                                                                   DTSBE453
01151      MOVE L112-ZIP TO R453-SORT-ZIP.                              DTSBE453
01152                                                                   DTSBE453
01153      MOVE L112-MAILING-ADDRESS TO R453-FMT-ADDR.                  DTSBE453
01154                                                                   DTSBE453
01155      MOVE L112-ZIP TO R453-ZIP.                                   DTSBE453
01156                                                                   DTSBE453
01157      MOVE L112-ADVANCED-BARCODE TO R453-ADVANCED-BARCODE.         DTSBE453
01158                                                                   DTSBE453
01159                                                                   DTSBE453
01160      PERFORM S946-WRITE-R453 THRU S946-EXIT.                      DTSBE453
01161                                                                   DTSBE453
01162                                                                   DTSBE453
01163      MOVE 'MOPO' TO EVL-ADDR-TYPE.                                DTSBE453
01164                                                                   DTSBE453
01165      MOVE L111-ID-NO TO EVL-ADDR-ID-NO.                           DTSBE453
01166                                                                   DTSBE453
01167 *    MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR.                 DTSBE453
01168      MOVE WRK-SUBJECT-YEAR      TO EVL-YEAR.                      DTSBE453
01169                                                                   DTSBE453
01170      PERFORM S1000-WRITE-MEVL THRU S1000-EXIT.                    DTSBE453
01171  P3200-EXIT.                                                      DTSBE453
01172      EXIT.                                                        DTSBE453
01173      SKIP3                                                        DTSBE453
01174  P3300-TAA-PROCESS.                                               DTSBE453
01175      MOVE MTAA-ID-NO TO L111-ID-NO.                               DTSBE453
01176                                                                   DTSBE453
01177      PERFORM S111-LOOKUP-TAA THRU S111-EXIT.                      DTSBE453
01178                                                                   DTSBE453
01179      IF L111-ADDR-NOT-FOUND-88                                    DTSBE453
01180          GO TO P3300-EXIT.                                        DTSBE453
01181                                                                   DTSBE453
01182                                                                   DTSBE453
01183      MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA.             DTSBE453
01184                                                                   DTSBE453
01185      PERFORM S112-FORMAT-TAA THRU S112-EXIT.                      DTSBE453
01186                                                                   DTSBE453
01187                                                                   DTSBE453
01188      MOVE L112-ZIP TO R453-SORT-ZIP.                              DTSBE453
01189                                                                   DTSBE453
01190      MOVE L112-MAILING-ADDRESS TO R453-FMT-ADDR.                  DTSBE453
01191                                                                   DTSBE453
01192      MOVE L112-ZIP TO R453-ZIP.                                   DTSBE453
01193                                                                   DTSBE453
01194      MOVE L112-ADVANCED-BARCODE TO R453-ADVANCED-BARCODE.         DTSBE453
01195                                                                   DTSBE453
01196                                                                   DTSBE453
01197      PERFORM S946-WRITE-R453 THRU S946-EXIT.                      DTSBE453
01198                                                                   DTSBE453
01199                                                                   DTSBE453
01200      MOVE 'MTAA' TO EVL-ADDR-TYPE.                                DTSBE453
01201                                                                   DTSBE453
01202      MOVE L111-ID-NO TO EVL-ADDR-ID-NO.                           DTSBE453
01203                                                                   DTSBE453
01204 *    MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR.                 DTSBE453
01205      MOVE WRK-SUBJECT-YEAR      TO EVL-YEAR.                      DTSBE453
01206                                                                   DTSBE453
01207      PERFORM S1000-WRITE-MEVL THRU S1000-EXIT.                    DTSBE453
01208  P3300-EXIT.                                                      DTSBE453
01209      EXIT.                                                        DTSBE453
01210      EJECT                                                        DTSBE453
01211  T0000-TERMINATE.                                                 DTSBE453
01212      MOVE WRK-NOTICE-CNT   TO WRK-CNT-DISP.                       DTSBE453
01213      DISPLAY SPACE.                                               DTSBE453
01214      DISPLAY '*******************************************'.       DTSBE453
01215      DISPLAY '**         DTSBE453 COUNTS               **'.       DTSBE453
01216      DISPLAY '**                                       **'.       DTSBE453
01217      DISPLAY '**    NOTICES SENT: ' WRK-CNT-DISP                  DTSBE453
01218              '            **'.                                    DTSBE453
01219      DISPLAY '**                                       **'.       DTSBE453
01220      MOVE WRK-QUARTERLY-FILER-CNT TO WRK-CNT-DISP.                DTSBE453
01221      DISPLAY '** NONE ANNUAL FILERS BYPASSED: ' WRK-CNT-DISP      DTSBE453
01222              '  **'.                                              DTSBE453
01223      DISPLAY '**                                       **'.       DTSBE453
01224      DISPLAY '*******************************************'.       DTSBE453
01225      IF WRK-PARM-NOTICE-YES-88                                    DTSBE453
01226          MOVE LOW-VALUES TO FAFD-KEY-AREA                         DTSBE453
01227          SET FAFD-AFD-88 TO TRUE                                  DTSBE453
01228          MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9                DTSBE453
01229          MOVE L004-QTR-5-YR        TO FAFD-YR                     DTSBE453
01230          MOVE FAFD-KEY-AREA TO FSKL-KEY-AREA                      DTSBE453
01231          PERFORM S931-READ THRU S931-EXIT                         DTSBE453
01232          IF L931-NO-REC-88                                        DTSBE453
01233              MOVE 'LOGIC ERROR T0000-1' TO ABEND-MSG              DTSBE453
01234              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE453
01235          ELSE                                                     DTSBE453
01236              MOVE FSKL-REC TO FAFD-REC                            DTSBE453
01237              MOVE WRK-UC30-FINAL-DEL-CUTOFF-DATE                  DTSBE453
01238                TO FAFD-UC30H-FINAL-DEL-DATE                       DTSBE453
01239              MOVE WRK-PARM-FINAL-ACTION-DATE                      DTSBE453
01240                TO FAFD-UC30H-FINAL-ACTION-DATE                    DTSBE453
01241              MOVE LECM-CURR-RUN-DATE TO FAFD-CHNG-DATE            DTSBE453
01242              MOVE FAFD-REC TO FSKL-REC                            DTSBE453
01243              PERFORM S931-REWRITE THRU S931-EXIT.                 DTSBE453
01244  T0000-EXIT.                                                      DTSBE453
01245      EXIT.                                                        DTSBE453
01246      EJECT                                                        DTSBE453
01247  S1000-WRITE-MEVL.                                                DTSBE453
01248      ADD +1000 TO LECM-EMP-ABSTIME.                               DTSBE453
01249                                                                   DTSBE453
01250      MOVE LECM-EMP-ABSTIME TO L005-ABSTIME.                       DTSBE453
01251                                                                   DTSBE453
01252      PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                    DTSBE453
01253                                                                   DTSBE453
01254                                                                   DTSBE453
01255      MOVE LOW-VALUES TO MEVL-REC.                                 DTSBE453
01256                                                                   DTSBE453
01257      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBE453
01258                                                                   DTSBE453
01259      SET MEVL-EVL-88 TO TRUE.                                     DTSBE453
01260                                                                   DTSBE453
01261      MOVE L005-DATE TO MEVL-DATE.                                 DTSBE453
01262                                                                   DTSBE453
01263      MOVE L005-TIME TO MEVL-TIME.                                 DTSBE453
01264                                                                   DTSBE453
01265                                                                   DTSBE453
01266      MOVE ZEROS TO MEVL-PURGE-DATE.                               DTSBE453
01267                                                                   DTSBE453
01268                                                                   DTSBE453
01269      MOVE EVL-TEXT TO MEVL-TEXT.                                  DTSBE453
01270                                                                   DTSBE453
01271      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBE453
01272                                                                   DTSBE453
01273      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBE453
01274                                                                   DTSBE453
01275      MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE                    DTSBE453
01276                                 MEVL-CHNG-DATE.                   DTSBE453
01277                                                                   DTSBE453
01278                                                                   DTSBE453
01279      MOVE MEVL-REC TO MSKL-REC.                                   DTSBE453
01280                                                                   DTSBE453
01281      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBE453
01282  S1000-EXIT.                                                      DTSBE453
01283      EXIT.                                                        DTSBE453
01284      EJECT                                                        DTSBE453
01285  S001-FROM-FED-8.                                                 DTSBE453
01286      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE453
01287      GO TO S001-DATE.                                             DTSBE453
01288                                                                   DTSBE453
01289  S001-FROM-CAL-6.                                                 DTSBE453
01290      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE453
01291      GO TO S001-DATE.                                             DTSBE453
01292                                                                   DTSBE453
01293  S001-FROM-ABS-DAY.                                               DTSBE453
01294      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE453
01295      GO TO S001-DATE.                                             DTSBE453
01296                                                                   DTSBE453
01297  S001-DATE.                                                       DTSBE453
01298      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE453
01299  S001-EXIT.                                                       DTSBE453
01300      EXIT.                                                        DTSBE453
01301      SKIP3                                                        DTSBE453
01302  S004-FROM-5.                                                     DTSBE453
01303      SET L004-FROM-5 TO TRUE.                                     DTSBE453
01304      GO TO S004-QTR.                                              DTSBE453
01305                                                                   DTSBE453
01306  S004-FROM-3.                                                     DTSBE453
01307      SET L004-FROM-3 TO TRUE.                                     DTSBE453
01308      GO TO S004-QTR.                                              DTSBE453
01309                                                                   DTSBE453
01310  S004-QTR.                                                        DTSBE453
01311      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE453
01312  S004-EXIT.                                                       DTSBE453
01313      EXIT.                                                        DTSBE453
01314      SKIP3                                                        DTSBE453
01315  S005-FROM-ABSTIME.                                               DTSBE453
01316      SET L005-FROM-ABSTIME TO TRUE.                               DTSBE453
01317      GO TO S005-ABSTIME.                                          DTSBE453
01318                                                                   DTSBE453
01319  S005-ABSTIME.                                                    DTSBE453
01320      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBE453
01321  S005-EXIT.                                                       DTSBE453
01322      EXIT.                                                        DTSBE453
01323      SKIP3                                                        DTSBE453
01324  S061-DETERMINE-FLD-REP.                                          DTSBE453
01325      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBE453
01326                                                                   DTSBE453
01327      MOVE MPRF-EMP-NO TO L061-EMP-NO.                             DTSBE453
01328                                                                   DTSBE453
01329      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBE453
01330  S061-EXIT.                                                       DTSBE453
01331      EXIT.                                                        DTSBE453
01332      SKIP3                                                        DTSBE453
01333  S101-PER-MONTH-NO.                                               DTSBE453
01334      SET L101-PER-MONTH-NO-88 TO TRUE.                            DTSBE453
01335      GO TO S101-INT-COMP.                                         DTSBE453
01336                                                                   DTSBE453
01337  S101-INT-COMP.                                                   DTSBE453
01338      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSBE453
01339  S101-EXIT.                                                       DTSBE453
01340      EXIT.                                                        DTSBE453
01341      SKIP3                                                        DTSBE453
01342  S109-LOOKUP-SUR-RATE.                                            DTSBE453
01343      MOVE MPRF-EMP-CLASS TO L109-EMP-CLASS.                       DTSBE453
01344                                                                   DTSBE453
01345      MOVE MQTR-YRQ TO L109-YRQ.                                   DTSBE453
01346                                                                   DTSBE453
01347      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBE453
01348  S109-EXIT.                                                       DTSBE453
01349      EXIT.                                                        DTSBE453
01350      SKIP3                                                        DTSBE453
01351  S111-LOOKUP-TAD.                                                 DTSBE453
01352      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBE453
01353      GO TO S111-LOOKUP-ADDR.                                      DTSBE453
01354                                                                   DTSBE453
01355  S111-LOOKUP-TAA.                                                 DTSBE453
01356      SET L111-LOOKUP-TAA-88 TO TRUE.                              DTSBE453
01357      GO TO S111-LOOKUP-ADDR.                                      DTSBE453
01358                                                                   DTSBE453
01359  S111-LOOKUP-OPO.                                                 DTSBE453
01360      SET L111-LOOKUP-OPO-88 TO TRUE.                              DTSBE453
01361      GO TO S111-LOOKUP-ADDR.                                      DTSBE453
01362                                                                   DTSBE453
01363  S111-LOOKUP-ADDR.                                                DTSBE453
01364      MOVE MPRF-EMP-NO TO L111-EMP-NO.                             DTSBE453
01365                                                                   DTSBE453
01366      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBE453
01367  S111-EXIT.                                                       DTSBE453
01368      EXIT.                                                        DTSBE453
01369      SKIP3                                                        DTSBE453
01370  S112-FORMAT-TAD.                                                 DTSBE453
01371      SET L112-TAD-ADDR-88 TO TRUE.                                DTSBE453
01372      GO TO S112-FORMAT-ADDR.                                      DTSBE453
01373                                                                   DTSBE453
01374  S112-FORMAT-TAA.                                                 DTSBE453
01375      SET L112-TAA-ADDR-88 TO TRUE.                                DTSBE453
01376      GO TO S112-FORMAT-ADDR.                                      DTSBE453
01377                                                                   DTSBE453
01378  S112-FORMAT-OPO.                                                 DTSBE453
01379      SET L112-OPO-ADDR-88 TO TRUE.                                DTSBE453
01380      GO TO S112-FORMAT-ADDR.                                      DTSBE453
01381                                                                   DTSBE453
01382  S112-FORMAT-ADDR.                                                DTSBE453
01383      SET L112-ANCHOR-LAST-88 TO TRUE.                             DTSBE453
01384                                                                   DTSBE453
01385      MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME.                 DTSBE453
01386                                                                   DTSBE453
01387      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBE453
01388  S112-EXIT.                                                       DTSBE453
01389      EXIT.                                                        DTSBE453
01390      SKIP3                                                        DTSBE453
01391  S410-FILE-SCHED.                                                 DTSBE453
01392      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBE453
01393  S410-EXIT.                                                       DTSBE453
01394      EXIT.                                                        DTSBE453
01395      SKIP3                                                        DTSBE453
01396  S415-HOUSEHOLD-DATES.                                            DTSBE453
01397      CALL 'DTSBU415' USING L415-LINK-AREA.                        DTSBE453
01398  S415-EXIT.                                                       DTSBE453
01399      EXIT.                                                        DTSBE453
01400      SKIP3                                                        DTSBE453
01401  S910-READ.                                                       DTSBE453
01402      SET L910-READ-88 TO TRUE.                                    DTSBE453
01403      GO TO S910-MSTR-IO.                                          DTSBE453
01404                                                                   DTSBE453
01405  S910-START-BROWSE.                                               DTSBE453
01406      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE453
01407      GO TO S910-MSTR-IO.                                          DTSBE453
01408                                                                   DTSBE453
01409  S910-READ-NEXT.                                                  DTSBE453
01410      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE453
01411      GO TO S910-MSTR-IO.                                          DTSBE453
01412                                                                   DTSBE453
01413 *S910-COUNT.                                                      DTSBE453
01414 *****SET L910-COUNT-88 TO TRUE.                                   DTSBE453
01415 *****GO TO S910-MSTR-IO.                                          DTSBE453
01416                                                                   DTSBE453
01417  S910-WRITE.                                                      DTSBE453
01418      SET L910-WRITE-88 TO TRUE.                                   DTSBE453
01419      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE453
01420      GO TO S910-MSTR-IO.                                          DTSBE453
01421                                                                   DTSBE453
01422 *S910-REWRITE.                                                    DTSBE453
01423 *****SET L910-REWRITE-88 TO TRUE.                                 DTSBE453
01424 *****SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE453
01425 *****GO TO S910-MSTR-IO.                                          DTSBE453
01426                                                                   DTSBE453
01427 *S910-DELETE.                                                     DTSBE453
01428 *****SET L910-DELETE-88 TO TRUE.                                  DTSBE453
01429 *****SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE453
01430 *****GO TO S910-MSTR-IO.                                          DTSBE453
01431                                                                   DTSBE453
01432  S910-MSTR-IO.                                                    DTSBE453
01433      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE453
01434                            MSKL-REC.                              DTSBE453
01435  S910-EXIT.                                                       DTSBE453
01436      EXIT.                                                        DTSBE453
01437      SKIP3                                                        DTSBE453
01438  S931-READ.                                                       DTSBE453
01439      SET L931-READ-88 TO TRUE.                                    DTSBE453
01440      GO TO S931-REF-I.                                            DTSBE453
01441                                                                   DTSBE453
01442 *S931-START-BROWSE.                                               DTSBE453
01443 *****SET L931-START-BROWSE-88 TO TRUE.                            DTSBE453
01444 *****GO TO S931-REF-I.                                            DTSBE453
01445                                                                   DTSBE453
01446 *S931-READ-NEXT.                                                  DTSBE453
01447 *****SET L931-READ-NEXT-88 TO TRUE.                               DTSBE453
01448 *****GO TO S931-REF-I.                                            DTSBE453
01449                                                                   DTSBE453
01450 *S931-WRITE.                                                      DTSBE453
01451 *****SET L931-WRITE-88 TO TRUE.                                   DTSBE453
01452 *****GO TO S931-REF-I.                                            DTSBE453
01453                                                                   DTSBE453
01454  S931-REWRITE.                                                    DTSBE453
01455      SET L931-REWRITE-88 TO TRUE.                                 DTSBE453
01456      GO TO S931-REF-I.                                            DTSBE453
01457                                                                   DTSBE453
01458 *S931-DELETE.                                                     DTSBE453
01459 *****SET L931-DELETE-88 TO TRUE.                                  DTSBE453
01460 *****GO TO S931-REF-I.                                            DTSBE453
01461                                                                   DTSBE453
01462  S931-REF-I.                                                      DTSBE453
01463      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBE453
01464                            FSKL-REC.                              DTSBE453
01465  S931-EXIT.                                                       DTSBE453
01466      EXIT.                                                        DTSBE453
01467      SKIP3                                                        DTSBE453
01468  S946-WRITE-R453.                                                 DTSBE453
01469      CALL 'DTSBU946' USING R453-REC.                              DTSBE453
01470      GO TO S946-EXIT.                                             DTSBE453
01471                                                                   DTSBE453
01472  S946-WRITE-R454.                                                 DTSBE453
01473      CALL 'DTSBU946' USING R454-REC.                              DTSBE453
01474      GO TO S946-EXIT.                                             DTSBE453
01475                                                                   DTSBE453
01476  S946-WRITE-R907.                                                 DTSBE453
01477      CALL 'DTSBU946' USING R907-REC.                              DTSBE453
01478      GO TO S946-EXIT.                                             DTSBE453
01479                                                                   DTSBE453
01480  S946-EXIT.                                                       DTSBE453
01481      EXIT.                                                        DTSBE453
01482      SKIP3                                                        DTSBE453
01483  S999-ABEND.                                                      DTSBE453
01484      DISPLAY '*** DTSBE453 ABENDING.  '                           DTSBE453
01485              ABEND-MSG.                                           DTSBE453
01486                                                                   DTSBE453
01487      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE453
01488  S999-EXIT.                                                       DTSBE453
01489      EXIT.                                                        DTSBE453
