00001  IDENTIFICATION DIVISION.                                         10/31/23
00002  PROGRAM-ID.             DTSBX657.                                DTSBX657
00003  AUTHOR.                 NGUPTA                                      LV002
00004  DATE-WRITTEN.           JAN2017                                     CL154
00005  DATE-COMPILED.                                                   DTSBX657
00006      SKIP3                                                        DTSBX657
00007 *****                                                             DTSBX657
00008 *                                                                 DTSBX657
00009 *    FUNCTION:  UPDATE MPRF RETURN MAIL FLAG TO Y AND ADD            CL217
00010 *              EVENT LOGH.                                           CL217
00011 *                                                                 DTSBX657
00012 *****                                                             DTSBX657
00013      SKIP3                                                        DTSBX657
00014  ENVIRONMENT DIVISION.                                            DTSBX657
00015      SKIP2                                                        DTSBX657
00016  CONFIGURATION SECTION.                                           DTSBX657
00017  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBX657
00018                                                                   DTSBX657
00019  INPUT-OUTPUT SECTION.                                            DTSBX657
00020                                                                   DTSBX657
00021  FILE-CONTROL.                                                    DTSBX657
00022      SELECT EMP-FILE1 ASSIGN TO EMPFILE1                             CL122
00023             FILE STATUS IS EXP-STATUS.                            DTSBX657
00024                                                                   DTSBX657
00025                                                                      CL*71
00026  DATA DIVISION.                                                   DTSBX657
00027                                                                   DTSBX657
00028  FILE SECTION.                                                    DTSBX657
00029                                                                   DTSBX657
00030  FD  EMP-FILE1                                                       CL122
00031      RECORDING MODE IS F.                                         DTSBX657
00032  01  EMP-REC1.                                                       CL122
00033      05  INEMP-NOA            PIC 9(03).                             CL254
00034      05  FILLER               PIC X.                                 CL254
00035      05  INEMP-NOB            PIC 9(03).                             CL254
00036      05  FILLER              PIC X(73).                              CL254
00037      EJECT                                                        DTSBX657
00038                                                                   DTSBX657
00039                                                                      CL*71
00040  WORKING-STORAGE SECTION.                                         DTSBX657
000405 77  PAN-VALET PICTURE X(24) VALUE '002DTSBX657  10/31/23'.       DTSBX657
00041      SKIP3                                                        DTSBX657
00042  01  WRK-AREA.                                                    DTSBX657
00043      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +400.DTSBX657
00044      05  WRK-SYS-ABSTIME             PIC S9(15)  COMP-3 VALUE +0.    CL211
00045      05  WRK-ABSTIME           PIC S9(15)  COMP-3 VALUE +1000.       CL211
00046                                                                   DTSBX657
00047      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD400'.DTSBX657
00048                                                                   DTSBX657
00049 **   05  WRK-RPT-DATE                PIC S9(09)  COMP-3           DTSBX657
00050 *                                        VALUE +20070328.         DTSBX657
00051 *    05  WRK-YRQ                     PIC S9(05)  COMP-3           DTSBX657
00052 **                                       VALUE +20061.            DTSBX657
00053      05  WRK-RPT-DATE                PIC S9(09)  COMP-3           DTSBX657
00054                                          VALUE +20170124.            CL154
00055      05  WRK-YRQ                     PIC S9(05)  COMP-3           DTSBX657
00056                                          VALUE +0.                DTSBX657
00057      05  WRK-MPRF-REC-CNT            PIC S9(07)  COMP-3.             CL192
00058      05  WRK-RATE-TYPE-AREA.                                      DTSBX657
00059          10  WRK-RATE-YR-SCHED                 PIC  X(01).        DTSBX657
00060              88  WRK-RATE-YR-ANN-88        VALUE 'Y'.             DTSBX657
00061          10  WRK-RATE-YR-MINUS-1-SCHED         PIC  X(01).        DTSBX657
00062              88  WRK-RATE-YR-MINUS1-ANN-88 VALUE 'Y'.             DTSBX657
00063          10  WRK-RATE-YR-MINUS-2-SCHED         PIC  X(01).        DTSBX657
00064              88  WRK-RATE-YR-MINUS2-ANN-88 VALUE 'Y'.             DTSBX657
00065      05  FILLER REDEFINES WRK-RATE-TYPE-AREA   PIC X(03).         DTSBX657
00066          88  WRK-ESTIMATE-NEEDED-88     VALUE 'YYY' 'NYY'.        DTSBX657
00067          88  WRK-TRANSITION-YEAR-88     VALUE 'YYN' 'NYN'.        DTSBX657
00068          88  WRK-INIT-VALUES-88         VALUE 'NNN'.              DTSBX657
00069                                                                   DTSBX657
00070      05  WRK-CLASSIFIED-IND                    PIC X(01).         DTSBX657
00071          88  WRK-CLASSIFIED-YES-88      VALUE 'Y'.                DTSBX657
00072          88  WRK-CLASSIFIED-NO-88       VALUE 'N'.                DTSBX657
00073      05  WRK-EXIT-LOOP-IND                     PIC X(01).         DTSBX657
00074          88  WRK-EXIT-LOOP-YES-88       VALUE 'Y'.                DTSBX657
00075          88  WRK-EXIT-LOOP-NO-88        VALUE 'N'.                DTSBX657
00076      05  WRK-TEST-EMP                          PIC S9(07) COMP-3     CL249
00077                                                 VALUE +330099.       CL249
00078      05  WRK-BATCH                             PIC S9(05) COMP-3.    CL249
00079      05  WRK-ITEM                              PIC S9(03) COMP-3. DTSBX657
00080      05  WRK-SEQ                               PIC 9(05)          DTSBX657
00081                                                 VALUE ZERO.       DTSBX657
00082      05  WRK-UCFE-FEIN                         PIC 9(09)             CL254
00083                                             VALUE 000000000.      DTSBX657
00084      05  WRK-UCX-FEIN                          PIC 9(09)          DTSBX657
00085                                             VALUE 330000000.      DTSBX657
00086      05  WRK-CWC-FEIN                          PIC 9(09)          DTSBX657
00087                                             VALUE 440000000.      DTSBX657
00088      05  WRK-FED-EMP                           PIC 9(06).         DTSBX657
00089      05  FILLER REDEFINES WRK-FED-EMP.                            DTSBX657
00090          10  FILLER                            PIC X(02).         DTSBX657
00091          10  WRK-FED-EMP-3                     PIC X(01).         DTSBX657
00092              88  WRK-FED-EMP-BYPASS-88          VALUE '1'.        DTSBX657
00093          10  FILLER                            PIC 9(03).         DTSBX657
00094      05  WRK-ZIP                               PIC X(10).         DTSBX657
00095      05  FILLER REDEFINES WRK-ZIP.                                DTSBX657
00096          10  WRK-ZIP5                          PIC X(05).         DTSBX657
00097          10  FILLER                            PIC X(05).         DTSBX657
00098                                                                   DTSBX657
00099      05  WS-EMP-NO1.                                                 CL255
00100          10  WS-EMP-NOA                  PIC 9(03).                  CL255
00101          10  WS-EMP-NOB                  PIC 9(03).                  CL255
00102                                                                      CL**2
00103                                                                      CL**2
00104      05  WS-EMP-NOZ                  PIC 9(6) VALUE ZERO.            CL**2
00105                                                                      CL**2
00106      05  EXP-STATUS                  PIC  X(02).                  DTSBX657
00107          88  EXP-STATUS-OK-88         VALUE '00'.                 DTSBX657
00108      05  EXP2-STATUS                 PIC  X(02).                     CL*71
00109          88  EXP2-STATUS-OK-88         VALUE '00'.                   CL*71
00110      05  WRK-ERROR-IND               PIC  X(01).                  DTSBX657
00111          88  WRK-ERROR-YES-88         VALUE 'Y'.                  DTSBX657
00112          88  WRK-ERROR-NO-88          VALUE 'N'.                  DTSBX657
00113      05  WRK-WRITE-REC-IND           PIC  X(01).                  DTSBX657
00114          88  WRK-WRITE-REC-YES-88     VALUE 'Y'.                  DTSBX657
00115          88  WRK-WRITE-REC-NO-88      VALUE 'N'.                  DTSBX657
00116      05  WRK-OP-ID                   PIC  X(08).                  DTSBX657
00117      05  WRK-ASSIGN                  PIC  9(09).                  DTSBX657
00118      05  FILLER REDEFINES WRK-ASSIGN.                             DTSBX657
00119          10  WRK-ASSIGN-CC           PIC  9(02).                  DTSBX657
00120          10  WRK-ASSIGN-YY           PIC  9(02).                  DTSBX657
00121          10  WRK-ASSIGN-NBR          PIC  9(05).                  DTSBX657
00122      05  WRK-FLD-ASSIGN.                                          DTSBX657
00123          10  WRK-FLD-ASSIGN-YEAR     PIC  9(02).                  DTSBX657
00124          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBX657
00125          10  WRK-FLD-ASSIGN-NBR      PIC  9(05).                  DTSBX657
00126      05  WRK-LIEN                    PIC  9(08).                     CL*25
00127      05  WRK-LIEN-X REDEFINES WRK-LIEN.                              CL*25
00128          10  FILLER                  PIC  X(02).                     CL*26
00129          10  WRK-LIEN6               PIC  X(06).                     CL*25
00130      05  WRK-LIEN-REF.                                               CL*23
00131          10  WRK-LIEN-YR             PIC  9(02).                     CL*23
00132          10  WRK-LIEN-NBR            PIC  9(04).                     CL*23
00133                                                                   DTSBX657
00134      05  WRK-IND-CODE                PIC  X(06).                  DTSBX657
00135      05  WRK-REC1.                                                DTSBX657
00136          10  REC1-EMP-NO             PIC 999999.                  DTSBX657
00137          10  FILLER                  PIC X(01) VALUE ';'.         DTSBX657
00138 **       10  REC1-NAME               PIC X(32).                      CL100
00139 **       10  REC1-EARLY-LIAB-DT      PIC X(32).                      CL110
00140          10  REC1-EARLY-LIAB-DT      PIC X(10).                      CL110
00141          10  FILLER                  PIC X(01) VALUE ';'.            CL*82
00142 **       10  REC1-YRQ2               PIC X(06).                      CL100
00143 **       10  FILLER                  PIC X(01) VALUE ';'.            CL100
00144          10  REC1-FIRS-DATE          PIC X(10).                      CL100
00145          10  FILLER                  PIC X(01) VALUE ';'.            CL*88
00146          10  REC1-PRIOR              PIC 9.9999.                     CL100
00147          10  FILLER                  PIC X(01) VALUE ';'.            CL*95
00148          10  REC1-CURR               PIC 9.9999.                     CL100
00149          10  FILLER                  PIC X(01) VALUE ';'.            CL*98
00150                                                                      CL*75
00151      05  WRK-REC1-OLD.                                               CL*15
00152          10  REC1-ESTB-DATE          PIC X(10).                      CL*98
00153          10  REC1-LIEN-NO            PIC 9(08).                      CL*98
00154          10  REC1-STATUS             PIC X(01).                      CL*98
00155          10  REC1-SOURCE             PIC X(02).                      CL*88
00156          10  REC1-YRQ                PIC X(06).                      CL*85
00157          10  REC1-OP-ID              PIC X(08).                      CL*75
00158          10  REC1-STATUS-OP-ID       PIC X(08).                      CL*75
00159          10  REC1-STMT-DATE          PIC X(10).                      CL*95
00160          10  REC1-STATUS-DATE        PIC X(10).                      CL*75
00161          10  REC1-BALANCE            PIC --------9.99.               CL*75
00162          10  REC1-FREQUENCY          PIC X(01).                      CL*75
00163          10  REC1-START-DATE         PIC X(10).                      CL*75
00164          10  REC1-TAX-DUE            PIC --------9.99.               CL*75
00165          10  REC1-DATA-ELEMENT       PIC X(40).                      CL*68
00166          10  REC1-PRE-MOD-VALUE      PIC X(40).                      CL*68
00167          10  REC1-POST-MOD-VALUE     PIC X(40).                      CL*68
00168          10  REC1-MLOG-DATE          PIC X(10).                      CL*68
00169          10  REC1-EMP-NAME           PIC X(40).                      CL*68
00170          10  REC1-CURR-RESERVE       PIC --------9.99.               CL*59
00171          10  REC1-ATTN               PIC X(40).                      CL*57
00172          10  REC1-STREET2            PIC X(40).                      CL*57
00173          10  REC1-STREET1            PIC X(40).                      CL*57
00174          10  REC1-CITY               PIC X(25).                      CL*57
00175          10  REC1-STATE              PIC X(02).                      CL*57
00176          10  REC1-ZIP                PIC X(10).                      CL*57
00177          10  REC1-PHONE              PIC X(15).                      CL*57
00178          10  REC1-FAX                PIC X(15).                      CL*57
00179          10  REC1-EMAIL              PIC X(40).                      CL*57
00180          10  REC1-ASSIGN             PIC X(08).                      CL*51
00181          10  REC1-ASSIGN-TYPE        PIC X(02).                      CL*51
00182          10  REC1-PROCESS-DATE       PIC X(10).                      CL*51
00183          10  REC1-COMP-DATE          PIC X(10).                      CL*51
00184          10  REC1-FLD-REP-ID         PIC X(02).                      CL*46
00185          10  REC1-INACT-OPID         PIC X(08).                      CL*43
00186          10  REC1-INACT-ENTER-DT     PIC X(10).                      CL*38
00187          10  REC1-OPO-NAME           PIC X(32).                      CL*27
00188          10  REC1-ELIG-CD            PIC 9(03).                      CL*17
00189          10  REC1-FEIN               PIC 9(09).                   DTSBX657
00190          10  REC1-COUNT              PIC 9(07).                   DTSBX657
00191          10  REC1-CLASS              PIC X(02).                   DTSBX657
00192          10  REC1-MLIN-STATUS        PIC X(01).                   DTSBX657
00193          10  REC1-BATCH              PIC 9(05).                   DTSBX657
00194          10  REC1-ITEM               PIC 9(03).                   DTSBX657
00195          10  REC1-RPTS-DUE           PIC 999.                     DTSBX657
00196          10  REC1-COMPLETE-DATE      PIC X(10).                   DTSBX657
00197          10  REC1-PAY-TYPE           PIC X(02).                   DTSBX657
00198          10  REC1-TAX-PAID           PIC --------9.99.            DTSBX657
00199          10  REC1-DEPOSIT-DATE       PIC X(10).                   DTSBX657
00200          10  REC1-NAICS              PIC X(06).                   DTSBX657
00201          10  REC1-SIC                PIC X(04).                   DTSBX657
00202          10  REC1-YEAR               PIC 9(04).                   DTSBX657
00203          10  REC1-AMT                PIC ----------9.99.          DTSBX657
00204          10  REC1-OPO-SSN            PIC X(09).                   DTSBX657
00205          10  REC1-PRIOR-RESERVE      PIC --------9.99.            DTSBX657
00206          10  REC1-INTEREST           PIC --------9.99.            DTSBX657
00207          10  REC1-BEN-CHG            PIC --------9.99.            DTSBX657
00208          10  REC1-AVG-TAX-WAGE       PIC --------9.99.            DTSBX657
00209          10  REC1-RATE-PCT           PIC 9.9.                     DTSBX657
00210          10  REC1-DUE-DATE           PIC X(10).                   DTSBX657
00211          10  REC1-INACT-YRQ          PIC X(06).                   DTSBX657
00212          10  REC1-RCVD-DATE          PIC X(10).                   DTSBX657
00213          10  REC1-TOT-WAGE           PIC ----------9.99.          DTSBX657
00214          10  REC1-SUR-BAL            PIC ----------9.99.          DTSBX657
00215          10  REC1-LP-BAL             PIC ----------9.99.          DTSBX657
00216          10  REC1-INT-BAL            PIC ----------9.99.          DTSBX657
00217          10  REC1-SEQ                PIC 999999.                  DTSBX657
00218          10  REC1-PRED               PIC 999999.                  DTSBX657
00219          10  REC1-REL-CD             PIC X(02).                   DTSBX657
00220          10  REC1-TRAN               PIC X(02).                   DTSBX657
00221          10  REC1-CREDIT             PIC --------9.99.            DTSBX657
00222          10  REC1-ACCOUNT            PIC X(02).                   DTSBX657
00223          10  REC1-NEW-RATE           PIC 9.9999.                  DTSBX657
00224          10  REC1-EMP-TYPE           PIC X(05).                   DTSBX657
00225          10  REC1-CHG                PIC --------9.99.            DTSBX657
00226          10  REC1-DESC               PIC X(40).                   DTSBX657
00227          10  REC1-LIAB-QTRS          PIC 999.                     DTSBX657
00228          10  REC1-ORG-TYPE           PIC X(03).                   DTSBX657
00229          10  REC1-LIAB-CD            PIC X(02).                   DTSBX657
00230          10  REC1-LP-CHG             PIC --------9.99.            DTSBX657
00231          10  REC1-INT-CHG            PIC --------9.99.            DTSBX657
00232          10  REC1-IND-CODE           PIC X(06).                   DTSBX657
00233          10  REC1-LIAB-ENTER-DATE    PIC X(10).                   DTSBX657
00234          10  REC1-INACT-CODE         PIC X(05).                   DTSBX657
00235              88  REC1-INACT-YES-88  VALUE 'INACT'.                DTSBX657
00236              88  REC1-INACT-NO-88  VALUE 'ACT  '.                 DTSBX657
00237          10  REC1-REACT              PIC X(05).                   DTSBX657
00238              88  REC1-REACT-NO-88 VALUE 'NEW  '.                  DTSBX657
00239              88  REC1-REACT-YES-88 VALUE 'REACT'.                 DTSBX657
00240          10  REC1-AREA               PIC X(03).                   DTSBX657
00241          10  REC1-PFX                PIC X(03).                   DTSBX657
00242          10  REC1-SFX                PIC X(04).                   DTSBX657
00243          10  REC1-EXT                PIC X(05).                   DTSBX657
00244          10  REC1-INT-CHARGE-IND     PIC  X(01).                     CL*84
00245             88  REC1-INT-CHARGE-MANUAL-88   VALUE 'M'.               CL*84
00246             88  REC1-INT-CHARGE-AUTO-88     VALUE 'A'.               CL*84
00247          10  FILLER                  PIC X(01) VALUE ';'.            CL*84
00248          10  REC1-INT-START-DATE1    PIC  X(10).                     CL*84
00249          10  FILLER                  PIC X(01) VALUE ';'.            CL*84
00250          10  REC1-INT-END-DATE1      PIC  X(10).                     CL*84
00251          10  FILLER                  PIC X(01) VALUE ';'.            CL*84
00252          10  REC1-INT-RATE1          PIC 9.9999.                     CL*84
00253          10  FILLER                  PIC X(01) VALUE ';'.            CL*84
00254          10  REC1-INT-START-DATE2    PIC  X(10).                     CL*84
00255          10  FILLER                  PIC X(01) VALUE ';'.            CL*84
00256          10  REC1-INT-END-DATE2      PIC  X(10).                     CL*84
00257          10  FILLER                  PIC X(01) VALUE ';'.            CL*84
00258          10  REC1-INT-RATE2          PIC 9.9999.                     CL*84
00259          10  FILLER                  PIC X(01) VALUE ';'.            CL*84
00260          10  REC1-WAIVE-INT-START-DATE  PIC  X(10).                  CL*84
00261          10  FILLER                  PIC X(01) VALUE ';'.            CL*84
00262          10  REC1-WAIVE-INT-END-DATE    PIC  X(10).                  CL*84
00263                                                                      CL*71
00264      05  WRK-REC2.                                                   CL*71
00265          10  REC2-EMP-NO             PIC 999999.                     CL*71
00266          10  FILLER                  PIC X(01) VALUE ';'.            CL*71
00267          10  REC2-ESTB-DATE          PIC X(10).                      CL*71
00268          10  FILLER                  PIC X(01) VALUE ';'.            CL*71
00269          10  REC2-QTR                PIC X(06).                      CL*71
00270                                                                      CL*71
00271      05  WRK-ABS-QTR1                PIC S9(04)  COMP-3           DTSBX657
00272                                             VALUE +0.             DTSBX657
00273      05  WRK-ABS-QTR2                PIC S9(04)  COMP-3           DTSBX657
00274                                             VALUE +0.             DTSBX657
00275      05  WRK-ABS-DATE1               PIC S9(08)  COMP.            DTSBX657
00276      05  WRK-ABS-DATE2               PIC S9(08)  COMP.            DTSBX657
00277      05  WRK-DIFF                    PIC S9(07)  COMP-3.          DTSBX657
00278      05  WRK-UNDER-30-CNT            PIC S9(04)  COMP-3           DTSBX657
00279                                             VALUE +0.             DTSBX657
00280      05  WRK-OVER-31-CNT             PIC S9(04)     COMP-3        DTSBX657
00281                                             VALUE +0.             DTSBX657
00282      05  WRK-MPRF-CNT                PIC S9(07)  COMP-3.          DTSBX657
00283      05  WRK-FISCAL-AGENT-CD         PIC  X(03).                  DTSBX657
00284      05  WRK-BNK-IND                 PIC  X(02).                  DTSBX657
00285      05  WRK-FIRST-NEW-EMP-NO        PIC S9(07)  COMP-3.          DTSBX657
00286 *&                             VALUE +123778.                     DTSBX657
00287      05  WRK-FEIN                    PIC  9(09).                  DTSBX657
00288      05  WRK-MQTR-BAL         PIC S9(11)V99  COMP-3 VALUE +0.     DTSBX657
00289      05  WRK-MQTR-BAL1        PIC S9(11)V99  COMP-3 VALUE +0.     DTSBX657
00290      05  WRK-MQTR-BAL2        PIC S9(11)V99  COMP-3 VALUE +0.     DTSBX657
00291      05  WRK-MQTR-BAL3        PIC S9(11)V99  COMP-3 VALUE +0.     DTSBX657
00292      05  WRK-RESERVE                 PIC S9(09)V99  COMP-3.       DTSBX657
00293      05  WRK-MQTR-CHG                PIC S9(09)V99  COMP-3.       DTSBX657
00294      05  WRK-MQTR-ANN-BAL            PIC S9(07)V99  COMP-3.       DTSBX657
00295      05  WRK-MQTR-PEN-BAL            PIC S9(07)V99  COMP-3.       DTSBX657
00296      05  WRK-MQTR-PEN-CHG            PIC S9(07)V99  COMP-3.       DTSBX657
00297      05  WRK-MQTR-INT-BAL            PIC S9(07)V99  COMP-3.       DTSBX657
00298      05  WRK-MQTR-INT-CHG            PIC S9(07)V99  COMP-3.       DTSBX657
00299      05  WRK-RECEIVED-DATE           PIC S9(09)  COMP-3              CL*91
00300                                        VALUE +0.                     CL*91
00301      05  WRK-RPT-BAL-CNT             PIC S9(07)  COMP-3.          DTSBX657
00302      05  WRK-RPT-CNT                 PIC S9(07)  COMP-3.          DTSBX657
00303      05  WRK-BAL-CNT                 PIC S9(07)  COMP-3.          DTSBX657
00304      05  WRK-REL-CNT                 PIC S9(07)  COMP-3.          DTSBX657
00305      05  WRK-RATED-CNT               PIC S9(07)  COMP-3.          DTSBX657
00306      05  WRK-SELF-INS-CNT            PIC S9(07)  COMP-3.          DTSBX657
00307      05  WRK-HOTEL-CNT            PIC S9(07)  COMP-3 VALUE +0.    DTSBX657
00308      05  WRK-TOT-EMPS             PIC S9(07)  COMP-3 VALUE +0.    DTSBX657
00309      05  WRK-TOT-WORKERS          PIC S9(11)  COMP-3 VALUE +0.    DTSBX657
00310      05  WRK-PURSUED-RPT-CNT         PIC S9(07)  COMP-3.          DTSBX657
00311      05  WRK-LATE-RPT-CNT            PIC S9(07)  COMP-3.          DTSBX657
00312      05  WRK-MEVL-REWRITE-CNT        PIC S9(03)  COMP-3 VALUE 0.     CL141
00313      05  WRK-MEVL-DELETED-CNT        PIC S9(03)  COMP-3 VALUE 0.     CL141
00314      05  WRK-MEVL-FOUND-CNT        PIC S9(03)  COMP-3 VALUE 0.       CL128
00315      05  WRK-MQTR-UPDATED-CNT        PIC S9(03)  COMP-3 VALUE 0.     CL128
00316      05  WRK-MQTR-FOUND-CNT        PIC S9(03)  COMP-3 VALUE 0.       CL128
00317      05  MPRF-REC-CNT              PIC S9(03)  COMP-3 VALUE 0.       CL128
00318      05  MPRF-WRK-CNT              PIC S9(03)  COMP-3 VALUE 0.       CL128
00319      05  IN-REC-CNT              PIC S9(03)  COMP-3 VALUE 0.         CL128
00320      05  WRK-UC30-SENT-CNT           PIC S9(07)  COMP-3.          DTSBX657
00321      05  WRK-UC30-RCVD-CNT           PIC S9(07)  COMP-3.          DTSBX657
00322      05  WRK-OVER-1000-CNT           PIC S9(07)  COMP-3.          DTSBX657
00323      05  WRK-UNDER-1000-CNT          PIC S9(07)  COMP-3.          DTSBX657
00324      05  WRK-HOUSEHOLD-PAYMENTS      PIC S9(11)V99  COMP-3.       DTSBX657
00325      05  WRK-TOT-WAGES               PIC S9(11)V99  COMP-3.       DTSBX657
00326      05  WRK-ALL-BNK-RATED           PIC S9(11)V99  COMP-3.       DTSBX657
00327      05  WRK-OPN-BNK-RATED           PIC S9(11)V99  COMP-3.       DTSBX657
00328      05  WRK-ALL-BNK-SI              PIC S9(11)V99  COMP-3.       DTSBX657
00329      05  WRK-OPN-BNK-SI              PIC S9(11)V99  COMP-3.       DTSBX657
00330      05  WRK-BOND-AMT                PIC S9(11)V99  COMP-3.       DTSBX657
00331      05  WRK-OVER-100-CNT            PIC S9(07)  COMP-3           DTSBX657
00332                                        VALUE +0.                  DTSBX657
00333      05  WRK-OVER-100-AMT            PIC S9(11)V99  COMP-3        DTSBX657
00334                                        VALUE +0.                  DTSBX657
00335      05  WRK-1-10-CNT                PIC S9(07)  COMP-3           DTSBX657
00336                                        VALUE +0.                  DTSBX657
00337      05  WRK-1-10-AMT                PIC S9(11)V99  COMP-3        DTSBX657
00338                                        VALUE +0.                  DTSBX657
00339      05  WRK-11-100-CNT              PIC S9(07)  COMP-3           DTSBX657
00340                                        VALUE +0.                  DTSBX657
00341      05  WRK-11-100-AMT              PIC S9(11)V99  COMP-3        DTSBX657
00342                                        VALUE +0.                  DTSBX657
00343      05  WRK-OVER-100-WRKRS          PIC S9(07)  COMP-3.          DTSBX657
00344      05  WRK-100-249-CNT             PIC S9(07)  COMP-3.          DTSBX657
00345      05  WRK-100-249-WRKRS           PIC S9(07)  COMP-3.          DTSBX657
00346      05  WRK-50-100-CNT              PIC S9(07)  COMP-3.          DTSBX657
00347      05  WRK-50-100-WRKRS            PIC S9(07)  COMP-3.          DTSBX657
00348      05  WRK-25-49-CNT               PIC S9(07)  COMP-3.          DTSBX657
00349      05  WRK-25-49-WRKRS             PIC S9(07)  COMP-3.          DTSBX657
00350      05  WRK-10-24-CNT               PIC S9(07)  COMP-3.          DTSBX657
00351      05  WRK-10-24-WRKRS             PIC S9(07)  COMP-3.          DTSBX657
00352      05  WRK-6-9-CNT                 PIC S9(07)  COMP-3.          DTSBX657
00353      05  WRK-5-9-WRKRS               PIC S9(07)  COMP-3.          DTSBX657
00354      05  WRK-5-CNT                   PIC S9(07)  COMP-3.          DTSBX657
00355      05  WRK-4-CNT                   PIC S9(07)  COMP-3.          DTSBX657
00356      05  WRK-3-CNT                   PIC S9(07)  COMP-3.          DTSBX657
00357      05  WRK-2-CNT                   PIC S9(07)  COMP-3.          DTSBX657
00358      05  WRK-1-CNT                   PIC S9(07)  COMP-3.          DTSBX657
00359      05  WRK-UNDER-5-CNT             PIC S9(07)  COMP-3.          DTSBX657
00360      05  WRK-UNDER-5-WRKRS           PIC S9(07)  COMP-3.          DTSBX657
00361      05  WRK-UNDER-10-CNT            PIC S9(07)  COMP-3.          DTSBX657
00362      05  WRK-OVER-10-CNT             PIC S9(07)  COMP-3.          DTSBX657
00363      05  WRK-UNDER-10-WRKRS          PIC S9(07)  COMP-3.          DTSBX657
00364      05  WRK-NO-EMPS-CNT             PIC S9(07)  COMP-3.          DTSBX657
00365      05  WRK-MRCT-TOT-WAGES          PIC S9(11)V99  COMP-3.       DTSBX657
00366      05  WRK-MRCT-TAX-WAGES          PIC S9(11)V99  COMP-3.       DTSBX657
00367      05  WRK-MRCT-UI-PAID            PIC S9(11)V99  COMP-3.       DTSBX657
00368      05  WRK-TOT-UI                  PIC S9(11)V99  COMP-3.       DTSBX657
00369      05  WRK-TOT-INT                 PIC S9(11)V99  COMP-3.       DTSBX657
00370      05  WRK-TOT-PEN                 PIC S9(11)V99  COMP-3.       DTSBX657
00371      05  WRK-MQTR-ANN-TOT-WAGE       PIC S9(12)V99  COMP-3.       DTSBX657
00372      05  WRK-MQTR-ANN-TAX-WAGE       PIC S9(12)V99  COMP-3.       DTSBX657
00373      05  WRK-MJRN-TOT-NEG-CHG        PIC S9(11)V99  COMP-3        DTSBX657
00374                                        VALUE +0.                  DTSBX657
00375      05  WRK-MQTR-TOT-UI-CHARGED     PIC S9(11)V99  COMP-3.       DTSBX657
00376      05  WRK-START-DATE              PIC S9(09) COMP-3.           DTSBX657
00377      05  WRK-END-DATE                PIC S9(09) COMP-3.           DTSBX657
00378      05  WRK-LIAB-DATE               PIC S9(09) COMP-3.           DTSBX657
00379      05  WRK-FIRST-LIAB-DATE         PIC S9(09) COMP-3.           DTSBX657
00380      05  WRK-ALL-NINES-DATE          PIC S9(09) COMP-3            DTSBX657
00381                                   VALUE +999999999.               DTSBX657
00382                                                                      CL104
00383      05  WRK-UI-RATE-CATEGORY       PIC  X(01).                      CL104
00384          88  WRK-CLASSIFIED-88          VALUE 'C'.                   CL104
00385          88  WRK-NONCLASSIFIED-88       VALUE 'N'.                   CL104
00386                                                                      CL104
00387                                                                      CL104
00388      05  WRK-BNK-PETITION-DATE       PIC 9(08).                   DTSBX657
00389      05  FILLER REDEFINES WRK-BNK-PETITION-DATE.                  DTSBX657
00390          10  WRK-BNK-PETITION-DATE-YYYY PIC 9(04).                DTSBX657
00391          10  WRK-BNK-PETITION-DATE-MM   PIC 9(02).                DTSBX657
00392          10  WRK-BNK-PETITION-DATE-DD   PIC 9(02).                DTSBX657
00393      05  WRK-BNK-PETITION-YRQ        PIC 9(05).                   DTSBX657
00394      05  FILLER REDEFINES WRK-BNK-PETITION-YRQ.                   DTSBX657
00395          10  WRK-BNK-PETITION-YRQ-YYYY PIC 9(04).                 DTSBX657
00396          10  WRK-BNK-PETITION-YRQ-Q    PIC 9(01).                 DTSBX657
00397      05  WRK-BNK-FIRST-BILL-YRQ      PIC S9(05) COMP-3.           DTSBX657
00398      05  WRK-EST-RPT-IND             PIC  X(01).                  DTSBX657
00399          88 WRK-EST-RPT-YES       VALUE 'Y'.                      DTSBX657
00400          88 WRK-EST-RPT-NO        VALUE 'N'.                      DTSBX657
00401                                                                   DTSBX657
00402      05  WRK-ZERO-FOUND-IND          PIC  X(01).                  DTSBX657
00403          88 WRK-ZERO-FOUND-YES-88 VALUE 'Y'.                      DTSBX657
00404          88 WRK-ZERO-FOUND-NO-88  VALUE 'N'.                      DTSBX657
00405                                                                   DTSBX657
00406      05  WRK-WITHDRAWN-IND           PIC  X(01).                  DTSBX657
00407          88 WRK-WITHDRAWN-YES     VALUE 'Y'.                      DTSBX657
00408          88 WRK-WITHDRAWN-NO      VALUE 'N'.                      DTSBX657
00409                                                                   DTSBX657
00410      05  WRK-ORIG-IND                PIC  X(01).                  DTSBX657
00411          88 WRK-ORIG-YES          VALUE 'Y'.                      DTSBX657
00412          88 WRK-ORIG-NO           VALUE 'N'.                      DTSBX657
00413                                                                   DTSBX657
00414      05  WRK-MQTR-CNT                PIC S9(07)  COMP-3.          DTSBX657
00415      05  WRK-MRPT-CNT                PIC S9(07)  COMP-3.          DTSBX657
00416      05  WRK-MSOL-CNT                PIC S9(07)  COMP-3.          DTSBX657
00417      05  WRK-MLIN-CNT                PIC S9(07)  COMP-3.          DTSBX657
00418      05  WRK-MFAS-CNT                PIC S9(07)  COMP-3.          DTSBX657
00419      05  WRK-MFAE-CNT                PIC S9(07)  COMP-3.          DTSBX657
00420      05  WRK-MPAY-CNT                PIC S9(07)  COMP-3.          DTSBX657
00421      05  WRK-MADJ-CNT                PIC S9(07)  COMP-3.          DTSBX657
00422      05  WRK-MJRN-CNT                PIC S9(08)  COMP-3.          DTSBX657
00423      05  WRK-MERA-CNT                PIC S9(08)  COMP-3.          DTSBX657
00424      05  WRK-MRTE-CNT                PIC S9(08)  COMP-3.          DTSBX657
00425      05  WRK-MRTE-CNT1               PIC S9(08)  COMP-3.          DTSBX657
00426      05  WRK-MLOG-CNT                PIC S9(08)  COMP-3.          DTSBX657
00427      05  WRK-MFSC-CNT                PIC S9(08)  COMP-3           DTSBX657
00428                                           VALUE +0.               DTSBX657
00429      05  WRK-CR-TOL-CNT              PIC S9(07)  COMP-3.          DTSBX657
00430      05  SUB                         PIC S9(04)  COMP.            DTSBX657
00431      05  RPT-SUB                     PIC S9(04)  COMP.            DTSBX657
00432      05  QTR-SUB                     PIC S9(04)  COMP.            DTSBX657
00433      05  WRK-QTR-AREA OCCURS 20  TIMES.                           DTSBX657
00434          10  WRK-QTR-YRQ             PIC S9(05)  COMP-3.          DTSBX657
00435          10  WRK-QTR-CHG             PIC S9(09)V99  COMP-3.       DTSBX657
00436          10  WRK-QTR-PAID            PIC S9(09)V99  COMP-3.       DTSBX657
00437          10  WRK-QTR-WAIVED          PIC S9(09)V99  COMP-3.       DTSBX657
00438          10  WRK-QTR-TOLERATED       PIC S9(09)V99  COMP-3.       DTSBX657
00439      05  WRK-JRN-AREA OCCURS 100  TIMES.                          DTSBX657
00440 ***      10  WRK-JRN-EMP-NO          PIC  9(06).                  DTSBX657
00441 ***      10  WRK-JRN-EMP-NAME        PIC  X(40).                  DTSBX657
00442          10  WRK-JRN-RCVD            PIC  X(10).                  DTSBX657
00443          10  WRK-JRN-TRAN            PIC  X(02).                  DTSBX657
00444          10  WRK-JRN-BATCH           PIC  9(05).                  DTSBX657
00445          10  WRK-JRN-ITEM            PIC  9(03).                  DTSBX657
00446          10  WRK-JRN-AMT             PIC  --------9.99.           DTSBX657
00447      05  WRK-TIMELY-PMT-AREA.                                     DTSBX657
00448          10  WRK-PEN-INT-BAL-CNT     PIC S9(07)  COMP-3.          DTSBX657
00449          10  WRK-INT-MANUAL-CNT      PIC S9(07)  COMP-3.          DTSBX657
00450          10  WRK-QTR-TAX-BAL         PIC S9(09)V9(02)  COMP-3.    DTSBX657
00451          10  WRK-QTR-TAX-CHG         PIC S9(09)V9(02)  COMP-3.    DTSBX657
00452          10  WRK-QTR-INT-PEN-BAL     PIC S9(09)V9(02)  COMP-3.    DTSBX657
00453          10  WRK-AVG-PMT             PIC S9(09)V9(02)  COMP-3.    DTSBX657
00454          10  WRK-TIMELY-PMT          PIC S9(09)V9(02)  COMP-3.    DTSBX657
00455          10  WRK-OLD-PEN-CHG         PIC S9(09)V9(02)  COMP-3.    DTSBX657
00456                                                                   DTSBX657
00457      05  WRK-PCT                     PIC S9(03)V9(04)  COMP-3     DTSBX657
00458                                          VALUE +0.                DTSBX657
00459      05  WRK-AVG-PCT                 PIC S9(09)V9(04)  COMP-3     DTSBX657
00460                                          VALUE +0.                DTSBX657
00461      05  WRK-PCT-DISP                PIC  Z(02)9.9999.            DTSBX657
00462      05  WRK-PCT-DISP1               PIC  Z(02)9.9999.            DTSBX657
00463      05  WRK-UI-RATE                 PIC S9(01)V9(04)  COMP-3.    DTSBX657
00464      05  DISP-UI-RATE1               PIC  9.9(04).                DTSBX657
00465      05  DISP-UI-RATE2               PIC  9.9(04).                DTSBX657
00466      05  AMT-DISP                    PIC  ---,---,--9.99.         DTSBX657
00467      05  AMT-DISP1                   PIC  Z(11)9.99-.             DTSBX657
00468      05  AMT-DISP2                   PIC  Z(11)9.99-.             DTSBX657
00469      05  AMT-DISP3                   PIC  Z(11)9-.                DTSBX657
00470      05  EMP-ACCT-DISP               PIC  9(06).                  DTSBX657
00471      05  EMP-SUCC-DISP               PIC  9(06).                  DTSBX657
00472      05  EMP-SUCC-DISP-X REDEFINES EMP-SUCC-DISP                  DTSBX657
00473                                      PIC  X(06).                  DTSBX657
00474      05  DISP-DATE1                  PIC  X(10).                  DTSBX657
00475      05  DISP-DATE2                  PIC  X(10).                  DTSBX657
00476      05  INACT-LBL                   PIC  X(10).                  DTSBX657
00477      05  WRK-MPRF-IND                PIC  X(01).                  DTSBX657
00478          88 WRK-MPRF-OK           VALUE 'Y'.                      DTSBX657
00479          88 WRK-MPRF-NO-REC       VALUE 'N'.                      DTSBX657
00480      05  WRK-MQTR-IND                PIC  X(01).                  DTSBX657
00481          88 WRK-MQTR-OK           VALUE 'Y'.                      DTSBX657
00482          88 WRK-MQTR-NO-REC       VALUE 'N'.                      DTSBX657
00483      05  WRK-MRPT-IND                PIC  X(01).                  DTSBX657
00484          88 WRK-MRPT-OK           VALUE 'Y'.                      DTSBX657
00485          88 WRK-MRPT-NO-REC       VALUE 'N'.                      DTSBX657
00486      05  WRK-MDST-IND                PIC  X(01).                  DTSBX657
00487          88 WRK-MDST-OK           VALUE 'Y'.                      DTSBX657
00488          88 WRK-MDST-NO-REC       VALUE 'N'.                      DTSBX657
00489      05  WRK-MEVL-IND                PIC  X(01).                  DTSBX657
00490          88 WRK-MEVL-OK           VALUE 'Y'.                      DTSBX657
00491          88 WRK-MEVL-NO-REC       VALUE 'N'.                      DTSBX657
00492      05  WRK-MLIN-IND                PIC  X(01).                  DTSBX657
00493          88 WRK-MLIN-OK           VALUE 'Y'.                      DTSBX657
00494          88 WRK-MLIN-NO-REC       VALUE 'N'.                      DTSBX657
00495      05  WRK-MDPC-IND                PIC  X(01).                  DTSBX657
00496          88 WRK-MDPC-OK           VALUE 'Y'.                      DTSBX657
00497          88 WRK-MDPC-NO-REC       VALUE 'N'.                      DTSBX657
00498      05  WRK-MFAS-IND                PIC  X(01).                  DTSBX657
00499          88 WRK-MFAS-OK           VALUE 'Y'.                      DTSBX657
00500          88 WRK-MFAS-NO-REC       VALUE 'N'.                      DTSBX657
00501      05  WRK-MFAE-IND                PIC  X(01).                  DTSBX657
00502          88 WRK-MFAE-OK           VALUE 'Y'.                      DTSBX657
00503          88 WRK-MFAE-NO-REC       VALUE 'N'.                      DTSBX657
00504      05  WRK-MSOL-IND                PIC  X(01).                  DTSBX657
00505          88 WRK-MSOL-OK           VALUE 'Y'.                      DTSBX657
00506          88 WRK-MSOL-NO-REC       VALUE 'N'.                      DTSBX657
00507      05  WRK-MLOG-IND                PIC  X(01).                  DTSBX657
00508          88 WRK-MLOG-OK           VALUE 'Y'.                      DTSBX657
00509          88 WRK-MLOG-NO-REC       VALUE 'N'.                      DTSBX657
00510          88 WRK-MLOG-COMPLETE     VALUE 'C'.                      DTSBX657
00511      05  WRK-MRPT-FOUND-IND          PIC X(01).                   DTSBX657
00512          88  WRK-MRPT-FOUND-YES   VALUE 'Y'.                      DTSBX657
00513          88  WRK-MRPT-FOUND-NO    VALUE 'N'.                      DTSBX657
00514      05  WRK-MTAD-FOUND-IND          PIC X(01).                      CL**6
00515          88  WRK-MTAD-FOUND-YES   VALUE 'Y'.                         CL**6
00516          88  WRK-MTAD-FOUND-NO    VALUE 'N'.                         CL**6
00517      05  WRK-CR-TOL-IND              PIC X(01).                   DTSBX657
00518          88  WRK-CR-TOL-YES       VALUE 'Y'.                      DTSBX657
00519          88  WRK-CR-TOL-NO        VALUE 'N'.                      DTSBX657
00520      05  WRK-DUP-FOUND-IND           PIC  X(01).                  DTSBX657
00521          88 WRK-DUP-FOUND-YES     VALUE 'Y'.                      DTSBX657
00522          88 WRK-DUP-FOUND-NO      VALUE 'N'.                      DTSBX657
00523      05  WRK-SELECT-IND              PIC  X(01).                  DTSBX657
00524          88 WRK-SELECT-YES-88     VALUE 'Y'.                      DTSBX657
00525          88 WRK-SELECT-NO-88      VALUE 'N'.                      DTSBX657
00526      05  WRK-LAST-MRPT-TYPE          PIC  X(02).                  DTSBX657
00527      05  WRK-DISP-AREA.                                           DTSBX657
00528          10  WRK-DISP-STAR           PIC X(01).                   DTSBX657
00529          10  FILLER                  PIC X(01) VALUE SPACE.       DTSBX657
00530          10  WRK-DISP-AMT            PIC Z(10)9.99-.              DTSBX657
00531                                                                   DTSBX657
00532      05  WRK-INACT-DATE              PIC S9(09)  COMP-3           DTSBX657
00533                                       VALUE +0.                   DTSBX657
00534      05  WRK-INACT-CODE              PIC  X(02).                  DTSBX657
00535      05  WRK-INACT-YRQ               PIC S9(05)  COMP-3           DTSBX657
00536                                       VALUE +0.                   DTSBX657
00537      05  WRK-LAST-YRQ                PIC S9(05)  COMP-3           DTSBX657
00538                                       VALUE +0.                   DTSBX657
00539      05  WRK-FIRST-LIAB-YRQ          PIC S9(05)  COMP-3           DTSBX657
00540                                       VALUE +0.                   DTSBX657
00541      05  WRK-LAST-LIAB-YRQ           PIC S9(05)  COMP-3           DTSBX657
00542                                       VALUE +0.                   DTSBX657
00543      05  WRK-NEXT-YRQ                PIC S9(05)  COMP-3           DTSBX657
00544                                       VALUE +0.                   DTSBX657
00545      05  WRK-UPDATED-CNT             PIC S9(07)  COMP-3.          DTSBX657
00546                                                                   DTSBX657
00547      05  PARM-REC-CNT                PIC S9(07)  COMP-3.          DTSBX657
00548                                                                   DTSBX657
00549      05  PARM-EOF-IND                    PIC  X(01).              DTSBX657
00550                                                                   DTSBX657
00551      05  WRK-EMP-NO                  PIC  9(06).                  DTSBX657
00552                                                                   DTSBX657
00553      05  WRK-TRACE-IND                   PIC  X(01).              DTSBX657
00554                                                                   DTSBX657
00555      05  WRK-MST-OPEN-IND                PIC  X(01).              DTSBX657
00556                                                                   DTSBX657
00557      05  WRK-REF-OPEN-IND                PIC  X(01).              DTSBX657
00558                                                                   DTSBX657
00559      05  WRK-SIC-SCAN-AREA.                                       DTSBX657
00560          10  WRK-RPT-FOUND-IND           PIC X(01).               DTSBX657
00561              88  WRK-RPT-FOUND-YES   VALUE 'Y'.                   DTSBX657
00562              88  WRK-RPT-FOUND-NO    VALUE 'N'.                   DTSBX657
00563          10  WRK-EMPL-CNT            PIC S9(07)  COMP-3.          DTSBX657
00564          10  WRK-SIC-4                   PIC X(04).               DTSBX657
00565          10  FILLER REDEFINES WRK-SIC-4.                          DTSBX657
00566              15  WRK-SIC-3               PIC X(03).               DTSBX657
00567              15  FILLER                  PIC X(01).               DTSBX657
00568          10  WRK-NO-SIC-CNT          PIC S9(07)  COMP-3.          DTSBX657
00569          10  WRK-SIC-7911-AREA.                                   DTSBX657
00570              15  WRK-SIC-7911-WORKERS    PIC S9(07)  COMP-3.      DTSBX657
00571              15  WRK-SIC-7911-BUSINESSES PIC S9(07)  COMP-3.      DTSBX657
00572          10  WRK-SIC-794-AREA.                                    DTSBX657
00573              15  WRK-SIC-794-WORKERS     PIC S9(07)  COMP-3.      DTSBX657
00574              15  WRK-SIC-794-BUSINESSES  PIC S9(07)  COMP-3.      DTSBX657
00575          10  WRK-SIC-799-AREA.                                    DTSBX657
00576              15  WRK-SIC-799-WORKERS     PIC S9(07)  COMP-3.      DTSBX657
00577              15  WRK-SIC-799-BUSINESSES  PIC S9(07)  COMP-3.      DTSBX657
00578          10  WRK-SIC-8351-AREA.                                   DTSBX657
00579              15  WRK-SIC-8351-WORKERS    PIC S9(07)  COMP-3.      DTSBX657
00580              15  WRK-SIC-8351-BUSINESSES PIC S9(07)  COMP-3.      DTSBX657
00581          10  WRK-SIC-8641-AREA.                                   DTSBX657
00582              15  WRK-SIC-8641-WORKERS    PIC S9(07)  COMP-3.      DTSBX657
00583              15  WRK-SIC-8641-BUSINESSES PIC S9(07)  COMP-3.      DTSBX657
00584          10  WRK-NAICS-6                 PIC X(06).               DTSBX657
00585          10  FILLER REDEFINES WRK-NAICS-6.                        DTSBX657
00586              15  WRK-NAICS-2             PIC X(02).               DTSBX657
00587              15  FILLER                  PIC X(04).               DTSBX657
00588 *RW1                                                              DTSBX657
00589      05  WRK-ABEND-MSG            PIC  X(60)  VALUE SPACES.       DTSBX657
00590      05  FIRST-TIME-IND           PIC  X(01)  VALUE 'Y'.          DTSBX657
00591      05  WS-NUMBER-ONE            PIC S9(05)  COMP-3 VALUE +0.    DTSBX657
00592                                                                   DTSBX657
00593      05  DISP-DATE                   PIC  X(08).                  DTSBX657
00594      05  DISP-TIME                   PIC  X(08).                  DTSBX657
00595                                                                   DTSBX657
00596      05  WS-LINE-CNT              PIC S9(02) COMP-3 VALUE 60.     DTSBX657
00597      05  WS-LINE-CNT2             PIC S9(02) COMP-3 VALUE +0.     DTSBX657
00598      05  WS-PAGE-CNT              PIC S9(03) COMP-3 VALUE +0.     DTSBX657
00599      05  WRK-T003-CNT                PIC S9(07)  COMP-3 VALUE +0.    CL184
00600                                                                   DTSBX657
00601 *    05  EVL-TEXT                        PIC  X(50).                 CL154
00602  01  MNT-LOG-AREA.                                                   CL183
00603      10  WRK-MNTE-MSG-LINE1.                                         CL183
00604          15 FILLER             PIC X(53) VALUE                       CL214
00605          'PER RETURNED TAX RATE NOTICE RECEIVED, RETURN MAIL FL'.    CL231
00606          15 FILLER             PIC X(20) VALUE                       CL217
00607          'AG HAS BEEN UPDATED '.                                     CL231
00608      10  WRK-MNTE-MSG-LINE2.                                         CL183
00609          15 FILLER             PIC X(53) VALUE                       CL214
00610          'TO YES. MAILING ADDRESS VERIFICATION PROCESS IN PROGR'.    CL231
00611          15 FILLER             PIC X(19) VALUE                       CL214
00612          'ESS.               '.                                      CL231
00613      10  WRK-MNTE-MSG-LINE3.                                         CL183
00614          15 FILLER             PIC X(53) VALUE                       CL214
00615          '                                                     '.    CL229
00616          15 FILLER             PIC X(19) VALUE                       CL214
00617          '                   '.                                      CL216
00618 *        'CORRESPONDENCE RESUMED.'.                                  CL198
00619 *                                                                    CL190
00620  01  HEADER-1.                                                    DTSBX657
00621      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBX657
00622      05  FILLER                   PIC X(49) VALUE '016R1'.        DTSBX657
00623      05  FILLER                   PIC X(60) VALUE                 DTSBX657
00624          'DISTRICT OF COLUMBIA'.                                  DTSBX657
00625      05  FILLER                   PIC X(06) VALUE 'DATE:'.        DTSBX657
00626      05  HDR1-LRCM-SYS-DATE       PIC X(08).                      DTSBX657
00627                                                                   DTSBX657
00628  01  HEADER-2.                                                    DTSBX657
00629      05  FILLER                   PIC X(54) VALUE SPACES.         DTSBX657
00630      05  FILLER                   PIC X(56) VALUE                 DTSBX657
00631          'TAX DIVISION'.                                          DTSBX657
00632      05  FILLER                   PIC X(06) VALUE 'TIME:'.        DTSBX657
00633      05  HDR2-LRCM-SYS-TIME       PIC X(08).                      DTSBX657
00634                                                                   DTSBX657
00635  01  HEADER-3.                                                    DTSBX657
00636      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBX657
00637      05  FILLER                   PIC X(38) VALUE                 DTSBX657
00638          'ROUTE TO:  ACCOUNTING UNIT'.                            DTSBX657
00639      05  HDR3-LITERAL             PIC X(43) VALUE                 DTSBX657
00640          '    EMPLOYERS REGISTERED SINCE 09/11/01    '.           DTSBX657
00641      05  FILLER                   PIC X(28) VALUE SPACES.         DTSBX657
00642      05  FILLER                   PIC X(06) VALUE 'PAGE:'.        DTSBX657
00643      05  HDR3-PAGE                PIC ZZ,ZZ9.                     DTSBX657
00644                                                                   DTSBX657
00645  01  HEADER-4.                                                    DTSBX657
00646      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBX657
00647      05  FILLER                   PIC X(132) VALUE SPACES.        DTSBX657
00648                                                                   DTSBX657
00649  01  HEADER-5.                                                    DTSBX657
00650      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBX657
00651      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBX657
00652      05  FILLER                   PIC X(06)  VALUE                DTSBX657
00653                       'EMP NO'.                                   DTSBX657
00654      05  FILLER                   PIC X(05)  VALUE SPACES.        DTSBX657
00655      05  FILLER                   PIC X(12)  VALUE                DTSBX657
00656                       'PRIMARY NAME'.                             DTSBX657
00657      05  FILLER                   PIC X(28)  VALUE SPACES.        DTSBX657
00658      05  FILLER                   PIC X(04)  VALUE SPACES.        DTSBX657
00659      05  FILLER                   PIC X(14)  VALUE                DTSBX657
00660                       'LIABILITY DATE'.                           DTSBX657
00661      05  FILLER                   PIC X(04)  VALUE SPACES.        DTSBX657
00662      05  FILLER                   PIC X(13)  VALUE                DTSBX657
00663                       'INACTIVE DATE'.                            DTSBX657
00664      05  FILLER                   PIC X(12)  VALUE SPACES.        DTSBX657
00665      05  FILLER                   PIC X(18)  VALUE SPACES.        DTSBX657
00666                                                                   DTSBX657
00667  01  HEADER-6.                                                    DTSBX657
00668      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBX657
00669      05  FILLER                   PIC X(132) VALUE SPACES.        DTSBX657
00670                                                                   DTSBX657
00671  01  DETAIL-LINE-1.                                               DTSBX657
00672      05  FILLER                  PIC  X(05)  VALUE SPACES.        DTSBX657
00673      05  WS-EMP-NO               PIC  999B999.                    DTSBX657
00674      05  FILLER                  PIC  X(02)  VALUE SPACES.        DTSBX657
00675      05  WS-PRIMARY-NAME         PIC  X(40).                      DTSBX657
00676      05  FILLER                  PIC  X(02)  VALUE SPACES.        DTSBX657
00677      05  WS-DATE1                PIC  X(10).                      DTSBX657
00678      05  FILLER                  PIC  X(02)  VALUE SPACES.        DTSBX657
00679      05  WS-DATE2                PIC  X(10).                      DTSBX657
00680 *    05  FILLER                  PIC  X(05)  VALUE SPACES.        DTSBX657
00681 *    05  WS-BALANCE-AMT          PIC  ZZZ,ZZZ,ZZ9.99.             DTSBX657
00682 *    05  FILLER                  PIC  X(09)  VALUE SPACES.        DTSBX657
00683 *    05  WS-PURSUED-RPT          PIC  ZZ9.                        DTSBX657
00684 *    05  FILLER                  PIC  X(10)  VALUE SPACES.        DTSBX657
00685 *    05  WS-DPC                  PIC  X(01).                      DTSBX657
00686 *    05  FILLER                  PIC  X(06)  VALUE SPACES.        DTSBX657
00687 *    05  WS-LIEN                 PIC  X(01).                      DTSBX657
00688 *    05  FILLER                  PIC  X(21)  VALUE SPACES.        DTSBX657
00689                                                                   DTSBX657
00690  01  FOOTING-LINE-1               PIC X(133) VALUE SPACES.        DTSBX657
00691  01  FOOTING-LINE-2               PIC X(133) VALUE SPACES.        DTSBX657
00692                                                                   DTSBX657
00693  01  FOOTING-LINE-3.                                              DTSBX657
00694      05  FILLER                   PIC  X(25)  VALUE SPACES.       DTSBX657
00695      05  WS-FOOTING-CNT           PIC  ZZ,ZZ9.                    DTSBX657
00696      05  FILLER                   PIC  X(02)  VALUE SPACES.       DTSBX657
00697      05  FILLER                   PIC  X(43) VALUE                DTSBX657
00698                     'DEBIT WRITE OFF CANDIDATES LISTED ON REPORT'.DTSBX657
00699      05  FILLER                   PIC  X(23)  VALUE SPACES.       DTSBX657
00700  01  FOOTING-LINE-4               PIC X(133) VALUE SPACES.        DTSBX657
00701  01  FOOTING-LINE-5               PIC X(133) VALUE SPACES.        DTSBX657
00702  01  FOOTING-LINE-6.                                              DTSBX657
00703      05  FILLER                   PIC X(25)  VALUE SPACES.        DTSBX657
00704      05  FILLER                   PIC  X(17) VALUE                DTSBX657
00705                       '*** END OF REPORT'.                        DTSBX657
00706 *RW2                                                              DTSBX657
00707                                                                   DTSBX657
00708  01  TSKL-REC.                                                       CL183
00709  ++INCLUDE DTSITSKL                                                  CL183
00710      EJECT                                                           CL183
00711  01  T003-REC.                                                       CL183
00712  ++INCLUDE DTSIT003                                                  CL183
00713      EJECT                                                           CL183
00714  01  L001-LINK-AREA.                                              DTSBX657
00715  ++INCLUDE DTSIL001                                               DTSBX657
00716      EJECT                                                        DTSBX657
00717  01  L005-LINK-AREA.                                                 CL157
00718  ++INCLUDE DTSIL005                                               DTSBX657
00719      EJECT                                                        DTSBX657
00720  01  L331-LINK-AREA.                                                 CL209
00721  ++INCLUDE DTSIL331                                                  CL209
00722      EJECT                                                        DTSBX657
00723  01  L039-LINK-AREA.                                                 CL209
00724  ++INCLUDE DTSIL039                                                  CL209
00725      EJECT                                                           CL209
00726  01  L101-LINK-AREA.                                                 CL*23
00727  ++INCLUDE DTSIL101                                                  CL*23
00728      EJECT                                                        DTSBX657
00729  01  L102-LINK-AREA.                                                 CL*23
00730  ++INCLUDE DTSIL102                                                  CL*23
00731      EJECT                                                           CL*23
00732  01  L109-LINK-AREA.                                                 CL*23
00733  ++INCLUDE DTSIL109                                                  CL*23
00734                                                                      CL*23
00735  01  L054-LINK-AREA.                                              DTSBX657
00736  ++INCLUDE DTSIL054                                               DTSBX657
00737      EJECT                                                        DTSBX657
00738  01  L410-LINK-AREA.                                              DTSBX657
00739  ++INCLUDE DTSIL410                                               DTSBX657
00740      EJECT                                                        DTSBX657
00741  01  L600-LINK-AREA.                                              DTSBX657
00742  ++INCLUDE DTSIL600                                               DTSBX657
00743      EJECT                                                        DTSBX657
00744  01  L910-LINK-AREA.                                              DTSBX657
00745  ++INCLUDE DTSIL910                                               DTSBX657
00746      EJECT                                                        DTSBX657
00747  01  MSKL-REC.                                                    DTSBX657
00748  ++INCLUDE DTSIMSKL                                               DTSBX657
00749      EJECT                                                        DTSBX657
00750  01  MLOG-REC.                                                       CL240
00751  ++INCLUDE DTSIMLOG                                                  CL240
00752  01  MNTE-REC.                                                       CL240
00753  ++INCLUDE DTSIMNTE                                                  CL240
00754      EJECT                                                           CL183
00755  01  MHDR-REC.                                                    DTSBX657
00756  ++INCLUDE DTSIMHDR                                               DTSBX657
00757      EJECT                                                        DTSBX657
00758  01  MPRF-REC.                                                       CL164
00759  ++INCLUDE DTSIMPRF                                                  CL164
00760      EJECT                                                           CL164
00761  01  MQTR-REC.                                                    DTSBX657
00762  ++INCLUDE DTSIMQTR                                               DTSBX657
00763      EJECT                                                        DTSBX657
00764  01  MRPT-REC.                                                    DTSBX657
00765  ++INCLUDE DTSIMRPT                                               DTSBX657
00766      EJECT                                                        DTSBX657
00767  01  MSOL-REC.                                                    DTSBX657
00768  ++INCLUDE DTSIMSOL                                               DTSBX657
00769      EJECT                                                        DTSBX657
00770  01  MRCT-REC.                                                    DTSBX657
00771  ++INCLUDE DTSIMRCT                                               DTSBX657
00772      EJECT                                                        DTSBX657
00773  01  MREL-REC.                                                    DTSBX657
00774  ++INCLUDE DTSIMREL                                               DTSBX657
00775      EJECT                                                        DTSBX657
00776  01  MEVL-REC.                                                    DTSBX657
00777  ++INCLUDE DTSIMEVL                                               DTSBX657
00778      EJECT                                                        DTSBX657
00779  01  MLIN-REC.                                                    DTSBX657
00780  ++INCLUDE DTSIMLIN                                               DTSBX657
00781      EJECT                                                        DTSBX657
00782  01  MRTE-REC.                                                    DTSBX657
00783  ++INCLUDE DTSIMRTE                                               DTSBX657
00784      EJECT                                                        DTSBX657
00785  01  MDST-REC.                                                    DTSBX657
00786  ++INCLUDE DTSIMDST                                               DTSBX657
00787      EJECT                                                        DTSBX657
00788  01  MPAY-REC.                                                    DTSBX657
00789  ++INCLUDE DTSIMPAY                                               DTSBX657
00790      EJECT                                                        DTSBX657
00791  01  MADJ-REC.                                                    DTSBX657
00792  ++INCLUDE DTSIMADJ                                               DTSBX657
00793      EJECT                                                        DTSBX657
00794  01  MJRN-REC.                                                    DTSBX657
00795  ++INCLUDE DTSIMJRN                                               DTSBX657
00796      EJECT                                                        DTSBX657
00797  01  MERA-REC.                                                    DTSBX657
00798  ++INCLUDE DTSIMERA                                               DTSBX657
00799      EJECT                                                        DTSBX657
00800  01  MCOL-REC.                                                    DTSBX657
00801  ++INCLUDE DTSIMCOL                                               DTSBX657
00802      EJECT                                                        DTSBX657
00803  01  MFAS-REC.                                                    DTSBX657
00804  ++INCLUDE DTSIMFAS                                               DTSBX657
00805  01  MAUR-REC.                                                    DTSBX657
00806  ++INCLUDE DTSIMAUR                                               DTSBX657
00807      EJECT                                                        DTSBX657
00808  01  MFAE-REC.                                                    DTSBX657
00809  ++INCLUDE DTSIMFAE                                               DTSBX657
00810      EJECT                                                        DTSBX657
00811      EJECT                                                        DTSBX657
00812  01  MOPO-REC.                                                    DTSBX657
00813  ++INCLUDE DTSIMOPO                                               DTSBX657
00814      EJECT                                                        DTSBX657
00815  01  MTAD-REC.                                                    DTSBX657
00816  ++INCLUDE DTSIMTAD                                               DTSBX657
00817      EJECT                                                        DTSBX657
00818  01  MTAA-REC.                                                    DTSBX657
00819  ++INCLUDE DTSIMTAA                                               DTSBX657
00820      EJECT                                                        DTSBX657
00821  01  MBAA-REC.                                                    DTSBX657
00822  ++INCLUDE DTSIMBAA                                               DTSBX657
00823      EJECT                                                        DTSBX657
00824  01  MFSC-REC.                                                    DTSBX657
00825  ++INCLUDE DTSIMFSC                                               DTSBX657
00826      EJECT                                                        DTSBX657
00827  01  MERD-REC.                                                    DTSBX657
00828  ++INCLUDE DTSIMERD                                               DTSBX657
00829      EJECT                                                        DTSBX657
00830  01  MDPC-REC.                                                    DTSBX657
00831  ++INCLUDE DTSIMDPC                                               DTSBX657
00832      EJECT                                                        DTSBX657
00833  01  L921-LINK-AREA.                                              DTSBX657
00834  ++INCLUDE DTSIL921                                               DTSBX657
00835      EJECT                                                        DTSBX657
00836  01  ISKL-REC.                                                    DTSBX657
00837  ++INCLUDE DTSIISKL                                               DTSBX657
00838      EJECT                                                        DTSBX657
00839  01  IPES-REC.                                                    DTSBX657
00840  ++INCLUDE DTSIIPES                                               DTSBX657
00841      EJECT                                                        DTSBX657
00842  01  L931-LINK-AREA.                                              DTSBX657
00843  ++INCLUDE DTSIL931                                               DTSBX657
00844      EJECT                                                        DTSBX657
00845  01  FSKL-REC.                                                    DTSBX657
00846  ++INCLUDE DTSIFSKL                                               DTSBX657
00847      EJECT                                                        DTSBX657
00848  01  FQTR-REC.                                                    DTSBX657
00849  ++INCLUDE DTSIFQTR                                               DTSBX657
00850      EJECT                                                        DTSBX657
00851  01  FFIS-REC.                                                    DTSBX657
00852  ++INCLUDE DTSIFFIS                                               DTSBX657
00853      EJECT                                                        DTSBX657
00854  01  FFAZ-REC.                                                    DTSBX657
00855  ++INCLUDE DTSIFFAZ                                               DTSBX657
00856      EJECT                                                        DTSBX657
00857  01  FOPR-REC.                                                    DTSBX657
00858  ++INCLUDE DTSIFOPR                                               DTSBX657
00859      EJECT                                                        DTSBX657
00860  01  L933-LINK-AREA.                                              DTSBX657
00861  ++INCLUDE DTSIL933                                               DTSBX657
00862      EJECT                                                        DTSBX657
00863  01  XSIC-REC.                                                    DTSBX657
00864  ++INCLUDE DTSIXSIC                                               DTSBX657
00865      EJECT                                                        DTSBX657
00866  01  L004-COMM-AREA.                                              DTSBX657
00867  ++INCLUDE DTSIL004                                               DTSBX657
00868                                                                   DTSBX657
00869  01  L061-LINK-AREA.                                              DTSBX657
00870  ++INCLUDE DTSIL061                                               DTSBX657
00871                                                                   DTSBX657
00872  01  L062-LINK-AREA.                                              DTSBX657
00873  ++INCLUDE DTSIL062                                               DTSBX657
00874                                                                   DTSBX657
00875  01  L516-LINK-AREA.                                              DTSBX657
00876  ++INCLUDE DTSIL516                                               DTSBX657
00877      EJECT                                                        DTSBX657
00878  01  LBCM-LINK-AREA.                                                 CL173
00879  ++INCLUDE DTSILBCM                                                  CL173
00880      EJECT                                                           CL154
00881  01  L923-LINK-AREA.                                                 CL183
00882  ++INCLUDE DTSIL923                                                  CL183
00883      EJECT                                                           CL183
00884  01  ASKL-REC.                                                       CL183
00885  ++INCLUDE DTSIASKL                                                  CL183
00886      EJECT                                                           CL183
00887  01  AHDR-REC.                                                       CL183
00888  ++INCLUDE DTSIAHDR                                                  CL183
00889      EJECT                                                           CL183
00890  01  AADJ-REC.                                                       CL183
00891  ++INCLUDE DTSIAADJ                                                  CL183
00892      EJECT                                                           CL183
00893  01  L927-LINK-AREA.                                                 CL183
00894  ++INCLUDE DTSIL927                                                  CL183
00895      EJECT                                                           CL183
00896  PROCEDURE DIVISION.                                                 CL228
00897                                                                      CL164
00898      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBX657
00899         PERFORM P0000-PROCESS THRU P0000-EXIT                     DTSBX657
00900         PERFORM T0000-TERMINATE THRU T0000-EXIT.                  DTSBX657
00901      SKIP2                                                        DTSBX657
00902      GOBACK.                                                      DTSBX657
00903      EJECT                                                        DTSBX657
00904  I0000-INITIATE.                                                  DTSBX657
00905      SKIP2                                                        DTSBX657
00906      MOVE 'N' TO WRK-TRACE-IND.                                   DTSBX657
00907      SET WRK-ERROR-NO-88 TO TRUE.                                 DTSBX657
00908       MOVE +0 TO WRK-MPRF-REC-CNT                                    CL193
00909                                                                   DTSBX657
00910      PERFORM I2000-OPEN-FILES-1        THRU I2000-EXIT.           DTSBX657
00911                                                                   DTSBX657
00912      MOVE +0 TO WRK-MPRF-CNT                                         CL120
00913                 WRK-MQTR-CNT                                         CL120
00914                 WRK-MLOG-CNT                                         CL120
00915                 WRK-MEVL-DELETED-CNT.                                CL120
00916                                                                      CL120
00917  I0000-EXIT.                                                      DTSBX657
00918      EXIT.                                                        DTSBX657
00919  I2000-OPEN-FILES-1.                                              DTSBX657
00920      DISPLAY 'UPD RETURN FLAG TO Y - BAD ADDR TAX RATE RETURNED'     CL231
00921         DISPLAY ' '.                                                 CL220
00922      OPEN INPUT  EMP-FILE1.                                          CL120
00923      IF NOT EXP-STATUS-OK-88                                      DTSBX657
00924         DISPLAY 'CANNOT OPEN EXP FILE ' EXP-STATUS                DTSBX657
00925         SET WRK-ERROR-YES-88 TO TRUE                              DTSBX657
00926         GO TO I2000-EXIT.                                         DTSBX657
00927      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSBX657
00928                                                                   DTSBX657
00929      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBX657
00930                                                                   DTSBX657
00931 *    PERFORM S910-OPEN-READ THRU S910-EXIT.                          CL171
00932      PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT.                 CL176
00933      PERFORM S923-OPEN-UPDATE THRU S923-EXIT.                        CL189
00934      PERFORM S927-OPEN-UPDATE         THRU S927-EXIT.                CL189
00935                                                                   DTSBX657
00936 *    PERFORM S921-OPEN-READ THRU S921-EXIT.                          CL123
00937      PERFORM S005-FROM-SYS             THRU S005-EXIT.               CL187
00938                                                                   DTSBX657
00939 **   PERFORM S931-OPEN-READ THRU S931-EXIT.                          CL122
00940 *    PERFORM S931-OPEN-UPDATE THRU S931-EXIT.                        CL176
00941                                                                   DTSBX657
00942      MOVE WRK-MOD-NAME TO L933-MOD-NAME.                          DTSBX657
00943                                                                   DTSBX657
00944 ***  PERFORM S933-OPEN-READ THRU S933-EXIT.                       DTSBX657
00945                                                                   DTSBX657
00946  I2000-EXIT.                                                      DTSBX657
00947      EXIT.                                                        DTSBX657
00948                                                                   DTSBX657
00949  P0000-PROCESS.                                                   DTSBX657
00950 *     DISPLAY 'IN P0000-PROCESS'.                                    CL220
00951       READ EMP-FILE1 AT END GO TO P0000-EXIT.                        CL122
00952                                                                   DTSBX657
00953      MOVE INEMP-NOA        TO WS-EMP-NOA.                            CL254
00954      MOVE INEMP-NOB        TO WS-EMP-NOB.                            CL254
00955       ADD 1 TO IN-REC-CNT.                                           CL122
00956      MOVE LOW-VALUES TO MPRF-KEY-AREA.                               CL129
00957      SET MPRF-PRF-88 TO TRUE.                                        CL129
00958                                                                   DTSBX657
00959      MOVE WS-EMP-NO1     TO WS-EMP-NOZ.                              CL**2
00960      MOVE WS-EMP-NOZ     TO MPRF-EMP-NO.                             CL**2
00961      MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA.                            CL119
00962                                                                   DTSBX657
00963      PERFORM S910-READ         THRU S910-EXIT.                    DTSBX657
00964      IF L910-NO-REC-88                                               CL119
00965         DISPLAY ' EMP NOT FOUND '   WS-EMP-NOZ                       CL**2
00966         GO TO P0000-PROCESS.                                         CL119
00967      ADD 1 TO MPRF-REC-CNT.                                          CL122
00968      MOVE MSKL-REC TO MPRF-REC                                       CL119
00969                                                                      CL204
00970      IF MPRF-RETURN-MAIL-YES-88                                      CL252
00971       DISPLAY MPRF-EMP-NO ' DUTAS RTN MAIL FLAG = Y '                CL252
00972               '----**** FLAG NOT UPDATED'                            CL252
00973       GO TO P0000-PROCESS.                                           CL252
00974                                                                      CL227
00975         MOVE +0 TO WRK-MEVL-REWRITE-CNT                              CL231
00976       PERFORM P6000-SCAN-EVL   THRU P6000-EXIT.                      CL231
00977       IF WRK-MEVL-REWRITE-CNT = 1                                    CL231
00978       DISPLAY MPRF-EMP-NO ' DUTAS ADDRESS UPDATED '                  CL253
00979               '----++++ FLAG NOT UPDATED'                            CL253
00980       GO TO P0000-PROCESS.                                           CL231
00981       PERFORM P1100-CHECK-FOR-MLOG THRU P1100-EXIT.                  CL217
00982       PERFORM P3000-ADD-MNTE     THRU P3000-EXIT                     CL225
00983       SET MPRF-RETURN-MAIL-YES-88 TO TRUE                            CL221
00984       MOVE L005-DATE   TO MPRF-CHNG-DATE                             CL228
00985       MOVE MPRF-REC    TO MSKL-REC                                   CL228
00986       PERFORM S910-REWRITE THRU S910-EXIT                            CL221
00987       DISPLAY MPRF-EMP-NO ' DUTAS RTN MAIL FLAG UPDATED TO Y '       CL231
00988               '---- RTN FLAG UPDATED'                                CL231
00989       ADD +1 TO WRK-MPRF-REC-CNT                                     CL221
00990       GO TO P0000-PROCESS.                                           CL155
00991  P0000-EXIT.                                                         CL119
00992      EXIT.                                                        DTSBX657
00993  P1100-CHECK-FOR-MLOG.                                               CL208
00994          ADD  +5000           TO WRK-ABSTIME                         CL222
00995          PERFORM S005-FROM-SYS THRU S005-EXIT                        CL208
00996          MOVE L005-ABSTIME TO WRK-SYS-ABSTIME                        CL208
00997          MOVE MPRF-EMP-NO TO L331-EMP-NO WRK-EMP-NO                  CL208
00998          MOVE L005-DATE          TO L331-CURR-RUN-DATE               CL212
00999          ADD  WRK-ABSTIME TO WRK-SYS-ABSTIME                         CL208
01000          MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME                 CL208
01001          MOVE 'DTSBX657' TO L331-OP-ID                               CL254
01002          MOVE 'RETURN MAIL IND' TO L331-FIELD-NAME                   CL208
01003          MOVE MPRF-RETURN-MAIL-IND  TO L331-FROM-VALUE               CL221
01004 *        MOVE 'N'                   TO L331-FROM-VALUE               CL221
01005          MOVE 'Y'         TO L331-TO-VALUE                           CL213
01006          MOVE 'Y'         TO MPRF-RETURN-MAIL-IND                    CL213
01007 *        MOVE +1 TO WRK-MPRF-MAIL-UPD-CNT                            CL211
01008 *        DISPLAY ' RETURN MAIL UPDATED: ' WRK-EMP-NO                 CL220
01009          PERFORM S331-WRITE-MLOG THRU S331-EXIT.                     CL208
01010  P1100-EXIT. EXIT.                                                   CL208
01011                                                                      CL208
01012  P1600-FIND-QTR.                                                     CL208
01013      MOVE LOW-VALUES  TO MQTR-KEY-AREA.                           DTSBX657
01014      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBX657
01015      SET MQTR-QTR-88  TO TRUE.                                    DTSBX657
01016      MOVE 20134 TO MQTR-YRQ.                                         CL119
01017      MOVE MQTR-REC TO MSKL-REC.                                   DTSBX657
01018                                                                   DTSBX657
01019      PERFORM S910-READ         THRU S910-EXIT.                    DTSBX657
01020      IF L910-NO-REC-88                                            DTSBX657
01021         DISPLAY ' QTR REC NOT FOUND ' MPRF-EMP-NO ' ' MQTR-YRQ       CL119
01022         GO TO P1600-EXIT                                          DTSBX657
01023      ELSE                                                         DTSBX657
01024         MOVE MSKL-REC TO MQTR-REC.                                DTSBX657
01025                                                                   DTSBX657
01026         ADD 1 TO WRK-MQTR-FOUND-CNT.                                 CL124
01027         DISPLAY MPRF-EMP-NO                                          CL121
01028            'B CURR TYPE ' MQTR-CURR-RPT-TYPE                         CL121
01029            'B CUTOFF CD ' MQTR-MISS-RPT-CUTOFF-CD                    CL124
01030            'B PURSUD ID ' MQTR-PURSUED-RPT-IND.                      CL121
01031                                                                   DTSBX657
01032      IF MQTR-CURR-RCVD-88 OR                                         CL135
01033         MQTR-CURR-NOT-LIABLE-88                                      CL135
01034 *       SET MQTR-CURR-ORIG-88 TO TRUE                                CL133
01035 *       SET MQTR-RPT-NOT-PURSUED-88 TO TRUE                          CL133
01036         SET MQTR-MISS-NOT-YET-RUN-88 TO TRUE                         CL122
01037         MOVE MQTR-REC TO MSKL-REC                                    CL119
01038         PERFORM S910-REWRITE THRU S910-EXIT                          CL136
01039         ADD 1 TO WRK-MQTR-UPDATED-CNT                                CL131
01040                                                                      CL122
01041         DISPLAY MPRF-EMP-NO                                          CL122
01042            'A CURR TYPE ' MQTR-CURR-RPT-TYPE                         CL122
01043            'A CUTOFF CD ' MQTR-MISS-RPT-CUTOFF-CD                    CL124
01044            'A PURSUD ID ' MQTR-PURSUED-RPT-IND                       CL134
01045       ELSE                                                           CL134
01046         DISPLAY MPRF-EMP-NO                                          CL134
01047            'Z CURR TYPE ' MQTR-CURR-RPT-TYPE                         CL134
01048            'Z CUTOFF CD ' MQTR-MISS-RPT-CUTOFF-CD                    CL134
01049            'Z PURSUD ID ' MQTR-PURSUED-RPT-IND.                      CL134
01050  P1600-EXIT.                                                      DTSBX657
01051      EXIT.                                                        DTSBX657
01052                                                                   DTSBX657
01053  P6000-SCAN-EVL.                                                     CL122
01054      SET WRK-MEVL-OK TO TRUE.                                        CL122
01055      MOVE +0              TO WRK-RECEIVED-DATE.                      CL122
01056      MOVE LOW-VALUES  TO MLOG-KEY-AREA                               CL242
01057                          MSKL-KEY-AREA.                              CL242
01058      MOVE MPRF-EMP-NO TO MLOG-EMP-NO.                                CL240
01059      SET MLOG-LOG-88  TO TRUE.                                       CL240
01060      MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA.                            CL240
01061                                                                      CL122
01062      PERFORM S910-START-BROWSE THRU S910-EXIT.                       CL122
01063      IF L910-NO-REC-88                                               CL122
01064         DISPLAY ' EVENT LOG NOT FOUND ' MPRF-EMP-NO                  CL122
01065         SET WRK-MEVL-NO-REC TO TRUE                                  CL206
01066         GO TO P6000-EXIT                                             CL122
01067      ELSE                                                            CL122
01068         PERFORM P6100-SCAN-MEVL THRU P6100-EXIT                      CL122
01069            UNTIL WRK-MEVL-NO-REC.                                    CL122
01070                                                                      CL122
01071  P6000-EXIT.                                                         CL122
01072      EXIT.                                                           CL122
01073  P6100-SCAN-MEVL.                                                    CL122
01074      MOVE MSKL-REC TO MLOG-REC.                                      CL240
01075 *       ADD 1 TO WRK-MEVL-FOUND-CNT.                                 CL127
01076                                                                      CL200
01077 *      DISPLAY 'MLOG EMP+ ' MLOG-EMP-NO.                             CL250
01078 *     IF MLOG-EMP-NO = 330099                                        CL252
01079 *        DISPLAY 'MLOG DAE+ ' MLOG-ESTB-DATE.                        CL252
01080       IF MLOG-ESTB-DATE > 20190106                                   CL251
01081          NEXT SENTENCE                                               CL245
01082       ELSE                                                           CL245
01083       GO TO P6100-READ-NEXT.                                         CL251
01084 *       SET WRK-MEVL-NO-REC TO TRUE                                  CL251
01085 *       MOVE +1 TO WRK-MEVL-REWRITE-CNT                              CL251
01086 *       GO TO P6100-EXIT.                                            CL251
01087                                                                      CL200
01088         DISPLAY ' MNTE PRIOR UPD ' MLOG-EMP-NO ' '.                  CL246
01089 *     IF MLOG-EMP-NO = 330099                                        CL252
01090          IF MLOG-DATA-ELEMENT-NAME = 'MTAD-ATTN-LINE' OR             CL244
01091             MLOG-DATA-ELEMENT-NAME = 'MTAD-DELIV-LINE-1' OR          CL244
01092             MLOG-DATA-ELEMENT-NAME = 'MTAD-DELIV-LINE-2' OR          CL244
01093             MLOG-DATA-ELEMENT-NAME = 'MTAD-CITY' OR                  CL244
01094             MLOG-DATA-ELEMENT-NAME = 'MTAD-ST' OR                    CL244
01095             MLOG-DATA-ELEMENT-NAME = 'MTAD-ZIP'                      CL244
01096         DISPLAY ' MLOG REWRITTEN ' MLOG-EMP-NO ' ' MLOG-ESTB-DATE    CL252
01097         SET WRK-MEVL-NO-REC TO TRUE                                  CL252
01098         MOVE +1 TO WRK-MEVL-REWRITE-CNT                              CL246
01099         GO TO P6100-EXIT.                                            CL237
01100                                                                      CL204
01101       GO TO P6100-READ-NEXT.                                         CL204
01102 *       MOVE                                                         CL231
01103 *       'DELINQUENCY NOTICE FOR 13/1 SENT TO MTAD  1   '             CL231
01104 *                         TO MEVL-TEXT (1:46)                        CL231
01105 *       MOVE MEVL-REC TO MSKL-REC                                    CL231
01106 *       PERFORM S910-REWRITE THRU S910-EXIT                          CL231
01107 *       PERFORM S910-DELETE THRU S910-EXIT                           CL139
01108 *       SET WRK-MEVL-OK-88 TO TRUE                                   CL205
01109 *       DISPLAY ' MEVL REWRITTEN ' MEVL-EMP-NO ' ' MEVL-TEXT.        CL231
01110 *       GO TO P6100-EXIT.                                            CL204
01111                                                                      CL122
01112 *     IF MEVL-DATE < 20140228                                        CL133
01113 *       SET WRK-MEVL-NO-REC TO TRUE                                  CL133
01114 *       GO TO P6100-EXIT.                                            CL133
01115  P6100-READ-NEXT.                                                    CL204
01116                                                                      CL132
01117      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBX657
01118      IF L910-NO-REC-88                                            DTSBX657
01119         SET WRK-MEVL-NO-REC TO TRUE.                              DTSBX657
01120                                                                   DTSBX657
01121  P6100-EXIT.                                                      DTSBX657
01122      EXIT.                                                        DTSBX657
01123                                                                   DTSBX657
01124  P6150-MNTE-NOTE.                                                    CL237
01125        DISPLAY  MNTE-TEXT(MNTE-TEXT-CNT).                            CL238
01126  P6150-EXIT.                                                         CL237
01127      EXIT.                                                           CL237
01128                                                                      CL237
01129  S6000-WRITE-MEVL.                                                   CL154
01130      MOVE LOW-VALUES TO MEVL-REC.                                    CL165
01131      MOVE LOW-VALUES TO LBCM-RUN-AREA.                               CL173
01132                                                                      CL173
01133      MOVE ZERO TO LBCM-EMP-ABSTIME.                                  CL173
01134      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                                CL165
01135      DISPLAY'EMPNO:', MPRF-EMP-NO.                                   CL166
01136      SET MEVL-EVL-88 TO TRUE.                                        CL165
01137      ADD +6000 TO LBCM-EMP-ABSTIME.                                  CL182
01138                                                                      CL154
01139      MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME.                          CL173
01140                                                                      CL154
01141      PERFORM S005-FROM-ABSTIME THRU S005-A-EXIT.                     CL173
01142                                                                      CL154
01143                                                                      CL154
01144      DISPLAY'EMPNO:', MPRF-EMP-NO.                                   CL166
01145                                                                      CL154
01146      MOVE L005-DATE TO MEVL-DATE.                                    CL181
01147                                                                      CL154
01148      MOVE L005-TIME TO MEVL-TIME.                                    CL181
01149                                                                      CL154
01150      DISPLAY'EMPNO:', MPRF-EMP-NO.                                   CL166
01151                                                                      CL154
01152      MOVE ZEROS TO MEVL-PURGE-DATE.                                  CL154
01153                                                                      CL154
01154                                                                      CL154
01155 *    MOVE EVL-TEXT TO MEVL-TEXT.                                     CL184
01156                                                                      CL154
01157 **** SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                              CL154
01158 **   MOVE MPAY-RESPONSIBLE-OP-ID   TO MEVL-SOURCE.                   CL180
01159                                                                      CL154
01160      SET MEVL-NOT-CONVERTED-88 TO TRUE.                              CL154
01161 *    MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE                       CL180
01162      MOVE 20170127           TO MEVL-ESTB-DATE                       CL180
01163                                 MEVL-CHNG-DATE.                      CL154
01164                                                                      CL154
01165                                                                      CL154
01166      MOVE MEVL-REC TO MSKL-REC.                                      CL154
01167                                                                      CL154
01168      PERFORM S910-WRITE THRU S910-EXIT.                              CL154
01169  S6000-EXIT.                                                         CL154
01170      EXIT.                                                           CL154
01171      EJECT                                                           CL154
01172                                                                   DTSBX657
01173  P3000-ADD-MNTE.                                                     CL183
01174      MOVE LENGTH OF T003-REC     TO T003-LENGTH.                     CL183
01175      MOVE '003'                  TO T003-REC-TYPE.                   CL183
01176      MOVE 'SYSTEM    '           TO T003-ORIGIN.                     CL183
01177      MOVE L005-DATE              TO T003-SYS-DATE.                   CL183
01178      MOVE L005-TIME              TO T003-SYS-TIME.                   CL183
01179      SET T003-ADD-MNTE-88        TO TRUE.                            CL183
01180                                                                      CL183
01181      MOVE LOW-VALUES              TO                                 CL183
01182      MNTE-KEY-AREA.                                                  CL183
01183      MOVE MPRF-EMP-NO             TO MNTE-EMP-NO.                    CL183
01184      SET MNTE-NTE-88              TO TRUE.                           CL183
01185      MOVE +0                      TO MNTE-PURGE-DATE.                CL183
01186      SET MNTE-NOT-CONVERTED-88    TO TRUE.                           CL183
01187                                                                      CL183
01188      MOVE L005-DATE               TO MNTE-ESTB-DATE                  CL183
01189                                      MNTE-CHNG-DATE.                 CL183
01190      MOVE ZERO                    TO MNTE-KEY-ESTB-ABSTIME           CL183
01191                                      MNTE-DATA-ESTB-ABSTIME          CL183
01192                                      MNTE-CHNG-ABSTIME.              CL183
01193      MOVE 'NCOAX655'              TO MNTE-ESTB-OP-ID                 CL228
01194                                      MNTE-CHNG-OP-ID.                CL183
01195                                                                      CL183
01196      MOVE 'RETURN MAIL FLAG UPDATED TO YES    '                      CL229
01197                                   TO MNTE-SUBJECT.                   CL183
01198                                                                      CL183
01199      MOVE +3                      TO MNTE-TEXT-CNT.                  CL190
01200                                                                      CL183
01201      MOVE WRK-MNTE-MSG-LINE1      TO MNTE-TEXT (1).                  CL183
01202      MOVE WRK-MNTE-MSG-LINE2      TO MNTE-TEXT (2).                  CL183
01203 *    MOVE WRK-MNTE-MSG-LINE3      TO MNTE-TEXT (3).                  CL229
01204                                                                      CL183
01205      MOVE MPRF-EMP-NO               TO T003-EMP-NO.                  CL183
01206      MOVE MNTE-REC                  TO T003-MNTE-REC.                CL183
01207                                                                      CL183
01208      MOVE T003-REC                  TO TSKL-REC.                     CL183
01209      PERFORM S927-WRITE             THRU S927-EXIT.                  CL183
01210      ADD +1                         TO WRK-T003-CNT.                 CL183
01211                                                                      CL183
01212  P3000-EXIT.                                                         CL183
01213      EXIT.                                                           CL183
01214                                                                      CL183
01215      SKIP3                                                           CL183
01216  T0000-TERMINATE.                                                 DTSBX657
01217                                                                   DTSBX657
01218      DISPLAY ' '.                                                 DTSBX657
01219                                                                   DTSBX657
01220      DISPLAY '*** DTSZX016 TERMINATION STATISTICS ***'.              CL123
01221                                                                   DTSBX657
01222      DISPLAY ' '.                                                 DTSBX657
01223                                                                   DTSBX657
01224      DISPLAY 'INPUT RECORDS READ                        : '          CL123
01225              IN-REC-CNT                                              CL123
01226                                                                      CL123
01227      DISPLAY 'RETURN MAIL UPDATE                       : '           CL192
01228              WRK-MPRF-REC-CNT                                        CL192
01229                                                                      CL192
01230                                                                      CL123
01231      DISPLAY 'ACTIVE EMPLOYERS FOUND                    : '          CL123
01232              MPRF-WRK-CNT.                                           CL123
01233                                                                      CL123
01234      DISPLAY 'QTR RECS FOUND                            : '          CL123
01235          WRK-MQTR-FOUND-CNT.                                         CL123
01236                                                                      CL123
01237      DISPLAY 'QTR RECS UPDATED                          : '          CL123
01238          WRK-MQTR-UPDATED-CNT.                                       CL123
01239                                                                   DTSBX657
01240      DISPLAY 'MEVL REC FOUND                            : '          CL123
01241          WRK-MEVL-FOUND-CNT.                                         CL123
01242                                                                   DTSBX657
01243      DISPLAY 'MEVL REC UPDATED                          : '          CL123
01244 **       WRK-MEVL-DELETED-CNT.                                       CL149
01245          WRK-MEVL-REWRITE-CNT.                                       CL149
01246                                                                      CL123
01247      CLOSE EMP-FILE1.                                                CL123
01248                                                                   DTSBX657
01249      PERFORM S923-CLOSE THRU S923-EXIT.                              CL189
01250      PERFORM S927-CLOSE THRU S927-EXIT.                              CL189
01251                                                                      CL183
01252      PERFORM S910-CLOSE THRU S910-EXIT.                              CL176
01253 *    PERFORM S921-CLOSE THRU S921-EXIT.                              CL123
01254 *    PERFORM S931-CLOSE THRU S931-EXIT.                              CL176
01255 ***  PERFORM S933-CLOSE THRU S933-EXIT.                           DTSBX657
01256                                                                   DTSBX657
01257  T0000-EXIT.                                                      DTSBX657
01258      EXIT.                                                        DTSBX657
01259      EJECT                                                        DTSBX657
01260  S001-FROM-FED-8.                                                 DTSBX657
01261      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX657
01262      GO TO S001-DATE.                                             DTSBX657
01263                                                                   DTSBX657
01264  S001-FROM-ABS-DAY.                                               DTSBX657
01265      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBX657
01266      GO TO S001-DATE.                                             DTSBX657
01267                                                                   DTSBX657
01268  S001-DATE.                                                       DTSBX657
01269      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX657
01270                                                                   DTSBX657
01271  S001-EXIT.                                                       DTSBX657
01272      EXIT.                                                        DTSBX657
01273      SKIP3                                                        DTSBX657
01274  S004-FROM-5.                                                     DTSBX657
01275      SET L004-FROM-5     TO TRUE.                                 DTSBX657
01276      GO TO S004-EDIT-QTR.                                         DTSBX657
01277                                                                   DTSBX657
01278  S004-FROM-ABS.                                                   DTSBX657
01279      SET L004-FROM-ABS   TO TRUE.                                 DTSBX657
01280      GO TO S004-EDIT-QTR.                                         DTSBX657
01281                                                                   DTSBX657
01282  S004-EDIT-QTR.                                                   DTSBX657
01283      CALL 'DTSBU004' USING L004-COMM-AREA.                        DTSBX657
01284                                                                   DTSBX657
01285  S004-EXIT.                                                       DTSBX657
01286      EXIT.                                                        DTSBX657
01287      SKIP3                                                        DTSBX657
01288                                                                   DTSBX657
01289  S005-FROM-SYS.                                                      CL187
01290      SET L005-FROM-SYS   TO TRUE.                                    CL187
01291      CALL 'DTSBU005' USING L005-LINK-AREA.                           CL187
01292                                                                      CL187
01293  S005-EXIT.                                                          CL187
01294      EXIT.                                                           CL187
01295                                                                      CL187
01296  S005-FROM-ABSTIME.                                                  CL156
01297      SET L005-FROM-ABSTIME TO TRUE.                                  CL156
01298      GO TO S005-ABSTIME.                                             CL156
01299                                                                      CL156
01300  S005-ABSTIME.                                                       CL156
01301      CALL 'DTSBU005' USING L005-LINK-AREA.                           CL156
01302  S005-A-EXIT.                                                        CL156
01303      EXIT.                                                           CL156
01304      SKIP3                                                           CL156
01305  S910-WRITE.                                                         CL156
01306      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                             CL173
01307      SET L910-WRITE-88 TO TRUE.                                      CL156
01308      GO TO S910-MSTR-IO.                                             CL156
01309  S039-SIC-EDIT.                                                   DTSBX657
01310      CALL 'DTSBU039' USING L039-LINK-AREA.                        DTSBX657
01311  S039-EXIT.                                                       DTSBX657
01312      EXIT.                                                        DTSBX657
01313                                                                   DTSBX657
01314  S054-RATE-DETERMINATION.                                         DTSBX657
01315      CALL 'DTSBU054' USING L054-LINK-AREA                         DTSBX657
01316                            MRCT-REC.                              DTSBX657
01317                                                                   DTSBX657
01318  S054-EXIT.                                                       DTSBX657
01319      EXIT.                                                        DTSBX657
01320      SKIP3                                                        DTSBX657
01321  S061-FLD-REP-INFO.                                               DTSBX657
01322      SKIP1                                                        DTSBX657
01323      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBX657
01324      SKIP2                                                        DTSBX657
01325  S061-EXIT.                                                       DTSBX657
01326      EXIT.                                                        DTSBX657
01327                                                                   DTSBX657
01328  S062-FLD-REP-LOOKUP.                                             DTSBX657
01329                                                                   DTSBX657
01330      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBX657
01331                                                                   DTSBX657
01332  S062-EXIT.                                                       DTSBX657
01333      EXIT.                                                        DTSBX657
01334                                                                   DTSBX657
01335  S101-PER-MONTH-NO.                                                  CL*23
01336      SET L101-PER-MONTH-NO-88 TO TRUE.                               CL*23
01337      GO TO S101-INT-CHARGE.                                          CL*23
01338                                                                      CL*23
01339  S101-INT-CHARGE.                                                    CL*23
01340      CALL 'DTSBU101' USING L101-LINK-AREA.                           CL*23
01341  S101-EXIT.                                                          CL*23
01342      EXIT.                                                           CL*23
01343                                                                      CL*23
01344  S109-FIRST-PEN-INT-YRQ.                                             CL*23
01345      SET L109-CMND-PEN-INT-QTR-88 TO TRUE.                           CL*23
01346      CALL 'DTSBU109' USING L109-LINK-AREA.                           CL*23
01347  S109-EXIT.                                                          CL*23
01348      EXIT.                                                           CL*23
01349  S331-WRITE-MLOG.                                                    CL210
01350      CALL 'DTSBU331' USING L331-LINK-AREA.                           CL210
01351  S331-EXIT.                                                          CL210
01352      EXIT.                                                           CL210
01353      SKIP3                                                           CL210
01354                                                                      CL*23
01355  S410-FILING-SCHED.                                               DTSBX657
01356      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBX657
01357                                                                   DTSBX657
01358  S410-EXIT.                                                       DTSBX657
01359      EXIT.                                                        DTSBX657
01360      SKIP3                                                        DTSBX657
01361  S516-LIABILITY.                                                  DTSBX657
01362      CALL 'DTSBU516' USING L516-LINK-AREA                         DTSBX657
01363                            MPRF-REC.                              DTSBX657
01364                                                                   DTSBX657
01365  S516-EXIT.                                                       DTSBX657
01366      EXIT.                                                        DTSBX657
01367      SKIP3                                                        DTSBX657
01368  S910-OPEN-READ.                                                  DTSBX657
01369      SET L910-OPEN-READ-88 TO TRUE.                               DTSBX657
01370      GO TO S910-MSTR-IO.                                          DTSBX657
01371                                                                   DTSBX657
01372  S910-OPEN-UPDATE-NO-AIX.                                         DTSBX657
01373      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBX657
01374      GO TO S910-MSTR-IO.                                          DTSBX657
01375                                                                   DTSBX657
01376  S910-READ.                                                       DTSBX657
01377      SET L910-READ-88 TO TRUE.                                    DTSBX657
01378      GO TO S910-MSTR-IO.                                          DTSBX657
01379                                                                   DTSBX657
01380  S910-START-BROWSE.                                               DTSBX657
01381      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX657
01382      GO TO S910-MSTR-IO.                                          DTSBX657
01383                                                                   DTSBX657
01384  S910-READ-NEXT.                                                  DTSBX657
01385      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX657
01386      GO TO S910-MSTR-IO.                                          DTSBX657
01387                                                                   DTSBX657
01388  S910-COUNT.                                                      DTSBX657
01389      SET L910-COUNT-88 TO TRUE.                                   DTSBX657
01390      GO TO S910-MSTR-IO.                                          DTSBX657
01391                                                                   DTSBX657
01392  S910-REWRITE.                                                    DTSBX657
01393      SET L910-REWRITE-88 TO TRUE.                                 DTSBX657
01394      GO TO S910-MSTR-IO.                                          DTSBX657
01395                                                                   DTSBX657
01396  S910-DELETE.                                                     DTSBX657
01397      SET L910-DELETE-88 TO TRUE.                                  DTSBX657
01398      GO TO S910-MSTR-IO.                                          DTSBX657
01399                                                                   DTSBX657
01400  S910-CLOSE.                                                      DTSBX657
01401      SET L910-CLOSE-88     TO TRUE.                               DTSBX657
01402      GO TO S910-MSTR-IO.                                          DTSBX657
01403                                                                   DTSBX657
01404  S910-MSTR-IO.                                                    DTSBX657
01405      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX657
01406                            MSKL-REC.                              DTSBX657
01407  S910-EXIT.                                                       DTSBX657
01408      EXIT.                                                        DTSBX657
01409      SKIP3                                                        DTSBX657
01410  S921-OPEN-READ.                                                  DTSBX657
01411      SET L921-OPEN-READ-88 TO TRUE.                               DTSBX657
01412      GO TO S921-AIX-IO.                                           DTSBX657
01413                                                                   DTSBX657
01414  S921-START-BROWSE.                                               DTSBX657
01415      SET L921-START-BROWSE-88 TO TRUE.                            DTSBX657
01416      GO TO S921-AIX-IO.                                           DTSBX657
01417                                                                   DTSBX657
01418  S921-CLOSE.                                                      DTSBX657
01419      SET L921-CLOSE-88     TO TRUE.                               DTSBX657
01420      GO TO S921-AIX-IO.                                           DTSBX657
01421                                                                   DTSBX657
01422  S923-CLOSE.                                                         CL183
01423      SET L923-CLOSE-88 TO TRUE.                                      CL183
01424      GO TO S923-ATC-IO.                                              CL183
01425                                                                      CL183
01426  S923-ATC-IO.                                                        CL183
01427      CALL 'DTSBU923' USING L923-LINK-AREA                            CL183
01428                            ASKL-REC.                                 CL183
01429  S923-EXIT.                                                          CL183
01430      EXIT.                                                           CL183
01431      SKIP3                                                           CL183
01432  S921-AIX-IO.                                                     DTSBX657
01433      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSBX657
01434                            ISKL-REC.                              DTSBX657
01435  S921-EXIT.                                                       DTSBX657
01436      EXIT.                                                        DTSBX657
01437      SKIP3                                                        DTSBX657
01438                                                                   DTSBX657
01439  S923-OPEN-UPDATE.                                                   CL183
01440      SET L923-OPEN-UPDATE-88 TO TRUE.                                CL183
01441      GO TO S923-ATC-IO.                                              CL183
01442                                                                      CL183
01443      SKIP3                                                           CL183
01444  S927-OPEN-UPDATE.                                                   CL183
01445      SET L927-OPEN-UPDATE-88 TO TRUE.                                CL183
01446      GO TO S927-BTC-O.                                               CL183
01447                                                                      CL183
01448  S927-WRITE.                                                         CL183
01449      SET L927-WRITE-88 TO TRUE.                                      CL183
01450      GO TO S927-BTC-O.                                               CL183
01451                                                                      CL183
01452  S927-CLOSE.                                                         CL183
01453      SET L927-CLOSE-88 TO TRUE.                                      CL183
01454      GO TO S927-BTC-O.                                               CL183
01455                                                                      CL183
01456  S927-BTC-O.                                                         CL183
01457      CALL 'DTSBU927' USING L927-LINK-AREA                            CL183
01458                            TSKL-REC.                                 CL183
01459  S927-EXIT.                                                          CL183
01460      EXIT.                                                           CL183
01461                                                                      CL183
01462      SKIP3                                                           CL183
01463  S931-OPEN-READ.                                                  DTSBX657
01464      SET L931-OPEN-READ-88 TO TRUE.                               DTSBX657
01465      GO TO S931-REF-IO.                                           DTSBX657
01466                                                                   DTSBX657
01467  S931-OPEN-UPDATE.                                                DTSBX657
01468      SET L931-OPEN-UPDATE-88 TO TRUE.                             DTSBX657
01469      GO TO S931-REF-IO.                                           DTSBX657
01470                                                                   DTSBX657
01471  S931-START-BROWSE.                                               DTSBX657
01472      SET L931-START-BROWSE-88 TO TRUE.                            DTSBX657
01473      GO TO S931-REF-IO.                                           DTSBX657
01474                                                                   DTSBX657
01475  S931-READ.                                                       DTSBX657
01476      SET L931-READ-88 TO TRUE.                                    DTSBX657
01477      GO TO S931-REF-IO.                                           DTSBX657
01478                                                                   DTSBX657
01479  S931-READ-NEXT.                                                  DTSBX657
01480      SET L931-READ-NEXT-88 TO TRUE.                               DTSBX657
01481      GO TO S931-REF-IO.                                           DTSBX657
01482                                                                   DTSBX657
01483  S931-DELETE.                                                     DTSBX657
01484      SET L931-DELETE-88    TO TRUE.                               DTSBX657
01485      GO TO S931-REF-IO.                                           DTSBX657
01486                                                                   DTSBX657
01487  S931-REWRITE.                                                    DTSBX657
01488      SET L931-REWRITE-88   TO TRUE.                               DTSBX657
01489      GO TO S931-REF-IO.                                           DTSBX657
01490                                                                   DTSBX657
01491  S931-WRITE.                                                      DTSBX657
01492      SET L931-WRITE-88   TO TRUE.                                 DTSBX657
01493      GO TO S931-REF-IO.                                           DTSBX657
01494                                                                   DTSBX657
01495  S931-CLOSE.                                                      DTSBX657
01496      SET L931-CLOSE-88 TO TRUE.                                   DTSBX657
01497      GO TO S931-REF-IO.                                           DTSBX657
01498                                                                   DTSBX657
01499  S931-REF-IO.                                                     DTSBX657
01500      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBX657
01501                            FSKL-REC.                              DTSBX657
01502  S931-EXIT.                                                       DTSBX657
01503      EXIT.                                                        DTSBX657
01504      SKIP3                                                        DTSBX657
01505  S933-OPEN-READ.                                                  DTSBX657
01506      SET L933-OPEN-READ-88 TO TRUE.                               DTSBX657
01507      GO TO S933-SIC-I.                                            DTSBX657
01508                                                                   DTSBX657
01509  S933-CLOSE.                                                      DTSBX657
01510      SET L933-CLOSE-88 TO TRUE.                                   DTSBX657
01511      GO TO S933-SIC-I.                                            DTSBX657
01512                                                                   DTSBX657
01513  S933-SIC-I.                                                      DTSBX657
01514      CALL 'DTSBU933' USING L933-LINK-AREA                         DTSBX657
01515                            XSIC-REC.                              DTSBX657
01516  S933-EXIT.                                                       DTSBX657
01517      EXIT.                                                        DTSBX657
01518                                                                   DTSBX657
01519  S999-ABEND.                                                      DTSBX657
01520      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBX657
01521  S999-EXIT.                                                       DTSBX657
01522      EXIT.                                                        DTSBX657
