00001  IDENTIFICATION DIVISION.                                         01/29/01
00002  PROGRAM-ID.             DTSBR906.                                DTSBR906
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV009
00004  DATE-WRITTEN.           OCTOBER 1994.                            DTSBR906
00005  DATE-COMPILED.                                                   DTSBR906
00006                                                                   DTSBR906
00007 *****                                                             DTSBR906
00008 *                                                                 DTSBR906
00009 *    CALLING SEQUENCE:  DTSCU221 READS  DTSIR906                  DTSBR906
00010 *                                                                 DTSBR906
00011 *    FUNCTION:  ONLINE UPDATE LOG                                 DTSBR906
00012 *                                                                 DTSBR906
00013 *                                                                 DTSBR906
00014 *    MODIFICATION HISTORY:                                        DTSBR906
00015 *                                                                 DTSBR906
00016 * 10-31-94 INITIAL DEVELOPMENT                                    DTSBR906
00017 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR906
00018 *                                                                 DTSBR906
00019 * 08-30-95 CHANGED ROUTING INFORMATION TO INCLUDE TAX ACCOUNTING. DTSBR906
00020 *          LYNNETTE HAS DECIDED IT NEEDS TO BE PRINTED EVERY DAY. DTSBR906
00021 *          REFERENCE RFP #NONE                   PROGRAMMER: MJA  DTSBR906
00022 *                                                                 DTSBR906
00023 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR906
00024 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR906
00025 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR906
00026 *                                                                 DTSBR906
00027 *                                                                 DTSBR906
00028 *    DESCRIPTION:                                                 DTSBR906
00029 *                                                                 DTSBR906
00030 *        THIS MODULE LISTS ONLINE UPDATES THAT HAVE OCCURRED      DTSBR906
00031 *                                                                 DTSBR906
00032 *                                                                 DTSBR906
00033 *    RECORDS READ:                                                DTSBR906
00034 *                                                                 DTSBR906
00035 *        A SINGLE INPUT PARAMETER RECORD SPECIFYING SELECTION     DTSBR906
00036 *        CRITERIA ON REPORT RECORDS (OPTIONAL)                    DTSBR906
00037 *          - IF THE PARM RECORD IS OMITTED ALL RECORDS ARE        DTSBR906
00038 *            SELECTED                                             DTSBR906
00039 *          - IF THE PARM START DATE OR START TIME ARE ZEROES      DTSBR906
00040 *            OR SPACES INPUT RECORDS ARE COMPARED TO ZEROES       DTSBR906
00041 *          - IF THE PARM END DATE OR END TIME ARE 9'S OR SPACES   DTSBR906
00042 *            INPUT RECORDS ARE COMPARED TO ALL 9'S                DTSBR906
00043 *                                                                 DTSBR906
00044 *                                                                 DTSBR906
00045 *    PRINTED OUTPUTS:                                             DTSBR906
00046 *                                                                 DTSBR906
00047 *        906R1  ONLINE UPDATE LOG                                 DTSBR906
00048 *                                                                 DTSBR906
00049 *                                                                 DTSBR906
00050 *    RECORDS WRITTEN:                                             DTSBR906
00051 *                                                                 DTSBR906
00052 *        NONE.                                                    DTSBR906
00053 *                                                                 DTSBR906
00054 *                                                                 DTSBR906
00055 *    MODULES CALLED:                                              DTSBR906
00056 *                                                                 DTSBR906
00057 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR906
00058 *        DTSBU010 TIME VALIDATE/FORMAT MODULE                     DTSBR906
00059 *                                                                 DTSBR906
00060 *                                                                 DTSBR906
00061 *****                                                             DTSBR906
00062      EJECT                                                        DTSBR906
00063  ENVIRONMENT DIVISION.                                            DTSBR906
00064                                                                   DTSBR906
00065  CONFIGURATION SECTION.                                           DTSBR906
00066  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR906
00067                                                                   DTSBR906
00068  INPUT-OUTPUT SECTION.                                            DTSBR906
00069                                                                   DTSBR906
00070  FILE-CONTROL.                                                    DTSBR906
00071      SELECT PARM-FILE ASSIGN TO PARM906.                          DTSBR906
00072      SELECT PRT-FILE  ASSIGN TO RPT906R1.                         DTSBR906
00073                                                                   DTSBR906
00074  DATA DIVISION.                                                   DTSBR906
00075                                                                   DTSBR906
00076  FILE SECTION.                                                    DTSBR906
00077                                                                   DTSBR906
00078  FD  PARM-FILE                                                    DTSBR906
00079      RECORDING MODE IS F                                          DTSBR906
00080      BLOCK CONTAINS 0 RECORDS.                                    DTSBR906
00081  01  PARM-REC.                                                    DTSBR906
00082      05  PARM-MOD-NAME               PIC  X(08).                  DTSBR906
00083      05  FILLER                      PIC  X(01).                  DTSBR906
00084      05  PARM-START-MMDDYY           PIC  X(06).                  DTSBR906
00085      05  PARM-START-MMDDYY-9 REDEFINES PARM-START-MMDDYY          DTSBR906
00086                                      PIC  9(06).                  DTSBR906
00087      05  FILLER                      PIC  X(01).                  DTSBR906
00088      05  PARM-START-HHMMSS           PIC  X(06).                  DTSBR906
00089      05  PARM-START-HHMMSS-9 REDEFINES PARM-START-HHMMSS          DTSBR906
00090                                      PIC  9(06).                  DTSBR906
00091      05  FILLER                      PIC  X(01).                  DTSBR906
00092      05  PARM-END-MMDDYY             PIC  X(06).                  DTSBR906
00093      05  PARM-END-MMDDYY-9 REDEFINES PARM-END-MMDDYY              DTSBR906
00094                                      PIC  9(06).                  DTSBR906
00095      05  FILLER                      PIC  X(01).                  DTSBR906
00096      05  PARM-END-HHMMSS             PIC  X(06).                  DTSBR906
00097      05  PARM-END-HHMMSS-9 REDEFINES PARM-END-HHMMSS              DTSBR906
00098                                      PIC  9(06).                  DTSBR906
00099      05  FILLER                      PIC  X(44).                  DTSBR906
00100                                                                   DTSBR906
00101  FD  PRT-FILE                                                     DTSBR906
00102      RECORDING MODE IS F.                                         DTSBR906
00103  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR906
00104                                                                   DTSBR906
00105  WORKING-STORAGE SECTION.                                         DTSBR906
001055 77  PAN-VALET PICTURE X(24) VALUE '009DTSBR906  01/29/01'.       DTSBR906
00106                                                                   DTSBR906
00107  01  WRK-AREA.                                                    DTSBR906
00108      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +906.DTSBR906
00109      05  WRK-ABEND-MSG               PIC  X(50)  VALUE SPACES.    DTSBR906
00110      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR906
00111                                                                   DTSBR906
00112      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR906
00113      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR906
00114      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR906
00115                                                                   DTSBR906
00116      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +0. DTSBR906
00117      05  WRK-OP-ID                   PIC  X(08)  VALUE SPACE.     DTSBR906
00118                                                                   DTSBR906
00119      05  WS-ZEROES-DATE              PIC S9(09)  COMP-3           DTSBR906
00120                                                  VALUE +000000000.DTSBR906
00121      05  WS-NINES-DATE               PIC S9(09)  COMP-3           DTSBR906
00122                                                  VALUE +999999999.DTSBR906
00123      05  WS-ZEROES-TIME              PIC S9(07)  COMP-3           DTSBR906
00124                                                  VALUE +0000000.  DTSBR906
00125      05  WS-NINES-TIME               PIC S9(07)  COMP-3           DTSBR906
00126                                                  VALUE +9999999.  DTSBR906
00127      05  WS-START-DATE               PIC S9(09)  COMP-3 VALUE +0. DTSBR906
00128      05  WS-START-TIME               PIC S9(07)  COMP-3 VALUE +0. DTSBR906
00129      05  WS-END-DATE                 PIC S9(09)  COMP-3 VALUE +0. DTSBR906
00130      05  WS-END-TIME                 PIC S9(07)  COMP-3 VALUE +0. DTSBR906
00131                                                                   DTSBR906
00132      05  WS-START-DATE-DISPLAY-I.                                 DTSBR906
00133          10  FILLER                  PIC  X(12)                   DTSBR906
00134                 VALUE 'START DATE: '.                             DTSBR906
00135          10  WS-START-DATE-SLASH     PIC  X(08).                  DTSBR906
00136      05  WS-START-DATE-DISPLAY                                    DTSBR906
00137             REDEFINES WS-START-DATE-DISPLAY-I                     DTSBR906
00138                                      PIC  X(20).                  DTSBR906
00139      05  WS-END-DATE-DISPLAY-I.                                   DTSBR906
00140          10  FILLER                  PIC  X(14)                   DTSBR906
00141                 VALUE '    END DATE: '.                           DTSBR906
00142          10  WS-END-DATE-SLASH       PIC  X(08).                  DTSBR906
00143      05  WS-END-DATE-DISPLAY                                      DTSBR906
00144             REDEFINES WS-END-DATE-DISPLAY-I                       DTSBR906
00145                                      PIC  X(22).                  DTSBR906
00146                                                                   DTSBR906
00147      05  WS-START-TIME-DISPLAY-I.                                 DTSBR906
00148          10  FILLER                  PIC  X(12)                   DTSBR906
00149                 VALUE 'START TIME: '.                             DTSBR906
00150          10  WS-START-TIME-DOTS      PIC  X(08).                  DTSBR906
00151      05  WS-START-TIME-DISPLAY                                    DTSBR906
00152             REDEFINES WS-START-TIME-DISPLAY-I                     DTSBR906
00153                                      PIC  X(20).                  DTSBR906
00154      05  WS-END-TIME-DISPLAY-I.                                   DTSBR906
00155          10  FILLER                  PIC  X(14)                   DTSBR906
00156                 VALUE '    END TIME: '.                           DTSBR906
00157          10  WS-END-TIME-DOTS        PIC  X(08).                  DTSBR906
00158      05  WS-END-TIME-DISPLAY                                      DTSBR906
00159             REDEFINES WS-END-TIME-DISPLAY-I                       DTSBR906
00160                                      PIC  X(22).                  DTSBR906
00161                                                                   DTSBR906
00162  01  L001-LINK-AREA.                                              DTSBR906
00163  ++INCLUDE  DTSIL001                                              DTSBR906
00164      EJECT                                                        DTSBR906
00165  01  L010-LINK-AREA.                                              DTSBR906
00166  ++INCLUDE  DTSIL010                                              DTSBR906
00167      EJECT                                                        DTSBR906
00168                                                                   DTSBR906
00169  01  PAGE-HEADING.                                                DTSBR906
00170      05  HDR1-LINE-1.                                             DTSBR906
00171          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR906
00172          10  FILLER                  PIC  X(05)                   DTSBR906
00173                 VALUE '906R1'.                                    DTSBR906
00174          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR906
00175          10  HDR1-AGY-NAME-LINE1     PIC  X(50).                  DTSBR906
00176          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR906
00177          10  FILLER                  PIC  X(05)                   DTSBR906
00178                 VALUE 'DATE:'.                                    DTSBR906
00179          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR906
00180          10  HDR1-SYS-DATE           PIC  X(08).                  DTSBR906
00181      05  HDR1-LINE-2.                                             DTSBR906
00182          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR906
00183          10  HDR1-AGY-NAME-LINE2     PIC  X(50).                  DTSBR906
00184          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR906
00185          10  FILLER                  PIC  X(05)                   DTSBR906
00186                 VALUE 'TIME:'.                                    DTSBR906
00187          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR906
00188          10  HDR1-SYS-TIME           PIC  X(08).                  DTSBR906
00189      05  HDR1-LINE-3.                                             DTSBR906
00190          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR906
00191          10  FILLER                  PIC  X(39)                   DTSBR906
00192                 VALUE 'ROUTE TO:  CHIEF, TAX DIVISION         '.  DTSBR906
00193          10  FILLER                  PIC  X(78)  VALUE SPACES.    DTSBR906
00194          10  FILLER                  PIC  X(05)                   DTSBR906
00195                 VALUE 'PAGE:'.                                    DTSBR906
00196          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR906
00197          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR906
00198      05  HDR1-LINE-4.                                             DTSBR906
00199          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR906
00200          10  FILLER                  PIC   X(20)                  DTSBR906
00201                 VALUE 'ACCOUNTING PERSONNEL'.                     DTSBR906
00202      05  HDR1-LINE-5.                                             DTSBR906
00203          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR906
00204          10  HDR1-START-DATE-DISPLAY PIC  X(20).                  DTSBR906
00205          10  HDR1-END-DATE-DISPLAY   PIC  X(22).                  DTSBR906
00206          10  FILLER                  PIC  X(14)  VALUE SPACE.     DTSBR906
00207          10  FILLER                  PIC  X(17)                   DTSBR906
00208                 VALUE 'ONLINE UPDATE LOG'.                        DTSBR906
00209      05  HDR1-LINE-6.                                             DTSBR906
00210          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR906
00211          10  HDR1-START-TIME-DISPLAY PIC  X(20).                  DTSBR906
00212          10  HDR1-END-TIME-DISPLAY   PIC  X(22).                  DTSBR906
00213      05  HDR1-LINE-7                 PIC  X(133) VALUE SPACES.    DTSBR906
00214      05  HDR1-LINE-8.                                             DTSBR906
00215          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR906
00216          10  FILLER                  PIC  X(06)                   DTSBR906
00217                 VALUE 'OPID: '.                                   DTSBR906
00218          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR906
00219          10  HDR1-OP-ID              PIC  X(08).                  DTSBR906
00220      05  HDR1-LINE-9                 PIC  X(133) VALUE SPACES.    DTSBR906
00221      05  HDR1-LINE-10                PIC  X(133) VALUE SPACES.    DTSBR906
00222      05  HDR1-LINE-11.                                            DTSBR906
00223          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR906
00224          10  FILLER                  PIC  X(40)                   DTSBR906
00225                 VALUE 'EMP NO          DATE          TIME      '. DTSBR906
00226          10  FILLER                  PIC  X(40)                   DTSBR906
00227                 VALUE '  TASK ID    TERM ID     SCR ID     FUNC'. DTSBR906
00228          10  FILLER                  PIC  X(04)                   DTSBR906
00229                 VALUE 'TION'.                                     DTSBR906
00230                                                                   DTSBR906
00231  01  DETAIL-LINE.                                                 DTSBR906
00232      05  DTL1-LINE-2.                                             DTSBR906
00233          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR906
00234          10  DTL1-EMP-NO             PIC  999B999.                DTSBR906
00235          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR906
00236          10  WS-TASK-START-DATE-SLASH PIC  X(10).                 DTSBR906
00237          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR906
00238          10  WS-TASK-START-TIME-DOTS PIC  X(08).                  DTSBR906
00239          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR906
00240          10  DTL1-TASK-ID            PIC  Z(07)9.                 DTSBR906
00241          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR906
00242          10  DTL1-TERM-ID            PIC  X(04).                  DTSBR906
00243          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR906
00244          10  DTL1-SCR-ID             PIC  X(02).                  DTSBR906
00245          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR906
00246          10  DTL1-FUNCTION           PIC  X(01).                  DTSBR906
00247                                                                   DTSBR906
00248  01  CONTROL-FOOTING.                                             DTSBR906
00249      05  CTF-LINE-3.                                              DTSBR906
00250          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR906
00251          10  FILLER                  PIC  X(19)                   DTSBR906
00252                 VALUE '*** END OF OPERATOR'.                      DTSBR906
00253                                                                   DTSBR906
00254  01  CONTROL-FOOTING-FINAL.                                       DTSBR906
00255      05  CFF-LINE-3.                                              DTSBR906
00256          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR906
00257          10  FILLER                  PIC  X(17)                   DTSBR906
00258                 VALUE '*** END OF REPORT'.                        DTSBR906
00259      EJECT                                                        DTSBR906
00260  LINKAGE SECTION.                                                 DTSBR906
00261                                                                   DTSBR906
00262  01  LRCM-LINK-AREA.                                              DTSBR906
00263  ++INCLUDE  DTSILRCM                                              DTSBR906
00264      EJECT                                                        DTSBR906
00265  01  R906-REC.                                                    DTSBR906
00266  ++INCLUDE  DTSIR906                                              DTSBR906
00267      EJECT                                                        DTSBR906
00268  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR906
00269                           R906-REC.                               DTSBR906
00270                                                                   DTSBR906
00271      IF FIRST-TIME-IND = 'Y'                                      DTSBR906
00272          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR906
00273          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR906
00274                                                                   DTSBR906
00275      IF LRCM-EOR-88                                               DTSBR906
00276          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR906
00277      ELSE                                                         DTSBR906
00278          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR906
00279                                                                   DTSBR906
00280      GOBACK.                                                      DTSBR906
00281      EJECT                                                        DTSBR906
00282  I1000-INITIATE.                                                  DTSBR906
00283                                                                   DTSBR906
00284      OPEN INPUT  PARM-FILE                                        DTSBR906
00285           OUTPUT PRT-FILE.                                        DTSBR906
00286                                                                   DTSBR906
00287      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR906
00288      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR906
00289      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR906
00290      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR906
00291      MOVE SPACES TO REPORT-LISTING1.                              DTSBR906
00292                                                                   DTSBR906
00293      READ PARM-FILE                                               DTSBR906
00294          AT END                                                   DTSBR906
00295              MOVE WS-ZEROES-DATE TO WS-START-DATE                 DTSBR906
00296              MOVE WS-NINES-DATE  TO WS-END-DATE                   DTSBR906
00297              MOVE WS-ZEROES-TIME TO WS-START-TIME                 DTSBR906
00298              MOVE WS-NINES-TIME  TO WS-END-TIME                   DTSBR906
00299              MOVE SPACES TO WS-START-DATE-DISPLAY                 DTSBR906
00300                             HDR1-START-DATE-DISPLAY               DTSBR906
00301                             WS-START-TIME-DISPLAY                 DTSBR906
00302                             HDR1-START-TIME-DISPLAY               DTSBR906
00303                             WS-END-DATE-DISPLAY                   DTSBR906
00304                             HDR1-END-DATE-DISPLAY                 DTSBR906
00305                             WS-END-TIME-DISPLAY                   DTSBR906
00306                             HDR1-END-TIME-DISPLAY                 DTSBR906
00307              GO TO I1000-EXIT.                                    DTSBR906
00308                                                                   DTSBR906
00309      PERFORM I2000-EDIT-PARM THRU I2000-EXIT.                     DTSBR906
00310                                                                   DTSBR906
00311  I1000-EXIT.                                                      DTSBR906
00312      EXIT.                                                        DTSBR906
00313      EJECT                                                        DTSBR906
00314  I2000-EDIT-PARM.                                                 DTSBR906
00315                                                                   DTSBR906
00316      IF PARM-MOD-NAME NOT = 'DTSBR906'                            DTSBR906
00317          MOVE 'INVALID PARM MODULE NAME'                          DTSBR906
00318             TO WRK-ABEND-MSG                                      DTSBR906
00319          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR906
00320      IF PARM-START-MMDDYY = SPACES                                DTSBR906
00321          MOVE WS-ZEROES-DATE TO WS-START-DATE                     DTSBR906
00322          MOVE SPACES TO WS-START-DATE-DISPLAY                     DTSBR906
00323                         HDR1-START-DATE-DISPLAY                   DTSBR906
00324      ELSE                                                         DTSBR906
00325      IF PARM-START-MMDDYY NUMERIC                                 DTSBR906
00326      IF PARM-START-MMDDYY = '000000'                              DTSBR906
00327          MOVE WS-ZEROES-DATE TO WS-START-DATE                     DTSBR906
00328          MOVE SPACES TO WS-START-DATE-DISPLAY                     DTSBR906
00329                         HDR1-START-DATE-DISPLAY                   DTSBR906
00330      ELSE                                                         DTSBR906
00331          MOVE PARM-START-MMDDYY-9 TO L001-CAL-6-DATE-9            DTSBR906
00332          SET L001-FROM-CAL-6 TO TRUE                              DTSBR906
00333          PERFORM S001-DATE THRU S001-EXIT                         DTSBR906
00334          IF L001-INVALID-DATE                                     DTSBR906
00335              MOVE 'INVALID PARM DATE(S)'                          DTSBR906
00336                 TO WRK-ABEND-MSG                                  DTSBR906
00337              PERFORM S999-ABEND THRU S999-EXIT                    DTSBR906
00338          END-IF                                                   DTSBR906
00339          MOVE L001-SLASH-DATE TO WS-START-DATE-SLASH              DTSBR906
00340          MOVE WS-START-DATE-DISPLAY-I TO HDR1-START-DATE-DISPLAY  DTSBR906
00341          MOVE L001-FED-8-DATE-9 TO WS-START-DATE                  DTSBR906
00342      ELSE                                                         DTSBR906
00343          MOVE 'INVALID PARM DATE(S)'                              DTSBR906
00344             TO WRK-ABEND-MSG                                      DTSBR906
00345          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR906
00346      IF PARM-END-MMDDYY = SPACES                                  DTSBR906
00347          MOVE WS-NINES-DATE TO WS-END-DATE                        DTSBR906
00348          MOVE SPACES TO WS-END-DATE-DISPLAY HDR1-END-DATE-DISPLAY DTSBR906
00349      ELSE                                                         DTSBR906
00350      IF PARM-END-MMDDYY NUMERIC                                   DTSBR906
00351      IF PARM-END-MMDDYY = '999999'                                DTSBR906
00352          MOVE WS-NINES-DATE TO WS-END-DATE                        DTSBR906
00353          MOVE SPACES TO WS-END-DATE-DISPLAY HDR1-END-DATE-DISPLAY DTSBR906
00354      ELSE                                                         DTSBR906
00355          MOVE PARM-END-MMDDYY-9 TO L001-CAL-6-DATE-9              DTSBR906
00356          SET L001-FROM-CAL-6 TO TRUE                              DTSBR906
00357          PERFORM S001-DATE THRU S001-EXIT                         DTSBR906
00358          IF L001-INVALID-DATE                                     DTSBR906
00359              MOVE 'INVALID PARM DATE(S)'                          DTSBR906
00360                 TO WRK-ABEND-MSG                                  DTSBR906
00361              PERFORM S999-ABEND THRU S999-EXIT                    DTSBR906
00362          END-IF                                                   DTSBR906
00363          MOVE L001-SLASH-DATE TO WS-END-DATE-SLASH                DTSBR906
00364          MOVE WS-END-DATE-DISPLAY-I TO HDR1-END-DATE-DISPLAY      DTSBR906
00365          MOVE L001-FED-8-DATE-9 TO WS-END-DATE                    DTSBR906
00366      ELSE                                                         DTSBR906
00367          MOVE 'INVALID PARM DATE(S)'                              DTSBR906
00368             TO WRK-ABEND-MSG                                      DTSBR906
00369          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR906
00370      IF PARM-START-HHMMSS = SPACES                                DTSBR906
00371          MOVE WS-ZEROES-TIME TO WS-START-TIME                     DTSBR906
00372          MOVE SPACES TO WS-START-TIME-DISPLAY                     DTSBR906
00373                         HDR1-START-TIME-DISPLAY                   DTSBR906
00374      ELSE                                                         DTSBR906
00375      IF PARM-START-HHMMSS NUMERIC                                 DTSBR906
00376      IF PARM-START-HHMMSS = '000000'                              DTSBR906
00377          MOVE WS-ZEROES-TIME TO WS-START-TIME                     DTSBR906
00378          MOVE SPACES TO WS-START-TIME-DISPLAY                     DTSBR906
00379                         HDR1-START-TIME-DISPLAY                   DTSBR906
00380      ELSE                                                         DTSBR906
00381          MOVE PARM-START-HHMMSS TO L010-TIME                      DTSBR906
00382          PERFORM S010-TIME THRU S010-EXIT                         DTSBR906
00383          IF L010-INVALID-TIME                                     DTSBR906
00384              MOVE 'INVALID PARM TIME(S)'                          DTSBR906
00385                 TO WRK-ABEND-MSG                                  DTSBR906
00386              PERFORM S999-ABEND THRU S999-EXIT                    DTSBR906
00387          END-IF                                                   DTSBR906
00388          MOVE L010-DOTS-TIME TO WS-START-TIME-DOTS                DTSBR906
00389          MOVE WS-START-TIME-DISPLAY-I TO HDR1-START-TIME-DISPLAY  DTSBR906
00390          MOVE L010-TIME TO WS-START-TIME                          DTSBR906
00391      ELSE                                                         DTSBR906
00392          MOVE 'INVALID PARM TIME(S)'                              DTSBR906
00393             TO WRK-ABEND-MSG                                      DTSBR906
00394          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR906
00395      IF PARM-END-HHMMSS = SPACES                                  DTSBR906
00396          MOVE WS-NINES-TIME TO WS-END-TIME                        DTSBR906
00397          MOVE SPACES TO WS-END-TIME-DISPLAY                       DTSBR906
00398                         HDR1-END-TIME-DISPLAY                     DTSBR906
00399      ELSE                                                         DTSBR906
00400      IF PARM-END-HHMMSS NUMERIC                                   DTSBR906
00401      IF PARM-END-HHMMSS = '000000'                                DTSBR906
00402          MOVE WS-NINES-TIME TO WS-END-TIME                        DTSBR906
00403          MOVE SPACES TO WS-END-TIME-DISPLAY                       DTSBR906
00404                         HDR1-END-TIME-DISPLAY                     DTSBR906
00405      ELSE                                                         DTSBR906
00406          MOVE PARM-END-HHMMSS TO L010-TIME                        DTSBR906
00407          PERFORM S010-TIME THRU S010-EXIT                         DTSBR906
00408          IF L010-INVALID-TIME                                     DTSBR906
00409              MOVE 'INVALID PARM TIME(S)'                          DTSBR906
00410                 TO WRK-ABEND-MSG                                  DTSBR906
00411              PERFORM S999-ABEND THRU S999-EXIT                    DTSBR906
00412          END-IF                                                   DTSBR906
00413          MOVE L010-DOTS-TIME TO WS-END-TIME-DOTS                  DTSBR906
00414          MOVE WS-END-TIME-DISPLAY-I TO HDR1-END-TIME-DISPLAY      DTSBR906
00415          MOVE L010-TIME TO WS-END-TIME                            DTSBR906
00416      ELSE                                                         DTSBR906
00417          MOVE 'INVALID PARM TIME(S)'                              DTSBR906
00418             TO WRK-ABEND-MSG                                      DTSBR906
00419          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR906
00420                                                                   DTSBR906
00421  I2000-EXIT.                                                      DTSBR906
00422      EXIT.                                                        DTSBR906
00423      EJECT                                                        DTSBR906
00424  P1000-PROCESS.                                                   DTSBR906
00425                                                                   DTSBR906
00426      IF (R906-TASK-START-DATE < WS-START-DATE)                    DTSBR906
00427                       OR                                          DTSBR906
00428         ((R906-TASK-START-DATE = WS-START-DATE)                   DTSBR906
00429                       AND                                         DTSBR906
00430          (R906-TASK-START-TIME < WS-START-TIME))                  DTSBR906
00431                       OR                                          DTSBR906
00432         (R906-TASK-START-DATE > WS-END-DATE)                      DTSBR906
00433                       OR                                          DTSBR906
00434         ((R906-TASK-START-DATE = WS-END-DATE)                     DTSBR906
00435                       AND                                         DTSBR906
00436          (R906-TASK-START-TIME > WS-END-TIME))                    DTSBR906
00437          GO TO P1000-EXIT.                                        DTSBR906
00438                                                                   DTSBR906
00439      MOVE R906-TASK-START-DATE TO L001-FED-8-DATE-9.              DTSBR906
00440      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR906
00441      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR906
00442      MOVE L001-SLASH-8-DATE TO WS-TASK-START-DATE-SLASH.          DTSBR906
00443                                                                   DTSBR906
00444      MOVE R906-TASK-START-TIME TO L010-TIME.                      DTSBR906
00445      PERFORM S010-TIME THRU S010-EXIT.                            DTSBR906
00446      MOVE L010-DOTS-TIME TO WS-TASK-START-TIME-DOTS.              DTSBR906
00447                                                                   DTSBR906
00448      IF R906-OP-ID NOT =  WRK-OP-ID                               DTSBR906
00449          MOVE R906-OP-ID  TO WRK-OP-ID                            DTSBR906
00450                              HDR1-OP-ID                           DTSBR906
00451          IF WS-NUMBER-ONE = +0                                    DTSBR906
00452             MOVE +99 TO WS-NUMBER-ONE                             DTSBR906
00453          ELSE                                                     DTSBR906
00454             PERFORM  P3000-PRINT-FOOTER THRU P3000-EXIT           DTSBR906
00455             MOVE +60 TO WS-LINE-CNT2                              DTSBR906
00456          END-IF                                                   DTSBR906
00457      END-IF.                                                      DTSBR906
00458                                                                   DTSBR906
00459      MOVE R906-EMP-NO            TO DTL1-EMP-NO.                  DTSBR906
00460      MOVE R906-TASK-ID           TO DTL1-TASK-ID.                 DTSBR906
00461      MOVE R906-TERM-ID           TO DTL1-TERM-ID.                 DTSBR906
00462      MOVE R906-SCR-ID            TO DTL1-SCR-ID.                  DTSBR906
00463      MOVE R906-FUNCTION          TO DTL1-FUNCTION.                DTSBR906
00464      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR906
00465      WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2.              DTSBR906
00466      ADD +2    TO WS-LINE-CNT2.                                   DTSBR906
00467                                                                   DTSBR906
00468                                                                   DTSBR906
00469  P1000-EXIT.                                                      DTSBR906
00470      EXIT.                                                        DTSBR906
00471                                                                   DTSBR906
00472  P2000-PRINT-HEADER.                                              DTSBR906
00473                                                                   DTSBR906
00474      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR906
00475           WS-LINE-CNT2 GREATER 58                                 DTSBR906
00476         MOVE +0          TO WS-LINE-CNT                           DTSBR906
00477         MOVE +0          TO WS-LINE-CNT2                          DTSBR906
00478         ADD  +1          TO WS-PAGE-CNT                           DTSBR906
00479         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR906
00480         WRITE REPORT-LISTING1 FROM HDR1-LINE-1                    DTSBR906
00481                 AFTER TOP-OF-PAGE                                 DTSBR906
00482         WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1            DTSBR906
00483         WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1            DTSBR906
00484         WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1            DTSBR906
00485         WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1            DTSBR906
00486         WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1            DTSBR906
00487         WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1            DTSBR906
00488         WRITE REPORT-LISTING1 FROM HDR1-LINE-8 AFTER 1            DTSBR906
00489         WRITE REPORT-LISTING1 FROM HDR1-LINE-9 AFTER 1            DTSBR906
00490         WRITE REPORT-LISTING1 FROM HDR1-LINE-10 AFTER 1           DTSBR906
00491         WRITE REPORT-LISTING1 FROM HDR1-LINE-11 AFTER 1           DTSBR906
00492         ADD +11   TO WS-LINE-CNT2.                                DTSBR906
00493                                                                   DTSBR906
00494  P2000-EXIT.                                                      DTSBR906
00495      EXIT.                                                        DTSBR906
00496                                                                   DTSBR906
00497  P3000-PRINT-FOOTER.                                              DTSBR906
00498      IF WS-LINE-CNT2 > 52                                         DTSBR906
00499         ADD +8 TO WS-LINE-CNT2                                    DTSBR906
00500         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR906
00501      END-IF.                                                      DTSBR906
00502                                                                   DTSBR906
00503      WRITE REPORT-LISTING1 FROM CTF-LINE-3 AFTER 3.               DTSBR906
00504                                                                   DTSBR906
00505  P3000-EXIT.                                                      DTSBR906
00506      EXIT.                                                        DTSBR906
00507                                                                   DTSBR906
00508  T1000-TERMINATE.                                                 DTSBR906
00509                                                                   DTSBR906
00510      PERFORM P3000-PRINT-FOOTER THRU P3000-EXIT.                  DTSBR906
00511      WRITE REPORT-LISTING1 FROM CFF-LINE-3 AFTER 3.               DTSBR906
00512      CLOSE PARM-FILE PRT-FILE.                                    DTSBR906
00513                                                                   DTSBR906
00514  T1000-EXIT.                                                      DTSBR906
00515      EXIT.                                                        DTSBR906
00516      EJECT                                                        DTSBR906
00517  S001-DATE.                                                       DTSBR906
00518                                                                   DTSBR906
00519      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR906
00520                                                                   DTSBR906
00521  S001-EXIT.                                                       DTSBR906
00522      EXIT.                                                        DTSBR906
00523                                                                   DTSBR906
00524  S010-TIME.                                                       DTSBR906
00525                                                                   DTSBR906
00526      CALL 'DTSBU010' USING L010-LINK-AREA.                        DTSBR906
00527                                                                   DTSBR906
00528  S010-EXIT.                                                       DTSBR906
00529      EXIT.                                                        DTSBR906
00530                                                                   DTSBR906
00531  S999-ABEND.                                                      DTSBR906
00532      SKIP1                                                        DTSBR906
00533      DISPLAY '*** DTSBR906 ABENDING - ' WRK-ABEND-MSG.            DTSBR906
00534      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR906
00535      SKIP2                                                        DTSBR906
00536  S999-EXIT.                                                       DTSBR906
00537      EXIT.                                                        DTSBR906
