00001  IDENTIFICATION DIVISION.                                         02/07/12
00002  PROGRAM-ID.             DTSBR609.                                DTSBR609
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV012
00004  DATE-WRITTEN.           JANUARY 1995.                            DTSBR609
00005  DATE-COMPILED.                                                   DTSBR609
00006      SKIP3                                                        DTSBR609
00007 *****                                                             DTSBR609
00008 *                                                                 DTSBR609
00009 *   CALLING SEQUENCE:  DTSBD400 CALLS                             DTSBR609
00010 *                      DTSBE609 WHICH UPDATES DTSIR609            DTSBR609
00011 *                      DTSBR609 READS DTSIR609 RECORDS.           DTSBR609
00012 *                                                                 DTSBR609
00013 *    FUNCTION:  FIELD ASSIGNMENT MANAGEMENT REPORTS.              DTSBR609
00014 *                                                                 DTSBR609
00015 *                                                                 DTSBR609
00016 *    MODIFICATION HISTORY:                                        DTSBR609
00017 *                                                                 DTSBR609
00018 * 01-23-95 INITIAL DEVELOPMENT                                    DTSBR609
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RHC  DTSBR609
00020 *                                                                 DTSBR609
00021 * 11-25-98 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS.     DTSBR609
00022 *          REFERENCE RFP #****            AUTHOR OF CHANGE - DVS  DTSBR609
00023 *                                                                 DTSBR609
00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR609
00025 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR609
00026 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR609
00027 *                                                                 DTSBR609
00028 *                                                                 DTSBR609
00029 *    DESCRIPTION:                                                 DTSBR609
00030 *                                                                 DTSBR609
00031 *        THIS MODULE PRODUCES THE FIELD ASSIGNMENT MANAGEMENT     DTSBR609
00032 *        REPORTS (DETAIL REPORT OPTIONAL, SUMMARY ALWAYS).        DTSBR609
00033 *                                                                 DTSBR609
00034 *                                                                 DTSBR609
00035 *    RECORDS READ:                                                DTSBR609
00036 *                                                                 DTSBR609
00037 *        NONE.                                                    DTSBR609
00038 *                                                                 DTSBR609
00039 *                                                                 DTSBR609
00040 *    PRINTED OUTPUTS:                                             DTSBR609
00041 *                                                                 DTSBR609
00042 *        609R1  FIELD ASSIGNMENT MANAGEMENT - DETAIL REPORT.      DTSBR609
00043 *        609R2  FIELD ASSIGNMENT MANAGEMENT - SUMMARY.            DTSBR609
00044 *                                                                 DTSBR609
00045 *                                                                 DTSBR609
00046 *    RECORDS WRITTEN:                                             DTSBR609
00047 *                                                                 DTSBR609
00048 *        NONE.                                                    DTSBR609
00049 *                                                                 DTSBR609
00050 *                                                                 DTSBR609
00051 *    MODULES CALLED:                                              DTSBR609
00052 *                                                                 DTSBR609
00053 *        DTSBU001  DATE CONVERT.                                  DTSBR609
00054 *        DTSBU062  FIELD REP LOOKUP.                              DTSBR609
00055 *        DTSBU063  ASSIGNMENT LOOKUP.                             DTSBR609
00056 *                                                                 DTSBR609
00057 *                                                                 DTSBR609
00058 *****                                                             DTSBR609
00059      EJECT                                                        DTSBR609
00060  ENVIRONMENT DIVISION.                                            DTSBR609
00061                                                                   DTSBR609
00062  CONFIGURATION SECTION.                                           DTSBR609
00063  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR609
00064                                                                   DTSBR609
00065  INPUT-OUTPUT SECTION.                                            DTSBR609
00066  FILE-CONTROL.                                                    DTSBR609
00067      SELECT PRT-FILE-1 ASSIGN TO RPT609R1.                        DTSBR609
00068      SELECT PRT-FILE-2 ASSIGN TO RPT609R2.                        DTSBR609
00069                                                                   DTSBR609
00070  DATA DIVISION.                                                   DTSBR609
00071  FILE SECTION.                                                    DTSBR609
00072                                                                   DTSBR609
00073  FD  PRT-FILE-1                                                   DTSBR609
00074      RECORDING MODE IS F.                                         DTSBR609
00075  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR609
00076                                                                   DTSBR609
00077  FD  PRT-FILE-2                                                   DTSBR609
00078      RECORDING MODE IS F.                                         DTSBR609
00079  01  REPORT-LISTING2                 PIC  X(133).                 DTSBR609
00080                                                                   DTSBR609
00081      EJECT                                                        DTSBR609
00082  WORKING-STORAGE SECTION.                                         DTSBR609
000825 77  PAN-VALET PICTURE X(24) VALUE '012DTSBR609  02/07/12'.       DTSBR609
00083                                                                   DTSBR609
00084  01  WRK-AREA.                                                    DTSBR609
00085      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +609.DTSBR609
00086      05  FIRST-TIME-IND              PIC  X(01)        VALUE 'Y'. DTSBR609
00087                                                                   DTSBR609
00088      05  WS-BLANK-PAGE               PIC  X(133) VALUE SPACES.    DTSBR609
00089      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR609
00090      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR609
00091      05  WS-LINE-CNT3                PIC S9(02) COMP-3 VALUE 60.  DTSBR609
00092      05  WS-LINE-CNT4                PIC S9(02) COMP-3 VALUE +0.  DTSBR609
00093      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR609
00094      05  WS-PAGE-CNT2                PIC S9(03) COMP-3 VALUE +0.  DTSBR609
00095      05  WS-FOOT-NUMBER-ONE          PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00096      05  WS-FOOT-NUMBER-TWO          PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00097      05  WS-RPT-ACTIVE-CNT           PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00098      05  WS-RPT-BACKLOGGED-CNT       PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00099      05  WS-RPT-HELD-CNT             PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00100      05  WS-RPT-COMPLETED-CNT        PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00101                                                                   DTSBR609
00102      05  WS-CTF-RECORD-CNT           PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00103      05  WS-RPT2-ACTIVE-CNT          PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00104      05  WS-RPT2-BACKLOGGED-CNT      PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00105      05  WS-RPT2-HELD-CNT            PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00106      05  WS-RPT2-COMPLETED-CNT       PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00107      05  WS-CFF-ACTIVE-CNT           PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00108      05  WS-CFF-BACKLOGGED-CNT       PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00109      05  WS-CFF-HELD-CNT             PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00110      05  WS-CFF-COMPLETED-CNT        PIC S9(05) COMP-3 VALUE +0.  DTSBR609
00111                                                                   DTSBR609
00112      05  WRK-PAGE-TRUNCATE           PIC  9(01).                  DTSBR609
00113          88  WRK-ODD-PAGE-88             VALUE 1 3 5 7 9.         DTSBR609
00114                                                                   DTSBR609
00115      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +0. DTSBR609
00116      05  WS-NUMBER-TWO               PIC S9(03)  COMP-3 VALUE +0. DTSBR609
00117      05  WS-OP-ID-HOLD               PIC  X(08)  VALUE SPACE.     DTSBR609
00118      05  WS-OP-ID-NAME-PREV          PIC  X(32)  VALUE SPACE.     DTSBR609
00119      05  WS-FLD-REP-ID-HOLD          PIC  X(02).                  DTSBR609
00120      05  WS-FLD-REP-ID-PREV          PIC  X(02).                  DTSBR609
00121      05  WS-YRQ-UNPACK               PIC  9(05).                  DTSBR609
00122      05  WS-YRQ                      PIC  X(04).                  DTSBR609
00123      05  WS-YRQ-EDIT REDEFINES WS-YRQ                             DTSBR609
00124                                      PIC  99/9.                   DTSBR609
00125      05  WRK-DATE-RANGE.                                          DTSBR609
00126          10  WRK-START-DATE          PIC  X(08)  VALUE SPACE.     DTSBR609
00127          10  FILLER                  PIC  X(04)  VALUE ' TO '.    DTSBR609
00128          10  WRK-END-DATE            PIC  X(08)  VALUE SPACE.     DTSBR609
00129                                                                   DTSBR609
00130      05  WRK-FLD-REP-ID-NAME.                                     DTSBR609
00131          10  WRK-FLD-REP-ID          PIC  X(02)  VALUE SPACE.     DTSBR609
00132          10  WRK-FLD-REP-NAME        PIC  X(32)  VALUE SPACE.     DTSBR609
00133          10  WRK-FLD-REP-NAME-SAVE   PIC  X(32)  VALUE SPACE.     DTSBR609
00134                                                                   DTSBR609
00135      05  WRK-STATUS-SAVE             PIC  X(10)  VALUE SPACE.     DTSBR609
00136      05  WRK-STATUS                  PIC  X(10)  VALUE SPACE.     DTSBR609
00137      05  WRK-STATUS-IND              PIC  X(01)  VALUE SPACE.     DTSBR609
00138      05  WRK-STATUS-TBL.                                          DTSBR609
00139          10  FILLER   PIC  X(10)   VALUE 'ACTIVE    '.            DTSBR609
00140          10  FILLER   PIC  X(10)   VALUE 'BACKLOGGED'.            DTSBR609
00141          10  FILLER   PIC  X(10)   VALUE 'HELD      '.            DTSBR609
00142          10  FILLER   PIC  X(10)   VALUE 'COMPLETED '.            DTSBR609
00143      05  FILLER   REDEFINES   WRK-STATUS-TBL.                     DTSBR609
00144          10  WRK-STATUS-DSCR   OCCURS 4 TIMES   PIC X(10).        DTSBR609
00145                                                                   DTSBR609
00146      05  WRK-ASSIGN-INFO.                                         DTSBR609
00147          10  WRK-TYPE                PIC  X(02)  VALUE SPACE.     DTSBR609
00148          10  FILLER                  PIC  X(03)  VALUE SPACE.     DTSBR609
00149          10  WRK-TYPE-DSCR           PIC  X(40)  VALUE SPACE.     DTSBR609
00150          10  FILLER                  PIC  X(04)  VALUE SPACE.     DTSBR609
00151          10  WRK-DFLT-DUE-DAYS       PIC  ZZ9.                    DTSBR609
00152      EJECT                                                        DTSBR609
00153  01  L001-LINK-AREA.                                              DTSBR609
00154  ++INCLUDE DTSIL001                                               DTSBR609
00155      EJECT                                                        DTSBR609
00156  01  L062-LINK-AREA.                                              DTSBR609
00157  ++INCLUDE DTSIL062                                               DTSBR609
00158      EJECT                                                        DTSBR609
00159  01  L063-LINK-AREA.                                              DTSBR609
00160  ++INCLUDE DTSIL063                                               DTSBR609
00161      EJECT                                                        DTSBR609
00162  01  PAGE-HEADING1.                                               DTSBR609
00163      05  HDR1-LINE-1.                                             DTSBR609
00164          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00165          10  FILLER                      PIC  X(05)               DTSBR609
00166                 VALUE '609R1'.                                    DTSBR609
00167          10  FILLER                      PIC  X(33)  VALUE SPACES.DTSBR609
00168          10  HDR1-AGY-NAME-LINE1         PIC  X(50).              DTSBR609
00169          10  FILLER                      PIC  X(29)  VALUE SPACES.DTSBR609
00170          10  FILLER                      PIC  X(05)               DTSBR609
00171                 VALUE 'DATE:'.                                    DTSBR609
00172          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00173          10  HDR1-SYS-DATE               PIC  X(08).              DTSBR609
00174      05  HDR1-LINE-2.                                             DTSBR609
00175          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00176          10  FILLER                      PIC  X(27)               DTSBR609
00177                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR609
00178          10  FILLER                      PIC  X(11)  VALUE SPACES.DTSBR609
00179          10  HDR1-AGY-NAME-LINE2         PIC  X(50).              DTSBR609
00180          10  FILLER                      PIC  X(29)  VALUE SPACES.DTSBR609
00181          10  FILLER                      PIC  X(05)               DTSBR609
00182                 VALUE 'TIME:'.                                    DTSBR609
00183          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00184          10  HDR1-SYS-TIME               PIC  X(08).              DTSBR609
00185      05  HDR1-LINE-3.                                             DTSBR609
00186          10  FILLER                      PIC  X(11)  VALUE SPACES.DTSBR609
00187          10  FILLER                      PIC  X(20)               DTSBR609
00188                 VALUE '                    '.                     DTSBR609
00189          10  FILLER                      PIC  X(87)  VALUE SPACES.DTSBR609
00190          10  FILLER                      PIC  X(05)               DTSBR609
00191                 VALUE 'PAGE:'.                                    DTSBR609
00192          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR609
00193          10  HDR1-PAGE-CNT               PIC  ZZ,ZZ9.             DTSBR609
00194      05  HDR1-LINE-4.                                             DTSBR609
00195          10  FILLER                      PIC  X(44)  VALUE SPACES.DTSBR609
00196          10  FILLER                      PIC  X(41)               DTSBR609
00197                 VALUE 'FIELD ASSIGNMENT MANAGEMENT DETAIL REPORT'.DTSBR609
00198      05  HDR1-LINE-5                     PIC  X(133) VALUE SPACES.DTSBR609
00199      05  HDR1-LINE-6.                                             DTSBR609
00200          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00201          10  FILLER                      PIC  X(40)               DTSBR609
00202                 VALUE 'ACTIVE, BACKLOGGED, AND HELD ASSIGNMENTS'. DTSBR609
00203          10  FILLER                      PIC  X(40)               DTSBR609
00204                 VALUE ' AS OF RUN DATE; COMPLETED ASSIGNMENTS W'. DTSBR609
00205          10  FILLER                      PIC  X(24)               DTSBR609
00206                 VALUE 'ITH COMPLETED DATES FROM'.                 DTSBR609
00207          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00208          10  HDR1-DATE-RANGE             PIC  X(20).              DTSBR609
00209      05  HDR1-LINE-7                     PIC  X(133) VALUE SPACES.DTSBR609
00210      05  HDR1-LINE-8.                                             DTSBR609
00211          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00212          10  FILLER                      PIC  X(13)               DTSBR609
00213                 VALUE 'FIELD REP ID:'.                            DTSBR609
00214          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00215          10  HDR1-FLD-REP-ID             PIC  X(02).              DTSBR609
00216          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR609
00217          10  HDR1-FLD-REP-NAME           PIC  X(32).              DTSBR609
00218      05  HDR1-LINE-9                     PIC  X(133) VALUE SPACES.DTSBR609
00219      05  HDR1-LINE-10.                                            DTSBR609
00220          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR609
00221          10  FILLER                      PIC  X(07)               DTSBR609
00222                 VALUE 'STATUS:'.                                  DTSBR609
00223          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00224          10  HDR1-STATUS                 PIC  X(10).              DTSBR609
00225      05  HDR1-LINE-11.                                            DTSBR609
00226          10  FILLER                      PIC  X(121) VALUE SPACES.DTSBR609
00227          10  FILLER                      PIC  X(04)               DTSBR609
00228                 VALUE 'DAYS'.                                     DTSBR609
00229      05  HDR1-LINE-12.                                            DTSBR609
00230          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00231          10  FILLER                      PIC  X(40)               DTSBR609
00232                 VALUE '------------------ASSIGNMENT------------'. DTSBR609
00233          10  FILLER                      PIC  X(06)               DTSBR609
00234                 VALUE '------'.                                   DTSBR609
00235          10  FILLER                      PIC  X(07)               DTSBR609
00236                 VALUE 'DEFAULT'.                                  DTSBR609
00237          10  FILLER                      PIC  X(03)  VALUE SPACE. DTSBR609
00238          10  FILLER                      PIC  X(06)               DTSBR609
00239                 VALUE 'ASSIGN'.                                   DTSBR609
00240          10  FILLER                      PIC  X(58)  VALUE SPACE. DTSBR609
00241          10  FILLER                      PIC  X(04)               DTSBR609
00242                 VALUE 'BACK'.                                     DTSBR609
00243          10  FILLER                      PIC  X(03)  VALUE SPACE. DTSBR609
00244          10  FILLER                      PIC  X(04)               DTSBR609
00245                 VALUE 'PROC'.                                     DTSBR609
00246      05  HDR1-LINE-13.                                            DTSBR609
00247          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00248          10  FILLER                      PIC  X(04)               DTSBR609
00249                 VALUE 'TYPE'.                                     DTSBR609
00250          10  FILLER                      PIC  X(13)  VALUE SPACES.DTSBR609
00251          10  FILLER                      PIC  X(11)               DTSBR609
00252                 VALUE 'DESCRIPTION'.                              DTSBR609
00253          10  FILLER                      PIC  X(20)  VALUE SPACES.DTSBR609
00254          10  FILLER                      PIC  X(04)               DTSBR609
00255                 VALUE 'DAYS'.                                     DTSBR609
00256          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR609
00257          10  FILLER                      PIC  X(02)               DTSBR609
00258                 VALUE 'NO'.                                       DTSBR609
00259          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR609
00260          10  FILLER                      PIC  X(06)               DTSBR609
00261                 VALUE 'EMP NO'.                                   DTSBR609
00262          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR609
00263          10  FILLER                      PIC  X(13)               DTSBR609
00264                 VALUE 'PRIMARY NAME'.                             DTSBR609
00265          10  FILLER                      PIC  X(27)  VALUE SPACES.DTSBR609
00266          10  FILLER                      PIC  X(03)               DTSBR609
00267                 VALUE 'LOG'.                                      DTSBR609
00268          10  FILLER                      PIC  X(04)  VALUE SPACES.DTSBR609
00269          10  FILLER                      PIC  X(03)               DTSBR609
00270                 VALUE 'IND'.                                      DTSBR609
00271      05  HDR1-LINE-14                    PIC  X(133) VALUE SPACES.DTSBR609
00272                                                                   DTSBR609
00273  01  DETAIL-LINE-1.                                               DTSBR609
00274      05  DTL1-LINE-1.                                             DTSBR609
00275          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00276          10  DTL1-ASSIGN-INFO            PIC  X(52).              DTSBR609
00277          10  FILLER                      PIC  X(04)  VALUE SPACES.DTSBR609
00278          10  DTL1-ASSIGN-NO              PIC  99B99999.           DTSBR609
00279          10  FILLER                      PIC  X(04)  VALUE SPACES.DTSBR609
00280          10  DTL1-EMP-NO                 PIC  999B999.            DTSBR609
00281          10  FILLER                      PIC  X(04)  VALUE SPACES.DTSBR609
00282          10  DTL1-PRIMARY-NAME           PIC  X(40).              DTSBR609
00283          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR609
00284          10  DTL1-BACK-LOGGED-DAYS       PIC  ZZ9.                DTSBR609
00285          10  DTL1-BACK-LOGGED-DAYS-X REDEFINES                    DTSBR609
00286                   DTL1-BACK-LOGGED-DAYS  PIC XXX.                 DTSBR609
00287          10  FILLER                      PIC  X(04)  VALUE SPACES.DTSBR609
00288          10  DTL1-PROCESSED-IND          PIC  X(01).              DTSBR609
00289                                                                   DTSBR609
00290  01  CONTROL-FOOTING1.                                            DTSBR609
00291      05  CTF1-LINE-3.                                             DTSBR609
00292          10  FILLER                      PIC  X(10)  VALUE SPACES.DTSBR609
00293          10  CTF1-REC-CNT                PIC  ZZ,ZZ9.             DTSBR609
00294          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00295          10  CTF1-STATUS                 PIC  X(10).              DTSBR609
00296          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00297          10  FILLER                      PIC  X(25)               DTSBR609
00298                 VALUE 'ASSIGNMENTS FOR FIELD REP'.                DTSBR609
00299          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00300          10  CTF1-FLD-REP-ID             PIC  X(02).              DTSBR609
00301                                                                   DTSBR609
00302  01  CONTROL-FOOTING2.                                            DTSBR609
00303      05  CTF2-LINE-2.                                             DTSBR609
00304          10  FILLER                      PIC  X(10)  VALUE SPACES.DTSBR609
00305          10  CTF2-REC-CNT                PIC  ZZ,ZZ9.             DTSBR609
00306          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00307          10  FILLER                      PIC  X(05)               DTSBR609
00308                 VALUE 'TOTAL'.                                    DTSBR609
00309          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR609
00310          10  FILLER                      PIC  X(25)               DTSBR609
00311                 VALUE 'ASSIGNMENTS FOR FIELD REP'.                DTSBR609
00312          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00313          10  CTF2-FLD-REP-ID             PIC  X(02).              DTSBR609
00314                                                                   DTSBR609
00315  01  PAGE-HEADING2.                                               DTSBR609
00316      05  HDR2-LINE-1.                                             DTSBR609
00317          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00318          10  FILLER                      PIC  X(05)               DTSBR609
00319                 VALUE '609R2'.                                    DTSBR609
00320          10  FILLER                      PIC  X(33)  VALUE SPACES.DTSBR609
00321          10  HDR2-AGY-NAME-LINE1         PIC  X(50).              DTSBR609
00322          10  FILLER                      PIC  X(29)  VALUE SPACES.DTSBR609
00323          10  FILLER                      PIC  X(05)               DTSBR609
00324                 VALUE 'DATE:'.                                    DTSBR609
00325          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00326          10  HDR2-SYS-DATE               PIC  X(08).              DTSBR609
00327      05  HDR2-LINE-2.                                             DTSBR609
00328          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00329          10  FILLER                      PIC  X(27)               DTSBR609
00330                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR609
00331          10  FILLER                      PIC  X(11)  VALUE SPACES.DTSBR609
00332          10  HDR2-AGY-NAME-LINE2         PIC  X(50).              DTSBR609
00333          10  FILLER                      PIC  X(29)  VALUE SPACES.DTSBR609
00334          10  FILLER                      PIC  X(05)               DTSBR609
00335                 VALUE 'TIME:'.                                    DTSBR609
00336          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00337          10  HDR2-SYS-TIME               PIC  X(08).              DTSBR609
00338      05  HDR2-LINE-3.                                             DTSBR609
00339          10  FILLER                      PIC  X(11)  VALUE SPACES.DTSBR609
00340          10  FILLER                      PIC  X(20)               DTSBR609
00341                 VALUE '                    '.                     DTSBR609
00342          10  FILLER                      PIC  X(87)  VALUE SPACES.DTSBR609
00343          10  FILLER                      PIC  X(05)               DTSBR609
00344                 VALUE 'PAGE:'.                                    DTSBR609
00345          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR609
00346          10  HDR2-PAGE-CNT               PIC  ZZ,ZZ9.             DTSBR609
00347      05  HDR2-LINE-4.                                             DTSBR609
00348          10  FILLER                      PIC  X(47)  VALUE SPACES.DTSBR609
00349          10  FILLER                      PIC  X(35)               DTSBR609
00350                 VALUE 'FIELD ASSIGNMENT MANAGEMENT SUMMARY'.      DTSBR609
00351      05  HDR2-LINE-5                     PIC  X(133) VALUE SPACES.DTSBR609
00352      05  HDR2-LINE-6.                                             DTSBR609
00353          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00354          10  FILLER                      PIC  X(40)               DTSBR609
00355                 VALUE 'ACTIVE, BACKLOGGED, AND HELD ASSIGNMENTS'. DTSBR609
00356          10  FILLER                      PIC  X(40)               DTSBR609
00357                 VALUE ' AS OF RUN DATE; COMPLETED ASSIGNMENTS W'. DTSBR609
00358          10  FILLER                      PIC  X(24)               DTSBR609
00359                 VALUE 'ITH COMPLETED DATES FROM'.                 DTSBR609
00360          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00361          10  HDR2-DATE-RANGE             PIC  X(20).              DTSBR609
00362      05  HDR2-LINE-7                     PIC  X(133) VALUE SPACES.DTSBR609
00363      05  HDR2-LINE-8                     PIC  X(133) VALUE SPACES.DTSBR609
00364      05  HDR2-LINE-9.                                             DTSBR609
00365          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00366          10  FILLER                      PIC  X(05)               DTSBR609
00367                 VALUE 'FIELD'.                                    DTSBR609
00368          10  FILLER                      PIC  X(41)  VALUE SPACES.DTSBR609
00369          10  FILLER                      PIC  X(40)               DTSBR609
00370                 VALUE '--------------------STATUS--------------'. DTSBR609
00371          10  FILLER                      PIC  X(05)               DTSBR609
00372                 VALUE '-----'.                                    DTSBR609
00373          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR609
00374          10  FILLER                      PIC  X(05)               DTSBR609
00375                 VALUE 'TOTAL'.                                    DTSBR609
00376      05  HDR2-LINE-10.                                            DTSBR609
00377          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR609
00378          10  FILLER                      PIC  X(03)               DTSBR609
00379                 VALUE 'REP'.                                      DTSBR609
00380          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR609
00381          10  FILLER                      PIC  X(04)               DTSBR609
00382                 VALUE 'NAME'.                                     DTSBR609
00383          10  FILLER                      PIC  X(33)  VALUE SPACES.DTSBR609
00384          10  FILLER                      PIC  X(06)               DTSBR609
00385                 VALUE 'ACTIVE'.                                   DTSBR609
00386          10  FILLER                      PIC  X(04)  VALUE SPACES.DTSBR609
00387          10  FILLER                      PIC  X(10)               DTSBR609
00388                 VALUE 'BACKLOGGED'.                               DTSBR609
00389          10  FILLER                      PIC  X(08)  VALUE SPACES.DTSBR609
00390          10  FILLER                      PIC  X(04)               DTSBR609
00391                 VALUE 'HELD'.                                     DTSBR609
00392          10  FILLER                      PIC  X(04)  VALUE SPACES.DTSBR609
00393          10  FILLER                      PIC  X(09)               DTSBR609
00394                 VALUE 'COMPLETED'.                                DTSBR609
00395                                                                   DTSBR609
00396  01  CONTROL-FOOTING3.                                            DTSBR609
00397      05  CTF3-LINE-2.                                             DTSBR609
00398          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR609
00399          10  CTF3-FLD-REP-ID             PIC  X(02).              DTSBR609
00400          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR609
00401          10  CTF3-FLD-REP-NAME           PIC  X(32).              DTSBR609
00402          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR609
00403          10  CTF3-RPT-ACTIVE-CNT         PIC  ZZ,ZZ9.             DTSBR609
00404          10  FILLER                      PIC  X(08)  VALUE SPACES.DTSBR609
00405          10  CTF3-RPT-BACKLOGGED-CNT     PIC  ZZ,ZZ9.             DTSBR609
00406          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR609
00407          10  CTF3-RPT-HELD-CNT           PIC  ZZ,ZZ9.             DTSBR609
00408          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR609
00409          10  CTF3-RPT-COMPLETED-CNT      PIC  ZZ,ZZ9.             DTSBR609
00410          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR609
00411          10  CTF3-TOT-REC-CNT            PIC  ZZ,ZZ9.             DTSBR609
00412                                                                   DTSBR609
00413  01  CONTROL-FOOTING-FINAL.                                       DTSBR609
00414      05  CFF-LINE-2.                                              DTSBR609
00415          10  FILLER                      PIC  X(37)  VALUE SPACES.DTSBR609
00416          10  FILLER                      PIC  X(05)               DTSBR609
00417                 VALUE 'TOTAL'.                                    DTSBR609
00418          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR609
00419          10  CFF-RPT-ACTIVE-CNT          PIC  ZZ,ZZ9.             DTSBR609
00420          10  FILLER                      PIC  X(08)  VALUE SPACES.DTSBR609
00421          10  CFF-RPT-BACKLOGGED-CNT      PIC  ZZ,ZZ9.             DTSBR609
00422          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR609
00423          10  CFF-RPT-HELD-CNT            PIC  ZZ,ZZ9.             DTSBR609
00424          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR609
00425          10  CFF-RPT-COMPLETED-CNT       PIC  ZZ,ZZ9.             DTSBR609
00426          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR609
00427          10  CFF-FOOT-NUMBER-TWO         PIC  ZZ,ZZ9.             DTSBR609
00428      EJECT                                                        DTSBR609
00429  LINKAGE SECTION.                                                 DTSBR609
00430      SKIP3                                                        DTSBR609
00431  01  LRCM-LINK-AREA.                                              DTSBR609
00432  ++INCLUDE DTSILRCM                                               DTSBR609
00433      EJECT                                                        DTSBR609
00434  01  R609-REC.                                                    DTSBR609
00435  ++INCLUDE DTSIR609                                               DTSBR609
00436      EJECT                                                        DTSBR609
00437  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR609
00438                           R609-REC.                               DTSBR609
00439                                                                   DTSBR609
00440      IF FIRST-TIME-IND = 'Y'                                      DTSBR609
00441          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR609
00442          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR609
00443                                                                   DTSBR609
00444      IF LRCM-EOR-88                                               DTSBR609
00445          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR609
00446      ELSE                                                         DTSBR609
00447          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR609
00448                                                                   DTSBR609
00449      GOBACK.                                                      DTSBR609
00450      EJECT                                                        DTSBR609
00451  I1000-INITIATE.                                                  DTSBR609
00452                                                                   DTSBR609
00453      MOVE R609-PERIOD-START-DATE TO L001-FED-8-DATE-9.            DTSBR609
00454      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR609
00455      MOVE L001-SLASH-DATE TO WRK-START-DATE.                      DTSBR609
00456                                                                   DTSBR609
00457      MOVE R609-PERIOD-END-DATE TO L001-FED-8-DATE-9.              DTSBR609
00458      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR609
00459      MOVE L001-SLASH-DATE TO WRK-END-DATE.                        DTSBR609
00460      MOVE WRK-DATE-RANGE TO HDR1-DATE-RANGE HDR2-DATE-RANGE.      DTSBR609
00461                                                                   DTSBR609
00462      MOVE HIGH-VALUE TO WRK-FLD-REP-ID                            DTSBR609
00463                         WRK-STATUS-IND                            DTSBR609
00464                         WRK-TYPE.                                 DTSBR609
00465                                                                   DTSBR609
00466      OPEN OUTPUT PRT-FILE-1                                       DTSBR609
00467                  PRT-FILE-2.                                      DTSBR609
00468                                                                   DTSBR609
00469      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR609
00470      MOVE LRCM-SYS-DATE TO HDR2-SYS-DATE.                         DTSBR609
00471      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR609
00472      MOVE LRCM-SYS-TIME TO HDR2-SYS-TIME.                         DTSBR609
00473      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR609
00474      MOVE LRCM-AGY-NAME-LINE1 TO HDR2-AGY-NAME-LINE1.             DTSBR609
00475      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR609
00476      MOVE LRCM-AGY-NAME-LINE2 TO HDR2-AGY-NAME-LINE2.             DTSBR609
00477      MOVE SPACES TO REPORT-LISTING1 REPORT-LISTING2.              DTSBR609
00478                                                                   DTSBR609
00479  I1000-EXIT.                                                      DTSBR609
00480      EXIT.                                                        DTSBR609
00481      EJECT                                                        DTSBR609
00482  P1000-PROCESS.                                                   DTSBR609
00483                                                                   DTSBR609
00484      IF R609-FIELD-REP-ID  NOT =  WRK-FLD-REP-ID                  DTSBR609
00485          MOVE R609-FIELD-REP-ID TO WRK-FLD-REP-ID                 DTSBR609
00486                                    HDR1-FLD-REP-ID                DTSBR609
00487                                    L062-FLD-REP-ID                DTSBR609
00488          PERFORM S062-FLD-REP THRU S062-EXIT                      DTSBR609
00489          MOVE L062-NAME TO WRK-FLD-REP-NAME                       DTSBR609
00490                            HDR1-FLD-REP-NAME                      DTSBR609
00491                            CTF3-FLD-REP-NAME                      DTSBR609
00492 *                                                                 DTSBR609
00493          IF WS-NUMBER-TWO = +0                                    DTSBR609
00494             MOVE +99 TO WS-NUMBER-TWO                             DTSBR609
00495          ELSE                                                     DTSBR609
00496             PERFORM  P6000-PRINT-FOOTER THRU P6000-EXIT           DTSBR609
00497             MOVE +60 TO WS-LINE-CNT2                              DTSBR609
00498             MOVE +0  TO WS-NUMBER-ONE                             DTSBR609
00499             PERFORM  P7000-PRINT-FOOTER THRU P7000-EXIT           DTSBR609
00500 *           MOVE +60 TO WS-LINE-CNT4                              DTSBR609
00501          END-IF                                                   DTSBR609
00502      END-IF.                                                      DTSBR609
00503                                                                   DTSBR609
00504      IF R609-STATUS-IND  NOT =  WRK-STATUS-IND                    DTSBR609
00505          MOVE R609-STATUS-IND TO WRK-STATUS-IND                   DTSBR609
00506          MOVE WRK-STATUS-DSCR (R609-STATUS-IND-9) TO WRK-STATUS   DTSBR609
00507                 HDR1-STATUS                                       DTSBR609
00508 *                                                                 DTSBR609
00509          IF WS-NUMBER-ONE = +0                                    DTSBR609
00510             MOVE +99 TO WS-NUMBER-ONE                             DTSBR609
00511          ELSE                                                     DTSBR609
00512             PERFORM  P5000-PRINT-FOOTER THRU P5000-EXIT           DTSBR609
00513             MOVE +60 TO WS-LINE-CNT2                              DTSBR609
00514          END-IF                                                   DTSBR609
00515      END-IF.                                                      DTSBR609
00516 *                                                                 DTSBR609
00517                                                                   DTSBR609
00518      IF R609-ASSIGN-TYPE  NOT =  WRK-TYPE                         DTSBR609
00519          MOVE R609-ASSIGN-TYPE TO WRK-TYPE                        DTSBR609
00520                                   L063-TYPE                       DTSBR609
00521          PERFORM S063-ASSIGN-INFO THRU S063-EXIT                  DTSBR609
00522          MOVE L063-DESCRIPTION      TO WRK-TYPE-DSCR              DTSBR609
00523          MOVE L063-DEFAULT-DUE-DAYS TO WRK-DFLT-DUE-DAYS          DTSBR609
00524          MOVE WRK-ASSIGN-INFO       TO DTL1-ASSIGN-INFO.          DTSBR609
00525                                                                   DTSBR609
00526      MOVE R609-FIELD-REP-ID TO CTF1-FLD-REP-ID                    DTSBR609
00527                                CTF2-FLD-REP-ID                    DTSBR609
00528                                CTF3-FLD-REP-ID.                   DTSBR609
00529                                                                   DTSBR609
00530      IF R609-PRINT-DETAIL-TOO-88                                  DTSBR609
00531          IF R609-STATUS-BACK-LOGGED-88                            DTSBR609
00532             MOVE R609-BACK-LOGGED-DAYS TO DTL1-BACK-LOGGED-DAYS   DTSBR609
00533          END-IF                                                   DTSBR609
00534                                                                   DTSBR609
00535          MOVE R609-EMP-NO           TO DTL1-EMP-NO                DTSBR609
00536          MOVE R609-ASSIGN-NO        TO DTL1-ASSIGN-NO             DTSBR609
00537          MOVE R609-PRIMARY-NAME     TO DTL1-PRIMARY-NAME          DTSBR609
00538                                                                   DTSBR609
00539          PERFORM P3000-PRINT-HEADER THRU P3000-EXIT               DTSBR609
00540                                                                   DTSBR609
00541          IF DTL1-ASSIGN-INFO = SPACES                             DTSBR609
00542              WRITE REPORT-LISTING1 FROM DTL1-LINE-1 AFTER 1       DTSBR609
00543              ADD +1    TO WS-LINE-CNT2                            DTSBR609
00544          ELSE                                                     DTSBR609
00545              WRITE REPORT-LISTING1 FROM DTL1-LINE-1 AFTER 2       DTSBR609
00546              ADD +2    TO WS-LINE-CNT2                            DTSBR609
00547          END-IF                                                   DTSBR609
00548                                                                   DTSBR609
00549          ADD +1  TO WS-FOOT-NUMBER-TWO, WS-FOOT-NUMBER-ONE        DTSBR609
00550                                                                   DTSBR609
00551          MOVE SPACES                TO DTL1-ASSIGN-INFO           DTSBR609
00552          MOVE SPACES                TO DTL1-BACK-LOGGED-DAYS-X    DTSBR609
00553      END-IF.                                                      DTSBR609
00554                                                                   DTSBR609
00555      IF WRK-STATUS = 'ACTIVE    '                                 DTSBR609
00556         MOVE 'ACTIVE    ' TO CTF1-STATUS WRK-STATUS-SAVE          DTSBR609
00557         ADD +1 TO WS-RPT-ACTIVE-CNT                               DTSBR609
00558         ADD +1 TO WS-RPT2-ACTIVE-CNT.                             DTSBR609
00559                                                                   DTSBR609
00560      IF WRK-STATUS = 'BACKLOGGED'                                 DTSBR609
00561         MOVE 'BACKLOGGED' TO CTF1-STATUS WRK-STATUS-SAVE          DTSBR609
00562         ADD +1 TO WS-RPT-BACKLOGGED-CNT                           DTSBR609
00563         ADD +1 TO WS-RPT2-BACKLOGGED-CNT.                         DTSBR609
00564                                                                   DTSBR609
00565      IF WRK-STATUS = 'HELD      '                                 DTSBR609
00566         MOVE 'HELD      ' TO CTF1-STATUS WRK-STATUS-SAVE          DTSBR609
00567         ADD +1 TO WS-RPT-HELD-CNT                                 DTSBR609
00568         ADD +1 TO WS-RPT2-HELD-CNT.                               DTSBR609
00569                                                                   DTSBR609
00570      IF WRK-STATUS = 'COMPLETED '                                 DTSBR609
00571         MOVE 'COMPLETED ' TO CTF1-STATUS WRK-STATUS-SAVE          DTSBR609
00572         ADD +1 TO WS-RPT-COMPLETED-CNT                            DTSBR609
00573         ADD +1 TO WS-RPT2-COMPLETED-CNT.                          DTSBR609
00574                                                                   DTSBR609
00575      MOVE L062-NAME TO WRK-FLD-REP-NAME-SAVE.                     DTSBR609
00576                                                                   DTSBR609
00577  P1000-EXIT.                                                      DTSBR609
00578      EXIT.                                                        DTSBR609
00579                                                                   DTSBR609
00580  P3000-PRINT-HEADER.                                              DTSBR609
00581                                                                   DTSBR609
00582      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR609
00583           WS-LINE-CNT2 GREATER 58                                 DTSBR609
00584         MOVE +0          TO WS-LINE-CNT                           DTSBR609
00585         MOVE +0          TO WS-LINE-CNT2                          DTSBR609
00586         ADD  +1          TO WS-PAGE-CNT                           DTSBR609
00587         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR609
00588         MOVE WRK-ASSIGN-INFO       TO DTL1-ASSIGN-INFO            DTSBR609
00589         WRITE REPORT-LISTING1 FROM HDR1-LINE-1                    DTSBR609
00590                 AFTER TOP-OF-PAGE                                 DTSBR609
00591         WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1            DTSBR609
00592         WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1            DTSBR609
00593         WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1            DTSBR609
00594         WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1            DTSBR609
00595         WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1            DTSBR609
00596         WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1            DTSBR609
00597         WRITE REPORT-LISTING1 FROM HDR1-LINE-8 AFTER 1            DTSBR609
00598         WRITE REPORT-LISTING1 FROM HDR1-LINE-9 AFTER 1            DTSBR609
00599         WRITE REPORT-LISTING1 FROM HDR1-LINE-10 AFTER 1           DTSBR609
00600         WRITE REPORT-LISTING1 FROM HDR1-LINE-11 AFTER 1           DTSBR609
00601         WRITE REPORT-LISTING1 FROM HDR1-LINE-12 AFTER 1           DTSBR609
00602         WRITE REPORT-LISTING1 FROM HDR1-LINE-13 AFTER 1           DTSBR609
00603         ADD +13   TO WS-LINE-CNT2.                                DTSBR609
00604                                                                   DTSBR609
00605  P3000-EXIT.                                                      DTSBR609
00606      EXIT.                                                        DTSBR609
00607                                                                   DTSBR609
00608  P4000-PRINT-HEADER.                                              DTSBR609
00609                                                                   DTSBR609
00610      IF WS-LINE-CNT3 GREATER 58 OR                                DTSBR609
00611           WS-LINE-CNT4 GREATER 58                                 DTSBR609
00612         MOVE +0          TO WS-LINE-CNT3                          DTSBR609
00613         MOVE +0          TO WS-LINE-CNT4                          DTSBR609
00614         ADD  +1          TO WS-PAGE-CNT2                          DTSBR609
00615         MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT                        DTSBR609
00616         WRITE REPORT-LISTING2 FROM HDR2-LINE-1                    DTSBR609
00617                 AFTER TOP-OF-PAGE                                 DTSBR609
00618         WRITE REPORT-LISTING2 FROM HDR2-LINE-2 AFTER 1            DTSBR609
00619         WRITE REPORT-LISTING2 FROM HDR2-LINE-3 AFTER 1            DTSBR609
00620         WRITE REPORT-LISTING2 FROM HDR2-LINE-4 AFTER 1            DTSBR609
00621         WRITE REPORT-LISTING2 FROM HDR2-LINE-5 AFTER 1            DTSBR609
00622         WRITE REPORT-LISTING2 FROM HDR2-LINE-6 AFTER 1            DTSBR609
00623         WRITE REPORT-LISTING2 FROM HDR2-LINE-7 AFTER 1            DTSBR609
00624         WRITE REPORT-LISTING2 FROM HDR2-LINE-8 AFTER 1            DTSBR609
00625         WRITE REPORT-LISTING2 FROM HDR2-LINE-9 AFTER 1            DTSBR609
00626         WRITE REPORT-LISTING2 FROM HDR2-LINE-10 AFTER 1           DTSBR609
00627         ADD +10   TO WS-LINE-CNT4.                                DTSBR609
00628                                                                   DTSBR609
00629  P4000-EXIT.                                                      DTSBR609
00630      EXIT.                                                        DTSBR609
00631                                                                   DTSBR609
00632  P5000-PRINT-FOOTER.                                              DTSBR609
00633      IF WS-LINE-CNT2 > 52                                         DTSBR609
00634         ADD +8 TO WS-LINE-CNT2                                    DTSBR609
00635         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR609
00636      END-IF.                                                      DTSBR609
00637                                                                   DTSBR609
00638      IF WRK-STATUS-SAVE = 'ACTIVE    '                            DTSBR609
00639         MOVE WS-RPT-ACTIVE-CNT TO CTF1-REC-CNT                    DTSBR609
00640         MOVE +0 TO WS-RPT-ACTIVE-CNT.                             DTSBR609
00641                                                                   DTSBR609
00642      IF WRK-STATUS-SAVE = 'BACKLOGGED'                            DTSBR609
00643         MOVE WS-RPT-BACKLOGGED-CNT TO CTF1-REC-CNT                DTSBR609
00644         MOVE +0 TO WS-RPT-BACKLOGGED-CNT.                         DTSBR609
00645                                                                   DTSBR609
00646      IF WRK-STATUS-SAVE = 'HELD      '                            DTSBR609
00647         MOVE WS-RPT-HELD-CNT TO CTF1-REC-CNT                      DTSBR609
00648         MOVE +0 TO WS-RPT-HELD-CNT.                               DTSBR609
00649                                                                   DTSBR609
00650      IF WRK-STATUS-SAVE = 'COMPLETED '                            DTSBR609
00651         MOVE WS-RPT-COMPLETED-CNT TO CTF1-REC-CNT                 DTSBR609
00652         MOVE +0 TO WS-RPT-COMPLETED-CNT.                          DTSBR609
00653                                                                   DTSBR609
00654      WRITE REPORT-LISTING1 FROM CTF1-LINE-3 AFTER 3.              DTSBR609
00655                                                                   DTSBR609
00656  P5000-EXIT.                                                      DTSBR609
00657      EXIT.                                                        DTSBR609
00658                                                                   DTSBR609
00659  P6000-PRINT-FOOTER.                                              DTSBR609
00660      IF WS-LINE-CNT2 > 52                                         DTSBR609
00661         ADD +8 TO WS-LINE-CNT2                                    DTSBR609
00662         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR609
00663      END-IF.                                                      DTSBR609
00664                                                                   DTSBR609
00665      IF WRK-STATUS = 'ACTIVE    '                                 DTSBR609
00666         MOVE WS-RPT-ACTIVE-CNT TO CTF1-REC-CNT                    DTSBR609
00667         MOVE +0 TO WS-RPT-ACTIVE-CNT.                             DTSBR609
00668                                                                   DTSBR609
00669      IF WRK-STATUS = 'BACKLOGGED'                                 DTSBR609
00670         MOVE WS-RPT-BACKLOGGED-CNT TO CTF1-REC-CNT                DTSBR609
00671         MOVE +0 TO WS-RPT-BACKLOGGED-CNT.                         DTSBR609
00672                                                                   DTSBR609
00673      IF WRK-STATUS = 'HELD      '                                 DTSBR609
00674         MOVE WS-RPT-HELD-CNT TO CTF1-REC-CNT                      DTSBR609
00675         MOVE +0 TO WS-RPT-HELD-CNT.                               DTSBR609
00676                                                                   DTSBR609
00677      IF WRK-STATUS = 'COMPLETED '                                 DTSBR609
00678         MOVE WS-RPT-COMPLETED-CNT TO CTF1-REC-CNT                 DTSBR609
00679         MOVE +0 TO WS-RPT-COMPLETED-CNT.                          DTSBR609
00680                                                                   DTSBR609
00681      WRITE REPORT-LISTING1 FROM CTF1-LINE-3 AFTER 3.              DTSBR609
00682                                                                   DTSBR609
00683      MOVE WS-FOOT-NUMBER-ONE TO CTF2-REC-CNT.                     DTSBR609
00684      WRITE REPORT-LISTING1 FROM CTF2-LINE-2 AFTER 2.              DTSBR609
00685      MOVE +0 TO WS-FOOT-NUMBER-ONE.                               DTSBR609
00686                                                                   DTSBR609
00687  P6000-EXIT.                                                      DTSBR609
00688      EXIT.                                                        DTSBR609
00689                                                                   DTSBR609
00690  P7000-PRINT-FOOTER.                                              DTSBR609
00691      IF WS-LINE-CNT3 > 52                                         DTSBR609
00692         ADD +8 TO WS-LINE-CNT4                                    DTSBR609
00693         PERFORM P4000-PRINT-HEADER THRU P4000-EXIT                DTSBR609
00694      END-IF.                                                      DTSBR609
00695                                                                   DTSBR609
00696      MOVE WRK-FLD-REP-NAME-SAVE TO CTF3-FLD-REP-NAME.             DTSBR609
00697                                                                   DTSBR609
00698      MOVE WS-RPT2-ACTIVE-CNT TO CTF3-RPT-ACTIVE-CNT.              DTSBR609
00699      ADD  WS-RPT2-ACTIVE-CNT TO WS-CFF-ACTIVE-CNT.                DTSBR609
00700      ADD  WS-RPT2-ACTIVE-CNT TO WS-CTF-RECORD-CNT.                DTSBR609
00701      MOVE +0 TO WS-RPT2-ACTIVE-CNT.                               DTSBR609
00702                                                                   DTSBR609
00703      MOVE WS-RPT2-BACKLOGGED-CNT TO CTF3-RPT-BACKLOGGED-CNT.      DTSBR609
00704      ADD  WS-RPT2-BACKLOGGED-CNT TO WS-CFF-BACKLOGGED-CNT.        DTSBR609
00705      ADD  WS-RPT2-BACKLOGGED-CNT TO WS-CTF-RECORD-CNT.            DTSBR609
00706      MOVE +0 TO WS-RPT2-BACKLOGGED-CNT.                           DTSBR609
00707                                                                   DTSBR609
00708      MOVE WS-RPT2-HELD-CNT TO CTF3-RPT-HELD-CNT.                  DTSBR609
00709      ADD  WS-RPT2-HELD-CNT TO WS-CFF-HELD-CNT.                    DTSBR609
00710      ADD  WS-RPT2-HELD-CNT TO WS-CTF-RECORD-CNT.                  DTSBR609
00711      MOVE +0 TO WS-RPT2-HELD-CNT.                                 DTSBR609
00712                                                                   DTSBR609
00713      MOVE WS-RPT2-COMPLETED-CNT TO CTF3-RPT-COMPLETED-CNT.        DTSBR609
00714      ADD  WS-RPT2-COMPLETED-CNT TO WS-CFF-COMPLETED-CNT.          DTSBR609
00715      ADD  WS-RPT2-COMPLETED-CNT TO WS-CTF-RECORD-CNT.             DTSBR609
00716      MOVE +0 TO WS-RPT2-COMPLETED-CNT.                            DTSBR609
00717                                                                   DTSBR609
00718      MOVE WS-CTF-RECORD-CNT  TO CTF3-TOT-REC-CNT.                 DTSBR609
00719      WRITE REPORT-LISTING2 FROM CTF3-LINE-2 AFTER 2.              DTSBR609
00720      MOVE +0 TO WS-CTF-RECORD-CNT.                                DTSBR609
00721      ADD +2    TO WS-LINE-CNT4.                                   DTSBR609
00722                                                                   DTSBR609
00723  P7000-EXIT.                                                      DTSBR609
00724      EXIT.                                                        DTSBR609
00725                                                                   DTSBR609
00726  T1000-TERMINATE.                                                 DTSBR609
00727                                                                   DTSBR609
00728      PERFORM P6000-PRINT-FOOTER THRU P6000-EXIT.                  DTSBR609
00729      PERFORM P7000-PRINT-FOOTER THRU P7000-EXIT.                  DTSBR609
00730      MOVE WS-CFF-ACTIVE-CNT TO CFF-RPT-ACTIVE-CNT.                DTSBR609
00731      MOVE WS-CFF-BACKLOGGED-CNT TO CFF-RPT-BACKLOGGED-CNT.        DTSBR609
00732      MOVE WS-CFF-HELD-CNT TO CFF-RPT-HELD-CNT.                    DTSBR609
00733      MOVE WS-CFF-COMPLETED-CNT TO CFF-RPT-COMPLETED-CNT.          DTSBR609
00734      MOVE WS-FOOT-NUMBER-TWO TO CFF-FOOT-NUMBER-TWO.              DTSBR609
00735      WRITE REPORT-LISTING2 FROM CFF-LINE-2 AFTER 2.               DTSBR609
00736      CLOSE PRT-FILE-1                                             DTSBR609
00737            PRT-FILE-2.                                            DTSBR609
00738                                                                   DTSBR609
00739  T1000-EXIT.                                                      DTSBR609
00740      EXIT.                                                        DTSBR609
00741      EJECT                                                        DTSBR609
00742  S001-FROM-FED-8.                                                 DTSBR609
00743                                                                   DTSBR609
00744      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR609
00745                                                                   DTSBR609
00746      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR609
00747                                                                   DTSBR609
00748  S001-EXIT.                                                       DTSBR609
00749      EXIT.                                                        DTSBR609
00750      SKIP3                                                        DTSBR609
00751  S062-FLD-REP.                                                    DTSBR609
00752                                                                   DTSBR609
00753      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR609
00754                                                                   DTSBR609
00755  S062-EXIT.                                                       DTSBR609
00756      EXIT.                                                        DTSBR609
00757      SKIP3                                                        DTSBR609
00758  S063-ASSIGN-INFO.                                                DTSBR609
00759                                                                   DTSBR609
00760      CALL 'DTSBU063' USING L063-LINK-AREA.                        DTSBR609
00761                                                                   DTSBR609
00762  S063-EXIT.                                                       DTSBR609
00763      EXIT.                                                        DTSBR609
00764      SKIP3                                                        DTSBR609
00765 *S999-ABEND.                                                      DTSBR609
00766 *                                                                 DTSBR609
00767 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR609
00768 *                                                                 DTSBR609
00769 *S999-EXIT.                                                       DTSBR609
00770 *    EXIT.                                                        DTSBR609
00771                                                                   DTSBR609
