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