00001  IDENTIFICATION DIVISION.                                         08/16/24
00002  PROGRAM-ID.             DTSBS414.                                DTSBS414
00003  AUTHOR.                 SRUJANI                                     LV166
00004  DATE-WRITTEN.           AUG2024                                     CL155
00005  DATE-COMPILED.                                                   DTSBS414
00006      SKIP3                                                        DTSBS414
00007 *****                                                             DTSBS414
00008 *                                                                 DTSBS414
00009 *    FUNCTION:  ADD EVENT LOG FOR NEW ACCOUNT REGISTRATION           CL156
00010 *                                                                 DTSBS414
00011 *                                                                 DTSBS414
00012 *****                                                             DTSBS414
00013      SKIP3                                                        DTSBS414
00014  ENVIRONMENT DIVISION.                                            DTSBS414
00015      SKIP2                                                        DTSBS414
00016  CONFIGURATION SECTION.                                           DTSBS414
00017  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBS414
00018                                                                   DTSBS414
00019  INPUT-OUTPUT SECTION.                                            DTSBS414
00020                                                                   DTSBS414
00021  FILE-CONTROL.                                                    DTSBS414
00022      SELECT EMP-FILE1 ASSIGN TO EMPFILE1                             CL122
00023             FILE STATUS IS EXP-STATUS.                            DTSBS414
00024                                                                   DTSBS414
00025                                                                      CL*71
00026  DATA DIVISION.                                                   DTSBS414
00027                                                                   DTSBS414
00028  FILE SECTION.                                                    DTSBS414
00029                                                                   DTSBS414
00030  FD  EMP-FILE1                                                       CL122
00031      RECORDING MODE IS F.                                         DTSBS414
00032  01  EMP-REC1.                                                       CL122
00033      05  IREC-TYPE           PIC  X(03).                             CL158
00034      05  FILLER              PIC  X(01) VALUE ','.                   CL158
00035      05  IEMP-NO             PIC  9(06).                             CL158
00036      05  FILLER              PIC  X(01) VALUE ','.                   CL158
00037      05  IEMP-FEIN           PIC  9(09).                             CL158
00038      05  FILLER              PIC  X(01) VALUE ','.                   CL158
00039      05  IEMP-CLASS          PIC  X(01).                             CL162
00040      05  FILLER              PIC  X(01) VALUE ','.                   CL162
00041      05  IEMP-STATUS         PIC  X(01).                             CL162
00042      05  FILLER              PIC  X(01) VALUE ','.                   CL162
00043      05  ISOURCE-CD          PIC  X(02).                             CL162
00044      05  FILLER              PIC  X(01) VALUE ','.                   CL162
00045      05  IACTION-CD          PIC  X(01).                             CL162
00046      EJECT                                                           CL158
00047  WORKING-STORAGE SECTION.                                         DTSBS414
000475 77  PAN-VALET PICTURE X(24) VALUE '166DTSBS414  08/16/24'.       DTSBS414
00048      SKIP3                                                        DTSBS414
00049  01  WRK-AREA.                                                    DTSBS414
00050      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +400.DTSBS414
00051                                                                   DTSBS414
00052      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD400'.DTSBS414
00053                                                                   DTSBS414
00054      05  WRK-MPRF-IND                PIC  X(01).                  DTSBS414
00055          88 WRK-MPRF-OK           VALUE 'Y'.                      DTSBS414
00056          88 WRK-MPRF-NO-REC       VALUE 'N'.                      DTSBS414
00057      05  WRK-MEVL-IND                PIC  X(01).                  DTSBS414
00058          88 WRK-MEVL-OK           VALUE 'Y'.                      DTSBS414
00059          88 WRK-MEVL-NO-REC       VALUE 'N'.                      DTSBS414
00060      05  WRK-ERROR-IND               PIC  X(01).                     CL*31
00061          88  WRK-ERROR-YES-88         VALUE 'Y'.                     CL*31
00062          88  WRK-ERROR-NO-88          VALUE 'N'.                     CL*31
00063 *RW1                                                              DTSBS414
00064      05  EXP-STATUS                  PIC  X(02).                     CL*15
00065          88  EXP-STATUS-OK-88         VALUE '00'.                    CL*15
00066                                                                      CL*15
00067      05  WRK-BAL                  PIC 9(09)V9(02).                   CL*77
00068      05  FILE-END                 PIC  X(01) VALUE 'N'.              CL*23
00069      05  WRK-ABEND-MSG            PIC  X(60)  VALUE SPACES.       DTSBS414
00070      05  FIRST-TIME-IND           PIC  X(01)  VALUE 'Y'.          DTSBS414
00071      05  WS-NUMBER-ONE            PIC S9(05)  COMP-3 VALUE +0.    DTSBS414
00072      05  WRK-TRACE-IND            PIC  X(01).                        CL*28
00073                                                                      CL136
00074      05  WRK-MESS-LINE-1.                                            CL*10
00075          10 FILLER                PIC X(43) VALUE                    CL165
00076          'MINI CONVERSION - REGISTRATION SENT TO ESSP'.              CL164
00077                                                                      CL160
00078      05  EVL-TEXT                        PIC  X(50).                 CL**9
00079 *                                                                    CL190
00080 *RW2                                                              DTSBS414
00081                                                                   DTSBS414
00082  01  TSKL-REC.                                                       CL183
00083  ++INCLUDE DTSITSKL                                                  CL183
00084      EJECT                                                           CL183
00085  01  T003-REC.                                                       CL183
00086  ++INCLUDE DTSIT003                                                  CL183
00087      EJECT                                                           CL183
00088  01  L001-LINK-AREA.                                              DTSBS414
00089  ++INCLUDE DTSIL001                                               DTSBS414
00090      EJECT                                                        DTSBS414
00091  01  L005-LINK-AREA.                                                 CL157
00092  ++INCLUDE DTSIL005                                               DTSBS414
00093      EJECT                                                        DTSBS414
00094  01  L039-LINK-AREA.                                              DTSBS414
00095  ++INCLUDE DTSIL039                                               DTSBS414
00096      EJECT                                                        DTSBS414
00097  01  L101-LINK-AREA.                                                 CL*23
00098  ++INCLUDE DTSIL101                                                  CL*23
00099      EJECT                                                        DTSBS414
00100  01  L102-LINK-AREA.                                                 CL*23
00101  ++INCLUDE DTSIL102                                                  CL*23
00102      EJECT                                                           CL*23
00103  01  L109-LINK-AREA.                                                 CL*23
00104  ++INCLUDE DTSIL109                                                  CL*23
00105                                                                      CL*23
00106  01  L054-LINK-AREA.                                              DTSBS414
00107  ++INCLUDE DTSIL054                                               DTSBS414
00108      EJECT                                                        DTSBS414
00109  01  L410-LINK-AREA.                                              DTSBS414
00110  ++INCLUDE DTSIL410                                               DTSBS414
00111      EJECT                                                        DTSBS414
00112  01  L600-LINK-AREA.                                              DTSBS414
00113  ++INCLUDE DTSIL600                                               DTSBS414
00114      EJECT                                                        DTSBS414
00115  01  L910-LINK-AREA.                                              DTSBS414
00116  ++INCLUDE DTSIL910                                               DTSBS414
00117      EJECT                                                        DTSBS414
00118  01  MSKL-REC.                                                    DTSBS414
00119  ++INCLUDE DTSIMSKL                                               DTSBS414
00120      EJECT                                                        DTSBS414
00121  01  MNTE-REC.                                                       CL183
00122  ++INCLUDE DTSIMNTE                                                  CL183
00123      EJECT                                                           CL183
00124  01  MHDR-REC.                                                    DTSBS414
00125  ++INCLUDE DTSIMHDR                                               DTSBS414
00126      EJECT                                                        DTSBS414
00127  01  MPRF-REC.                                                       CL164
00128  ++INCLUDE DTSIMPRF                                                  CL164
00129      EJECT                                                           CL164
00130  01  MQTR-REC.                                                    DTSBS414
00131  ++INCLUDE DTSIMQTR                                               DTSBS414
00132      EJECT                                                        DTSBS414
00133  01  MRPT-REC.                                                    DTSBS414
00134  ++INCLUDE DTSIMRPT                                               DTSBS414
00135      EJECT                                                        DTSBS414
00136  01  MSOL-REC.                                                    DTSBS414
00137  ++INCLUDE DTSIMSOL                                               DTSBS414
00138      EJECT                                                        DTSBS414
00139  01  MRCT-REC.                                                    DTSBS414
00140  ++INCLUDE DTSIMRCT                                               DTSBS414
00141      EJECT                                                        DTSBS414
00142  01  MREL-REC.                                                    DTSBS414
00143  ++INCLUDE DTSIMREL                                               DTSBS414
00144      EJECT                                                        DTSBS414
00145  01  MEVL-REC.                                                    DTSBS414
00146  ++INCLUDE DTSIMEVL                                               DTSBS414
00147      EJECT                                                        DTSBS414
00148  01  MLIN-REC.                                                    DTSBS414
00149  ++INCLUDE DTSIMLIN                                               DTSBS414
00150      EJECT                                                        DTSBS414
00151  01  MRTE-REC.                                                    DTSBS414
00152  ++INCLUDE DTSIMRTE                                               DTSBS414
00153      EJECT                                                        DTSBS414
00154  01  MDST-REC.                                                    DTSBS414
00155  ++INCLUDE DTSIMDST                                               DTSBS414
00156      EJECT                                                        DTSBS414
00157  01  MPAY-REC.                                                    DTSBS414
00158  ++INCLUDE DTSIMPAY                                               DTSBS414
00159      EJECT                                                        DTSBS414
00160  01  MADJ-REC.                                                    DTSBS414
00161  ++INCLUDE DTSIMADJ                                               DTSBS414
00162      EJECT                                                        DTSBS414
00163  01  MJRN-REC.                                                    DTSBS414
00164  ++INCLUDE DTSIMJRN                                               DTSBS414
00165      EJECT                                                        DTSBS414
00166  01  MERA-REC.                                                    DTSBS414
00167  ++INCLUDE DTSIMERA                                               DTSBS414
00168      EJECT                                                        DTSBS414
00169  01  MCOL-REC.                                                    DTSBS414
00170  ++INCLUDE DTSIMCOL                                               DTSBS414
00171      EJECT                                                        DTSBS414
00172  01  MFAS-REC.                                                    DTSBS414
00173  ++INCLUDE DTSIMFAS                                               DTSBS414
00174  01  MAUR-REC.                                                    DTSBS414
00175  ++INCLUDE DTSIMAUR                                               DTSBS414
00176      EJECT                                                        DTSBS414
00177  01  MFAE-REC.                                                    DTSBS414
00178  ++INCLUDE DTSIMFAE                                               DTSBS414
00179      EJECT                                                        DTSBS414
00180  01  MLOG-REC.                                                    DTSBS414
00181  ++INCLUDE DTSIMLOG                                               DTSBS414
00182      EJECT                                                        DTSBS414
00183  01  MOPO-REC.                                                    DTSBS414
00184  ++INCLUDE DTSIMOPO                                               DTSBS414
00185      EJECT                                                        DTSBS414
00186  01  MTAD-REC.                                                    DTSBS414
00187  ++INCLUDE DTSIMTAD                                               DTSBS414
00188      EJECT                                                        DTSBS414
00189  01  MTAA-REC.                                                    DTSBS414
00190  ++INCLUDE DTSIMTAA                                               DTSBS414
00191      EJECT                                                        DTSBS414
00192  01  MBAA-REC.                                                    DTSBS414
00193  ++INCLUDE DTSIMBAA                                               DTSBS414
00194      EJECT                                                        DTSBS414
00195  01  MFSC-REC.                                                    DTSBS414
00196  ++INCLUDE DTSIMFSC                                               DTSBS414
00197      EJECT                                                        DTSBS414
00198  01  MERD-REC.                                                    DTSBS414
00199  ++INCLUDE DTSIMERD                                               DTSBS414
00200      EJECT                                                        DTSBS414
00201  01  MDPC-REC.                                                    DTSBS414
00202  ++INCLUDE DTSIMDPC                                               DTSBS414
00203      EJECT                                                        DTSBS414
00204  01  L921-LINK-AREA.                                              DTSBS414
00205  ++INCLUDE DTSIL921                                               DTSBS414
00206      EJECT                                                        DTSBS414
00207  01  ISKL-REC.                                                    DTSBS414
00208  ++INCLUDE DTSIISKL                                               DTSBS414
00209      EJECT                                                        DTSBS414
00210  01  IPES-REC.                                                    DTSBS414
00211  ++INCLUDE DTSIIPES                                               DTSBS414
00212      EJECT                                                        DTSBS414
00213  01  L931-LINK-AREA.                                              DTSBS414
00214  ++INCLUDE DTSIL931                                               DTSBS414
00215      EJECT                                                        DTSBS414
00216  01  FSKL-REC.                                                    DTSBS414
00217  ++INCLUDE DTSIFSKL                                               DTSBS414
00218      EJECT                                                        DTSBS414
00219  01  FQTR-REC.                                                    DTSBS414
00220  ++INCLUDE DTSIFQTR                                               DTSBS414
00221      EJECT                                                        DTSBS414
00222  01  FFIS-REC.                                                    DTSBS414
00223  ++INCLUDE DTSIFFIS                                               DTSBS414
00224      EJECT                                                        DTSBS414
00225  01  FFAZ-REC.                                                    DTSBS414
00226  ++INCLUDE DTSIFFAZ                                               DTSBS414
00227      EJECT                                                        DTSBS414
00228  01  FOPR-REC.                                                    DTSBS414
00229  ++INCLUDE DTSIFOPR                                               DTSBS414
00230      EJECT                                                        DTSBS414
00231  01  L933-LINK-AREA.                                              DTSBS414
00232  ++INCLUDE DTSIL933                                               DTSBS414
00233      EJECT                                                        DTSBS414
00234  01  XSIC-REC.                                                    DTSBS414
00235  ++INCLUDE DTSIXSIC                                               DTSBS414
00236      EJECT                                                        DTSBS414
00237  01  L004-COMM-AREA.                                              DTSBS414
00238  ++INCLUDE DTSIL004                                               DTSBS414
00239                                                                   DTSBS414
00240  01  L061-LINK-AREA.                                              DTSBS414
00241  ++INCLUDE DTSIL061                                               DTSBS414
00242                                                                   DTSBS414
00243  01  L062-LINK-AREA.                                              DTSBS414
00244  ++INCLUDE DTSIL062                                               DTSBS414
00245                                                                   DTSBS414
00246  01  L516-LINK-AREA.                                              DTSBS414
00247  ++INCLUDE DTSIL516                                               DTSBS414
00248      EJECT                                                        DTSBS414
00249  01  LBCM-LINK-AREA.                                                 CL173
00250  ++INCLUDE DTSILBCM                                                  CL173
00251      EJECT                                                           CL154
00252  01  L923-LINK-AREA.                                                 CL183
00253  ++INCLUDE DTSIL923                                                  CL183
00254      EJECT                                                           CL183
00255  01  ASKL-REC.                                                       CL183
00256  ++INCLUDE DTSIASKL                                                  CL183
00257      EJECT                                                           CL183
00258  01  AHDR-REC.                                                       CL183
00259  ++INCLUDE DTSIAHDR                                                  CL183
00260      EJECT                                                           CL183
00261  01  AADJ-REC.                                                       CL183
00262  ++INCLUDE DTSIAADJ                                                  CL183
00263      EJECT                                                           CL183
00264  01  L927-LINK-AREA.                                                 CL183
00265  ++INCLUDE DTSIL927                                                  CL183
00266      EJECT                                                           CL183
00267  PROCEDURE DIVISION.                                                 CL173
00268                                                                      CL164
00269      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBS414
00270         PERFORM P0000-PROCESS THRU P0000-EXIT                     DTSBS414
00271                 UNTIL FILE-END = 'Y'.                                CL*17
00272         PERFORM T0000-TERMINATE THRU T0000-EXIT.                  DTSBS414
00273      SKIP2                                                        DTSBS414
00274      GOBACK.                                                      DTSBS414
00275      EJECT                                                        DTSBS414
00276  I0000-INITIATE.                                                  DTSBS414
00277      SKIP2                                                        DTSBS414
00278      MOVE 'N' TO WRK-TRACE-IND.                                   DTSBS414
00279      SET WRK-ERROR-NO-88 TO TRUE.                                 DTSBS414
00280                                                                   DTSBS414
00281      PERFORM I2000-OPEN-FILES-1        THRU I2000-EXIT.           DTSBS414
00282                                                                   DTSBS414
00283                                                                      CL120
00284  I0000-EXIT.                                                      DTSBS414
00285      EXIT.                                                        DTSBS414
00286  I2000-OPEN-FILES-1.                                              DTSBS414
00287      OPEN INPUT  EMP-FILE1.                                          CL120
00288      IF NOT EXP-STATUS-OK-88                                      DTSBS414
00289         DISPLAY 'CANNOT OPEN EXP FILE ' EXP-STATUS                DTSBS414
00290         SET WRK-ERROR-YES-88 TO TRUE                              DTSBS414
00291         GO TO I2000-EXIT.                                         DTSBS414
00292      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSBS414
00293                                                                   DTSBS414
00294      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBS414
00295                                                                   DTSBS414
00296      PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT.                 CL*40
00297 *    PERFORM S923-OPEN-UPDATE THRU S923-EXIT.                        CL*85
00298 *    PERFORM S927-OPEN-UPDATE         THRU S927-EXIT.                CL*25
00299                                                                   DTSBS414
00300      PERFORM S005-FROM-SYS             THRU S005-EXIT.               CL187
00301                                                                   DTSBS414
00302 *    PERFORM S931-OPEN-UPDATE THRU S931-EXIT.                        CL*85
00303                                                                   DTSBS414
00304      MOVE WRK-MOD-NAME TO L933-MOD-NAME.                          DTSBS414
00305                                                                   DTSBS414
00306      MOVE 'N' TO FILE-END.                                           CL*24
00307                                                                      CL*89
00308      READ EMP-FILE1 AT END MOVE 'Y' TO FILE-END.                     CL*88
00309                                                                      CL*89
00310                                                                      CL*89
00311  I2000-EXIT.                                                      DTSBS414
00312      EXIT.                                                        DTSBS414
00313                                                                   DTSBS414
00314  P0000-PROCESS.                                                   DTSBS414
00315                                                                      CL*88
00316      DISPLAY IEMP-NO                                                 CL*36
00317      PERFORM S6000-WRITE-MEVL THRU S6000-EXIT.                       CL228
00318                                                                      CL209
00319      PERFORM P1000-READ-NEXT THRU P1000-EXIT.                        CL135
00320                                                                      CL*89
00321  P0000-EXIT.                                                         CL119
00322      EXIT.                                                        DTSBS414
00323                                                                   DTSBS414
00324  P1000-READ-NEXT.                                                    CL*88
00325      READ EMP-FILE1 AT END                                           CL*91
00326         MOVE 'Y' TO FILE-END                                         CL*90
00327         GO TO P1000-EXIT.                                            CL*88
00328  P1000-EXIT.                                                         CL*88
00329      EXIT.                                                           CL*88
00330                                                                      CL*88
00331  S6000-WRITE-MEVL.                                                   CL154
00332      MOVE LOW-VALUES TO MEVL-REC.                                    CL165
00333                                                                      CL173
00334      MOVE ZERO TO LBCM-EMP-ABSTIME.                                  CL173
00335      MOVE IEMP-NO TO MEVL-EMP-NO.                                    CL209
00336                                                                      CL*62
00337      SET MEVL-EVL-88 TO TRUE.                                        CL165
00338                                                                      CL154
00339      PERFORM S005-FROM-SYS THRU S005-A-EXIT.                         CL217
00340      MOVE L005-DATE TO MEVL-DATE.                                    CL181
00341                                                                      CL154
00342      MOVE L005-TIME TO MEVL-TIME.                                    CL181
00343                                                                      CL154
00344      MOVE ZEROS TO MEVL-PURGE-DATE.                                  CL154
00345                                                                      CL154
00346      MOVE WRK-MESS-LINE-1 TO EVL-TEXT                                CL160
00347      MOVE EVL-TEXT TO MEVL-TEXT.                                     CL209
00348      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                              CL209
00349                                                                      CL154
00350      SET MEVL-NOT-CONVERTED-88 TO TRUE.                              CL154
00351 **   MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE                       CL*39
00352      DISPLAY MEVL-REC.                                               CL242
00353      MOVE MEVL-REC TO MSKL-REC.                                      CL242
00354                                                                      CL154
00355      PERFORM S910-WRITE THRU S910-EXIT.                              CL154
00356  S6000-EXIT.                                                         CL154
00357      EXIT.                                                           CL154
00358      EJECT                                                           CL154
00359                                                                      CL*95
00360      SKIP3                                                           CL183
00361  T0000-TERMINATE.                                                 DTSBS414
00362                                                                   DTSBS414
00363      DISPLAY ' '.                                                 DTSBS414
00364                                                                   DTSBS414
00365      DISPLAY '*** DTSBZEVL TERMINATION STATISTICS ***'.              CL154
00366                                                                   DTSBS414
00367      DISPLAY ' '.                                                 DTSBS414
00368                                                                   DTSBS414
00369                                                                      CL123
00370      CLOSE EMP-FILE1.                                                CL123
00371                                                                   DTSBS414
00372  T0000-EXIT.                                                      DTSBS414
00373      EXIT.                                                        DTSBS414
00374      EJECT                                                        DTSBS414
00375  S001-FROM-FED-8.                                                 DTSBS414
00376      SET L001-FROM-FED-8 TO TRUE.                                 DTSBS414
00377      GO TO S001-DATE.                                             DTSBS414
00378                                                                   DTSBS414
00379  S001-FROM-ABS-DAY.                                               DTSBS414
00380      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBS414
00381      GO TO S001-DATE.                                             DTSBS414
00382                                                                   DTSBS414
00383  S001-DATE.                                                       DTSBS414
00384      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBS414
00385                                                                   DTSBS414
00386  S001-EXIT.                                                       DTSBS414
00387      EXIT.                                                        DTSBS414
00388      SKIP3                                                        DTSBS414
00389  S004-FROM-5.                                                     DTSBS414
00390      SET L004-FROM-5     TO TRUE.                                 DTSBS414
00391      GO TO S004-EDIT-QTR.                                         DTSBS414
00392                                                                   DTSBS414
00393  S004-FROM-ABS.                                                   DTSBS414
00394      SET L004-FROM-ABS   TO TRUE.                                 DTSBS414
00395      GO TO S004-EDIT-QTR.                                         DTSBS414
00396                                                                   DTSBS414
00397  S004-EDIT-QTR.                                                   DTSBS414
00398      CALL 'DTSBU004' USING L004-COMM-AREA.                        DTSBS414
00399                                                                   DTSBS414
00400  S004-EXIT.                                                       DTSBS414
00401      EXIT.                                                        DTSBS414
00402      SKIP3                                                        DTSBS414
00403                                                                   DTSBS414
00404  S005-FROM-SYS.                                                      CL187
00405      SET L005-FROM-SYS   TO TRUE.                                    CL187
00406      CALL 'DTSBU005' USING L005-LINK-AREA.                           CL187
00407                                                                      CL187
00408  S005-EXIT.                                                          CL187
00409      EXIT.                                                           CL187
00410                                                                      CL187
00411  S005-FROM-ABSTIME.                                                  CL156
00412      SET L005-FROM-ABSTIME TO TRUE.                                  CL156
00413      GO TO S005-ABSTIME.                                             CL156
00414                                                                      CL156
00415  S005-ABSTIME.                                                       CL156
00416      CALL 'DTSBU005' USING L005-LINK-AREA.                           CL156
00417  S005-A-EXIT.                                                        CL156
00418      EXIT.                                                           CL156
00419      SKIP3                                                           CL156
00420  S910-WRITE.                                                         CL156
00421      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                             CL173
00422      SET L910-WRITE-88 TO TRUE.                                      CL156
00423      GO TO S910-MSTR-IO.                                             CL156
00424  S039-SIC-EDIT.                                                   DTSBS414
00425      CALL 'DTSBU039' USING L039-LINK-AREA.                        DTSBS414
00426  S039-EXIT.                                                       DTSBS414
00427      EXIT.                                                        DTSBS414
00428                                                                   DTSBS414
00429  S054-RATE-DETERMINATION.                                         DTSBS414
00430      CALL 'DTSBU054' USING L054-LINK-AREA                         DTSBS414
00431                            MRCT-REC.                              DTSBS414
00432                                                                   DTSBS414
00433  S054-EXIT.                                                       DTSBS414
00434      EXIT.                                                        DTSBS414
00435      SKIP3                                                        DTSBS414
00436  S061-FLD-REP-INFO.                                               DTSBS414
00437      SKIP1                                                        DTSBS414
00438      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBS414
00439      SKIP2                                                        DTSBS414
00440  S061-EXIT.                                                       DTSBS414
00441      EXIT.                                                        DTSBS414
00442                                                                   DTSBS414
00443  S062-FLD-REP-LOOKUP.                                             DTSBS414
00444                                                                   DTSBS414
00445      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBS414
00446                                                                   DTSBS414
00447  S062-EXIT.                                                       DTSBS414
00448      EXIT.                                                        DTSBS414
00449                                                                   DTSBS414
00450  S101-PER-MONTH-NO.                                                  CL*23
00451      SET L101-PER-MONTH-NO-88 TO TRUE.                               CL*23
00452      GO TO S101-INT-CHARGE.                                          CL*23
00453                                                                      CL*23
00454  S101-INT-CHARGE.                                                    CL*23
00455      CALL 'DTSBU101' USING L101-LINK-AREA.                           CL*23
00456  S101-EXIT.                                                          CL*23
00457      EXIT.                                                           CL*23
00458                                                                      CL*23
00459  S109-FIRST-PEN-INT-YRQ.                                             CL*23
00460      SET L109-CMND-PEN-INT-QTR-88 TO TRUE.                           CL*23
00461      CALL 'DTSBU109' USING L109-LINK-AREA.                           CL*23
00462  S109-EXIT.                                                          CL*23
00463      EXIT.                                                           CL*23
00464                                                                      CL*23
00465  S410-FILING-SCHED.                                               DTSBS414
00466      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBS414
00467                                                                   DTSBS414
00468  S410-EXIT.                                                       DTSBS414
00469      EXIT.                                                        DTSBS414
00470      SKIP3                                                        DTSBS414
00471  S516-LIABILITY.                                                  DTSBS414
00472      CALL 'DTSBU516' USING L516-LINK-AREA                         DTSBS414
00473                            MPRF-REC.                              DTSBS414
00474                                                                   DTSBS414
00475  S516-EXIT.                                                       DTSBS414
00476      EXIT.                                                        DTSBS414
00477      SKIP3                                                        DTSBS414
00478  S910-OPEN-READ.                                                  DTSBS414
00479      SET L910-OPEN-READ-88 TO TRUE.                               DTSBS414
00480      GO TO S910-MSTR-IO.                                          DTSBS414
00481                                                                   DTSBS414
00482  S910-OPEN-UPDATE-NO-AIX.                                         DTSBS414
00483      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBS414
00484      GO TO S910-MSTR-IO.                                          DTSBS414
00485                                                                   DTSBS414
00486  S910-READ.                                                       DTSBS414
00487      SET L910-READ-88 TO TRUE.                                    DTSBS414
00488      GO TO S910-MSTR-IO.                                          DTSBS414
00489                                                                   DTSBS414
00490  S910-START-BROWSE.                                               DTSBS414
00491      SET L910-START-BROWSE-88 TO TRUE.                            DTSBS414
00492      GO TO S910-MSTR-IO.                                          DTSBS414
00493                                                                   DTSBS414
00494  S910-READ-NEXT.                                                  DTSBS414
00495      SET L910-READ-NEXT-88 TO TRUE.                               DTSBS414
00496      GO TO S910-MSTR-IO.                                          DTSBS414
00497                                                                   DTSBS414
00498  S910-COUNT.                                                      DTSBS414
00499      SET L910-COUNT-88 TO TRUE.                                   DTSBS414
00500      GO TO S910-MSTR-IO.                                          DTSBS414
00501                                                                   DTSBS414
00502  S910-REWRITE.                                                    DTSBS414
00503      SET L910-REWRITE-88 TO TRUE.                                 DTSBS414
00504      GO TO S910-MSTR-IO.                                          DTSBS414
00505                                                                   DTSBS414
00506  S910-DELETE.                                                     DTSBS414
00507      SET L910-DELETE-88 TO TRUE.                                  DTSBS414
00508      GO TO S910-MSTR-IO.                                          DTSBS414
00509                                                                   DTSBS414
00510  S910-CLOSE.                                                      DTSBS414
00511      SET L910-CLOSE-88     TO TRUE.                               DTSBS414
00512      GO TO S910-MSTR-IO.                                          DTSBS414
00513                                                                   DTSBS414
00514  S910-MSTR-IO.                                                    DTSBS414
00515      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBS414
00516                            MSKL-REC.                              DTSBS414
00517  S910-EXIT.                                                       DTSBS414
00518      EXIT.                                                        DTSBS414
00519      SKIP3                                                        DTSBS414
00520  S921-OPEN-READ.                                                  DTSBS414
00521      SET L921-OPEN-READ-88 TO TRUE.                               DTSBS414
00522      GO TO S921-AIX-IO.                                           DTSBS414
00523                                                                   DTSBS414
00524  S921-START-BROWSE.                                               DTSBS414
00525      SET L921-START-BROWSE-88 TO TRUE.                            DTSBS414
00526      GO TO S921-AIX-IO.                                           DTSBS414
00527                                                                   DTSBS414
00528  S921-CLOSE.                                                      DTSBS414
00529      SET L921-CLOSE-88     TO TRUE.                               DTSBS414
00530      GO TO S921-AIX-IO.                                           DTSBS414
00531                                                                   DTSBS414
00532  S923-CLOSE.                                                         CL183
00533      SET L923-CLOSE-88 TO TRUE.                                      CL183
00534      GO TO S923-ATC-IO.                                              CL183
00535                                                                      CL183
00536  S923-ATC-IO.                                                        CL183
00537      CALL 'DTSBU923' USING L923-LINK-AREA                            CL183
00538                            ASKL-REC.                                 CL183
00539  S923-EXIT.                                                          CL183
00540      EXIT.                                                           CL183
00541      SKIP3                                                           CL183
00542  S921-AIX-IO.                                                     DTSBS414
00543      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSBS414
00544                            ISKL-REC.                              DTSBS414
00545  S921-EXIT.                                                       DTSBS414
00546      EXIT.                                                        DTSBS414
00547      SKIP3                                                        DTSBS414
00548                                                                   DTSBS414
00549  S923-OPEN-UPDATE.                                                   CL183
00550      SET L923-OPEN-UPDATE-88 TO TRUE.                                CL183
00551      GO TO S923-ATC-IO.                                              CL183
00552                                                                      CL183
00553      SKIP3                                                           CL183
00554  S927-OPEN-UPDATE.                                                   CL183
00555      SET L927-OPEN-UPDATE-88 TO TRUE.                                CL183
00556      GO TO S927-BTC-O.                                               CL183
00557                                                                      CL183
00558  S927-WRITE.                                                         CL183
00559      SET L927-WRITE-88 TO TRUE.                                      CL183
00560      GO TO S927-BTC-O.                                               CL183
00561                                                                      CL183
00562  S927-CLOSE.                                                         CL183
00563      SET L927-CLOSE-88 TO TRUE.                                      CL183
00564      GO TO S927-BTC-O.                                               CL183
00565                                                                      CL183
00566  S927-BTC-O.                                                         CL183
00567      CALL 'DTSBU927' USING L927-LINK-AREA                            CL183
00568                            TSKL-REC.                                 CL183
00569  S927-EXIT.                                                          CL183
00570      EXIT.                                                           CL183
00571                                                                      CL183
00572      SKIP3                                                           CL183
00573  S931-OPEN-READ.                                                  DTSBS414
00574      SET L931-OPEN-READ-88 TO TRUE.                               DTSBS414
00575      GO TO S931-REF-IO.                                           DTSBS414
00576                                                                   DTSBS414
00577  S931-OPEN-UPDATE.                                                DTSBS414
00578      SET L931-OPEN-UPDATE-88 TO TRUE.                             DTSBS414
00579      GO TO S931-REF-IO.                                           DTSBS414
00580                                                                   DTSBS414
00581  S931-START-BROWSE.                                               DTSBS414
00582      SET L931-START-BROWSE-88 TO TRUE.                            DTSBS414
00583      GO TO S931-REF-IO.                                           DTSBS414
00584                                                                   DTSBS414
00585  S931-READ.                                                       DTSBS414
00586      SET L931-READ-88 TO TRUE.                                    DTSBS414
00587      GO TO S931-REF-IO.                                           DTSBS414
00588                                                                   DTSBS414
00589  S931-READ-NEXT.                                                  DTSBS414
00590      SET L931-READ-NEXT-88 TO TRUE.                               DTSBS414
00591      GO TO S931-REF-IO.                                           DTSBS414
00592                                                                   DTSBS414
00593  S931-DELETE.                                                     DTSBS414
00594      SET L931-DELETE-88    TO TRUE.                               DTSBS414
00595      GO TO S931-REF-IO.                                           DTSBS414
00596                                                                   DTSBS414
00597  S931-REWRITE.                                                    DTSBS414
00598      SET L931-REWRITE-88   TO TRUE.                               DTSBS414
00599      GO TO S931-REF-IO.                                           DTSBS414
00600                                                                   DTSBS414
00601  S931-WRITE.                                                      DTSBS414
00602      SET L931-WRITE-88   TO TRUE.                                 DTSBS414
00603      GO TO S931-REF-IO.                                           DTSBS414
00604                                                                   DTSBS414
00605  S931-CLOSE.                                                      DTSBS414
00606      SET L931-CLOSE-88 TO TRUE.                                   DTSBS414
00607      GO TO S931-REF-IO.                                           DTSBS414
00608                                                                   DTSBS414
00609  S931-REF-IO.                                                     DTSBS414
00610      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBS414
00611                            FSKL-REC.                              DTSBS414
00612  S931-EXIT.                                                       DTSBS414
00613      EXIT.                                                        DTSBS414
00614      SKIP3                                                        DTSBS414
00615  S933-OPEN-READ.                                                  DTSBS414
00616      SET L933-OPEN-READ-88 TO TRUE.                               DTSBS414
00617      GO TO S933-SIC-I.                                            DTSBS414
00618                                                                   DTSBS414
00619  S933-CLOSE.                                                      DTSBS414
00620      SET L933-CLOSE-88 TO TRUE.                                   DTSBS414
00621      GO TO S933-SIC-I.                                            DTSBS414
00622                                                                   DTSBS414
00623  S933-SIC-I.                                                      DTSBS414
00624      CALL 'DTSBU933' USING L933-LINK-AREA                         DTSBS414
00625                            XSIC-REC.                              DTSBS414
00626  S933-EXIT.                                                       DTSBS414
00627      EXIT.                                                        DTSBS414
00628                                                                   DTSBS414
00629  S999-ABEND.                                                      DTSBS414
00630      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBS414
00631  S999-EXIT.                                                       DTSBS414
00632      EXIT.                                                        DTSBS414
