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