00001  IDENTIFICATION DIVISION.                                         06/03/02
00002  PROGRAM-ID.             DTSBR606.                                DTSBR606
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV068
00004  DATE-WRITTEN.           JANUARY 1995.                            DTSBR606
00005  DATE-COMPILED.                                                   DTSBR606
00006      SKIP3                                                        DTSBR606
00007 *****                                                             DTSBR606
00008 *                                                                 DTSBR606
00009 *   CALLING SEQUENCE:  DTSBD400 CALLS                             DTSBR606
00010 *                      DTSBE606 WHICH UPDATES DTSIR606            DTSBR606
00011 *                      DTSBR606 READS DTSIR606 RECORDS.           DTSBR606
00012 *                                                                 DTSBR606
00013 *    FUNCTION:  ASSIGNMENT SUMMARY BY FIELD REP EXPORT.           DTSBR606
00014 *                                                                 DTSBR606
00015 *                                                                 DTSBR606
00016 *    MODIFICATION HISTORY:                                        DTSBR606
00017 *                                                                 DTSBR606
00018 * 01-19-95 INITIAL DEVELOPMENT.                                   DTSBR606
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RHC  DTSBR606
00020 *                                                                 DTSBR606
00021 * 01-30-95 ADD SELECTION CRITERIA TO RECORDS.                     DTSBR606
00022 *          REFERENCE RFP #CR043           AUTHOR OF CHANGE - RHC  DTSBR606
00023 *                                                                 DTSBR606
00024 * 03-27-95 REFORMAT PARM DATES TO MMDDYY, AND/OR 000000, 999999.  DTSBR606
00025 *          REFERENCE RFP #TPR             AUTHOR OF CHANGE - RHC  DTSBR606
00026 *                                                                 DTSBR606
00027 * 04-07-95 RECOMPILED FOR R991-UNIT-DSCR PER CHANGE REQUEST 064   DTSBR606
00028 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR606
00029 *                                                                 DTSBR606
00030 * 11-20-98 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATONS.      DTSBR606
00031 *          REFERENCE RFP #****            AUTHOR OF CHANGE - DVS  DTSBR606
00032 *                                                                 DTSBR606
00033 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR606
00034 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR606
00035 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR606
00036 *                                                                 DTSBR606
00037 *                                                                 DTSBR606
00038 *    DESCRIPTION:                                                 DTSBR606
00039 *                                                                 DTSBR606
00040 *        ASSIGNMENT SUMMARY BY FIELD REP EXPORT FOR DOWNLOAD      DTSBR606
00041 *        TO A PC (DATAEASE).                                      DTSBR606
00042 *                                                                 DTSBR606
00043 *        THIS IS AN "AT LEAST ONCE" MODULE.                       DTSBR606
00044 *                                                                 DTSBR606
00045 *                                                                 DTSBR606
00046 *    RECORDS READ:                                                DTSBR606
00047 *                                                                 DTSBR606
00048 *        NONE.                                                    DTSBR606
00049 *                                                                 DTSBR606
00050 *                                                                 DTSBR606
00051 *    PRINTED OUTPUTS:                                             DTSBR606
00052 *                                                                 DTSBR606
00053 *        NONE.                                                    DTSBR606
00054 *                                                                 DTSBR606
00055 *                                                                 DTSBR606
00056 *    RECORDS WRITTEN:                                             DTSBR606
00057 *                                                                 DTSBR606
00058 *        606R1  ASSIGNMENT SUMMARY BY FIELD REP EXPORT            DTSBR606
00059 *                                                                 DTSBR606
00060 *                                                                 DTSBR606
00061 *    MODULES CALLED:                                              DTSBR606
00062 *                                                                 DTSBR606
00063 *        GETSER   DATASET INFORMATION MODULE                      DTSBR606
00064 *        DTSBR991 EXPORT CONTROL REPORT MODULE                    DTSBR606
00065 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR606
00066 *        DTSBU062 FIELD REP NAME LOOKUP                           DTSBR606
00067 *        DTSBU143 VARIABLE LENGTH RECORD CONSTRUCTION MODULE      DTSBR606
00068 *                                                                 DTSBR606
00069 *                                                                 DTSBR606
00070 *****                                                             DTSBR606
00071      EJECT                                                        DTSBR606
00072  ENVIRONMENT DIVISION.                                            DTSBR606
00073  CONFIGURATION SECTION.                                           DTSBR606
00074  SPECIAL-NAMES.                                                   DTSBR606
00075      C01 IS TOP-OF-PAGE.                                          DTSBR606
00076  INPUT-OUTPUT SECTION.                                            DTSBR606
00077                                                                   DTSBR606
00078  FILE-CONTROL.                                                    DTSBR606
00079      SELECT PRINT-FILE  ASSIGN TO RPT606R1                        DTSBR606
00080          FILE STATUS IS WS-FILE-STATUS.                           DTSBR606
00081      SKIP3                                                        DTSBR606
00082  DATA DIVISION.                                                   DTSBR606
00083      SKIP3                                                        DTSBR606
00084  FILE SECTION.                                                    DTSBR606
00085                                                                   DTSBR606
00086  FD  PRINT-FILE                                                   DTSBR606
00087      RECORDING MODE IS F                                          DTSBR606
00088      BLOCK CONTAINS 0 RECORDS.                                    DTSBR606
00089  01  PRINT-REC                       PIC X(133).                  DTSBR606
00090      EJECT                                                        DTSBR606
00091  WORKING-STORAGE SECTION.                                         DTSBR606
000915 77  PAN-VALET PICTURE X(24) VALUE '068DTSBR606  06/03/02'.       DTSBR606
00092      SKIP3                                                        DTSBR606
00093  01  WS-WRK-AREA.                                                 DTSBR606
00094      05  WS-ABEND-CD                 PIC S9(04)  COMP  VALUE +606.DTSBR606
00095      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR606
00096                                                                   DTSBR606
00097      05  WS-FILE-STATUS              PIC  X(02).                  DTSBR606
00098          88  FILE-OK-88                          VALUE '00'.      DTSBR606
00099      05  WS-VAR-CHAR-CNT             PIC S9(04)  COMP.            DTSBR606
00100                                                                   DTSBR606
00101      05  WS-SUB                      PIC S9(04)  COMP.            DTSBR606
00102      05  WS-PAGE-COUNTER             PIC S9(04)  VALUE ZEROES.    DTSBR606
00103      05  WS-START-ABS-DAY            PIC S9(08)  COMP.            DTSBR606
00104      SKIP3                                                        DTSBR606
00105  01  WS-TOTAL-AREA.                                               DTSBR606
00106      05  WS-FIELD-REP-ID             PIC  X(02).                  DTSBR606
00107      05  WS-NBR-LARGE                PIC S9(05)      COMP-3.      DTSBR606
00108      05  WS-NBR-DUE                  PIC S9(05)      COMP-3.      DTSBR606
00109      05  WS-NBR-DUE-NOT-GT-COLL      PIC S9(05)      COMP-3.      DTSBR606
00110      05  WS-TOT-COLL                 PIC S9(11)V99   COMP-3.      DTSBR606
00111      05  WS-NBR-CHANGE               PIC S9(05)      COMP-3.      DTSBR606
00112      05  WS-NBR-PEN-OR-INT           PIC S9(05)      COMP-3.      DTSBR606
00113      05  FILLER          OCCURS 3.                                DTSBR606
00114          10  WS-NBR-ASSI             PIC S9(05)      COMP-3.      DTSBR606
00115          10  WS-NBR-QTRS             PIC S9(05)      COMP-3.      DTSBR606
00116          10  WS-NBR-HRS              PIC S9(04)V9    COMP-3.      DTSBR606
00117          10  WS-NBR-DAYS             PIC S9(09)      COMP-3.      DTSBR606
00118          10  WS-TOT-GROSS            PIC S9(11)V99   COMP-3.      DTSBR606
00119          10  WS-TOT-TOT-CHANGE       PIC S9(11)V99   COMP-3.      DTSBR606
00120          10  WS-TOT-TAX-CHANGE       PIC S9(11)V99   COMP-3.      DTSBR606
00121          10  WS-TOT-CONTRIB-CHANGE   PIC S9(11)V99   COMP-3.      DTSBR606
00122          10  WS-NBR-NEW-EMP          PIC S9(05)      COMP-3.      DTSBR606
00123      SKIP3                                                        DTSBR606
00124   01 WS-PARM-AREA.                                                DTSBR606
00125      05  WS-PARM-COMPL-START         PIC S9(09)      COMP-3.      DTSBR606
00126      05  WS-PARM-COMPL-END           PIC S9(09)      COMP-3.      DTSBR606
00127      05  WS-PARM-PROCESS-START       PIC S9(09)      COMP-3.      DTSBR606
00128      05  WS-PARM-PROCESS-END         PIC S9(09)      COMP-3.      DTSBR606
00129      05  WS-PARM-ASSIGN-CNT          PIC S9(04)      COMP.        DTSBR606
00130      05  WS-PARM-ASSIGN-TYPE OCCURS 5                             DTSBR606
00131               INDEXED BY WS-PARM-ASSIGN-IDX                       DTSBR606
00132                                      PIC  X(02).                  DTSBR606
00133      SKIP3                                                        DTSBR606
00134  01  WS-EDIT-AREA.                                                DTSBR606
00135      05  WS-EDIT-2-X                 PIC  X(02).                  DTSBR606
00136      05  WS-EDIT-5                   PIC  9(05).                  DTSBR606
00137      05  WS-EDIT-PERCENTAGE          PIC  9(03).99.               DTSBR606
00138      05  WS-EDIT-DATE                PIC  9(09).                  DTSBR606
00139          88  WS-EDIT-DATE-SPECIAL        VALUE   0   999999999.   DTSBR606
00140      05  WS-EDIT-HRS                 PIC  9(05).9.                DTSBR606
00141      05  WS-EDIT-AVERAGE             PIC  9(04).99.               DTSBR606
00142      05  WS-EDIT-AMT                 PIC  9(11).99-.              DTSBR606
00143      SKIP3                                                        DTSBR606
00144  01  WS-GETSER-PARAMETERS.                                        DTSBR606
00145      05  WS-GETSER-VOL-SER           PIC  X(30).                  DTSBR606
00146      05  WS-GETSER-DATASET-NAME      PIC  X(44).                  DTSBR606
00147      05  WS-GETSER-VOLUME-COUNT      PIC  9(03).                  DTSBR606
00148      05  WS-GETSER-DD-NAME           PIC  X(08).                  DTSBR606
00149      05  WS-GETSER-STEP-NAME         PIC  X(08).                  DTSBR606
00150      SKIP3                                                        DTSBR606
00151  01  WS-REPORT-AREA.                                              DTSBR606
00152      05  WS-DEFAULT-START-DATE       PIC S9(09) COMP-3 VALUE 0.   DTSBR606
00153      05  WS-DEFAULT-END-DATE         PIC S9(09) COMP-3 VALUE      DTSBR606
00154                                      999999999.                   DTSBR606
00155      05  WS-DATE-AREA               PIC 9(09) VALUE 0.            DTSBR606
00156      05  WS-DATE-AREA-R REDEFINES WS-DATE-AREA.                   DTSBR606
00157          10  FILLER                 PIC 9.                        DTSBR606
00158          10  WS-DATE-YR.                                          DTSBR606
00159              15  WS-DATE-CENTURY    PIC 9(2).                     DTSBR606
00160              15  WS-DATE-YEAR       PIC 9(2).                     DTSBR606
00161          10  WS-DATE-MTH            PIC 9(2).                     DTSBR606
00162          10  WS-DATE-DAY            PIC 9(2).                     DTSBR606
00163      05  WS-FORMATTED-DATE.                                       DTSBR606
00164          10  WS-DATE-MM             PIC X(02).                    DTSBR606
00165          10  FILLER                 PIC X(01) VALUE '/'.          DTSBR606
00166          10  WS-DATE-DD             PIC X(02).                    DTSBR606
00167          10  FILLER                 PIC X(01) VALUE '/'.          DTSBR606
00168          10  WS-DATE-YY             PIC X(02).                    DTSBR606
00169      05  WS-HEADER-1.                                             DTSBR606
00170         10  FILLER                  PIC X(01).                    DTSBR606
00171         10  WS-REPORT-TYPE          PIC X(05) VALUE               DTSBR606
00172                 '606R1'.                                          DTSBR606
00173         10  FILLER                  PIC X(35) VALUE SPACES.       DTSBR606
00174         10  WS-LRCM-AGY-NAME-LINE1  PIC X(50).                    DTSBR606
00175         10  FILLER                  PIC X(28) VALUE SPACES.       DTSBR606
00176         10  FILLER                  PIC X(05)                     DTSBR606
00177                VALUE 'DATE:'.                                     DTSBR606
00178         10  WS-LRCM-SYS-DATE        PIC X(08).                    DTSBR606
00179      05  WS-HEADER-2.                                             DTSBR606
00180         10  FILLER                  PIC X(01) VALUE SPACE.        DTSBR606
00181         10  FILLER                  PIC X(40) VALUE SPACE.        DTSBR606
00182         10  WS-LRCM-AGY-NAME-LINE2  PIC X(50).                    DTSBR606
00183         10  FILLER                  PIC X(28) VALUE SPACE.        DTSBR606
00184         10  FILLER                  PIC X(05)                     DTSBR606
00185                VALUE 'TIME:'.                                     DTSBR606
00186         10  WS-LRCM-SYS-TIME        PIC X(08).                    DTSBR606
00187      05  WS-HEADER-3.                                             DTSBR606
00188         10  FILLER                  PIC X(01).                    DTSBR606
00189         10  FILLER                  PIC X(10) VALUE               DTSBR606
00190                      'ROUTE TO: '.                                DTSBR606
00191         10  WS-HEADER-3-UNIT        PIC X(20).                    DTSBR606
00192         10  FILLER                  PIC X(10) VALUE SPACE.        DTSBR606
00193         10  WS-HEADER-3-TITLE       PIC X(50).                    DTSBR606
00194 *       10  FILLER                  PIC X(08) VALUE SPACE.        DTSBR606
00195         10  FILLER                  PIC X(28) VALUE SPACE.        DTSBR606
00196         10  FILLER                  PIC X(05)                     DTSBR606
00197                VALUE 'PAGE:'.                                     DTSBR606
00198         10  W-PAGE-CNTR             PIC  ZZ,ZZ9.                  DTSBR606
00199      05  WS-LINE-1.                                               DTSBR606
00200          10  FILLER                  PIC X(01).                   DTSBR606
00201          10  FILLER                  PIC X(19) VALUE              DTSBR606
00202              'SELECTION CRITERIA:'.                               DTSBR606
00203      05  WS-LINE-2.                                               DTSBR606
00204          10  FILLER                  PIC X(01).                   DTSBR606
00205          10  FILLER                  PIC X(40) VALUE              DTSBR606
00206              '           AUDIT ASSIGNMENT?: '.                    DTSBR606
00207          10  W-AUDIT-ASSIGN-TYPE     PIC  X(01).                  DTSBR606
00208      05  WS-LINE-3.                                               DTSBR606
00209          10  FILLER                  PIC X(01).                   DTSBR606
00210          10  FILLER                  PIC X(30) VALUE              DTSBR606
00211              '                 ASSIGN TYPE: '.                    DTSBR606
00212          10  W-ASSIGN-TYPE OCCURS 5 TIMES PIC X(03).              DTSBR606
00213      05  WS-LINE-4.                                               DTSBR606
00214          10  FILLER                  PIC X(01).                   DTSBR606
00215          10  FILLER                  PIC X(40) VALUE              DTSBR606
00216              '        COMPLETED DATE RANGE:    BEGIN: '.          DTSBR606
00217          10  W-COMPL-START-DATE     PIC X(10).                    DTSBR606
00218          10  FILLER                  PIC X(06) VALUE              DTSBR606
00219              ' END: '.                                            DTSBR606
00220          10  W-COMPL-END-DATE        PIC X(10).                   DTSBR606
00221      05  WS-LINE-5.                                               DTSBR606
00222          10  FILLER                  PIC X(01).                   DTSBR606
00223          10  FILLER                  PIC X(40) VALUE              DTSBR606
00224              '        PROCESSED DATE RANGE:    BEGIN: '.          DTSBR606
00225          10  W-PROCESS-START-DATE   PIC X(10).                    DTSBR606
00226          10  FILLER                  PIC X(06) VALUE              DTSBR606
00227              ' END: '.                                            DTSBR606
00228          10  W-PROCESS-END-DATE      PIC X(10).                   DTSBR606
00229      05  WS-LINE-6.                                               DTSBR606
00230          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBR606
00231          10  FILLER                  PIC X(17) VALUE              DTSBR606
00232              '   FIELD REP ID: '.                                 DTSBR606
00233          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBR606
00234          10  W-FIELD-REP-ID          PIC X(03).                   DTSBR606
00235          10  FILLER                  PIC X(03) VALUE SPACE.       DTSBR606
00236          10  W-FIELD-REP-NAME        PIC X(50).                   DTSBR606
00237      05  WS-LINE-7.                                               DTSBR606
00238          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBR606
00239          10  FILLER                  PIC X(17) VALUE              DTSBR606
00240              '   NO LARGE EMP: '.                                 DTSBR606
00241          10  W-EMP-CNT               PIC Z,ZZ9.                   DTSBR606
00242          10  FILLER                  PIC X(11) VALUE SPACES.      DTSBR606
00243          10  FILLER                  PIC X(40) VALUE              DTSBR606
00244              '% MONEY DUE AUDITS(PAYMENTS OBTAINED) : '.          DTSBR606
00245          10  W-MONEY-DUE-PYMTS       PIC ZZZ.99.                  DTSBR606
00246      05  WS-LINE-8.                                               DTSBR606
00247          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBR606
00248          10  FILLER                  PIC X(17) VALUE              DTSBR606
00249              '    CHNG AUDITS: '.                                 DTSBR606
00250          10  W-CHG-AUDIT             PIC Z,ZZ9.                   DTSBR606
00251          10  FILLER                  PIC X(11) VALUE SPACES.      DTSBR606
00252          10  FILLER                  PIC X(40) VALUE              DTSBR606
00253              '% MONEY DUE AUDITS(WAIVERS GRANTED  ) : '.          DTSBR606
00254          10  W-MONEY-DUE-WAIVERS     PIC ZZZ.99.                  DTSBR606
00255      05  WS-LINE-9.                                               DTSBR606
00256          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBR606
00257          10  FILLER                  PIC X(17) VALUE              DTSBR606
00258              'MONEY COLLECTED: '.                                 DTSBR606
00259          10  W-MONEY-COLLECTED       PIC ZZZ,ZZZ,ZZZ.ZZ.          DTSBR606
00260      05  WS-BREAK-AREA               PIC  X(132) VALUE ALL '-'.   DTSBR606
00261      05  WS-DTL-HDR-1.                                            DTSBR606
00262          10  FILLER                  PIC  X(53) VALUE SPACE.      DTSBR606
00263          10  FILLER                  PIC  X(10) VALUE             DTSBR606
00264              'INCREASE'.                                          DTSBR606
00265          10  FILLER                  PIC  X(25) VALUE SPACE.      DTSBR606
00266          10  FILLER                  PIC  X(10) VALUE             DTSBR606
00267              'DECREASE'.                                          DTSBR606
00268          10  FILLER                  PIC  X(25) VALUE SPACE.      DTSBR606
00269          10  FILLER                  PIC  X(10) VALUE             DTSBR606
00270              'NO CHANGE'.                                         DTSBR606
00271      05  WS-LINE-10.                                              DTSBR606
00272          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR606
00273          10  FILLER                  PIC X(15) VALUE              DTSBR606
00274              '  NO OF AUDITS'.                                    DTSBR606
00275          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR606
00276          10  W-AUDIT-INCR            PIC  Z,ZZ9.                  DTSBR606
00277          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR606
00278          10  W-AUDIT-DECR            PIC  Z,ZZ9.                  DTSBR606
00279          10  FILLER                  PIC  X(31) VALUE SPACES.     DTSBR606
00280          10  W-AUDIT-NOCHG           PIC  Z,ZZ9.                  DTSBR606
00281      05  WS-LINE-11.                                              DTSBR606
00282          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR606
00283          10  FILLER                  PIC X(15) VALUE              DTSBR606
00284              'NO OF QUARTERS'.                                    DTSBR606
00285          10  FILLER                  PIC  X(42) VALUE SPACE.      DTSBR606
00286          10  W-QTRS-INCR             PIC    ZZ9.                  DTSBR606
00287          10  FILLER                  PIC  X(32) VALUE SPACES.     DTSBR606
00288          10  W-QTRS-DECR             PIC    ZZ9.                  DTSBR606
00289          10  FILLER                  PIC  X(33) VALUE SPACES.     DTSBR606
00290          10  W-QTRS-NOCHG            PIC    ZZ9.                  DTSBR606
00291      05  WS-LINE-12.                                              DTSBR606
00292          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR606
00293          10  FILLER                  PIC X(15) VALUE              DTSBR606
00294              '   NO OF HOURS'.                                    DTSBR606
00295          10  FILLER                  PIC  X(39) VALUE SPACES.     DTSBR606
00296          10  W-HRS-INCR              PIC  ZZZZ.9.                 DTSBR606
00297          10  FILLER                  PIC  X(29) VALUE SPACES.     DTSBR606
00298          10  W-HRS-DECR              PIC  ZZZZ.9.                 DTSBR606
00299          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR606
00300          10  W-HRS-NOCHG             PIC  ZZZZ.9.                 DTSBR606
00301      05  WS-LINE-13.                                              DTSBR606
00302          10  FILLER                  PIC  X(01) VALUE SPACES.     DTSBR606
00303          10  FILLER                  PIC X(15) VALUE              DTSBR606
00304              'AVG DAYS SPENT'.                                    DTSBR606
00305          10  FILLER                  PIC  X(38) VALUE SPACES.     DTSBR606
00306          10  W-AVGDA-INCR            PIC  ZZZZ.99.                DTSBR606
00307          10  FILLER                  PIC  X(28) VALUE SPACES.     DTSBR606
00308          10  W-AVGDA-DECR            PIC  ZZZZ.99.                DTSBR606
00309          10  FILLER                  PIC  X(29) VALUE SPACES.     DTSBR606
00310          10  W-AVGDA-NOCHG           PIC  ZZZZ.99.                DTSBR606
00311      05  WS-DTL-HDR-2.                                            DTSBR606
00312          10  FILLER                  PIC  X(53) VALUE SPACES.     DTSBR606
00313          10  FILLER                  PIC  X(24) VALUE             DTSBR606
00314              '-----------------------'.                           DTSBR606
00315          10  FILLER                  PIC  X(32) VALUE             DTSBR606
00316              'NET CHANGES RESULTING FROM AUDIT'.                  DTSBR606
00317          10  FILLER                  PIC  X(25) VALUE             DTSBR606
00318              ' ----------------------'.                           DTSBR606
00319      05  WS-LINE-14.                                              DTSBR606
00320          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR606
00321          10  FILLER                  PIC X(15) VALUE              DTSBR606
00322              ' NEW EMPLOYEES'.                                    DTSBR606
00323          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR606
00324          10  W-NEMPL-INCR            PIC  ZZZZ9.                  DTSBR606
00325          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR606
00326          10  W-NEMPL-DECR            PIC  ZZZZ9.                  DTSBR606
00327          10  FILLER                  PIC  X(31) VALUE SPACES.     DTSBR606
00328          10  W-NEMPL-NOCHG           PIC  ZZZZ9.                  DTSBR606
00329      05  WS-LINE-15.                                              DTSBR606
00330          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR606
00331          10  FILLER                  PIC X(15) VALUE              DTSBR606
00332              ' GROSS PAYROLL'.                                    DTSBR606
00333          10  FILLER                  PIC  X(34) VALUE SPACES.     DTSBR606
00334          10  W-PAYRL-INCR            PIC  ZZZZ,ZZZ.99.            DTSBR606
00335          10  FILLER                  PIC  X(24) VALUE SPACES.     DTSBR606
00336          10  W-PAYRL-DECR            PIC  ZZZZ,ZZZ.99.            DTSBR606
00337          10  FILLER                  PIC  X(25) VALUE SPACES.     DTSBR606
00338          10  W-PAYRL-NOCHG           PIC  ZZZZ,ZZZ.99.            DTSBR606
00339      05  WS-LINE-16.                                              DTSBR606
00340          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBR606
00341          10  FILLER                  PIC X(15) VALUE              DTSBR606
00342              'TOTAL WAGES   '.                                    DTSBR606
00343          10  FILLER                  PIC  X(34) VALUE SPACE.      DTSBR606
00344          10  W-WAGE-INCR             PIC  ZZZZ,ZZZ.99.            DTSBR606
00345          10  FILLER                  PIC  X(24) VALUE SPACE.      DTSBR606
00346          10  W-WAGE-DECR             PIC  ZZZZ,ZZZ.99.            DTSBR606
00347          10  FILLER                  PIC  X(25) VALUE SPACES.     DTSBR606
00348          10  W-WAGE-NOCHG            PIC  ZZZZ,ZZZ.99.            DTSBR606
00349      05  WS-LINE-17.                                              DTSBR606
00350          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR606
00351          10  FILLER                  PIC  X(15) VALUE             DTSBR606
00352              'TAX WGE CHANGE'.                                    DTSBR606
00353          10  FILLER                  PIC  X(34) VALUE SPACES.     DTSBR606
00354          10  W-TXWGE-INCR            PIC  ZZZZ,ZZZ.99.            DTSBR606
00355          10  FILLER                  PIC  X(24) VALUE SPACES.     DTSBR606
00356          10  W-TXWGE-DECR            PIC  ZZZZ,ZZZ.99.            DTSBR606
00357          10  FILLER                  PIC  X(25) VALUE SPACES.     DTSBR606
00358          10  W-TXWGE-NOCHG           PIC  ZZZZ,ZZZ.99.            DTSBR606
00359      05  WS-LINE-18.                                              DTSBR606
00360          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR606
00361          10  FILLER                  PIC X(15) VALUE              DTSBR606
00362              'CONTRIB CHANGE'.                                    DTSBR606
00363          10  FILLER                  PIC  X(34) VALUE SPACES.     DTSBR606
00364          10  W-CONTR-INCR            PIC  ZZZZ,ZZZ.99.            DTSBR606
00365          10  FILLER                  PIC  X(24) VALUE SPACES.     DTSBR606
00366          10  W-CONTR-DECR            PIC  ZZZZ,ZZZ.99.            DTSBR606
00367          10  FILLER                  PIC  X(25) VALUE SPACES.     DTSBR606
00368          10  W-CONTR-NOCHG           PIC  ZZZZ,ZZZ.99.            DTSBR606
00369      EJECT                                                        DTSBR606
00370  01  R991-REC.                                                    DTSBR606
00371  ++INCLUDE DTSIR991                                               DTSBR606
00372      EJECT                                                        DTSBR606
00373  01  L001-LINK-AREA.                                              DTSBR606
00374  ++INCLUDE DTSIL001                                               DTSBR606
00375      EJECT                                                        DTSBR606
00376  01  L062-LINK-AREA.                                              DTSBR606
00377  ++INCLUDE DTSIL062                                               DTSBR606
00378      EJECT                                                        DTSBR606
00379  01  L071-LINK-AREA.                                              DTSBR606
00380  ++INCLUDE DTSIL071                                               DTSBR606
00381      EJECT                                                        DTSBR606
00382  01  L143-LINK-AREA.                                              DTSBR606
00383  ++INCLUDE DTSIL143                                               DTSBR606
00384      EJECT                                                        DTSBR606
00385  LINKAGE SECTION.                                                 DTSBR606
00386      SKIP3                                                        DTSBR606
00387  01  LRCM-LINK-AREA.                                              DTSBR606
00388  ++INCLUDE DTSILRCM                                               DTSBR606
00389      EJECT                                                        DTSBR606
00390  01  R606-REC.                                                    DTSBR606
00391  ++INCLUDE DTSIR606                                               DTSBR606
00392      EJECT                                                        DTSBR606
00393  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR606
00394                           R606-REC.                               DTSBR606
00395      SKIP3                                                        DTSBR606
00396      IF FIRST-TIME-IND = 'Y'                                      DTSBR606
00397          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR606
00398          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR606
00399      SKIP3                                                        DTSBR606
00400      IF LRCM-EOR-88                                               DTSBR606
00401          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR606
00402      ELSE                                                         DTSBR606
00403          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR606
00404      SKIP3                                                        DTSBR606
00405      GOBACK.                                                      DTSBR606
00406      EJECT                                                        DTSBR606
00407  I1000-INITIATE.                                                  DTSBR606
00408                                                                   DTSBR606
00409 *    OPEN OUTPUT EXPORT-FILE.                                     DTSBR606
00410      OPEN OUTPUT PRINT-FILE.                                      DTSBR606
00411      MOVE '606' TO R991-MOD.                                      DTSBR606
00412      MOVE 'ENFORCEMENT UNIT' TO R991-ROUTE1 WS-HEADER-3-UNIT.     DTSBR606
00413      MOVE '                    ' TO R991-ROUTE2.                  DTSBR606
00414      MOVE 'AUDIT ASSIGNMENT SUMMARY BY FIELD REPRESENTATIVE '     DTSBR606
00415                                           TO WS-HEADER-3-TITLE    DTSBR606
00416                                              R991-DATA-TYPE.      DTSBR606
00417      MOVE LRCM-AGY-NAME-LINE1 TO WS-LRCM-AGY-NAME-LINE1.          DTSBR606
00418      MOVE LRCM-AGY-NAME-LINE2 TO WS-LRCM-AGY-NAME-LINE2.          DTSBR606
00419      MOVE LRCM-SYS-DATE       TO WS-LRCM-SYS-DATE.                DTSBR606
00420      MOVE LRCM-SYS-TIME       TO WS-LRCM-SYS-TIME.                DTSBR606
00421      MOVE 'RECORDS' TO R991-UNIT-DSCR.                            DTSBR606
00422      MOVE +0 TO R991-UNIT-COUNT.                                  DTSBR606
00423      SKIP3                                                        DTSBR606
00424      SET L143-FIELD-DELIM-SEMI TO TRUE.                           DTSBR606
00425      SET L143-STRING-DELIM-NO TO TRUE.                            DTSBR606
00426      SET L143-EMBED-NO-REPLACE TO TRUE.                           DTSBR606
00427      SET L143-EDIT-FIELD-NO TO TRUE.                              DTSBR606
00428      SKIP3                                                        DTSBR606
00429      INITIALIZE WS-TOTAL-AREA.                                    DTSBR606
00430      IF LRCM-EOR-88                                               DTSBR606
00431          MOVE LOW-VALUE TO WS-FIELD-REP-ID                        DTSBR606
00432      ELSE                                                         DTSBR606
00433          MOVE R606-FIELD-REP-ID TO WS-FIELD-REP-ID                DTSBR606
00434          MOVE R606-PARM-AREA TO WS-PARM-AREA.                     DTSBR606
00435                                                                   DTSBR606
00436                                                                   DTSBR606
00437  I1000-EXIT.                                                      DTSBR606
00438      EXIT.                                                        DTSBR606
00439      SKIP3                                                        DTSBR606
00440      SKIP3                                                        DTSBR606
00441  P1000-PROCESS.                                                   DTSBR606
00442                                                                   DTSBR606
00443                                                                   DTSBR606
00444      IF R606-FIELD-REP-ID  NOT =  WS-FIELD-REP-ID                 DTSBR606
00445          PERFORM P1200-WRITE THRU P1200-EXIT                      DTSBR606
00446          PERFORM P1250-R606  THRU P1250-EXIT                      DTSBR606
00447                                                                   DTSBR606
00448          INITIALIZE WS-TOTAL-AREA                                 DTSBR606
00449          MOVE R606-FIELD-REP-ID TO WS-FIELD-REP-ID.               DTSBR606
00450      SKIP3                                                        DTSBR606
00451      PERFORM P1100-ACCUMULATE THRU P1100-EXIT.                    DTSBR606
00452                                                                   DTSBR606
00453  P1000-EXIT.                                                      DTSBR606
00454      EXIT.                                                        DTSBR606
00455      EJECT                                                        DTSBR606
00456  P1100-ACCUMULATE.                                                DTSBR606
00457                                                                   DTSBR606
00458                                                                   DTSBR606
00459      IF R606-EMP-SIZE-IND = 'L'                                   DTSBR606
00460          ADD +1 TO WS-NBR-LARGE.                                  DTSBR606
00461                                                                   DTSBR606
00462      IF R606-MONEY-DUE-AMT > 0                                    DTSBR606
00463          ADD +1 TO WS-NBR-DUE                                     DTSBR606
00464          PERFORM P1110-MONEY-DUE THRU P1110-EXIT.                 DTSBR606
00465                                                                   DTSBR606
00466      IF R606-CHANGE-AUDIT-YES-88                                  DTSBR606
00467          ADD +1 TO WS-NBR-CHANGE.                                 DTSBR606
00468      SKIP3                                                        DTSBR606
00469      MOVE R606-CATEGORY-9 TO WS-SUB.                              DTSBR606
00470      ADD +1 TO WS-NBR-ASSI (WS-SUB).                              DTSBR606
00471                                                                   DTSBR606
00472      ADD R606-QTRS-AUDITED-CNT TO WS-NBR-QTRS (WS-SUB).           DTSBR606
00473      ADD R606-AUDIT-HRS        TO WS-NBR-HRS (WS-SUB).            DTSBR606
00474                                                                   DTSBR606
00475      MOVE R606-START-DATE TO L001-FED-8-DATE-9.                   DTSBR606
00476      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR606
00477      MOVE L001-JUL-ABS-DAY TO WS-START-ABS-DAY.                   DTSBR606
00478      MOVE R606-COMPLETED-DATE TO L001-FED-8-DATE-9.               DTSBR606
00479      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR606
00480      IF L001-JUL-ABS-DAY > WS-START-ABS-DAY                       DTSBR606
00481          COMPUTE WS-NBR-DAYS (WS-SUB) =                           DTSBR606
00482                  WS-NBR-DAYS (WS-SUB)                             DTSBR606
00483                + L001-JUL-ABS-DAY                                 DTSBR606
00484                - WS-START-ABS-DAY.                                DTSBR606
00485                                                                   DTSBR606
00486      ADD R606-TOT-GROSS-PAYROLL TO WS-TOT-GROSS (WS-SUB).         DTSBR606
00487      ADD R606-TOT-WAGE-CHANGE   TO WS-TOT-TOT-CHANGE (WS-SUB).    DTSBR606
00488      ADD R606-TAX-WAGE-CHANGE   TO WS-TOT-TAX-CHANGE (WS-SUB).    DTSBR606
00489      ADD R606-CONTRIB-CHANGE    TO WS-TOT-CONTRIB-CHANGE (WS-SUB).DTSBR606
00490      ADD R606-NEW-EMPLOYEE-CNT  TO WS-NBR-NEW-EMP (WS-SUB).       DTSBR606
00491                                                                   DTSBR606
00492  P1100-EXIT.                                                      DTSBR606
00493      EXIT.                                                        DTSBR606
00494      SKIP3                                                        DTSBR606
00495  P1110-MONEY-DUE.                                                 DTSBR606
00496                                                                   DTSBR606
00497      IF R606-MONEY-DUE-AMT  NOT >  R606-MONEY-COLLECT-AMT         DTSBR606
00498          ADD +1 TO WS-NBR-DUE-NOT-GT-COLL.                        DTSBR606
00499                                                                   DTSBR606
00500      ADD R606-MONEY-COLLECT-AMT TO WS-TOT-COLL.                   DTSBR606
00501                                                                   DTSBR606
00502      IF R606-PEN-WAIVE-IND = 'Y'                                  DTSBR606
00503      OR R606-INT-WAIVE-IND = 'Y'                                  DTSBR606
00504          ADD +1 TO WS-NBR-PEN-OR-INT.                             DTSBR606
00505                                                                   DTSBR606
00506  P1110-EXIT.                                                      DTSBR606
00507      EXIT.                                                        DTSBR606
00508      EJECT                                                        DTSBR606
00509                                                                   DTSBR606
00510      EJECT                                                        DTSBR606
00511  P1200-WRITE.                                                     DTSBR606
00512                                                                   DTSBR606
00513                                                                   DTSBR606
00514      SKIP3                                                        DTSBR606
00515      MOVE WS-FIELD-REP-ID TO L062-FLD-REP-ID   W-FIELD-REP-ID.    DTSBR606
00516                                                                   DTSBR606
00517      PERFORM S062-FLD-REP-NAME THRU S062-EXIT.                    DTSBR606
00518      MOVE L062-NAME TO L071-NAM.                                  DTSBR606
00519      MOVE 2 TO L071-NAME-FORMAT                                   DTSBR606
00520      PERFORM S071-DESLASH-NAME THRU S071-EXIT                     DTSBR606
00521      MOVE L071-NAM TO W-FIELD-REP-NAME.                           DTSBR606
00522                                                                   DTSBR606
00523                                                                   DTSBR606
00524      MOVE WS-FIELD-REP-ID TO L062-FLD-REP-ID.                     DTSBR606
00525                                                                   DTSBR606
00526      MOVE WS-NBR-LARGE TO WS-EDIT-5 W-EMP-CNT.                    DTSBR606
00527                                                                   DTSBR606
00528      IF WS-NBR-DUE = +0                                           DTSBR606
00529          MOVE 0 TO WS-EDIT-PERCENTAGE                             DTSBR606
00530      ELSE                                                         DTSBR606
00531          COMPUTE WS-EDIT-PERCENTAGE ROUNDED =                     DTSBR606
00532                  100                                              DTSBR606
00533                * WS-NBR-DUE-NOT-GT-COLL                           DTSBR606
00534                / WS-NBR-DUE.                                      DTSBR606
00535      MOVE WS-EDIT-PERCENTAGE TO W-MONEY-DUE-PYMTS.                DTSBR606
00536                                                                   DTSBR606
00537      MOVE WS-TOT-COLL TO WS-EDIT-AMT W-MONEY-COLLECTED.           DTSBR606
00538                                                                   DTSBR606
00539      MOVE WS-NBR-CHANGE TO WS-EDIT-5.                             DTSBR606
00540                                                                   DTSBR606
00541      IF WS-NBR-DUE = +0                                           DTSBR606
00542          MOVE 0 TO WS-EDIT-PERCENTAGE                             DTSBR606
00543      ELSE                                                         DTSBR606
00544          COMPUTE WS-EDIT-PERCENTAGE ROUNDED =                     DTSBR606
00545                  100                                              DTSBR606
00546                * WS-NBR-PEN-OR-INT                                DTSBR606
00547                / WS-NBR-DUE.                                      DTSBR606
00548      MOVE WS-EDIT-PERCENTAGE TO W-MONEY-DUE-WAIVERS.              DTSBR606
00549                                                                   DTSBR606
00550      PERFORM P1210-INCR-DECR-NOCHG THRU P1210-EXIT                DTSBR606
00551              VARYING WS-SUB FROM 1 BY 1                           DTSBR606
00552              UNTIL   WS-SUB > 3.                                  DTSBR606
00553                                                                   DTSBR606
00554      MOVE WS-PARM-COMPL-START TO WS-EDIT-DATE  WS-DATE-AREA.      DTSBR606
00555      MOVE WS-DATE-YEAR        TO WS-DATE-YY.                      DTSBR606
00556      MOVE WS-DATE-MTH         TO WS-DATE-MM.                      DTSBR606
00557      MOVE WS-DATE-DAY         TO WS-DATE-DD.                      DTSBR606
00558      MOVE WS-FORMATTED-DATE   TO W-COMPL-START-DATE.              DTSBR606
00559                                                                   DTSBR606
00560      MOVE WS-PARM-COMPL-END   TO WS-EDIT-DATE    WS-DATE-AREA.    DTSBR606
00561      MOVE WS-DATE-YEAR        TO WS-DATE-YY.                      DTSBR606
00562      MOVE WS-DATE-MTH         TO WS-DATE-MM.                      DTSBR606
00563      MOVE WS-DATE-DAY         TO WS-DATE-DD.                      DTSBR606
00564      MOVE WS-FORMATTED-DATE   TO W-COMPL-END-DATE.                DTSBR606
00565      MOVE SPACES TO W-PROCESS-START-DATE W-PROCESS-END-DATE.      DTSBR606
00566                                                                   DTSBR606
00567      IF  WS-PARM-PROCESS-START NOT EQUAL WS-DEFAULT-START-DATE    DTSBR606
00568           MOVE WS-PARM-PROCESS-START TO WS-EDIT-DATE WS-DATE-AREA DTSBR606
00569           MOVE WS-DATE-YEAR          TO WS-DATE-YY                DTSBR606
00570           MOVE WS-DATE-MTH           TO WS-DATE-MM                DTSBR606
00571           MOVE WS-DATE-DAY           TO WS-DATE-DD                DTSBR606
00572           MOVE WS-FORMATTED-DATE     TO W-PROCESS-START-DATE.     DTSBR606
00573                                                                   DTSBR606
00574      IF  WS-PARM-PROCESS-END   NOT EQUAL WS-DEFAULT-END-DATE      DTSBR606
00575          MOVE WS-PARM-PROCESS-END TO WS-EDIT-DATE WS-DATE-AREA    DTSBR606
00576          MOVE WS-DATE-YEAR          TO WS-DATE-YY                 DTSBR606
00577          MOVE WS-DATE-MTH           TO WS-DATE-MM                 DTSBR606
00578          MOVE WS-DATE-DAY           TO WS-DATE-DD                 DTSBR606
00579          MOVE WS-FORMATTED-DATE     TO W-PROCESS-END-DATE.        DTSBR606
00580                                                                   DTSBR606
00581      PERFORM VARYING WS-PARM-ASSIGN-IDX FROM 1 BY 1               DTSBR606
00582              UNTIL   WS-PARM-ASSIGN-IDX > 5                       DTSBR606
00583              SET WS-SUB TO WS-PARM-ASSIGN-IDX                     DTSBR606
00584              MOVE WS-PARM-ASSIGN-TYPE (WS-PARM-ASSIGN-IDX)        DTSBR606
00585                   TO W-ASSIGN-TYPE(WS-SUB)                        DTSBR606
00586      END-PERFORM.                                                 DTSBR606
00587                                                                   DTSBR606
00588                                                                   DTSBR606
00589  P1200-EXIT.                                                      DTSBR606
00590      EXIT.                                                        DTSBR606
00591      EJECT                                                        DTSBR606
00592  P1210-INCR-DECR-NOCHG.                                           DTSBR606
00593                                                                   DTSBR606
00594      IF WS-SUB = 1                                                DTSBR606
00595         MOVE WS-NBR-ASSI (WS-SUB) TO W-AUDIT-INCR.                DTSBR606
00596      IF WS-SUB = 2                                                DTSBR606
00597         MOVE WS-NBR-ASSI (WS-SUB) TO W-AUDIT-DECR.                DTSBR606
00598      IF WS-SUB = 3                                                DTSBR606
00599         MOVE WS-NBR-ASSI (WS-SUB) TO W-AUDIT-NOCHG.               DTSBR606
00600                                                                   DTSBR606
00601 *    MOVE WS-NBR-ASSI (WS-SUB) TO WS-EDIT-5.                      DTSBR606
00602 *    PERFORM S143-EDIT-5 THRU S143-EXIT.                          DTSBR606
00603                                                                   DTSBR606
00604      IF WS-SUB = 1                                                DTSBR606
00605         MOVE WS-NBR-QTRS (WS-SUB) TO W-QTRS-INCR.                 DTSBR606
00606      IF WS-SUB = 2                                                DTSBR606
00607         MOVE WS-NBR-QTRS (WS-SUB) TO W-QTRS-DECR.                 DTSBR606
00608      IF WS-SUB = 3                                                DTSBR606
00609         MOVE WS-NBR-QTRS (WS-SUB) TO W-QTRS-NOCHG.                DTSBR606
00610                                                                   DTSBR606
00611 *    MOVE WS-NBR-QTRS (WS-SUB) TO WS-EDIT-5.                      DTSBR606
00612 *    PERFORM S143-EDIT-5 THRU S143-EXIT.                          DTSBR606
00613                                                                   DTSBR606
00614      IF WS-SUB = 1                                                DTSBR606
00615         MOVE WS-NBR-HRS (WS-SUB) TO W-HRS-INCR.                   DTSBR606
00616      IF WS-SUB = 2                                                DTSBR606
00617         MOVE WS-NBR-HRS (WS-SUB) TO W-HRS-DECR.                   DTSBR606
00618      IF WS-SUB = 3                                                DTSBR606
00619         MOVE WS-NBR-HRS (WS-SUB) TO W-HRS-NOCHG.                  DTSBR606
00620                                                                   DTSBR606
00621 *    MOVE WS-NBR-HRS (WS-SUB) TO WS-EDIT-HRS.                     DTSBR606
00622 *    PERFORM S143-EDIT-HRS THRU S143-EXIT.                        DTSBR606
00623                                                                   DTSBR606
00624      IF WS-NBR-ASSI (WS-SUB) = +0                                 DTSBR606
00625          MOVE 0 TO WS-EDIT-AVERAGE                                DTSBR606
00626      ELSE                                                         DTSBR606
00627          COMPUTE WS-EDIT-AVERAGE ROUNDED =                        DTSBR606
00628                  WS-NBR-DAYS (WS-SUB) / WS-NBR-ASSI (WS-SUB).     DTSBR606
00629      IF WS-SUB = 1                                                DTSBR606
00630          MOVE WS-EDIT-AVERAGE TO W-AVGDA-INCR.                    DTSBR606
00631      IF WS-SUB = 2                                                DTSBR606
00632          MOVE WS-EDIT-AVERAGE TO W-AVGDA-DECR.                    DTSBR606
00633      IF WS-SUB = 3                                                DTSBR606
00634          MOVE WS-EDIT-AVERAGE TO W-AVGDA-NOCHG.                   DTSBR606
00635                                                                   DTSBR606
00636 *    PERFORM S143-EDIT-AVERAGE THRU S143-EXIT.                    DTSBR606
00637                                                                   DTSBR606
00638      IF WS-SUB = 1                                                DTSBR606
00639         MOVE WS-TOT-GROSS (WS-SUB) TO W-PAYRL-INCR.               DTSBR606
00640      IF WS-SUB = 2                                                DTSBR606
00641         MOVE WS-TOT-GROSS (WS-SUB) TO W-PAYRL-DECR.               DTSBR606
00642      IF WS-SUB = 3                                                DTSBR606
00643         MOVE WS-TOT-GROSS (WS-SUB) TO W-PAYRL-NOCHG.              DTSBR606
00644                                                                   DTSBR606
00645 *    PERFORM S143-EDIT-AMT THRU S143-EXIT.                        DTSBR606
00646                                                                   DTSBR606
00647      IF WS-SUB = 1                                                DTSBR606
00648         MOVE WS-TOT-TOT-CHANGE (WS-SUB) TO W-WAGE-INCR.           DTSBR606
00649      IF WS-SUB = 2                                                DTSBR606
00650         MOVE WS-TOT-TOT-CHANGE (WS-SUB) TO W-WAGE-DECR.           DTSBR606
00651      IF WS-SUB = 3                                                DTSBR606
00652         MOVE WS-TOT-TOT-CHANGE (WS-SUB) TO W-WAGE-NOCHG.          DTSBR606
00653                                                                   DTSBR606
00654 *    MOVE WS-TOT-TOT-CHANGE (WS-SUB) TO WS-EDIT-AMT.              DTSBR606
00655 *    PERFORM S143-EDIT-AMT THRU S143-EXIT.                        DTSBR606
00656                                                                   DTSBR606
00657      IF WS-SUB = 1                                                DTSBR606
00658         MOVE WS-TOT-TAX-CHANGE (WS-SUB) TO W-TXWGE-INCR.          DTSBR606
00659      IF WS-SUB = 2                                                DTSBR606
00660         MOVE WS-TOT-TAX-CHANGE (WS-SUB) TO W-TXWGE-DECR.          DTSBR606
00661      IF WS-SUB = 3                                                DTSBR606
00662         MOVE WS-TOT-TAX-CHANGE (WS-SUB) TO W-TXWGE-NOCHG.         DTSBR606
00663                                                                   DTSBR606
00664 *    MOVE WS-TOT-TAX-CHANGE (WS-SUB) TO WS-EDIT-AMT.              DTSBR606
00665 *    PERFORM S143-EDIT-AMT THRU S143-EXIT.                        DTSBR606
00666                                                                   DTSBR606
00667      IF WS-SUB = 1                                                DTSBR606
00668         MOVE WS-TOT-CONTRIB-CHANGE (WS-SUB) TO W-CONTR-INCR.      DTSBR606
00669      IF WS-SUB = 2                                                DTSBR606
00670         MOVE WS-TOT-CONTRIB-CHANGE (WS-SUB) TO W-CONTR-DECR.      DTSBR606
00671      IF WS-SUB = 3                                                DTSBR606
00672         MOVE WS-TOT-CONTRIB-CHANGE (WS-SUB) TO W-CONTR-NOCHG.     DTSBR606
00673                                                                   DTSBR606
00674 *    MOVE WS-TOT-CONTRIB-CHANGE (WS-SUB) TO WS-EDIT-5.            DTSBR606
00675 *    PERFORM S143-EDIT-AMT THRU S143-EXIT.                        DTSBR606
00676                                                                   DTSBR606
00677      IF WS-SUB = 1                                                DTSBR606
00678         MOVE WS-NBR-NEW-EMP (WS-SUB) TO W-NEMPL-INCR.             DTSBR606
00679      IF WS-SUB = 2                                                DTSBR606
00680         MOVE WS-NBR-NEW-EMP (WS-SUB) TO W-NEMPL-DECR.             DTSBR606
00681      IF WS-SUB = 3                                                DTSBR606
00682         MOVE WS-NBR-NEW-EMP (WS-SUB) TO W-NEMPL-NOCHG.            DTSBR606
00683                                                                   DTSBR606
00684 *    MOVE WS-NBR-NEW-EMP (WS-SUB) TO WS-EDIT-5.                   DTSBR606
00685 *    PERFORM S143-EDIT-5 THRU S143-EXIT.                          DTSBR606
00686                                                                   DTSBR606
00687  P1210-EXIT.                                                      DTSBR606
00688      EXIT.                                                        DTSBR606
00689                                                                   DTSBR606
00690  P1250-R606.                                                      DTSBR606
00691       INITIALIZE      PRINT-REC.                                  DTSBR606
00692       MOVE SPACE TO WS-LINE-8 WS-LINE-2.                          DTSBR606
00693       ADD   1                            TO   WS-PAGE-COUNTER.    DTSBR606
00694       MOVE  WS-PAGE-COUNTER              TO   W-PAGE-CNTR.        DTSBR606
00695       WRITE PRINT-REC FROM WS-HEADER-1   AFTER TOP-OF-PAGE.       DTSBR606
00696       WRITE PRINT-REC FROM WS-HEADER-2   AFTER 1.                 DTSBR606
00697       WRITE PRINT-REC FROM WS-HEADER-3   AFTER 1.                 DTSBR606
00698       WRITE PRINT-REC FROM WS-LINE-1     AFTER 2.                 DTSBR606
00699       WRITE PRINT-REC FROM WS-LINE-2     AFTER 1.                 DTSBR606
00700       WRITE PRINT-REC FROM WS-LINE-3     AFTER 1.                 DTSBR606
00701       WRITE PRINT-REC FROM WS-LINE-4     AFTER 1.                 DTSBR606
00702       WRITE PRINT-REC FROM WS-LINE-5     AFTER 1.                 DTSBR606
00703       WRITE PRINT-REC FROM WS-LINE-6     AFTER 3.                 DTSBR606
00704       WRITE PRINT-REC FROM WS-LINE-7     AFTER 1.                 DTSBR606
00705       WRITE PRINT-REC FROM WS-LINE-8     AFTER 1.                 DTSBR606
00706       WRITE PRINT-REC FROM WS-LINE-9     AFTER 1.                 DTSBR606
00707       WRITE PRINT-REC FROM WS-BREAK-AREA AFTER 2.                 DTSBR606
00708       WRITE PRINT-REC FROM WS-DTL-HDR-1  AFTER 3.                 DTSBR606
00709       WRITE PRINT-REC FROM WS-LINE-10    AFTER 2.                 DTSBR606
00710       WRITE PRINT-REC FROM WS-LINE-11    AFTER 1.                 DTSBR606
00711       WRITE PRINT-REC FROM WS-LINE-12    AFTER 1.                 DTSBR606
00712       WRITE PRINT-REC FROM WS-LINE-13    AFTER 1.                 DTSBR606
00713       WRITE PRINT-REC FROM WS-DTL-HDR-2  AFTER 2.                 DTSBR606
00714       WRITE PRINT-REC FROM WS-LINE-14    AFTER 2.                 DTSBR606
00715       WRITE PRINT-REC FROM WS-LINE-15    AFTER 1.                 DTSBR606
00716       WRITE PRINT-REC FROM WS-LINE-16    AFTER 1.                 DTSBR606
00717       WRITE PRINT-REC FROM WS-LINE-17    AFTER 1.                 DTSBR606
00718       WRITE PRINT-REC FROM WS-LINE-18    AFTER 1.                 DTSBR606
00719  P1250-EXIT.                                                      DTSBR606
00720      EXIT.                                                        DTSBR606
00721      EJECT                                                        DTSBR606
00722  T1000-TERMINATE.                                                 DTSBR606
00723                                                                   DTSBR606
00724      IF WS-FIELD-REP-ID  NOT =  LOW-VALUE                         DTSBR606
00725          PERFORM P1200-WRITE THRU P1200-EXIT                      DTSBR606
00726          PERFORM P1250-R606  THRU P1250-EXIT.                     DTSBR606
00727      CLOSE PRINT-FILE.                                            DTSBR606
00728 *    SKIP3                                                        DTSBR606
00729 *    IF R991-UNIT-COUNT = +0                                      DTSBR606
00730 *        MOVE SPACES TO R991-DATASET-NAME.                        DTSBR606
00731 *    ELSE                                                         DTSBR606
00732 *        CALL 'GETSER' USING EXPORT-FILE                          DTSBR606
00733 *                            WS-GETSER-VOL-SER                    DTSBR606
00734 *                            WS-GETSER-DATASET-NAME               DTSBR606
00735 *                            WS-GETSER-VOLUME-COUNT               DTSBR606
00736 *                            WS-GETSER-DD-NAME                    DTSBR606
00737 *                            WS-GETSER-STEP-NAME                  DTSBR606
00738 *        MOVE WS-GETSER-DATASET-NAME TO R991-DATASET-NAME.        DTSBR606
00739 *    PERFORM R991-EXPORT-CONTROL-REPORT THRU R991-EXIT.           DTSBR606
00740 *    CLOSE EXPORT-FILE.                                           DTSBR606
00741                                                                   DTSBR606
00742  T1000-EXIT.                                                      DTSBR606
00743      EXIT.                                                        DTSBR606
00744      SKIP3                                                        DTSBR606
00745      SKIP3                                                        DTSBR606
00746 *R991-EXPORT-CONTROL-REPORT.                                      DTSBR606
00747 *                                                                 DTSBR606
00748 *    CALL 'DTSBR991' USING LRCM-LINK-AREA                         DTSBR606
00749 *                          R991-REC.                              DTSBR606
00750 *                                                                 DTSBR606
00751 *R991-EXIT.                                                       DTSBR606
00752 *    EXIT.                                                        DTSBR606
00753      EJECT                                                        DTSBR606
00754  S001-FROM-FED-8.                                                 DTSBR606
00755                                                                   DTSBR606
00756      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR606
00757                                                                   DTSBR606
00758      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR606
00759                                                                   DTSBR606
00760  S001-EXIT.                                                       DTSBR606
00761      EXIT.                                                        DTSBR606
00762      SKIP3                                                        DTSBR606
00763  S062-FLD-REP-NAME.                                               DTSBR606
00764                                                                   DTSBR606
00765      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR606
00766                                                                   DTSBR606
00767  S062-EXIT.                                                       DTSBR606
00768      EXIT.                                                        DTSBR606
00769      SKIP3                                                        DTSBR606
00770  S071-DESLASH-NAME.                                               DTSBR606
00771      SKIP1                                                        DTSBR606
00772      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR606
00773      SKIP2                                                        DTSBR606
00774  S071-EXIT.                                                       DTSBR606
00775      EXIT.                                                        DTSBR606
00776      EJECT                                                        DTSBR606
00777  S143-EDIT-AMT.                                                   DTSBR606
00778                                                                   DTSBR606
00779      MOVE +15 TO L143-FIELD-SIZE.                                 DTSBR606
00780      MOVE WS-EDIT-AMT TO L143-FIELD.                              DTSBR606
00781      GO TO S143-VARIABLE-RECORD-BUILD.                            DTSBR606
00782                                                                   DTSBR606
00783  S143-EDIT-AVERAGE.                                               DTSBR606
00784                                                                   DTSBR606
00785      MOVE +7 TO L143-FIELD-SIZE.                                  DTSBR606
00786      MOVE WS-EDIT-AVERAGE TO L143-FIELD.                          DTSBR606
00787      GO TO S143-VARIABLE-RECORD-BUILD.                            DTSBR606
00788                                                                   DTSBR606
00789  S143-EDIT-DATE.                                                  DTSBR606
00790                                                                   DTSBR606
00791      MOVE +6 TO L143-FIELD-SIZE.                                  DTSBR606
00792      IF WS-EDIT-DATE-SPECIAL                                      DTSBR606
00793          MOVE WS-EDIT-DATE TO L001-CAL-6-DATE-9                   DTSBR606
00794      ELSE                                                         DTSBR606
00795          MOVE WS-EDIT-DATE TO L001-FED-8-DATE-9                   DTSBR606
00796          PERFORM S001-FROM-FED-8 THRU S001-EXIT.                  DTSBR606
00797      MOVE L001-CAL-6-DATE-X TO L143-FIELD.                        DTSBR606
00798      GO TO S143-VARIABLE-RECORD-BUILD.                            DTSBR606
00799                                                                   DTSBR606
00800  S143-EDIT-FIELD-REP-NAME.                                        DTSBR606
00801                                                                   DTSBR606
00802      MOVE +32 TO L143-FIELD-SIZE.                                 DTSBR606
00803      PERFORM S062-FLD-REP-NAME THRU S062-EXIT.                    DTSBR606
00804      MOVE L062-NAME TO L143-FIELD.                                DTSBR606
00805      GO TO S143-VARIABLE-RECORD-BUILD.                            DTSBR606
00806                                                                   DTSBR606
00807  S143-EDIT-HRS.                                                   DTSBR606
00808                                                                   DTSBR606
00809      MOVE +7 TO L143-FIELD-SIZE.                                  DTSBR606
00810      MOVE WS-EDIT-HRS TO L143-FIELD.                              DTSBR606
00811      GO TO S143-VARIABLE-RECORD-BUILD.                            DTSBR606
00812                                                                   DTSBR606
00813  S143-EDIT-PERCENTAGE.                                            DTSBR606
00814                                                                   DTSBR606
00815      MOVE +6 TO L143-FIELD-SIZE.                                  DTSBR606
00816      MOVE WS-EDIT-PERCENTAGE TO L143-FIELD.                       DTSBR606
00817      GO TO S143-VARIABLE-RECORD-BUILD.                            DTSBR606
00818                                                                   DTSBR606
00819  S143-EDIT-2-X.                                                   DTSBR606
00820                                                                   DTSBR606
00821      MOVE +2 TO L143-FIELD-SIZE.                                  DTSBR606
00822      MOVE WS-EDIT-2-X TO L143-FIELD.                              DTSBR606
00823      GO TO S143-VARIABLE-RECORD-BUILD.                            DTSBR606
00824                                                                   DTSBR606
00825  S143-EDIT-5.                                                     DTSBR606
00826                                                                   DTSBR606
00827      MOVE +5 TO L143-FIELD-SIZE.                                  DTSBR606
00828      MOVE WS-EDIT-5 TO L143-FIELD.                                DTSBR606
00829      GO TO S143-VARIABLE-RECORD-BUILD.                            DTSBR606
00830      SKIP3                                                        DTSBR606
00831  S143-VARIABLE-RECORD-BUILD.                                      DTSBR606
00832                                                                   DTSBR606
00833      CALL 'DTSBU143' USING L143-LINK-AREA.                        DTSBR606
00834                                                                   DTSBR606
00835  S143-EXIT.                                                       DTSBR606
00836      EXIT.                                                        DTSBR606
00837      SKIP3                                                        DTSBR606
00838      SKIP3                                                        DTSBR606
00839  S999-ABEND.                                                      DTSBR606
00840                                                                   DTSBR606
00841      CALL 'DTSBU999' USING WS-ABEND-CD.                           DTSBR606
00842                                                                   DTSBR606
00843  S999-EXIT.                                                       DTSBR606
00844      EXIT.                                                        DTSBR606
