00001  IDENTIFICATION DIVISION.                                         06/10/14
00002  PROGRAM-ID.             DTSBX344.                                DTSBX344
00003  AUTHOR.                 NGC.                                        LV023
00004  DATE-WRITTEN.           NOVEMBER 2007.                           DTSBX344
00005  DATE-COMPILED.                                                   DTSBX344
00006      SKIP3                                                        DTSBX344
00007 *****                                                             DTSBX344
00008 *                                                                 DTSBX344
00009 *    FUNCTION:  INTERNAL WEB MAINFRAME EXTRACT -                  DTSBX344
00010 *               COLLECTIONS, AUDITS                               DTSBX344
00011 *                                                                 DTSBX344
00012 *    MODIFICATION LOG:                                            DTSBX344
00013 *                                                                 DTSBX344
00014 *    03/04/2008  INITIAL DEVELOPMENT.                             DTSBX344
00015 *                REFERENCE:                     PROGRAMMER: GD    DTSBX344
00016 *                                                                 DTSBX344
00017 *    05/20/2008  MODIFIED P1100 - DEBIT MEMO WAS NOT INCLUDED.    DTSBX344
00018 *                CHANGED TO USE MEVL-DATE INSTEAD OF              DTSBX344
00019 *                MEVL-ESTB-DATE.                                  DTSBX344
00020 *                REFERENCE:                     PROGRAMMER: GD    DTSBX344
00021 *                                                                 DTSBX344
00022 *    07/17/2008  ADDED PROCESSING FOR AUDITS.                     DTSBX344
00023 *                REFERENCE:                     PROGRAMMER: GD    DTSBX344
00024 *                                                                 DTSBX344
00025 *    02/16/2009  MODIFIED AUDIT SELECTION, MAKING IT IDENTICAL    DTSBX344
00026 *                TO THE PROCESS USED IN BE770 FOR THE ETA-581.    DTSBX344
00027 *                REFERENCE:                     PROGRAMMER: GD    DTSBX344
00028 *                                                                 DTSBX344
00029 *    01/03/2012  MODIFIED TO EXTRACT ACTIVE AUDITS ESTABLISHED    DTSBX344
00030 *                WITHIN THE LAST 3 YEARS.                         DTSBX344
00031 *                IT PREVIOUSLY SELECTED ONLY THOSE ESTABLISHED    DTSBX344
00032 *                WITHIN THE LAST YEAR.                            DTSBX344
00033 *                REFERENCE:                     PROGRAMMER: GD    DTSBX344
00034 *                                                                 DTSBX344
00035 *    02/10/2012  ADDED SEVERAL FIELDS TO THE AUDIT EXTRACT.       DTSBX344
00036 *                THESE ARE RELATED TO THE CHANGES INVOLVED IN     DTSBX344
00037 *                THE NEW AUDIT CATEGORY OF TARGETED AUDITS.       DTSBX344
00038 *                REFERENCE:                     PROGRAMMER: GD    DTSBX344
00039 *                                                                 DTSBX344
00040 *    05/17/2013  INCREASED THE SCOPE OF THE AUDIT SELECTION:      DTSBX344
00041 *                DELINQUENCY ASSIGNMENTS ARE INCLUDED.            DTSBX344
00042 *                REFERENCE:                     PROGRAMMER: GD    DTSBX344
00043 *                                                                 DTSBX344
00044 *    07/18/2013  ADDED PROCESSING TO EXTRACT LIEN DATA FOR A      DTSBX344
00045 *                NEW WEB SCREEN.                                  DTSBX344
00046 *                REFERENCE: TICKET 1934         PROGRAMMER: GD    DTSBX344
00047 *                                                                 DTSBX344
00048 *    08/28/2013  ADDED PROCESSING TO EXTRACT DPC DATA FOR A       DTSBX344
00049 *                NEW WEB SCREEN.                                  DTSBX344
00050 *                REFERENCE: TICKET 1934         PROGRAMMER: GD    DTSBX344
00051 *                                                                 DTSBX344
00052 *    12/13/2013  EXPANDED THE SELECTION OF AUDITS TO INCLUDE      DTSBX344
00053 *                ANYTHING WITH A START DATE >= 01/01/2005.        DTSBX344
00054 *                REFERENCE: IMAGING PROJECT     PROGRAMMER: GD    DTSBX344
00055 *                                                                 DTSBX344
00056 *    12/17/2013  UPDATED THE EXTRACT FOR THE QUARTER COLLECTIONS  DTSBX344
00057 *                TABLE FOR THE NEW WORDING IN THE EVENT LOG.      DTSBX344
00058 *                REFERENCE: TICKET 2201         PROGRAMMER: GD    DTSBX344
00059 *                                                                 DTSBX344
00060 *    03/12/2014  UPDATED THE EXTRACT FOR THE QUARTER COLLECTIONS  DTSBX344
00061 *                TABLE FOR THE NEW WORDING IN THE EVENT LOG.      DTSBX344
00062 *                MODIFIED THE START DATE FOR THE AUDIT LOGIS      DTSBX344
00063 *                REFERENCE: TICKET 2601         PROGRAMMER: NH    DTSBX344
00064 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX344
00065 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX344
00066 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBX344
00067 *                                                                 DTSBX344
00068 *                                                                 DTSBX344
00069 *  DESCRIPTION:                                                   DTSBX344
00070 *                                                                 DTSBX344
00071 *                                                                 DTSBX344
00072 *    INITIATION:                                                  DTSBX344
00073 *                                                                 DTSBX344
00074 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBX344
00075 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBX344
00076 *                                                                 DTSBX344
00077 *      EDIT AND DEFAULT PARAMETERS.                               DTSBX344
00078 *                                                                 DTSBX344
00079 *                                                                 DTSBX344
00080 *    PROCESSING:                                                  DTSBX344
00081 *                                                                 DTSBX344
00082 *                                                                 DTSBX344
00083 *    TERMINATION:                                                 DTSBX344
00084 *                                                                 DTSBX344
00085 *                                                                 DTSBX344
00086 *                                                                 DTSBX344
00087 *    RECORDS READ:                                                DTSBX344
00088 *                                                                 DTSBX344
00089 *      MASTER:                                                    DTSBX344
00090 *                                                                 DTSBX344
00091 *        MSOL                                                     DTSBX344
00092 *        MQTR                                                     DTSBX344
00093 *                                                                 DTSBX344
00094 *                                                                 DTSBX344
00095 *      ALTERNATE INDEX:                                           DTSBX344
00096 *                                                                 DTSBX344
00097 *        NONE.                                                    DTSBX344
00098 *                                                                 DTSBX344
00099 *                                                                 DTSBX344
00100 *      REFERENCE:                                                 DTSBX344
00101 *                                                                 DTSBX344
00102 *                                                                 DTSBX344
00103 *                                                                 DTSBX344
00104 *    RECORDS UPDATED:                                             DTSBX344
00105 *                                                                 DTSBX344
00106 *        NONE                                                     DTSBX344
00107 *                                                                 DTSBX344
00108 *                                                                 DTSBX344
00109 *    OUTPUT RECORDS WRITTEN:                                      DTSBX344
00110 *                                                                 DTSBX344
00111 *        DTSBX331                                                 DTSBX344
00112 *                                                                 DTSBX344
00113 *                                                                 DTSBX344
00114 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBX344
00115 *                                                                 DTSBX344
00116 *        NONE.                                                    DTSBX344
00117 *                                                                 DTSBX344
00118 *                                                                 DTSBX344
00119 *    MODULES CALLED:                                              DTSBX344
00120 *                                                                 DTSBX344
00121 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBX344
00122 *        DTSBU004  QUARTER EDIT/CONVERSION.                       DTSBX344
00123 *        DTSBU910  MASTER FILE I/O.                               DTSBX344
00124 *                                                                 DTSBX344
00125 *                                                                 DTSBX344
00126 *                                                                 DTSBX344
00127 *****                                                             DTSBX344
00128      SKIP3                                                        DTSBX344
00129  ENVIRONMENT DIVISION.                                            DTSBX344
00130  INPUT-OUTPUT SECTION.                                            DTSBX344
00131  FILE-CONTROL.                                                    DTSBX344
00132      SELECT QTR-COLL-FILE          ASSIGN TO DTSFQCOL             DTSBX344
00133         FILE STATUS IS QCOLL-STATUS.                              DTSBX344
00134                                                                   DTSBX344
00135      SELECT AUDIT-FILE             ASSIGN TO DTSFAUDT             DTSBX344
00136         FILE STATUS IS AUDIT-STATUS.                              DTSBX344
00137                                                                   DTSBX344
00138      SELECT LIEN-FILE              ASSIGN TO DTSFLIEN             DTSBX344
00139         FILE STATUS IS LIEN-STATUS.                               DTSBX344
00140                                                                   DTSBX344
00141      SELECT LIEN-QTR-FILE          ASSIGN TO DTSFLINQ             DTSBX344
00142         FILE STATUS IS LIEN-QTR-STATUS.                           DTSBX344
00143                                                                   DTSBX344
00144      SELECT DPC-FILE               ASSIGN TO DTSFDPC              DTSBX344
00145         FILE STATUS IS DPC-STATUS.                                DTSBX344
00146                                                                   DTSBX344
00147      SELECT DPC-QTR-FILE           ASSIGN TO DTSFDPCQ             DTSBX344
00148         FILE STATUS IS DPC-QTR-STATUS.                            DTSBX344
00149                                                                   DTSBX344
00150  DATA DIVISION.                                                   DTSBX344
00151  FILE SECTION.                                                    DTSBX344
00152  FD  QTR-COLL-FILE                                                DTSBX344
00153      RECORDING MODE IS F                                          DTSBX344
00154      LABEL RECORDS ARE STANDARD                                   DTSBX344
00155      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX344
00156                                                                   DTSBX344
00157  01  QTR-COLL-REC                   PIC  X(35).                   DTSBX344
00158                                                                   DTSBX344
00159  FD  AUDIT-FILE                                                   DTSBX344
00160      RECORDING MODE IS F                                          DTSBX344
00161      LABEL RECORDS ARE STANDARD                                   DTSBX344
00162      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX344
00163                                                                   DTSBX344
00164  01  AUDIT-REC                      PIC  X(108).                  DTSBX344
00165                                                                   DTSBX344
00166  FD  LIEN-FILE                                                    DTSBX344
00167      RECORDING MODE IS F                                          DTSBX344
00168      LABEL RECORDS ARE STANDARD                                   DTSBX344
00169      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX344
00170                                                                   DTSBX344
00171  01  LIEN-REC                       PIC  X(88).                   DTSBX344
00172                                                                   DTSBX344
00173  FD  LIEN-QTR-FILE                                                DTSBX344
00174      RECORDING MODE IS F                                          DTSBX344
00175      LABEL RECORDS ARE STANDARD                                   DTSBX344
00176      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX344
00177                                                                   DTSBX344
00178  01  LIEN-QTR-REC                   PIC  X(26).                   DTSBX344
00179                                                                   DTSBX344
00180  FD  DPC-FILE                                                     DTSBX344
00181      RECORDING MODE IS F                                          DTSBX344
00182      LABEL RECORDS ARE STANDARD                                   DTSBX344
00183      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX344
00184                                                                   DTSBX344
00185  01  DPC-REC                        PIC  X(104).                  DTSBX344
00186                                                                   DTSBX344
00187  FD  DPC-QTR-FILE                                                 DTSBX344
00188      RECORDING MODE IS F                                          DTSBX344
00189      LABEL RECORDS ARE STANDARD                                   DTSBX344
00190      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX344
00191                                                                   DTSBX344
00192  01  DPC-QTR-REC                    PIC  X(28).                   DTSBX344
00193                                                                   DTSBX344
00194  WORKING-STORAGE SECTION.                                         DTSBX344
001945 77  PAN-VALET PICTURE X(24) VALUE '023DTSBX344  06/10/14'.       DTSBX344
00195  77  PAN-VALET PICTURE X(24) VALUE '004DTSBX344  06/10/14'.       DTSBX344
00196  77  PAN-VALET PICTURE X(24) VALUE '021DTSBX344  05/12/14'.       DTSBX344
00197  77  PAN-VALET PICTURE X(24) VALUE '020DTSBX344  05/12/14'.       DTSBX344
00198  77  PAN-VALET PICTURE X(24) VALUE '026DTSBX344  05/12/14'.       DTSBX344
00199  77  PAN-VALET PICTURE X(24) VALUE '017DTSBX344  03/24/14'.       DTSBX344
00200  77  PAN-VALET PICTURE X(24) VALUE '054DTSBX344  03/12/14'.       DTSBX344
00201  77  PAN-VALET PICTURE X(24) VALUE '015DTSBX344  03/12/12'.       DTSBX344
00202      SKIP3                                                        DTSBX344
00203  01  W-AREA.                                                      DTSBX344
00204      05  W-ABEND-CD                  PIC S9(04)  COMP  VALUE +344.DTSBX344
00205                                                                   DTSBX344
00206                                                                   DTSBX344
00207      05  ABEND-MSG                   PIC  X(60).                  DTSBX344
00208                                                                   DTSBX344
00209      05  QCOLL-STATUS                PIC  X(02).                  DTSBX344
00210          88  QCOLL-STATUS-OK-88        VALUE '00'.                DTSBX344
00211      05  AUDIT-STATUS                PIC  X(02).                  DTSBX344
00212          88  AUDIT-STATUS-OK-88        VALUE '00'.                DTSBX344
00213      05  LIEN-STATUS                 PIC  X(02).                  DTSBX344
00214          88  LIEN-STATUS-OK-88         VALUE '00'.                DTSBX344
00215      05  LIEN-QTR-STATUS             PIC  X(02).                  DTSBX344
00216          88  LIEN-QTR-STATUS-OK-88     VALUE '00'.                DTSBX344
00217      05  DPC-STATUS                  PIC  X(02).                  DTSBX344
00218          88  DPC-STATUS-OK-88          VALUE '00'.                DTSBX344
00219      05  DPC-QTR-STATUS              PIC  X(02).                  DTSBX344
00220          88  DPC-QTR-STATUS-OK-88      VALUE '00'.                DTSBX344
00221                                                                   DTSBX344
00222      05  W-ERROR-IND                 PIC  X(01) VALUE 'N'.        DTSBX344
00223          88  W-ERROR-YES-88           VALUE 'Y'.                  DTSBX344
00224          88  W-ERROR-NO-88            VALUE 'N'.                  DTSBX344
00225                                                                   DTSBX344
00226      05  W-AUDIT-START-DT         PIC S9(09)  COMP-3              DTSBX344
00227                                    VALUE 20050101.                DTSBX344
00228      05  W-START-DT               PIC S9(09)  COMP-3.             DTSBX344
00229      05  W-DEFAULT-DATE           PIC  X(10)                      DTSBX344
00230                                    VALUE '01/01/1994'.            DTSBX344
00231                                                                   DTSBX344
00232      05  W-QTR-3-AREA.                                            DTSBX344
00233          10  W-QTR-3-YY             PIC  X(02).                   DTSBX344
00234          10  FILLER                 PIC  X(01).                   DTSBX344
00235          10  W-QTR-3-Q              PIC  X(01).                   DTSBX344
00236                                                                   DTSBX344
00237      05  ALL-NINES-DT             PIC S9(09)  COMP-3              DTSBX344
00238                                     VALUE +999999999.             DTSBX344
00239      05  ALL-NINES-DT-DISP        PIC  X(10) VALUE '12/31/9999'.  DTSBX344
00240      05  ALL-NINES-QTR            PIC S9(05)  COMP-3              DTSBX344
00241                                     VALUE +99999.                 DTSBX344
00242      05  ALL-NINES-QTR-DISP       PIC  X(06) VALUE '9999/9'.      DTSBX344
00243                                                                   DTSBX344
00244      05  W-ESTB-DATE              PIC S9(09)V99 COMP-3.           DTSBX344
00245      05  W-CHNG-DATE              PIC S9(09)V99 COMP-3.           DTSBX344
00246                                                                   DTSBX344
00247      05  SUB                      PIC S9(04)    COMP.             DTSBX344
00248                                                                   DTSBX344
00249      05  W-QTR-COLL-REC.                                          DTSBX344
00250          10  QTR-COLL-EMP-NO            PIC 9(06).                DTSBX344
00251          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00252          10  QTR-COLL-QUARTER           PIC X(06).                DTSBX344
00253          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00254          10  QTR-COLL-TYPE              PIC X(02).                DTSBX344
00255              88  QTR-COLL-DELINQ-NOTICE-88 VALUE '01'.            DTSBX344
00256              88  QTR-COLL-FINAL-DELINQ-88  VALUE '02'.            DTSBX344
00257              88  QTR-COLL-DEBIT-MEMO-88    VALUE '03'.            DTSBX344
00258              88  QTR-COLL-PENALTY-88       VALUE '04'.            DTSBX344
00259              88  QTR-COLL-INIT-DELINQ-88   VALUE '05'.            DTSBX344
00260              88  QTR-COLL-ESTIMATE-88      VALUE '06'.            DTSBX344
00261          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00262          10  QTR-COLL-PROCESS-DT        PIC X(10).                DTSBX344
00263          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00264          10  QTR-COLL-OPID              PIC X(07).                DTSBX344
00265                                                                   DTSBX344
00266      05  WRK-ASSIGN                  PIC  9(09).                  DTSBX344
00267      05  FILLER REDEFINES WRK-ASSIGN.                             DTSBX344
00268          10  WRK-ASSIGN-CC           PIC  9(02).                  DTSBX344
00269          10  WRK-ASSIGN-YY           PIC  9(02).                  DTSBX344
00270          10  WRK-ASSIGN-NBR          PIC  9(05).                  DTSBX344
00271      05  WRK-FLD-ASSIGN.                                          DTSBX344
00272          10  WRK-FLD-ASSIGN-YEAR     PIC  9(02).                  DTSBX344
00273          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBX344
00274          10  WRK-FLD-ASSIGN-NBR      PIC  9(05).                  DTSBX344
00275                                                                   DTSBX344
00276      05  W-AUDIT-REC.                                             DTSBX344
00277          10  AUDIT-EMP-NO               PIC 9(06).                DTSBX344
00278          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00279          10  AUDIT-ASSIGN-NO            PIC X(08).                DTSBX344
00280          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00281          10  AUDIT-STATUS-CD            PIC X(01).                DTSBX344
00282          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00283          10  AUDIT-START-DT             PIC X(10).                DTSBX344
00284          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00285          10  AUDIT-START-QTR            PIC X(06).                DTSBX344
00286          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00287          10  AUDIT-END-QTR              PIC X(06).                DTSBX344
00288          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00289          10  AUDIT-COMPLETE-DT          PIC X(10).                DTSBX344
00290          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00291          10  AUDIT-PROCESS-DT           PIC X(10).                DTSBX344
00292          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00293          10  AUDIT-OPID                 PIC X(07).                DTSBX344
00294          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00295          10  AUDIT-ASSIGN-TYPE          PIC X(02).                DTSBX344
00296          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00297          10  AUDIT-IND                  PIC X(01).                DTSBX344
00298          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00299          10  AUDIT-DUE-DATE             PIC X(10).                DTSBX344
00300          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00301          10  AUDIT-NAICS-CD             PIC X(06).                DTSBX344
00302          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00303          10  AUDIT-EMP-SIZE-IND         PIC X(01).                DTSBX344
00304          10  FILLER                     PIC X(01) VALUE ','.      DTSBX344
00305          10  AUDIT-CHANGE-DATE          PIC X(10).                DTSBX344
00306                                                                   DTSBX344
00307      05  W-ERROR-CNT              PIC S9(07)    COMP-3 VALUE +0.  DTSBX344
00308      05  W-QCOLL-CNT              PIC S9(07)    COMP-3 VALUE +0.  DTSBX344
00309      05  W-AUDIT-CNT              PIC S9(07)    COMP-3 VALUE +0.  DTSBX344
00310      05  W-ACTIVE-CNT             PIC S9(07)    COMP-3 VALUE +0.  DTSBX344
00311      05  W-LIEN-CNT               PIC S9(07)    COMP-3 VALUE +0.  DTSBX344
00312      05  W-LIEN-QTR-CNT           PIC S9(07)    COMP-3 VALUE +0.  DTSBX344
00313      05  W-DPC-CNT                PIC S9(07)    COMP-3 VALUE +0.  DTSBX344
00314      05  W-DPC-QTR-CNT            PIC S9(07)    COMP-3 VALUE +0.  DTSBX344
00315                                                                   DTSBX344
00316      05  DISPLAY-CNT                PIC  Z(06)9.                  DTSBX344
00317                                                                   DTSBX344
00318      05  DISPLAY-AMT1-X              PIC  X(14).                  DTSBX344
00319      05  DISPLAY-AMT1 REDEFINES DISPLAY-AMT1-X                    DTSBX344
00320                                      PIC  ---,---,--9.99.         DTSBX344
00321      05  DISPLAY-AMT2-X              PIC  X(14).                  DTSBX344
00322      05  DISPLAY-AMT2 REDEFINES DISPLAY-AMT2-X                    DTSBX344
00323                                      PIC  ---,---,--9.99.         DTSBX344
00324      05  DISPLAY-AMT3-X              PIC  X(14).                  DTSBX344
00325      05  DISPLAY-AMT3 REDEFINES DISPLAY-AMT3-X                    DTSBX344
00326                                      PIC  ---,---,--9.99.         DTSBX344
00327      05  DISPLAY-AMT4-X              PIC  X(14).                  DTSBX344
00328      05  DISPLAY-AMT4 REDEFINES DISPLAY-AMT4-X                    DTSBX344
00329                                      PIC  ---,---,--9.99.         DTSBX344
00330      EJECT                                                        DTSBX344
00331  01  L001-LINK-AREA.                                              DTSBX344
00332  ++INCLUDE DTSIL001                                               DTSBX344
00333      EJECT                                                        DTSBX344
00334  01  L004-LINK-AREA.                                              DTSBX344
00335  ++INCLUDE DTSIL004                                               DTSBX344
00336      EJECT                                                        DTSBX344
00337  01  L005-LINK-AREA.                                              DTSBX344
00338  ++INCLUDE DTSIL005                                               DTSBX344
00339                                                                   DTSBX344
00340  01  L061-LINK-AREA.                                              DTSBX344
00341  ++INCLUDE DTSIL061                                               DTSBX344
00342                                                                   DTSBX344
00343  01  L062-LINK-AREA.                                              DTSBX344
00344  ++INCLUDE DTSIL062                                               DTSBX344
00345                                                                   DTSBX344
00346 ** LIEN RECORD                                                    DTSBX344
00347  01  X165-REC.                                                    DTSBX344
00348  ++INCLUDE DTSIX165                                               DTSBX344
00349                                                                   DTSBX344
00350 ** LIEN QUARTER RECORD                                            DTSBX344
00351  01  X166-REC.                                                    DTSBX344
00352  ++INCLUDE DTSIX166                                               DTSBX344
00353                                                                   DTSBX344
00354 ** DPC RECORD                                                     DTSBX344
00355  01  X167-REC.                                                    DTSBX344
00356  ++INCLUDE DTSIX167                                               DTSBX344
00357                                                                   DTSBX344
00358 ** DPC QUARTER RECORD                                             DTSBX344
00359  01  X168-REC.                                                    DTSBX344
00360  ++INCLUDE DTSIX168                                               DTSBX344
00361                                                                   DTSBX344
00362  01  L910-LINK-AREA.                                              DTSBX344
00363  ++INCLUDE DTSIL910                                               DTSBX344
00364      SKIP3                                                        DTSBX344
00365  01  MSKL-REC.                                                    DTSBX344
00366  ++INCLUDE DTSIMSKL                                               DTSBX344
00367      SKIP3                                                        DTSBX344
00368  01  MHDR-REC.                                                    DTSBX344
00369  ++INCLUDE DTSIMHDR                                               DTSBX344
00370      SKIP3                                                        DTSBX344
00371  01  MEVL-REC.                                                    DTSBX344
00372  ++INCLUDE DTSIMEVL                                               DTSBX344
00373      SKIP3                                                        DTSBX344
00374  01  MFAS-REC.                                                    DTSBX344
00375  ++INCLUDE DTSIMFAS                                               DTSBX344
00376      SKIP3                                                        DTSBX344
00377  01  MAUR-REC.                                                    DTSBX344
00378  ++INCLUDE DTSIMAUR                                               DTSBX344
00379      SKIP3                                                        DTSBX344
00380  01  MLIN-REC.                                                    DTSBX344
00381  ++INCLUDE DTSIMLIN                                               DTSBX344
00382      SKIP3                                                        DTSBX344
00383  01  MDPC-REC.                                                    DTSBX344
00384  ++INCLUDE DTSIMDPC                                               DTSBX344
00385      SKIP3                                                        DTSBX344
00386  01  L921-LINK-AREA.                                              DTSBX344
00387  ++INCLUDE DTSIL921                                               DTSBX344
00388      SKIP3                                                        DTSBX344
00389  01  ISKL-REC.                                                    DTSBX344
00390  ++INCLUDE DTSIISKL                                               DTSBX344
00391      SKIP3                                                        DTSBX344
00392  01  IEIN-REC.                                                    DTSBX344
00393  ++INCLUDE DTSIIEIN                                               DTSBX344
00394                                                                   DTSBX344
00395  01  L931-LINK-AREA.                                              DTSBX344
00396  ++INCLUDE DTSIL931                                               DTSBX344
00397      SKIP3                                                        DTSBX344
00398  01  FSKL-REC.                                                    DTSBX344
00399  ++INCLUDE DTSIFSKL                                               DTSBX344
00400      SKIP3                                                        DTSBX344
00401  01  FQTR-REC.                                                    DTSBX344
00402  ++INCLUDE DTSIFQTR                                               DTSBX344
00403                                                                   DTSBX344
00404  LINKAGE SECTION.                                                 DTSBX344
00405                                                                   DTSBX344
00406  01  LX34-LINK-AREA.                                              DTSBX344
00407  ++INCLUDE DTSILX34                                               DTSBX344
00408                                                                   DTSBX344
00409  01  MPRF-REC.                                                    DTSBX344
00410  ++INCLUDE DTSIMPRF                                               DTSBX344
00411      EJECT                                                        DTSBX344
00412  PROCEDURE DIVISION USING LX34-LINK-AREA                          DTSBX344
00413                           MPRF-REC.                               DTSBX344
00414                                                                   DTSBX344
00415      EVALUATE TRUE                                                DTSBX344
00416        WHEN LX34-INITIALIZE-88                                    DTSBX344
00417           PERFORM I0000-INITIALIZE     THRU I0000-EXIT            DTSBX344
00418        WHEN LX34-PROCESS-88                                       DTSBX344
00419           PERFORM P0000-PROCESS        THRU P0000-EXIT            DTSBX344
00420        WHEN LX34-TERMINATE-88                                     DTSBX344
00421           PERFORM T0000-TERMINATE      THRU T0000-EXIT            DTSBX344
00422      END-EVALUATE.                                                DTSBX344
00423                                                                   DTSBX344
00424      GOBACK.                                                      DTSBX344
00425                                                                   DTSBX344
00426  I0000-INITIALIZE.                                                DTSBX344
00427      PERFORM I1000-CURR-YEAR       THRU I1000-EXIT.               DTSBX344
00428      PERFORM I2000-OPEN-FILES      THRU I2000-EXIT.               DTSBX344
00429                                                                   DTSBX344
00430  I0000-EXIT.                                                      DTSBX344
00431      EXIT.                                                        DTSBX344
00432                                                                   DTSBX344
00433  I1000-CURR-YEAR.                                                 DTSBX344
00434      MOVE LX34-PRIOR-RUN-DATE       TO L001-FED-8-DATE-9.         DTSBX344
00435 *    MOVE 01                        TO L001-FED-8-MO.             DTSBX344
00436 *    MOVE 01                        TO L001-FED-8-DA.             DTSBX344
00437      SUBTRACT 3                     FROM L001-FED-8-YR.           DTSBX344
00438      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00439      MOVE L001-FED-8-DATE-9         TO W-START-DT.                DTSBX344
00440      DISPLAY 'BX344 START-DATE: ' W-START-DT.                     DTSBX344
00441                                                                   DTSBX344
00442  I1000-EXIT.                                                      DTSBX344
00443      EXIT.                                                        DTSBX344
00444                                                                   DTSBX344
00445  I2000-OPEN-FILES.                                                DTSBX344
00446      OPEN OUTPUT QTR-COLL-FILE.                                   DTSBX344
00447      IF NOT QCOLL-STATUS-OK-88                                    DTSBX344
00448         DISPLAY 'QTR COLL FILE OPEN ERROR: ' QCOLL-STATUS         DTSBX344
00449         MOVE 'FILE OPEN ERROR'                                    DTSBX344
00450                TO ABEND-MSG                                       DTSBX344
00451         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX344
00452      END-IF.                                                      DTSBX344
00453                                                                   DTSBX344
00454      OPEN OUTPUT AUDIT-FILE.                                      DTSBX344
00455      IF NOT AUDIT-STATUS-OK-88                                    DTSBX344
00456         DISPLAY 'AUDIT FILE OPEN ERROR: ' AUDIT-STATUS            DTSBX344
00457         MOVE 'FILE OPEN ERROR'                                    DTSBX344
00458                TO ABEND-MSG                                       DTSBX344
00459         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX344
00460      END-IF.                                                      DTSBX344
00461                                                                   DTSBX344
00462      OPEN OUTPUT LIEN-FILE.                                       DTSBX344
00463      IF NOT LIEN-STATUS-OK-88                                     DTSBX344
00464         DISPLAY 'LIEN FILE OPEN ERROR: ' LIEN-STATUS              DTSBX344
00465         MOVE 'LIEN FILE OPEN ERROR'                               DTSBX344
00466                TO ABEND-MSG                                       DTSBX344
00467         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX344
00468      END-IF.                                                      DTSBX344
00469                                                                   DTSBX344
00470      OPEN OUTPUT LIEN-QTR-FILE.                                   DTSBX344
00471      IF NOT LIEN-QTR-STATUS-OK-88                                 DTSBX344
00472         DISPLAY 'LIEN QTR FILE OPEN ERROR: ' LIEN-QTR-STATUS      DTSBX344
00473         MOVE 'LIEN QTR FILE OPEN ERROR'                           DTSBX344
00474                TO ABEND-MSG                                       DTSBX344
00475         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX344
00476      END-IF.                                                      DTSBX344
00477                                                                   DTSBX344
00478      OPEN OUTPUT DPC-FILE.                                        DTSBX344
00479      IF NOT DPC-STATUS-OK-88                                      DTSBX344
00480         DISPLAY 'DPC FILE OPEN ERROR: ' DPC-STATUS                DTSBX344
00481         MOVE 'DPC FILE OPEN ERROR'                                DTSBX344
00482                TO ABEND-MSG                                       DTSBX344
00483         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX344
00484      END-IF.                                                      DTSBX344
00485                                                                   DTSBX344
00486      OPEN OUTPUT DPC-QTR-FILE.                                    DTSBX344
00487      IF NOT DPC-QTR-STATUS-OK-88                                  DTSBX344
00488         DISPLAY 'DPC QTR FILE OPEN ERROR: ' DPC-QTR-STATUS        DTSBX344
00489         MOVE 'DPC QTR FILE OPEN ERROR'                            DTSBX344
00490                TO ABEND-MSG                                       DTSBX344
00491         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX344
00492      END-IF.                                                      DTSBX344
00493                                                                   DTSBX344
00494  I2000-EXIT.                                                      DTSBX344
00495      EXIT.                                                        DTSBX344
00496                                                                   DTSBX344
00497  P0000-PROCESS.                                                   DTSBX344
00498      PERFORM P1000-QTR-COLLECTIONS   THRU P1000-EXIT.             DTSBX344
00499                                                                   DTSBX344
00500      PERFORM P2000-AUDITS            THRU P2000-EXIT.             DTSBX344
00501                                                                   DTSBX344
00502      PERFORM P3000-LIENS             THRU P3000-EXIT.             DTSBX344
00503                                                                   DTSBX344
00504      PERFORM P4000-DPC               THRU P4000-EXIT.             DTSBX344
00505                                                                   DTSBX344
00506  P0000-EXIT.                                                      DTSBX344
00507      EXIT.                                                        DTSBX344
00508                                                                   DTSBX344
00509  P1000-QTR-COLLECTIONS.                                           DTSBX344
00510      MOVE LOW-VALUES TO MEVL-KEY-AREA.                            DTSBX344
00511      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBX344
00512      SET MEVL-EVL-88     TO TRUE.                                 DTSBX344
00513      MOVE MEVL-KEY-AREA TO MSKL-KEY-AREA.                         DTSBX344
00514      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBX344
00515      PERFORM UNTIL L910-NO-REC-88                                 DTSBX344
00516         MOVE MSKL-REC                TO MEVL-REC                  DTSBX344
00517         PERFORM P1100-BUILD-QCOLL    THRU P1100-EXIT              DTSBX344
00518         PERFORM S910-READ-NEXT       THRU S910-EXIT               DTSBX344
00519      END-PERFORM.                                                 DTSBX344
00520                                                                   DTSBX344
00521  P1000-EXIT.                                                      DTSBX344
00522      EXIT.                                                        DTSBX344
00523                                                                   DTSBX344
00524  P1100-BUILD-QCOLL.                                               DTSBX344
00525      IF MEVL-TEXT (1:14) = 'MISSING REPORT'                       DTSBX344
00526      OR MEVL-TEXT (1:17) = 'DELINQUENT NOTICE'                    DTSBX344
00527      OR MEVL-TEXT (1:13) = 'FINAL MISSING'                        DTSBX344
00528      OR MEVL-TEXT (1:5)  = 'DEBIT'                                DTSBX344
00529      OR MEVL-TEXT (11:12)  = 'LATE PENALTY'                       DTSBX344
00530      OR MEVL-TEXT (18:10)  = 'DELINQUENT'                         DTSBX344
00531 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00532      OR MEVL-TEXT (1:18)  = 'DELINQUENCY NOTICE'                  DTSBX344
00533      OR MEVL-TEXT (1:20)  = 'NOTICE OF ASSESSMENT'                DTSBX344
00534 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00535         NEXT SENTENCE                                             DTSBX344
00536      ELSE                                                         DTSBX344
00537         GO TO P1100-EXIT                                          DTSBX344
00538      END-IF.                                                      DTSBX344
00539                                                                   DTSBX344
00540 **   IF MEVL-SOURCE-SYSTEM-88                                     DTSBX344
00541 *       IF MEVL-TEXT (1:14) = 'MISSING REPORT'                    DTSBX344
00542 *       OR MEVL-TEXT (1:13) = 'FINAL MISSING'                     DTSBX344
00543 *       OR MEVL-TEXT (1:5)  = 'DEBIT'                             DTSBX344
00544 *          NEXT SENTENCE                                          DTSBX344
00545 *       ELSE                                                      DTSBX344
00546 *          GO TO P1100-EXIT                                       DTSBX344
00547 *       END-IF                                                    DTSBX344
00548 *    ELSE                                                         DTSBX344
00549 *       GO TO P1100-EXIT                                          DTSBX344
00550 **   END-IF.                                                      DTSBX344
00551                                                                   DTSBX344
00552      MOVE MPRF-EMP-NO                 TO QTR-COLL-EMP-NO.         DTSBX344
00553                                                                   DTSBX344
00554      IF MEVL-TEXT (1:5) = 'DEBIT'                                 DTSBX344
00555         SET QTR-COLL-DEBIT-MEMO-88    TO TRUE                     DTSBX344
00556         MOVE SPACES                   TO QTR-COLL-QUARTER         DTSBX344
00557      END-IF.                                                      DTSBX344
00558                                                                   DTSBX344
00559      IF MEVL-TEXT (1:14) = 'MISSING REPORT'                       DTSBX344
00560         SET QTR-COLL-DELINQ-NOTICE-88 TO TRUE                     DTSBX344
00561 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00562         IF MEVL-TEXT(30:1) = '/'                                  DTSBX344
00563            MOVE MEVL-TEXT (28:4)         TO W-QTR-3-AREA          DTSBX344
00564            MOVE W-QTR-3-YY               TO L004-QTR-3-YR         DTSBX344
00565            MOVE W-QTR-3-Q                TO L004-QTR-3-Q          DTSBX344
00566            PERFORM S004-FROM-3           THRU S004-EXIT           DTSBX344
00567            IF L004-VALID-QTR                                      DTSBX344
00568               MOVE L004-SLASH-5-QTR      TO QTR-COLL-QUARTER      DTSBX344
00569            ELSE                                                   DTSBX344
00570               MOVE SPACES           TO QTR-COLL-QUARTER           DTSBX344
00571            END-IF                                                 DTSBX344
00572         ELSE                                                      DTSBX344
00573            IF MEVL-TEXT(29:1) = '/'                               DTSBX344
00574               MOVE MEVL-TEXT (27:4)         TO W-QTR-3-AREA       DTSBX344
00575               MOVE W-QTR-3-YY               TO L004-QTR-3-YR      DTSBX344
00576               MOVE W-QTR-3-Q                TO L004-QTR-3-Q       DTSBX344
00577               PERFORM S004-FROM-3           THRU S004-EXIT        DTSBX344
00578               IF L004-VALID-QTR                                   DTSBX344
00579                  MOVE L004-SLASH-5-QTR      TO QTR-COLL-QUARTER   DTSBX344
00580               ELSE                                                DTSBX344
00581                  MOVE SPACES           TO QTR-COLL-QUARTER        DTSBX344
00582               END-IF                                              DTSBX344
00583         ELSE                                                      DTSBX344
00584            IF MEVL-TEXT(28:1) = 2                                 DTSBX344
00585               MOVE MEVL-TEXT(28:4)       TO QTR-COLL-QUARTER(1:4) DTSBX344
00586               MOVE '/'                   TO QTR-COLL-QUARTER(5:1) DTSBX344
00587               MOVE '4'                   TO QTR-COLL-QUARTER(6:1) DTSBX344
00588            ELSE                                                   DTSBX344
00589               MOVE SPACES         TO QTR-COLL-QUARTER             DTSBX344
00590            END-IF                                                 DTSBX344
00591         END-IF                                                    DTSBX344
00592      END-IF.                                                      DTSBX344
00593 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00594                                                                   DTSBX344
00595      IF MEVL-TEXT (1:17) = 'DELINQUENT NOTICE'                    DTSBX344
00596         SET QTR-COLL-DELINQ-NOTICE-88 TO TRUE                     DTSBX344
00597         MOVE MEVL-TEXT (23:4)         TO W-QTR-3-AREA             DTSBX344
00598         MOVE W-QTR-3-YY               TO L004-QTR-3-YR            DTSBX344
00599         MOVE W-QTR-3-Q                TO L004-QTR-3-Q             DTSBX344
00600         PERFORM S004-FROM-3           THRU S004-EXIT              DTSBX344
00601         IF L004-VALID-QTR                                         DTSBX344
00602            MOVE L004-SLASH-5-QTR      TO QTR-COLL-QUARTER         DTSBX344
00603         ELSE                                                      DTSBX344
00604            MOVE SPACES                TO QTR-COLL-QUARTER         DTSBX344
00605         END-IF                                                    DTSBX344
00606      END-IF.                                                      DTSBX344
00607                                                                   DTSBX344
00608      IF MEVL-TEXT (11:12) = 'LATE PENALTY'                        DTSBX344
00609         SET QTR-COLL-PENALTY-88       TO TRUE                     DTSBX344
00610 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00611         IF MEVL-TEXT(30:1) = '/'                                  DTSBX344
00612            MOVE MEVL-TEXT (28:4)         TO W-QTR-3-AREA          DTSBX344
00613            MOVE W-QTR-3-YY               TO L004-QTR-3-YR         DTSBX344
00614            MOVE W-QTR-3-Q                TO L004-QTR-3-Q          DTSBX344
00615            PERFORM S004-FROM-3           THRU S004-EXIT           DTSBX344
00616            IF L004-VALID-QTR                                      DTSBX344
00617               MOVE L004-SLASH-5-QTR      TO QTR-COLL-QUARTER      DTSBX344
00618            ELSE                                                   DTSBX344
00619               MOVE SPACES                TO QTR-COLL-QUARTER      DTSBX344
00620            END-IF                                                 DTSBX344
00621         ELSE                                                      DTSBX344
00622            IF MEVL-TEXT(28:1) = 2                                 DTSBX344
00623               MOVE MEVL-TEXT(28:4)       TO QTR-COLL-QUARTER(1:4) DTSBX344
00624               MOVE '/'                   TO QTR-COLL-QUARTER(5:1) DTSBX344
00625               MOVE '4'                   TO QTR-COLL-QUARTER(6:1) DTSBX344
00626            ELSE                                                   DTSBX344
00627               MOVE SPACES         TO QTR-COLL-QUARTER             DTSBX344
00628            END-IF                                                 DTSBX344
00629         END-IF                                                    DTSBX344
00630      END-IF.                                                      DTSBX344
00631 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00632                                                                   DTSBX344
00633      IF MEVL-TEXT (18:10) = 'DELINQUENT' OR                       DTSBX344
00634 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00635         MEVL-TEXT (1:18) = 'DELINQUENCY NOTICE'                   DTSBX344
00636 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00637         SET QTR-COLL-INIT-DELINQ-88   TO TRUE                     DTSBX344
00638         MOVE MEVL-TEXT (29:4)         TO W-QTR-3-AREA             DTSBX344
00639         MOVE W-QTR-3-YY               TO L004-QTR-3-YR            DTSBX344
00640         MOVE W-QTR-3-Q                TO L004-QTR-3-Q             DTSBX344
00641         PERFORM S004-FROM-3           THRU S004-EXIT              DTSBX344
00642         IF L004-VALID-QTR                                         DTSBX344
00643            MOVE L004-SLASH-5-QTR      TO QTR-COLL-QUARTER         DTSBX344
00644         ELSE                                                      DTSBX344
00645            MOVE SPACES                TO QTR-COLL-QUARTER         DTSBX344
00646         END-IF                                                    DTSBX344
00647      END-IF.                                                      DTSBX344
00648                                                                   DTSBX344
00649      IF MEVL-TEXT (1:13) = 'FINAL MISSING'                        DTSBX344
00650         SET QTR-COLL-FINAL-DELINQ-88  TO TRUE                     DTSBX344
00651         MOVE MEVL-TEXT (30:4)         TO W-QTR-3-AREA             DTSBX344
00652         MOVE W-QTR-3-YY               TO L004-QTR-3-YR            DTSBX344
00653         MOVE W-QTR-3-Q                TO L004-QTR-3-Q             DTSBX344
00654         PERFORM S004-FROM-3           THRU S004-EXIT              DTSBX344
00655         IF L004-VALID-QTR                                         DTSBX344
00656            MOVE L004-SLASH-5-QTR      TO QTR-COLL-QUARTER         DTSBX344
00657         ELSE                                                      DTSBX344
00658            MOVE SPACES                TO QTR-COLL-QUARTER         DTSBX344
00659         END-IF                                                    DTSBX344
00660      END-IF.                                                      DTSBX344
00661                                                                   DTSBX344
00662 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00663      IF MEVL-TEXT (1:20) = 'NOTICE OF ASSESSMENT'                 DTSBX344
00664         SET QTR-COLL-ESTIMATE-88 TO TRUE                          DTSBX344
00665         MOVE MEVL-TEXT (26:4)         TO W-QTR-3-AREA             DTSBX344
00666         MOVE W-QTR-3-YY               TO L004-QTR-3-YR            DTSBX344
00667         MOVE W-QTR-3-Q                TO L004-QTR-3-Q             DTSBX344
00668         PERFORM S004-FROM-3           THRU S004-EXIT              DTSBX344
00669         IF L004-VALID-QTR                                         DTSBX344
00670            MOVE L004-SLASH-5-QTR      TO QTR-COLL-QUARTER         DTSBX344
00671         ELSE                                                      DTSBX344
00672            MOVE SPACES                TO QTR-COLL-QUARTER         DTSBX344
00673         END-IF                                                    DTSBX344
00674      END-IF.                                                      DTSBX344
00675 *NH ADDED DUE TO WORDING CHANGES FOR EVENT LOG                    DTSBX344
00676                                                                   DTSBX344
00677      MOVE MEVL-DATE              TO L001-FED-8-DATE-9.            DTSBX344
00678      PERFORM S001-FROM-FED-8     THRU S001-EXIT.                  DTSBX344
00679      IF L001-VALID-DATE                                           DTSBX344
00680         MOVE L001-SLASH-8-DATE   TO QTR-COLL-PROCESS-DT           DTSBX344
00681      ELSE                                                         DTSBX344
00682         DISPLAY 'INVALID DATE ' MPRF-EMP-NO                       DTSBX344
00683               '  ' L001-FED-8-DATE-X                              DTSBX344
00684               '  ' MEVL-DATE                                      DTSBX344
00685         MOVE W-DEFAULT-DATE      TO QTR-COLL-PROCESS-DT           DTSBX344
00686      END-IF.                                                      DTSBX344
00687                                                                   DTSBX344
00688      MOVE MEVL-SOURCE            TO QTR-COLL-OPID.                DTSBX344
00689                                                                   DTSBX344
00690      WRITE QTR-COLL-REC          FROM W-QTR-COLL-REC              DTSBX344
00691      IF NOT QCOLL-STATUS-OK-88                                    DTSBX344
00692         DISPLAY 'CANNOT WRITE TO QTR COLL FILE '                  DTSBX344
00693            '  ' QCOLL-STATUS '  ' QTR-COLL-EMP-NO                 DTSBX344
00694      ELSE                                                         DTSBX344
00695         ADD +1 TO W-QCOLL-CNT                                     DTSBX344
00696      END-IF.                                                      DTSBX344
00697                                                                   DTSBX344
00698  P1100-EXIT.                                                      DTSBX344
00699      EXIT.                                                        DTSBX344
00700                                                                   DTSBX344
00701  P2000-AUDITS.                                                    DTSBX344
00702      MOVE LOW-VALUES TO MFAS-KEY-AREA.                            DTSBX344
00703      MOVE MPRF-EMP-NO TO MFAS-EMP-NO.                             DTSBX344
00704      SET MFAS-FAS-88     TO TRUE.                                 DTSBX344
00705      MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA.                         DTSBX344
00706      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBX344
00707      PERFORM UNTIL L910-NO-REC-88                                 DTSBX344
00708         MOVE MSKL-REC                TO MFAS-REC                  DTSBX344
00709         PERFORM P2100-BUILD-AUDIT    THRU P2100-EXIT              DTSBX344
00710         MOVE MFAS-REC                TO MSKL-REC                  DTSBX344
00711         PERFORM S910-START-BROWSE    THRU S910-EXIT               DTSBX344
00712         PERFORM S910-READ-NEXT       THRU S910-EXIT               DTSBX344
00713      END-PERFORM.                                                 DTSBX344
00714                                                                   DTSBX344
00715  P2000-EXIT.                                                      DTSBX344
00716      EXIT.                                                        DTSBX344
00717                                                                   DTSBX344
00718  P2100-BUILD-AUDIT.                                               DTSBX344
00719      IF MFAS-AUDIT-88                                             DTSBX344
00720         EVALUATE TRUE                                             DTSBX344
00721           WHEN MFAS-STATUS-PROCESSED-88                           DTSBX344
00722             IF MFAS-PROCESSED-DATE >= W-AUDIT-START-DT            DTSBX344
00723                PERFORM P2110-FIND-MAUR  THRU P2110-EXIT           DTSBX344
00724                IF L910-OK-88                                      DTSBX344
00725                   PERFORM P2120-PROCESSED THRU P2120-EXIT         DTSBX344
00726                END-IF                                             DTSBX344
00727             END-IF                                                DTSBX344
00728                                                                   DTSBX344
00729           WHEN MFAS-STATUS-KILLED-88                              DTSBX344
00730             IF MFAS-CHNG-DATE >= W-AUDIT-START-DT                 DTSBX344
00731                PERFORM P2130-KILLED    THRU P2130-EXIT            DTSBX344
00732             END-IF                                                DTSBX344
00733                                                                   DTSBX344
00734           WHEN MFAS-STATUS-ACTIVE-88                              DTSBX344
00735 ***NH       IF MFAS-ESTB-DATE >= W-START-DT                       DTSBX344
00736             IF MFAS-ESTB-DATE >= W-AUDIT-START-DT                 DTSBX344
00737                PERFORM P2140-ACTIVE    THRU P2140-EXIT            DTSBX344
00738             END-IF                                                DTSBX344
00739                                                                   DTSBX344
00740           WHEN MFAS-STATUS-COMPLETE-88                            DTSBX344
00741             IF MFAS-COMPLETED-DATE >= W-AUDIT-START-DT            DTSBX344
00742                PERFORM P2150-COMPLETED THRU P2150-EXIT            DTSBX344
00743             END-IF                                                DTSBX344
00744                                                                   DTSBX344
00745         END-EVALUATE                                              DTSBX344
00746      ELSE                                                         DTSBX344
00747         IF MFAS-ASSIGN-TYPE = '14'                                DTSBX344
00748            PERFORM P2160-DELINQUENCY  THRU P2160-EXIT             DTSBX344
00749         END-IF                                                    DTSBX344
00750      END-IF.                                                      DTSBX344
00751                                                                   DTSBX344
00752  P2100-EXIT.                                                      DTSBX344
00753      EXIT.                                                        DTSBX344
00754                                                                   DTSBX344
00755  P2110-FIND-MAUR.                                                 DTSBX344
00756      MOVE LOW-VALUES                TO MAUR-KEY-AREA.             DTSBX344
00757      MOVE MPRF-EMP-NO               TO MAUR-EMP-NO.               DTSBX344
00758      SET MAUR-AUR-88                TO TRUE.                      DTSBX344
00759      MOVE MFAS-ASSIGN-NO            TO MAUR-ASSIGN-NO.            DTSBX344
00760      MOVE MAUR-KEY-AREA             TO MSKL-KEY-AREA.             DTSBX344
00761      PERFORM S910-READ              THRU S910-EXIT.               DTSBX344
00762                                                                   DTSBX344
00763  P2110-EXIT.                                                      DTSBX344
00764      EXIT.                                                        DTSBX344
00765                                                                   DTSBX344
00766  P2120-PROCESSED.                                                 DTSBX344
00767      MOVE MFAS-EMP-NO               TO AUDIT-EMP-NO.              DTSBX344
00768                                                                   DTSBX344
00769      MOVE MFAS-ASSIGN-NO            TO WRK-ASSIGN.                DTSBX344
00770      MOVE WRK-ASSIGN-YY             TO WRK-FLD-ASSIGN-YEAR.       DTSBX344
00771      MOVE WRK-ASSIGN-NBR            TO WRK-FLD-ASSIGN-NBR.        DTSBX344
00772      MOVE WRK-FLD-ASSIGN            TO AUDIT-ASSIGN-NO.           DTSBX344
00773      MOVE MFAS-STATUS-CD            TO AUDIT-STATUS-CD.           DTSBX344
00774                                                                   DTSBX344
00775      MOVE MFAS-START-DATE           TO L001-FED-8-DATE-9.         DTSBX344
00776      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00777      IF L001-VALID-DATE                                           DTSBX344
00778         MOVE L001-SLASH-8-DATE      TO AUDIT-START-DT             DTSBX344
00779      ELSE                                                         DTSBX344
00780         MOVE SPACES                 TO AUDIT-START-DT             DTSBX344
00781      END-IF.                                                      DTSBX344
00782                                                                   DTSBX344
00783      MOVE MFAS-START-YRQ            TO L004-QTR-5-9.              DTSBX344
00784      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
00785      IF L004-VALID-QTR                                            DTSBX344
00786         MOVE L004-SLASH-5-QTR       TO AUDIT-START-QTR            DTSBX344
00787      ELSE                                                         DTSBX344
00788         MOVE SPACES                 TO AUDIT-START-QTR            DTSBX344
00789      END-IF.                                                      DTSBX344
00790                                                                   DTSBX344
00791      MOVE MFAS-END-YRQ              TO L004-QTR-5-9.              DTSBX344
00792      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
00793      IF L004-VALID-QTR                                            DTSBX344
00794         MOVE L004-SLASH-5-QTR       TO AUDIT-END-QTR              DTSBX344
00795      ELSE                                                         DTSBX344
00796         MOVE SPACES                 TO AUDIT-END-QTR              DTSBX344
00797      END-IF.                                                      DTSBX344
00798                                                                   DTSBX344
00799      MOVE MFAS-COMPLETED-DATE       TO L001-FED-8-DATE-9.         DTSBX344
00800      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00801      IF L001-VALID-DATE                                           DTSBX344
00802         MOVE L001-SLASH-8-DATE      TO AUDIT-COMPLETE-DT          DTSBX344
00803      ELSE                                                         DTSBX344
00804         MOVE SPACES                 TO AUDIT-COMPLETE-DT          DTSBX344
00805      END-IF.                                                      DTSBX344
00806                                                                   DTSBX344
00807      MOVE MFAS-PROCESSED-DATE       TO L001-FED-8-DATE-9.         DTSBX344
00808      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00809      IF L001-VALID-DATE                                           DTSBX344
00810         MOVE L001-SLASH-8-DATE      TO AUDIT-PROCESS-DT           DTSBX344
00811      ELSE                                                         DTSBX344
00812         MOVE SPACES                 TO AUDIT-PROCESS-DT           DTSBX344
00813      END-IF.                                                      DTSBX344
00814                                                                   DTSBX344
00815      MOVE MFAS-FLD-REP-ID           TO L062-FLD-REP-ID.           DTSBX344
00816      PERFORM S062-LOOKUP-FLD-REP    THRU S062-EXIT.               DTSBX344
00817      MOVE L062-OP-ID                TO AUDIT-OPID.                DTSBX344
00818                                                                   DTSBX344
00819      MOVE MFAS-ASSIGN-TYPE          TO AUDIT-ASSIGN-TYPE.         DTSBX344
00820                                                                   DTSBX344
00821      MOVE MFAS-AUDIT-IND            TO AUDIT-IND.                 DTSBX344
00822                                                                   DTSBX344
00823      MOVE MFAS-DUE-DATE             TO L001-FED-8-DATE-9.         DTSBX344
00824      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00825      IF L001-VALID-DATE                                           DTSBX344
00826         MOVE L001-SLASH-8-DATE      TO AUDIT-DUE-DATE             DTSBX344
00827      ELSE                                                         DTSBX344
00828         MOVE SPACES                 TO AUDIT-DUE-DATE             DTSBX344
00829      END-IF.                                                      DTSBX344
00830                                                                   DTSBX344
00831      MOVE MFAS-NAICS-CD             TO AUDIT-NAICS-CD.            DTSBX344
00832                                                                   DTSBX344
00833      MOVE MFAS-EMP-SIZE-IND         TO AUDIT-EMP-SIZE-IND.        DTSBX344
00834                                                                   DTSBX344
00835      MOVE MFAS-CHNG-DATE            TO L001-FED-8-DATE-9.         DTSBX344
00836      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00837      IF L001-VALID-DATE                                           DTSBX344
00838         MOVE L001-SLASH-8-DATE      TO AUDIT-CHANGE-DATE          DTSBX344
00839      ELSE                                                         DTSBX344
00840         MOVE SPACES                 TO AUDIT-CHANGE-DATE          DTSBX344
00841      END-IF.                                                      DTSBX344
00842                                                                   DTSBX344
00843      WRITE AUDIT-REC                FROM W-AUDIT-REC              DTSBX344
00844      IF NOT AUDIT-STATUS-OK-88                                    DTSBX344
00845         DISPLAY 'CANNOT WRITE PROCESSED AUDIT '                   DTSBX344
00846            '  ' AUDIT-STATUS '  ' AUDIT-EMP-NO                    DTSBX344
00847      ELSE                                                         DTSBX344
00848         ADD +1 TO W-AUDIT-CNT                                     DTSBX344
00849      END-IF.                                                      DTSBX344
00850                                                                   DTSBX344
00851  P2120-EXIT.                                                      DTSBX344
00852      EXIT.                                                        DTSBX344
00853                                                                   DTSBX344
00854  P2130-KILLED.                                                    DTSBX344
00855      MOVE MFAS-EMP-NO               TO AUDIT-EMP-NO.              DTSBX344
00856                                                                   DTSBX344
00857      MOVE MFAS-ASSIGN-NO            TO WRK-ASSIGN.                DTSBX344
00858      MOVE WRK-ASSIGN-YY             TO WRK-FLD-ASSIGN-YEAR.       DTSBX344
00859      MOVE WRK-ASSIGN-NBR            TO WRK-FLD-ASSIGN-NBR.        DTSBX344
00860      MOVE WRK-FLD-ASSIGN            TO AUDIT-ASSIGN-NO.           DTSBX344
00861      MOVE MFAS-STATUS-CD            TO AUDIT-STATUS-CD.           DTSBX344
00862                                                                   DTSBX344
00863      MOVE MFAS-START-DATE           TO L001-FED-8-DATE-9.         DTSBX344
00864      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00865      IF L001-VALID-DATE                                           DTSBX344
00866         MOVE L001-SLASH-8-DATE      TO AUDIT-START-DT             DTSBX344
00867      ELSE                                                         DTSBX344
00868         MOVE SPACES                 TO AUDIT-START-DT             DTSBX344
00869      END-IF.                                                      DTSBX344
00870                                                                   DTSBX344
00871      MOVE MFAS-START-YRQ            TO L004-QTR-5-9.              DTSBX344
00872      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
00873      IF L004-VALID-QTR                                            DTSBX344
00874         MOVE L004-SLASH-5-QTR       TO AUDIT-START-QTR            DTSBX344
00875      ELSE                                                         DTSBX344
00876         MOVE SPACES                 TO AUDIT-START-QTR            DTSBX344
00877      END-IF.                                                      DTSBX344
00878                                                                   DTSBX344
00879      MOVE MFAS-END-YRQ              TO L004-QTR-5-9.              DTSBX344
00880      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
00881      IF L004-VALID-QTR                                            DTSBX344
00882         MOVE L004-SLASH-5-QTR       TO AUDIT-END-QTR              DTSBX344
00883      ELSE                                                         DTSBX344
00884         MOVE SPACES                 TO AUDIT-END-QTR              DTSBX344
00885      END-IF.                                                      DTSBX344
00886                                                                   DTSBX344
00887      MOVE MFAS-CHNG-DATE            TO L001-FED-8-DATE-9.         DTSBX344
00888      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00889      IF L001-VALID-DATE                                           DTSBX344
00890         MOVE L001-SLASH-8-DATE      TO AUDIT-COMPLETE-DT          DTSBX344
00891      ELSE                                                         DTSBX344
00892         MOVE SPACES                 TO AUDIT-COMPLETE-DT          DTSBX344
00893      END-IF.                                                      DTSBX344
00894                                                                   DTSBX344
00895      MOVE SPACES                    TO AUDIT-PROCESS-DT.          DTSBX344
00896                                                                   DTSBX344
00897      MOVE MFAS-FLD-REP-ID           TO L062-FLD-REP-ID.           DTSBX344
00898      PERFORM S062-LOOKUP-FLD-REP    THRU S062-EXIT.               DTSBX344
00899      MOVE L062-OP-ID                TO AUDIT-OPID.                DTSBX344
00900                                                                   DTSBX344
00901      MOVE MFAS-ASSIGN-TYPE          TO AUDIT-ASSIGN-TYPE.         DTSBX344
00902                                                                   DTSBX344
00903      MOVE MFAS-AUDIT-IND            TO AUDIT-IND.                 DTSBX344
00904                                                                   DTSBX344
00905      MOVE MFAS-DUE-DATE             TO L001-FED-8-DATE-9.         DTSBX344
00906      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00907      IF L001-VALID-DATE                                           DTSBX344
00908         MOVE L001-SLASH-8-DATE      TO AUDIT-DUE-DATE             DTSBX344
00909      ELSE                                                         DTSBX344
00910         MOVE SPACES                 TO AUDIT-DUE-DATE             DTSBX344
00911      END-IF.                                                      DTSBX344
00912                                                                   DTSBX344
00913      MOVE MFAS-NAICS-CD             TO AUDIT-NAICS-CD.            DTSBX344
00914                                                                   DTSBX344
00915      MOVE MFAS-EMP-SIZE-IND         TO AUDIT-EMP-SIZE-IND.        DTSBX344
00916                                                                   DTSBX344
00917      MOVE MFAS-CHNG-DATE            TO L001-FED-8-DATE-9.         DTSBX344
00918      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00919      IF L001-VALID-DATE                                           DTSBX344
00920         MOVE L001-SLASH-8-DATE      TO AUDIT-CHANGE-DATE          DTSBX344
00921      ELSE                                                         DTSBX344
00922         MOVE SPACES                 TO AUDIT-CHANGE-DATE          DTSBX344
00923      END-IF.                                                      DTSBX344
00924                                                                   DTSBX344
00925      WRITE AUDIT-REC          FROM W-AUDIT-REC                    DTSBX344
00926      IF NOT AUDIT-STATUS-OK-88                                    DTSBX344
00927         DISPLAY 'CANNOT WRITE KILLED-AUDIT '                      DTSBX344
00928            '  ' AUDIT-STATUS '  ' AUDIT-EMP-NO                    DTSBX344
00929      ELSE                                                         DTSBX344
00930         ADD +1 TO W-AUDIT-CNT                                     DTSBX344
00931      END-IF.                                                      DTSBX344
00932                                                                   DTSBX344
00933  P2130-EXIT.                                                      DTSBX344
00934      EXIT.                                                        DTSBX344
00935                                                                   DTSBX344
00936  P2140-ACTIVE.                                                    DTSBX344
00937      MOVE MFAS-EMP-NO               TO AUDIT-EMP-NO.              DTSBX344
00938                                                                   DTSBX344
00939      MOVE MFAS-ASSIGN-NO            TO WRK-ASSIGN.                DTSBX344
00940      MOVE WRK-ASSIGN-YY             TO WRK-FLD-ASSIGN-YEAR.       DTSBX344
00941      MOVE WRK-ASSIGN-NBR            TO WRK-FLD-ASSIGN-NBR.        DTSBX344
00942      MOVE WRK-FLD-ASSIGN            TO AUDIT-ASSIGN-NO.           DTSBX344
00943      MOVE MFAS-STATUS-CD            TO AUDIT-STATUS-CD.           DTSBX344
00944                                                                   DTSBX344
00945      MOVE MFAS-START-DATE           TO L001-FED-8-DATE-9.         DTSBX344
00946      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00947      IF L001-VALID-DATE                                           DTSBX344
00948         MOVE L001-SLASH-8-DATE      TO AUDIT-START-DT             DTSBX344
00949      ELSE                                                         DTSBX344
00950         MOVE SPACES                 TO AUDIT-START-DT             DTSBX344
00951      END-IF.                                                      DTSBX344
00952                                                                   DTSBX344
00953      MOVE MFAS-START-YRQ            TO L004-QTR-5-9.              DTSBX344
00954      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
00955      IF L004-VALID-QTR                                            DTSBX344
00956         MOVE L004-SLASH-5-QTR       TO AUDIT-START-QTR            DTSBX344
00957      ELSE                                                         DTSBX344
00958         MOVE SPACES                 TO AUDIT-START-QTR            DTSBX344
00959      END-IF.                                                      DTSBX344
00960                                                                   DTSBX344
00961      MOVE MFAS-END-YRQ              TO L004-QTR-5-9.              DTSBX344
00962      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
00963      IF L004-VALID-QTR                                            DTSBX344
00964         MOVE L004-SLASH-5-QTR       TO AUDIT-END-QTR              DTSBX344
00965      ELSE                                                         DTSBX344
00966         MOVE SPACES                 TO AUDIT-END-QTR              DTSBX344
00967      END-IF.                                                      DTSBX344
00968                                                                   DTSBX344
00969      MOVE MFAS-CHNG-DATE            TO L001-FED-8-DATE-9.         DTSBX344
00970      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00971      IF L001-VALID-DATE                                           DTSBX344
00972         MOVE L001-SLASH-8-DATE      TO AUDIT-COMPLETE-DT          DTSBX344
00973      ELSE                                                         DTSBX344
00974         MOVE SPACES                 TO AUDIT-COMPLETE-DT          DTSBX344
00975      END-IF.                                                      DTSBX344
00976                                                                   DTSBX344
00977      MOVE SPACES                    TO AUDIT-PROCESS-DT.          DTSBX344
00978                                                                   DTSBX344
00979      MOVE MFAS-FLD-REP-ID           TO L062-FLD-REP-ID.           DTSBX344
00980      PERFORM S062-LOOKUP-FLD-REP    THRU S062-EXIT.               DTSBX344
00981      MOVE L062-OP-ID                TO AUDIT-OPID.                DTSBX344
00982                                                                   DTSBX344
00983      MOVE MFAS-ASSIGN-TYPE          TO AUDIT-ASSIGN-TYPE.         DTSBX344
00984                                                                   DTSBX344
00985      MOVE MFAS-AUDIT-IND            TO AUDIT-IND.                 DTSBX344
00986                                                                   DTSBX344
00987      MOVE MFAS-DUE-DATE             TO L001-FED-8-DATE-9.         DTSBX344
00988      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
00989      IF L001-VALID-DATE                                           DTSBX344
00990         MOVE L001-SLASH-8-DATE      TO AUDIT-DUE-DATE             DTSBX344
00991      ELSE                                                         DTSBX344
00992         MOVE SPACES                 TO AUDIT-DUE-DATE             DTSBX344
00993      END-IF.                                                      DTSBX344
00994                                                                   DTSBX344
00995      MOVE MFAS-NAICS-CD             TO AUDIT-NAICS-CD.            DTSBX344
00996                                                                   DTSBX344
00997      MOVE MFAS-EMP-SIZE-IND         TO AUDIT-EMP-SIZE-IND.        DTSBX344
00998                                                                   DTSBX344
00999      MOVE MFAS-CHNG-DATE            TO L001-FED-8-DATE-9.         DTSBX344
01000      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
01001      IF L001-VALID-DATE                                           DTSBX344
01002         MOVE L001-SLASH-8-DATE      TO AUDIT-CHANGE-DATE          DTSBX344
01003      ELSE                                                         DTSBX344
01004         MOVE SPACES                 TO AUDIT-CHANGE-DATE          DTSBX344
01005      END-IF.                                                      DTSBX344
01006                                                                   DTSBX344
01007      WRITE AUDIT-REC          FROM W-AUDIT-REC                    DTSBX344
01008      IF NOT AUDIT-STATUS-OK-88                                    DTSBX344
01009         DISPLAY 'CANNOT WRITE ACTIVE AUDIT '                      DTSBX344
01010            '  ' AUDIT-STATUS '  ' AUDIT-EMP-NO                    DTSBX344
01011      ELSE                                                         DTSBX344
01012         ADD +1 TO W-AUDIT-CNT                                     DTSBX344
01013         ADD +1 TO W-ACTIVE-CNT                                    DTSBX344
01014      END-IF.                                                      DTSBX344
01015                                                                   DTSBX344
01016  P2140-EXIT.                                                      DTSBX344
01017      EXIT.                                                        DTSBX344
01018                                                                   DTSBX344
01019  P2150-COMPLETED.                                                 DTSBX344
01020      MOVE MFAS-EMP-NO               TO AUDIT-EMP-NO.              DTSBX344
01021                                                                   DTSBX344
01022      MOVE MFAS-ASSIGN-NO            TO WRK-ASSIGN.                DTSBX344
01023      MOVE WRK-ASSIGN-YY             TO WRK-FLD-ASSIGN-YEAR.       DTSBX344
01024      MOVE WRK-ASSIGN-NBR            TO WRK-FLD-ASSIGN-NBR.        DTSBX344
01025      MOVE WRK-FLD-ASSIGN            TO AUDIT-ASSIGN-NO.           DTSBX344
01026      MOVE MFAS-STATUS-CD            TO AUDIT-STATUS-CD.           DTSBX344
01027                                                                   DTSBX344
01028      MOVE MFAS-START-DATE           TO L001-FED-8-DATE-9.         DTSBX344
01029      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
01030      IF L001-VALID-DATE                                           DTSBX344
01031         MOVE L001-SLASH-8-DATE      TO AUDIT-START-DT             DTSBX344
01032      ELSE                                                         DTSBX344
01033         MOVE SPACES                 TO AUDIT-START-DT             DTSBX344
01034      END-IF.                                                      DTSBX344
01035                                                                   DTSBX344
01036      MOVE MFAS-START-YRQ            TO L004-QTR-5-9.              DTSBX344
01037      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
01038      IF L004-VALID-QTR                                            DTSBX344
01039         MOVE L004-SLASH-5-QTR       TO AUDIT-START-QTR            DTSBX344
01040      ELSE                                                         DTSBX344
01041         MOVE SPACES                 TO AUDIT-START-QTR            DTSBX344
01042      END-IF.                                                      DTSBX344
01043                                                                   DTSBX344
01044      MOVE MFAS-END-YRQ              TO L004-QTR-5-9.              DTSBX344
01045      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
01046      IF L004-VALID-QTR                                            DTSBX344
01047         MOVE L004-SLASH-5-QTR       TO AUDIT-END-QTR              DTSBX344
01048      ELSE                                                         DTSBX344
01049         MOVE SPACES                 TO AUDIT-END-QTR              DTSBX344
01050      END-IF.                                                      DTSBX344
01051                                                                   DTSBX344
01052      MOVE MFAS-COMPLETED-DATE       TO L001-FED-8-DATE-9.         DTSBX344
01053      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
01054      IF L001-VALID-DATE                                           DTSBX344
01055         MOVE L001-SLASH-8-DATE      TO AUDIT-COMPLETE-DT          DTSBX344
01056      ELSE                                                         DTSBX344
01057         MOVE SPACES                 TO AUDIT-COMPLETE-DT          DTSBX344
01058      END-IF.                                                      DTSBX344
01059                                                                   DTSBX344
01060      MOVE SPACES                    TO AUDIT-PROCESS-DT.          DTSBX344
01061                                                                   DTSBX344
01062      MOVE MFAS-FLD-REP-ID           TO L062-FLD-REP-ID.           DTSBX344
01063      PERFORM S062-LOOKUP-FLD-REP    THRU S062-EXIT.               DTSBX344
01064      MOVE L062-OP-ID                TO AUDIT-OPID.                DTSBX344
01065                                                                   DTSBX344
01066      MOVE MFAS-ASSIGN-TYPE          TO AUDIT-ASSIGN-TYPE.         DTSBX344
01067                                                                   DTSBX344
01068      MOVE MFAS-AUDIT-IND            TO AUDIT-IND.                 DTSBX344
01069                                                                   DTSBX344
01070      MOVE MFAS-DUE-DATE             TO L001-FED-8-DATE-9.         DTSBX344
01071      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
01072      IF L001-VALID-DATE                                           DTSBX344
01073         MOVE L001-SLASH-8-DATE      TO AUDIT-DUE-DATE             DTSBX344
01074      ELSE                                                         DTSBX344
01075         MOVE SPACES                 TO AUDIT-DUE-DATE             DTSBX344
01076      END-IF.                                                      DTSBX344
01077                                                                   DTSBX344
01078      MOVE MFAS-NAICS-CD             TO AUDIT-NAICS-CD.            DTSBX344
01079                                                                   DTSBX344
01080      MOVE MFAS-EMP-SIZE-IND         TO AUDIT-EMP-SIZE-IND.        DTSBX344
01081                                                                   DTSBX344
01082      MOVE MFAS-CHNG-DATE            TO L001-FED-8-DATE-9.         DTSBX344
01083      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
01084      IF L001-VALID-DATE                                           DTSBX344
01085         MOVE L001-SLASH-8-DATE      TO AUDIT-CHANGE-DATE          DTSBX344
01086      ELSE                                                         DTSBX344
01087         MOVE SPACES                 TO AUDIT-CHANGE-DATE          DTSBX344
01088      END-IF.                                                      DTSBX344
01089                                                                   DTSBX344
01090      WRITE AUDIT-REC          FROM W-AUDIT-REC                    DTSBX344
01091      IF NOT AUDIT-STATUS-OK-88                                    DTSBX344
01092         DISPLAY 'CANNOT WRITE PROCESSED AUDIT '                   DTSBX344
01093            '  ' AUDIT-STATUS '  ' AUDIT-EMP-NO                    DTSBX344
01094      ELSE                                                         DTSBX344
01095         ADD +1 TO W-AUDIT-CNT                                     DTSBX344
01096      END-IF.                                                      DTSBX344
01097                                                                   DTSBX344
01098  P2150-EXIT.                                                      DTSBX344
01099      EXIT.                                                        DTSBX344
01100                                                                   DTSBX344
01101  P2160-DELINQUENCY.                                               DTSBX344
01102      MOVE MFAS-EMP-NO               TO AUDIT-EMP-NO.              DTSBX344
01103                                                                   DTSBX344
01104      MOVE MFAS-ASSIGN-NO            TO WRK-ASSIGN.                DTSBX344
01105      MOVE WRK-ASSIGN-YY             TO WRK-FLD-ASSIGN-YEAR.       DTSBX344
01106      MOVE WRK-ASSIGN-NBR            TO WRK-FLD-ASSIGN-NBR.        DTSBX344
01107      MOVE WRK-FLD-ASSIGN            TO AUDIT-ASSIGN-NO.           DTSBX344
01108      MOVE MFAS-STATUS-CD            TO AUDIT-STATUS-CD.           DTSBX344
01109                                                                   DTSBX344
01110      MOVE MFAS-START-DATE           TO L001-FED-8-DATE-9.         DTSBX344
01111      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
01112      IF L001-VALID-DATE                                           DTSBX344
01113         MOVE L001-SLASH-8-DATE      TO AUDIT-START-DT             DTSBX344
01114      ELSE                                                         DTSBX344
01115         MOVE SPACES                 TO AUDIT-START-DT             DTSBX344
01116      END-IF.                                                      DTSBX344
01117                                                                   DTSBX344
01118 **   MOVE MFAS-SAVET-YRQ            TO L004-QTR-5-9.              DTSBX344
01119      MOVE 20131                     TO L004-QTR-5-9.              DTSBX344
01120      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
01121      IF L004-VALID-QTR                                            DTSBX344
01122         MOVE L004-SLASH-5-QTR       TO AUDIT-START-QTR            DTSBX344
01123      ELSE                                                         DTSBX344
01124         MOVE SPACES                 TO AUDIT-START-QTR            DTSBX344
01125      END-IF.                                                      DTSBX344
01126                                                                   DTSBX344
01127 **   MOVE MFAS-END-YRQ              TO L004-QTR-5-9.              DTSBX344
01128      MOVE 20131                     TO L004-QTR-5-9.              DTSBX344
01129      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX344
01130      IF L004-VALID-QTR                                            DTSBX344
01131         MOVE L004-SLASH-5-QTR       TO AUDIT-END-QTR              DTSBX344
01132      ELSE                                                         DTSBX344
01133         MOVE SPACES                 TO AUDIT-END-QTR              DTSBX344
01134      END-IF.                                                      DTSBX344
01135                                                                   DTSBX344
01136      MOVE MFAS-COMPLETED-DATE       TO L001-FED-8-DATE-9.         DTSBX344
01137      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
01138      IF L001-VALID-DATE                                           DTSBX344
01139         MOVE L001-SLASH-8-DATE      TO AUDIT-COMPLETE-DT          DTSBX344
01140      ELSE                                                         DTSBX344
01141         MOVE SPACES                 TO AUDIT-COMPLETE-DT          DTSBX344
01142      END-IF.                                                      DTSBX344
01143                                                                   DTSBX344
01144      MOVE SPACES                    TO AUDIT-PROCESS-DT.          DTSBX344
01145                                                                   DTSBX344
01146      MOVE MPRF-FLD-ZIP              TO L061-FLD-ZIP.              DTSBX344
01147      MOVE MPRF-FLD-ST               TO L061-FLD-ST.               DTSBX344
01148      MOVE MPRF-EMP-NO               TO L061-EMP-NO.               DTSBX344
01149      PERFORM S061-LOOKUP-FLD-REP-ID THRU S061-EXIT.               DTSBX344
01150                                                                   DTSBX344
01151 **   MOVE MFAS-FLD-REP-ID           TO L062-FLD-REP-ID.           DTSBX344
01152      MOVE L061-FLD-REP-ID           TO L062-FLD-REP-ID.           DTSBX344
01153      PERFORM S062-LOOKUP-FLD-REP    THRU S062-EXIT.               DTSBX344
01154      MOVE L062-OP-ID                TO AUDIT-OPID.                DTSBX344
01155                                                                   DTSBX344
01156      MOVE MFAS-ASSIGN-TYPE          TO AUDIT-ASSIGN-TYPE.         DTSBX344
01157                                                                   DTSBX344
01158      MOVE MFAS-AUDIT-IND            TO AUDIT-IND.                 DTSBX344
01159                                                                   DTSBX344
01160      MOVE MFAS-DUE-DATE             TO L001-FED-8-DATE-9.         DTSBX344
01161      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
01162      IF L001-VALID-DATE                                           DTSBX344
01163         MOVE L001-SLASH-8-DATE      TO AUDIT-DUE-DATE             DTSBX344
01164      ELSE                                                         DTSBX344
01165         MOVE SPACES                 TO AUDIT-DUE-DATE             DTSBX344
01166      END-IF.                                                      DTSBX344
01167                                                                   DTSBX344
01168      MOVE MFAS-NAICS-CD             TO AUDIT-NAICS-CD.            DTSBX344
01169                                                                   DTSBX344
01170      MOVE MFAS-EMP-SIZE-IND         TO AUDIT-EMP-SIZE-IND.        DTSBX344
01171                                                                   DTSBX344
01172      MOVE MFAS-CHNG-DATE            TO L001-FED-8-DATE-9.         DTSBX344
01173      PERFORM S001-FROM-FED-8        THRU S001-EXIT.               DTSBX344
01174      IF L001-VALID-DATE                                           DTSBX344
01175         MOVE L001-SLASH-8-DATE      TO AUDIT-CHANGE-DATE          DTSBX344
01176      ELSE                                                         DTSBX344
01177         MOVE SPACES                 TO AUDIT-CHANGE-DATE          DTSBX344
01178      END-IF.                                                      DTSBX344
01179                                                                   DTSBX344
01180      WRITE AUDIT-REC          FROM W-AUDIT-REC                    DTSBX344
01181      IF NOT AUDIT-STATUS-OK-88                                    DTSBX344
01182         DISPLAY 'CANNOT WRITE DELINQUENCY AUDIT '                 DTSBX344
01183            '  ' AUDIT-STATUS '  ' AUDIT-EMP-NO                    DTSBX344
01184      ELSE                                                         DTSBX344
01185         ADD +1 TO W-AUDIT-CNT                                     DTSBX344
01186      END-IF.                                                      DTSBX344
01187                                                                   DTSBX344
01188  P2160-EXIT.                                                      DTSBX344
01189      EXIT.                                                        DTSBX344
01190                                                                   DTSBX344
01191  P3000-LIENS.                                                     DTSBX344
01192      MOVE LOW-VALUES                  TO MLIN-KEY-AREA.           DTSBX344
01193      MOVE MPRF-EMP-NO                 TO MLIN-EMP-NO.             DTSBX344
01194      SET MLIN-LIN-88                  TO TRUE.                    DTSBX344
01195      MOVE MLIN-KEY-AREA               TO MSKL-KEY-AREA.           DTSBX344
01196      PERFORM S910-START-BROWSE        THRU S910-EXIT.             DTSBX344
01197      PERFORM UNTIL L910-NO-REC-88                                 DTSBX344
01198         MOVE MSKL-REC                 TO MLIN-REC                 DTSBX344
01199         PERFORM P3100-BUILD-LIEN      THRU P3100-EXIT             DTSBX344
01200         PERFORM P3200-BUILD-LIEN-QTR  THRU P3200-EXIT             DTSBX344
01201         PERFORM S910-READ-NEXT       THRU S910-EXIT               DTSBX344
01202      END-PERFORM.                                                 DTSBX344
01203                                                                   DTSBX344
01204  P3000-EXIT.                                                      DTSBX344
01205      EXIT.                                                        DTSBX344
01206                                                                   DTSBX344
01207  P3100-BUILD-LIEN.                                                DTSBX344
01208      MOVE MPRF-EMP-NO                 TO X165-EMP-NO.             DTSBX344
01209      MOVE MLIN-CERTIFICATE-NO         TO X165-CERTIFICATE-NO.     DTSBX344
01210      IF MLIN-REC-DEEDS-NO = LOW-VALUES                            DTSBX344
01211         MOVE SPACES                   TO X165-REC-DEEDS-NO        DTSBX344
01212      ELSE                                                         DTSBX344
01213         MOVE MLIN-REC-DEEDS-NO        TO X165-REC-DEEDS-NO        DTSBX344
01214      END-IF.                                                      DTSBX344
01215      MOVE MLIN-FLD-REP-ID             TO X165-FIELD-REP-ID.       DTSBX344
01216                                                                   DTSBX344
01217      MOVE MLIN-CERTIFICATE-DATE       TO L001-FED-8-DATE-9.       DTSBX344
01218      PERFORM S001-FROM-FED-8          THRU S001-EXIT.             DTSBX344
01219      IF L001-INVALID-DATE                                         DTSBX344
01220         MOVE SPACES                   TO X165-CERTIFICATE-DATE    DTSBX344
01221      ELSE                                                         DTSBX344
01222         MOVE L001-SLASH-8-DATE        TO X165-CERTIFICATE-DATE    DTSBX344
01223      END-IF.                                                      DTSBX344
01224                                                                   DTSBX344
01225      MOVE MLIN-ESTB-DATE              TO L001-FED-8-DATE-9.       DTSBX344
01226      PERFORM S001-FROM-FED-8          THRU S001-EXIT.             DTSBX344
01227      IF L001-INVALID-DATE                                         DTSBX344
01228         MOVE SPACES                   TO X165-ESTB-DATE           DTSBX344
01229      ELSE                                                         DTSBX344
01230         MOVE L001-SLASH-8-DATE        TO X165-ESTB-DATE           DTSBX344
01231      END-IF.                                                      DTSBX344
01232                                                                   DTSBX344
01233      MOVE MLIN-CHNG-DATE              TO L001-FED-8-DATE-9.       DTSBX344
01234      PERFORM S001-FROM-FED-8          THRU S001-EXIT.             DTSBX344
01235      IF L001-INVALID-DATE                                         DTSBX344
01236         MOVE SPACES                   TO X165-CHNG-DATE           DTSBX344
01237      ELSE                                                         DTSBX344
01238         MOVE L001-SLASH-8-DATE        TO X165-CHNG-DATE           DTSBX344
01239      END-IF.                                                      DTSBX344
01240                                                                   DTSBX344
01241      MOVE MLIN-STATUS-CD              TO X165-STATUS-CD.          DTSBX344
01242                                                                   DTSBX344
01243      MOVE MLIN-STATUS-DATE            TO L001-FED-8-DATE-9.       DTSBX344
01244      PERFORM S001-FROM-FED-8          THRU S001-EXIT.             DTSBX344
01245      IF L001-INVALID-DATE                                         DTSBX344
01246         MOVE SPACES                   TO X165-STATUS-DATE         DTSBX344
01247      ELSE                                                         DTSBX344
01248         MOVE L001-SLASH-8-DATE        TO X165-STATUS-DATE         DTSBX344
01249      END-IF.                                                      DTSBX344
01250                                                                   DTSBX344
01251      MOVE MLIN-STATUS-OP-ID           TO X165-STATUS-OPID.        DTSBX344
01252                                                                   DTSBX344
01253      WRITE LIEN-REC                   FROM X165-REC.              DTSBX344
01254      IF NOT LIEN-STATUS-OK-88                                     DTSBX344
01255         DISPLAY 'CANNOT WRITE LIEN REC '                          DTSBX344
01256            '  ' LIEN-STATUS '  ' X165-EMP-NO                      DTSBX344
01257      ELSE                                                         DTSBX344
01258         ADD +1 TO W-LIEN-CNT                                      DTSBX344
01259      END-IF.                                                      DTSBX344
01260                                                                   DTSBX344
01261  P3100-EXIT.                                                      DTSBX344
01262      EXIT.                                                        DTSBX344
01263                                                                   DTSBX344
01264  P3200-BUILD-LIEN-QTR.                                            DTSBX344
01265      MOVE MPRF-EMP-NO                 TO X166-EMP-NO.             DTSBX344
01266      MOVE MLIN-CERTIFICATE-NO         TO X166-CERTIFICATE-NO.     DTSBX344
01267                                                                   DTSBX344
01268      PERFORM                                                      DTSBX344
01269        VARYING SUB FROM +1 BY +1                                  DTSBX344
01270        UNTIL SUB > +20                                            DTSBX344
01271          PERFORM P3210-WRITE-QTR      THRU P3210-EXIT             DTSBX344
01272      END-PERFORM.                                                 DTSBX344
01273                                                                   DTSBX344
01274  P3200-EXIT.                                                      DTSBX344
01275      EXIT.                                                        DTSBX344
01276                                                                   DTSBX344
01277  P3210-WRITE-QTR.                                                 DTSBX344
01278      MOVE MLIN-COVERED-YRQ (SUB)      TO L004-QTR-5-9.            DTSBX344
01279      PERFORM S004-FROM-5              THRU S004-EXIT.             DTSBX344
01280      IF L004-VALID-QTR                                            DTSBX344
01281         MOVE L004-SLASH-5-QTR         TO X166-LIEN-QTR            DTSBX344
01282         WRITE LIEN-QTR-REC            FROM X166-REC               DTSBX344
01283         IF NOT LIEN-QTR-STATUS-OK-88                              DTSBX344
01284            DISPLAY 'CANNOT WRITE LIEN QTR REC '                   DTSBX344
01285               '  ' LIEN-QTR-STATUS '  ' X166-EMP-NO               DTSBX344
01286         ELSE                                                      DTSBX344
01287            ADD +1                     TO W-LIEN-QTR-CNT           DTSBX344
01288         END-IF                                                    DTSBX344
01289      END-IF.                                                      DTSBX344
01290                                                                   DTSBX344
01291  P3210-EXIT.                                                      DTSBX344
01292      EXIT.                                                        DTSBX344
01293                                                                   DTSBX344
01294  P4000-DPC.                                                       DTSBX344
01295      MOVE LOW-VALUES                     TO MDPC-KEY-AREA.        DTSBX344
01296      MOVE MPRF-EMP-NO                    TO MDPC-EMP-NO.          DTSBX344
01297      SET MDPC-DPC-88                     TO TRUE.                 DTSBX344
01298      MOVE MDPC-KEY-AREA                  TO MSKL-KEY-AREA.        DTSBX344
01299                                                                   DTSBX344
01300      PERFORM S910-START-BROWSE           THRU S910-EXIT.          DTSBX344
01301      PERFORM UNTIL L910-NO-REC-88                                 DTSBX344
01302         MOVE MSKL-REC                    TO MDPC-REC              DTSBX344
01303         IF MPRF-EMP-NO = 143103                                   DTSBX344
01304            DISPLAY 'P40 ' MPRF-EMP-NO '  ' MDPC-STATUS-CD         DTSBX344
01305               '  ' MDPC-ESTB-DATE                                 DTSBX344
01306         END-IF                                                    DTSBX344
01307         IF MDPC-STATUS-ACTIVE-88                                  DTSBX344
01308         OR MDPC-STATUS-SATISFIED-88                               DTSBX344
01309            PERFORM P4100-BUILD-DPC       THRU P4100-EXIT          DTSBX344
01310            PERFORM P4200-BUILD-DPC-QTR   THRU P4200-EXIT          DTSBX344
01311         END-IF                                                    DTSBX344
01312         PERFORM S910-READ-NEXT           THRU S910-EXIT           DTSBX344
01313      END-PERFORM.                                                 DTSBX344
01314                                                                   DTSBX344
01315  P4000-EXIT.                                                      DTSBX344
01316      EXIT.                                                        DTSBX344
01317                                                                   DTSBX344
01318  P4100-BUILD-DPC.                                                 DTSBX344
01319      MOVE MDPC-EMP-NO              TO X167-EMP-NO                 DTSBX344
01320      MOVE MDPC-ESTB-DATE           TO L001-FED-8-DATE-9           DTSBX344
01321      PERFORM S001-FROM-FED-8       THRU S001-EXIT                 DTSBX344
01322      IF L001-VALID-DATE                                           DTSBX344
01323         MOVE L001-SLASH-8-DATE     TO X167-ESTB-DATE              DTSBX344
01324      ELSE                                                         DTSBX344
01325         MOVE SPACES                TO X167-ESTB-DATE              DTSBX344
01326      END-IF                                                       DTSBX344
01327      MOVE MDPC-STATUS-CD           TO X167-STATUS                 DTSBX344
01328      MOVE MDPC-RESPONSIBLE-OP-ID   TO X167-ESTB-OPID              DTSBX344
01329      MOVE MDPC-STATUS-OP-ID        TO X167-STATUS-OPID            DTSBX344
01330      MOVE MDPC-STMT-DATE           TO L001-FED-8-DATE-9           DTSBX344
01331      PERFORM S001-FROM-FED-8       THRU S001-EXIT                 DTSBX344
01332      IF L001-VALID-DATE                                           DTSBX344
01333         MOVE L001-SLASH-8-DATE     TO X167-STMT-DATE              DTSBX344
01334      ELSE                                                         DTSBX344
01335         MOVE SPACES                TO X167-STMT-DATE              DTSBX344
01336      END-IF                                                       DTSBX344
01337      MOVE MDPC-STATUS-DATE         TO L001-FED-8-DATE-9           DTSBX344
01338      PERFORM S001-FROM-FED-8       THRU S001-EXIT                 DTSBX344
01339      IF L001-VALID-DATE                                           DTSBX344
01340         MOVE L001-SLASH-8-DATE     TO X167-STATUS-DATE            DTSBX344
01341      ELSE                                                         DTSBX344
01342         MOVE SPACES                TO X167-STATUS-DATE            DTSBX344
01343      END-IF                                                       DTSBX344
01344      MOVE MDPC-STMT-DUE-AMT        TO X167-BALANCE                DTSBX344
01345      MOVE MDPC-PMT-FREQUENCY       TO X167-FREQUENCY              DTSBX344
01346      MOVE MDPC-PMT-BEGIN-DATE      TO L001-FED-8-DATE-9           DTSBX344
01347      PERFORM S001-FROM-FED-8       THRU S001-EXIT                 DTSBX344
01348      IF L001-VALID-DATE                                           DTSBX344
01349         MOVE L001-SLASH-8-DATE     TO X167-START-DATE             DTSBX344
01350      ELSE                                                         DTSBX344
01351         MOVE SPACES                TO X167-START-DATE             DTSBX344
01352      END-IF                                                       DTSBX344
01353      MOVE MDPC-INSTALL-PMT-AMT     TO X167-PAYMENT-AMT.           DTSBX344
01354                                                                   DTSBX344
01355      WRITE DPC-REC                 FROM X167-REC.                 DTSBX344
01356      IF NOT DPC-STATUS-OK-88                                      DTSBX344
01357         DISPLAY 'CANNOT WRITE DPC REC '                           DTSBX344
01358            '  ' DPC-STATUS '  ' X167-EMP-NO                       DTSBX344
01359      ELSE                                                         DTSBX344
01360         ADD +1 TO W-DPC-CNT                                       DTSBX344
01361      END-IF.                                                      DTSBX344
01362                                                                   DTSBX344
01363      IF MPRF-EMP-NO = 143103                                      DTSBX344
01364         DISPLAY 'P41 END ' X167-EMP-NO '  ' X167-STATUS           DTSBX344
01365            '  ' X167-ESTB-DATE                                    DTSBX344
01366      END-IF.                                                      DTSBX344
01367  P4100-EXIT.                                                      DTSBX344
01368      EXIT.                                                        DTSBX344
01369                                                                   DTSBX344
01370  P4200-BUILD-DPC-QTR.                                             DTSBX344
01371      MOVE MPRF-EMP-NO              TO X168-EMP-NO.                DTSBX344
01372      MOVE MDPC-ESTB-DATE           TO L001-FED-8-DATE-9           DTSBX344
01373      PERFORM S001-FROM-FED-8       THRU S001-EXIT                 DTSBX344
01374      IF L001-VALID-DATE                                           DTSBX344
01375         MOVE L001-SLASH-8-DATE     TO X168-ESTB-DATE              DTSBX344
01376      ELSE                                                         DTSBX344
01377         MOVE SPACES                TO X168-ESTB-DATE              DTSBX344
01378      END-IF                                                       DTSBX344
01379                                                                   DTSBX344
01380      PERFORM                                                      DTSBX344
01381        VARYING SUB FROM +1 BY +1                                  DTSBX344
01382        UNTIL SUB > MDPC-COV-CNT                                   DTSBX344
01383          PERFORM P4210-WRITE-QTR      THRU P4210-EXIT             DTSBX344
01384      END-PERFORM.                                                 DTSBX344
01385                                                                   DTSBX344
01386  P4200-EXIT.                                                      DTSBX344
01387      EXIT.                                                        DTSBX344
01388                                                                   DTSBX344
01389  P4210-WRITE-QTR.                                                 DTSBX344
01390      MOVE MDPC-EMP-NO              TO X168-EMP-NO                 DTSBX344
01391      MOVE MDPC-ESTB-DATE           TO L001-FED-8-DATE-9           DTSBX344
01392      PERFORM S001-FROM-FED-8       THRU S001-EXIT                 DTSBX344
01393      IF L001-VALID-DATE                                           DTSBX344
01394         MOVE L001-SLASH-8-DATE     TO X168-ESTB-DATE              DTSBX344
01395      ELSE                                                         DTSBX344
01396         MOVE SPACES                TO X168-ESTB-DATE              DTSBX344
01397      END-IF                                                       DTSBX344
01398      MOVE MDPC-COVERED-YRQ (SUB)   TO L004-QTR-5-9                DTSBX344
01399      SET L004-FROM-5 TO TRUE                                      DTSBX344
01400      PERFORM S004-FROM-5              THRU S004-EXIT              DTSBX344
01401      IF L004-VALID-QTR                                            DTSBX344
01402         MOVE L004-SLASH-5-QTR         TO X168-DPC-QTR             DTSBX344
01403         WRITE DPC-QTR-REC             FROM X168-REC               DTSBX344
01404         IF NOT DPC-QTR-STATUS-OK-88                               DTSBX344
01405            DISPLAY 'CANNOT WRITE DPC QTR REC '                    DTSBX344
01406               '  ' DPC-QTR-STATUS '  ' X168-EMP-NO                DTSBX344
01407         ELSE                                                      DTSBX344
01408            ADD +1                     TO W-DPC-QTR-CNT            DTSBX344
01409         END-IF                                                    DTSBX344
01410      END-IF.                                                      DTSBX344
01411                                                                   DTSBX344
01412  P4210-EXIT.                                                      DTSBX344
01413      EXIT.                                                        DTSBX344
01414                                                                   DTSBX344
01415  T0000-TERMINATE.                                                 DTSBX344
01416      CLOSE QTR-COLL-FILE                                          DTSBX344
01417            AUDIT-FILE                                             DTSBX344
01418            LIEN-FILE                                              DTSBX344
01419            LIEN-QTR-FILE                                          DTSBX344
01420            DPC-FILE                                               DTSBX344
01421            DPC-QTR-FILE.                                          DTSBX344
01422                                                                   DTSBX344
01423      DISPLAY '*********************************************'.     DTSBX344
01424      DISPLAY '**   DTSBX344 TERMINATION STATISTICS       **'.     DTSBX344
01425      DISPLAY '**                                         **'.     DTSBX344
01426      DISPLAY '**  ERRORS          ' W-ERROR-CNT                   DTSBX344
01427                                       '                  **'.     DTSBX344
01428      DISPLAY '**  COLLECTIONS    ' W-QCOLL-CNT                    DTSBX344
01429                                       '                  **'.     DTSBX344
01430      DISPLAY '**  AUDITS         ' W-AUDIT-CNT                    DTSBX344
01431                                       '                  **'.     DTSBX344
01432      DISPLAY '**  ACTIVE AUDITS  ' W-ACTIVE-CNT                   DTSBX344
01433                                       '                  **'.     DTSBX344
01434      DISPLAY '**  LIENS          ' W-LIEN-CNT                     DTSBX344
01435                                       '                  **'.     DTSBX344
01436      DISPLAY '**  LIEN QUARTERS  ' W-LIEN-QTR-CNT                 DTSBX344
01437                                       '                  **'.     DTSBX344
01438      DISPLAY '**  DPC            ' W-DPC-CNT                      DTSBX344
01439                                       '                  **'.     DTSBX344
01440      DISPLAY '**  DPC QUARTERS  ' W-DPC-QTR-CNT                   DTSBX344
01441                                       '                  **'.     DTSBX344
01442      DISPLAY '**                                         **'.     DTSBX344
01443      DISPLAY '**                                         **'.     DTSBX344
01444      DISPLAY '*********************************************'.     DTSBX344
01445                                                                   DTSBX344
01446                                                                   DTSBX344
01447  T0000-EXIT.                                                      DTSBX344
01448      EXIT.                                                        DTSBX344
01449                                                                   DTSBX344
01450  S001-FROM-FED-8.                                                 DTSBX344
01451      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX344
01452      GO TO S001-DATE.                                             DTSBX344
01453                                                                   DTSBX344
01454  S001-FROM-ABS-DAY.                                               DTSBX344
01455      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBX344
01456      GO TO S001-DATE.                                             DTSBX344
01457                                                                   DTSBX344
01458  S001-FROM-CAL-6.                                                 DTSBX344
01459      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBX344
01460      GO TO S001-DATE.                                             DTSBX344
01461                                                                   DTSBX344
01462  S001-DATE.                                                       DTSBX344
01463      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX344
01464  S001-EXIT.                                                       DTSBX344
01465      EXIT.                                                        DTSBX344
01466      SKIP3                                                        DTSBX344
01467  S004-FROM-5.                                                     DTSBX344
01468      SET L004-FROM-5 TO TRUE.                                     DTSBX344
01469      GO TO S004-QTR.                                              DTSBX344
01470                                                                   DTSBX344
01471  S004-FROM-ABS.                                                   DTSBX344
01472      SET L004-FROM-ABS TO TRUE.                                   DTSBX344
01473      GO TO S004-QTR.                                              DTSBX344
01474                                                                   DTSBX344
01475  S004-FROM-3.                                                     DTSBX344
01476      SET L004-FROM-3 TO TRUE.                                     DTSBX344
01477      GO TO S004-QTR.                                              DTSBX344
01478                                                                   DTSBX344
01479  S004-FROM-DATE.                                                  DTSBX344
01480      SET L004-FROM-DATE TO TRUE.                                  DTSBX344
01481      GO TO S004-QTR.                                              DTSBX344
01482                                                                   DTSBX344
01483  S004-QTR.                                                        DTSBX344
01484                                                                   DTSBX344
01485      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBX344
01486                                                                   DTSBX344
01487  S004-EXIT.                                                       DTSBX344
01488      EXIT.                                                        DTSBX344
01489      SKIP3                                                        DTSBX344
01490  S005-FROM-DATE-TIME.                                             DTSBX344
01491      SET L005-FROM-DATE-TIME TO TRUE.                             DTSBX344
01492      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX344
01493  S005-EXIT.                                                       DTSBX344
01494      EXIT.                                                        DTSBX344
01495                                                                   DTSBX344
01496  S061-LOOKUP-FLD-REP-ID.                                          DTSBX344
01497      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBX344
01498  S061-EXIT. EXIT.                                                 DTSBX344
01499                                                                   DTSBX344
01500  S062-LOOKUP-FLD-REP.                                             DTSBX344
01501      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBX344
01502  S062-EXIT.                                                       DTSBX344
01503      EXIT.                                                        DTSBX344
01504                                                                   DTSBX344
01505  S910-OPEN-READ.                                                  DTSBX344
01506      SET L910-OPEN-READ-88 TO TRUE.                               DTSBX344
01507      GO TO S910-MSTR-IO.                                          DTSBX344
01508                                                                   DTSBX344
01509  S910-READ.                                                       DTSBX344
01510      SET L910-READ-88 TO TRUE.                                    DTSBX344
01511      GO TO S910-MSTR-IO.                                          DTSBX344
01512                                                                   DTSBX344
01513  S910-START-BROWSE.                                               DTSBX344
01514      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX344
01515      GO TO S910-MSTR-IO.                                          DTSBX344
01516                                                                   DTSBX344
01517  S910-READ-NEXT.                                                  DTSBX344
01518      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX344
01519      GO TO S910-MSTR-IO.                                          DTSBX344
01520                                                                   DTSBX344
01521  S910-COUNT.                                                      DTSBX344
01522      SET L910-COUNT-88 TO TRUE.                                   DTSBX344
01523      GO TO S910-MSTR-IO.                                          DTSBX344
01524                                                                   DTSBX344
01525  S910-REWRITE.                                                    DTSBX344
01526      SET L910-REWRITE-88 TO TRUE.                                 DTSBX344
01527      GO TO S910-MSTR-IO.                                          DTSBX344
01528                                                                   DTSBX344
01529  S910-CLOSE.                                                      DTSBX344
01530      SET L910-CLOSE-88   TO TRUE.                                 DTSBX344
01531      GO TO S910-MSTR-IO.                                          DTSBX344
01532                                                                   DTSBX344
01533  S910-MSTR-IO.                                                    DTSBX344
01534      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX344
01535                            MSKL-REC.                              DTSBX344
01536  S910-EXIT.                                                       DTSBX344
01537      EXIT.                                                        DTSBX344
01538      SKIP3                                                        DTSBX344
01539                                                                   DTSBX344
01540  S921-OPEN-READ.                                                  DTSBX344
01541      SET L921-OPEN-READ-88    TO TRUE.                            DTSBX344
01542      GO TO S921-AIX-IO.                                           DTSBX344
01543                                                                   DTSBX344
01544  S921-START-BROWSE.                                               DTSBX344
01545      SET L921-START-BROWSE-88 TO TRUE.                            DTSBX344
01546      GO TO S921-AIX-IO.                                           DTSBX344
01547                                                                   DTSBX344
01548  S921-READ-NEXT.                                                  DTSBX344
01549      SET L921-READ-NEXT-88 TO TRUE.                               DTSBX344
01550      GO TO S921-AIX-IO.                                           DTSBX344
01551                                                                   DTSBX344
01552  S921-CLOSE.                                                      DTSBX344
01553      SET L921-CLOSE-88        TO TRUE.                            DTSBX344
01554      GO TO S921-AIX-IO.                                           DTSBX344
01555                                                                   DTSBX344
01556  S921-AIX-IO.                                                     DTSBX344
01557      CALL 'DTSBU921'    USING L921-LINK-AREA                      DTSBX344
01558                               ISKL-REC.                           DTSBX344
01559                                                                   DTSBX344
01560  S921-EXIT.                                                       DTSBX344
01561      EXIT.                                                        DTSBX344
01562                                                                   DTSBX344
01563  S931-READ.                                                       DTSBX344
01564      SET L931-READ-88 TO TRUE.                                    DTSBX344
01565      GO TO S931-REF-IO.                                           DTSBX344
01566                                                                   DTSBX344
01567  S931-REF-IO.                                                     DTSBX344
01568      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBX344
01569                            FSKL-REC.                              DTSBX344
01570  S931-EXIT.                                                       DTSBX344
01571      EXIT.                                                        DTSBX344
01572                                                                   DTSBX344
01573  S999-ABEND.                                                      DTSBX344
01574      DISPLAY '*** DTSBE335 ABENDING.  '                           DTSBX344
01575              ABEND-MSG.                                           DTSBX344
01576                                                                   DTSBX344
01577      CALL 'DTSBU999' USING W-ABEND-CD.                            DTSBX344
01578  S999-EXIT.                                                       DTSBX344
01579      EXIT.                                                        DTSBX344
