00001  IDENTIFICATION DIVISION.                                         11/01/13
00002  PROGRAM-ID.             DTSBD998.                                DTSBD998
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV013
00004  DATE-WRITTEN.           JULY 1994.                               DTSBD998
00005  DATE-COMPILED.                                                   DTSBD998
00006      SKIP3                                                        DTSBD998
00007 *****                                                             DTSBD998
00008 *                                                                 DTSBD998
00009 *    FUNCTION:  INITIALIZE SPECIFIED FILE.                        DTSBD998
00010 *                                                                 DTSBD998
00011 *    MODIFICATION LOG:                                            DTSBD998
00012 *                                                                 DTSBD998
00013 *    07/10/94  INITIAL DEVELOPMENT.                               DTSBD998
00014 *              WORK ORDER:                      PROGRAMMER: TCL   DTSBD998
00015 *                                                                 DTSBD998
00016 *    08/13/1998  REVIEWED AND MODIFIED FOR DC.                    DTSBD998
00017 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD998
00018 *                                                                 DTSBD998
00019 *    01/17/2001  REVISED TO INCLUDE FOUR ELECTRONIC MEDIA         DTSBD998
00020 *                TRACKING SYSTEM MASTER FILES FOR INITIALIZATION. DTSBD998
00021 *                REFERENCE: TAPE TRACKING SYSTEM       PRG: RLW   DTSBD998
00022 *                                                                 DTSBD998
00023 *    01/??/2002  REVISED TO INCLUDE THREE WAGE FILES USED IN      DTSBD998
00024 *                DAILY FOR ACCT-HOUSEHOLD                         DTSBD998
00025 *                REFERENCE: HOUSEHOLD YEARLY FILERS    PRG: ???   DTSBD998
00026 *                                                                 DTSBD998
00027 *    05/22/2002  REVISED TO PUT A DUMMY RECORD INTO THE           DTSBD998
00028 *                DTSFWTC FILE (ACTIVE KEY OF ALL ZEROS)           DTSBD998
00029 *                REFERENCE: HOUSEHOLD YEARLY FILERS    PRG: JHP   DTSBD998
00030 *                                                                 DTSBD998
00031 *    07/18/2003  ADDED MSTI FILE                                  DTSBD998
00032 *                REFERENCE: SPLIT MSTB FILE            PRG: GD    DTSBD998
00033 *                                                                 DTSBD998
00034 *    01/20/2004  ADDED WGE FILE                                   DTSBD998
00035 *                REFERENCE: EFT                        PRG: GD    DTSBD998
00036 *                                                                 DTSBD998
00037 *    11/03/2004  REMOVED WGE FILE                                 DTSBD998
00038 *                REFERENCE: EFT                        PRG: ZL1   DTSBD998
00039 *                                                                 DTSBD998
00040 *    11/10/2006  ADDED MSTJ FOR THE EXPERIENCE RATING AUDIT       DTSBD998
00041 *                TRAIL.                                           DTSBD998
00042 *                REFERENCE:                            PRG: GD    DTSBD998
00043 *                                                                 DTSBD998
00044 *    12/14/2009  ADDED ATH: ACCOUNTING TRANSACTION HISTORY        DTSBD998
00045 *                AUDIT TRAIL.                                     DTSBD998
00046 *                REFERENCE:                            PRG: GD    DTSBD998
00047 *                                                                 DTSBD998
00048 *    04/23/2010  ADDED CHK: CHECK FILE (DTSIACHK)                 DTSBD998
00049 *                REFERENCE:                            PRG: GD    DTSBD998
00050 *                                                                 DTSBD998
00051 *    09/17/2010  ADDED WG2: EMP NBR CHANGE (DTSIWWG2)             DTSBD998
00052 *                REFERENCE:                            PRG: GD    DTSBD998
00053 *                                                                 DTSBD998
00054 *    06/27/2012  ADDED WG3: EMP NBR CHANGE (DTSIWWG3)             DTSBD998
00055 *                THE VERSION WILL REPLACE WG2.                    DTSBD998
00056 *                REFERENCE:                            PRG: GD    DTSBD998
00057 *                                                                 DTSBD998
00058 *    10/17/2013  ADDED ITM: REPORT INDEX BY BATCH/ITEM            DTSBD998
00059 *                REFERENCE:                            PRG: GD    DTSBD998
00060 *                                                                 DTSBD998
00061 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD998
00062 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD998
00063 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD998
00064 *                                                                 DTSBD998
00065 *                                                                 DTSBD998
00066 *  DESCRIPTION:                                                   DTSBD998
00067 *                                                                 DTSBD998
00068 *    INITIALIZES FILES SPECIFIED VIA PARAMETER.  THIS IS          DTSBD998
00069 *    NECESSARY BECAUSE IF A VSAM FILE HAS BEEN DEFINED BUT        DTSBD998
00070 *    NOT USED AND (IT IS THEN OPENED FOR INPUT BY IDCAMS,         DTSBD998
00071 *    IDCAMS ISSUES A NONZERO RETURN CODE) OR (IT IS THEN OPENED   DTSBD998
00072 *    FOR INPUT BY A COBOL 2 PROGRAM A FILE STATUS VALUE OF        DTSBD998
00073 *    '35' IS RETURNED FROM THE OPEN).                             DTSBD998
00074 *                                                                 DTSBD998
00075 *                                                                 DTSBD998
00076 *****                                                             DTSBD998
00077      SKIP3                                                        DTSBD998
00078  ENVIRONMENT DIVISION.                                            DTSBD998
00079      SKIP2                                                        DTSBD998
00080  INPUT-OUTPUT SECTION.                                            DTSBD998
00081                                                                   DTSBD998
00082  FILE-CONTROL.                                                    DTSBD998
00083      SELECT PARM-FILE ASSIGN TO SYSIN.                            DTSBD998
00084      SELECT MSTA-FILE ASSIGN TO DTSFMSTA                          DTSBD998
00085          ORGANIZATION IS INDEXED                                  DTSBD998
00086          RECORD KEY IS MSKL-KEY-AREA OF MSTA-REC                  DTSBD998
00087          FILE STATUS IS FILE-STATUS                               DTSBD998
00088          ACCESS IS SEQUENTIAL.                                    DTSBD998
00089      SELECT MSTB-FILE ASSIGN TO DTSFMSTB                          DTSBD998
00090          ORGANIZATION IS INDEXED                                  DTSBD998
00091          RECORD KEY IS MSKL-KEY-AREA OF MSTB-REC                  DTSBD998
00092          FILE STATUS IS FILE-STATUS                               DTSBD998
00093          ACCESS IS SEQUENTIAL.                                    DTSBD998
00094      SELECT MSTC-FILE ASSIGN TO DTSFMSTC                          DTSBD998
00095          ORGANIZATION IS INDEXED                                  DTSBD998
00096          RECORD KEY IS MSKL-KEY-AREA OF MSTC-REC                  DTSBD998
00097          FILE STATUS IS FILE-STATUS                               DTSBD998
00098          ACCESS IS SEQUENTIAL.                                    DTSBD998
00099      SELECT MSTD-FILE ASSIGN TO DTSFMSTD                          DTSBD998
00100          ORGANIZATION IS INDEXED                                  DTSBD998
00101          RECORD KEY IS MSKL-KEY-AREA OF MSTD-REC                  DTSBD998
00102          FILE STATUS IS FILE-STATUS                               DTSBD998
00103          ACCESS IS SEQUENTIAL.                                    DTSBD998
00104      SELECT AIX-FILE ASSIGN TO DTSFAIX                            DTSBD998
00105          ORGANIZATION IS INDEXED                                  DTSBD998
00106          RECORD KEY IS ISKL-KEY-AREA OF AIX-REC                   DTSBD998
00107          FILE STATUS IS FILE-STATUS                               DTSBD998
00108          ACCESS IS SEQUENTIAL.                                    DTSBD998
00109      SELECT REF-FILE ASSIGN TO DTSFREF                            DTSBD998
00110          ORGANIZATION IS INDEXED                                  DTSBD998
00111          RECORD KEY IS FSKL-KEY-AREA OF REF-REC                   DTSBD998
00112          FILE STATUS IS FILE-STATUS                               DTSBD998
00113          ACCESS IS SEQUENTIAL.                                    DTSBD998
00114      SELECT ATC-FILE ASSIGN TO DTSFATC                            DTSBD998
00115          ORGANIZATION IS INDEXED                                  DTSBD998
00116          RECORD KEY IS ASKL-KEY-AREA OF ATC-REC                   DTSBD998
00117          FILE STATUS IS FILE-STATUS                               DTSBD998
00118          ACCESS IS SEQUENTIAL.                                    DTSBD998
00119      SELECT WRK-FILE ASSIGN TO DTSFWRK                            DTSBD998
00120          ORGANIZATION IS INDEXED                                  DTSBD998
00121          RECORD KEY IS VSKL-KEY-AREA OF WRK-REC                   DTSBD998
00122          FILE STATUS IS FILE-STATUS                               DTSBD998
00123          ACCESS IS SEQUENTIAL.                                    DTSBD998
00124      SELECT OLA-FILE ASSIGN TO AS-DTSFOLA                         DTSBD998
00125          ORGANIZATION IS SEQUENTIAL                               DTSBD998
00126          FILE STATUS IS FILE-STATUS                               DTSBD998
00127          ACCESS IS SEQUENTIAL.                                    DTSBD998
00128 *                                                                 DTSBD998
00129      SELECT MSTE-FILE ASSIGN TO DTSFMSTE                          DTSBD998
00130          ORGANIZATION IS INDEXED                                  DTSBD998
00131          RECORD KEY IS ESKL-KEY-AREA OF MSTE-REC                  DTSBD998
00132          FILE STATUS IS FILE-STATUS                               DTSBD998
00133          ACCESS IS DYNAMIC.                                       DTSBD998
00134      SELECT MSTF-FILE ASSIGN TO DTSFMSTF                          DTSBD998
00135          ORGANIZATION IS INDEXED                                  DTSBD998
00136          RECORD KEY IS ESKL-KEY-AREA OF MSTF-REC                  DTSBD998
00137          FILE STATUS IS FILE-STATUS                               DTSBD998
00138          ACCESS IS DYNAMIC.                                       DTSBD998
00139      SELECT MSTG-FILE ASSIGN TO DTSFMSTG                          DTSBD998
00140          ORGANIZATION IS INDEXED                                  DTSBD998
00141          RECORD KEY IS ESKL-KEY-AREA OF MSTG-REC                  DTSBD998
00142          FILE STATUS IS FILE-STATUS                               DTSBD998
00143          ACCESS IS DYNAMIC.                                       DTSBD998
00144      SELECT MSTH-FILE ASSIGN TO DTSFMSTH                          DTSBD998
00145          ORGANIZATION IS INDEXED                                  DTSBD998
00146          RECORD KEY IS MSKL-KEY-AREA OF MSTH-REC                  DTSBD998
00147          FILE STATUS IS FILE-STATUS                               DTSBD998
00148          ACCESS IS SEQUENTIAL.                                    DTSBD998
00149      SELECT MSTI-FILE ASSIGN TO DTSFMSTI                          DTSBD998
00150          ORGANIZATION IS INDEXED                                  DTSBD998
00151          RECORD KEY IS MSKL-KEY-AREA OF MSTI-REC                  DTSBD998
00152          FILE STATUS IS FILE-STATUS                               DTSBD998
00153          ACCESS IS SEQUENTIAL.                                    DTSBD998
00154 *                                                                 DTSBD998
00155      SELECT WTC-FILE ASSIGN TO DTSFWTC                            DTSBD998
00156          ORGANIZATION IS INDEXED                                  DTSBD998
00157          RECORD KEY IS WSKL-KEY-AREA OF WTC-REC                   DTSBD998
00158          FILE STATUS IS FILE-STATUS                               DTSBD998
00159          ACCESS IS SEQUENTIAL.                                    DTSBD998
00160      SELECT WGH-FILE ASSIGN TO DTSFWGH                            DTSBD998
00161          ORGANIZATION IS INDEXED                                  DTSBD998
00162          RECORD KEY IS WWGH-KEY-AREA OF WGH-REC                   DTSBD998
00163          FILE STATUS IS FILE-STATUS                               DTSBD998
00164          ACCESS IS SEQUENTIAL.                                    DTSBD998
00165      SELECT NAME-FILE ASSIGN TO DTSFNAME                          DTSBD998
00166          ORGANIZATION IS INDEXED                                  DTSBD998
00167          RECORD KEY IS WNAM-KEY-AREA OF WNAM-REC                  DTSBD998
00168          FILE STATUS IS FILE-STATUS                               DTSBD998
00169          ACCESS IS SEQUENTIAL.                                    DTSBD998
00170      SELECT MSTJ-FILE ASSIGN TO DTSFMSTJ                          DTSBD998
00171          ORGANIZATION IS INDEXED                                  DTSBD998
00172          RECORD KEY IS MSKL-KEY-AREA OF MSTJ-REC                  DTSBD998
00173          FILE STATUS IS FILE-STATUS                               DTSBD998
00174          ACCESS IS SEQUENTIAL.                                    DTSBD998
00175                                                                   DTSBD998
00176      SELECT ATH-FILE ASSIGN TO AS-DTSFATH                         DTSBD998
00177          ORGANIZATION IS SEQUENTIAL                               DTSBD998
00178          FILE STATUS IS FILE-STATUS                               DTSBD998
00179          ACCESS IS SEQUENTIAL.                                    DTSBD998
00180 ***  SELECT CHK-FILE ASSIGN TO DTSFCHK                            DTSBD998
00181 *        ORGANIZATION IS INDEXED                                  DTSBD998
00182 *        RECORD KEY IS ACHK-KEY-AREA OF CHK-REC                   DTSBD998
00183 *        FILE STATUS IS FILE-STATUS                               DTSBD998
00184 **       ACCESS IS SEQUENTIAL.                                    DTSBD998
00185                                                                   DTSBD998
00186      SELECT WG2-FILE ASSIGN TO DTSFWG2                            DTSBD998
00187          ORGANIZATION IS INDEXED                                  DTSBD998
00188          RECORD KEY IS WWG2-KEY-AREA OF WG2-REC                   DTSBD998
00189          FILE STATUS IS FILE-STATUS                               DTSBD998
00190          ACCESS IS SEQUENTIAL.                                    DTSBD998
00191                                                                   DTSBD998
00192      SELECT WG3-FILE ASSIGN TO DTSFWG3                            DTSBD998
00193          ORGANIZATION IS INDEXED                                  DTSBD998
00194          RECORD KEY IS WWG3-KEY-AREA OF WG3-REC                   DTSBD998
00195          FILE STATUS IS FILE-STATUS                               DTSBD998
00196          ACCESS IS SEQUENTIAL.                                    DTSBD998
00197                                                                   DTSBD998
00198      SELECT ITM-FILE ASSIGN TO DTSFITM                            DTSBD998
00199          ORGANIZATION IS INDEXED                                  DTSBD998
00200          RECORD KEY IS WITM-KEY-AREA OF ITM-REC                   DTSBD998
00201          FILE STATUS IS FILE-STATUS                               DTSBD998
00202          ACCESS IS SEQUENTIAL.                                    DTSBD998
00203                                                                   DTSBD998
00204  DATA DIVISION.                                                   DTSBD998
00205      SKIP3                                                        DTSBD998
00206  FILE SECTION.                                                    DTSBD998
00207      SKIP3                                                        DTSBD998
00208  FD  PARM-FILE                                                    DTSBD998
00209      RECORDING MODE IS F                                          DTSBD998
00210      BLOCK CONTAINS 0 RECORDS.                                    DTSBD998
00211                                                                   DTSBD998
00212  01  PARM-REC.                                                    DTSBD998
00213      05  PARM-ID-NO                      PIC  X(03).              DTSBD998
00214      05  FILLER                          PIC  X(01).              DTSBD998
00215      05  PARM-MOD-NAME                   PIC  X(08).              DTSBD998
00216      05  FILLER                          PIC  X(01).              DTSBD998
00217      05  PARM-FILE-ID                    PIC  X(04).              DTSBD998
00218          88  PARM-MSTA-88                       VALUE 'MSTA'.     DTSBD998
00219          88  PARM-MSTB-88                       VALUE 'MSTB'.     DTSBD998
00220          88  PARM-MSTC-88                       VALUE 'MSTC'.     DTSBD998
00221          88  PARM-MSTD-88                       VALUE 'MSTD'.     DTSBD998
00222          88  PARM-AIX-88                        VALUE 'AIX '.     DTSBD998
00223          88  PARM-REF-88                        VALUE 'REF '.     DTSBD998
00224          88  PARM-ATC-88                        VALUE 'ATC '.     DTSBD998
00225          88  PARM-OLA-88                        VALUE 'OLA '.     DTSBD998
00226          88  PARM-WRK-88                        VALUE 'WRK '.     DTSBD998
00227          88  PARM-MSTE-88                       VALUE 'MSTE'.     DTSBD998
00228          88  PARM-MSTF-88                       VALUE 'MSTF'.     DTSBD998
00229          88  PARM-MSTG-88                       VALUE 'MSTG'.     DTSBD998
00230          88  PARM-MSTH-88                       VALUE 'MSTH'.     DTSBD998
00231          88  PARM-MSTI-88                       VALUE 'MSTI'.     DTSBD998
00232          88  PARM-WTC-88                        VALUE 'WTC '.     DTSBD998
00233          88  PARM-WGH-88                        VALUE 'WGH '.     DTSBD998
00234          88  PARM-NAM-88                        VALUE 'NAME'.     DTSBD998
00235          88  PARM-MSTJ-88                       VALUE 'MSTJ'.     DTSBD998
00236          88  PARM-ATH-88                        VALUE 'ATH '.     DTSBD998
00237          88  PARM-CHK-88                        VALUE 'CHK '.     DTSBD998
00238          88  PARM-WG2-88                        VALUE 'WG2 '.     DTSBD998
00239          88  PARM-WG3-88                        VALUE 'WG3 '.     DTSBD998
00240          88  PARM-ITM-88                        VALUE 'ITM '.     DTSBD998
00241      05  FILLER                          PIC  X(63).              DTSBD998
00242      EJECT                                                        DTSBD998
00243  FD  MSTA-FILE.                                                   DTSBD998
00244                                                                   DTSBD998
00245  01  MSTA-REC.                                                    DTSBD998
00246  ++INCLUDE DTSIMSKL                                               DTSBD998
00247      EJECT                                                        DTSBD998
00248  FD  MSTB-FILE.                                                   DTSBD998
00249                                                                   DTSBD998
00250  01  MSTB-REC.                                                    DTSBD998
00251  ++INCLUDE DTSIMSKL                                               DTSBD998
00252      EJECT                                                        DTSBD998
00253  FD  MSTC-FILE.                                                   DTSBD998
00254                                                                   DTSBD998
00255  01  MSTC-REC.                                                    DTSBD998
00256  ++INCLUDE DTSIMSKL                                               DTSBD998
00257      EJECT                                                        DTSBD998
00258  FD  MSTD-FILE.                                                   DTSBD998
00259                                                                   DTSBD998
00260  01  MSTD-REC.                                                    DTSBD998
00261  ++INCLUDE DTSIMSKL                                               DTSBD998
00262      EJECT                                                        DTSBD998
00263  FD  AIX-FILE.                                                    DTSBD998
00264                                                                   DTSBD998
00265  01  AIX-REC.                                                     DTSBD998
00266  ++INCLUDE DTSIISKL                                               DTSBD998
00267      EJECT                                                        DTSBD998
00268  FD  REF-FILE.                                                    DTSBD998
00269                                                                   DTSBD998
00270  01  REF-REC.                                                     DTSBD998
00271  ++INCLUDE DTSIFSKL                                               DTSBD998
00272      EJECT                                                        DTSBD998
00273  FD  ATC-FILE.                                                    DTSBD998
00274                                                                   DTSBD998
00275  01  ATC-REC.                                                     DTSBD998
00276  ++INCLUDE DTSIASKL                                               DTSBD998
00277      EJECT                                                        DTSBD998
00278  FD  WRK-FILE.                                                    DTSBD998
00279                                                                   DTSBD998
00280  01  WRK-REC.                                                     DTSBD998
00281  ++INCLUDE DTSIVSKL                                               DTSBD998
00282      EJECT                                                        DTSBD998
00283  FD  OLA-FILE.                                                    DTSBD998
00284                                                                   DTSBD998
00285  01  RSKL-REC.                                                    DTSBD998
00286  ++INCLUDE DTSIRSK1                                               DTSBD998
00287      SKIP3                                                        DTSBD998
00288  01  RVAR-REC.                                                    DTSBD998
00289  ++INCLUDE DTSIRVAR                                               DTSBD998
00290 *                                                                 DTSBD998
00291  FD  MSTE-FILE.                                                   DTSBD998
00292                                                                   DTSBD998
00293  01  MSTE-REC.                                                    DTSBD998
00294  ++INCLUDE DTSIESKL                                               DTSBD998
00295      EJECT                                                        DTSBD998
00296  FD  MSTF-FILE.                                                   DTSBD998
00297                                                                   DTSBD998
00298  01  MSTF-REC.                                                    DTSBD998
00299  ++INCLUDE DTSIESKL                                               DTSBD998
00300      EJECT                                                        DTSBD998
00301  FD  MSTG-FILE.                                                   DTSBD998
00302                                                                   DTSBD998
00303  01  MSTG-REC.                                                    DTSBD998
00304  ++INCLUDE DTSIESKL                                               DTSBD998
00305      EJECT                                                        DTSBD998
00306  FD  MSTH-FILE.                                                   DTSBD998
00307                                                                   DTSBD998
00308  01  MSTH-REC.                                                    DTSBD998
00309  ++INCLUDE DTSIMSKL                                               DTSBD998
00310      EJECT                                                        DTSBD998
00311                                                                   DTSBD998
00312  FD  MSTI-FILE.                                                   DTSBD998
00313                                                                   DTSBD998
00314  01  MSTI-REC.                                                    DTSBD998
00315  ++INCLUDE DTSIMSKL                                               DTSBD998
00316      EJECT                                                        DTSBD998
00317                                                                   DTSBD998
00318  FD  WTC-FILE.                                                    DTSBD998
00319                                                                   DTSBD998
00320  01  WTC-REC.                                                     DTSBD998
00321  ++INCLUDE DTSIWSKL                                               DTSBD998
00322                                                                   DTSBD998
00323  FD  WGH-FILE.                                                    DTSBD998
00324                                                                   DTSBD998
00325  01  WGH-REC.                                                     DTSBD998
00326  ++INCLUDE DTSIWWGH                                               DTSBD998
00327                                                                   DTSBD998
00328  FD  NAME-FILE.                                                   DTSBD998
00329                                                                   DTSBD998
00330  01  WNAM-REC.                                                    DTSBD998
00331  ++INCLUDE DTSIWNAM                                               DTSBD998
00332                                                                   DTSBD998
00333  FD  MSTJ-FILE.                                                   DTSBD998
00334                                                                   DTSBD998
00335  01  MSTJ-REC.                                                    DTSBD998
00336  ++INCLUDE DTSIMSKL                                               DTSBD998
00337                                                                   DTSBD998
00338  FD  ATH-FILE.                                                    DTSBD998
00339                                                                   DTSBD998
00340  01  ATH-REC.                                                     DTSBD998
00341  ++INCLUDE DTSIAATH                                               DTSBD998
00342                                                                   DTSBD998
00343 *FD  CHK-FILE.                                                    DTSBD998
00344 *                                                                 DTSBD998
00345 *01  CHK-REC.                                                     DTSBD998
00346 ***INCLUDE DTSIACHK                                               DTSBD998
00347                                                                   DTSBD998
00348  FD  WG2-FILE.                                                    DTSBD998
00349                                                                   DTSBD998
00350  01  WG2-REC.                                                     DTSBD998
00351  ++INCLUDE DTSIWWG2                                               DTSBD998
00352                                                                   DTSBD998
00353  FD  WG3-FILE.                                                    DTSBD998
00354                                                                   DTSBD998
00355  01  WG3-REC.                                                     DTSBD998
00356  ++INCLUDE DTSIWWG3                                               DTSBD998
00357                                                                   DTSBD998
00358  FD  ITM-FILE.                                                    DTSBD998
00359                                                                   DTSBD998
00360  01  ITM-REC.                                                     DTSBD998
00361  ++INCLUDE DTSIWITM                                               DTSBD998
00362                                                                   DTSBD998
00363  WORKING-STORAGE SECTION.                                         DTSBD998
003635 77  PAN-VALET PICTURE X(24) VALUE '013DTSBD998  11/01/13'.       DTSBD998
00364  77  PAN-VALET PICTURE X(24) VALUE '016DTSBD998  10/17/13'.       DTSBD998
00365      SKIP3                                                        DTSBD998
00366  01  WRK-AREA.                                                    DTSBD998
00367      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +998.DTSBD998
00368                                                                   DTSBD998
00369      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD998'.DTSBD998
00370                                                                   DTSBD998
00371      05  VAR-CHAR-CNT                PIC S9(04)  COMP.            DTSBD998
00372                                                                   DTSBD998
00373      05  PARM-EOF-IND                PIC  X(01).                  DTSBD998
00374      SKIP3                                                        DTSBD998
00375      05  FILE-STATUS                 PIC  X(02).                  DTSBD998
00376          88  FILE-OK-88                     VALUE '00'.           DTSBD998
00377          88  FILE-NO-REC-88                 VALUE '10' '23'.      DTSBD998
00378          88  FILE-VERIFY-88                 VALUE '97'.           DTSBD998
00379      EJECT                                                        DTSBD998
00380  PROCEDURE DIVISION.                                              DTSBD998
00381      SKIP2                                                        DTSBD998
00382      PERFORM I1000-INITIATE THRU I1000-EXIT.                      DTSBD998
00383      SKIP2                                                        DTSBD998
00384      PERFORM P1000-PROCESS THRU P1000-EXIT.                       DTSBD998
00385      SKIP2                                                        DTSBD998
00386      PERFORM T1000-TERMINATE THRU T1000-EXIT.                     DTSBD998
00387      SKIP2                                                        DTSBD998
00388      GOBACK.                                                      DTSBD998
00389      EJECT                                                        DTSBD998
00390  I1000-INITIATE.                                                  DTSBD998
00391  I1000-EXIT.                                                      DTSBD998
00392      EXIT.                                                        DTSBD998
00393      EJECT                                                        DTSBD998
00394  P1000-PROCESS.                                                   DTSBD998
00395      OPEN INPUT PARM-FILE.                                        DTSBD998
00396                                                                   DTSBD998
00397      MOVE 'N' TO PARM-EOF-IND.                                    DTSBD998
00398      DISPLAY ' '.                                                 DTSBD998
00399      DISPLAY ' '.                                                 DTSBD998
00400      PERFORM P1100-READ-PARM THRU P1100-EXIT                      DTSBD998
00401          UNTIL PARM-EOF-IND = 'Y'.                                DTSBD998
00402                                                                   DTSBD998
00403      CLOSE PARM-FILE.                                             DTSBD998
00404  P1000-EXIT.                                                      DTSBD998
00405      EXIT.                                                        DTSBD998
00406      SKIP3                                                        DTSBD998
00407  P1100-READ-PARM.                                                 DTSBD998
00408      READ PARM-FILE                                               DTSBD998
00409          AT END                                                   DTSBD998
00410              MOVE 'Y' TO PARM-EOF-IND                             DTSBD998
00411              GO TO P1100-EXIT.                                    DTSBD998
00412                                                                   DTSBD998
00413      DISPLAY '*** '                                               DTSBD998
00414              PARM-REC.                                            DTSBD998
00415                                                                   DTSBD998
00416      IF PARM-ID-NO = '***'                                        DTSBD998
00417          GO TO P1100-EXIT.                                        DTSBD998
00418                                                                   DTSBD998
00419      IF PARM-MOD-NAME NOT = 'DTSBD998'                            DTSBD998
00420          DISPLAY 'INVALID PARM-MOD-NAME'                          DTSBD998
00421          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00422                                                                   DTSBD998
00423      EVALUATE TRUE                                                DTSBD998
00424        WHEN PARM-MSTA-88                                          DTSBD998
00425          PERFORM P1110-MSTA THRU P1110-EXIT                       DTSBD998
00426                                                                   DTSBD998
00427        WHEN PARM-MSTB-88                                          DTSBD998
00428          PERFORM P1120-MSTB THRU P1120-EXIT                       DTSBD998
00429                                                                   DTSBD998
00430        WHEN PARM-MSTC-88                                          DTSBD998
00431          PERFORM P1130-MSTC THRU P1130-EXIT                       DTSBD998
00432                                                                   DTSBD998
00433        WHEN PARM-MSTD-88                                          DTSBD998
00434          PERFORM P1131-MSTD THRU P1131-EXIT                       DTSBD998
00435                                                                   DTSBD998
00436        WHEN PARM-AIX-88                                           DTSBD998
00437          PERFORM P1140-AIX THRU P1140-EXIT                        DTSBD998
00438                                                                   DTSBD998
00439        WHEN PARM-REF-88                                           DTSBD998
00440          PERFORM P1150-REF THRU P1150-EXIT                        DTSBD998
00441                                                                   DTSBD998
00442        WHEN PARM-ATC-88                                           DTSBD998
00443          PERFORM P1160-ATC THRU P1160-EXIT                        DTSBD998
00444                                                                   DTSBD998
00445        WHEN PARM-WRK-88                                           DTSBD998
00446          PERFORM P1170-WRK THRU P1170-EXIT                        DTSBD998
00447                                                                   DTSBD998
00448        WHEN PARM-OLA-88                                           DTSBD998
00449          PERFORM P1180-OLA THRU P1180-EXIT                        DTSBD998
00450                                                                   DTSBD998
00451        WHEN PARM-MSTE-88                                          DTSBD998
00452          PERFORM P1190-MSTE THRU P1190-EXIT                       DTSBD998
00453                                                                   DTSBD998
00454        WHEN PARM-MSTF-88                                          DTSBD998
00455          PERFORM P1200-MSTF THRU P1200-EXIT                       DTSBD998
00456                                                                   DTSBD998
00457        WHEN PARM-MSTG-88                                          DTSBD998
00458          PERFORM P1210-MSTG THRU P1210-EXIT                       DTSBD998
00459                                                                   DTSBD998
00460        WHEN PARM-MSTH-88                                          DTSBD998
00461          PERFORM P1220-MSTH THRU P1220-EXIT                       DTSBD998
00462                                                                   DTSBD998
00463        WHEN PARM-WTC-88                                           DTSBD998
00464          PERFORM P1230-WTC  THRU P1230-EXIT                       DTSBD998
00465                                                                   DTSBD998
00466        WHEN PARM-WGH-88                                           DTSBD998
00467          PERFORM P1240-WGH  THRU P1240-EXIT                       DTSBD998
00468                                                                   DTSBD998
00469        WHEN PARM-NAM-88                                           DTSBD998
00470          PERFORM P1250-NAM  THRU P1250-EXIT                       DTSBD998
00471                                                                   DTSBD998
00472        WHEN PARM-MSTI-88                                          DTSBD998
00473          PERFORM P1260-MSTI THRU P1260-EXIT                       DTSBD998
00474                                                                   DTSBD998
00475        WHEN PARM-MSTJ-88                                          DTSBD998
00476          PERFORM P1280-MSTJ THRU P1280-EXIT                       DTSBD998
00477                                                                   DTSBD998
00478        WHEN PARM-ATH-88                                           DTSBD998
00479          PERFORM P1290-ATH  THRU P1290-EXIT                       DTSBD998
00480                                                                   DTSBD998
00481 **     WHEN PARM-CHK-88                                           DTSBD998
00482 **       PERFORM P1300-CHK  THRU P1300-EXIT                       DTSBD998
00483                                                                   DTSBD998
00484        WHEN PARM-WG2-88                                           DTSBD998
00485          PERFORM P1270-WG2  THRU P1270-EXIT                       DTSBD998
00486                                                                   DTSBD998
00487        WHEN PARM-WG3-88                                           DTSBD998
00488          PERFORM P1310-WG3  THRU P1310-EXIT                       DTSBD998
00489                                                                   DTSBD998
00490        WHEN PARM-ITM-88                                           DTSBD998
00491          PERFORM P1320-ITM  THRU P1320-EXIT                       DTSBD998
00492                                                                   DTSBD998
00493        WHEN OTHER                                                 DTSBD998
00494          DISPLAY 'INVALID FILE NAME.  PARM BYPASSED.'             DTSBD998
00495      END-EVALUATE.                                                DTSBD998
00496                                                                   DTSBD998
00497      DISPLAY ' '.                                                 DTSBD998
00498  P1100-EXIT.                                                      DTSBD998
00499      EXIT.                                                        DTSBD998
00500      EJECT                                                        DTSBD998
00501  P1110-MSTA.                                                      DTSBD998
00502      OPEN OUTPUT MSTA-FILE.                                       DTSBD998
00503      IF FILE-OK-88                                                DTSBD998
00504          NEXT SENTENCE                                            DTSBD998
00505      ELSE                                                         DTSBD998
00506          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00507                                                                   DTSBD998
00508      MOVE LOW-VALUES TO MSTA-REC.                                 DTSBD998
00509                                                                   DTSBD998
00510      WRITE MSTA-REC.                                              DTSBD998
00511      IF FILE-OK-88                                                DTSBD998
00512          NEXT SENTENCE                                            DTSBD998
00513      ELSE                                                         DTSBD998
00514          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00515                                                                   DTSBD998
00516      CLOSE MSTA-FILE.                                             DTSBD998
00517      IF FILE-OK-88                                                DTSBD998
00518          NEXT SENTENCE                                            DTSBD998
00519      ELSE                                                         DTSBD998
00520          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00521                                                                   DTSBD998
00522      OPEN I-O MSTA-FILE.                                          DTSBD998
00523      IF FILE-OK-88                                                DTSBD998
00524          NEXT SENTENCE                                            DTSBD998
00525      ELSE                                                         DTSBD998
00526          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00527                                                                   DTSBD998
00528      READ MSTA-FILE NEXT.                                         DTSBD998
00529      IF FILE-OK-88                                                DTSBD998
00530          NEXT SENTENCE                                            DTSBD998
00531      ELSE                                                         DTSBD998
00532          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00533                                                                   DTSBD998
00534      DELETE MSTA-FILE RECORD.                                     DTSBD998
00535      IF FILE-OK-88                                                DTSBD998
00536          NEXT SENTENCE                                            DTSBD998
00537      ELSE                                                         DTSBD998
00538          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00539                                                                   DTSBD998
00540      CLOSE MSTA-FILE.                                             DTSBD998
00541      IF FILE-OK-88                                                DTSBD998
00542          NEXT SENTENCE                                            DTSBD998
00543      ELSE                                                         DTSBD998
00544          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00545  P1110-EXIT.                                                      DTSBD998
00546      EXIT.                                                        DTSBD998
00547      EJECT                                                        DTSBD998
00548  P1120-MSTB.                                                      DTSBD998
00549      OPEN OUTPUT MSTB-FILE.                                       DTSBD998
00550      IF FILE-OK-88                                                DTSBD998
00551          NEXT SENTENCE                                            DTSBD998
00552      ELSE                                                         DTSBD998
00553          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00554                                                                   DTSBD998
00555      MOVE LOW-VALUES TO MSTB-REC.                                 DTSBD998
00556                                                                   DTSBD998
00557      WRITE MSTB-REC.                                              DTSBD998
00558      IF FILE-OK-88                                                DTSBD998
00559          NEXT SENTENCE                                            DTSBD998
00560      ELSE                                                         DTSBD998
00561          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00562                                                                   DTSBD998
00563      CLOSE MSTB-FILE.                                             DTSBD998
00564      IF FILE-OK-88                                                DTSBD998
00565          NEXT SENTENCE                                            DTSBD998
00566      ELSE                                                         DTSBD998
00567          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00568                                                                   DTSBD998
00569      OPEN I-O MSTB-FILE.                                          DTSBD998
00570      IF FILE-OK-88                                                DTSBD998
00571          NEXT SENTENCE                                            DTSBD998
00572      ELSE                                                         DTSBD998
00573          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00574                                                                   DTSBD998
00575      READ MSTB-FILE NEXT.                                         DTSBD998
00576      IF FILE-OK-88                                                DTSBD998
00577          NEXT SENTENCE                                            DTSBD998
00578      ELSE                                                         DTSBD998
00579          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00580                                                                   DTSBD998
00581      DELETE MSTB-FILE RECORD.                                     DTSBD998
00582      IF FILE-OK-88                                                DTSBD998
00583          NEXT SENTENCE                                            DTSBD998
00584      ELSE                                                         DTSBD998
00585          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00586                                                                   DTSBD998
00587      CLOSE MSTB-FILE.                                             DTSBD998
00588      IF FILE-OK-88                                                DTSBD998
00589          NEXT SENTENCE                                            DTSBD998
00590      ELSE                                                         DTSBD998
00591          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00592  P1120-EXIT.                                                      DTSBD998
00593      EXIT.                                                        DTSBD998
00594      EJECT                                                        DTSBD998
00595  P1130-MSTC.                                                      DTSBD998
00596      OPEN OUTPUT MSTC-FILE.                                       DTSBD998
00597      IF FILE-OK-88                                                DTSBD998
00598          NEXT SENTENCE                                            DTSBD998
00599      ELSE                                                         DTSBD998
00600          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00601                                                                   DTSBD998
00602      MOVE LOW-VALUES TO MSTC-REC.                                 DTSBD998
00603                                                                   DTSBD998
00604      WRITE MSTC-REC.                                              DTSBD998
00605      IF FILE-OK-88                                                DTSBD998
00606          NEXT SENTENCE                                            DTSBD998
00607      ELSE                                                         DTSBD998
00608          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00609                                                                   DTSBD998
00610      CLOSE MSTC-FILE.                                             DTSBD998
00611      IF FILE-OK-88                                                DTSBD998
00612          NEXT SENTENCE                                            DTSBD998
00613      ELSE                                                         DTSBD998
00614          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00615                                                                   DTSBD998
00616      OPEN I-O MSTC-FILE.                                          DTSBD998
00617      IF FILE-OK-88                                                DTSBD998
00618          NEXT SENTENCE                                            DTSBD998
00619      ELSE                                                         DTSBD998
00620          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00621                                                                   DTSBD998
00622      READ MSTC-FILE NEXT.                                         DTSBD998
00623      IF FILE-OK-88                                                DTSBD998
00624          NEXT SENTENCE                                            DTSBD998
00625      ELSE                                                         DTSBD998
00626          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00627                                                                   DTSBD998
00628      DELETE MSTC-FILE RECORD.                                     DTSBD998
00629      IF FILE-OK-88                                                DTSBD998
00630          NEXT SENTENCE                                            DTSBD998
00631      ELSE                                                         DTSBD998
00632          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00633                                                                   DTSBD998
00634      CLOSE MSTC-FILE.                                             DTSBD998
00635      IF FILE-OK-88                                                DTSBD998
00636          NEXT SENTENCE                                            DTSBD998
00637      ELSE                                                         DTSBD998
00638          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00639  P1130-EXIT.                                                      DTSBD998
00640      EXIT.                                                        DTSBD998
00641      EJECT                                                        DTSBD998
00642  P1131-MSTD.                                                      DTSBD998
00643      OPEN OUTPUT MSTD-FILE.                                       DTSBD998
00644      IF FILE-OK-88                                                DTSBD998
00645          NEXT SENTENCE                                            DTSBD998
00646      ELSE                                                         DTSBD998
00647          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00648                                                                   DTSBD998
00649      MOVE LOW-VALUES TO MSTD-REC.                                 DTSBD998
00650                                                                   DTSBD998
00651      WRITE MSTD-REC.                                              DTSBD998
00652      IF FILE-OK-88                                                DTSBD998
00653          NEXT SENTENCE                                            DTSBD998
00654      ELSE                                                         DTSBD998
00655          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00656                                                                   DTSBD998
00657      CLOSE MSTD-FILE.                                             DTSBD998
00658      IF FILE-OK-88                                                DTSBD998
00659          NEXT SENTENCE                                            DTSBD998
00660      ELSE                                                         DTSBD998
00661          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00662                                                                   DTSBD998
00663      OPEN I-O MSTD-FILE.                                          DTSBD998
00664      IF FILE-OK-88                                                DTSBD998
00665          NEXT SENTENCE                                            DTSBD998
00666      ELSE                                                         DTSBD998
00667          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00668                                                                   DTSBD998
00669      READ MSTD-FILE NEXT.                                         DTSBD998
00670      IF FILE-OK-88                                                DTSBD998
00671          NEXT SENTENCE                                            DTSBD998
00672      ELSE                                                         DTSBD998
00673          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00674                                                                   DTSBD998
00675      DELETE MSTD-FILE RECORD.                                     DTSBD998
00676      IF FILE-OK-88                                                DTSBD998
00677          NEXT SENTENCE                                            DTSBD998
00678      ELSE                                                         DTSBD998
00679          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00680                                                                   DTSBD998
00681      CLOSE MSTD-FILE.                                             DTSBD998
00682      IF FILE-OK-88                                                DTSBD998
00683          NEXT SENTENCE                                            DTSBD998
00684      ELSE                                                         DTSBD998
00685          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00686  P1131-EXIT.                                                      DTSBD998
00687      EXIT.                                                        DTSBD998
00688      EJECT                                                        DTSBD998
00689  P1140-AIX.                                                       DTSBD998
00690      OPEN OUTPUT AIX-FILE.                                        DTSBD998
00691      IF FILE-OK-88                                                DTSBD998
00692          NEXT SENTENCE                                            DTSBD998
00693      ELSE                                                         DTSBD998
00694          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00695                                                                   DTSBD998
00696      MOVE LOW-VALUES TO AIX-REC.                                  DTSBD998
00697                                                                   DTSBD998
00698      WRITE AIX-REC.                                               DTSBD998
00699      IF FILE-OK-88                                                DTSBD998
00700          NEXT SENTENCE                                            DTSBD998
00701      ELSE                                                         DTSBD998
00702          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00703                                                                   DTSBD998
00704      CLOSE AIX-FILE.                                              DTSBD998
00705      IF FILE-OK-88                                                DTSBD998
00706          NEXT SENTENCE                                            DTSBD998
00707      ELSE                                                         DTSBD998
00708          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00709                                                                   DTSBD998
00710      OPEN I-O AIX-FILE.                                           DTSBD998
00711      IF FILE-OK-88                                                DTSBD998
00712          NEXT SENTENCE                                            DTSBD998
00713      ELSE                                                         DTSBD998
00714          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00715                                                                   DTSBD998
00716      READ AIX-FILE NEXT.                                          DTSBD998
00717      IF FILE-OK-88                                                DTSBD998
00718          NEXT SENTENCE                                            DTSBD998
00719      ELSE                                                         DTSBD998
00720          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00721                                                                   DTSBD998
00722      DELETE AIX-FILE RECORD.                                      DTSBD998
00723      IF FILE-OK-88                                                DTSBD998
00724          NEXT SENTENCE                                            DTSBD998
00725      ELSE                                                         DTSBD998
00726          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00727                                                                   DTSBD998
00728      CLOSE AIX-FILE.                                              DTSBD998
00729      IF FILE-OK-88                                                DTSBD998
00730          NEXT SENTENCE                                            DTSBD998
00731      ELSE                                                         DTSBD998
00732          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00733  P1140-EXIT.                                                      DTSBD998
00734      EXIT.                                                        DTSBD998
00735      EJECT                                                        DTSBD998
00736  P1150-REF.                                                       DTSBD998
00737      OPEN OUTPUT REF-FILE.                                        DTSBD998
00738      IF FILE-OK-88                                                DTSBD998
00739          NEXT SENTENCE                                            DTSBD998
00740      ELSE                                                         DTSBD998
00741          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00742                                                                   DTSBD998
00743      MOVE LOW-VALUES TO REF-REC.                                  DTSBD998
00744                                                                   DTSBD998
00745      WRITE REF-REC.                                               DTSBD998
00746      IF FILE-OK-88                                                DTSBD998
00747          NEXT SENTENCE                                            DTSBD998
00748      ELSE                                                         DTSBD998
00749          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00750                                                                   DTSBD998
00751      CLOSE REF-FILE.                                              DTSBD998
00752      IF FILE-OK-88                                                DTSBD998
00753          NEXT SENTENCE                                            DTSBD998
00754      ELSE                                                         DTSBD998
00755          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00756                                                                   DTSBD998
00757      OPEN I-O REF-FILE.                                           DTSBD998
00758      IF FILE-OK-88                                                DTSBD998
00759          NEXT SENTENCE                                            DTSBD998
00760      ELSE                                                         DTSBD998
00761          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00762                                                                   DTSBD998
00763      READ REF-FILE NEXT.                                          DTSBD998
00764      IF FILE-OK-88                                                DTSBD998
00765          NEXT SENTENCE                                            DTSBD998
00766      ELSE                                                         DTSBD998
00767          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00768                                                                   DTSBD998
00769      DELETE REF-FILE RECORD.                                      DTSBD998
00770      IF FILE-OK-88                                                DTSBD998
00771          NEXT SENTENCE                                            DTSBD998
00772      ELSE                                                         DTSBD998
00773          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00774                                                                   DTSBD998
00775      CLOSE REF-FILE.                                              DTSBD998
00776      IF FILE-OK-88                                                DTSBD998
00777          NEXT SENTENCE                                            DTSBD998
00778      ELSE                                                         DTSBD998
00779          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00780  P1150-EXIT.                                                      DTSBD998
00781      EXIT.                                                        DTSBD998
00782      EJECT                                                        DTSBD998
00783  P1160-ATC.                                                       DTSBD998
00784      OPEN OUTPUT ATC-FILE.                                        DTSBD998
00785      IF FILE-OK-88                                                DTSBD998
00786          NEXT SENTENCE                                            DTSBD998
00787      ELSE                                                         DTSBD998
00788          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00789                                                                   DTSBD998
00790      MOVE LOW-VALUES TO ATC-REC.                                  DTSBD998
00791                                                                   DTSBD998
00792      WRITE ATC-REC.                                               DTSBD998
00793      IF FILE-OK-88                                                DTSBD998
00794          NEXT SENTENCE                                            DTSBD998
00795      ELSE                                                         DTSBD998
00796          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00797                                                                   DTSBD998
00798      CLOSE ATC-FILE.                                              DTSBD998
00799      IF FILE-OK-88                                                DTSBD998
00800          NEXT SENTENCE                                            DTSBD998
00801      ELSE                                                         DTSBD998
00802          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00803                                                                   DTSBD998
00804      OPEN I-O ATC-FILE.                                           DTSBD998
00805      IF FILE-OK-88                                                DTSBD998
00806          NEXT SENTENCE                                            DTSBD998
00807      ELSE                                                         DTSBD998
00808          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00809                                                                   DTSBD998
00810      READ ATC-FILE NEXT.                                          DTSBD998
00811      IF FILE-OK-88                                                DTSBD998
00812          NEXT SENTENCE                                            DTSBD998
00813      ELSE                                                         DTSBD998
00814          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00815                                                                   DTSBD998
00816      DELETE ATC-FILE RECORD.                                      DTSBD998
00817      IF FILE-OK-88                                                DTSBD998
00818          NEXT SENTENCE                                            DTSBD998
00819      ELSE                                                         DTSBD998
00820          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00821                                                                   DTSBD998
00822      CLOSE ATC-FILE.                                              DTSBD998
00823      IF FILE-OK-88                                                DTSBD998
00824          NEXT SENTENCE                                            DTSBD998
00825      ELSE                                                         DTSBD998
00826          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00827  P1160-EXIT.                                                      DTSBD998
00828      EXIT.                                                        DTSBD998
00829      EJECT                                                        DTSBD998
00830  P1170-WRK.                                                       DTSBD998
00831      OPEN OUTPUT WRK-FILE.                                        DTSBD998
00832      IF FILE-OK-88                                                DTSBD998
00833          NEXT SENTENCE                                            DTSBD998
00834      ELSE                                                         DTSBD998
00835          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00836                                                                   DTSBD998
00837      MOVE LOW-VALUES TO WRK-REC.                                  DTSBD998
00838                                                                   DTSBD998
00839      WRITE WRK-REC.                                               DTSBD998
00840      IF FILE-OK-88                                                DTSBD998
00841          NEXT SENTENCE                                            DTSBD998
00842      ELSE                                                         DTSBD998
00843          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00844                                                                   DTSBD998
00845      CLOSE WRK-FILE.                                              DTSBD998
00846      IF FILE-OK-88                                                DTSBD998
00847          NEXT SENTENCE                                            DTSBD998
00848      ELSE                                                         DTSBD998
00849          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00850                                                                   DTSBD998
00851      OPEN I-O WRK-FILE.                                           DTSBD998
00852      IF FILE-OK-88                                                DTSBD998
00853          NEXT SENTENCE                                            DTSBD998
00854      ELSE                                                         DTSBD998
00855          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00856                                                                   DTSBD998
00857      READ WRK-FILE NEXT.                                          DTSBD998
00858      IF FILE-OK-88                                                DTSBD998
00859          NEXT SENTENCE                                            DTSBD998
00860      ELSE                                                         DTSBD998
00861          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00862                                                                   DTSBD998
00863      DELETE WRK-FILE RECORD.                                      DTSBD998
00864      IF FILE-OK-88                                                DTSBD998
00865          NEXT SENTENCE                                            DTSBD998
00866      ELSE                                                         DTSBD998
00867          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00868                                                                   DTSBD998
00869      CLOSE WRK-FILE.                                              DTSBD998
00870      IF FILE-OK-88                                                DTSBD998
00871          NEXT SENTENCE                                            DTSBD998
00872      ELSE                                                         DTSBD998
00873          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00874  P1170-EXIT.                                                      DTSBD998
00875      EXIT.                                                        DTSBD998
00876      EJECT                                                        DTSBD998
00877  P1180-OLA.                                                       DTSBD998
00878      OPEN OUTPUT OLA-FILE.                                        DTSBD998
00879      IF FILE-OK-88                                                DTSBD998
00880          NEXT SENTENCE                                            DTSBD998
00881      ELSE                                                         DTSBD998
00882          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00883                                                                   DTSBD998
00884      MOVE +5 TO RSK1-LENGTH.                                      DTSBD998
00885      MOVE '000' TO RSK1-REC-TYPE.                                 DTSBD998
00886      MOVE +3 TO VAR-CHAR-CNT.                                     DTSBD998
00887                                                                   DTSBD998
00888      WRITE RVAR-REC.                                              DTSBD998
00889      IF FILE-OK-88                                                DTSBD998
00890          NEXT SENTENCE                                            DTSBD998
00891      ELSE                                                         DTSBD998
00892          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00893                                                                   DTSBD998
00894      CLOSE OLA-FILE.                                              DTSBD998
00895      IF FILE-OK-88                                                DTSBD998
00896          NEXT SENTENCE                                            DTSBD998
00897      ELSE                                                         DTSBD998
00898          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00899  P1180-EXIT.                                                      DTSBD998
00900      EXIT.                                                        DTSBD998
00901      EJECT                                                        DTSBD998
00902  P1190-MSTE.                                                      DTSBD998
00903      OPEN OUTPUT MSTE-FILE.                                       DTSBD998
00904      IF FILE-OK-88                                                DTSBD998
00905          NEXT SENTENCE                                            DTSBD998
00906      ELSE                                                         DTSBD998
00907          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00908                                                                   DTSBD998
00909      MOVE LOW-VALUES TO MSTE-REC.                                 DTSBD998
00910                                                                   DTSBD998
00911      WRITE MSTE-REC.                                              DTSBD998
00912      IF FILE-OK-88                                                DTSBD998
00913          NEXT SENTENCE                                            DTSBD998
00914      ELSE                                                         DTSBD998
00915          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00916                                                                   DTSBD998
00917      CLOSE MSTE-FILE.                                             DTSBD998
00918      IF FILE-OK-88                                                DTSBD998
00919          NEXT SENTENCE                                            DTSBD998
00920      ELSE                                                         DTSBD998
00921          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00922                                                                   DTSBD998
00923      OPEN I-O MSTE-FILE.                                          DTSBD998
00924      IF FILE-OK-88                                                DTSBD998
00925          NEXT SENTENCE                                            DTSBD998
00926      ELSE                                                         DTSBD998
00927          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00928                                                                   DTSBD998
00929      READ MSTE-FILE NEXT.                                         DTSBD998
00930      IF FILE-OK-88                                                DTSBD998
00931          NEXT SENTENCE                                            DTSBD998
00932      ELSE                                                         DTSBD998
00933          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00934                                                                   DTSBD998
00935      DELETE MSTE-FILE RECORD.                                     DTSBD998
00936      IF FILE-OK-88                                                DTSBD998
00937          NEXT SENTENCE                                            DTSBD998
00938      ELSE                                                         DTSBD998
00939          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00940                                                                   DTSBD998
00941      CLOSE MSTE-FILE.                                             DTSBD998
00942      IF FILE-OK-88                                                DTSBD998
00943          NEXT SENTENCE                                            DTSBD998
00944      ELSE                                                         DTSBD998
00945          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00946  P1190-EXIT.                                                      DTSBD998
00947      EXIT.                                                        DTSBD998
00948      EJECT                                                        DTSBD998
00949  P1200-MSTF.                                                      DTSBD998
00950      OPEN OUTPUT MSTF-FILE.                                       DTSBD998
00951      IF FILE-OK-88                                                DTSBD998
00952          NEXT SENTENCE                                            DTSBD998
00953      ELSE                                                         DTSBD998
00954          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00955                                                                   DTSBD998
00956      MOVE LOW-VALUES TO MSTF-REC.                                 DTSBD998
00957                                                                   DTSBD998
00958      WRITE MSTF-REC.                                              DTSBD998
00959      IF FILE-OK-88                                                DTSBD998
00960          NEXT SENTENCE                                            DTSBD998
00961      ELSE                                                         DTSBD998
00962          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00963                                                                   DTSBD998
00964      CLOSE MSTF-FILE.                                             DTSBD998
00965      IF FILE-OK-88                                                DTSBD998
00966          NEXT SENTENCE                                            DTSBD998
00967      ELSE                                                         DTSBD998
00968          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00969                                                                   DTSBD998
00970      OPEN I-O MSTF-FILE.                                          DTSBD998
00971      IF FILE-OK-88                                                DTSBD998
00972          NEXT SENTENCE                                            DTSBD998
00973      ELSE                                                         DTSBD998
00974          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00975                                                                   DTSBD998
00976      READ MSTF-FILE NEXT.                                         DTSBD998
00977      IF FILE-OK-88                                                DTSBD998
00978          NEXT SENTENCE                                            DTSBD998
00979      ELSE                                                         DTSBD998
00980          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00981                                                                   DTSBD998
00982      DELETE MSTF-FILE RECORD.                                     DTSBD998
00983      IF FILE-OK-88                                                DTSBD998
00984          NEXT SENTENCE                                            DTSBD998
00985      ELSE                                                         DTSBD998
00986          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00987                                                                   DTSBD998
00988      CLOSE MSTF-FILE.                                             DTSBD998
00989      IF FILE-OK-88                                                DTSBD998
00990          NEXT SENTENCE                                            DTSBD998
00991      ELSE                                                         DTSBD998
00992          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
00993  P1200-EXIT.                                                      DTSBD998
00994      EXIT.                                                        DTSBD998
00995                                                                   DTSBD998
00996  P1210-MSTG.                                                      DTSBD998
00997      OPEN OUTPUT MSTG-FILE.                                       DTSBD998
00998      IF FILE-OK-88                                                DTSBD998
00999          NEXT SENTENCE                                            DTSBD998
01000      ELSE                                                         DTSBD998
01001          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01002                                                                   DTSBD998
01003      MOVE LOW-VALUES TO MSTG-REC.                                 DTSBD998
01004                                                                   DTSBD998
01005      WRITE MSTG-REC.                                              DTSBD998
01006      IF FILE-OK-88                                                DTSBD998
01007          NEXT SENTENCE                                            DTSBD998
01008      ELSE                                                         DTSBD998
01009          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01010                                                                   DTSBD998
01011      CLOSE MSTG-FILE.                                             DTSBD998
01012      IF FILE-OK-88                                                DTSBD998
01013          NEXT SENTENCE                                            DTSBD998
01014      ELSE                                                         DTSBD998
01015          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01016                                                                   DTSBD998
01017      OPEN I-O MSTG-FILE.                                          DTSBD998
01018      IF FILE-OK-88                                                DTSBD998
01019          NEXT SENTENCE                                            DTSBD998
01020      ELSE                                                         DTSBD998
01021          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01022                                                                   DTSBD998
01023      READ MSTG-FILE NEXT.                                         DTSBD998
01024      IF FILE-OK-88                                                DTSBD998
01025          NEXT SENTENCE                                            DTSBD998
01026      ELSE                                                         DTSBD998
01027          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01028                                                                   DTSBD998
01029      DELETE MSTG-FILE RECORD.                                     DTSBD998
01030      IF FILE-OK-88                                                DTSBD998
01031          NEXT SENTENCE                                            DTSBD998
01032      ELSE                                                         DTSBD998
01033          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01034                                                                   DTSBD998
01035      CLOSE MSTG-FILE.                                             DTSBD998
01036      IF FILE-OK-88                                                DTSBD998
01037          NEXT SENTENCE                                            DTSBD998
01038      ELSE                                                         DTSBD998
01039          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01040  P1210-EXIT.                                                      DTSBD998
01041      EXIT.                                                        DTSBD998
01042                                                                   DTSBD998
01043  P1220-MSTH.                                                      DTSBD998
01044      OPEN OUTPUT MSTH-FILE.                                       DTSBD998
01045      IF FILE-OK-88                                                DTSBD998
01046          NEXT SENTENCE                                            DTSBD998
01047      ELSE                                                         DTSBD998
01048          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01049                                                                   DTSBD998
01050      MOVE LOW-VALUES TO MSTH-REC.                                 DTSBD998
01051                                                                   DTSBD998
01052      WRITE MSTH-REC.                                              DTSBD998
01053      IF FILE-OK-88                                                DTSBD998
01054          NEXT SENTENCE                                            DTSBD998
01055      ELSE                                                         DTSBD998
01056          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01057                                                                   DTSBD998
01058      CLOSE MSTH-FILE.                                             DTSBD998
01059      IF FILE-OK-88                                                DTSBD998
01060          NEXT SENTENCE                                            DTSBD998
01061      ELSE                                                         DTSBD998
01062          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01063                                                                   DTSBD998
01064      OPEN I-O MSTH-FILE.                                          DTSBD998
01065      IF FILE-OK-88                                                DTSBD998
01066          NEXT SENTENCE                                            DTSBD998
01067      ELSE                                                         DTSBD998
01068          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01069                                                                   DTSBD998
01070      READ MSTH-FILE NEXT.                                         DTSBD998
01071      IF FILE-OK-88                                                DTSBD998
01072          NEXT SENTENCE                                            DTSBD998
01073      ELSE                                                         DTSBD998
01074          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01075                                                                   DTSBD998
01076      DELETE MSTH-FILE RECORD.                                     DTSBD998
01077      IF FILE-OK-88                                                DTSBD998
01078          NEXT SENTENCE                                            DTSBD998
01079      ELSE                                                         DTSBD998
01080          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01081                                                                   DTSBD998
01082      CLOSE MSTH-FILE.                                             DTSBD998
01083      IF FILE-OK-88                                                DTSBD998
01084          NEXT SENTENCE                                            DTSBD998
01085      ELSE                                                         DTSBD998
01086          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01087  P1220-EXIT.                                                      DTSBD998
01088      EXIT.                                                        DTSBD998
01089      EJECT                                                        DTSBD998
01090  P1230-WTC.                                                       DTSBD998
01091      OPEN OUTPUT WTC-FILE.                                        DTSBD998
01092      IF FILE-OK-88                                                DTSBD998
01093          NEXT SENTENCE                                            DTSBD998
01094      ELSE                                                         DTSBD998
01095          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01096                                                                   DTSBD998
01097      MOVE LOW-VALUES TO WTC-REC.                                  DTSBD998
01098      MOVE   ZEROES   TO WSKL-BATCH-NO,                            DTSBD998
01099                         WSKL-ITEM-NO,                             DTSBD998
01100                         WSKL-SEQ-NO.                              DTSBD998
01101      WRITE WTC-REC.                                               DTSBD998
01102      IF FILE-OK-88                                                DTSBD998
01103          NEXT SENTENCE                                            DTSBD998
01104      ELSE                                                         DTSBD998
01105          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01106                                                                   DTSBD998
01107      CLOSE WTC-FILE.                                              DTSBD998
01108      IF FILE-OK-88                                                DTSBD998
01109          NEXT SENTENCE                                            DTSBD998
01110      ELSE                                                         DTSBD998
01111          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01112                                                                   DTSBD998
01113  P1230-EXIT.                                                      DTSBD998
01114      EXIT.                                                        DTSBD998
01115                                                                   DTSBD998
01116  P1240-WGH.                                                       DTSBD998
01117      OPEN OUTPUT WGH-FILE.                                        DTSBD998
01118      IF FILE-OK-88                                                DTSBD998
01119          NEXT SENTENCE                                            DTSBD998
01120      ELSE                                                         DTSBD998
01121          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01122                                                                   DTSBD998
01123      MOVE LOW-VALUES TO WGH-REC.                                  DTSBD998
01124                                                                   DTSBD998
01125      WRITE WGH-REC.                                               DTSBD998
01126      IF FILE-OK-88                                                DTSBD998
01127          NEXT SENTENCE                                            DTSBD998
01128      ELSE                                                         DTSBD998
01129          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01130                                                                   DTSBD998
01131      CLOSE WGH-FILE.                                              DTSBD998
01132      IF FILE-OK-88                                                DTSBD998
01133          NEXT SENTENCE                                            DTSBD998
01134      ELSE                                                         DTSBD998
01135          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01136                                                                   DTSBD998
01137      OPEN I-O WGH-FILE.                                           DTSBD998
01138      IF FILE-OK-88                                                DTSBD998
01139          NEXT SENTENCE                                            DTSBD998
01140      ELSE                                                         DTSBD998
01141          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01142                                                                   DTSBD998
01143      READ WGH-FILE NEXT.                                          DTSBD998
01144      IF FILE-OK-88                                                DTSBD998
01145          NEXT SENTENCE                                            DTSBD998
01146      ELSE                                                         DTSBD998
01147          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01148                                                                   DTSBD998
01149      DELETE WGH-FILE RECORD.                                      DTSBD998
01150      IF FILE-OK-88                                                DTSBD998
01151          NEXT SENTENCE                                            DTSBD998
01152      ELSE                                                         DTSBD998
01153          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01154                                                                   DTSBD998
01155      CLOSE WGH-FILE.                                              DTSBD998
01156      IF FILE-OK-88                                                DTSBD998
01157          NEXT SENTENCE                                            DTSBD998
01158      ELSE                                                         DTSBD998
01159          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01160  P1240-EXIT.                                                      DTSBD998
01161      EXIT.                                                        DTSBD998
01162  P1250-NAM.                                                       DTSBD998
01163      OPEN OUTPUT NAME-FILE.                                       DTSBD998
01164      IF FILE-OK-88                                                DTSBD998
01165          NEXT SENTENCE                                            DTSBD998
01166      ELSE                                                         DTSBD998
01167          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01168                                                                   DTSBD998
01169      MOVE LOW-VALUES TO WNAM-REC.                                 DTSBD998
01170                                                                   DTSBD998
01171      WRITE WNAM-REC.                                              DTSBD998
01172      IF FILE-OK-88                                                DTSBD998
01173          NEXT SENTENCE                                            DTSBD998
01174      ELSE                                                         DTSBD998
01175          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01176                                                                   DTSBD998
01177      CLOSE NAME-FILE.                                             DTSBD998
01178      IF FILE-OK-88                                                DTSBD998
01179          NEXT SENTENCE                                            DTSBD998
01180      ELSE                                                         DTSBD998
01181          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01182                                                                   DTSBD998
01183      OPEN I-O NAME-FILE.                                          DTSBD998
01184      IF FILE-OK-88                                                DTSBD998
01185          NEXT SENTENCE                                            DTSBD998
01186      ELSE                                                         DTSBD998
01187          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01188                                                                   DTSBD998
01189      READ NAME-FILE NEXT.                                         DTSBD998
01190      IF FILE-OK-88                                                DTSBD998
01191          NEXT SENTENCE                                            DTSBD998
01192      ELSE                                                         DTSBD998
01193          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01194                                                                   DTSBD998
01195      DELETE NAME-FILE RECORD.                                     DTSBD998
01196      IF FILE-OK-88                                                DTSBD998
01197          NEXT SENTENCE                                            DTSBD998
01198      ELSE                                                         DTSBD998
01199          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01200                                                                   DTSBD998
01201      CLOSE NAME-FILE.                                             DTSBD998
01202      IF FILE-OK-88                                                DTSBD998
01203          NEXT SENTENCE                                            DTSBD998
01204      ELSE                                                         DTSBD998
01205          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01206  P1250-EXIT.                                                      DTSBD998
01207      EXIT.                                                        DTSBD998
01208      EJECT                                                        DTSBD998
01209  P1260-MSTI.                                                      DTSBD998
01210      OPEN OUTPUT MSTI-FILE.                                       DTSBD998
01211      IF FILE-OK-88                                                DTSBD998
01212          NEXT SENTENCE                                            DTSBD998
01213      ELSE                                                         DTSBD998
01214          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01215                                                                   DTSBD998
01216      MOVE LOW-VALUES TO MSTI-REC.                                 DTSBD998
01217                                                                   DTSBD998
01218      WRITE MSTI-REC.                                              DTSBD998
01219      IF FILE-OK-88                                                DTSBD998
01220          NEXT SENTENCE                                            DTSBD998
01221      ELSE                                                         DTSBD998
01222          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01223                                                                   DTSBD998
01224      CLOSE MSTI-FILE.                                             DTSBD998
01225      IF FILE-OK-88                                                DTSBD998
01226          NEXT SENTENCE                                            DTSBD998
01227      ELSE                                                         DTSBD998
01228          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01229                                                                   DTSBD998
01230      OPEN I-O MSTI-FILE.                                          DTSBD998
01231      IF FILE-OK-88                                                DTSBD998
01232          NEXT SENTENCE                                            DTSBD998
01233      ELSE                                                         DTSBD998
01234          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01235                                                                   DTSBD998
01236      READ MSTI-FILE NEXT.                                         DTSBD998
01237      IF FILE-OK-88                                                DTSBD998
01238          NEXT SENTENCE                                            DTSBD998
01239      ELSE                                                         DTSBD998
01240          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01241                                                                   DTSBD998
01242      DELETE MSTI-FILE RECORD.                                     DTSBD998
01243      IF FILE-OK-88                                                DTSBD998
01244          NEXT SENTENCE                                            DTSBD998
01245      ELSE                                                         DTSBD998
01246          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01247                                                                   DTSBD998
01248      CLOSE MSTI-FILE.                                             DTSBD998
01249      IF FILE-OK-88                                                DTSBD998
01250          NEXT SENTENCE                                            DTSBD998
01251      ELSE                                                         DTSBD998
01252          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01253  P1260-EXIT.                                                      DTSBD998
01254      EXIT.                                                        DTSBD998
01255                                                                   DTSBD998
01256  P1270-WG2.                                                       DTSBD998
01257      OPEN OUTPUT WG2-FILE.                                        DTSBD998
01258      IF FILE-OK-88                                                DTSBD998
01259          NEXT SENTENCE                                            DTSBD998
01260      ELSE                                                         DTSBD998
01261          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01262                                                                   DTSBD998
01263      MOVE LOW-VALUES TO WG2-REC.                                  DTSBD998
01264                                                                   DTSBD998
01265      WRITE WG2-REC.                                               DTSBD998
01266      IF FILE-OK-88                                                DTSBD998
01267          NEXT SENTENCE                                            DTSBD998
01268      ELSE                                                         DTSBD998
01269          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01270                                                                   DTSBD998
01271      CLOSE WG2-FILE.                                              DTSBD998
01272      IF FILE-OK-88                                                DTSBD998
01273          NEXT SENTENCE                                            DTSBD998
01274      ELSE                                                         DTSBD998
01275          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01276                                                                   DTSBD998
01277      OPEN I-O WG2-FILE.                                           DTSBD998
01278      IF FILE-OK-88                                                DTSBD998
01279          NEXT SENTENCE                                            DTSBD998
01280      ELSE                                                         DTSBD998
01281          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01282                                                                   DTSBD998
01283      READ WG2-FILE NEXT.                                          DTSBD998
01284      IF FILE-OK-88                                                DTSBD998
01285          NEXT SENTENCE                                            DTSBD998
01286      ELSE                                                         DTSBD998
01287          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01288                                                                   DTSBD998
01289      DELETE WG2-FILE RECORD.                                      DTSBD998
01290      IF FILE-OK-88                                                DTSBD998
01291          NEXT SENTENCE                                            DTSBD998
01292      ELSE                                                         DTSBD998
01293          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01294                                                                   DTSBD998
01295      CLOSE WG2-FILE.                                              DTSBD998
01296      IF FILE-OK-88                                                DTSBD998
01297          NEXT SENTENCE                                            DTSBD998
01298      ELSE                                                         DTSBD998
01299          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01300  P1270-EXIT.                                                      DTSBD998
01301      EXIT.                                                        DTSBD998
01302      EJECT                                                        DTSBD998
01303  P1280-MSTJ.                                                      DTSBD998
01304      OPEN OUTPUT MSTJ-FILE.                                       DTSBD998
01305      IF FILE-OK-88                                                DTSBD998
01306          NEXT SENTENCE                                            DTSBD998
01307      ELSE                                                         DTSBD998
01308          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01309                                                                   DTSBD998
01310      MOVE LOW-VALUES TO MSTJ-REC.                                 DTSBD998
01311                                                                   DTSBD998
01312      WRITE MSTJ-REC.                                              DTSBD998
01313      IF FILE-OK-88                                                DTSBD998
01314          NEXT SENTENCE                                            DTSBD998
01315      ELSE                                                         DTSBD998
01316          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01317                                                                   DTSBD998
01318      CLOSE MSTJ-FILE.                                             DTSBD998
01319      IF FILE-OK-88                                                DTSBD998
01320          NEXT SENTENCE                                            DTSBD998
01321      ELSE                                                         DTSBD998
01322          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01323                                                                   DTSBD998
01324      OPEN I-O MSTJ-FILE.                                          DTSBD998
01325      IF FILE-OK-88                                                DTSBD998
01326          NEXT SENTENCE                                            DTSBD998
01327      ELSE                                                         DTSBD998
01328          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01329                                                                   DTSBD998
01330      READ MSTJ-FILE NEXT.                                         DTSBD998
01331      IF FILE-OK-88                                                DTSBD998
01332          NEXT SENTENCE                                            DTSBD998
01333      ELSE                                                         DTSBD998
01334          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01335                                                                   DTSBD998
01336      DELETE MSTJ-FILE RECORD.                                     DTSBD998
01337      IF FILE-OK-88                                                DTSBD998
01338          NEXT SENTENCE                                            DTSBD998
01339      ELSE                                                         DTSBD998
01340          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01341                                                                   DTSBD998
01342      CLOSE MSTJ-FILE.                                             DTSBD998
01343      IF FILE-OK-88                                                DTSBD998
01344          NEXT SENTENCE                                            DTSBD998
01345      ELSE                                                         DTSBD998
01346          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01347  P1280-EXIT.                                                      DTSBD998
01348      EXIT.                                                        DTSBD998
01349                                                                   DTSBD998
01350  P1290-ATH.                                                       DTSBD998
01351      OPEN OUTPUT ATH-FILE.                                        DTSBD998
01352      IF FILE-OK-88                                                DTSBD998
01353          NEXT SENTENCE                                            DTSBD998
01354      ELSE                                                         DTSBD998
01355          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01356                                                                   DTSBD998
01357                                                                   DTSBD998
01358      MOVE LOW-VALUES TO ATH-REC.                                  DTSBD998
01359                                                                   DTSBD998
01360      WRITE ATH-REC.                                               DTSBD998
01361      IF FILE-OK-88                                                DTSBD998
01362          NEXT SENTENCE                                            DTSBD998
01363      ELSE                                                         DTSBD998
01364          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01365                                                                   DTSBD998
01366      CLOSE ATH-FILE.                                              DTSBD998
01367      IF FILE-OK-88                                                DTSBD998
01368          NEXT SENTENCE                                            DTSBD998
01369      ELSE                                                         DTSBD998
01370          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01371                                                                   DTSBD998
01372  P1290-EXIT.                                                      DTSBD998
01373      EXIT.                                                        DTSBD998
01374                                                                   DTSBD998
01375 *P1300-CHK.                                                       DTSBD998
01376 *    OPEN OUTPUT CHK-FILE.                                        DTSBD998
01377 *    IF FILE-OK-88                                                DTSBD998
01378 *        NEXT SENTENCE                                            DTSBD998
01379 *    ELSE                                                         DTSBD998
01380 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01381 *                                                                 DTSBD998
01382 *    MOVE LOW-VALUES TO CHK-REC.                                  DTSBD998
01383 *                                                                 DTSBD998
01384 *    WRITE CHK-REC.                                               DTSBD998
01385 *    IF FILE-OK-88                                                DTSBD998
01386 *        NEXT SENTENCE                                            DTSBD998
01387 *    ELSE                                                         DTSBD998
01388 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01389 *                                                                 DTSBD998
01390 *    CLOSE CHK-FILE.                                              DTSBD998
01391 *    IF FILE-OK-88                                                DTSBD998
01392 *        NEXT SENTENCE                                            DTSBD998
01393 *    ELSE                                                         DTSBD998
01394 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01395 *                                                                 DTSBD998
01396 *    OPEN I-O CHK-FILE.                                           DTSBD998
01397 *    IF FILE-OK-88                                                DTSBD998
01398 *        NEXT SENTENCE                                            DTSBD998
01399 *    ELSE                                                         DTSBD998
01400 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01401 *                                                                 DTSBD998
01402 *    READ CHK-FILE NEXT.                                          DTSBD998
01403 *    IF FILE-OK-88                                                DTSBD998
01404 *        NEXT SENTENCE                                            DTSBD998
01405 *    ELSE                                                         DTSBD998
01406 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01407 *                                                                 DTSBD998
01408 *    DELETE CHK-FILE RECORD.                                      DTSBD998
01409 *    IF FILE-OK-88                                                DTSBD998
01410 *        NEXT SENTENCE                                            DTSBD998
01411 *    ELSE                                                         DTSBD998
01412 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01413 *                                                                 DTSBD998
01414 *    CLOSE CHK-FILE.                                              DTSBD998
01415 *    IF FILE-OK-88                                                DTSBD998
01416 *        NEXT SENTENCE                                            DTSBD998
01417 *    ELSE                                                         DTSBD998
01418 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01419 *P1300-EXIT.                                                      DTSBD998
01420 *    EXIT.                                                        DTSBD998
01421                                                                   DTSBD998
01422  P1310-WG3.                                                       DTSBD998
01423      OPEN OUTPUT WG3-FILE.                                        DTSBD998
01424      IF FILE-OK-88                                                DTSBD998
01425          NEXT SENTENCE                                            DTSBD998
01426      ELSE                                                         DTSBD998
01427          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01428                                                                   DTSBD998
01429      MOVE LOW-VALUES TO WG3-REC.                                  DTSBD998
01430                                                                   DTSBD998
01431      WRITE WG3-REC.                                               DTSBD998
01432      IF FILE-OK-88                                                DTSBD998
01433          NEXT SENTENCE                                            DTSBD998
01434      ELSE                                                         DTSBD998
01435          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01436                                                                   DTSBD998
01437      CLOSE WG3-FILE.                                              DTSBD998
01438      IF FILE-OK-88                                                DTSBD998
01439          NEXT SENTENCE                                            DTSBD998
01440      ELSE                                                         DTSBD998
01441          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01442                                                                   DTSBD998
01443      OPEN I-O WG3-FILE.                                           DTSBD998
01444      IF FILE-OK-88                                                DTSBD998
01445          NEXT SENTENCE                                            DTSBD998
01446      ELSE                                                         DTSBD998
01447          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01448                                                                   DTSBD998
01449      READ WG3-FILE NEXT.                                          DTSBD998
01450      IF FILE-OK-88                                                DTSBD998
01451          NEXT SENTENCE                                            DTSBD998
01452      ELSE                                                         DTSBD998
01453          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01454                                                                   DTSBD998
01455      DELETE WG3-FILE RECORD.                                      DTSBD998
01456      IF FILE-OK-88                                                DTSBD998
01457          NEXT SENTENCE                                            DTSBD998
01458      ELSE                                                         DTSBD998
01459          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01460                                                                   DTSBD998
01461      CLOSE WG3-FILE.                                              DTSBD998
01462      IF FILE-OK-88                                                DTSBD998
01463          NEXT SENTENCE                                            DTSBD998
01464      ELSE                                                         DTSBD998
01465          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01466  P1310-EXIT.                                                      DTSBD998
01467      EXIT.                                                        DTSBD998
01468                                                                   DTSBD998
01469  P1320-ITM.                                                       DTSBD998
01470      OPEN OUTPUT ITM-FILE.                                        DTSBD998
01471      IF FILE-OK-88                                                DTSBD998
01472          NEXT SENTENCE                                            DTSBD998
01473      ELSE                                                         DTSBD998
01474          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01475                                                                   DTSBD998
01476      MOVE LOW-VALUES TO ITM-REC.                                  DTSBD998
01477                                                                   DTSBD998
01478      WRITE ITM-REC.                                               DTSBD998
01479      IF FILE-OK-88                                                DTSBD998
01480          NEXT SENTENCE                                            DTSBD998
01481      ELSE                                                         DTSBD998
01482          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01483                                                                   DTSBD998
01484      CLOSE ITM-FILE.                                              DTSBD998
01485      IF FILE-OK-88                                                DTSBD998
01486          NEXT SENTENCE                                            DTSBD998
01487      ELSE                                                         DTSBD998
01488          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01489                                                                   DTSBD998
01490      OPEN I-O ITM-FILE.                                           DTSBD998
01491      IF FILE-OK-88                                                DTSBD998
01492          NEXT SENTENCE                                            DTSBD998
01493      ELSE                                                         DTSBD998
01494          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01495                                                                   DTSBD998
01496      READ ITM-FILE NEXT.                                          DTSBD998
01497      IF FILE-OK-88                                                DTSBD998
01498          NEXT SENTENCE                                            DTSBD998
01499      ELSE                                                         DTSBD998
01500          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01501                                                                   DTSBD998
01502      DELETE ITM-FILE RECORD.                                      DTSBD998
01503      IF FILE-OK-88                                                DTSBD998
01504          NEXT SENTENCE                                            DTSBD998
01505      ELSE                                                         DTSBD998
01506          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01507                                                                   DTSBD998
01508      CLOSE ITM-FILE.                                              DTSBD998
01509      IF FILE-OK-88                                                DTSBD998
01510          NEXT SENTENCE                                            DTSBD998
01511      ELSE                                                         DTSBD998
01512          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD998
01513  P1320-EXIT.                                                      DTSBD998
01514      EXIT.                                                        DTSBD998
01515                                                                   DTSBD998
01516  T1000-TERMINATE.                                                 DTSBD998
01517  T1000-EXIT.                                                      DTSBD998
01518      EXIT.                                                        DTSBD998
01519      EJECT                                                        DTSBD998
01520  S999-ABEND.                                                      DTSBD998
01521      DISPLAY '*** FILE INITIALIZATION (DTSBD998) ABEND'           DTSBD998
01522      DISPLAY '*** FILE STATUS = ' FILE-STATUS.                    DTSBD998
01523                                                                   DTSBD998
01524      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD998
01525  S999-EXIT.                                                       DTSBD998
01526      EXIT.                                                        DTSBD998
