00001  IDENTIFICATION DIVISION.                                         02/27/13
00002  PROGRAM-ID.             DTSBE461.                                DTSBE461
00003  AUTHOR.                 NGI.                                        LV002
00004  DATE-WRITTEN.           JAN 2010.                                DTSBE461
00005  DATE-COMPILED.                                                   DTSBE461
00006      SKIP3                                                        DTSBE461
00007 ***************************************************************      CL**2
00008 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1      CL**2
00009 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1      CL**2
00010 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1      CL**2
00011 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1      CL**2
00012 ************<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>2/27/13 ZL1      CL**2
00013 ***************************************************************      CL**2
00014 *    FUNCTION:  NOTICE OF INTENT TO ESTIMATE LETTER GENERATION.   DTSBE461
00015 *                                                                 DTSBE461
00016 *                                                                 DTSBE461
00017 *    MODIFICATION LOG:                                            DTSBE461
00018 *                                                                 DTSBE461
00019 *    05/15/95  HAVING AN OPEN BANKRUPTCY NO LONGER EXCLUDES THE   DTSBE461
00020 *              EMPLOYER.                                          DTSBE461
00021 *              WORK ORDER: CR086                PROGRAMMER: RHC   DTSBE461
00022 *                                                                 DTSBE461
00023 *    03/17/1999  REVIEWED AND MODIFIED FOR DC.  DTSBE412          DTSBE461
00024 *                EXTENSIVELY MODIFIED FOR DC.  IN MT, THE SYSTEM  DTSBE461
00025 *                SIMPLY LISTS CANDIDATES FOR ESTIMATED REPORTS.   DTSBE461
00026 *                IN DC, THE SYSTEM NOT ONLY IDENTIFIES CANDIDATES DTSBE461
00027 *                FOR ESTIMATED REPORTS, BUT, IN SELECTED          DTSBE461
00028 *                CIRCUMSTANCES, GENERATES AND ESTIMATED REPORT    DTSBE461
00029 *                AND PARKS THE ESTIMATED REPORT IN A HELD BATCH   DTSBE461
00030 *                ON THE ACCOUNTING TRANSACTION COLLECTION FILE.   DTSBE461
00031 *                WORK ORDER: DC DEVELOPMENT     PROGRAMMER: EHH   DTSBE461
00032 *                                                                 DTSBE461
00033 *    04/28/1999  IF QUARTER IS UNDER APPEAL, DO NOT GENERATE AN   DTSBE461
00034 *                ESTIMATED REPORT.  FROM SECTION 4.8.5 OF DC      DTSBE461
00035 *                REQUIREMENTS.  OVERLOOKED DURING INITIAL         DTSBE461
00036 *                DEVELOPMENT.                                     DTSBE461
00037 *                WORK ORDER: DC DEVELOPMENT     PROGRAMMER: EHH   DTSBE461
00038 *                                                                 DTSBE461
00039 *    05/24/1999  PICKUP MODIFICATION.  START OF ESTIMATE PERIOD   DTSBE461
00040 *                MUST BE GREATER THAN LECM-PICKUP-YRQ.            DTSBE461
00041 *                WORK ORDER: PICKUP DIR         PROGRAMMER: EHH   DTSBE461
00042 *                                                                 DTSBE461
00043 *    03/09/2004  MODIFIED TO ADD ASSESSMENT ONLY IF THERE IS NO   DTSBE461
00044 *                MORE THAN ONE ESTIMATED REPORT ALREADY ON FILE.  DTSBE461
00045 *                WORK ORDER: REQUEST FROM TAX   PROGRAMMER: GD    DTSBE461
00046 *                                                                 DTSBE461
00047 *    04/14/2004  MODIFIED P2000 TO INITIALIZE TRACE NUMBER,       DTSBE461
00048 *                PSEUDO BATCH NBR AND PSEUDO ITEM NBR.            DTSBE461
00049 *                WORK ORDER: EFT                PROGRAMMER: GD    DTSBE461
00050 *                                                                 DTSBE461
00051 *    06/21/2004  MODIFIED P0000 NOT TO GENERATE MORE THAN ONE     DTSBE461
00052 *                ESTIMATE REPORTS.  IF WRK-ESTIM-CNT > +0         DTSBE461
00053 *                SET WRK-GENERATE-ESTIMATE-NO-88 TO TRUE          DTSBE461
00054 *                WORK ORDER: DC MAINT           PROGRAMMER: ZL1   DTSBE461
00055 *                                                                 DTSBE461
00056 *    06/30/2004  MODIFIED NOT TO INCLUDE ANNUAL FILERS. ANNUAL    DTSBE461
00057 *                FILERS ESTIMATE REPORTS ARE PRODUCED BY BE455    DTSBE461
00058 *                WORK ORDER: DC MAINT           PROGRAMMER: ZL1   DTSBE461
00059 *                                                                 DTSBE461
00060 *    10/08/2005  MODIFIED P2000 TO INITIALIZE STATUS CHANGE       DTSBE461
00061 *                FIELD IN ARPT RECORD.                            DTSBE461
00062 *                WORK ORDER:                    PROGRAMMER: GD    DTSBE461
00063 *                                                                 DTSBE461
00064 *    03/27/2007  ADDED CODE TO INITIALIZE BANK BATCH NUMBER       DTSBE461
00065 *                IN S1000-INITIATE-AHDR.                          DTSBE461
00066 *                WORK ORDER:                    PROGRAMMER: GD    DTSBE461
00067 *                                                                 DTSBE461
00068 *    12/04/2009  COPIED FROM DTSBE412 ESTIMATED REPORTS PGM.      DTSBE461
00069 *                PROGRAM WILL NOW PRODUCE A LETTER OF INTENT      DTSBE461
00070 *                TO ESTIMATE AND NOT UPDATE DUTAS TRANSACTIONS.   DTSBE461
00071 *                WORK ORDER:                    PROGRAMMER: ZL1   DTSBE461
00072 *                                                                 DTSBE461
00073 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE461
00074 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE461
00075 *                WORK ORDER: XXXXXXXXXXXXXXX    PROGRAMMER: XXX   DTSBE461
00076 *                                                                 DTSBE461
00077 *                                                                 DTSBE461
00078 *  DESCRIPTION:                                                   DTSBE461
00079 *                                                                 DTSBE461
00080 *                                                                 DTSBE461
00081 *    INITIATION:                                                  DTSBE461
00082 *                                                                 DTSBE461
00083 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE461
00084 *                                                                 DTSBE461
00085 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE461
00086 *                                                                 DTSBE461
00087 *      CHECK AND DEFAULT PARAMETERS.                              DTSBE461
00088 *                                                                 DTSBE461
00089 *                                                                 DTSBE461
00090 *    PROCESSING:                                                  DTSBE461
00091 *                                                                 DTSBE461
00092 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (461R1).       DTSBE461
00093 *                                                                 DTSBE461
00094 *                                                                 DTSBE461
00095 *    TERMINATION:                                                 DTSBE461
00096 *                                                                 DTSBE461
00097 *      WRITE BATCH HEADER RECORD.                                 DTSBE461
00098 *                                                                 DTSBE461
00099 *                                                                 DTSBE461
00100 *    RECORDS READ:                                                DTSBE461
00101 *                                                                 DTSBE461
00102 *      MASTER:                                                    DTSBE461
00103 *                                                                 DTSBE461
00104 *        MQTR                                                     DTSBE461
00105 *                                                                 DTSBE461
00106 *                                                                 DTSBE461
00107 *      ALTERNATE INDEX:                                           DTSBE461
00108 *                                                                 DTSBE461
00109 *        NONE.                                                    DTSBE461
00110 *                                                                 DTSBE461
00111 *                                                                 DTSBE461
00112 *      REFERENCE:                                                 DTSBE461
00113 *                                                                 DTSBE461
00114 *        FQTR.                                                    DTSBE461
00115 *                                                                 DTSBE461
00116 *                                                                 DTSBE461
00117 *      REFERENCE:                                                 DTSBE461
00118 *                                                                 DTSBE461
00119 *        FQTR.                                                    DTSBE461
00120 *                                                                 DTSBE461
00121 *                                                                 DTSBE461
00122 *    RECORDS UPDATED:                                             DTSBE461
00123 *                                                                 DTSBE461
00124 *                                                                 DTSBE461
00125 *                                                                 DTSBE461
00126 *    REPORT RECORDS WRITTEN:                                      DTSBE461
00127 *                                                                 DTSBE461
00128 *        R461R1  ESTIMATED REPORTS CANDIDATE LIST.                DTSBE461
00129 *        R461R2  NON ESTIMATED REPORTS CANDIDATE LIST.            DTSBE461
00130 *        R461R3  NOTICE OF INTENT TO ESTIMATE REPORT.             DTSBE461
00131 *                                                                 DTSBE461
00132 *                                                                 DTSBE461
00133 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE461
00134 *                                                                 DTSBE461
00135 *        NONE.                                                    DTSBE461
00136 *                                                                 DTSBE461
00137 *                                                                 DTSBE461
00138 *    MODULES CALLED:                                              DTSBE461
00139 *                                                                 DTSBE461
00140 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE461
00141 *        DTSBU910  MASTER FILE I/O.                               DTSBE461
00142 *        DTSBU923  ACCOUNTING TRANSACTION COLLECTION FILE I/O.    DTSBE461
00143 *        DTSBU931  REFERENCE FILE I/O.                            DTSBE461
00144 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE461
00145 *                                                                 DTSBE461
00146 *****                                                             DTSBE461
00147      SKIP3                                                        DTSBE461
00148  ENVIRONMENT DIVISION.                                            DTSBE461
00149      SKIP3                                                        DTSBE461
00150  DATA DIVISION.                                                   DTSBE461
00151      SKIP3                                                        DTSBE461
00152  WORKING-STORAGE SECTION.                                         DTSBE461
001525 77  PAN-VALET PICTURE X(24) VALUE '002DTSBE461  02/27/13'.       DTSBE461
00153      SKIP3                                                        DTSBE461
00154  01  WRK-AREA.                                                    DTSBE461
00155      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +461.DTSBE461
00156                                                                   DTSBE461
00157      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE461'.DTSBE461
00158                                                                   DTSBE461
00159                                                                   DTSBE461
00160      05  ABEND-MSG                       PIC  X(60).              DTSBE461
00161                                                                   DTSBE461
00162                                                                   DTSBE461
00163      05  FIRST-TIME-IND                  PIC  X(01)  VALUE 'Y'.   DTSBE461
00164      05  WRK-ANNUAL-FILER-CNT            PIC S9(07)        COMP-3 DTSBE461
00165                                              VALUE +0.            DTSBE461
00166      05  WRK-RETURN-MAIL-CNT             PIC  9(05) VALUE 0.      DTSBE461
00167      05  WRK-SELF-INS-CNT                PIC  9(05) VALUE 0.      DTSBE461
00168      05  WRK-ESTIMATED-NO                PIC  9(05) VALUE 0.      DTSBE461
00169      05  WRK-ESTIMATED-YES               PIC  9(05) VALUE 0.      DTSBE461
00170      05  WRK-NOTICE-CNT                  PIC S9(07)        COMP-3 DTSBE461
00171                                              VALUE +0.            DTSBE461
00172      05  WRK-CNT-DISP                    PIC Z(06)9.              DTSBE461
00173                                                                   DTSBE461
00174      05  WRK-PARM-SUBJECT-YRQ            PIC S9(05)  COMP-3.      DTSBE461
00175      05  WRK-EST-BASIS-START-YRQ         PIC S9(05)  COMP-3.      DTSBE461
00176      05  WRK-EST-BASIS-END-YRQ           PIC S9(05)  COMP-3.      DTSBE461
00177                                                                   DTSBE461
00178       05  WRK-PARM-NOTICE-IND             PIC  X(01).             DTSBE461
00179           88  WRK-PARM-NOTICE-YES-88            VALUE 'Y'.        DTSBE461
00180           88  WRK-PARM-NOTICE-NO-88             VALUE 'N'.        DTSBE461
00181                                                                   DTSBE461
00182                                                                   DTSBE461
00183      05  WRK-GENERATE-ESTIMATE-IND       PIC  X(01).              DTSBE461
00184          88  WRK-GENERATE-ESTIMATE-NO-88         VALUE 'N'.       DTSBE461
00185          88  WRK-GENERATE-ESTIMATE-YES-88        VALUE 'Y'.       DTSBE461
00186                                                                   DTSBE461
00187                                                                   DTSBE461
00188      05  WRK-EST-TAX-WAGE                PIC S9(11)V9(02)  COMP-3.DTSBE461
00189                                                                   DTSBE461
00190      05  WRK-EST-TOT-WAGE                PIC S9(11)V9(02)  COMP-3.DTSBE461
00191                                                                   DTSBE461
00192      05  WRK-ESTIM-CNT                   PIC S9(05)        COMP-3 DTSBE461
00193                                            VALUE +0.              DTSBE461
00194                                                                   DTSBE461
00195      05  WRK-SUBJECT-SLASH-QTR           PIC  X(04).              DTSBE461
00196      05  WRK-OPEN-APPEAL-IND             PIC  X(01).              DTSBE461
00197          88  WRK-OPEN-APPEAL-NO-88               VALUE 'N'.       DTSBE461
00198          88  WRK-OPEN-APPEAL-YES-88              VALUE 'Y'.       DTSBE461
00199      05  EVL-TEXT.                                                DTSBE461
00200          10  FILLER                      PIC  X(29)               DTSBE461
00201                VALUE 'LTR OF INTENT 2 ESTIMATE FOR '.             DTSBE461
00202          10  EVL-SLASH-QTR               PIC  X(04).              DTSBE461
00203          10  FILLER                      PIC  X(09)               DTSBE461
00204                VALUE ' SENT TO '.                                 DTSBE461
00205          10  EVL-ADDR-TYPE               PIC  X(04).              DTSBE461
00206          10  FILLER                      PIC  X(01) VALUE SPACES. DTSBE461
00207          10  EVL-ADDR-ID-NO              PIC  ZZ9.                DTSBE461
00208      SKIP3                                                        DTSBE461
00209                                                                   DTSBE461
00210                                                                   DTSBE461
00211  01  L001-LINK-AREA.                                              DTSBE461
00212  ++INCLUDE DTSIL001                                               DTSBE461
00213      EJECT                                                        DTSBE461
00214  01  L004-LINK-AREA.                                              DTSBE461
00215  ++INCLUDE DTSIL004                                               DTSBE461
00216      EJECT                                                        DTSBE461
00217  01  L005-LINK-AREA.                                              DTSBE461
00218  ++INCLUDE DTSIL005                                               DTSBE461
00219      EJECT                                                        DTSBE461
00220  01  L061-LINK-AREA.                                              DTSBE461
00221  ++INCLUDE DTSIL061                                               DTSBE461
00222      EJECT                                                        DTSBE461
00223  01  L410-LINK-AREA.                                              DTSBE461
00224  ++INCLUDE DTSIL410                                               DTSBE461
00225      SKIP3                                                        DTSBE461
00226  01  L621-LINK-AREA.                                              DTSBE461
00227  ++INCLUDE DTSIL621                                               DTSBE461
00228      SKIP3                                                        DTSBE461
00229  01  L910-LINK-AREA.                                              DTSBE461
00230  ++INCLUDE DTSIL910                                               DTSBE461
00231      SKIP3                                                        DTSBE461
00232  01  MSKL-REC.                                                    DTSBE461
00233  ++INCLUDE DTSIMSKL                                               DTSBE461
00234      SKIP3                                                        DTSBE461
00235      SKIP3                                                        DTSBE461
00236  01  MQTR-REC.                                                    DTSBE461
00237  ++INCLUDE DTSIMQTR                                               DTSBE461
00238      SKIP3                                                        DTSBE461
00239  01  MAPL-REC.                                                    DTSBE461
00240  ++INCLUDE DTSIMAPL                                               DTSBE461
00241      EJECT                                                        DTSBE461
00242  01  L923-LINK-AREA.                                              DTSBE461
00243  ++INCLUDE DTSIL923                                               DTSBE461
00244      SKIP3                                                        DTSBE461
00245  01  ASKL-REC.                                                    DTSBE461
00246  ++INCLUDE DTSIASKL                                               DTSBE461
00247      SKIP3                                                        DTSBE461
00248  01  L931-LINK-AREA.                                              DTSBE461
00249  ++INCLUDE DTSIL931                                               DTSBE461
00250      SKIP3                                                        DTSBE461
00251  01  FSKL-REC.                                                    DTSBE461
00252  ++INCLUDE DTSIFSKL                                               DTSBE461
00253      SKIP3                                                        DTSBE461
00254  01  FQTR-REC.                                                    DTSBE461
00255  ++INCLUDE DTSIFQTR                                               DTSBE461
00256      EJECT                                                        DTSBE461
00257  01  MEVL-REC.                                                    DTSBE461
00258  ++INCLUDE DTSIMEVL                                               DTSBE461
00259      EJECT                                                        DTSBE461
00260  01  R461-REC.                                                    DTSBE461
00261  ++INCLUDE DTSIR461                                               DTSBE461
00262      EJECT                                                        DTSBE461
00263  LINKAGE SECTION.                                                 DTSBE461
00264      SKIP3                                                        DTSBE461
00265  01  LECM-LINK-AREA.                                              DTSBE461
00266  ++INCLUDE DTSILECM                                               DTSBE461
00267      SKIP3                                                        DTSBE461
00268          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE461
00269              15  LECM-PARM-NOTICE-IND           PIC  X(01).       DTSBE461
00270              15  FILLER                         PIC  X(01).       DTSBE461
00271              15  LECM-PARM-SUBJECT-YRQ          PIC  X(03).       DTSBE461
00272              15  FILLER                         PIC  X(65).       DTSBE461
00273      EJECT                                                        DTSBE461
00274  01  MPRF-LINK-REC.                                               DTSBE461
00275  ++INCLUDE DTSIMPRF                                               DTSBE461
00276      EJECT                                                        DTSBE461
00277  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE461
00278                           MPRF-LINK-REC.                          DTSBE461
00279                                                                   DTSBE461
00280                                                                   DTSBE461
00281      IF LECM-PROCESS-88                                           DTSBE461
00282          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE461
00283      ELSE                                                         DTSBE461
00284      IF LECM-INITIALIZE-88                                        DTSBE461
00285          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE461
00286      ELSE                                                         DTSBE461
00287      IF LECM-TERMINATE-88                                         DTSBE461
00288          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE461
00289      ELSE                                                         DTSBE461
00290          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE461
00291            TO ABEND-MSG                                           DTSBE461
00292          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE461
00293                                                                   DTSBE461
00294                                                                   DTSBE461
00295      GOBACK.                                                      DTSBE461
00296      EJECT                                                        DTSBE461
00297  I0000-INITIALIZE.                                                DTSBE461
00298      MOVE LECM-TRACE-IND TO L910-TRACE-IND                        DTSBE461
00299                             L923-TRACE-IND                        DTSBE461
00300                             L931-TRACE-IND.                       DTSBE461
00301                                                                   DTSBE461
00302      MOVE WRK-MOD-NAME TO L910-MOD-NAME                           DTSBE461
00303                           L923-MOD-NAME                           DTSBE461
00304                           L931-MOD-NAME.                          DTSBE461
00305                                                                   DTSBE461
00306                                                                   DTSBE461
00307      MOVE LENGTH OF R461-REC TO R461-LENGTH.                      DTSBE461
00308                                                                   DTSBE461
00309      MOVE '461' TO R461-REC-TYPE.                                 DTSBE461
00310                                                                   DTSBE461
00311                                                                   DTSBE461
00312      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE461
00313                                                                   DTSBE461
00314       IF WRK-PARM-NOTICE-YES-88                                   DTSBE461
00315           SET LECM-MST-OPEN-UPDATE-88 TO TRUE                     DTSBE461
00316           SET LECM-REF-OPEN-UPDATE-88 TO TRUE                     DTSBE461
00317       ELSE                                                        DTSBE461
00318           SET LECM-MST-OPEN-READ-88 TO TRUE                       DTSBE461
00319           SET LECM-REF-OPEN-READ-88 TO TRUE.                      DTSBE461
00320                                                                   DTSBE461
00321  I0000-EXIT.                                                      DTSBE461
00322      EXIT.                                                        DTSBE461
00323      SKIP3                                                        DTSBE461
00324  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE461
00325        PERFORM I1100-NOTICE-IND THRU I1100-EXIT.                  DTSBE461
00326      IF LECM-PARM-SUBJECT-YRQ = SPACES                            DTSBE461
00327          MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO WRK-PARM-SUBJECT-YRQ DTSBE461
00328      ELSE                                                         DTSBE461
00329          MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3                 DTSBE461
00330          PERFORM S004-FROM-3 THRU S004-EXIT                       DTSBE461
00331          IF L004-INVALID-QTR                                      DTSBE461
00332              MOVE 'INVALID LECM-PARM-SUBJECT-YRQ ENCOUNTERED'     DTSBE461
00333                TO ABEND-MSG                                       DTSBE461
00334              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE461
00335          ELSE                                                     DTSBE461
00336              MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ            DTSBE461
00337              IF WRK-PARM-SUBJECT-YRQ > LECM-LAST-UC30-DEL-MAIL-YRQDTSBE461
00338                  MOVE                                             DTSBE461
00339       'LECM-PARM-SUBJECT-YRQ > LECM-LAST-UC30-DEL-MAIL-YRQ FOUND' DTSBE461
00340                    TO ABEND-MSG                                   DTSBE461
00341                  PERFORM S999-ABEND THRU S999-EXIT.               DTSBE461
00342                                                                   DTSBE461
00343                                                                   DTSBE461
00344      MOVE LOW-VALUES TO FQTR-KEY-AREA.                            DTSBE461
00345                                                                   DTSBE461
00346      SET FQTR-QTR-88 TO TRUE.                                     DTSBE461
00347                                                                   DTSBE461
00348      MOVE WRK-PARM-SUBJECT-YRQ TO FQTR-YRQ.                       DTSBE461
00349                                                                   DTSBE461
00350      MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA.                         DTSBE461
00351                                                                   DTSBE461
00352      PERFORM S931-READ THRU S931-EXIT.                            DTSBE461
00353                                                                   DTSBE461
00354      IF L931-NO-REC-88                                            DTSBE461
00355          MOVE 'UNKOWN FQTR-UC30-2ND-DELQ-DATE ENCOUNTERED'        DTSBE461
00356            TO ABEND-MSG                                           DTSBE461
00357          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE461
00358                                                                   DTSBE461
00359      MOVE FSKL-REC TO FQTR-REC.                                   DTSBE461
00360                                                                   DTSBE461
00361                                                                   DTSBE461
00362      IF FQTR-UC30-FINAL-DEL-DATE = +0                             DTSBE461
00363           MOVE 'FINAL DELINQUENCY NOT COMPLETED'                  DTSBE461
00364             TO ABEND-MSG                                          DTSBE461
00365           PERFORM S999-ABEND THRU S999-EXIT.                      DTSBE461
00366                                                                   DTSBE461
00367                                                                   DTSBE461
00368      MOVE FQTR-UC30-FINAL-DEL-DATE TO L001-FED-8-DATE-9.          DTSBE461
00369                                                                   DTSBE461
00370      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBE461
00371                                                                   DTSBE461
00372      ADD +30 TO L001-JUL-ABS-DAY.                                 DTSBE461
00373                                                                   DTSBE461
00374      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBE461
00375                                                                   DTSBE461
00376      IF L001-FED-8-DATE-9 < LECM-CURR-RUN-DATE                    DTSBE461
00377          NEXT SENTENCE                                            DTSBE461
00378      ELSE                                                         DTSBE461
00379          MOVE '30 DAYS HAVE NOT ELAPSED SINCE DELINQUENT NOTICE'  DTSBE461
00380            TO ABEND-MSG                                           DTSBE461
00381          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE461
00382                                                                   DTSBE461
00383                                                                   DTSBE461
00384       IF FQTR-INTENT-2-ESTIMATE-DATE > ZEROS                      DTSBE461
00385          MOVE 'JOB ALREADY RAN - CANNOT RERUN'                    DTSBE461
00386            TO ABEND-MSG                                           DTSBE461
00387          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE461
00388                                                                   DTSBE461
00389      MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9.                   DTSBE461
00390                                                                   DTSBE461
00391      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE461
00392                                                                   DTSBE461
00393      MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR.                DTSBE461
00394                                                                   DTSBE461
00395      SUBTRACT 1 FROM L004-ABS-QTR.                                DTSBE461
00396                                                                   DTSBE461
00397      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE461
00398                                                                   DTSBE461
00399      MOVE L004-QTR-5-9 TO WRK-EST-BASIS-END-YRQ.                  DTSBE461
00400                                                                   DTSBE461
00401      SUBTRACT 11 FROM L004-ABS-QTR.                               DTSBE461
00402                                                                   DTSBE461
00403      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE461
00404                                                                   DTSBE461
00405      MOVE L004-QTR-5-9 TO WRK-EST-BASIS-START-YRQ.                DTSBE461
00406                                                                   DTSBE461
00407                                                                   DTSBE461
00408      IF WRK-EST-BASIS-START-YRQ > LECM-PICKUP-YRQ                 DTSBE461
00409          NEXT SENTENCE                                            DTSBE461
00410      ELSE                                                         DTSBE461
00411          MOVE 'WRK-EST-BASIS-START-YRQ <= LECM-PICKUP-YRQ'        DTSBE461
00412            TO ABEND-MSG                                           DTSBE461
00413          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE461
00414  I1000-EXIT.                                                      DTSBE461
00415      EXIT.                                                        DTSBE461
00416      EJECT                                                        DTSBE461
00417  I1100-NOTICE-IND.                                                DTSBE461
00418      IF LECM-PARM-NOTICE-IND = SPACES                             DTSBE461
00419          SET WRK-PARM-NOTICE-NO-88 TO TRUE                        DTSBE461
00420      ELSE                                                         DTSBE461
00421          IF LECM-PARM-NOTICE-IND = 'N' OR 'Y'                     DTSBE461
00422              MOVE LECM-PARM-NOTICE-IND TO WRK-PARM-NOTICE-IND     DTSBE461
00423          ELSE                                                     DTSBE461
00424              MOVE 'PARM-NOTICE-IND NOT VALID'                     DTSBE461
00425                TO ABEND-MSG                                       DTSBE461
00426              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE461
00427  I1100-EXIT.                                                      DTSBE461
00428      EXIT.                                                        DTSBE461
00429  P0000-PROCESS.                                                   DTSBE461
00430      IF FIRST-TIME-IND = 'Y'                                      DTSBE461
00431          PERFORM S923-OPEN-UPDATE THRU S923-EXIT                  DTSBE461
00432          MOVE 'N' TO FIRST-TIME-IND.                              DTSBE461
00433                                                                   DTSBE461
00434                                                                   DTSBE461
00435 *****IF (MPRF-EMP-NO < 360094)                                    DTSBE461
00436 ************OR                                                    DTSBE461
00437 ********(MPRF-EMP-NO > 360098)                                    DTSBE461
00438 *********GO TO P0000-EXIT.                                        DTSBE461
00439                                                                   DTSBE461
00440        SET L410-MODE-INPUT-YRQ-88 TO TRUE                         DTSBE461
00441        MOVE MPRF-EMP-NO           TO L410-EMP-NO                  DTSBE461
00442        MOVE WRK-PARM-SUBJECT-YRQ TO L410-YRQ.                     DTSBE461
00443        PERFORM S410-FILE-SCHED    THRU S410-EXIT                  DTSBE461
00444        IF L410-ANN-SCHED-88                                       DTSBE461
00445           DISPLAY ' ANNUAL FILER .. BYPASSED.. ' MPRF-EMP-NO      DTSBE461
00446              ADD 1 TO WRK-ANNUAL-FILER-CNT                        DTSBE461
00447              GO TO P0000-EXIT.                                    DTSBE461
00448                                                                   DTSBE461
00449      IF MPRF-PURSUED-RPT-CNT > +0                                 DTSBE461
00450          NEXT SENTENCE                                            DTSBE461
00451      ELSE                                                         DTSBE461
00452          GO TO P0000-EXIT.                                        DTSBE461
00453                                                                   DTSBE461
00454      IF MPRF-RETURN-MAIL-YES-88                                   DTSBE461
00455         ADD 1 TO WRK-RETURN-MAIL-CNT                              DTSBE461
00456          GO TO P0000-EXIT.                                        DTSBE461
00457                                                                   DTSBE461
00458                                                                   DTSBE461
00459      IF MPRF-NOT-WRITTEN-OFF-88                                   DTSBE461
00460          NEXT SENTENCE                                            DTSBE461
00461      ELSE                                                         DTSBE461
00462          GO TO P0000-EXIT.                                        DTSBE461
00463                                                                   DTSBE461
00464                                                                   DTSBE461
00465      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE461
00466                                                                   DTSBE461
00467      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE461
00468                                                                   DTSBE461
00469      SET MQTR-QTR-88 TO TRUE.                                     DTSBE461
00470                                                                   DTSBE461
00471      MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ.                       DTSBE461
00472                                                                   DTSBE461
00473      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE461
00474                                                                   DTSBE461
00475      PERFORM S910-READ THRU S910-EXIT.                            DTSBE461
00476                                                                   DTSBE461
00477      IF L910-NO-REC-88                                            DTSBE461
00478          GO TO P0000-EXIT.                                        DTSBE461
00479                                                                   DTSBE461
00480      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE461
00481                                                                   DTSBE461
00482                                                                   DTSBE461
00483      IF MQTR-RPT-IS-PURSUED-88                                    DTSBE461
00484          NEXT SENTENCE                                            DTSBE461
00485      ELSE                                                         DTSBE461
00486          GO TO P0000-EXIT.                                        DTSBE461
00487                                                                   DTSBE461
00488                                                                   DTSBE461
00489      IF MQTR-CURR-ESTIM-88                                        DTSBE461
00490          GO TO P0000-EXIT.                                        DTSBE461
00491                                                                   DTSBE461
00492                                                                   DTSBE461
00493      SET WRK-GENERATE-ESTIMATE-NO-88 TO TRUE.                     DTSBE461
00494                                                                   DTSBE461
00495      MOVE +0 TO WRK-EST-TAX-WAGE                                  DTSBE461
00496                 WRK-EST-TOT-WAGE                                  DTSBE461
00497                 WRK-ESTIM-CNT.                                    DTSBE461
00498                                                                   DTSBE461
00499                                                                   DTSBE461
00500      PERFORM P1000-EVALUATE-FOR-EST-GEN THRU P1000-EXIT.          DTSBE461
00501      IF WRK-ESTIM-CNT > +0                                        DTSBE461
00502         SET WRK-GENERATE-ESTIMATE-NO-88 TO TRUE.                  DTSBE461
00503                                                                   DTSBE461
00504                                                                   DTSBE461
00505                                                                   DTSBE461
00506      IF WRK-GENERATE-ESTIMATE-NO-88                               DTSBE461
00507           ADD 1 TO WRK-ESTIMATED-NO                               DTSBE461
00508          SET R461-ESTIMATE-GENERATED-NO-88 TO TRUE                DTSBE461
00509      ELSE                                                         DTSBE461
00510           ADD 1 TO WRK-ESTIMATED-YES                              DTSBE461
00511          SET R461-ESTIMATE-GENERATED-YES-88 TO TRUE.              DTSBE461
00512                                                                   DTSBE461
00513      PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT.               DTSBE461
00514                                                                   DTSBE461
00515      MOVE L061-FLD-REP-ID TO R461-FIELD-REP-ID.                   DTSBE461
00516                                                                   DTSBE461
00517      MOVE MPRF-EMP-NO TO R461-EMP-NO.                             DTSBE461
00518                                                                   DTSBE461
00519      MOVE WRK-PARM-SUBJECT-YRQ TO R461-YRQ.                       DTSBE461
00520                                                                   DTSBE461
00521      MOVE MPRF-PRIMARY-NAME TO R461-PRIMARY-NAME.                 DTSBE461
00522      MOVE LECM-PRIOR-RUN-DATE TO R461-MAIL-DATE.                  DTSBE461
00523      MOVE MQTR-RPT-DUE-DATE TO R461-RPT-DUE-DATE.                 DTSBE461
00524      MOVE MQTR-UI-RATE TO R461-UI-RATE.                           DTSBE461
00525                                                                   DTSBE461
00526      MOVE WRK-EST-TAX-WAGE TO R461-EST-TAXABLE-WAGES.             DTSBE461
00527      MOVE WRK-EST-TOT-WAGE TO R461-EST-TOTAL-WAGES                DTSBE461
00528      SET L621-LOOKUP-TAD-88 TO TRUE.                              DTSBE461
00529      PERFORM P2000-GET-ADDRESS THRU P2000-EXIT.                   DTSBE461
00530                                                                   DTSBE461
00531      IF L621-ADDR-FOUND-88                                        DTSBE461
00532         PERFORM P3000-MOVE-ADDRESS THRU P3000-EXIT                DTSBE461
00533         PERFORM S946-WRITE-R461 THRU S946-EXIT                    DTSBE461
00534         MOVE 'MTAD' TO EVL-ADDR-TYPE                              DTSBE461
00535         PERFORM S1000-WRITE-MEVL THRU S1000-EXIT                  DTSBE461
00536         GO TO P0000-EXIT.                                         DTSBE461
00537                                                                   DTSBE461
00538      SET L621-LOOKUP-OPO-88 TO TRUE.                              DTSBE461
00539      PERFORM P2000-GET-ADDRESS THRU P2000-EXIT.                   DTSBE461
00540                                                                   DTSBE461
00541      IF L621-ADDR-FOUND-88                                        DTSBE461
00542         PERFORM P3000-MOVE-ADDRESS THRU P3000-EXIT                DTSBE461
00543         PERFORM S946-WRITE-R461 THRU S946-EXIT                    DTSBE461
00544         MOVE 'MOPO' TO EVL-ADDR-TYPE                              DTSBE461
00545         PERFORM S1000-WRITE-MEVL THRU S1000-EXIT                  DTSBE461
00546         GO TO P0000-EXIT.                                         DTSBE461
00547                                                                   DTSBE461
00548      DISPLAY 'ADDRESS NOT FOUND ' L621-EMP-NO.                    DTSBE461
00549  P0000-EXIT.                                                      DTSBE461
00550      EXIT.                                                        DTSBE461
00551      EJECT                                                        DTSBE461
00552  P1000-EVALUATE-FOR-EST-GEN.                                      DTSBE461
00553      IF MPRF-CLASS-SELF-INS-88                                    DTSBE461
00554         ADD 1 TO WRK-SELF-INS-CNT                                 DTSBE461
00555          GO TO P1000-EXIT.                                        DTSBE461
00556                                                                   DTSBE461
00557                                                                   DTSBE461
00558      IF MPRF-BANKRP-OPEN-88                                       DTSBE461
00559          GO TO P1000-EXIT.                                        DTSBE461
00560                                                                   DTSBE461
00561                                                                   DTSBE461
00562      MOVE +0 TO WRK-EST-TAX-WAGE                                  DTSBE461
00563                 WRK-EST-TOT-WAGE.                                 DTSBE461
00564                                                                   DTSBE461
00565                                                                   DTSBE461
00566      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE461
00567                                                                   DTSBE461
00568      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE461
00569                                                                   DTSBE461
00570      SET MQTR-QTR-88 TO TRUE.                                     DTSBE461
00571                                                                   DTSBE461
00572      MOVE WRK-EST-BASIS-START-YRQ TO MQTR-YRQ.                    DTSBE461
00573                                                                   DTSBE461
00574      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE461
00575                                                                   DTSBE461
00576      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE461
00577                                                                   DTSBE461
00578      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE461
00579                                                                   DTSBE461
00580      PERFORM                                                      DTSBE461
00581        UNTIL (L910-NO-REC-88)                                     DTSBE461
00582                   OR                                              DTSBE461
00583              (MQTR-YRQ > WRK-EST-BASIS-END-YRQ)                   DTSBE461
00584          IF (MQTR-CURR-RCVD-88)                                   DTSBE461
00585                 AND                                               DTSBE461
00586             (MQTR-TAX-WAGE > WRK-EST-TAX-WAGE)                    DTSBE461
00587              MOVE MQTR-TAX-WAGE TO WRK-EST-TAX-WAGE               DTSBE461
00588              MOVE MQTR-TOT-WAGE TO WRK-EST-TOT-WAGE               DTSBE461
00589          END-IF                                                   DTSBE461
00590          IF MQTR-CURR-ESTIM-88                                    DTSBE461
00591             ADD +1 TO WRK-ESTIM-CNT                               DTSBE461
00592          END-IF                                                   DTSBE461
00593          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE461
00594          IF L910-OK-88                                            DTSBE461
00595              MOVE MSKL-REC TO MQTR-REC                            DTSBE461
00596          END-IF                                                   DTSBE461
00597      END-PERFORM.                                                 DTSBE461
00598                                                                   DTSBE461
00599                                                                   DTSBE461
00600      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE461
00601                                                                   DTSBE461
00602      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE461
00603                                                                   DTSBE461
00604      SET MQTR-QTR-88 TO TRUE.                                     DTSBE461
00605                                                                   DTSBE461
00606      MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ.                       DTSBE461
00607                                                                   DTSBE461
00608      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE461
00609                                                                   DTSBE461
00610      PERFORM S910-READ THRU S910-EXIT.                            DTSBE461
00611                                                                   DTSBE461
00612      IF L910-NO-REC-88                                            DTSBE461
00613          MOVE 'UNEXPECTED MQTR RECORD NOT FOUND ENCOUNTERED'      DTSBE461
00614            TO ABEND-MSG                                           DTSBE461
00615          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE461
00616                                                                   DTSBE461
00617      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE461
00618                                                                   DTSBE461
00619      IF WRK-EST-TAX-WAGE = +0                                     DTSBE461
00620          GO TO P1000-EXIT.                                        DTSBE461
00621                                                                   DTSBE461
00622                                                                   DTSBE461
00623      SET WRK-OPEN-APPEAL-NO-88 TO TRUE.                           DTSBE461
00624                                                                   DTSBE461
00625      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE461
00626                                                                   DTSBE461
00627      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE461
00628                                                                   DTSBE461
00629      SET MSKL-APL-88 TO TRUE.                                     DTSBE461
00630                                                                   DTSBE461
00631      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE461
00632                                                                   DTSBE461
00633      PERFORM                                                      DTSBE461
00634        UNTIL L910-NO-REC-88                                       DTSBE461
00635          MOVE MSKL-REC TO MAPL-REC                                DTSBE461
00636          PERFORM P1100-EXAMINE-MAPL THRU P1100-EXIT               DTSBE461
00637          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE461
00638      END-PERFORM.                                                 DTSBE461
00639                                                                   DTSBE461
00640      IF WRK-OPEN-APPEAL-YES-88                                    DTSBE461
00641          GO TO P1000-EXIT.                                        DTSBE461
00642                                                                   DTSBE461
00643                                                                   DTSBE461
00644      SET WRK-GENERATE-ESTIMATE-YES-88 TO TRUE.                    DTSBE461
00645  P1000-EXIT.                                                      DTSBE461
00646      EXIT.                                                        DTSBE461
00647      SKIP3                                                        DTSBE461
00648  P1100-EXAMINE-MAPL.                                              DTSBE461
00649      IF MAPL-STATUS-OPEN-88                                       DTSBE461
00650          NEXT SENTENCE                                            DTSBE461
00651      ELSE                                                         DTSBE461
00652          GO TO P1100-EXIT.                                        DTSBE461
00653                                                                   DTSBE461
00654      PERFORM                                                      DTSBE461
00655        VARYING MAPL-COV-IDX FROM 1 BY 1                           DTSBE461
00656        UNTIL MAPL-COV-IDX > MAPL-COVERED-CNT                      DTSBE461
00657          IF MAPL-COVERED-YRQ (MAPL-COV-IDX)                       DTSBE461
00658                 = WRK-PARM-SUBJECT-YRQ                            DTSBE461
00659              SET WRK-OPEN-APPEAL-YES-88 TO TRUE                   DTSBE461
00660          END-IF                                                   DTSBE461
00661      END-PERFORM.                                                 DTSBE461
00662  P1100-EXIT.                                                      DTSBE461
00663      EXIT.                                                        DTSBE461
00664      EJECT                                                        DTSBE461
00665  P2000-GET-ADDRESS.                                               DTSBE461
00666      MOVE MPRF-PRIMARY-NAME TO L621-NAME.                         DTSBE461
00667      MOVE MPRF-EMP-NO       TO L621-EMP-NO.                       DTSBE461
00668      CALL 'DTSBU621' USING L621-LINK-AREA.                        DTSBE461
00669  P2000-EXIT.                                                      DTSBE461
00670      EXIT.                                                        DTSBE461
00671      EJECT                                                        DTSBE461
00672  P3000-MOVE-ADDRESS.                                              DTSBE461
00673      MOVE L621-FMT-ADDR          TO R461-FMT-ADDR.                DTSBE461
00674      MOVE L621-ZIP               TO R461-ZIP.                     DTSBE461
00675      MOVE L621-ADVANCED-BARCODE  TO R461-ADVANCED-BARCODE.        DTSBE461
00676  P3000-EXIT.                                                      DTSBE461
00677      EXIT.                                                        DTSBE461
00678      EJECT                                                        DTSBE461
00679  S1000-WRITE-MEVL.                                                DTSBE461
00680       ADD +1000 TO LECM-EMP-ABSTIME.                              DTSBE461
00681                                                                   DTSBE461
00682       MOVE LECM-EMP-ABSTIME TO L005-ABSTIME.                      DTSBE461
00683                                                                   DTSBE461
00684       PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                   DTSBE461
00685       MOVE LOW-VALUES TO MEVL-REC.                                DTSBE461
00686       MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                            DTSBE461
00687       SET MEVL-EVL-88 TO TRUE.                                    DTSBE461
00688       MOVE L005-DATE TO MEVL-DATE.                                DTSBE461
00689       MOVE L005-TIME TO MEVL-TIME.                                DTSBE461
00690       MOVE L005-TIME TO MEVL-TIME.                                DTSBE461
00691       MOVE ZEROS TO MEVL-PURGE-DATE.                              DTSBE461
00692       MOVE EVL-TEXT TO MEVL-TEXT.                                 DTSBE461
00693       MOVE WRK-SUBJECT-SLASH-QTR TO  EVL-SLASH-QTR.               DTSBE461
00694       SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                          DTSBE461
00695       SET MEVL-NOT-CONVERTED-88 TO TRUE.                          DTSBE461
00696       MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE                   DTSBE461
00697                                  MEVL-CHNG-DATE.                  DTSBE461
00698       MOVE MEVL-REC TO MSKL-REC.                                  DTSBE461
00699       PERFORM S910-WRITE THRU S910-EXIT.                          DTSBE461
00700  S1000-EXIT.                                                      DTSBE461
00701        EXIT.                                                      DTSBE461
00702        EJECT                                                      DTSBE461
00703                                                                   DTSBE461
00704  T0000-TERMINATE.                                                 DTSBE461
00705      IF FIRST-TIME-IND = 'Y'                                      DTSBE461
00706          GO TO T0000-EXIT.                                        DTSBE461
00707      MOVE WRK-NOTICE-CNT   TO WRK-CNT-DISP.                       DTSBE461
00708      DISPLAY SPACE.                                               DTSBE461
00709      DISPLAY '*****************************************'.         DTSBE461
00710      DISPLAY '**         DTSBE420 COUNTS             **'.         DTSBE461
00711      DISPLAY '**                                     **'.         DTSBE461
00712      DISPLAY '**    NOTICES SENT: ' WRK-ESTIMATED-YES.            DTSBE461
00713      DISPLAY '**                                     **'.         DTSBE461
00714      MOVE WRK-ANNUAL-FILER-CNT   TO WRK-CNT-DISP.                 DTSBE461
00715      DISPLAY '**   ANNUAL FILERS BYPASSED: ' WRK-CNT-DISP         DTSBE461
00716      DISPLAY '**   RETURN MAIL   BYPASSED: ' WRK-RETURN-MAIL-CNT. DTSBE461
00717      DISPLAY '**   SELF INSURED  BYPASSED: ' WRK-SELF-INS-CNT.    DTSBE461
00718      DISPLAY '**   EST NOTICE NOT SENT   : ' WRK-ESTIMATED-NO.    DTSBE461
00719      DISPLAY '**                                     **'.         DTSBE461
00720      DISPLAY '*****************************************'.         DTSBE461
00721      IF WRK-PARM-NOTICE-YES-88                                    DTSBE461
00722          MOVE LOW-VALUES TO FQTR-KEY-AREA                         DTSBE461
00723          SET FQTR-QTR-88 TO TRUE                                  DTSBE461
00724          MOVE WRK-PARM-SUBJECT-YRQ TO FQTR-YRQ                    DTSBE461
00725          MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA                      DTSBE461
00726          PERFORM S931-READ THRU S931-EXIT                         DTSBE461
00727          IF L931-NO-REC-88                                        DTSBE461
00728              MOVE 'LOGIC ERROR T0000-1' TO ABEND-MSG              DTSBE461
00729              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE461
00730          ELSE                                                     DTSBE461
00731              MOVE FSKL-REC TO FQTR-REC                            DTSBE461
00732              MOVE LECM-CURR-RUN-DATE TO FQTR-CHNG-DATE            DTSBE461
00733                               FQTR-INTENT-2-ESTIMATE-DATE.        DTSBE461
00734              MOVE FQTR-REC TO FSKL-REC                            DTSBE461
00735              PERFORM S931-REWRITE THRU S931-EXIT.                 DTSBE461
00736                                                                   DTSBE461
00737      PERFORM S923-CLOSE THRU S923-EXIT.                           DTSBE461
00738                                                                   DTSBE461
00739  T0000-EXIT.                                                      DTSBE461
00740      EXIT.                                                        DTSBE461
00741      EJECT                                                        DTSBE461
00742  S001-FROM-FED-8.                                                 DTSBE461
00743      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE461
00744      GO TO S001-DATE.                                             DTSBE461
00745                                                                   DTSBE461
00746  S001-FROM-CAL-6.                                                 DTSBE461
00747      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE461
00748      GO TO S001-DATE.                                             DTSBE461
00749                                                                   DTSBE461
00750  S001-FROM-ABS-DAY.                                               DTSBE461
00751      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE461
00752      GO TO S001-DATE.                                             DTSBE461
00753                                                                   DTSBE461
00754  S001-DATE.                                                       DTSBE461
00755      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE461
00756  S001-EXIT.                                                       DTSBE461
00757      EXIT.                                                        DTSBE461
00758      SKIP3                                                        DTSBE461
00759                                                                   DTSBE461
00760  S004-FROM-5.                                                     DTSBE461
00761      SET L004-FROM-5 TO TRUE.                                     DTSBE461
00762      GO TO S004-YRQ.                                              DTSBE461
00763                                                                   DTSBE461
00764  S004-FROM-3.                                                     DTSBE461
00765      SET L004-FROM-3 TO TRUE.                                     DTSBE461
00766      GO TO S004-YRQ.                                              DTSBE461
00767                                                                   DTSBE461
00768  S004-FROM-ABS.                                                   DTSBE461
00769      SET L004-FROM-ABS TO TRUE.                                   DTSBE461
00770      GO TO S004-YRQ.                                              DTSBE461
00771                                                                   DTSBE461
00772  S004-YRQ.                                                        DTSBE461
00773      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE461
00774  S004-EXIT.                                                       DTSBE461
00775      EXIT.                                                        DTSBE461
00776      SKIP3                                                        DTSBE461
00777  S005-FROM-ABSTIME.                                               DTSBE461
00778      SET L005-FROM-ABSTIME TO TRUE.                               DTSBE461
00779      GO TO S005-ABSTIME.                                          DTSBE461
00780                                                                   DTSBE461
00781  S005-ABSTIME.                                                    DTSBE461
00782      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBE461
00783  S005-EXIT.                                                       DTSBE461
00784      EXIT.                                                        DTSBE461
00785      SKIP3                                                        DTSBE461
00786  S061-DETERMINE-FLD-REP.                                          DTSBE461
00787      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBE461
00788                                                                   DTSBE461
00789      MOVE MPRF-EMP-NO TO L061-EMP-NO.                             DTSBE461
00790                                                                   DTSBE461
00791      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBE461
00792  S061-EXIT.                                                       DTSBE461
00793      EXIT.                                                        DTSBE461
00794      SKIP3                                                        DTSBE461
00795  S910-READ.                                                       DTSBE461
00796      SET L910-READ-88 TO TRUE.                                    DTSBE461
00797      GO TO S910-MSTR-IO.                                          DTSBE461
00798                                                                   DTSBE461
00799  S910-START-BROWSE.                                               DTSBE461
00800      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE461
00801      GO TO S910-MSTR-IO.                                          DTSBE461
00802                                                                   DTSBE461
00803  S910-READ-NEXT.                                                  DTSBE461
00804      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE461
00805      GO TO S910-MSTR-IO.                                          DTSBE461
00806                                                                   DTSBE461
00807  S910-WRITE.                                                      DTSBE461
00808       SET L910-WRITE-88 TO TRUE.                                  DTSBE461
00809       SET LECM-EMP-UPDATED-YES-88 TO TRUE.                        DTSBE461
00810       GO TO S910-MSTR-IO.                                         DTSBE461
00811                                                                   DTSBE461
00812  S910-REWRITE.                                                    DTSBE461
00813      SET L910-REWRITE-88 TO TRUE.                                 DTSBE461
00814      GO TO S910-MSTR-IO.                                          DTSBE461
00815                                                                   DTSBE461
00816  S910-MSTR-IO.                                                    DTSBE461
00817      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE461
00818                            MSKL-REC.                              DTSBE461
00819  S910-EXIT.                                                       DTSBE461
00820      EXIT.                                                        DTSBE461
00821      SKIP3                                                        DTSBE461
00822  S923-OPEN-UPDATE.                                                DTSBE461
00823      SET L923-OPEN-UPDATE-88 TO TRUE.                             DTSBE461
00824      GO TO S923-ATC-IO.                                           DTSBE461
00825                                                                   DTSBE461
00826  S923-READ.                                                       DTSBE461
00827      SET L923-READ-88 TO TRUE.                                    DTSBE461
00828      GO TO S923-ATC-IO.                                           DTSBE461
00829                                                                   DTSBE461
00830  S923-START-BROWSE.                                               DTSBE461
00831      SET L923-START-BROWSE-88 TO TRUE.                            DTSBE461
00832      GO TO S923-ATC-IO.                                           DTSBE461
00833                                                                   DTSBE461
00834  S923-READ-NEXT.                                                  DTSBE461
00835      SET L923-READ-NEXT-88 TO TRUE.                               DTSBE461
00836      GO TO S923-ATC-IO.                                           DTSBE461
00837                                                                   DTSBE461
00838  S923-WRITE.                                                      DTSBE461
00839      SET L923-WRITE-88 TO TRUE.                                   DTSBE461
00840      GO TO S923-ATC-IO.                                           DTSBE461
00841                                                                   DTSBE461
00842  S923-REWRITE.                                                    DTSBE461
00843      SET L923-REWRITE-88 TO TRUE.                                 DTSBE461
00844      GO TO S923-ATC-IO.                                           DTSBE461
00845                                                                   DTSBE461
00846  S923-DELETE.                                                     DTSBE461
00847      SET L923-DELETE-88 TO TRUE.                                  DTSBE461
00848      GO TO S923-ATC-IO.                                           DTSBE461
00849                                                                   DTSBE461
00850  S923-CLOSE.                                                      DTSBE461
00851      SET L923-CLOSE-88 TO TRUE.                                   DTSBE461
00852      GO TO S923-ATC-IO.                                           DTSBE461
00853                                                                   DTSBE461
00854  S923-ATC-IO.                                                     DTSBE461
00855      CALL 'DTSBU923' USING L923-LINK-AREA                         DTSBE461
00856                            ASKL-REC.                              DTSBE461
00857  S923-EXIT.                                                       DTSBE461
00858      EXIT.                                                        DTSBE461
00859      SKIP3                                                        DTSBE461
00860  S931-READ.                                                       DTSBE461
00861      SET L931-READ-88 TO TRUE.                                    DTSBE461
00862      GO TO S931-REF-I.                                            DTSBE461
00863                                                                   DTSBE461
00864  S931-START-BROWSE.                                               DTSBE461
00865      SET L931-START-BROWSE-88 TO TRUE.                            DTSBE461
00866      GO TO S931-REF-I.                                            DTSBE461
00867  S931-REWRITE.                                                    DTSBE461
00868      SET L931-REWRITE-88 TO TRUE.                                 DTSBE461
00869      GO TO S931-REF-I.                                            DTSBE461
00870                                                                   DTSBE461
00871  S931-READ-NEXT.                                                  DTSBE461
00872      SET L931-READ-NEXT-88 TO TRUE.                               DTSBE461
00873      GO TO S931-REF-I.                                            DTSBE461
00874                                                                   DTSBE461
00875  S931-REF-I.                                                      DTSBE461
00876      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBE461
00877                            FSKL-REC.                              DTSBE461
00878  S931-EXIT.                                                       DTSBE461
00879      EXIT.                                                        DTSBE461
00880      SKIP3                                                        DTSBE461
00881  S410-FILE-SCHED.                                                 DTSBE461
00882      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBE461
00883                                                                   DTSBE461
00884  S410-EXIT.                                                       DTSBE461
00885      EXIT.                                                        DTSBE461
00886      SKIP3                                                        DTSBE461
00887  S946-WRITE-R461.                                                 DTSBE461
00888      CALL 'DTSBU946' USING R461-REC.                              DTSBE461
00889      GO TO S946-EXIT.                                             DTSBE461
00890                                                                   DTSBE461
00891  S946-EXIT.                                                       DTSBE461
00892      EXIT.                                                        DTSBE461
00893      SKIP3                                                        DTSBE461
00894  S999-ABEND.                                                      DTSBE461
00895      DISPLAY '*** DTSBE461 ABENDING.  '                           DTSBE461
00896              ABEND-MSG.                                           DTSBE461
00897                                                                   DTSBE461
00898      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE461
00899  S999-EXIT.                                                       DTSBE461
00900      EXIT.                                                        DTSBE461
