00001  IDENTIFICATION DIVISION.                                         08/07/12
00002  PROGRAM-ID.             DTSBX440.                                DTSBX440
00003  AUTHOR.                 NGC.                                        LV001
00004  DATE-WRITTEN.           NOVEMBER 2007.                           DTSBX440
00005  DATE-COMPILED.                                                   DTSBX440
00006      SKIP3                                                        DTSBX440
00007 *****                                                             DTSBX440
00008 *                                                                 DTSBX440
00009 *    FUNCTION:  INTERNAL WEB MAINFRAME INPUT- AUDITS              DTSBX440
00010 *               FROM X163 AND X164 FILES.                         DTSBX440
00011 *                                                                 DTSBX440
00012 *    MODIFICATION LOG:                                            DTSBX440
00013 *                                                                 DTSBX440
00014 *    03/13/2012  INITIAL DEVELOPMENT.                             DTSBX440
00015 *                REFERENCE:                     PROGRAMMER: GD    DTSBX440
00016 *                                                                 DTSBX440
00017 *    03/13/2012  ADDED CODE TO EDIT AUDIT RECORDS COMING FROM     DTSBX440
00018 *                SERVER. TWO RECORDS TYPES ARE EDITED             DTSBX440
00019 *                X163 TO UPDATE MFAS AND MUIR RECS AND X164 TO    DTSBX440
00020 *                CREATE/UPDATE MAUY RECS.                         DTSBX440
00021 *                REFERENCE:                     PROGRAMMER: ZL1   DTSBX440
00022 *                                                                 DTSBX440
00023 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX440
00024 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX440
00025 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBX440
00026 *                                                                 DTSBX440
00027 *                                                                 DTSBX440
00028 *  DESCRIPTION:                                                   DTSBX440
00029 *                                                                 DTSBX440
00030 *                                                                 DTSBX440
00031 *    INITIATION:                                                  DTSBX440
00032 *                                                                 DTSBX440
00033 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBX440
00034 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBX440
00035 *                                                                 DTSBX440
00036 *      EDIT AND DEFAULT PARAMETERS.                               DTSBX440
00037 *                                                                 DTSBX440
00038 *                                                                 DTSBX440
00039 *    PROCESSING:                                                  DTSBX440
00040 *                                                                 DTSBX440
00041 *                                                                 DTSBX440
00042 *    TERMINATION:                                                 DTSBX440
00043 *                                                                 DTSBX440
00044 *                                                                 DTSBX440
00045 *                                                                 DTSBX440
00046 *    RECORDS READ:                                                DTSBX440
00047 *                                                                 DTSBX440
00048 *      MASTER:                                                    DTSBX440
00049 *                                                                 DTSBX440
00050 *        MFAS                                                     DTSBX440
00051 *        MUIR                                                     DTSBX440
00052 *        MAUY                                                     DTSBX440
00053 *                                                                 DTSBX440
00054 *      ALTERNATE INDEX:                                           DTSBX440
00055 *                                                                 DTSBX440
00056 *        NONE.                                                    DTSBX440
00057 *                                                                 DTSBX440
00058 *                                                                 DTSBX440
00059 *      REFERENCE:                                                 DTSBX440
00060 *                                                                 DTSBX440
00061 *                                                                 DTSBX440
00062 *                                                                 DTSBX440
00063 *    RECORDS UPDATED:                                             DTSBX440
00064 *                                                                 DTSBX440
00065 *        NONE                                                     DTSBX440
00066 *                                                                 DTSBX440
00067 *                                                                 DTSBX440
00068 *    OUTPUT RECORDS WRITTEN:                                      DTSBX440
00069 *                                                                 DTSBX440
00070 *        DTSIT040 TRANSACTIONS RECORDS                            DTSBX440
00071 *                                                                 DTSBX440
00072 *                                                                 DTSBX440
00073 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBX440
00074 *                                                                 DTSBX440
00075 *        NONE.                                                    DTSBX440
00076 *                                                                 DTSBX440
00077 *                                                                 DTSBX440
00078 *    MODULES CALLED:                                              DTSBX440
00079 *                                                                 DTSBX440
00080 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBX440
00081 *        DTSBU004  QUARTER EDIT/CONVERSION.                       DTSBX440
00082 *        DTSBU910  MASTER FILE I/O.                               DTSBX440
00083 *                                                                 DTSBX440
00084 *                                                                 DTSBX440
00085 *                                                                 DTSBX440
00086 *****                                                             DTSBX440
00087      SKIP3                                                        DTSBX440
00088  ENVIRONMENT DIVISION.                                            DTSBX440
00089  INPUT-OUTPUT SECTION.                                            DTSBX440
00090  FILE-CONTROL.                                                    DTSBX440
00091                                                                   DTSBX440
00092      SELECT WEB-AUD-FILE           ASSIGN TO DTSFAUDT             DTSBX440
00093         FILE STATUS IS AUDIT-STATUS.                              DTSBX440
00094                                                                   DTSBX440
00095  DATA DIVISION.                                                   DTSBX440
00096  FILE SECTION.                                                    DTSBX440
00097  FD  WEB-AUD-FILE                                                 DTSBX440
00098      RECORDING MODE IS F                                          DTSBX440
00099      LABEL RECORDS ARE STANDARD                                   DTSBX440
00100      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX440
00101                                                                   DTSBX440
00102  01  AUDIT-REC.                                                   DTSBX440
00103       05  AUDIT-QTR-REC-TYPE            PIC X(03).                DTSBX440
00104           88  REC-TYPE-AUDIT-163-88       VALUE '163'.            DTSBX440
00105           88  REC-TYPE-AUDIT-164-88       VALUE '164'.            DTSBX440
00106       05  FILLER                        PIC X(01).                DTSBX440
00107       05  AUDIT-QTR-EMP                 PIC 9(06).                DTSBX440
00108       05  AUDIT-QTR-REC-FILLER          PIC X(246).               DTSBX440
00109                                                                   DTSBX440
00110                                                                   DTSBX440
00111  WORKING-STORAGE SECTION.                                         DTSBX440
001115 77  PAN-VALET PICTURE X(24) VALUE '001DTSBX440  08/07/12'.       DTSBX440
00112      SKIP3                                                        DTSBX440
00113  01  W-AREA.                                                      DTSBX440
00114      05  W-ABEND-CD                  PIC S9(04)  COMP  VALUE +440.DTSBX440
00115      05  W-MOD-NAME                  PIC  X(08)  VALUE 'DTSBX440'.DTSBX440
00116                                                                   DTSBX440
00117     05  WEB-AUD-STATUS                PIC  X(02).                 DTSBX440
00118         88 WEB-AUD-STATUS-OK-88         VALUE '00'.               DTSBX440
00119         88 WEB-AUD-STATUS-EOF-88        VALUE '10'.               DTSBX440
00120                                                                   DTSBX440
00121                                                                   DTSBX440
00122      05  ABEND-MSG                   PIC  X(60).                  DTSBX440
00123                                                                   DTSBX440
00124      05  AUDIT-STATUS                PIC  X(02).                  DTSBX440
00125          88  WEB-STATUS-OK-88        VALUE '00'.                  DTSBX440
00126          88  WEB-STATUS-EOF-88       VALUE '10'.                  DTSBX440
00127                                                                   DTSBX440
00128      05  MAUR-STATUS                PIC  X(01).                   DTSBX440
00129          88  MAUR-REC-FOUND-88        VALUE '0'.                  DTSBX440
00130          88  MAUR-REC-NOT-FOUND-88    VALUE '1'.                  DTSBX440
00131                                                                   DTSBX440
00132      05  MAUY-STATUS                PIC  X(01).                   DTSBX440
00133          88  MAUY-REC-FOUND-88        VALUE '0'.                  DTSBX440
00134          88  MAUY-REC-NOT-FOUND-88    VALUE '1'.                  DTSBX440
00135                                                                   DTSBX440
00136      05  W-INTEGER               PIC  S9(11) COMP-3.              DTSBX440
00137      05  W-FRACTION              PIC  SV9(11) COMP-3.             DTSBX440
00138      05  W-NUMBER                PIC  S9(11)V9(05) COMP-3.        DTSBX440
00139      05  WRK-AUDIT-HRS           PIC  S9(04)V9(01) COMP-3.        DTSBX440
00140                                                                   DTSBX440
00141      05  W-ERROR-IND                 PIC  X(01) VALUE 'N'.        DTSBX440
00142          88  W-ERROR-YES-88           VALUE 'Y'.                  DTSBX440
00143          88  W-ERROR-NO-88            VALUE 'N'.                  DTSBX440
00144                                                                   DTSBX440
00145      05  W-AUDIT-START-DT         PIC S9(09)  COMP-3              DTSBX440
00146                                    VALUE 20071001.                DTSBX440
00147      05  W-START-DT               PIC S9(09)  COMP-3.             DTSBX440
00148      05  W-DEFAULT-DATE           PIC  X(10)                      DTSBX440
00149                                    VALUE '01/01/1994'.            DTSBX440
00150                                                                   DTSBX440
00151      05  T040-ERROR-SW                PIC 9(01) VALUE 0.          DTSBX440
00152      05  WRK-ERR-TYPE OCCURS 5 TIMES  PIC 9(02).                  DTSBX440
00153                                                                   DTSBX440
00154      05  W-SLASH-DATE            PIC  X(10).                      DTSBX440
00155      05  FILLER REDEFINES W-SLASH-DATE.                           DTSBX440
00156          10  W-SLASH-DT-MM       PIC  X(02).                      DTSBX440
00157          10  FILLER              PIC  X(01).                      DTSBX440
00158          10  W-SLASH-DT-DD       PIC  X(02).                      DTSBX440
00159          10  FILLER              PIC  X(01).                      DTSBX440
00160          10  W-SLASH-DT-CCYY     PIC  X(04).                      DTSBX440
00161                                                                   DTSBX440
00162      05  WRK-FLD-REP-ID          PIC  X(02) VALUE SPACES.         DTSBX440
00163      05  WRK-ERROR-TYPE          PIC  X(02).                      DTSBX440
00164      05  WRK-SLASH-YRQ           PIC  X(06).                      DTSBX440
00165      05  FILLER REDEFINES WRK-SLASH-YRQ.                          DTSBX440
00166          10  WRK-SLASH-YRQ-YR    PIC  X(04).                      DTSBX440
00167          10  FILLER              PIC  X(01).                      DTSBX440
00168          10  WRK-SLASH-YRQ-QTR   PIC  X(01).                      DTSBX440
00169                                                                   DTSBX440
00170      05  WRK-YRQ.                                                 DTSBX440
00171          10  WRK-YRQ-YR          PIC  9(04).                      DTSBX440
00172          10  WRK-YRQ-QTR         PIC  9(01).                      DTSBX440
00173                                                                   DTSBX440
00174      05  W-WRK-YRQ               PIC S9(5) COMP-3.                DTSBX440
00175                                                                   DTSBX440
00176      05  SUB                     PIC S9(04)    COMP.              DTSBX440
00177      05  WRK-SUB                 PIC  9(04).                      DTSBX440
00178      05  W-SUB                   PIC  9(04).                      DTSBX440
00179      05  AUDIT-CNT-SUB           PIC S9(04)    COMP.              DTSBX440
00180                                                                   DTSBX440
00181      05  WRK-CAL-YEAR            PIC  9(04).                      DTSBX440
00182                                                                   DTSBX440
00183      05  W-QTR-3-AREA.                                            DTSBX440
00184          10  W-QTR-3-YY             PIC  X(02).                   DTSBX440
00185          10  FILLER                 PIC  X(01).                   DTSBX440
00186          10  W-QTR-3-Q              PIC  X(01).                   DTSBX440
00187                                                                   DTSBX440
00188      05  ALL-NINES-DT             PIC S9(09)  COMP-3              DTSBX440
00189                                     VALUE +999999999.             DTSBX440
00190      05  ALL-NINES-DT-DISP        PIC  X(10) VALUE '12/31/9999'.  DTSBX440
00191      05  ALL-NINES-QTR            PIC S9(05)  COMP-3              DTSBX440
00192                                     VALUE +99999.                 DTSBX440
00193      05  ALL-NINES-QTR-DISP       PIC  X(06) VALUE '9999/9'.      DTSBX440
00194                                                                   DTSBX440
00195      05  W-COMP-DATE              PIC S9(09) COMP-3.              DTSBX440
00196      05  W-PROCESS-DATE           PIC S9(09) COMP-3.              DTSBX440
00197      05  W-CHNG-DATE              PIC S9(09)V99 COMP-3.           DTSBX440
00198                                                                   DTSBX440
00199      05  WRK-EMPE-CNT             PIC S9(05) COMP-3 VALUE 0.      DTSBX440
00200      05  WRK-EMPL-CNT             PIC S9(05) COMP-3 VALUE 0.      DTSBX440
00201                                                                   DTSBX440
00202      05  WRK-QTR-GROSS-PAYROLL    PIC S9(11)V99 COMP-3.           DTSBX440
00203      05  WRK-QTR-UNDER-TOT-WAGE   PIC S9(11)V99 COMP-3.           DTSBX440
00204      05  WRK-QTR-UNDER-TAX-WAGE   PIC S9(11)V99 COMP-3.           DTSBX440
00205      05  WRK-QTR-UNDER-CONTRIB    PIC S9(11)V99 COMP-3.           DTSBX440
00206      05  WRK-QTR-OVER-TOT-WAGE    PIC S9(11)V99 COMP-3.           DTSBX440
00207      05  WRK-QTR-OVER-TAX-WAGE    PIC S9(11)V99 COMP-3.           DTSBX440
00208      05  WRK-QTR-OVER-CONTRIB     PIC S9(11)V99 COMP-3.           DTSBX440
00209                                                                   DTSBX440
00210      05  WRK-OP-ID                PIC  X(08) VALUE SPACES.        DTSBX440
00211      05  W-MONEY-AMT-X            PIC  X(12).                     DTSBX440
00212      05  W-MONEY-AMT-9   REDEFINES W-MONEY-AMT-X                  DTSBX440
00213                                   PIC  9(09).99.                  DTSBX440
00214      05  W-MONEY-AMT             PIC S9(09)V99 VALUE 0.           DTSBX440
00215                                                                   DTSBX440
00216      05  W-AUDIT-HRS             PIC S9(04)V9 COMP-3.             DTSBX440
00217      05  WRK-QTR-AUDITED-CNT     PIC S9(03)   COMP-3.             DTSBX440
00218                                                                   DTSBX440
00219      05  WRK-COLLECT-AMT         PIC S9(09)V99 COMP-3.            DTSBX440
00220      05  WRK-DUE-AMT             PIC S9(09)V99 COMP-3.            DTSBX440
00221      05  WRK-CONTRIB-AMT         PIC S9(09)V99 COMP-3.            DTSBX440
00222      05  WRK-MONEY-AMT           PIC S9(11)V99 COMP-3.            DTSBX440
00223                                                                   DTSBX440
00224      05  W-WEB-IMP-CNT               PIC  9(08) VALUE ZEROS.      DTSBX440
00225      05  W-T040-MFAS-CNT             PIC  9(08) VALUE ZEROS.      DTSBX440
00226      05  W-T040-MAUY-CNT             PIC  9(08) VALUE ZEROS.      DTSBX440
00227      05  W-T040-MAUR-CNT             PIC  9(08) VALUE ZEROS.      DTSBX440
00228      05  WRK-ASSIGN-NO               PIC  9(09).                  DTSBX440
00229      05  FILLER REDEFINES WRK-ASSIGN-NO.                          DTSBX440
00230          10  WRK-ASSIGN-CC           PIC  9(02).                  DTSBX440
00231          10  WRK-ASSIGN-YY           PIC  9(02).                  DTSBX440
00232          10  WRK-ASSIGN-NBR          PIC  9(05).                  DTSBX440
00233      05  WRK-FLD-ASSIGN.                                          DTSBX440
00234          10  WRK-FLD-ASSIGN-YEAR     PIC  9(02).                  DTSBX440
00235          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBX440
00236          10  WRK-FLD-ASSIGN-NBR      PIC  9(05).                  DTSBX440
00237                                                                   DTSBX440
00238      05  T040-UPD-MFAS            PIC  9(02) VALUE ZEROS.         DTSBX440
00239      05  T040-UPD-MAUR            PIC  9(02) VALUE ZEROS.         DTSBX440
00240      05  T040-UPD-MAUY            PIC  9(02) VALUE ZEROS.         DTSBX440
00241      05  W-ERROR-CNT              PIC S9(07)    COMP-3 VALUE +0.  DTSBX440
00242      05  W-QCOLL-CNT              PIC S9(07)    COMP-3 VALUE +0.  DTSBX440
00243      05  W-AUDIT-CNT              PIC S9(07)    COMP-3 VALUE +0.  DTSBX440
00244      05  W-ACTIVE-CNT             PIC S9(07)    COMP-3 VALUE +0.  DTSBX440
00245                                                                   DTSBX440
00246      05  DISPLAY-AMT1-X              PIC  X(14).                  DTSBX440
00247      05  DISPLAY-AMT1 REDEFINES DISPLAY-AMT1-X                    DTSBX440
00248                                      PIC  ---,---,--9.99.         DTSBX440
00249      05  DISPLAY-AMT2-X              PIC  X(14).                  DTSBX440
00250      05  DISPLAY-AMT2 REDEFINES DISPLAY-AMT2-X                    DTSBX440
00251                                      PIC  ---,---,--9.99.         DTSBX440
00252      05  DISPLAY-AMT3-X              PIC  X(14).                  DTSBX440
00253      05  DISPLAY-AMT3 REDEFINES DISPLAY-AMT3-X                    DTSBX440
00254                                      PIC  ---,---,--9.99.         DTSBX440
00255      05  DISPLAY-AMT4-X              PIC  X(14).                  DTSBX440
00256      05  DISPLAY-AMT4 REDEFINES DISPLAY-AMT4-X                    DTSBX440
00257                                      PIC  ---,---,--9.99.         DTSBX440
00258      EJECT                                                        DTSBX440
00259  01  L001-LINK-AREA.                                              DTSBX440
00260  ++INCLUDE DTSIL001                                               DTSBX440
00261      EJECT                                                        DTSBX440
00262  01  L004-LINK-AREA.                                              DTSBX440
00263  ++INCLUDE DTSIL004                                               DTSBX440
00264      EJECT                                                        DTSBX440
00265  01  L005-LINK-AREA.                                              DTSBX440
00266  ++INCLUDE DTSIL005                                               DTSBX440
00267                                                                   DTSBX440
00268  01  T040-LINK-AREA.                                              DTSBX440
00269  ++INCLUDE DTSIT040                                               DTSBX440
00270                                                                   DTSBX440
00271  01  L036-LINK-AREA.                                              DTSBX440
00272  ++INCLUDE DTSIL036                                               DTSBX440
00273                                                                   DTSBX440
00274  01  L062-LINK-AREA.                                              DTSBX440
00275  ++INCLUDE DTSIL062                                               DTSBX440
00276                                                                   DTSBX440
00277  01  R140-REC.                                                    DTSBX440
00278  ++INCLUDE DTSIR140                                               DTSBX440
00279                                                                   DTSBX440
00280  01  L205-LINK-AREA.                                              DTSBX440
00281  ++INCLUDE DTSIL205                                               DTSBX440
00282                                                                   DTSBX440
00283  01  L910-LINK-AREA.                                              DTSBX440
00284  ++INCLUDE DTSIL910                                               DTSBX440
00285      SKIP3                                                        DTSBX440
00286  01  L927-LINK-AREA.                                              DTSBX440
00287  ++INCLUDE DTSIL927                                               DTSBX440
00288      SKIP3                                                        DTSBX440
00289  01  MSKL-REC.                                                    DTSBX440
00290  ++INCLUDE DTSIMSKL                                               DTSBX440
00291      SKIP3                                                        DTSBX440
00292  01  TSKL-REC.                                                    DTSBX440
00293  ++INCLUDE DTSITSKL                                               DTSBX440
00294      SKIP3                                                        DTSBX440
00295  01  MHDR-REC.                                                    DTSBX440
00296  ++INCLUDE DTSIMHDR                                               DTSBX440
00297      SKIP3                                                        DTSBX440
00298  01  X163-REC.                                                    DTSBX440
00299  ++INCLUDE DTSIX163                                               DTSBX440
00300      SKIP3                                                        DTSBX440
00301  01  X164-REC.                                                    DTSBX440
00302  ++INCLUDE DTSIX164                                               DTSBX440
00303      SKIP3                                                        DTSBX440
00304  01  MAUY-REC.                                                    DTSBX440
00305  ++INCLUDE DTSIMAUY                                               DTSBX440
00306      SKIP3                                                        DTSBX440
00307  01  MFAS-REC.                                                    DTSBX440
00308  ++INCLUDE DTSIMFAS                                               DTSBX440
00309      SKIP3                                                        DTSBX440
00310  01  MAUR-REC.                                                    DTSBX440
00311  ++INCLUDE DTSIMAUR                                               DTSBX440
00312      SKIP3                                                        DTSBX440
00313  01  L921-LINK-AREA.                                              DTSBX440
00314  ++INCLUDE DTSIL921                                               DTSBX440
00315      SKIP3                                                        DTSBX440
00316  01  ISKL-REC.                                                    DTSBX440
00317  ++INCLUDE DTSIISKL                                               DTSBX440
00318      SKIP3                                                        DTSBX440
00319  01  IEIN-REC.                                                    DTSBX440
00320  ++INCLUDE DTSIIEIN                                               DTSBX440
00321                                                                   DTSBX440
00322  01  L931-LINK-AREA.                                              DTSBX440
00323  ++INCLUDE DTSIL931                                               DTSBX440
00324      SKIP3                                                        DTSBX440
00325  01  FSKL-REC.                                                    DTSBX440
00326  ++INCLUDE DTSIFSKL                                               DTSBX440
00327      SKIP3                                                        DTSBX440
00328  01  FQTR-REC.                                                    DTSBX440
00329  ++INCLUDE DTSIFQTR                                               DTSBX440
00330                                                                   DTSBX440
00331  LINKAGE SECTION.                                                 DTSBX440
00332                                                                   DTSBX440
00333                                                                   DTSBX440
00334  01  MPRF-REC.                                                    DTSBX440
00335  ++INCLUDE DTSIMPRF                                               DTSBX440
00336      EJECT                                                        DTSBX440
00337  PROCEDURE DIVISION.                                              DTSBX440
00338                                                                   DTSBX440
00339           PERFORM I0000-INITIALIZE     THRU I0000-EXIT            DTSBX440
00340           PERFORM P0000-PROCESS        THRU P0000-EXIT            DTSBX440
00341           PERFORM T0000-TERMINATE      THRU T0000-EXIT            DTSBX440
00342                                                                   DTSBX440
00343      GOBACK.                                                      DTSBX440
00344                                                                   DTSBX440
00345  I0000-INITIALIZE.                                                DTSBX440
00346      PERFORM S005-FROM-SYS        THRU S005-EXIT.                 DTSBX440
00347      PERFORM I2000-OPEN-FILES      THRU I2000-EXIT.               DTSBX440
00348      MOVE ZEROS                     TO W-SUB.                     DTSBX440
00349      MOVE LENGTH OF R140-REC        TO R140-LENGTH.               DTSBX440
00350  I0000-EXIT.                                                      DTSBX440
00351      EXIT.                                                        DTSBX440
00352                                                                   DTSBX440
00353                                                                   DTSBX440
00354  I2000-OPEN-FILES.                                                DTSBX440
00355                                                                   DTSBX440
00356      OPEN INPUT WEB-AUD-FILE.                                     DTSBX440
00357      IF NOT WEB-STATUS-OK-88                                      DTSBX440
00358         DISPLAY 'AUDIT FILE OPEN ERROR: ' AUDIT-STATUS            DTSBX440
00359         MOVE 'FILE OPEN ERROR'                                    DTSBX440
00360                TO ABEND-MSG                                       DTSBX440
00361         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX440
00362      END-IF.                                                      DTSBX440
00363      PERFORM S910-OPEN-READ     THRU S910-EXIT.                   DTSBX440
00364                                                                   DTSBX440
00365       MOVE 'N'                  TO L927-TRACE-IND.                DTSBX440
00366       MOVE W-MOD-NAME           TO L927-MOD-NAME.                 DTSBX440
00367       PERFORM S927A-OPEN        THRU S927A-EXIT.                  DTSBX440
00368                                                                   DTSBX440
00369      PERFORM S931-OPEN-READ     THRU S931-EXIT.                   DTSBX440
00370                                                                   DTSBX440
00371  I2000-EXIT.                                                      DTSBX440
00372      EXIT.                                                        DTSBX440
00373                                                                   DTSBX440
00374  P0000-PROCESS.                                                   DTSBX440
00375                                                                   DTSBX440
00376      PERFORM P2000-AUDITS            THRU P2000-EXIT.             DTSBX440
00377                                                                   DTSBX440
00378  P0000-EXIT.                                                      DTSBX440
00379      EXIT.                                                        DTSBX440
00380                                                                   DTSBX440
00381  P2000-AUDITS.                                                    DTSBX440
00382      MOVE 0 TO T040-UPD-MFAS                                      DTSBX440
00383                T040-UPD-MAUR.                                     DTSBX440
00384 *              T040-UPD-MAUY.                                     DTSBX440
00385                                                                   DTSBX440
00386      PERFORM S1000-READ-WEB-IMP            THRU S1000-EXIT.       DTSBX440
00387      IF WEB-AUD-STATUS-EOF-88                                     DTSBX440
00388        GO TO P2000-EXIT.                                          DTSBX440
00389                                                                   DTSBX440
00390      ADD 1 TO W-WEB-IMP-CNT.                                      DTSBX440
00391                                                                   DTSBX440
00392      IF W-WEB-IMP-CNT = 1 AND NOT                                 DTSBX440
00393         REC-TYPE-AUDIT-163-88                                     DTSBX440
00394         DISPLAY ' 1ST RECORD NOT TYPE 163... ABENDING'            DTSBX440
00395         GO TO S999-ABEND.                                         DTSBX440
00396                                                                   DTSBX440
00397      IF REC-TYPE-AUDIT-163-88                                     DTSBX440
00398         MOVE 0 TO W-SUB                                           DTSBX440
00399         PERFORM P2100-PARSE-AUDITS      THRU P2100-EXIT           DTSBX440
00400         PERFORM P3000-AUDIT-MFAS        THRU P3000-EXIT           DTSBX440
00401         PERFORM P4000-AUDIT-MAUR        THRU P4000-EXIT           DTSBX440
00402         GO TO P2000-AUDITS.                                       DTSBX440
00403                                                                   DTSBX440
00404      IF REC-TYPE-AUDIT-164-88 AND W-SUB = 0                       DTSBX440
00405         PERFORM P2100-PARSE-AUDITS      THRU P2100-EXIT           DTSBX440
00406         PERFORM P4500-AUDIT-MAUY THRU P4500-AUDIT-MAUY-EXIT       DTSBX440
00407         PERFORM P5000-QUARTER           THRU P5000-EXIT           DTSBX440
00408         GO TO P2000-AUDITS                                        DTSBX440
00409      ELSE                                                         DTSBX440
00410      IF REC-TYPE-AUDIT-164-88                                     DTSBX440
00411         ADD  1 TO W-SUB                                           DTSBX440
00412         PERFORM P2100-PARSE-AUDITS      THRU P2100-EXIT           DTSBX440
00413         PERFORM P5000-QUARTER           THRU P5000-EXIT           DTSBX440
00414         GO TO P2000-AUDITS.                                       DTSBX440
00415                                                                   DTSBX440
00416      GO TO P2000-AUDITS.                                          DTSBX440
00417                                                                   DTSBX440
00418  P2000-EXIT.                                                      DTSBX440
00419      EXIT.                                                        DTSBX440
00420                                                                   DTSBX440
00421  P2100-PARSE-AUDITS.                                              DTSBX440
00422      PERFORM                                                      DTSBX440
00423        VARYING SUB FROM +1 BY +1                                  DTSBX440
00424        UNTIL SUB > +100                                           DTSBX440
00425        MOVE +0                  TO L205-FIELD-LENGTH (SUB)        DTSBX440
00426                                    L205-INTEGER (SUB)             DTSBX440
00427                                    L205-FRACTION (SUB)            DTSBX440
00428        MOVE SPACES              TO L205-TEXT (SUB)                DTSBX440
00429                                    L205-DATE (SUB)                DTSBX440
00430        SET L205-TYPE-TEXT-88 (SUB)  TO TRUE                       DTSBX440
00431      END-PERFORM.                                                 DTSBX440
00432                                                                   DTSBX440
00433      IF REC-TYPE-AUDIT-163-88                                     DTSBX440
00434         PERFORM P2200-AUDIT-X163   THRU P2200-EXIT                DTSBX440
00435      ELSE                                                         DTSBX440
00436      IF REC-TYPE-AUDIT-164-88                                     DTSBX440
00437         PERFORM P2300-AUDIT-X164   THRU P2300-EXIT                DTSBX440
00438      ELSE                                                         DTSBX440
00439        DISPLAY ' INVALID RECORD TYPE.....'                        DTSBX440
00440      END-IF.                                                      DTSBX440
00441                                                                   DTSBX440
00442                                                                   DTSBX440
00443  P2100-EXIT.                                                      DTSBX440
00444        EXIT.                                                      DTSBX440
00445                                                                   DTSBX440
00446  P2200-AUDIT-X163.                                                DTSBX440
00447        INITIALIZE X163-REC                                        DTSBX440
00448        MOVE +23                      TO L205-LAST-FIELD           DTSBX440
00449        MOVE +5                       TO L205-LAST-FIELD-LEN       DTSBX440
00450                                                                   DTSBX440
00451 **** RECORD TYPE                                                  DTSBX440
00452        MOVE +3                       TO L205-FIELD-LENGTH (1).    DTSBX440
00453        SET L205-TYPE-TEXT-88 (1)     TO TRUE.                     DTSBX440
00454                                                                   DTSBX440
00455 **** EMPLOYER NUMBER                                              DTSBX440
00456        MOVE +6                       TO L205-FIELD-LENGTH (2).    DTSBX440
00457        SET L205-TYPE-TEXT-88 (2)     TO TRUE.                     DTSBX440
00458                                                                   DTSBX440
00459 **** ASSIGN NO                                                    DTSBX440
00460        MOVE +8                       TO L205-FIELD-LENGTH (3).    DTSBX440
00461        SET L205-TYPE-TEXT-88 (3)     TO TRUE.                     DTSBX440
00462                                                                   DTSBX440
00463 **** COMPLETED DATE                                               DTSBX440
00464        MOVE +10                      TO L205-FIELD-LENGTH (4).    DTSBX440
00465        SET L205-TYPE-TEXT-88 (4)     TO TRUE.                     DTSBX440
00466                                                                   DTSBX440
00467 **** PROCESSED DATE                                               DTSBX440
00468        MOVE +10                      TO L205-FIELD-LENGTH (5).    DTSBX440
00469        SET L205-TYPE-TEXT-88 (5)     TO TRUE.                     DTSBX440
00470                                                                   DTSBX440
00471 **** FLD REP ID                                                   DTSBX440
00472        MOVE +2                       TO L205-FIELD-LENGTH (6).    DTSBX440
00473        SET L205-TYPE-TEXT-88 (6)     TO TRUE.                     DTSBX440
00474                                                                   DTSBX440
00475 **** FIRST YRQ                                                    DTSBX440
00476        MOVE +6                       TO L205-FIELD-LENGTH (7).    DTSBX440
00477        SET L205-TYPE-TEXT-88 (7)     TO TRUE.                     DTSBX440
00478                                                                   DTSBX440
00479 **** LAST  YRQ                                                    DTSBX440
00480        MOVE +6                       TO L205-FIELD-LENGTH (8).    DTSBX440
00481        SET L205-TYPE-TEXT-88 (8)     TO TRUE.                     DTSBX440
00482                                                                   DTSBX440
00483 **** QTR AUDITED CNT                                              DTSBX440
00484        MOVE +3                       TO L205-FIELD-LENGTH (9).    DTSBX440
00485        SET L205-TYPE-NUMBER-88 (9)     TO TRUE.                   DTSBX440
00486                                                                   DTSBX440
00487 **** EMP SIZE                                                     DTSBX440
00488        MOVE +1                       TO L205-FIELD-LENGTH (10).   DTSBX440
00489        SET L205-TYPE-TEXT-88 (10)     TO TRUE.                    DTSBX440
00490                                                                   DTSBX440
00491 **** ERR TYPE 1                                                   DTSBX440
00492        MOVE +2                       TO L205-FIELD-LENGTH (11).   DTSBX440
00493        SET L205-TYPE-TEXT-88 (11)     TO TRUE.                    DTSBX440
00494                                                                   DTSBX440
00495 **** ERR TYPE 2                                                   DTSBX440
00496        MOVE +2                       TO L205-FIELD-LENGTH (12).   DTSBX440
00497        SET L205-TYPE-TEXT-88 (12)     TO TRUE.                    DTSBX440
00498                                                                   DTSBX440
00499 **** ERR TYPE 3                                                   DTSBX440
00500        MOVE +2                       TO L205-FIELD-LENGTH (13).   DTSBX440
00501        SET L205-TYPE-TEXT-88 (13)     TO TRUE.                    DTSBX440
00502                                                                   DTSBX440
00503 **** ERR TYPE 4                                                   DTSBX440
00504        MOVE +2                       TO L205-FIELD-LENGTH (14).   DTSBX440
00505        SET L205-TYPE-TEXT-88 (14)     TO TRUE.                    DTSBX440
00506                                                                   DTSBX440
00507 **** ERR TYPE 5                                                   DTSBX440
00508        MOVE +2                       TO L205-FIELD-LENGTH (15).   DTSBX440
00509        SET L205-TYPE-TEXT-88 (15)     TO TRUE.                    DTSBX440
00510                                                                   DTSBX440
00511 **** MONEY DUE                                                    DTSBX440
00512        MOVE +12                      TO L205-FIELD-LENGTH (16).   DTSBX440
00513        SET L205-TYPE-NUMBER-88 (16)     TO TRUE.                  DTSBX440
00514                                                                   DTSBX440
00515 **** MONEY COLLECT                                                DTSBX440
00516        MOVE +12                      TO L205-FIELD-LENGTH (17).   DTSBX440
00517        SET L205-TYPE-NUMBER-88 (17)     TO TRUE.                  DTSBX440
00518                                                                   DTSBX440
00519 **** MONEY REASON CD                                              DTSBX440
00520        MOVE +1                       TO L205-FIELD-LENGTH (18).   DTSBX440
00521        SET L205-TYPE-TEXT-88 (18)     TO TRUE.                    DTSBX440
00522                                                                   DTSBX440
00523 **** PEN WAIVE IND                                                DTSBX440
00524        MOVE +1                       TO L205-FIELD-LENGTH (19).   DTSBX440
00525        SET L205-TYPE-TEXT-88 (19)     TO TRUE.                    DTSBX440
00526                                                                   DTSBX440
00527 **** INT WAIVE IND                                                DTSBX440
00528        MOVE +1                       TO L205-FIELD-LENGTH (20).   DTSBX440
00529        SET L205-TYPE-TEXT-88 (20)     TO TRUE.                    DTSBX440
00530                                                                   DTSBX440
00531 **** AUDIT HRS                                                    DTSBX440
00532        MOVE +12                      TO L205-FIELD-LENGTH (21).   DTSBX440
00533        SET L205-TYPE-NUMBER-88 (21)    TO TRUE.                   DTSBX440
00534                                                                   DTSBX440
00535 **** NEW EMPLOYE CNT                                              DTSBX440
00536        MOVE +12                      TO L205-FIELD-LENGTH (22).   DTSBX440
00537        SET L205-TYPE-NUMBER-88 (22)     TO TRUE.                  DTSBX440
00538                                                                   DTSBX440
00539 **** IND EMPLOYR CNT                                              DTSBX440
00540        MOVE +12                       TO L205-FIELD-LENGTH (23).  DTSBX440
00541        SET L205-TYPE-NUMBER-88 (23)     TO TRUE.                  DTSBX440
00542                                                                   DTSBX440
00543       MOVE AUDIT-REC                TO L205-INPUT-DATA.           DTSBX440
00544       CALL 'DTSBU205'               USING L205-LINK-AREA.         DTSBX440
00545                                                                   DTSBX440
00546       MOVE L205-TEXT (1) (1:03)  TO X163-REC-TYPE.                DTSBX440
00547                                                                   DTSBX440
00548       MOVE L205-TEXT   (2) (1:06)  TO X163-EMP-NO.                DTSBX440
00549                                                                   DTSBX440
00550       MOVE L205-TEXT (3)  (1:8)  TO X163-ASSIGN-NO.               DTSBX440
00551                                                                   DTSBX440
00552       MOVE L205-TEXT (4) (1:10)  TO X163-COMPLETED-DT.            DTSBX440
00553                                                                   DTSBX440
00554       MOVE L205-TEXT (5) (1:10)  TO X163-PROCESSED-DT.            DTSBX440
00555                                                                   DTSBX440
00556       MOVE L205-TEXT (6) (1:02)  TO  WRK-FLD-REP-ID.              DTSBX440
00557       DISPLAY 'WRK-FLD REP ID ' WRK-FLD-REP-ID.                   DTSBX440
00558       MOVE WRK-FLD-REP-ID        TO X163-FLD-REP-ID.              DTSBX440
00559       DISPLAY 'X163-FLD REP ID ' X163-FLD-REP-ID.                 DTSBX440
00560                                                                   DTSBX440
00561       MOVE L205-TEXT (7)  (1:06)  TO X163-FIRST-YRQ.              DTSBX440
00562                                                                   DTSBX440
00563       MOVE L205-TEXT (8) (1:06)  TO X163-LAST-YRQ.                DTSBX440
00564                                                                   DTSBX440
00565       MOVE L205-INTEGER (9)      TO W-INTEGER.                    DTSBX440
00566       MOVE W-INTEGER             TO X163-QTRS-AUDITED-CNT.        DTSBX440
00567                                                                   DTSBX440
00568       DISPLAY '205 EMP SIZE ' L205-TEXT (10)  (1:01)              DTSBX440
00569       MOVE L205-TEXT (10)  (1:01)  TO X163-EMP-SIZE-IND.          DTSBX440
00570       DISPLAY 'X163 EMP SIZE  ' X163-EMP-SIZE-IND.                DTSBX440
00571                                                                   DTSBX440
00572       MOVE L205-TEXT (11) (1:02)  TO X163-ERR-TYPE1.              DTSBX440
00573                                                                   DTSBX440
00574       MOVE L205-TEXT (12) (1:02)  TO X163-ERR-TYPE2.              DTSBX440
00575                                                                   DTSBX440
00576       MOVE L205-TEXT (13) (1:02)  TO X163-ERR-TYPE3.              DTSBX440
00577                                                                   DTSBX440
00578       MOVE L205-TEXT (14) (1:02)  TO X163-ERR-TYPE4.              DTSBX440
00579                                                                   DTSBX440
00580       MOVE L205-TEXT (15) (1:02)  TO X163-ERR-TYPE5.              DTSBX440
00581                                                                   DTSBX440
00582       MOVE L205-INTEGER (16)      TO W-INTEGER.                   DTSBX440
00583       MOVE L205-FRACTION (16)     TO W-FRACTION.                  DTSBX440
00584       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00585       MOVE W-NUMBER              TO X163-MONEY-DUE-AMT.           DTSBX440
00586                                                                   DTSBX440
00587       MOVE L205-INTEGER (17)      TO W-INTEGER.                   DTSBX440
00588       MOVE L205-FRACTION (17)     TO W-FRACTION.                  DTSBX440
00589       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00590       MOVE W-NUMBER              TO X163-MONEY-COLLECT-AMT.       DTSBX440
00591                                                                   DTSBX440
00592       MOVE L205-TEXT (18)  (1:01)  TO X163-MONEY-REASON-CD.       DTSBX440
00593                                                                   DTSBX440
00594       MOVE L205-TEXT (19)  (1:01)  TO X163-PEN-WAIVE-IND.         DTSBX440
00595                                                                   DTSBX440
00596       MOVE L205-TEXT (20)  (1:01)  TO X163-INT-WAIVE-IND.         DTSBX440
00597                                                                   DTSBX440
00598       MOVE L205-INTEGER (21)      TO W-INTEGER.                   DTSBX440
00599       MOVE L205-FRACTION (21)     TO W-FRACTION.                  DTSBX440
00600       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00601       MOVE W-NUMBER              TO X163-AUDIT-HRS.               DTSBX440
00602                                                                   DTSBX440
00603       MOVE L205-INTEGER (22)      TO W-INTEGER.                   DTSBX440
00604       MOVE W-INTEGER              TO X163-NEW-EMPLOYEE-CNT.       DTSBX440
00605                                                                   DTSBX440
00606       MOVE L205-INTEGER (23)      TO W-INTEGER.                   DTSBX440
00607       MOVE W-INTEGER              TO X163-INDCON-TO-EMPL-CNT.     DTSBX440
00608                                                                   DTSBX440
00609  P2200-EXIT.                                                      DTSBX440
00610        EXIT.                                                      DTSBX440
00611                                                                   DTSBX440
00612  P2300-AUDIT-X164.                                                DTSBX440
00613        INITIALIZE X164-REC                                        DTSBX440
00614        MOVE +12                      TO L205-LAST-FIELD           DTSBX440
00615        MOVE +12                      TO L205-LAST-FIELD-LEN       DTSBX440
00616                                                                   DTSBX440
00617 **** RECORD TYPE                                                  DTSBX440
00618        MOVE +3                       TO L205-FIELD-LENGTH (1).    DTSBX440
00619        SET L205-TYPE-TEXT-88 (1)     TO TRUE.                     DTSBX440
00620                                                                   DTSBX440
00621 **** EMPLOYER NUMBER                                              DTSBX440
00622        MOVE +6                       TO L205-FIELD-LENGTH (2).    DTSBX440
00623        SET L205-TYPE-TEXT-88 (2)     TO TRUE.                     DTSBX440
00624                                                                   DTSBX440
00625 **** ASSIGN NO                                                    DTSBX440
00626        MOVE +8                       TO L205-FIELD-LENGTH (3).    DTSBX440
00627        SET L205-TYPE-TEXT-88 (3)     TO TRUE.                     DTSBX440
00628                                                                   DTSBX440
00629 **** QUARTER                                                      DTSBX440
00630        MOVE +6                       TO L205-FIELD-LENGTH (4).    DTSBX440
00631        SET L205-TYPE-TEXT-88 (4)     TO TRUE.                     DTSBX440
00632                                                                   DTSBX440
00633 **** QTR-AUDITED-IND                                              DTSBX440
00634        MOVE +1                       TO L205-FIELD-LENGTH (5).    DTSBX440
00635        SET L205-TYPE-TEXT-88 (5)     TO TRUE.                     DTSBX440
00636                                                                   DTSBX440
00637 **** QTR GROSS PAYROLL                                            DTSBX440
00638        MOVE +12                      TO L205-FIELD-LENGTH (6).    DTSBX440
00639        SET L205-TYPE-NUMBER-88 (6)     TO TRUE.                   DTSBX440
00640                                                                   DTSBX440
00641 **** QTR UNDER TOT WAGE                                           DTSBX440
00642        MOVE +12                      TO L205-FIELD-LENGTH (7).    DTSBX440
00643        SET L205-TYPE-NUMBER-88 (7)     TO TRUE.                   DTSBX440
00644                                                                   DTSBX440
00645 **** QTR UNDER TAX WAGE                                           DTSBX440
00646        MOVE +12                      TO L205-FIELD-LENGTH (8).    DTSBX440
00647        SET L205-TYPE-NUMBER-88 (8)     TO TRUE.                   DTSBX440
00648                                                                   DTSBX440
00649 **** QTR UNDER CONTRIB                                            DTSBX440
00650        MOVE +12                      TO L205-FIELD-LENGTH (9).    DTSBX440
00651        SET L205-TYPE-NUMBER-88 (9)     TO TRUE.                   DTSBX440
00652                                                                   DTSBX440
00653 **** QTR OVER  TOT WAGE                                           DTSBX440
00654        MOVE +12                      TO L205-FIELD-LENGTH (10).   DTSBX440
00655        SET L205-TYPE-NUMBER-88 (10)     TO TRUE.                  DTSBX440
00656                                                                   DTSBX440
00657 **** QTR OVER  TAX WAGE                                           DTSBX440
00658        MOVE +12                      TO L205-FIELD-LENGTH (11).   DTSBX440
00659        SET L205-TYPE-NUMBER-88 (11)    TO TRUE.                   DTSBX440
00660                                                                   DTSBX440
00661 **** QTR OVER  CONTRIB                                            DTSBX440
00662        MOVE +12                      TO L205-FIELD-LENGTH (12).   DTSBX440
00663        SET L205-TYPE-NUMBER-88 (12)    TO TRUE.                   DTSBX440
00664                                                                   DTSBX440
00665       MOVE AUDIT-REC                TO L205-INPUT-DATA.           DTSBX440
00666       CALL 'DTSBU205'               USING L205-LINK-AREA.         DTSBX440
00667                                                                   DTSBX440
00668       MOVE L205-TEXT (1) (1:03)  TO X164-REC-TYPE.                DTSBX440
00669                                                                   DTSBX440
00670       MOVE L205-TEXT (2) (1:06)  TO X164-EMP-NO.                  DTSBX440
00671                                                                   DTSBX440
00672       MOVE L205-TEXT (3)  (1:08)  TO X164-ASSIGN-NO.              DTSBX440
00673                                                                   DTSBX440
00674       MOVE L205-TEXT (4) (1:6)  TO X164-QUARTER.                  DTSBX440
00675                                                                   DTSBX440
00676       MOVE L205-TEXT (5) (1:1)  TO X164-QTR-AUDITED-IND.          DTSBX440
00677                                                                   DTSBX440
00678       MOVE L205-INTEGER (6)      TO W-INTEGER.                    DTSBX440
00679       MOVE L205-FRACTION (6)     TO W-FRACTION.                   DTSBX440
00680       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00681       MOVE W-NUMBER              TO X164-QTR-GROSS-PAYROLL.       DTSBX440
00682                                                                   DTSBX440
00683       MOVE L205-INTEGER (7)      TO W-INTEGER.                    DTSBX440
00684       MOVE L205-FRACTION (7)     TO W-FRACTION.                   DTSBX440
00685       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00686       MOVE W-NUMBER              TO X164-QTR-UNDER-TOT-WAGE.      DTSBX440
00687                                                                   DTSBX440
00688       MOVE L205-INTEGER (8)      TO W-INTEGER.                    DTSBX440
00689       MOVE L205-FRACTION (8)     TO W-FRACTION.                   DTSBX440
00690       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00691       MOVE W-NUMBER              TO X164-QTR-UNDER-TAX-WAGE.      DTSBX440
00692                                                                   DTSBX440
00693       MOVE L205-INTEGER (9)      TO W-INTEGER.                    DTSBX440
00694       MOVE L205-FRACTION (9)     TO W-FRACTION.                   DTSBX440
00695       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00696       MOVE W-NUMBER              TO X164-QTR-UNDER-CONTRIB.       DTSBX440
00697                                                                   DTSBX440
00698       MOVE L205-INTEGER (10)     TO W-INTEGER.                    DTSBX440
00699       MOVE L205-FRACTION (10)    TO W-FRACTION.                   DTSBX440
00700       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00701       MOVE W-NUMBER              TO X164-QTR-OVER-TOT-WAGE.       DTSBX440
00702                                                                   DTSBX440
00703       MOVE L205-INTEGER (11)     TO W-INTEGER.                    DTSBX440
00704       MOVE L205-FRACTION (11)    TO W-FRACTION.                   DTSBX440
00705       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00706       MOVE W-NUMBER              TO X164-QTR-OVER-TAX-WAGE.       DTSBX440
00707                                                                   DTSBX440
00708       MOVE L205-INTEGER (12)     TO W-INTEGER.                    DTSBX440
00709       MOVE L205-FRACTION (12)    TO W-FRACTION.                   DTSBX440
00710       COMPUTE W-NUMBER = W-INTEGER + W-FRACTION.                  DTSBX440
00711       MOVE W-NUMBER              TO X164-QTR-OVER-CONTRIB.        DTSBX440
00712                                                                   DTSBX440
00713                                                                   DTSBX440
00714  P2300-EXIT.                                                      DTSBX440
00715        EXIT.                                                      DTSBX440
00716                                                                   DTSBX440
00717  P3000-AUDIT-MFAS.                                                DTSBX440
00718      MOVE 0 TO T040-UPD-MFAS                                      DTSBX440
00719                T040-UPD-MAUR                                      DTSBX440
00720                T040-UPD-MAUY.                                     DTSBX440
00721                                                                   DTSBX440
00722      MOVE X163-ASSIGN-NO      TO WRK-FLD-ASSIGN.                  DTSBX440
00723      MOVE WRK-FLD-ASSIGN-YEAR TO WRK-ASSIGN-YY                    DTSBX440
00724      MOVE 20                  TO WRK-ASSIGN-CC                    DTSBX440
00725      MOVE WRK-FLD-ASSIGN-NBR  TO WRK-ASSIGN-NBR                   DTSBX440
00726                                                                   DTSBX440
00727      MOVE LOW-VALUES     TO MFAS-KEY-AREA.                        DTSBX440
00728      MOVE X163-EMP-NO    TO MFAS-EMP-NO R140-EMP-NO.              DTSBX440
00729      MOVE WRK-ASSIGN-NO  TO MFAS-ASSIGN-NO.                       DTSBX440
00730      SET MFAS-FAS-88     TO TRUE.                                 DTSBX440
00731      MOVE MFAS-KEY-AREA  TO MSKL-KEY-AREA.                        DTSBX440
00732                                                                   DTSBX440
00733      DISPLAY 'NEW AUD-MFAS ' MFAS-EMP-NO                          DTSBX440
00734                                                                   DTSBX440
00735      PERFORM S910-READ            THRU S910-EXIT                  DTSBX440
00736       IF L910-OK-88                                               DTSBX440
00737          MOVE MSKL-REC            TO MFAS-REC                     DTSBX440
00738       ELSE                                                        DTSBX440
00739         DISPLAY '  MFAS REC NOT FOUND.ABENDING' X163-EMP-NO       DTSBX440
00740         GO TO S999-ABEND.                                         DTSBX440
00741                                                                   DTSBX440
00742  P3000-AUDIT-MFAS-COMP-DATE.                                      DTSBX440
00743       MOVE ZEROS TO T040-COMPLETED-DATE.                          DTSBX440
00744       IF X163-COMPLETED-DT > SPACES                               DTSBX440
00745          NEXT SENTENCE                                            DTSBX440
00746       ELSE                                                        DTSBX440
00747          GO TO P3000-AUDIT-MFAS-PROCESS-DATE.                     DTSBX440
00748                                                                   DTSBX440
00749       MOVE X163-COMPLETED-DT   TO W-SLASH-DATE.                   DTSBX440
00750       MOVE W-SLASH-DT-MM       TO L001-FED-8-MO.                  DTSBX440
00751       MOVE W-SLASH-DT-DD       TO L001-FED-8-DA.                  DTSBX440
00752       MOVE W-SLASH-DT-CCYY     TO L001-FED-8-YR.                  DTSBX440
00753       PERFORM S001-FROM-FED-8  THRU S001-EXIT.                    DTSBX440
00754       IF NOT L001-VALID-DATE                                      DTSBX440
00755          SET W-ERROR-YES-88  TO TRUE                              DTSBX440
00756          MOVE SPACES TO R140-MESSAGE                              DTSBX440
00757          MOVE X163-EMP-NO        TO R140-EMP-NO                   DTSBX440
00758          MOVE 'X163 RECORD  '    TO R140-RECORD-DESC              DTSBX440
00759          STRING 'REPORT: INVALID X163 COMPL  DATE '               DTSBX440
00760             X163-COMPLETED-DT DELIMITED BY SIZE                   DTSBX440
00761             INTO R140-MESSAGE                                     DTSBX440
00762          END-STRING                                               DTSBX440
00763          DISPLAY 'X163 RECORD  '    R140-RECORD-DESC              DTSBX440
00764          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
00765          MOVE 1 TO T040-ERROR-SW                                  DTSBX440
00766          GO TO P3000-AUDIT-MFAS-PROCESS-DATE                      DTSBX440
00767       ELSE                                                        DTSBX440
00768          MOVE L001-FED-8-DATE-9  TO W-COMP-DATE                   DTSBX440
00769       END-IF.                                                     DTSBX440
00770                                                                   DTSBX440
00771       DISPLAY 'MCOMP ' MFAS-COMPLETED-DATE                        DTSBX440
00772       DISPLAY 'XCOMP ' W-COMP-DATE                                DTSBX440
00773                                                                   DTSBX440
00774       IF MFAS-COMPLETED-DATE NOT = W-COMP-DATE                    DTSBX440
00775          MOVE L001-FED-8-DATE-9  TO T040-COMPLETED-DATE           DTSBX440
00776          DISPLAY 'XCOMP NOT EQ '                                  DTSBX440
00777          MOVE 1 TO T040-UPD-MFAS                                  DTSBX440
00778          DISPLAY 'MFAS STAT CD '  MFAS-STATUS-CD                  DTSBX440
00779         IF MFAS-STATUS-CD NOT = 'C'                               DTSBX440
00780            MOVE 'C' TO T040-STATUS-CD                             DTSBX440
00781            MOVE 1   TO T040-UPD-MFAS.                             DTSBX440
00782                                                                   DTSBX440
00783                                                                   DTSBX440
00784  P3000-AUDIT-MFAS-PROCESS-DATE.                                   DTSBX440
00785       MOVE ZEROS TO T040-PROCESSED-DATE.                          DTSBX440
00786       MOVE SPACES TO T040-STATUS-CD.                              DTSBX440
00787       IF X163-PROCESSED-DT > SPACES                               DTSBX440
00788          NEXT SENTENCE                                            DTSBX440
00789       ELSE                                                        DTSBX440
00790          GO TO P3000-AUDIT-MFAS-FLD-REP-ID.                       DTSBX440
00791                                                                   DTSBX440
00792       MOVE X163-PROCESSED-DT   TO W-SLASH-DATE.                   DTSBX440
00793       MOVE W-SLASH-DT-MM       TO L001-FED-8-MO.                  DTSBX440
00794       MOVE W-SLASH-DT-DD       TO L001-FED-8-DA.                  DTSBX440
00795       MOVE W-SLASH-DT-CCYY     TO L001-FED-8-YR.                  DTSBX440
00796       PERFORM S001-FROM-FED-8  THRU S001-EXIT.                    DTSBX440
00797       IF NOT L001-VALID-DATE                                      DTSBX440
00798          SET W-ERROR-YES-88  TO TRUE                              DTSBX440
00799          MOVE SPACES TO R140-MESSAGE                              DTSBX440
00800          MOVE X163-EMP-NO        TO R140-EMP-NO                   DTSBX440
00801          MOVE 'X163 RECORD  '   TO R140-RECORD-DESC               DTSBX440
00802          STRING 'REPORT: INVALID X163 PROCESS DT  '               DTSBX440
00803             X163-PROCESSED-DT DELIMITED BY SIZE                   DTSBX440
00804             INTO R140-MESSAGE                                     DTSBX440
00805          END-STRING                                               DTSBX440
00806          DISPLAY 'X16X RECORD  '   R140-RECORD-DESC               DTSBX440
00807          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
00808          MOVE 1 TO T040-ERROR-SW                                  DTSBX440
00809          GO TO P3000-AUDIT-MFAS-FLD-REP-ID                        DTSBX440
00810       ELSE                                                        DTSBX440
00811          MOVE L001-FED-8-DATE-9  TO W-PROCESS-DATE                DTSBX440
00812       END-IF.                                                     DTSBX440
00813                                                                   DTSBX440
00814                                                                   DTSBX440
00815       DISPLAY 'MPROC ' MFAS-PROCESSED-DATE                        DTSBX440
00816       DISPLAY 'XPROC ' W-PROCESS-DATE                             DTSBX440
00817                                                                   DTSBX440
00818       IF MFAS-PROCESSED-DATE NOT = W-PROCESS-DATE                 DTSBX440
00819          MOVE L001-FED-8-DATE-9  TO T040-PROCESSED-DATE           DTSBX440
00820          DISPLAY 'XPROC NOT EQ '                                  DTSBX440
00821          MOVE 1     TO T040-UPD-MFAS                              DTSBX440
00822          DISPLAY 'MFAS STAT CD '  MFAS-STATUS-CD                  DTSBX440
00823         IF MFAS-STATUS-CD NOT = 'P'                               DTSBX440
00824            MOVE 'P' TO T040-STATUS-CD                             DTSBX440
00825            MOVE 1   TO T040-UPD-MFAS.                             DTSBX440
00826                                                                   DTSBX440
00827  P3000-AUDIT-MFAS-FLD-REP-ID.                                     DTSBX440
00828        MOVE ZEROS  TO T040-FLD-REP-ID.                            DTSBX440
00829        MOVE SPACES TO T040-OP-ID.                                 DTSBX440
00830        DISPLAY ' X163-FLD ' X163-FLD-REP-ID                       DTSBX440
00831       IF X163-FLD-REP-ID > ZEROS                                  DTSBX440
00832          NEXT SENTENCE                                            DTSBX440
00833       ELSE                                                        DTSBX440
00834          GO TO P3000-AUDIT-MFAS-EMP-SIZE.                         DTSBX440
00835                                                                   DTSBX440
00836       MOVE X163-FLD-REP-ID TO L062-FLD-REP-ID                     DTSBX440
00837       PERFORM S062-LOOKUP-FLD-REP  THRU S062-EXIT                 DTSBX440
00838                                                                   DTSBX440
00839       IF L062-VALID                                               DTSBX440
00840          NEXT SENTENCE                                            DTSBX440
00841       ELSE                                                        DTSBX440
00842          MOVE 'X163 RECORD  '   TO R140-RECORD-DESC               DTSBX440
00843          STRING 'REPORT: INVALID X163 FLD REP ID  '               DTSBX440
00844             X163-FLD-REP-ID  DELIMITED BY SIZE                    DTSBX440
00845             INTO R140-MESSAGE                                     DTSBX440
00846          END-STRING                                               DTSBX440
00847          DISPLAY 'X16Y RECORD  '   R140-RECORD-DESC               DTSBX440
00848          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
00849          MOVE 1 TO T040-ERROR-SW                                  DTSBX440
00850          GO TO P3000-AUDIT-MFAS-EMP-SIZE.                         DTSBX440
00851                                                                   DTSBX440
00852        DISPLAY ' XFLD ' X163-FLD-REP-ID                           DTSBX440
00853        DISPLAY ' MFLD ' MFAS-FLD-REP-ID                           DTSBX440
00854                                                                   DTSBX440
00855       IF X163-FLD-REP-ID NOT = MFAS-FLD-REP-ID                    DTSBX440
00856          MOVE X163-FLD-REP-ID TO T040-FLD-REP-ID                  DTSBX440
00857          MOVE L062-OP-ID      TO T040-OP-ID WRK-OP-ID             DTSBX440
00858          DISPLAY 'XFLDR NOT EQ '                                  DTSBX440
00859          MOVE 1 TO T040-UPD-MFAS.                                 DTSBX440
00860                                                                   DTSBX440
00861        DISPLAY ' XPID ' L062-OP-ID                                DTSBX440
00862        DISPLAY ' MPID ' MFAS-SOURCE-OP-ID                         DTSBX440
00863                                                                   DTSBX440
00864        MOVE L062-OP-ID      TO  WRK-OP-ID                         DTSBX440
00865                                                                   DTSBX440
00866       IF L062-OP-ID NOT = MFAS-SOURCE-OP-ID                       DTSBX440
00867          MOVE L062-OP-ID      TO T040-OP-ID                       DTSBX440
00868          DISPLAY 'XOPID NOT EQ '                                  DTSBX440
00869          MOVE 1 TO T040-UPD-MFAS.                                 DTSBX440
00870                                                                   DTSBX440
00871  P3000-AUDIT-MFAS-EMP-SIZE.                                       DTSBX440
00872       MOVE SPACES TO T040-EMP-SIZE-IND.                           DTSBX440
00873       IF X163-EMP-SIZE-IND = SPACES                               DTSBX440
00874          MOVE 'S' TO X163-EMP-SIZE-IND.                           DTSBX440
00875                                                                   DTSBX440
00876                                                                   DTSBX440
00877        MOVE X163-EMP-SIZE-IND  TO L036-CD                         DTSBX440
00878        PERFORM S036-EMP-SIZE-IND    THRU S036-EXIT                DTSBX440
00879                                                                   DTSBX440
00880        IF L036-VALID                                              DTSBX440
00881           NEXT SENTENCE                                           DTSBX440
00882       ELSE                                                        DTSBX440
00883          STRING 'REPORT: INVALID X163 EMP SIZE    '               DTSBX440
00884             X163-EMP-SIZE-IND  DELIMITED BY SIZE                  DTSBX440
00885             INTO R140-MESSAGE                                     DTSBX440
00886          END-STRING                                               DTSBX440
00887          DISPLAY 'X16A RECORD  '    R140-RECORD-DESC              DTSBX440
00888          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
00889          MOVE 1 TO T040-ERROR-SW                                  DTSBX440
00890          GO TO P3000-AUDIT-T040.                                  DTSBX440
00891                                                                   DTSBX440
00892       DISPLAY 'XEMP ' X163-EMP-SIZE-IND                           DTSBX440
00893       DISPLAY 'MEMP ' MFAS-EMP-SIZE-IND                           DTSBX440
00894                                                                   DTSBX440
00895       IF X163-EMP-SIZE-IND NOT = MFAS-EMP-SIZE-IND                DTSBX440
00896          MOVE X163-EMP-SIZE-IND TO T040-EMP-SIZE-IND              DTSBX440
00897          DISPLAY 'XESIZ NOT EQ '                                  DTSBX440
00898          MOVE 1 TO T040-UPD-MFAS.                                 DTSBX440
00899                                                                   DTSBX440
00900  P3000-AUDIT-T040.                                                DTSBX440
00901        IF T040-UPD-MFAS = 0                                       DTSBX440
00902        DISPLAY ' NPUPD T040 MFAS ' T040-UPD-MFAS                  DTSBX440
00903           GO TO P3000-EXIT.                                       DTSBX440
00904                                                                   DTSBX440
00905        DISPLAY ' WRITE T040 MFAS ' T040-UPD-MFAS.                 DTSBX440
00906        MOVE LENGTH OF T040-LINK-AREA  TO T040-LENGTH              DTSBX440
00907        MOVE '040'                     TO T040-REC-TYPE.           DTSBX440
00908                                                                   DTSBX440
00909        MOVE X163-EMP-NO               TO T040-EMP-NO.             DTSBX440
00910        MOVE L005-DATE                 TO T040-SYS-DATE.           DTSBX440
00911        MOVE L005-TIME                 TO T040-SYS-TIME.           DTSBX440
00912        SET T040-MFAS-88               TO TRUE.                    DTSBX440
00913        MOVE WRK-ASSIGN-NO             TO T040-ASSIGN-NO.          DTSBX440
00914        MOVE ZEROS                     TO T040-FIRST-YRQ           DTSBX440
00915                                          T040-LAST-YRQ            DTSBX440
00916                                          T040-QTRS-AUDITED-CNT    DTSBX440
00917                                          T040-ERR-TYPE(1)         DTSBX440
00918                                          T040-ERR-TYPE(2)         DTSBX440
00919                                          T040-ERR-TYPE(3)         DTSBX440
00920                                          T040-ERR-TYPE(4)         DTSBX440
00921                                          T040-ERR-TYPE(5)         DTSBX440
00922                                          T040-MONEY-DUE-AMT       DTSBX440
00923                                          T040-MONEY-COLLECT-AMT   DTSBX440
00924                                          T040-AUDIT-HRS           DTSBX440
00925                                          T040-NEW-EMPLOYEE-CNT    DTSBX440
00926                                          T040-INDCON-TO-EMPL-CNT. DTSBX440
00927        MOVE SPACES                    TO T040-PEN-WAIVE-IND       DTSBX440
00928                                          T040-INT-WAIVE-IND.      DTSBX440
00929                                                                   DTSBX440
00930       MOVE T040-LINK-AREA            TO TSKL-REC.                 DTSBX440
00931       PERFORM S927B-WRITE            THRU S927B-EXIT.             DTSBX440
00932       ADD +1                         TO W-T040-MFAS-CNT.          DTSBX440
00933                                                                   DTSBX440
00934  P3000-EXIT.                                                      DTSBX440
00935      EXIT.                                                        DTSBX440
00936                                                                   DTSBX440
00937  P4000-AUDIT-MAUR.                                                DTSBX440
00938       MOVE 0 TO T040-UPD-MAUR.                                    DTSBX440
00939      MOVE LOW-VALUES                TO MAUR-KEY-AREA.             DTSBX440
00940      MOVE X163-EMP-NO               TO MAUR-EMP-NO.               DTSBX440
00941      SET MAUR-AUR-88                TO TRUE.                      DTSBX440
00942      MOVE WRK-ASSIGN-NO             TO MAUR-ASSIGN-NO.            DTSBX440
00943      MOVE MAUR-KEY-AREA             TO MSKL-KEY-AREA.             DTSBX440
00944      PERFORM S910-READ              THRU S910-EXIT.               DTSBX440
00945      IF L910-NO-REC-88                                            DTSBX440
00946         DISPLAY ' MAUR NOT FOUND ' X163-EMP-NO                    DTSBX440
00947         SET MAUR-REC-NOT-FOUND-88 TO TRUE                         DTSBX440
00948      ELSE                                                         DTSBX440
00949         DISPLAY ' MAUR FOUND ' X163-EMP-NO                        DTSBX440
00950         MOVE MSKL-REC TO MAUR-REC                                 DTSBX440
00951         SET MAUR-REC-FOUND-88 TO TRUE.                            DTSBX440
00952                                                                   DTSBX440
00953  P4000-FIRST-YRQ.                                                 DTSBX440
00954      MOVE ZEROS TO T040-FIRST-YRQ WRK-YRQ.                        DTSBX440
00955      IF X163-FIRST-YRQ = SPACES                                   DTSBX440
00956         GO TO P4000-LAST-YRQ.                                     DTSBX440
00957                                                                   DTSBX440
00958      MOVE X163-FIRST-YRQ           TO WRK-SLASH-YRQ.              DTSBX440
00959      MOVE WRK-SLASH-YRQ-YR          TO WRK-YRQ-YR                 DTSBX440
00960      MOVE WRK-SLASH-YRQ-QTR         TO WRK-YRQ-QTR                DTSBX440
00961      MOVE WRK-YRQ                   TO L004-QTR-5-9.              DTSBX440
00962      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX440
00963      IF L004-INVALID-QTR                                          DTSBX440
00964          STRING 'REPORT: INVALID X163 FIRST QTR   '               DTSBX440
00965             X163-FIRST-YRQ DELIMITED BY SIZE                      DTSBX440
00966             INTO R140-MESSAGE                                     DTSBX440
00967          END-STRING                                               DTSBX440
00968          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
00969          MOVE 1 TO T040-ERROR-SW                                  DTSBX440
00970          GO TO P4000-LAST-YRQ.                                    DTSBX440
00971                                                                   DTSBX440
00972      MOVE L004-QTR-5-9   TO WRK-YRQ W-WRK-YRQ.                    DTSBX440
00973      MOVE L004-QTR-5-YR  TO WRK-CAL-YEAR.                         DTSBX440
00974                                                                   DTSBX440
00975        DISPLAY ' WFYRQ ' W-WRK-YRQ                                DTSBX440
00976        DISPLAY ' MFYRQ ' MAUR-FIRST-YRQ                           DTSBX440
00977                                                                   DTSBX440
00978      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
00979        W-WRK-YRQ NOT = MAUR-FIRST-YRQ                             DTSBX440
00980        DISPLAY ' WFYRQ NOT EQ '                                   DTSBX440
00981         MOVE W-WRK-YRQ          TO T040-FIRST-YRQ                 DTSBX440
00982         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
00983                                                                   DTSBX440
00984  P4000-LAST-YRQ.                                                  DTSBX440
00985      MOVE ZEROS TO T040-LAST-YRQ.                                 DTSBX440
00986      IF X163-LAST-YRQ = SPACES                                    DTSBX440
00987         GO TO P4000-QTR-AUDIT-CNT.                                DTSBX440
00988                                                                   DTSBX440
00989                                                                   DTSBX440
00990      MOVE X163-LAST-YRQ           TO WRK-SLASH-YRQ.               DTSBX440
00991      MOVE WRK-SLASH-YRQ-YR          TO WRK-YRQ-YR                 DTSBX440
00992      MOVE WRK-SLASH-YRQ-QTR         TO WRK-YRQ-QTR                DTSBX440
00993      MOVE WRK-YRQ                   TO L004-QTR-5-9.              DTSBX440
00994      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX440
00995      IF L004-INVALID-QTR                                          DTSBX440
00996          STRING 'REPORT: INVALID X163 LAST  QTR   '               DTSBX440
00997             X163-LAST-YRQ DELIMITED BY SIZE                       DTSBX440
00998             INTO R140-MESSAGE                                     DTSBX440
00999          END-STRING                                               DTSBX440
01000          DISPLAY 'X16C RECORD  '    R140-RECORD-DESC              DTSBX440
01001          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
01002          MOVE 1 TO T040-ERROR-SW                                  DTSBX440
01003         GO TO P4000-QTR-AUDIT-CNT.                                DTSBX440
01004                                                                   DTSBX440
01005      MOVE L004-QTR-5-9   TO WRK-YRQ W-WRK-YRQ.                    DTSBX440
01006                                                                   DTSBX440
01007                                                                   DTSBX440
01008        DISPLAY ' WLYRQ ' W-WRK-YRQ                                DTSBX440
01009        DISPLAY ' MLYRQ ' MAUR-LAST-YRQ                            DTSBX440
01010                                                                   DTSBX440
01011      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01012         W-WRK-YRQ NOT = MAUR-LAST-YRQ                             DTSBX440
01013         MOVE W-WRK-YRQ         TO T040-LAST-YRQ                   DTSBX440
01014        DISPLAY ' WLYRQ NOT EQ '                                   DTSBX440
01015         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01016                                                                   DTSBX440
01017  P4000-QTR-AUDIT-CNT.                                             DTSBX440
01018      MOVE ZEROS TO T040-QTRS-AUDITED-CNT                          DTSBX440
01019      IF X163-QTRS-AUDITED-CNT = ZEROS                             DTSBX440
01020         GO TO P4000-EMP-SIZE.                                     DTSBX440
01021                                                                   DTSBX440
01022      IF X163-QTRS-AUDITED-CNT > 8                                 DTSBX440
01023          STRING 'REPORT: INVALID X163 QTRS AUDITED'               DTSBX440
01024             X163-QTRS-AUDITED-CNT DELIMITED BY SIZE               DTSBX440
01025             INTO R140-MESSAGE                                     DTSBX440
01026          END-STRING                                               DTSBX440
01027          DISPLAY 'X16D RECORD  '    R140-RECORD-DESC              DTSBX440
01028          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
01029          MOVE 1 TO T040-ERROR-SW                                  DTSBX440
01030         GO TO P4000-EMP-SIZE.                                     DTSBX440
01031                                                                   DTSBX440
01032         MOVE  X163-QTRS-AUDITED-CNT TO WRK-QTR-AUDITED-CNT.       DTSBX440
01033                                                                   DTSBX440
01034         DISPLAY ' X163 QAUD ' WRK-QTR-AUDITED-CNT                 DTSBX440
01035         DISPLAY ' MAUR QUAD ' MAUR-QTRS-AUDITED-CNT               DTSBX440
01036                                                                   DTSBX440
01037      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01038         WRK-QTR-AUDITED-CNT NOT = MAUR-QTRS-AUDITED-CNT           DTSBX440
01039         MOVE WRK-QTR-AUDITED-CNT TO T040-QTRS-AUDITED-CNT         DTSBX440
01040         DISPLAY ' X163 QACNT NOT EQ'                              DTSBX440
01041         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01042                                                                   DTSBX440
01043  P4000-EMP-SIZE.                                                  DTSBX440
01044      MOVE SPACES TO T040-EMP-SIZE-IND.                            DTSBX440
01045      IF X163-EMP-SIZE-IND = SPACES                                DTSBX440
01046         MOVE 'S' TO X163-EMP-SIZE-IND.                            DTSBX440
01047                                                                   DTSBX440
01048        MOVE X163-EMP-SIZE-IND  TO L036-CD                         DTSBX440
01049        PERFORM S036-EMP-SIZE-IND    THRU S036-EXIT                DTSBX440
01050                                                                   DTSBX440
01051        IF L036-VALID                                              DTSBX440
01052           NEXT SENTENCE                                           DTSBX440
01053       ELSE                                                        DTSBX440
01054          STRING 'REPORT: INVALID X163 EMP SIZE    '               DTSBX440
01055             X163-EMP-SIZE-IND DELIMITED BY SIZE                   DTSBX440
01056             INTO R140-MESSAGE                                     DTSBX440
01057             END-STRING                                            DTSBX440
01058          DISPLAY 'X16E RECORD  '    R140-RECORD-DESC              DTSBX440
01059          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
01060          MOVE 1 TO T040-ERROR-SW                                  DTSBX440
01061         GO TO P4000-ERR-TYPE1.                                    DTSBX440
01062                                                                   DTSBX440
01063         DISPLAY ' XEMP ' X163-EMP-SIZE-IND                        DTSBX440
01064         DISPLAY ' MAUE ' MAUR-EMP-SIZE-IND                        DTSBX440
01065      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01066         X163-EMP-SIZE-IND NOT = MAUR-EMP-SIZE-IND                 DTSBX440
01067         MOVE X163-EMP-SIZE-IND  TO T040-EMP-SIZE-IND              DTSBX440
01068         DISPLAY ' XEMPS      NOT EQ'                              DTSBX440
01069         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01070                                                                   DTSBX440
01071  P4000-ERR-TYPE1.                                                 DTSBX440
01072      MOVE ZEROS TO T040-ERR-TYPE(1)                               DTSBX440
01073                    T040-ERR-TYPE(2)                               DTSBX440
01074                    T040-ERR-TYPE(3)                               DTSBX440
01075                    T040-ERR-TYPE(4)                               DTSBX440
01076                    T040-ERR-TYPE(5)                               DTSBX440
01077                      AUDIT-CNT-SUB.                               DTSBX440
01078      MOVE X163-ERR-TYPE1 TO WRK-ERR-TYPE(1).                      DTSBX440
01079      MOVE X163-ERR-TYPE2 TO WRK-ERR-TYPE(2).                      DTSBX440
01080      MOVE X163-ERR-TYPE3 TO WRK-ERR-TYPE(3).                      DTSBX440
01081      MOVE X163-ERR-TYPE4 TO WRK-ERR-TYPE(4).                      DTSBX440
01082      MOVE X163-ERR-TYPE5 TO WRK-ERR-TYPE(5).                      DTSBX440
01083      PERFORM P4000-AUDIT-CNT THRU P4000-AUDIT-CNT-EXIT 5 TIMES.   DTSBX440
01084                                                                   DTSBX440
01085      GO TO P4000-DUE-AMT.                                         DTSBX440
01086  P4000-AUDIT-CNT.                                                 DTSBX440
01087      ADD 1 TO AUDIT-CNT-SUB.                                      DTSBX440
01088      MOVE WRK-ERR-TYPE(AUDIT-CNT-SUB) TO WRK-ERROR-TYPE.          DTSBX440
01089      IF WRK-ERROR-TYPE  = ZEROS                                   DTSBX440
01090         GO TO P4000-AUDIT-CNT-EXIT.                               DTSBX440
01091                                                                   DTSBX440
01092                                                                   DTSBX440
01093           MOVE WRK-ERROR-TYPE TO L036-CD-2                        DTSBX440
01094           SET L036-MAUR-ERROR-TYPE TO TRUE                        DTSBX440
01095           PERFORM S036-EDIT-CODES THRU S036-EXIT                  DTSBX440
01096           IF L036-NOT-VALID                                       DTSBX440
01097             STRING 'REPORT: INVALID X163 ERROR TYPE  '            DTSBX440
01098             WRK-ERROR-TYPE DELIMITED BY SIZE                      DTSBX440
01099             INTO R140-MESSAGE                                     DTSBX440
01100             END-STRING                                            DTSBX440
01101          DISPLAY 'X16F RECORD  '    R140-RECORD-DESC              DTSBX440
01102             PERFORM S946-WRITE-R140 THRU S946-EXIT                DTSBX440
01103             MOVE 1 TO T040-ERROR-SW                               DTSBX440
01104             GO TO P4000-AUDIT-CNT-EXIT.                           DTSBX440
01105                                                                   DTSBX440
01106         DISPLAY ' WTYPE ' WRK-ERROR-TYPE                          DTSBX440
01107         DISPLAY ' MTYPE ' MAUR-ERROR-TYPE(AUDIT-CNT-SUB)          DTSBX440
01108                                                                   DTSBX440
01109      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01110         WRK-ERROR-TYPE NOT = MAUR-ERROR-TYPE(AUDIT-CNT-SUB)       DTSBX440
01111         MOVE WRK-ERROR-TYPE TO T040-ERR-TYPE(AUDIT-CNT-SUB)       DTSBX440
01112         DISPLAY ' XETYPE     NOT EQ' AUDIT-CNT-SUB                DTSBX440
01113         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01114  P4000-AUDIT-CNT-EXIT.  EXIT.                                     DTSBX440
01115                                                                   DTSBX440
01116  P4000-DUE-AMT.                                                   DTSBX440
01117      MOVE ZEROS TO T040-MONEY-DUE-AMT WRK-DUE-AMT.                DTSBX440
01118      IF X163-MONEY-DUE-AMT = ZEROS                                DTSBX440
01119         GO TO P4000-COLLECT-AMT.                                  DTSBX440
01120                                                                   DTSBX440
01121      MOVE X163-MONEY-DUE-AMT        TO W-MONEY-AMT-X.             DTSBX440
01122      MOVE W-MONEY-AMT-9             TO W-MONEY-AMT.               DTSBX440
01123      MOVE W-MONEY-AMT               TO WRK-DUE-AMT                DTSBX440
01124                                                                   DTSBX440
01125         DISPLAY 'WAMT ' WRK-DUE-AMT                               DTSBX440
01126         DISPLAY 'MAMT ' MAUR-MONEY-DUE-AMT                        DTSBX440
01127                                                                   DTSBX440
01128      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01129         WRK-DUE-AMT  NOT = MAUR-MONEY-DUE-AMT                     DTSBX440
01130         MOVE WRK-DUE-AMT           TO T040-MONEY-DUE-AMT          DTSBX440
01131         DISPLAY ' WAMT       NOT EQ'                              DTSBX440
01132         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01133                                                                   DTSBX440
01134  P4000-COLLECT-AMT.                                               DTSBX440
01135      MOVE ZEROS TO T040-MONEY-COLLECT-AMT WRK-COLLECT-AMT.        DTSBX440
01136      IF X163-MONEY-COLLECT-AMT = ZEROS                            DTSBX440
01137         GO TO P4000-REASON-CD.                                    DTSBX440
01138                                                                   DTSBX440
01139      MOVE X163-MONEY-COLLECT-AMT        TO W-MONEY-AMT-X.         DTSBX440
01140      MOVE W-MONEY-AMT-9             TO W-MONEY-AMT.               DTSBX440
01141      MOVE W-MONEY-AMT               TO WRK-COLLECT-AMT            DTSBX440
01142                                                                   DTSBX440
01143         DISPLAY 'WCAMT ' WRK-COLLECT-AMT                          DTSBX440
01144         DISPLAY 'MCAMT ' MAUR-MONEY-COLLECT-AMT                   DTSBX440
01145                                                                   DTSBX440
01146      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01147         WRK-COLLECT-AMT  NOT = MAUR-MONEY-COLLECT-AMT             DTSBX440
01148         MOVE WRK-COLLECT-AMT    TO T040-MONEY-COLLECT-AMT         DTSBX440
01149         DISPLAY ' CAMT       NOT EQ'                              DTSBX440
01150         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01151                                                                   DTSBX440
01152  P4000-REASON-CD.                                                 DTSBX440
01153      MOVE SPACES TO T040-MONEY-REASON-CD.                         DTSBX440
01154      IF X163-MONEY-REASON-CD   = SPACES                           DTSBX440
01155         MOVE '0' TO X163-MONEY-REASON-CD.                         DTSBX440
01156                                                                   DTSBX440
01157      MOVE X163-MONEY-REASON-CD  TO L036-CD-1                      DTSBX440
01158          SET L036-MAUR-MONEY-REASON-CD TO TRUE                    DTSBX440
01159          PERFORM S036-EDIT-CODES THRU S036-EXIT                   DTSBX440
01160          IF L036-NOT-VALID                                        DTSBX440
01161               STRING 'REPORT: INVALID X163 MONY RES CD '          DTSBX440
01162               X163-MONEY-REASON-CD DELIMITED BY SIZE              DTSBX440
01163               INTO R140-MESSAGE                                   DTSBX440
01164               END-STRING                                          DTSBX440
01165               PERFORM S946-WRITE-R140 THRU S946-EXIT              DTSBX440
01166               MOVE 1 TO T040-ERROR-SW                             DTSBX440
01167               GO TO P4000-PEN-IND.                                DTSBX440
01168                                                                   DTSBX440
01169         DISPLAY ' XMCD ' X163-MONEY-REASON-CD                     DTSBX440
01170         DISPLAY ' MMCD ' MAUR-MONEY-REASON-CD                     DTSBX440
01171                                                                   DTSBX440
01172      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01173         X163-MONEY-REASON-CD  NOT = MAUR-MONEY-REASON-CD          DTSBX440
01174         MOVE X163-MONEY-REASON-CD   TO T040-MONEY-REASON-CD       DTSBX440
01175         DISPLAY ' MRCD       NOT EQ'                              DTSBX440
01176         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01177                                                                   DTSBX440
01178  P4000-PEN-IND.                                                   DTSBX440
01179      MOVE SPACES TO T040-PEN-WAIVE-IND.                           DTSBX440
01180      IF X163-PEN-WAIVE-IND  = SPACES                              DTSBX440
01181         GO TO P4000-INT-IND.                                      DTSBX440
01182                                                                   DTSBX440
01183      IF X163-PEN-WAIVE-IND  = 'Y' OR 'N'                          DTSBX440
01184         NEXT SENTENCE                                             DTSBX440
01185      ELSE                                                         DTSBX440
01186         STRING 'REPORT: INVALID X163 PEN WAVE IND'                DTSBX440
01187            X163-PEN-WAIVE-IND   DELIMITED BY SIZE                 DTSBX440
01188            INTO R140-MESSAGE                                      DTSBX440
01189         END-STRING                                                DTSBX440
01190          DISPLAY 'X16I RECORD  '    R140-RECORD-DESC              DTSBX440
01191         PERFORM S946-WRITE-R140 THRU S946-EXIT                    DTSBX440
01192               MOVE 1 TO T040-ERROR-SW                             DTSBX440
01193         GO TO P4000-INT-IND.                                      DTSBX440
01194                                                                   DTSBX440
01195      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01196         X163-PEN-WAIVE-IND    NOT = MAUR-PEN-WAIVE-IND            DTSBX440
01197         MOVE X163-PEN-WAIVE-IND     TO T040-PEN-WAIVE-IND         DTSBX440
01198         DISPLAY ' PIND       NOT EQ'                              DTSBX440
01199         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01200                                                                   DTSBX440
01201  P4000-INT-IND.                                                   DTSBX440
01202      MOVE SPACES TO T040-INT-WAIVE-IND.                           DTSBX440
01203      IF X163-INT-WAIVE-IND  = SPACES                              DTSBX440
01204         GO TO P4000-AUDIT-HRS.                                    DTSBX440
01205                                                                   DTSBX440
01206      IF X163-INT-WAIVE-IND  = 'Y' OR 'N'                          DTSBX440
01207         NEXT SENTENCE                                             DTSBX440
01208      ELSE                                                         DTSBX440
01209         STRING 'REPORT: INVALID X163 INT WAVE IND'                DTSBX440
01210            X163-INT-WAIVE-IND   DELIMITED BY SIZE                 DTSBX440
01211            INTO R140-MESSAGE                                      DTSBX440
01212         END-STRING                                                DTSBX440
01213         PERFORM S946-WRITE-R140 THRU S946-EXIT                    DTSBX440
01214               MOVE 1 TO T040-ERROR-SW                             DTSBX440
01215         GO TO P4000-AUDIT-HRS.                                    DTSBX440
01216                                                                   DTSBX440
01217         DISPLAY 'XWIND '  X163-INT-WAIVE-IND                      DTSBX440
01218         DISPLAY 'MWIND '  MAUR-INT-WAIVE-IND                      DTSBX440
01219                                                                   DTSBX440
01220      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01221         X163-INT-WAIVE-IND    NOT = MAUR-INT-WAIVE-IND            DTSBX440
01222         MOVE X163-INT-WAIVE-IND     TO T040-INT-WAIVE-IND         DTSBX440
01223         DISPLAY ' IIND       NOT EQ'                              DTSBX440
01224         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01225  P4000-AUDIT-HRS.                                                 DTSBX440
01226      MOVE ZEROS  TO T040-AUDIT-HRS.                               DTSBX440
01227      IF X163-AUDIT-HRS      = ZEROS                               DTSBX440
01228         GO TO P4000-NEW-EMPLE-CNT.                                DTSBX440
01229                                                                   DTSBX440
01230      MOVE  X163-AUDIT-HRS  TO WRK-AUDIT-HRS.                      DTSBX440
01231                                                                   DTSBX440
01232         DISPLAY 'XAHRS '  WRK-AUDIT-HRS                           DTSBX440
01233         DISPLAY 'MWIND '  MAUR-AUDIT-HRS                          DTSBX440
01234                                                                   DTSBX440
01235      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01236         WRK-AUDIT-HRS        NOT = MAUR-AUDIT-HRS                 DTSBX440
01237         MOVE WRK-AUDIT-HRS         TO T040-AUDIT-HRS              DTSBX440
01238         DISPLAY ' AHRS       NOT EQ'                              DTSBX440
01239         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01240  P4000-NEW-EMPLE-CNT.                                             DTSBX440
01241      MOVE ZEROS  TO T040-NEW-EMPLOYEE-CNT                         DTSBX440
01242      IF X163-NEW-EMPLOYEE-CNT = ZEROS                             DTSBX440
01243         DISPLAY 'XYEE  EQ ZEROS '                                 DTSBX440
01244         GO TO P4000-NEW-EMPL-CNT.                                 DTSBX440
01245                                                                   DTSBX440
01246         MOVE X163-NEW-EMPLOYEE-CNT TO WRK-EMPE-CNT                DTSBX440
01247         DISPLAY 'XYEE ' WRK-EMPE-CNT                              DTSBX440
01248         DISPLAY 'MYEE ' MAUR-NEW-EMPLOYEE-CNT                     DTSBX440
01249                                                                   DTSBX440
01250      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01251         WRK-EMPE-CNT NOT = MAUR-NEW-EMPLOYEE-CNT                  DTSBX440
01252         DISPLAY ' NEMPE      NOT EQ'                              DTSBX440
01253         MOVE WRK-EMPE-CNT  TO T040-NEW-EMPLOYEE-CNT               DTSBX440
01254         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01255                                                                   DTSBX440
01256  P4000-NEW-EMPL-CNT.                                              DTSBX440
01257      MOVE ZEROS  TO T040-INDCON-TO-EMPL-CNT.                      DTSBX440
01258      IF X163-INDCON-TO-EMPL-CNT  = ZEROS                          DTSBX440
01259         DISPLAY 'XYEL  EQ ZEROS '                                 DTSBX440
01260         GO TO P4000-AUDIT-T040.                                   DTSBX440
01261                                                                   DTSBX440
01262         MOVE X163-INDCON-TO-EMPL-CNT TO WRK-EMPL-CNT              DTSBX440
01263         DISPLAY ' XEMPL ' WRK-EMPL-CNT                            DTSBX440
01264         DISPLAY ' MEMPL ' MAUR-INDCON-TO-EMPL-CNT                 DTSBX440
01265                                                                   DTSBX440
01266      IF MAUR-REC-NOT-FOUND-88 OR                                  DTSBX440
01267         WRK-EMPL-CNT NOT = MAUR-INDCON-TO-EMPL-CNT                DTSBX440
01268         MOVE WRK-EMPL-CNT  TO T040-INDCON-TO-EMPL-CNT             DTSBX440
01269         DISPLAY ' NEMPL      NOT EQ'                              DTSBX440
01270         MOVE 1 TO T040-UPD-MAUR.                                  DTSBX440
01271                                                                   DTSBX440
01272  P4000-AUDIT-T040.                                                DTSBX440
01273        IF T040-UPD-MAUR = 0                                       DTSBX440
01274           GO TO P4000-EXIT.                                       DTSBX440
01275                                                                   DTSBX440
01276        MOVE LENGTH OF T040-LINK-AREA  TO T040-LENGTH              DTSBX440
01277        MOVE '040'                     TO T040-REC-TYPE.           DTSBX440
01278        MOVE WRK-OP-ID                 TO T040-OP-ID.              DTSBX440
01279        MOVE X163-EMP-NO               TO T040-EMP-NO.             DTSBX440
01280        MOVE L005-DATE                 TO T040-SYS-DATE.           DTSBX440
01281        MOVE L005-TIME                 TO T040-SYS-TIME.           DTSBX440
01282        SET T040-MAUR-88               TO TRUE.                    DTSBX440
01283        MOVE WRK-ASSIGN-NO             TO T040-ASSIGN-NO.          DTSBX440
01284       MOVE T040-LINK-AREA            TO TSKL-REC.                 DTSBX440
01285       PERFORM S927B-WRITE            THRU S927B-EXIT.             DTSBX440
01286       ADD +1                         TO W-T040-MAUR-CNT.          DTSBX440
01287        DISPLAY ' WRITE TO40 MAUR ' T040-UPD-MAUR.                 DTSBX440
01288                                                                   DTSBX440
01289  P4000-EXIT.                                                      DTSBX440
01290      EXIT.                                                        DTSBX440
01291                                                                   DTSBX440
01292  P4500-AUDIT-MAUY.                                                DTSBX440
01293       MOVE 0 TO T040-UPD-MAUY.                                    DTSBX440
01294       MOVE 1 TO W-SUB.                                            DTSBX440
01295      MOVE LOW-VALUES                TO MAUY-KEY-AREA.             DTSBX440
01296      MOVE X164-EMP-NO               TO MAUY-EMP-NO.               DTSBX440
01297      SET MAUY-AUY-88                TO TRUE.                      DTSBX440
01298      MOVE WRK-ASSIGN-NO            TO MAUY-ASSIGN-NO.             DTSBX440
01299      MOVE WRK-CAL-YEAR              TO MAUY-CALENDAR-YEAR.        DTSBX440
01300      MOVE MAUY-KEY-AREA             TO MSKL-KEY-AREA.             DTSBX440
01301      PERFORM S910-READ              THRU S910-EXIT.               DTSBX440
01302      IF L910-NO-REC-88                                            DTSBX440
01303         DISPLAY ' MAUY NOT FOUND ' X164-EMP-NO                    DTSBX440
01304         SET MAUY-REC-NOT-FOUND-88 TO TRUE                         DTSBX440
01305      ELSE                                                         DTSBX440
01306         MOVE MSKL-REC TO MAUY-REC                                 DTSBX440
01307         DISPLAY ' MAUY FOUND ' X164-EMP-NO                        DTSBX440
01308         SET MAUY-REC-FOUND-88 TO TRUE.                            DTSBX440
01309                                                                   DTSBX440
01310  P4500-AUDIT-MAUY-EXIT.                                           DTSBX440
01311      EXIT.                                                        DTSBX440
01312                                                                   DTSBX440
01313  P5000-QUARTER.                                                   DTSBX440
01314       DISPLAY ' U MAUY '  T040-UPD-MAUY.                          DTSBX440
01315       DISPLAY ' WSUB ' W-SUB.                                     DTSBX440
01316      MOVE ZEROS TO T040-FIRST-YRQ.                                DTSBX440
01317      IF X164-QUARTER = SPACES                                     DTSBX440
01318         GO TO P5000-QTR-AUDITED-IND.                              DTSBX440
01319                                                                   DTSBX440
01320      MOVE X164-QUARTER             TO WRK-SLASH-YRQ.              DTSBX440
01321      MOVE WRK-SLASH-YRQ-YR          TO WRK-YRQ-YR                 DTSBX440
01322      MOVE WRK-SLASH-YRQ-QTR         TO WRK-YRQ-QTR                DTSBX440
01323                                        WRK-SUB                    DTSBX440
01324      MOVE WRK-YRQ                   TO L004-QTR-5-9.              DTSBX440
01325      PERFORM S004-FROM-5            THRU S004-EXIT.               DTSBX440
01326      IF L004-INVALID-QTR                                          DTSBX440
01327          STRING 'REPORT: INVALID X164 QUARTER     '               DTSBX440
01328             X164-QUARTER   DELIMITED BY SIZE                      DTSBX440
01329             INTO R140-MESSAGE                                     DTSBX440
01330          END-STRING                                               DTSBX440
01331          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
01332               MOVE 1 TO T040-ERROR-SW                             DTSBX440
01333         GO TO P5000-QTR-AUDITED-IND.                              DTSBX440
01334                                                                   DTSBX440
01335         DISPLAY ' QTR SUB '  WRK-SUB                              DTSBX440
01336         DISPLAY '     SUB '  W-SUB.                               DTSBX440
01337                                                                   DTSBX440
01338  P5000-QTR-AUDITED-IND.                                           DTSBX440
01339      MOVE SPACES TO T040-QTR-AUDITED-IND(W-SUB).                  DTSBX440
01340      IF X164-QTR-AUDITED-IND = SPACES                             DTSBX440
01341         GO TO P5000-GROSS-PAYROLL.                                DTSBX440
01342                                                                   DTSBX440
01343      IF X164-QTR-AUDITED-IND NOT = 'Y' AND  'N'                   DTSBX440
01344          STRING 'REPORT: INVALID X164 QTR AUD IND '               DTSBX440
01345             X164-QTR-AUDITED-IND DELIMITED BY SIZE                DTSBX440
01346             INTO R140-MESSAGE                                     DTSBX440
01347          END-STRING                                               DTSBX440
01348          PERFORM S946-WRITE-R140 THRU S946-EXIT                   DTSBX440
01349               MOVE 1 TO T040-ERROR-SW                             DTSBX440
01350         GO TO P5000-GROSS-PAYROLL.                                DTSBX440
01351                                                                   DTSBX440
01352         DISPLAY ' X164 IND ' X164-QTR-AUDITED-IND                 DTSBX440
01353         DISPLAY ' MAUY IND ' MAUY-QTR-AUDITED-IND(W-SUB)          DTSBX440
01354                                                                   DTSBX440
01355      IF MAUY-REC-NOT-FOUND-88 OR                                  DTSBX440
01356         X164-QTR-AUDITED-IND  NOT = MAUY-QTR-AUDITED-IND(W-SUB)   DTSBX440
01357         DISPLAY ' QTR AUD '                                       DTSBX440
01358         MOVE X164-QTR-AUDITED-IND  TO T040-QTR-AUDITED-IND(W-SUB) DTSBX440
01359         MOVE 1 TO T040-UPD-MAUY.                                  DTSBX440
01360                                                                   DTSBX440
01361  P5000-GROSS-PAYROLL.                                             DTSBX440
01362      MOVE ZEROS TO T040-QTR-GROSS-PAYROLL(W-SUB).                 DTSBX440
01363      IF X164-QTR-GROSS-PAYROLL = ZEROS                            DTSBX440
01364         GO TO P5000-UNDER-TOT-WAGE.                               DTSBX440
01365                                                                   DTSBX440
01366      MOVE X164-QTR-GROSS-PAYROLL        TO W-MONEY-AMT-X.         DTSBX440
01367      MOVE W-MONEY-AMT-9             TO W-MONEY-AMT.               DTSBX440
01368      MOVE W-MONEY-AMT               TO WRK-MONEY-AMT.             DTSBX440
01369                                                                   DTSBX440
01370        DISPLAY ' WGROS ' WRK-MONEY-AMT                            DTSBX440
01371        DISPLAY ' MGROS ' MAUY-QTR-GROSS-PAYROLL(W-SUB)            DTSBX440
01372      IF MAUY-REC-NOT-FOUND-88 OR                                  DTSBX440
01373         WRK-MONEY-AMT  NOT = MAUY-QTR-GROSS-PAYROLL(W-SUB)        DTSBX440
01374         DISPLAY ' GROSS   '                                       DTSBX440
01375         MOVE WRK-MONEY-AMT    TO T040-QTR-GROSS-PAYROLL(W-SUB)    DTSBX440
01376         MOVE 1 TO T040-UPD-MAUY.                                  DTSBX440
01377                                                                   DTSBX440
01378  P5000-UNDER-TOT-WAGE.                                            DTSBX440
01379      MOVE ZEROS TO T040-QTR-UNDER-TOT-WAGE(W-SUB)                 DTSBX440
01380      IF X164-QTR-UNDER-TOT-WAGE = ZEROS                           DTSBX440
01381         GO TO P5000-UNDER-TAX-WAGE.                               DTSBX440
01382                                                                   DTSBX440
01383      MOVE X164-QTR-UNDER-TOT-WAGE       TO W-MONEY-AMT-X.         DTSBX440
01384      MOVE W-MONEY-AMT-9             TO W-MONEY-AMT.               DTSBX440
01385      MOVE W-MONEY-AMT               TO WRK-MONEY-AMT.             DTSBX440
01386                                                                   DTSBX440
01387        DISPLAY ' WGROS ' WRK-MONEY-AMT                            DTSBX440
01388        DISPLAY ' TGROS ' MAUY-QTR-UNDER-TOT-WAGE(W-SUB)           DTSBX440
01389      IF MAUY-REC-NOT-FOUND-88 OR                                  DTSBX440
01390         WRK-MONEY-AMT  NOT = MAUY-QTR-UNDER-TOT-WAGE(W-SUB)       DTSBX440
01391         DISPLAY ' UTOT    '                                       DTSBX440
01392         MOVE WRK-MONEY-AMT    TO T040-QTR-UNDER-TOT-WAGE(W-SUB)   DTSBX440
01393         MOVE 1 TO T040-UPD-MAUY.                                  DTSBX440
01394                                                                   DTSBX440
01395  P5000-UNDER-TAX-WAGE.                                            DTSBX440
01396      MOVE ZEROS TO T040-QTR-UNDER-TAX-WAGE(W-SUB)                 DTSBX440
01397      IF X164-QTR-UNDER-TAX-WAGE = ZEROS                           DTSBX440
01398         GO TO P5000-UNDER-CONTRIB.                                DTSBX440
01399                                                                   DTSBX440
01400      MOVE X164-QTR-UNDER-TAX-WAGE       TO W-MONEY-AMT-X.         DTSBX440
01401      MOVE W-MONEY-AMT-9             TO W-MONEY-AMT.               DTSBX440
01402      MOVE W-MONEY-AMT               TO WRK-MONEY-AMT.             DTSBX440
01403                                                                   DTSBX440
01404        DISPLAY ' WGROS ' WRK-MONEY-AMT                            DTSBX440
01405        DISPLAY ' XGROS ' MAUY-QTR-UNDER-TAX-WAGE(W-SUB)           DTSBX440
01406      IF MAUY-REC-NOT-FOUND-88 OR                                  DTSBX440
01407         WRK-MONEY-AMT  NOT = MAUY-QTR-UNDER-TAX-WAGE(W-SUB)       DTSBX440
01408         DISPLAY ' UTAX    '                                       DTSBX440
01409         MOVE WRK-MONEY-AMT    TO T040-QTR-UNDER-TAX-WAGE(W-SUB)   DTSBX440
01410         MOVE 1 TO T040-UPD-MAUY.                                  DTSBX440
01411                                                                   DTSBX440
01412  P5000-UNDER-CONTRIB.                                             DTSBX440
01413      MOVE ZEROS TO T040-QTR-UNDER-CONTRIB(W-SUB).                 DTSBX440
01414      IF X164-QTR-UNDER-CONTRIB = ZEROS                            DTSBX440
01415         GO TO P5000-OVER-TOT-WAGE.                                DTSBX440
01416                                                                   DTSBX440
01417      MOVE X164-QTR-UNDER-CONTRIB        TO W-MONEY-AMT-X.         DTSBX440
01418      MOVE W-MONEY-AMT-9             TO W-MONEY-AMT.               DTSBX440
01419      MOVE W-MONEY-AMT               TO WRK-CONTRIB-AMT.           DTSBX440
01420                                                                   DTSBX440
01421        DISPLAY ' WGROS ' WRK-CONTRIB-AMT                          DTSBX440
01422        DISPLAY ' CGROS ' MAUY-QTR-UNDER-CONTRIB(W-SUB)            DTSBX440
01423      IF MAUY-REC-NOT-FOUND-88 OR                                  DTSBX440
01424         WRK-CONTRIB-AMT  NOT = MAUY-QTR-UNDER-CONTRIB(W-SUB)      DTSBX440
01425         DISPLAY ' UCON    '                                       DTSBX440
01426         MOVE WRK-CONTRIB-AMT    TO T040-QTR-UNDER-CONTRIB(W-SUB)  DTSBX440
01427         MOVE 1 TO T040-UPD-MAUY.                                  DTSBX440
01428                                                                   DTSBX440
01429  P5000-OVER-TOT-WAGE.                                             DTSBX440
01430      MOVE ZEROS TO T040-QTR-OVER-TOT-WAGE(W-SUB)                  DTSBX440
01431      IF X164-QTR-OVER-TOT-WAGE = ZEROS                            DTSBX440
01432         GO TO P5000-OVER-TAX-WAGE.                                DTSBX440
01433                                                                   DTSBX440
01434      MOVE X164-QTR-OVER-TOT-WAGE       TO W-MONEY-AMT-X.          DTSBX440
01435      MOVE W-MONEY-AMT-9             TO W-MONEY-AMT.               DTSBX440
01436      MOVE W-MONEY-AMT               TO WRK-MONEY-AMT.             DTSBX440
01437                                                                   DTSBX440
01438        DISPLAY ' WGROS ' WRK-MONEY-AMT                            DTSBX440
01439        DISPLAY 'OTGROS ' MAUY-QTR-OVER-TOT-WAGE(W-SUB)            DTSBX440
01440      IF MAUY-REC-NOT-FOUND-88 OR                                  DTSBX440
01441         WRK-MONEY-AMT  NOT = MAUY-QTR-OVER-TOT-WAGE(W-SUB)        DTSBX440
01442         DISPLAY ' OTOT    '                                       DTSBX440
01443         MOVE WRK-MONEY-AMT    TO T040-QTR-OVER-TOT-WAGE(W-SUB)    DTSBX440
01444         MOVE 1 TO T040-UPD-MAUY.                                  DTSBX440
01445                                                                   DTSBX440
01446  P5000-OVER-TAX-WAGE.                                             DTSBX440
01447      MOVE ZEROS TO T040-QTR-OVER-TAX-WAGE(W-SUB)                  DTSBX440
01448      IF X164-QTR-OVER-TAX-WAGE = ZEROS                            DTSBX440
01449         GO TO P5000-OVER-CONTRIB.                                 DTSBX440
01450                                                                   DTSBX440
01451      MOVE X164-QTR-OVER-TAX-WAGE    TO W-MONEY-AMT-X.             DTSBX440
01452      MOVE W-MONEY-AMT-9             TO W-MONEY-AMT.               DTSBX440
01453      MOVE W-MONEY-AMT               TO WRK-MONEY-AMT.             DTSBX440
01454                                                                   DTSBX440
01455        DISPLAY ' WGROS ' WRK-MONEY-AMT                            DTSBX440
01456        DISPLAY 'OXGROS ' MAUY-QTR-OVER-TAX-WAGE(W-SUB)            DTSBX440
01457      IF MAUY-REC-NOT-FOUND-88 OR                                  DTSBX440
01458         WRK-MONEY-AMT  NOT = MAUY-QTR-OVER-TAX-WAGE(W-SUB)        DTSBX440
01459         DISPLAY ' OTAX    '                                       DTSBX440
01460         MOVE WRK-MONEY-AMT    TO T040-QTR-OVER-TAX-WAGE(W-SUB)    DTSBX440
01461         MOVE 1 TO T040-UPD-MAUY.                                  DTSBX440
01462                                                                   DTSBX440
01463  P5000-OVER-CONTRIB.                                              DTSBX440
01464      MOVE ZEROS TO T040-QTR-OVER-CONTRIB(W-SUB).                  DTSBX440
01465      IF X164-QTR-OVER-CONTRIB = ZEROS                             DTSBX440
01466         GO TO P5000-AUDIT-T040.                                   DTSBX440
01467                                                                   DTSBX440
01468      MOVE X164-QTR-OVER-CONTRIB        TO W-MONEY-AMT-X.          DTSBX440
01469      MOVE W-MONEY-AMT-9             TO W-MONEY-AMT.               DTSBX440
01470      MOVE W-MONEY-AMT               TO WRK-CONTRIB-AMT.           DTSBX440
01471                                                                   DTSBX440
01472        DISPLAY ' WGROS ' WRK-CONTRIB-AMT                          DTSBX440
01473        DISPLAY 'OCGROS ' MAUY-QTR-OVER-CONTRIB(W-SUB)             DTSBX440
01474      IF MAUY-REC-NOT-FOUND-88 OR                                  DTSBX440
01475         WRK-CONTRIB-AMT  NOT = MAUY-QTR-OVER-CONTRIB(W-SUB)       DTSBX440
01476         DISPLAY ' OCON    '                                       DTSBX440
01477         MOVE WRK-CONTRIB-AMT    TO T040-QTR-OVER-CONTRIB(W-SUB)   DTSBX440
01478         MOVE 1 TO T040-UPD-MAUY.                                  DTSBX440
01479                                                                   DTSBX440
01480  P5000-AUDIT-T040.                                                DTSBX440
01481                                                                   DTSBX440
01482        DISPLAY ' WRITE T040 REC ' T040-UPD-MAUY.                  DTSBX440
01483        DISPLAY 'W-SUB-EMP ' W-SUB ' ' X163-EMP-NO.                DTSBX440
01484                                                                   DTSBX440
01485        IF T040-UPD-MAUY = 0                                       DTSBX440
01486           GO TO P5000-EXIT.                                       DTSBX440
01487                                                                   DTSBX440
01488                                                                   DTSBX440
01489        IF W-SUB NOT = 4                                           DTSBX440
01490           GO TO P5000-EXIT.                                       DTSBX440
01491                                                                   DTSBX440
01492        DISPLAY ' WRITING  T040 MAUY REC ' T040-UPD-MAUY.          DTSBX440
01493        DISPLAY 'T-SUB-EMP ' W-SUB ' ' X163-EMP-NO.                DTSBX440
01494                                                                   DTSBX440
01495        MOVE LENGTH OF T040-LINK-AREA  TO T040-LENGTH              DTSBX440
01496        MOVE '040'                     TO T040-REC-TYPE.           DTSBX440
01497                                                                   DTSBX440
01498        MOVE X164-EMP-NO               TO T040-EMP-NO.             DTSBX440
01499        MOVE WRK-OP-ID                 TO T040-OP-ID.              DTSBX440
01500        MOVE L005-DATE                 TO T040-SYS-DATE.           DTSBX440
01501        MOVE L005-TIME                 TO T040-SYS-TIME.           DTSBX440
01502        SET T040-MAUY-88               TO TRUE.                    DTSBX440
01503        MOVE WRK-ASSIGN-NO             TO T040-ASSIGN-NO.          DTSBX440
01504        MOVE WRK-CAL-YEAR              TO T040-CALENDAR-YEAR.      DTSBX440
01505       MOVE T040-LINK-AREA            TO TSKL-REC.                 DTSBX440
01506       PERFORM S927B-WRITE            THRU S927B-EXIT.             DTSBX440
01507       ADD +1                         TO W-T040-MAUY-CNT.          DTSBX440
01508                                                                   DTSBX440
01509  P5000-EXIT.                                                      DTSBX440
01510      EXIT.                                                        DTSBX440
01511                                                                   DTSBX440
01512                                                                   DTSBX440
01513  T0000-TERMINATE.                                                 DTSBX440
01514      CLOSE WEB-AUD-FILE.                                          DTSBX440
01515                                                                   DTSBX440
01516      DISPLAY '*********************************************'.     DTSBX440
01517      DISPLAY '**   DTSBX440 TERMINATION STATISTICS       **'.     DTSBX440
01518      DISPLAY '**                                         **'.     DTSBX440
01519      DISPLAY '**  ERRORS          ' W-ERROR-CNT                   DTSBX440
01520                                       '                  **'.     DTSBX440
01521      DISPLAY '**  MFAS-WRITTEN   ' W-T040-MFAS-CNT                DTSBX440
01522                                       '                  **'.     DTSBX440
01523      DISPLAY '**  MAUR-WRITTEN   ' W-T040-MAUR-CNT                DTSBX440
01524      DISPLAY '**                                         **'.     DTSBX440
01525      DISPLAY '**  MAUY-WRITTEN   ' W-T040-MAUY-CNT                DTSBX440
01526      DISPLAY '**                                         **'.     DTSBX440
01527      DISPLAY '*********************************************'.     DTSBX440
01528                                                                   DTSBX440
01529                                                                   DTSBX440
01530        IF T040-ERROR-SW = 1                                       DTSBX440
01531           DISPLAY ' ERROR ON WEB INPUT FILE - NO T040 WRITTEN '   DTSBX440
01532           MOVE 2 TO RETURN-CODE.                                  DTSBX440
01533                                                                   DTSBX440
01534  T0000-EXIT.                                                      DTSBX440
01535      EXIT.                                                        DTSBX440
01536                                                                   DTSBX440
01537  S1000-READ-WEB-IMP.                                              DTSBX440
01538       READ WEB-AUD-FILE AT END SET WEB-AUD-STATUS-EOF-88 TO TRUE. DTSBX440
01539          ADD +1 TO W-WEB-IMP-CNT.                                 DTSBX440
01540                                                                   DTSBX440
01541  S1000-EXIT.                                                      DTSBX440
01542       EXIT.                                                       DTSBX440
01543  S001-FROM-ABS-DAY.                                               DTSBX440
01544      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBX440
01545      GO TO S001-DATE.                                             DTSBX440
01546                                                                   DTSBX440
01547  S001-FROM-FED-8.                                                 DTSBX440
01548      SET L001-FROM-FED-8   TO TRUE.                               DTSBX440
01549      GO TO S001-DATE.                                             DTSBX440
01550                                                                   DTSBX440
01551  S001-FROM-CAL-6.                                                 DTSBX440
01552      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBX440
01553      GO TO S001-DATE.                                             DTSBX440
01554                                                                   DTSBX440
01555  S001-DATE.                                                       DTSBX440
01556      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX440
01557  S001-EXIT.                                                       DTSBX440
01558      EXIT.                                                        DTSBX440
01559      SKIP3                                                        DTSBX440
01560  S004-FROM-5.                                                     DTSBX440
01561      SET L004-FROM-5 TO TRUE.                                     DTSBX440
01562      GO TO S004-QTR.                                              DTSBX440
01563                                                                   DTSBX440
01564  S004-FROM-ABS.                                                   DTSBX440
01565      SET L004-FROM-ABS TO TRUE.                                   DTSBX440
01566      GO TO S004-QTR.                                              DTSBX440
01567                                                                   DTSBX440
01568  S004-FROM-3.                                                     DTSBX440
01569      SET L004-FROM-3 TO TRUE.                                     DTSBX440
01570      GO TO S004-QTR.                                              DTSBX440
01571                                                                   DTSBX440
01572  S004-FROM-DATE.                                                  DTSBX440
01573      SET L004-FROM-DATE TO TRUE.                                  DTSBX440
01574      GO TO S004-QTR.                                              DTSBX440
01575                                                                   DTSBX440
01576  S004-QTR.                                                        DTSBX440
01577                                                                   DTSBX440
01578      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBX440
01579                                                                   DTSBX440
01580  S004-EXIT.                                                       DTSBX440
01581      EXIT.                                                        DTSBX440
01582      SKIP3                                                        DTSBX440
01583                                                                   DTSBX440
01584  S005-FROM-SYS.                                                   DTSBX440
01585      SET L005-FROM-SYS       TO TRUE.                             DTSBX440
01586                                                                   DTSBX440
01587  S005-ABSTIME.                                                    DTSBX440
01588      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX440
01589  S005-EXIT.                                                       DTSBX440
01590      EXIT.                                                        DTSBX440
01591  S036-EMP-SIZE-IND.                                               DTSBX440
01592       SET L036-MFAS-EMP-SIZE-IND TO TRUE.                         DTSBX440
01593       CALL 'DTSBU036' USING L036-LINK-AREA.                       DTSBX440
01594       GO TO S036-EXIT.                                            DTSBX440
01595  S036-EDIT-CODES.                                                 DTSBX440
01596       CALL 'DTSBU036' USING L036-LINK-AREA.                       DTSBX440
01597                                                                   DTSBX440
01598  S036-EXIT.                                                       DTSBX440
01599      EXIT.                                                        DTSBX440
01600  S062-LOOKUP-FLD-REP.                                             DTSBX440
01601      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBX440
01602  S062-EXIT.                                                       DTSBX440
01603      EXIT.                                                        DTSBX440
01604                                                                   DTSBX440
01605  S910-OPEN-READ.                                                  DTSBX440
01606      SET L910-OPEN-READ-88 TO TRUE.                               DTSBX440
01607      GO TO S910-MSTR-IO.                                          DTSBX440
01608                                                                   DTSBX440
01609  S910-READ.                                                       DTSBX440
01610      SET L910-READ-88 TO TRUE.                                    DTSBX440
01611      GO TO S910-MSTR-IO.                                          DTSBX440
01612                                                                   DTSBX440
01613  S910-START-BROWSE.                                               DTSBX440
01614      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX440
01615      GO TO S910-MSTR-IO.                                          DTSBX440
01616                                                                   DTSBX440
01617  S910-READ-NEXT.                                                  DTSBX440
01618      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX440
01619      GO TO S910-MSTR-IO.                                          DTSBX440
01620                                                                   DTSBX440
01621  S910-COUNT.                                                      DTSBX440
01622      SET L910-COUNT-88 TO TRUE.                                   DTSBX440
01623      GO TO S910-MSTR-IO.                                          DTSBX440
01624                                                                   DTSBX440
01625  S910-REWRITE.                                                    DTSBX440
01626      SET L910-REWRITE-88 TO TRUE.                                 DTSBX440
01627      GO TO S910-MSTR-IO.                                          DTSBX440
01628                                                                   DTSBX440
01629  S910-CLOSE.                                                      DTSBX440
01630      SET L910-CLOSE-88   TO TRUE.                                 DTSBX440
01631      GO TO S910-MSTR-IO.                                          DTSBX440
01632                                                                   DTSBX440
01633  S910-MSTR-IO.                                                    DTSBX440
01634      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX440
01635                            MSKL-REC.                              DTSBX440
01636  S910-EXIT.                                                       DTSBX440
01637      EXIT.                                                        DTSBX440
01638      SKIP3                                                        DTSBX440
01639                                                                   DTSBX440
01640  S921-OPEN-READ.                                                  DTSBX440
01641      SET L921-OPEN-READ-88    TO TRUE.                            DTSBX440
01642      GO TO S921-AIX-IO.                                           DTSBX440
01643                                                                   DTSBX440
01644  S921-START-BROWSE.                                               DTSBX440
01645      SET L921-START-BROWSE-88 TO TRUE.                            DTSBX440
01646      GO TO S921-AIX-IO.                                           DTSBX440
01647                                                                   DTSBX440
01648  S921-READ-NEXT.                                                  DTSBX440
01649      SET L921-READ-NEXT-88 TO TRUE.                               DTSBX440
01650      GO TO S921-AIX-IO.                                           DTSBX440
01651                                                                   DTSBX440
01652  S921-CLOSE.                                                      DTSBX440
01653      SET L921-CLOSE-88        TO TRUE.                            DTSBX440
01654      GO TO S921-AIX-IO.                                           DTSBX440
01655                                                                   DTSBX440
01656  S921-AIX-IO.                                                     DTSBX440
01657      CALL 'DTSBU921'    USING L921-LINK-AREA                      DTSBX440
01658                               ISKL-REC.                           DTSBX440
01659                                                                   DTSBX440
01660  S921-EXIT.                                                       DTSBX440
01661      EXIT.                                                        DTSBX440
01662                                                                   DTSBX440
01663  S927A-OPEN.                                                      DTSBX440
01664       SET L927-OPEN-UPDATE-88  TO TRUE.                           DTSBX440
01665       PERFORM S927Z-IO   THRU S927Z-EXIT.                         DTSBX440
01666                                                                   DTSBX440
01667  S927A-EXIT.                                                      DTSBX440
01668       EXIT.                                                       DTSBX440
01669                                                                   DTSBX440
01670                                                                   DTSBX440
01671  S927B-WRITE.                                                     DTSBX440
01672         SET L927-WRITE-88 TO TRUE.                                DTSBX440
01673       PERFORM S927Z-IO   THRU S927Z-EXIT.                         DTSBX440
01674                                                                   DTSBX440
01675  S927B-EXIT.                                                      DTSBX440
01676        EXIT.                                                      DTSBX440
01677  S927C-CLOSE.                                                     DTSBX440
01678       SET L927-CLOSE-88        TO TRUE.                           DTSBX440
01679       PERFORM S927Z-IO   THRU S927Z-EXIT.                         DTSBX440
01680                                                                   DTSBX440
01681  S927C-EXIT.                                                      DTSBX440
01682        EXIT.                                                      DTSBX440
01683                                                                   DTSBX440
01684  S927Z-IO.                                                        DTSBX440
01685       CALL 'DTSBU927' USING L927-LINK-AREA                        DTSBX440
01686                             TSKL-REC.                             DTSBX440
01687  S927Z-EXIT.                                                      DTSBX440
01688        EXIT.                                                      DTSBX440
01689  S931-READ.                                                       DTSBX440
01690      SET L931-READ-88 TO TRUE.                                    DTSBX440
01691      GO TO S931-REF-IO.                                           DTSBX440
01692                                                                   DTSBX440
01693  S931-OPEN-READ.                                                  DTSBX440
01694      SET L931-OPEN-READ-88 TO TRUE.                               DTSBX440
01695      GO TO S931-REF-IO.                                           DTSBX440
01696                                                                   DTSBX440
01697  S931-REF-IO.                                                     DTSBX440
01698      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBX440
01699                            FSKL-REC.                              DTSBX440
01700  S931-EXIT.                                                       DTSBX440
01701      EXIT.                                                        DTSBX440
01702                                                                   DTSBX440
01703                                                                   DTSBX440
01704  S946-WRITE-R140.                                                 DTSBX440
01705      CALL 'DTSBU946' USING R140-REC.                              DTSBX440
01706                                                                   DTSBX440
01707  S946-EXIT.                                                       DTSBX440
01708      EXIT.                                                        DTSBX440
01709  S999-ABEND.                                                      DTSBX440
01710      DISPLAY '*** DTSBX440 ABENDING.  '                           DTSBX440
01711              ABEND-MSG.                                           DTSBX440
01712                                                                   DTSBX440
01713      CALL 'DTSBU999' USING W-ABEND-CD.                            DTSBX440
01714  S999-EXIT.                                                       DTSBX440
01715      EXIT.                                                        DTSBX440
