00001  IDENTIFICATION DIVISION.                                         02/07/12
00002  PROGRAM-ID.             DTSBE607.                                DTSBE607
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV022
00004  DATE-WRITTEN.           AUGUST 1994.                             DTSBE607
00005  DATE-COMPILED.                                                   DTSBE607
00006      SKIP3                                                        DTSBE607
00007 *****                                                             DTSBE607
00008 *                                                                 DTSBE607
00009 *    FUNCTION:  ASSIGNMENT DETAIL BY FIELD REPRESENTATIVE         DTSBE607
00010 *               EXTRACT.                                          DTSBE607
00011 *                                                                 DTSBE607
00012 *                                                                 DTSBE607
00013 *    MODIFICATION LOG:                                            DTSBE607
00014 *                                                                 DTSBE607
00015 *    09/20/94  INITIAL DEVELOPMENT.                               DTSBE607
00016 *              WORK ORDER:                      PROGRAMMER: RHC   DTSBE607
00017 *                                                                 DTSBE607
00018 *    04/03/95  CHANGE THE PARAMETER DEFAULT LOGIC AND LIMIT THE   DTSBE607
00019 *              EXTRCT TO AUDIT ASSIGNMENTS.                       DTSBE607
00020 *              WORK ORDER: CR070                PROGRAMMER: EHH   DTSBE607
00021 *                                                                 DTSBE607
00022 *    11/25/98  MODIFIED TO MEET DUTAS PROGRAMMING REQUIREMENTS.   DTSBE607
00023 *              WORK ORDER:                      PROGRAMMER: DVS   DTSBE607
00024 *                                                                 DTSBE607
00025 *    XX/XX/XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE607
00026 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE607
00027 *              WORK ORDER:                      PROGRAMMER: XXX   DTSBE607
00028 *                                                                 DTSBE607
00029 *                                                                 DTSBE607
00030 *  DESCRIPTION:                                                   DTSBE607
00031 *                                                                 DTSBE607
00032 *                                                                 DTSBE607
00033 *    INITIATION:                                                  DTSBE607
00034 *                                                                 DTSBE607
00035 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE607
00036 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE607
00037 *                                                                 DTSBE607
00038 *      EDIT PARAMTERS (SEE 607R1).                                DTSBE607
00039 *                                                                 DTSBE607
00040 *                                                                 DTSBE607
00041 *    PROCESSING:                                                  DTSBE607
00042 *                                                                 DTSBE607
00043 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (607R1).       DTSBE607
00044 *                                                                 DTSBE607
00045 *                                                                 DTSBE607
00046 *    TERMINATION:                                                 DTSBE607
00047 *                                                                 DTSBE607
00048 *      NONE.                                                      DTSBE607
00049 *                                                                 DTSBE607
00050 *                                                                 DTSBE607
00051 *    RECORDS READ:                                                DTSBE607
00052 *                                                                 DTSBE607
00053 *      MASTER:                                                    DTSBE607
00054 *                                                                 DTSBE607
00055 *        MFAS                                                     DTSBE607
00056 *        MAUR                                                     DTSBE607
00057 *        MAUY                                                     DTSBE607
00058 *                                                                 DTSBE607
00059 *                                                                 DTSBE607
00060 *      ALTERNATE INDEX:                                           DTSBE607
00061 *                                                                 DTSBE607
00062 *        NONE.                                                    DTSBE607
00063 *                                                                 DTSBE607
00064 *                                                                 DTSBE607
00065 *      REFERENCE:                                                 DTSBE607
00066 *                                                                 DTSBE607
00067 *        NONE.                                                    DTSBE607
00068 *                                                                 DTSBE607
00069 *                                                                 DTSBE607
00070 *    RECORDS UPDATED:                                             DTSBE607
00071 *                                                                 DTSBE607
00072 *        NONE.                                                    DTSBE607
00073 *                                                                 DTSBE607
00074 *                                                                 DTSBE607
00075 *    REPORT RECORDS WRITTEN:                                      DTSBE607
00076 *                                                                 DTSBE607
00077 *        R607  ASSIGNMENT SUMMPARY BE FIELD REPRESENTATIVE.       DTSBE607
00078 *                                                                 DTSBE607
00079 *                                                                 DTSBE607
00080 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE607
00081 *                                                                 DTSBE607
00082 *        NONE.                                                    DTSBE607
00083 *                                                                 DTSBE607
00084 *                                                                 DTSBE607
00085 *    MODULES CALLED:                                              DTSBE607
00086 *                                                                 DTSBE607
00087 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE607
00088 *        DTSBU004  QUARTER EDIT/CONVERSION.                       DTSBE607
00089 *        DTSBU910  MASTER FILE I/O.                               DTSBE607
00090 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE607
00091 *                                                                 DTSBE607
00092 *                                                                 DTSBE607
00093 *    VERMONT REFERENCE:                                           DTSBE607
00094 *                                                                 DTSBE607
00095 *        TXBE362                                                  DTSBE607
00096 *                                                                 DTSBE607
00097 *****                                                             DTSBE607
00098      SKIP3                                                        DTSBE607
00099  ENVIRONMENT DIVISION.                                            DTSBE607
00100      SKIP3                                                        DTSBE607
00101  DATA DIVISION.                                                   DTSBE607
00102      EJECT                                                        DTSBE607
00103  WORKING-STORAGE SECTION.                                         DTSBE607
001035 77  PAN-VALET PICTURE X(24) VALUE '022DTSBE607  02/07/12'.       DTSBE607
00104      SKIP3                                                        DTSBE607
00105  01  WRK-AREA.                                                    DTSBE607
00106      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +607.DTSBE607
00107      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE607'.DTSBE607
00108                                                                   DTSBE607
00109      05  ABEND-MSG                       PIC  X(60).              DTSBE607
00110                                                                   DTSBE607
00111      05  WRK-CNT                         PIC S9(04)  COMP.        DTSBE607
00112                                                                   DTSBE607
00113      SKIP3                                                        DTSBE607
00114                                                                   DTSBE607
00115      EJECT                                                        DTSBE607
00116  01  L001-LINK-AREA.                                              DTSBE607
00117  ++INCLUDE DTSIL001                                               DTSBE607
00118      EJECT                                                        DTSBE607
00119  01  L004-LINK-AREA.                                              DTSBE607
00120  ++INCLUDE DTSIL004                                               DTSBE607
00121      EJECT                                                        DTSBE607
00122  01  L910-LINK-AREA.                                              DTSBE607
00123  ++INCLUDE DTSIL910                                               DTSBE607
00124      SKIP3                                                        DTSBE607
00125  01  MSKL-REC.                                                    DTSBE607
00126  ++INCLUDE DTSIMSKL                                               DTSBE607
00127      SKIP3                                                        DTSBE607
00128  01  MHDR-REC.                                                    DTSBE607
00129  ++INCLUDE DTSIMHDR                                               DTSBE607
00130      SKIP3                                                        DTSBE607
00131  01  MFAS-REC.                                                    DTSBE607
00132  ++INCLUDE DTSIMFAS                                               DTSBE607
00133      SKIP3                                                        DTSBE607
00134  01  MAUR-REC.                                                    DTSBE607
00135  ++INCLUDE DTSIMAUR                                               DTSBE607
00136      SKIP3                                                        DTSBE607
00137  01  MAUY-REC.                                                    DTSBE607
00138  ++INCLUDE DTSIMAUY                                               DTSBE607
00139      EJECT                                                        DTSBE607
00140  01  MMAX-CONSTANT-AREA.                                          DTSBE607
00141  ++INCLUDE DTSIMMAX                                               DTSBE607
00142      EJECT                                                        DTSBE607
00143  01  R607-REC.                                                    DTSBE607
00144  ++INCLUDE DTSIR607                                               DTSBE607
00145      EJECT                                                        DTSBE607
00146  ++INCLUDE OJRWE607                                               DTSBE607
00147      EJECT                                                        DTSBE607
00148  LINKAGE SECTION.                                                 DTSBE607
00149      SKIP3                                                        DTSBE607
00150  01  LECM-LINK-AREA.                                              DTSBE607
00151  ++INCLUDE DTSILECM                                               DTSBE607
00152      SKIP3                                                        DTSBE607
00153          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE607
00154              15  LECM-PARM-PROCESSED-START-DATE  PIC  X(06).      DTSBE607
00155              15  FILLER                          PIC  X(01).      DTSBE607
00156              15  LECM-PARM-PROCESSED-END-DATE    PIC  X(06).      DTSBE607
00157              15  FILLER                          PIC  X(01).      DTSBE607
00158              15  LECM-PARM-COMPLETED-START-DATE  PIC  X(06).      DTSBE607
00159              15  FILLER                          PIC  X(01).      DTSBE607
00160              15  LECM-PARM-COMPLETED-END-DATE    PIC  X(06).      DTSBE607
00161              15  FILLER                          PIC  X(01).      DTSBE607
00162              15  LECM-PARM-ASSIGN-AREA                            DTSBE607
00163                          OCCURS 5 TIMES                           DTSBE607
00164                          INDEXED BY LECM-PARM-ASSIGN-IDX.         DTSBE607
00165                  20  LECM-PARM-ASSIGN-TYPE        PIC  X(02).     DTSBE607
00166                  20  FILLER                       PIC  X(01).     DTSBE607
00167              15  LECM-FLD-REP-ID-AREA                             DTSBE607
00168                          OCCURS 5 TIMES                           DTSBE607
00169                          INDEXED BY LECM-PARM-FLD-REP-IDX.        DTSBE607
00170                  20  LECM-PARM-FLD-REP-ID         PIC  X(02).     DTSBE607
00171                  20  FILLER                       PIC  X(01).     DTSBE607
00172              15  FILLER                           PIC  X(10).     DTSBE607
00173      EJECT                                                        DTSBE607
00174  01  MPRF-LINK-REC.                                               DTSBE607
00175  ++INCLUDE DTSIMPRF                                               DTSBE607
00176      EJECT                                                        DTSBE607
00177  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE607
00178                           MPRF-LINK-REC.                          DTSBE607
00179      EVALUATE TRUE                                                DTSBE607
00180      WHEN LECM-PROCESS-88                                         DTSBE607
00181          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE607
00182                                                                   DTSBE607
00183      WHEN LECM-INITIALIZE-88                                      DTSBE607
00184          SET WRK-EDIT-PASSED-88 TO TRUE                           DTSBE607
00185          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE607
00186          IF WRK-EDIT-FAILED-88                                    DTSBE607
00187             PERFORM S999-ABEND THRU S999-EXIT                     DTSBE607
00188          END-IF                                                   DTSBE607
00189                                                                   DTSBE607
00190      WHEN LECM-TERMINATE-88                                       DTSBE607
00191          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE607
00192                                                                   DTSBE607
00193      WHEN OTHER                                                   DTSBE607
00194          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE607
00195            TO ABEND-MSG                                           DTSBE607
00196          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE607
00197      SKIP3                                                        DTSBE607
00198      GOBACK.                                                      DTSBE607
00199      EJECT                                                        DTSBE607
00200  I0000-INITIALIZE.                                                DTSBE607
00201      SKIP2                                                        DTSBE607
00202      MOVE LENGTH OF R607-REC TO R607-LENGTH.                      DTSBE607
00203      MOVE '607'              TO R607-REC-TYPE.                    DTSBE607
00204                                                                   DTSBE607
00205      MOVE LECM-PARM-COMPLETED-START-DATE TO                       DTSBE607
00206        OJR-PARM-COMPLETED-START-DATE.                             DTSBE607
00207      MOVE LECM-PARM-COMPLETED-END-DATE TO                         DTSBE607
00208        OJR-PARM-COMPLETED-END-DATE.                               DTSBE607
00209      MOVE LECM-PARM-PROCESSED-START-DATE TO                       DTSBE607
00210        OJR-PARM-PROCESSED-START-DATE.                             DTSBE607
00211      MOVE LECM-PARM-PROCESSED-END-DATE TO                         DTSBE607
00212        OJR-PARM-PROCESSED-END-DATE.                               DTSBE607
00213                                                                   DTSBE607
00214      PERFORM I0001-MOVE-ASSIGN THRU I0001-EXIT                    DTSBE607
00215              VARYING OJR-PARM-ASSIGN-IDX                          DTSBE607
00216              FROM 1 BY 1 UNTIL                                    DTSBE607
00217              OJR-PARM-ASSIGN-IDX                                  DTSBE607
00218              > 5.                                                 DTSBE607
00219                                                                   DTSBE607
00220                                                                   DTSBE607
00221      PERFORM I0002-MOVE-FLD-REP THRU I0002-EXIT                   DTSBE607
00222              VARYING OJR-PARM-FLD-REP-IDX                         DTSBE607
00223              FROM 1 BY 1 UNTIL                                    DTSBE607
00224              OJR-PARM-FLD-REP-IDX                                 DTSBE607
00225              > 5.                                                 DTSBE607
00226                                                                   DTSBE607
00227      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE607
00228      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE607
00229                                                                   DTSBE607
00230      MOVE LOW-VALUES TO MHDR-KEY-AREA.                            DTSBE607
00231      MOVE +0 TO MHDR-EMP-NO.                                      DTSBE607
00232      SET MHDR-HDR-88 TO TRUE.                                     DTSBE607
00233      MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE607
00234      PERFORM S910-READ THRU S910-EXIT.                            DTSBE607
00235      IF L910-NO-REC-88                                            DTSBE607
00236          MOVE 'MASTER FILE HEADER RECORD MISSING'                 DTSBE607
00237            TO ABEND-MSG                                           DTSBE607
00238          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE607
00239      MOVE MSKL-REC TO MHDR-REC.                                   DTSBE607
00240                                                                   DTSBE607
00241      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE607
00242                                                                   DTSBE607
00243      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE607
00244      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE607
00245      SKIP2                                                        DTSBE607
00246  I0000-EXIT.                                                      DTSBE607
00247      EXIT.                                                        DTSBE607
00248                                                                   DTSBE607
00249  I0001-MOVE-ASSIGN.                                               DTSBE607
00250                                                                   DTSBE607
00251      MOVE LECM-PARM-ASSIGN-TYPE (OJR-PARM-ASSIGN-IDX) TO          DTSBE607
00252        OJR-PARM-ASSIGN-TYPE (OJR-PARM-ASSIGN-IDX).                DTSBE607
00253                                                                   DTSBE607
00254  I0001-EXIT.                                                      DTSBE607
00255      EXIT.                                                        DTSBE607
00256                                                                   DTSBE607
00257  I0002-MOVE-FLD-REP.                                              DTSBE607
00258                                                                   DTSBE607
00259      MOVE LECM-PARM-FLD-REP-ID (OJR-PARM-FLD-REP-IDX) TO          DTSBE607
00260        OJR-PARM-FLD-REP-ID (OJR-PARM-FLD-REP-IDX).                DTSBE607
00261                                                                   DTSBE607
00262  I0002-EXIT.                                                      DTSBE607
00263      EXIT.                                                        DTSBE607
00264                                                                   DTSBE607
00265  ++INCLUDE OJRPE607                                               DTSBE607
00266  P0000-PROCESS.                                                   DTSBE607
00267      IF MPRF-NO-MFAS-88                                           DTSBE607
00268          GO TO P0000-EXIT.                                        DTSBE607
00269                                                                   DTSBE607
00270      MOVE LOW-VALUES  TO MFAS-KEY-AREA.                           DTSBE607
00271      MOVE MPRF-EMP-NO TO MFAS-EMP-NO.                             DTSBE607
00272      SET  MFAS-FAS-88 TO TRUE.                                    DTSBE607
00273      MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE607
00274      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE607
00275      PERFORM P1000-SCAN-MFAS THRU P1000-EXIT                      DTSBE607
00276          UNTIL L910-NO-REC-88.                                    DTSBE607
00277  P0000-EXIT.                                                      DTSBE607
00278      EXIT.                                                        DTSBE607
00279      SKIP3                                                        DTSBE607
00280  P1000-SCAN-MFAS.                                                 DTSBE607
00281      MOVE MSKL-REC TO MFAS-REC.                                   DTSBE607
00282                                                                   DTSBE607
00283      IF (MFAS-AUDIT-88)                                           DTSBE607
00284            AND                                                    DTSBE607
00285         (MFAS-STATUS-PROCESSED-88 OR MFAS-STATUS-COMPLETE-88)     DTSBE607
00286 ****************OR                                                DTSBE607
00287 ********((MFAS-NON-AUDIT-88)                                      DTSBE607
00288 **************AND                                                 DTSBE607
00289 *********(MFAS-STATUS-COMPLETE-88))                               DTSBE607
00290          PERFORM P1100-PROCESS-MFAS THRU P1100-EXIT               DTSBE607
00291          MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA                      DTSBE607
00292          PERFORM S910-READ THRU S910-EXIT                         DTSBE607
00293          IF L910-NO-REC-88                                        DTSBE607
00294              MOVE 'LOGIC ERROR IN P1000' TO ABEND-MSG             DTSBE607
00295              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE607
00296                                                                   DTSBE607
00297      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE607
00298  P1000-EXIT.                                                      DTSBE607
00299      EXIT.                                                        DTSBE607
00300      SKIP3                                                        DTSBE607
00301  P1100-PROCESS-MFAS.                                              DTSBE607
00302      IF (MFAS-COMPLETED-DATE < WRK-PARM-COMPLETED-START-DATE)     DTSBE607
00303               OR                                                  DTSBE607
00304         (MFAS-COMPLETED-DATE > WRK-PARM-COMPLETED-END-DATE)       DTSBE607
00305          GO TO P1100-EXIT.                                        DTSBE607
00306                                                                   DTSBE607
00307 *****IF MFAS-AUDIT-88                                             DTSBE607
00308          IF (MFAS-PROCESSED-DATE < WRK-PARM-PROCESSED-START-DATE) DTSBE607
00309                   OR                                              DTSBE607
00310             (MFAS-PROCESSED-DATE > WRK-PARM-PROCESSED-END-DATE)   DTSBE607
00311              GO TO P1100-EXIT.                                    DTSBE607
00312      SKIP3                                                        DTSBE607
00313      MOVE 'N' TO WRK-ASSIGN-TYPE-IND.                             DTSBE607
00314                                                                   DTSBE607
00315      IF WRK-PARM-ASSIGN-TYPE-CNT = +0                             DTSBE607
00316          MOVE 'Y' TO WRK-ASSIGN-TYPE-IND                          DTSBE607
00317      ELSE                                                         DTSBE607
00318          PERFORM P1110-CHECK-ASSIGN-TYPE THRU P1110-EXIT          DTSBE607
00319              VARYING WRK-PARM-ASSIGN-IDX FROM 1 BY 1              DTSBE607
00320              UNTIL (WRK-ASSIGN-TYPE-IND = 'Y')                    DTSBE607
00321                       OR                                          DTSBE607
00322                    (WRK-PARM-ASSIGN-IDX                           DTSBE607
00323                      > WRK-PARM-ASSIGN-TYPE-CNT).                 DTSBE607
00324                                                                   DTSBE607
00325      IF WRK-ASSIGN-TYPE-IND = 'N'                                 DTSBE607
00326          GO TO P1100-EXIT.                                        DTSBE607
00327      SKIP3                                                        DTSBE607
00328      MOVE 'N' TO WRK-FLD-REP-ID-IND.                              DTSBE607
00329                                                                   DTSBE607
00330      IF WRK-PARM-FLD-REP-ID-CNT = +0                              DTSBE607
00331          MOVE 'Y' TO WRK-FLD-REP-ID-IND                           DTSBE607
00332      ELSE                                                         DTSBE607
00333          PERFORM P1120-CHECK-FLD-REP-ID THRU P1120-EXIT           DTSBE607
00334              VARYING WRK-PARM-FLD-REP-IDX FROM 1 BY 1             DTSBE607
00335              UNTIL (WRK-FLD-REP-ID-IND = 'Y')                     DTSBE607
00336                       OR                                          DTSBE607
00337                    (WRK-PARM-FLD-REP-IDX                          DTSBE607
00338                      > WRK-PARM-FLD-REP-ID-CNT).                  DTSBE607
00339                                                                   DTSBE607
00340      IF WRK-FLD-REP-ID-IND = 'N'                                  DTSBE607
00341          GO TO P1100-EXIT.                                        DTSBE607
00342                                                                   DTSBE607
00343 *****                                                             DTSBE607
00344 *                                                                 DTSBE607
00345 *    OF COURSE, IF THE ASSIGNMENT IS NOT AN AUDIT ASSIGNMENT      DTSBE607
00346 *    THEN NO MAUR OR MAUY RECORDS WILL EXIST.  DEFAULT THE        DTSBE607
00347 *    R607 RECORDS APPROPRIATELY.  ALSO, USE THE R607 RECORD       DTSBE607
00348 *    DEFAULTS IF AN AUDIT ASSIGNMENT WITH NO MAUR RECORD IS       DTSBE607
00349 *    ENCOUNTERED.                                                 DTSBE607
00350 *                                                                 DTSBE607
00351 *****                                                             DTSBE607
00352                                                                   DTSBE607
00353      MOVE MFAS-FLD-REP-ID            TO R607-FIELD-REP-ID.        DTSBE607
00354      MOVE MFAS-ASSIGN-NO             TO R607-ASSIGN-NO.           DTSBE607
00355      INITIALIZE R607-DATA-AREA.                                   DTSBE607
00356      INITIALIZE R607-PARM-AREA.                                   DTSBE607
00357      MOVE WRK-PARM-AREA              TO R607-PARM-AREA.           DTSBE607
00358      MOVE MPRF-PRIMARY-NAME          TO R607-PRIMARY-NAME.        DTSBE607
00359      MOVE MFAS-AUDIT-IND             TO R607-AUDIT-IND.           DTSBE607
00360      MOVE MFAS-STATUS-CD             TO R607-STATUS-CD.           DTSBE607
00361      MOVE MFAS-EMP-NO                TO R607-EMP-NO.              DTSBE607
00362      MOVE MFAS-SIC-CD                TO R607-SIC-CD.              DTSBE607
00363      MOVE MFAS-OWN-CD                TO R607-OWN-CD.              DTSBE607
00364      MOVE MFAS-NAICS-CD              TO R607-NAICS-CD.            DTSBE607
00365      MOVE MFAS-ASSIGN-TYPE           TO R607-ASSIGN-TYPE.         DTSBE607
00366      MOVE MFAS-START-DATE            TO R607-START-DATE.          DTSBE607
00367      MOVE MFAS-DUE-DATE              TO R607-DUE-DATE.            DTSBE607
00368      MOVE MFAS-COMPLETED-DATE        TO R607-COMPLETED-DATE.      DTSBE607
00369      MOVE MFAS-PROCESSED-DATE        TO R607-PROCESSED-DATE.      DTSBE607
00370      MOVE MFAS-AUDIT-SEL-AREA        TO R607-AUDIT-SEL-AREA.      DTSBE607
00371      MOVE MFAS-EMP-SIZE-IND          TO R607-MFAS-EMP-SIZE-IND.   DTSBE607
00372                                                                   DTSBE607
00373      SET R607-CHANGE-AUDIT-NO-88 TO TRUE.                         DTSBE607
00374                                                                   DTSBE607
00375      MOVE LOW-VALUE TO MAUR-KEY-AREA.                             DTSBE607
00376      MOVE MFAS-EMP-NO TO MAUR-EMP-NO.                             DTSBE607
00377      SET MAUR-AUR-88 TO TRUE.                                     DTSBE607
00378      MOVE MFAS-ASSIGN-NO TO MAUR-ASSIGN-NO.                       DTSBE607
00379      MOVE MAUR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE607
00380      PERFORM S910-READ THRU S910-EXIT.                            DTSBE607
00381      IF L910-OK-88                                                DTSBE607
00382          MOVE MSKL-REC TO MAUR-REC                                DTSBE607
00383      ELSE                                                         DTSBE607
00384          PERFORM S946-WRITE-R607 THRU S946-EXIT                   DTSBE607
00385          GO TO P1100-EXIT.                                        DTSBE607
00386      SKIP3                                                        DTSBE607
00387      MOVE MAUR-AUDIT-HRS             TO R607-AUDIT-HRS.           DTSBE607
00388      MOVE MAUR-QTRS-AUDITED-CNT      TO R607-QTRS-AUDITED-CNT.    DTSBE607
00389      PERFORM VARYING MAUR-ERROR-IDX FROM 1 BY 1                   DTSBE607
00390              UNTIL MAUR-ERROR-IDX > 5                             DTSBE607
00391              IF MAUR-ERROR-TYPE(MAUR-ERROR-IDX) > SPACES          DTSBE607
00392                 SET R607-ERROR-IDX TO MAUR-ERROR-IDX              DTSBE607
00393                 MOVE MAUR-ERROR-TYPE(MAUR-ERROR-IDX) TO           DTSBE607
00394                 R607-ERROR-TYPE(R607-ERROR-IDX)                   DTSBE607
00395              END-IF                                               DTSBE607
00396      END-PERFORM.                                                 DTSBE607
00397      MOVE MAUR-EMP-SIZE-IND          TO R607-MAUR-EMP-SIZE-IND.   DTSBE607
00398      MOVE MAUR-NEW-EMPLOYEE-CNT      TO R607-NEW-EMPLOYEE-CNT.    DTSBE607
00399      MOVE MAUR-MONEY-DUE-AMT         TO R607-MONEY-DUE-AMT.       DTSBE607
00400      MOVE MAUR-MONEY-REASON-CD       TO R607-MONEY-REASON-CD.     DTSBE607
00401      MOVE MAUR-MONEY-COLLECT-AMT     TO R607-MONEY-COLLECT-AMT.   DTSBE607
00402                                                                   DTSBE607
00403      MOVE LOW-VALUE TO MAUY-KEY-AREA.                             DTSBE607
00404      MOVE MFAS-EMP-NO TO MAUY-EMP-NO.                             DTSBE607
00405      SET MAUY-AUY-88 TO TRUE.                                     DTSBE607
00406      MOVE MFAS-ASSIGN-NO TO MAUY-ASSIGN-NO.                       DTSBE607
00407      MOVE MAUY-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE607
00408      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE607
00409      IF L910-OK-88                                                DTSBE607
00410          MOVE MSKL-REC TO MAUY-REC                                DTSBE607
00411          PERFORM P1130-SCAN-MAUY THRU P1130-EXIT                  DTSBE607
00412                  UNTIL L910-NO-REC-88                             DTSBE607
00413                  OR    MAUY-ASSIGN-NO  NOT =  MFAS-ASSIGN-NO.     DTSBE607
00414      SKIP3                                                        DTSBE607
00415      PERFORM S946-WRITE-R607 THRU S946-EXIT.                      DTSBE607
00416  P1100-EXIT.                                                      DTSBE607
00417      EXIT.                                                        DTSBE607
00418      EJECT                                                        DTSBE607
00419  P1110-CHECK-ASSIGN-TYPE.                                         DTSBE607
00420      IF MFAS-ASSIGN-TYPE                                          DTSBE607
00421          = WRK-PARM-ASSIGN-TYPE (WRK-PARM-ASSIGN-IDX)             DTSBE607
00422          MOVE 'Y' TO WRK-ASSIGN-TYPE-IND.                         DTSBE607
00423  P1110-EXIT.                                                      DTSBE607
00424      EXIT.                                                        DTSBE607
00425      SKIP3                                                        DTSBE607
00426  P1120-CHECK-FLD-REP-ID.                                          DTSBE607
00427      IF MFAS-FLD-REP-ID                                           DTSBE607
00428          = WRK-PARM-FLD-REP-ID (WRK-PARM-FLD-REP-IDX)             DTSBE607
00429          MOVE 'Y' TO WRK-FLD-REP-ID-IND.                          DTSBE607
00430  P1120-EXIT.                                                      DTSBE607
00431      EXIT.                                                        DTSBE607
00432      EJECT                                                        DTSBE607
00433  P1130-SCAN-MAUY.                                                 DTSBE607
00434      PERFORM P1131-SCAN-QTRS THRU P1131-EXIT                      DTSBE607
00435              VARYING WRK-CNT FROM 1 BY 1                          DTSBE607
00436              UNTIL   WRK-CNT > MMAX-AUY-QTR-MAX.                  DTSBE607
00437      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE607
00438      MOVE MSKL-REC TO MAUY-REC.                                   DTSBE607
00439  P1130-EXIT.                                                      DTSBE607
00440      EXIT.                                                        DTSBE607
00441      SKIP3                                                        DTSBE607
00442  P1131-SCAN-QTRS.                                                 DTSBE607
00443      ADD MAUY-QTR-GROSS-PAYROLL (WRK-CNT)                         DTSBE607
00444                                  TO R607-TOT-GROSS-PAYROLL.       DTSBE607
00445                                                                   DTSBE607
00446      IF MAUY-QTR-UNDER-TOT-WAGE (WRK-CNT) NOT = 0                 DTSBE607
00447          SET R607-CHANGE-AUDIT-YES-88 TO TRUE                     DTSBE607
00448          ADD MAUY-QTR-UNDER-TOT-WAGE (WRK-CNT)                    DTSBE607
00449                                  TO R607-TOT-UNDER-TOT-WAGE.      DTSBE607
00450      IF MAUY-QTR-UNDER-TAX-WAGE (WRK-CNT)  NOT =  0               DTSBE607
00451          SET R607-CHANGE-AUDIT-YES-88 TO TRUE                     DTSBE607
00452          ADD MAUY-QTR-UNDER-TAX-WAGE (WRK-CNT)                    DTSBE607
00453                                  TO R607-TOT-UNDER-TAX-WAGE.      DTSBE607
00454      IF MAUY-QTR-UNDER-CONTRIB (WRK-CNT)   NOT =  0               DTSBE607
00455          SET R607-CHANGE-AUDIT-YES-88 TO TRUE                     DTSBE607
00456          ADD MAUY-QTR-UNDER-CONTRIB (WRK-CNT)                     DTSBE607
00457                                  TO R607-TOT-UNDER-CONTRIB.       DTSBE607
00458                                                                   DTSBE607
00459      IF MAUY-QTR-OVER-TOT-WAGE (WRK-CNT)   NOT =  0               DTSBE607
00460          SET R607-CHANGE-AUDIT-YES-88 TO TRUE                     DTSBE607
00461          ADD MAUY-QTR-OVER-TOT-WAGE (WRK-CNT)                     DTSBE607
00462                                  TO R607-TOT-OVER-TOT-WAGE.       DTSBE607
00463      IF MAUY-QTR-OVER-TAX-WAGE (WRK-CNT)   NOT =  0               DTSBE607
00464          SET R607-CHANGE-AUDIT-YES-88 TO TRUE                     DTSBE607
00465          ADD MAUY-QTR-OVER-TAX-WAGE (WRK-CNT)                     DTSBE607
00466                                  TO R607-TOT-OVER-TAX-WAGE.       DTSBE607
00467      IF MAUY-QTR-OVER-CONTRIB (WRK-CNT)    NOT =  0               DTSBE607
00468          SET R607-CHANGE-AUDIT-YES-88 TO TRUE                     DTSBE607
00469          ADD MAUY-QTR-OVER-CONTRIB (WRK-CNT)                      DTSBE607
00470                                  TO R607-TOT-OVER-CONTRIB.        DTSBE607
00471  P1131-EXIT.                                                      DTSBE607
00472      EXIT.                                                        DTSBE607
00473      EJECT                                                        DTSBE607
00474  S001-FROM-CAL-6.                                                 DTSBE607
00475      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE607
00476      GO TO S001-DATE.                                             DTSBE607
00477      SKIP1                                                        DTSBE607
00478  S001-DATE.                                                       DTSBE607
00479      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE607
00480  S001-EXIT.                                                       DTSBE607
00481      EXIT.                                                        DTSBE607
00482      SKIP3                                                        DTSBE607
00483  S910-READ.                                                       DTSBE607
00484      SET L910-READ-88 TO TRUE.                                    DTSBE607
00485      GO TO S910-MSTR-IO.                                          DTSBE607
00486      SKIP1                                                        DTSBE607
00487  S910-START-BROWSE.                                               DTSBE607
00488      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE607
00489      GO TO S910-MSTR-IO.                                          DTSBE607
00490      SKIP1                                                        DTSBE607
00491  S910-READ-NEXT.                                                  DTSBE607
00492      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE607
00493      GO TO S910-MSTR-IO.                                          DTSBE607
00494      SKIP1                                                        DTSBE607
00495 *S910-COUNT.                                                      DTSBE607
00496 *    SET L910-COUNT-88 TO TRUE.                                   DTSBE607
00497 *    GO TO S910-MSTR-IO.                                          DTSBE607
00498      SKIP1                                                        DTSBE607
00499  S910-MSTR-IO.                                                    DTSBE607
00500      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE607
00501                            MSKL-REC.                              DTSBE607
00502  S910-EXIT.                                                       DTSBE607
00503      EXIT.                                                        DTSBE607
00504      SKIP3                                                        DTSBE607
00505  S946-WRITE-R607.                                                 DTSBE607
00506      CALL 'DTSBU946' USING R607-REC.                              DTSBE607
00507  S946-EXIT.                                                       DTSBE607
00508      EXIT.                                                        DTSBE607
00509      SKIP3                                                        DTSBE607
00510  S999-ABEND.                                                      DTSBE607
00511      DISPLAY '*** DTSBE607 ABENDING.  '   ABEND-MSG.              DTSBE607
00512      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE607
00513  S999-EXIT.                                                       DTSBE607
00514      EXIT.                                                        DTSBE607
00515      EJECT                                                        DTSBE607
00516  T0000-TERMINATE.                                                 DTSBE607
00517      SKIP1                                                        DTSBE607
00518      CONTINUE.                                                    DTSBE607
00519      SKIP1                                                        DTSBE607
00520  T0000-EXIT.                                                      DTSBE607
00521      EXIT.                                                        DTSBE607
