00001  IDENTIFICATION DIVISION.                                         05/13/02
00002  PROGRAM-ID.             DTSBD110.                                DTSBD110
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV009
00004  DATE-WRITTEN.           JANUARY 1991.                            DTSBD110
00005  DATE-COMPILED.                                                   DTSBD110
00006      SKIP3                                                        DTSBD110
00007 *****                                                             DTSBD110
00008 *                                                                 DTSBD110
00009 *    FUNCTION:  ON-LINE ACTIVITY FILE SCAN.                       DTSBD110
00010 *                                                                 DTSBD110
00011 *                                                                 DTSBD110
00012 *    MODIFICATION LOG:                                            DTSBD110
00013 *                                                                 DTSBD110
00014 *    01/04/92  INITIAL DEVELOPMENT.                               DTSBD110
00015 *              WORK ORDER:                      PROGRAMMER: TCL   DTSBD110
00016 *                                                                 DTSBD110
00017 *    06/22/94  MODIFIED FOR MONTANA PROJECT.                      DTSBD110
00018 *              WORK ORDER:                      PROGRAMMER: EHH   DTSBD110
00019 *                                                                 DTSBD110
00020 *    06/15/95  SPIN T031 RECORDS OFF TO A BTC FILE.               DTSBD110
00021 *              WORK ORDER: CR066                PROGRAMMER: EHH   DTSBD110
00022 *                                                                 DTSBD110
00023 *    10/01/1998  REVIEWED AND MODIFIED FOR DC.                    DTSBD110
00024 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD110
00025 *                                                                 DTSBD110
00026 *    03/28/2001  MODIFIED TO EXCLUDE OLA RECORDS WHOSE TYPE       DTSBD110
00027 *                IS BETWEEN 60 AND 69.  THESE RECORDS ARE         DTSBD110
00028 *                USED IN THE ELECTRONIC MEDIA TRACKING SYSTEM.    DTSBD110
00029 *                REFERENCE:                     PROGRAMMER: GD    DTSBD110
00030 *                                                                 DTSBD110
00031 *    12/04/2001  MODIFIED TO EXCLUDE OLA RECORDS WHOSE TYPE       DTSBD110
00032 *                IS BETWEEN 70 AND 79.  THESE RECORDS ARE         DTSBD110
00033 *                USED IN THE ONLINE JOB SUBMISSION SYSTEM.        DTSBD110
00034 *                REFERENCE:                     PROGRAMMER: GD    DTSBD110
00035 *                                                                 DTSBD110
00036 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD110
00037 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD110
00038 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD110
00039 *                                                                 DTSBD110
00040 *                                                                 DTSBD110
00041 *  DESCRIPTION:                                                   DTSBD110
00042 *                                                                 DTSBD110
00043 *    SPLIT ON-LINE ACTIVITY DERIVED TRANSACTIONS                  DTSBD110
00044 *    (RSK3-REC-TYPE < 100) AND ON-LINE ACTIVITY DERIVED           DTSBD110
00045 *    REPORT RECORDS (RSK3-REC-TYPE >=100).                        DTSBD110
00046 *                                                                 DTSBD110
00047 *                                                                 DTSBD110
00048 *****                                                             DTSBD110
00049      SKIP3                                                        DTSBD110
00050  ENVIRONMENT DIVISION.                                            DTSBD110
00051      SKIP3                                                        DTSBD110
00052  DATA DIVISION.                                                   DTSBD110
00053      SKIP3                                                        DTSBD110
00054  FILE SECTION.                                                    DTSBD110
00055      SKIP3                                                        DTSBD110
00056  WORKING-STORAGE SECTION.                                         DTSBD110
000565 77  PAN-VALET PICTURE X(24) VALUE '009DTSBD110  05/13/02'.       DTSBD110
00057      SKIP3                                                        DTSBD110
00058  01  WRK-AREA.                                                    DTSBD110
00059      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +110.DTSBD110
00060                                                                   DTSBD110
00061      05  MOD-NAME                    PIC  X(08)  VALUE 'DTSBD110'.DTSBD110
00062      SKIP3                                                        DTSBD110
00063      05  SYS-TIME.                                                DTSBD110
00064          10  SYS-HMS                 PIC  9(06).                  DTSBD110
00065          10  FILLER                  PIC  X(02).                  DTSBD110
00066      EJECT                                                        DTSBD110
00067  01  L924-LINK-AREA.                                              DTSBD110
00068  ++INCLUDE DTSIL924                                               DTSBD110
00069      SKIP3                                                        DTSBD110
00070  01  RSK3-REC.                                                    DTSBD110
00071  ++INCLUDE DTSIRSK3                                               DTSBD110
00072      EJECT                                                        DTSBD110
00073  01  L927-LINK-AREA.                                              DTSBD110
00074  ++INCLUDE DTSIL927                                               DTSBD110
00075      SKIP3                                                        DTSBD110
00076  01  TSKL-REC.                                                    DTSBD110
00077  ++INCLUDE DTSITSKL                                               DTSBD110
00078      EJECT                                                        DTSBD110
00079  PROCEDURE DIVISION.                                              DTSBD110
00080      SKIP2                                                        DTSBD110
00081      PERFORM I1000-INITIATE THRU I1000-EXIT.                      DTSBD110
00082                                                                   DTSBD110
00083      PERFORM P1000-PROCESS THRU P1000-EXIT.                       DTSBD110
00084                                                                   DTSBD110
00085      PERFORM T1000-TERMINATE THRU T1000-EXIT.                     DTSBD110
00086      SKIP2                                                        DTSBD110
00087      GOBACK.                                                      DTSBD110
00088      EJECT                                                        DTSBD110
00089  I1000-INITIATE.                                                  DTSBD110
00090      MOVE 'N' TO L924-TRACE-IND.                                  DTSBD110
00091                                                                   DTSBD110
00092      MOVE MOD-NAME TO L924-MOD-NAME.                              DTSBD110
00093                                                                   DTSBD110
00094      SET L924-OPEN-READ-88 TO TRUE.                               DTSBD110
00095                                                                   DTSBD110
00096      PERFORM S924-OLA-I THRU S924-EXIT.                           DTSBD110
00097                                                                   DTSBD110
00098                                                                   DTSBD110
00099      SET L924-READ-NEXT-88 TO TRUE.                               DTSBD110
00100                                                                   DTSBD110
00101                                                                   DTSBD110
00102      MOVE 'N' TO L927-TRACE-IND.                                  DTSBD110
00103                                                                   DTSBD110
00104      MOVE MOD-NAME TO L927-MOD-NAME.                              DTSBD110
00105                                                                   DTSBD110
00106      PERFORM S927-OPEN-UPDATE THRU S927-EXIT.                     DTSBD110
00107  I1000-EXIT.                                                      DTSBD110
00108      EXIT.                                                        DTSBD110
00109      EJECT                                                        DTSBD110
00110  P1000-PROCESS.                                                   DTSBD110
00111      PERFORM P1100-READ-NEXT THRU P1100-EXIT                      DTSBD110
00112          UNTIL L924-NO-REC-88.                                    DTSBD110
00113  P1000-EXIT.                                                      DTSBD110
00114      EXIT.                                                        DTSBD110
00115      SKIP3                                                        DTSBD110
00116  P1100-READ-NEXT.                                                 DTSBD110
00117      PERFORM S924-OLA-I THRU S924-EXIT.                           DTSBD110
00118                                                                   DTSBD110
00119      IF L924-NO-REC-88                                            DTSBD110
00120          GO TO P1100-EXIT.                                        DTSBD110
00121                                                                   DTSBD110
00122 **************************************************************    DTSBD110
00123 *  RECORD TYPES BETWEEN 60 AND 69 ARE RESERVED FOR THE            DTSBD110
00124 *  ELECTRONIC MEDIA TRACKING SYSTEM                               DTSBD110
00125 *  RECORD TYPES BETWEEN 70 AND 79 ARE RESERVED FOR THE            DTSBD110
00126 *  ONLINE JOB SUBMISSION SYSTEM                                   DTSBD110
00127 **************************************************************    DTSBD110
00128      IF RSK3-REC-TYPE >= '060' AND <= '079'                       DTSBD110
00129          GO TO P1100-EXIT.                                        DTSBD110
00130                                                                   DTSBD110
00131      IF RSK3-REC-TYPE < '100'                                     DTSBD110
00132          MOVE RSK3-REC TO TSKL-REC                                DTSBD110
00133          IF TSKL-AUTO-QTR-88                                      DTSBD110
00134              PERFORM S927-WRITE THRU S927-EXIT                    DTSBD110
00135          ELSE                                                     DTSBD110
00136              PERFORM S946-TRN-REC-O THRU S946-EXIT                DTSBD110
00137      ELSE                                                         DTSBD110
00138          PERFORM S947-RPT-REC-O THRU S947-EXIT.                   DTSBD110
00139  P1100-EXIT.                                                      DTSBD110
00140      EXIT.                                                        DTSBD110
00141      EJECT                                                        DTSBD110
00142  T1000-TERMINATE.                                                 DTSBD110
00143      DISPLAY ' '.                                                 DTSBD110
00144                                                                   DTSBD110
00145      DISPLAY '*** DTSBD110 TERMINATION STATISTICS '               DTSBD110
00146                                                                   DTSBD110
00147      SET L924-CLOSE-88 TO TRUE.                                   DTSBD110
00148                                                                   DTSBD110
00149      PERFORM S924-OLA-I THRU S924-EXIT.                           DTSBD110
00150                                                                   DTSBD110
00151      MOVE -1 TO RSK3-LENGTH.                                      DTSBD110
00152                                                                   DTSBD110
00153      PERFORM S946-TRN-REC-O THRU S946-EXIT.                       DTSBD110
00154                                                                   DTSBD110
00155      PERFORM S947-RPT-REC-O THRU S947-EXIT.                       DTSBD110
00156                                                                   DTSBD110
00157      PERFORM S927-CLOSE THRU S927-EXIT.                           DTSBD110
00158  T1000-EXIT.                                                      DTSBD110
00159      EXIT.                                                        DTSBD110
00160      EJECT                                                        DTSBD110
00161  S924-OLA-I.                                                      DTSBD110
00162      CALL 'DTSBU924' USING L924-LINK-AREA                         DTSBD110
00163                            RSK3-REC.                              DTSBD110
00164  S924-EXIT.                                                       DTSBD110
00165      EXIT.                                                        DTSBD110
00166      SKIP3                                                        DTSBD110
00167  S927-OPEN-UPDATE.                                                DTSBD110
00168      SET L927-OPEN-UPDATE-88 TO TRUE.                             DTSBD110
00169      GO TO S927-BTC-O.                                            DTSBD110
00170                                                                   DTSBD110
00171  S927-WRITE.                                                      DTSBD110
00172      SET L927-WRITE-88 TO TRUE.                                   DTSBD110
00173      GO TO S927-BTC-O.                                            DTSBD110
00174                                                                   DTSBD110
00175  S927-CLOSE.                                                      DTSBD110
00176      SET L927-CLOSE-88 TO TRUE.                                   DTSBD110
00177      GO TO S927-BTC-O.                                            DTSBD110
00178                                                                   DTSBD110
00179  S927-BTC-O.                                                      DTSBD110
00180      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSBD110
00181                            TSKL-REC.                              DTSBD110
00182  S927-EXIT.                                                       DTSBD110
00183      EXIT.                                                        DTSBD110
00184      SKIP3                                                        DTSBD110
00185  S946-TRN-REC-O.                                                  DTSBD110
00186      CALL 'DTSBU946' USING RSK3-REC.                              DTSBD110
00187  S946-EXIT.                                                       DTSBD110
00188      EXIT.                                                        DTSBD110
00189      SKIP3                                                        DTSBD110
00190  S947-RPT-REC-O.                                                  DTSBD110
00191      CALL 'DTSBU947' USING RSK3-REC.                              DTSBD110
00192  S947-EXIT.                                                       DTSBD110
00193      EXIT.                                                        DTSBD110
00194      SKIP3                                                        DTSBD110
00195  S999-ABEND.                                                      DTSBD110
00196      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD110
00197  S999-EXIT.                                                       DTSBD110
00198      EXIT.                                                        DTSBD110
