00001  IDENTIFICATION DIVISION.                                         02/13/25
00002  PROGRAM-ID.             DTSBX403.                                DTSBX403
00003  AUTHOR.                 SC.                                         LV081
00004  DATE-WRITTEN.           JAN 2025.                                   CL*49
00005 *DATE-MODIFIED.                                                   DTSBX403
00006  DATE-COMPILED.                                                   DTSBX403
00007                                                                   DTSBX403
00008 *****                                                             DTSBX403
00009 *    FUNCTION:  EXTRACT R403 RECORDS                                 CL*13
00010 *                                                                 DTSBX403
00011 *    MODIFICATION HISTORY:                                        DTSBX403
00012 *                                                                 DTSBX403
00013 * 01-09-2025 INITIAL DEVELOPMENT.                                    CL*13
00014 *                                         AUTHOR OF CHANGE - SC      CL*13
00015 *                                                                 DTSBX403
00016 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBX403
00017 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBX403
00018 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBX403
00019 *    RECORDS READ:                                                DTSBX403
00020 *                                                                 DTSBX403
00021 *        EXTRACT R403 RECORDS FROM THE VARIABLE PACKED FILE AND      CL*13
00022 *        CONVERT TO UNPACKED FIXED FILE.                             CL*13
00023 *                                                                    CL*13
00024 *    MODULES CALLED:                                              DTSBX403
00025 *                                                                 DTSBX403
00026 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBX403
00027 *        DTSBU005 DATE EDIT/CONVERSION MODULE                     DTSBX403
00028 *        DTSBU941 VARIABLE LENGTH RECORD READ                     DTSBX403
00029 *                                                                 DTSBX403
00030 *****                                                             DTSBX403
00031                                                                   DTSBX403
00032  ENVIRONMENT DIVISION.                                            DTSBX403
00033                                                                   DTSBX403
00034  CONFIGURATION SECTION.                                           DTSBX403
00035                                                                   DTSBX403
00036  INPUT-OUTPUT SECTION.                                            DTSBX403
00037                                                                   DTSBX403
00038  FILE-CONTROL.                                                    DTSBX403
00039      SELECT DTS-LN-OUT1      ASSIGN TO DTSLN403                      CL*28
00040             FILE STATUS IS DTSLN-OUT1-STATUS.                        CL*34
00041                                                                   DTSBX403
00042      SELECT DTS-LN-OUT2      ASSIGN TO DTSLN405                      CL*28
00043             FILE STATUS IS DTSLN-OUT2-STATUS.                        CL*34
00044                                                                      CL*28
00045  DATA DIVISION.                                                   DTSBX403
00046                                                                   DTSBX403
00047  FILE SECTION.                                                    DTSBX403
00048                                                                   DTSBX403
00049  FD  DTS-LN-OUT1                                                     CL*28
00050      RECORDING MODE IS F                                          DTSBX403
00051      BLOCK CONTAINS 0 RECORDS                                     DTSBX403
00052      LABEL RECORDS ARE OMITTED.                                   DTSBX403
00053                                                                   DTSBX403
00054 *01  LEIN-OUTREC1            PIC X(1640).                            CL*70
00055 *01  LEIN-OUTREC1            PIC X(1721).                            CL*75
00056  01  LEIN-OUTREC1            PIC X(1732).                            CL*75
00057                                                                   DTSBX403
00058  FD  DTS-LN-OUT2                                                     CL*28
00059      RECORDING MODE IS F                                             CL*28
00060      BLOCK CONTAINS 0 RECORDS                                        CL*28
00061      LABEL RECORDS ARE OMITTED.                                      CL*28
00062                                                                      CL*28
00063 *01  LEIN-OUTREC2            PIC X(312).                             CL*75
00064  01  LEIN-OUTREC2            PIC X(323).                             CL*75
00065                                                                      CL*28
00066  WORKING-STORAGE SECTION.                                         DTSBX403
000665 77  PAN-VALET PICTURE X(24) VALUE '081DTSBX403  02/13/25'.       DTSBX403
00067  77  PAN-VALET PICTURE X(24) VALUE '017DTSBS403  05/08/09'.          CL*15
00068  01  WRK-AREA.                                                    DTSBX403
00069      05  FILE-STATUS                  PIC 9(02) VALUE ZEROS.      DTSBX403
00070      05  WRK-MOD-NAME                 PIC X(08) VALUE 'DTSBS403'.    CL*15
00071                                                                   DTSBX403
00072      05  WRK-ERROR-IND                PIC  X(01) VALUE 'N'.       DTSBX403
00073          88  WRK-ERROR-YES-88          VALUE 'Y'.                 DTSBX403
00074          88  WRK-ERROR-NO-88           VALUE 'N'.                 DTSBX403
00075                                                                   DTSBX403
00076      05  DTSLN-OUT1-STATUS             PIC  X(02).                   CL*32
00077          88  LEIN-OUT1-OK-88            VALUE '00'.                  CL*32
00078                                                                      CL*15
00079      05  DTSLN-OUT2-STATUS             PIC  X(02).                   CL*32
00080          88  LEIN-OUT2-OK-88            VALUE '00'.                  CL*32
00081                                                                      CL*32
00082      05  W-LEIN-403-IN-CNT       PIC S9(07)  COMP-3 VALUE +0.        CL*18
00083      05  W-LEIN-405-IN-CNT       PIC S9(07)  COMP-3 VALUE +0.        CL*24
00084      05  W-LEIN-403-OUT-CNT      PIC S9(07)  COMP-3 VALUE +0.        CL*18
00085      05  W-LEIN-405-OUT-CNT      PIC S9(07)  COMP-3 VALUE +0.        CL*29
00086                                                                      CL*18
00087      05  WRK-ABEND-CD                 PIC S9(04) COMP  VALUE +310.DTSBX403
00088      05  WRK-PRIOR-RUN-DATE           PIC S9(09) COMP-3.          DTSBX403
00089      05  WRK-CURR-RUN-DATE            PIC S9(09) COMP-3.          DTSBX403
00090      05  WRK-X215-CNT                 PIC S9(07) COMP-3 VALUE +0. DTSBX403
00091      05  WRK-X220-CNT                 PIC S9(07) COMP-3 VALUE +0. DTSBX403
00092      05  WRK-DEPOSIT-CNT              PIC S9(07) COMP-3 VALUE +0. DTSBX403
00093                                                                   DTSBX403
00094      05  WRK-906-OPID                 PIC  X(08).                 DTSBX403
00095      05  WRK-906-EMP                  PIC S9(07) COMP-3.          DTSBX403
00096      05  WRK-906-SCREEN               PIC  X(02).                 DTSBX403
00097      05  WRK-906-DATE                 PIC S9(09) COMP-3.          DTSBX403
00098      05  WRK-906-TIME                 PIC S9(07) COMP-3.          DTSBX403
00099                                                                   DTSBX403
00100      05  DISP-REMIT                   PIC --,---,---,--9.99.      DTSBX403
00101      05  DISP-WRK-READ-CNT            PIC ZZ,ZZZ,ZZ9.             DTSBX403
00102      05  DISP-WRK-WRITE-CNT           PIC ZZ,ZZZ,ZZ9.             DTSBX403
00103                                                                   DTSBX403
00104      05  WORK-HOLD-DATE             PIC X(10)  VALUE SPACE.          CL*72
00105                                                                      CL*72
00106      05  WRK-INACT-SLASH-DT.                                         CL*72
00107          15  WRK-INACT-MM           PIC  X(02)  VALUE SPACE.         CL*72
00108          15  FILLER                 PIC  X(01)  VALUE '/'.           CL*72
00109          15  WRK-INACT-DD           PIC  X(02)  VALUE SPACE.         CL*72
00110          15  FILLER                 PIC  X(01)  VALUE '/'.           CL*72
00111          15  WRK-INACT-YYYY         PIC  X(04)  VALUE SPACE.         CL*72
00112                                                                      CL*72
00113  01  L062-LINK-AREA.                                              DTSBX403
00114  ++INCLUDE DTSIL062                                               DTSBX403
00115                                                                   DTSBX403
00116  01  L001-LINK-AREA.                                              DTSBX403
00117  ++INCLUDE DTSIL001                                               DTSBX403
00118                                                                   DTSBX403
00119  01  L005-LINK-AREA.                                              DTSBX403
00120  ++INCLUDE DTSIL005                                               DTSBX403
00121                                                                   DTSBX403
00122  01  L910-LINK-AREA.                                              DTSBX403
00123  ++INCLUDE DTSIL910                                               DTSBX403
00124                                                                   DTSBX403
00125  01  MSKL-REC.                                                    DTSBX403
00126  ++INCLUDE DTSIMSKL                                               DTSBX403
00127                                                                   DTSBX403
00128  01  MHDR-REC.                                                    DTSBX403
00129  ++INCLUDE DTSIMHDR                                               DTSBX403
00130                                                                   DTSBX403
00131  01  MPRF-REC.                                                    DTSBX403
00132  ++INCLUDE DTSIMPRF                                               DTSBX403
00133                                                                   DTSBX403
00134  01  MFAS-REC.                                                    DTSBX403
00135  ++INCLUDE DTSIMFAS                                               DTSBX403
00136                                                                   DTSBX403
00137  01  MEVL-REC.                                                    DTSBX403
00138  ++INCLUDE DTSIMEVL                                               DTSBX403
00139                                                                   DTSBX403
00140  01  MRPT-REC.                                                    DTSBX403
00141  ++INCLUDE DTSIMRPT                                               DTSBX403
00142                                                                   DTSBX403
00143  01  L941-LINK-AREA.                                              DTSBX403
00144  ++INCLUDE DTSIL941                                               DTSBX403
00145                                                                   DTSBX403
00146  01  RSK3-REC.                                                    DTSBX403
00147  ++INCLUDE DTSIRSK3                                               DTSBX403
00148                                                                   DTSBX403
00149  01  R403-REC.                                                       CL*16
00150  ++INCLUDE DTSIR403                                                  CL*16
00151                                                                   DTSBX403
00152  01  W403-REC.                                                       CL*16
00153  ++INCLUDE DTSIW403                                                  CL*16
00154                                                                   DTSBX403
00155  01  R405-REC.                                                       CL*28
00156  ++INCLUDE DTSIR405                                                  CL*28
00157                                                                      CL*28
00158  01  W405-REC.                                                       CL*28
00159  ++INCLUDE DTSIW405                                                  CL*28
00160                                                                      CL*28
00161  PROCEDURE DIVISION.                                              DTSBX403
00162      PERFORM I0000-INITIATE     THRU I0000-EXIT.                  DTSBX403
00163      IF WRK-ERROR-NO-88                                           DTSBX403
00164         PERFORM P0000-PROCESS   THRU P0000-EXIT                      CL*72
00165         PERFORM T0000-TERMINATE THRU T0000-EXIT                      CL*72
00166      END-IF.                                                      DTSBX403
00167                                                                   DTSBX403
00168      GOBACK.                                                      DTSBX403
00169                                                                   DTSBX403
00170  I0000-INITIATE.                                                  DTSBX403
00171      PERFORM I2000-OPEN-FILES   THRU I2000-EXIT.                     CL*72
00172      PERFORM I3000-GET-MHDR     THRU I3000-EXIT.                     CL*72
00173      PERFORM I3500-MOVE-CURRDT  THRU I3500-EXIT.                     CL*72
00174                                                                   DTSBX403
00175  I0000-EXIT.                                                      DTSBX403
00176      EXIT.                                                        DTSBX403
00177                                                                   DTSBX403
00178  I2000-OPEN-FILES.                                                DTSBX403
00179                                                                      CL*16
00180      OPEN OUTPUT DTS-LN-OUT1.                                        CL*28
00181      IF LEIN-OUT1-OK-88                                              CL*28
00182         NEXT SENTENCE                                             DTSBX403
00183      ELSE                                                         DTSBX403
00184         SET WRK-ERROR-YES-88   TO TRUE                            DTSBX403
00185         DISPLAY 'CANNOT OPEN LEIN 403 FILE ' DTSLN-OUT1-STATUS       CL*28
00186         GO TO I2000-EXIT                                          DTSBX403
00187      END-IF.                                                      DTSBX403
00188                                                                   DTSBX403
00189      OPEN OUTPUT DTS-LN-OUT2.                                        CL*28
00190      IF LEIN-OUT2-OK-88                                              CL*28
00191         NEXT SENTENCE                                                CL*28
00192      ELSE                                                            CL*28
00193         SET WRK-ERROR-YES-88   TO TRUE                               CL*28
00194         DISPLAY 'CANNOT OPEN LEIN 405 FILE ' DTSLN-OUT2-STATUS       CL*64
00195         GO TO I2000-EXIT                                             CL*28
00196      END-IF.                                                         CL*28
00197                                                                      CL*28
00198                                                                   DTSBX403
00199      MOVE 'N'               TO L910-TRACE-IND                     DTSBX403
00200                                L941-TRACE-IND.                    DTSBX403
00201      MOVE WRK-MOD-NAME      TO L910-MOD-NAME                      DTSBX403
00202                                L941-MOD-NAME.                     DTSBX403
00203                                                                   DTSBX403
00204      PERFORM S910-OPEN-READ   THRU S910-EXIT.                        CL*79
00205      PERFORM S941-OPEN        THRU S941-EXIT.                     DTSBX403
00206                                                                   DTSBX403
00207  I2000-EXIT.                                                      DTSBX403
00208      EXIT.                                                        DTSBX403
00209                                                                   DTSBX403
00210  I3000-GET-MHDR.                                                     CL*72
00211      MOVE LOW-VALUES              TO MSKL-REC.                       CL*72
00212      MOVE +0                      TO MSKL-EMP-NO.                    CL*72
00213      SET MSKL-HDR-88              TO TRUE.                           CL*72
00214                                                                      CL*72
00215      PERFORM S910-READ            THRU S910-EXIT.                    CL*72
00216      IF L910-NO-REC-88                                               CL*72
00217         DISPLAY 'DTSBS403: MHDR RECORD IS MISSING'                   CL*72
00218         SET WRK-ERROR-YES-88      TO TRUE                            CL*77
00219         GO TO I3000-EXIT                                             CL*72
00220      ELSE                                                            CL*72
00221         MOVE MSKL-REC                TO MHDR-REC                     CL*72
00222 *       MOVE MHDR-CURR-RUN-DATE      TO WORK-HOLD-DATE               CL*80
00223         MOVE MHDR-PRIOR-RUN-DATE     TO WORK-HOLD-DATE               CL*80
00224         DISPLAY 'MHDR-CURR-RUN-DATE'  MHDR-CURR-RUN-DATE             CL*72
00225      END-IF.                                                         CL*72
00226                                                                      CL*72
00227  I3000-EXIT.                                                         CL*72
00228      EXIT.                                                           CL*72
00229                                                                      CL*72
00230  I3500-MOVE-CURRDT.                                                  CL*72
00231                                                                      CL*72
00232      MOVE WORK-HOLD-DATE(2:4) TO WRK-INACT-YYYY                      CL*73
00233      MOVE WORK-HOLD-DATE(6:2) TO WRK-INACT-MM                        CL*73
00234      MOVE WORK-HOLD-DATE(8:2) TO WRK-INACT-DD                        CL*73
00235      MOVE WRK-INACT-SLASH-DT  TO W403-CURR-DATE                      CL*73
00236                                  W405-CURR-DATE.                     CL*76
00237                                                                      CL*72
00238  I3500-EXIT.                                                         CL*72
00239      EXIT.                                                           CL*72
00240                                                                      CL*72
00241  P0000-PROCESS.                                                   DTSBX403
00242      PERFORM P1000-FROM-RPTS     THRU P1000-EXIT.                 DTSBX403
00243                                                                   DTSBX403
00244  P0000-EXIT.                                                      DTSBX403
00245      EXIT.                                                        DTSBX403
00246                                                                   DTSBX403
00247  P1000-FROM-RPTS.                                                 DTSBX403
00248      PERFORM S941-READ-NEXT THRU S941-EXIT.                       DTSBX403
00249                                                                   DTSBX403
00250      PERFORM UNTIL L941-NO-REC-88                                 DTSBX403
00251         EVALUATE RSK3-REC-TYPE                                    DTSBX403
00252           WHEN '403'                                                 CL*16
00253             ADD +1    TO W-LEIN-403-IN-CNT                           CL*19
00254             MOVE RSK3-REC      TO R403-REC                           CL*16
00255             PERFORM P1100-PROCESS-R403 THRU P1100-EXIT               CL*16
00256                                                                   DTSBX403
00257           WHEN '405'                                                 CL*18
00258             ADD +1    TO W-LEIN-405-IN-CNT                           CL*22
00259             MOVE RSK3-REC      TO R405-REC                           CL*28
00260             PERFORM P1200-PROCESS-R405 THRU P1200-EXIT               CL*28
00261         END-EVALUATE                                              DTSBX403
00262         PERFORM S941-READ-NEXT THRU S941-EXIT                     DTSBX403
00263      END-PERFORM.                                                 DTSBX403
00264                                                                   DTSBX403
00265  P1000-EXIT.                                                      DTSBX403
00266      EXIT.                                                        DTSBX403
00267                                                                   DTSBX403
00268  P1100-PROCESS-R403.                                                 CL*18
00269                                                                   DTSBX403
00270      MOVE R403-LENGTH         TO W403-LENGTH                         CL*39
00271      MOVE R403-REC-TYPE       TO W403-REC-TYPE                       CL*39
00272      MOVE R403-OP-ID          TO W403-OP-ID                          CL*39
00273      MOVE R403-EMP-NO         TO W403-EMP-NO                         CL*39
00274      MOVE R403-CERTIFICATE-NO                                        CL*38
00275                               TO W403-CERTIFICATE-NO                 CL*39
00276      MOVE R403-CERTIFICATE-DATE TO L001-FED-8-DATE-9.                CL*55
00277      PERFORM S001-FROM-FED-8    THRU S001-EXIT.                      CL*55
00278      MOVE L001-SLASH-8-DATE     TO W403-CERTIFICATE-DATE.            CL*55
00279                                                                      CL*55
00280      MOVE R403-EMP-STATUS     TO W403-EMP-STATUS                     CL*39
00281                                                                      CL*55
00282      MOVE R403-STMT-DATE        TO L001-FED-8-DATE-9.                CL*55
00283      PERFORM S001-FROM-FED-8    THRU S001-EXIT.                      CL*55
00284      MOVE L001-SLASH-8-DATE     TO W403-STMT-DATE.                   CL*55
00285                                                                      CL*55
00286      MOVE R403-PRIMARY-NAME   TO W403-PRIMARY-NAME                   CL*39
00287      MOVE R403-FMT-LINE(01)   TO W403-FMT-LINE1                      CL*61
00288      MOVE R403-FMT-LINE(02)   TO W403-FMT-LINE2                      CL*61
00289      MOVE R403-FMT-LINE(03)   TO W403-FMT-LINE3                      CL*61
00290      MOVE R403-FMT-LINE(04)   TO W403-FMT-LINE4                      CL*61
00291      MOVE R403-FMT-LINE(05)   TO W403-FMT-LINE5                      CL*61
00292      MOVE R403-ZIP            TO W403-ZIP                            CL*39
00293      MOVE R403-ADVANCED-BARCODE                                      CL*38
00294                               TO W403-ADVANCED-BARCODE               CL*39
00295                                                                      CL*55
00296      MOVE R403-FORM-COMP-DATE   TO L001-FED-8-DATE-9.                CL*55
00297      PERFORM S001-FROM-FED-8    THRU S001-EXIT.                      CL*55
00298      MOVE L001-SLASH-8-DATE     TO W403-FORM-COMP-DATE.              CL*55
00299                                                                      CL*55
00300      MOVE R403-FORM-QTR-CNT   TO W403-FORM-QTR-CNT                   CL*39
00301                                                                      CL*38
00302      MOVE R403-LETTER-LICENSE-IND                                    CL*67
00303                               TO W403-LETTER-LICENSE-IND             CL*67
00304      MOVE R403-LETTER-TOTAL-AMT                                      CL*67
00305                               TO W403-LETTER-TOTAL-AMT               CL*67
00306                                                                      CL*67
00307      MOVE R403-FORM-QTR(01)                                          CL*38
00308                     TO W403-FORM-QTR1                                CL*57
00309      MOVE R403-FORM-TAX-BALANCE-AMT(01)                              CL*38
00310                     TO W403-FORM-TAX-BALANCE-AMT1                    CL*57
00311      MOVE R403-FORM-INT-BALANCE-AMT(01)                              CL*38
00312                     TO W403-FORM-INT-BALANCE-AMT1                    CL*57
00313      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(01)                         CL*38
00314                     TO W403-FORM-LP-NP-MP-BLNCE-AMT1                 CL*62
00315      MOVE R403-FORM-LEGAL-IND(01)                                    CL*38
00316                     TO W403-FORM-LEGAL-IND1                          CL*57
00317      MOVE R403-FORM-ESTIMATED-IND(01)                                CL*38
00318                     TO W403-FORM-ESTIMATED-IND1                      CL*57
00319      MOVE R403-FORM-UNUSED-IND(01)                                   CL*38
00320                     TO W403-FORM-UNUSED-IND1                         CL*57
00321      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(01)                          CL*38
00322                     TO W403-FORM-SUR-TAX-BLNCE-AMT1                  CL*62
00323                                                                      CL*38
00324      MOVE R403-FORM-QTR(02)                                          CL*42
00325                     TO W403-FORM-QTR2                                CL*57
00326      MOVE R403-FORM-TAX-BALANCE-AMT(02)                              CL*42
00327                     TO W403-FORM-TAX-BALANCE-AMT2                    CL*57
00328      MOVE R403-FORM-INT-BALANCE-AMT(02)                              CL*42
00329                     TO W403-FORM-INT-BALANCE-AMT2                    CL*57
00330      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(02)                         CL*42
00331                     TO W403-FORM-LP-NP-MP-BLNCE-AMT2                 CL*62
00332      MOVE R403-FORM-LEGAL-IND(02)                                    CL*42
00333                     TO W403-FORM-LEGAL-IND2                          CL*57
00334      MOVE R403-FORM-ESTIMATED-IND(02)                                CL*42
00335                     TO W403-FORM-ESTIMATED-IND2                      CL*57
00336      MOVE R403-FORM-UNUSED-IND(02)                                   CL*42
00337                     TO W403-FORM-UNUSED-IND2                         CL*57
00338      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(02)                          CL*42
00339                     TO W403-FORM-SUR-TAX-BLNCE-AMT2                  CL*62
00340                                                                      CL*42
00341      MOVE R403-FORM-QTR(03)                                          CL*42
00342                     TO W403-FORM-QTR3                                CL*57
00343      MOVE R403-FORM-TAX-BALANCE-AMT(03)                              CL*42
00344                     TO W403-FORM-TAX-BALANCE-AMT3                    CL*57
00345      MOVE R403-FORM-INT-BALANCE-AMT(03)                              CL*42
00346                     TO W403-FORM-INT-BALANCE-AMT3                    CL*57
00347      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(03)                         CL*42
00348                     TO W403-FORM-LP-NP-MP-BLNCE-AMT3                 CL*62
00349      MOVE R403-FORM-LEGAL-IND(03)                                    CL*42
00350                     TO W403-FORM-LEGAL-IND3                          CL*57
00351      MOVE R403-FORM-ESTIMATED-IND(03)                                CL*42
00352                     TO W403-FORM-ESTIMATED-IND3                      CL*57
00353      MOVE R403-FORM-UNUSED-IND(03)                                   CL*42
00354                     TO W403-FORM-UNUSED-IND3                         CL*57
00355      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(03)                          CL*42
00356                     TO W403-FORM-SUR-TAX-BLNCE-AMT3                  CL*62
00357                                                                      CL*42
00358      MOVE R403-FORM-QTR(04)                                          CL*42
00359                     TO W403-FORM-QTR4                                CL*57
00360      MOVE R403-FORM-TAX-BALANCE-AMT(04)                              CL*42
00361                     TO W403-FORM-TAX-BALANCE-AMT4                    CL*57
00362      MOVE R403-FORM-INT-BALANCE-AMT(04)                              CL*42
00363                     TO W403-FORM-INT-BALANCE-AMT4                    CL*57
00364      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(04)                         CL*42
00365                     TO W403-FORM-LP-NP-MP-BLNCE-AMT4                 CL*62
00366      MOVE R403-FORM-LEGAL-IND(04)                                    CL*42
00367                     TO W403-FORM-LEGAL-IND4                          CL*57
00368      MOVE R403-FORM-ESTIMATED-IND(04)                                CL*42
00369                     TO W403-FORM-ESTIMATED-IND4                      CL*57
00370      MOVE R403-FORM-UNUSED-IND(04)                                   CL*42
00371                     TO W403-FORM-UNUSED-IND4                         CL*57
00372      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(04)                          CL*42
00373                     TO W403-FORM-SUR-TAX-BLNCE-AMT4                  CL*62
00374                                                                      CL*42
00375      MOVE R403-FORM-QTR(05)                                          CL*42
00376                     TO W403-FORM-QTR5                                CL*57
00377      MOVE R403-FORM-TAX-BALANCE-AMT(05)                              CL*42
00378                     TO W403-FORM-TAX-BALANCE-AMT5                    CL*57
00379      MOVE R403-FORM-INT-BALANCE-AMT(05)                              CL*42
00380                     TO W403-FORM-INT-BALANCE-AMT5                    CL*57
00381      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(05)                         CL*42
00382                     TO W403-FORM-LP-NP-MP-BLNCE-AMT5                 CL*62
00383      MOVE R403-FORM-LEGAL-IND(05)                                    CL*42
00384                     TO W403-FORM-LEGAL-IND5                          CL*57
00385      MOVE R403-FORM-ESTIMATED-IND(05)                                CL*42
00386                     TO W403-FORM-ESTIMATED-IND5                      CL*57
00387      MOVE R403-FORM-UNUSED-IND(05)                                   CL*42
00388                     TO W403-FORM-UNUSED-IND5                         CL*57
00389      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(05)                          CL*42
00390                     TO W403-FORM-SUR-TAX-BLNCE-AMT5                  CL*62
00391                                                                      CL*42
00392      MOVE R403-FORM-QTR(06)                                          CL*42
00393                     TO W403-FORM-QTR6                                CL*57
00394      MOVE R403-FORM-TAX-BALANCE-AMT(06)                              CL*42
00395                     TO W403-FORM-TAX-BALANCE-AMT6                    CL*57
00396      MOVE R403-FORM-INT-BALANCE-AMT(06)                              CL*42
00397                     TO W403-FORM-INT-BALANCE-AMT6                    CL*57
00398      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(06)                         CL*42
00399                     TO W403-FORM-LP-NP-MP-BLNCE-AMT6                 CL*62
00400      MOVE R403-FORM-LEGAL-IND(06)                                    CL*42
00401                     TO W403-FORM-LEGAL-IND6                          CL*57
00402      MOVE R403-FORM-ESTIMATED-IND(06)                                CL*42
00403                     TO W403-FORM-ESTIMATED-IND6                      CL*57
00404      MOVE R403-FORM-UNUSED-IND(06)                                   CL*42
00405                     TO W403-FORM-UNUSED-IND6                         CL*57
00406      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(06)                          CL*42
00407                     TO W403-FORM-SUR-TAX-BLNCE-AMT6                  CL*62
00408                                                                      CL*42
00409      MOVE R403-FORM-QTR(07)                                          CL*42
00410                     TO W403-FORM-QTR7                                CL*57
00411      MOVE R403-FORM-TAX-BALANCE-AMT(07)                              CL*42
00412                     TO W403-FORM-TAX-BALANCE-AMT7                    CL*57
00413      MOVE R403-FORM-INT-BALANCE-AMT(07)                              CL*42
00414                     TO W403-FORM-INT-BALANCE-AMT7                    CL*57
00415      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(07)                         CL*42
00416                     TO W403-FORM-LP-NP-MP-BLNCE-AMT7                 CL*62
00417      MOVE R403-FORM-LEGAL-IND(07)                                    CL*42
00418                     TO W403-FORM-LEGAL-IND7                          CL*57
00419      MOVE R403-FORM-ESTIMATED-IND(07)                                CL*42
00420                     TO W403-FORM-ESTIMATED-IND7                      CL*57
00421      MOVE R403-FORM-UNUSED-IND(07)                                   CL*42
00422                     TO W403-FORM-UNUSED-IND7                         CL*57
00423      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(07)                          CL*42
00424                     TO W403-FORM-SUR-TAX-BLNCE-AMT7                  CL*62
00425                                                                      CL*42
00426      MOVE R403-FORM-QTR(08)                                          CL*42
00427                     TO W403-FORM-QTR8                                CL*57
00428      MOVE R403-FORM-TAX-BALANCE-AMT(08)                              CL*42
00429                     TO W403-FORM-TAX-BALANCE-AMT8                    CL*57
00430      MOVE R403-FORM-INT-BALANCE-AMT(08)                              CL*42
00431                     TO W403-FORM-INT-BALANCE-AMT8                    CL*57
00432      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(08)                         CL*42
00433                     TO W403-FORM-LP-NP-MP-BLNCE-AMT8                 CL*62
00434      MOVE R403-FORM-LEGAL-IND(08)                                    CL*42
00435                     TO W403-FORM-LEGAL-IND8                          CL*57
00436      MOVE R403-FORM-ESTIMATED-IND(08)                                CL*42
00437                     TO W403-FORM-ESTIMATED-IND8                      CL*57
00438      MOVE R403-FORM-UNUSED-IND(08)                                   CL*42
00439                     TO W403-FORM-UNUSED-IND8                         CL*57
00440      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(08)                          CL*63
00441                     TO W403-FORM-SUR-TAX-BLNCE-AMT8                  CL*62
00442                                                                      CL*42
00443      MOVE R403-FORM-QTR(09)                                          CL*42
00444                     TO W403-FORM-QTR9                                CL*57
00445      MOVE R403-FORM-TAX-BALANCE-AMT(09)                              CL*42
00446                     TO W403-FORM-TAX-BALANCE-AMT9                    CL*57
00447      MOVE R403-FORM-INT-BALANCE-AMT(09)                              CL*42
00448                     TO W403-FORM-INT-BALANCE-AMT9                    CL*57
00449      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(09)                         CL*42
00450                     TO W403-FORM-LP-NP-MP-BLNCE-AMT9                 CL*62
00451      MOVE R403-FORM-LEGAL-IND(09)                                    CL*42
00452                     TO W403-FORM-LEGAL-IND9                          CL*57
00453      MOVE R403-FORM-ESTIMATED-IND(09)                                CL*42
00454                     TO W403-FORM-ESTIMATED-IND9                      CL*57
00455      MOVE R403-FORM-UNUSED-IND(09)                                   CL*42
00456                     TO W403-FORM-UNUSED-IND9                         CL*57
00457      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(09)                          CL*42
00458                     TO W403-FORM-SUR-TAX-BLNCE-AMT9                  CL*62
00459                                                                      CL*42
00460      MOVE R403-FORM-QTR(10)                                          CL*42
00461                     TO W403-FORM-QTR10                               CL*57
00462      MOVE R403-FORM-TAX-BALANCE-AMT(10)                              CL*42
00463                     TO W403-FORM-TAX-BALANCE-AMT10                   CL*57
00464      MOVE R403-FORM-INT-BALANCE-AMT(10)                              CL*42
00465                     TO W403-FORM-INT-BALANCE-AMT10                   CL*57
00466      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(10)                         CL*42
00467                     TO W403-FORM-LP-NP-MP-BLNCE-AMT10                CL*62
00468      MOVE R403-FORM-LEGAL-IND(10)                                    CL*42
00469                     TO W403-FORM-LEGAL-IND10                         CL*57
00470      MOVE R403-FORM-ESTIMATED-IND(10)                                CL*42
00471                     TO W403-FORM-ESTIMATED-IND10                     CL*57
00472      MOVE R403-FORM-UNUSED-IND(10)                                   CL*42
00473                     TO W403-FORM-UNUSED-IND10                        CL*57
00474      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(10)                          CL*42
00475                     TO W403-FORM-SUR-TAX-BLNCE-AMT10                 CL*62
00476                                                                      CL*42
00477      MOVE R403-FORM-QTR(11)                                          CL*42
00478                     TO W403-FORM-QTR11                               CL*57
00479      MOVE R403-FORM-TAX-BALANCE-AMT(11)                              CL*42
00480                     TO W403-FORM-TAX-BALANCE-AMT11                   CL*57
00481      MOVE R403-FORM-INT-BALANCE-AMT(11)                              CL*42
00482                     TO W403-FORM-INT-BALANCE-AMT11                   CL*57
00483      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(11)                         CL*42
00484                     TO W403-FORM-LP-NP-MP-BLNCE-AMT11                CL*62
00485      MOVE R403-FORM-LEGAL-IND(11)                                    CL*42
00486                     TO W403-FORM-LEGAL-IND11                         CL*57
00487      MOVE R403-FORM-ESTIMATED-IND(11)                                CL*42
00488                     TO W403-FORM-ESTIMATED-IND11                     CL*58
00489      MOVE R403-FORM-UNUSED-IND(11)                                   CL*42
00490                     TO W403-FORM-UNUSED-IND11                        CL*58
00491      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(11)                          CL*42
00492                     TO W403-FORM-SUR-TAX-BLNCE-AMT11                 CL*62
00493                                                                      CL*42
00494      MOVE R403-FORM-QTR(12)                                          CL*42
00495                     TO W403-FORM-QTR12                               CL*59
00496      MOVE R403-FORM-TAX-BALANCE-AMT(12)                              CL*42
00497                     TO W403-FORM-TAX-BALANCE-AMT12                   CL*59
00498      MOVE R403-FORM-INT-BALANCE-AMT(12)                              CL*42
00499                     TO W403-FORM-INT-BALANCE-AMT12                   CL*59
00500      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(12)                         CL*42
00501                     TO W403-FORM-LP-NP-MP-BLNCE-AMT12                CL*62
00502      MOVE R403-FORM-LEGAL-IND(12)                                    CL*42
00503                     TO W403-FORM-LEGAL-IND12                         CL*59
00504      MOVE R403-FORM-ESTIMATED-IND(12)                                CL*42
00505                     TO W403-FORM-ESTIMATED-IND12                     CL*59
00506      MOVE R403-FORM-UNUSED-IND(12)                                   CL*42
00507                     TO W403-FORM-UNUSED-IND12                        CL*59
00508      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(12)                          CL*42
00509                     TO W403-FORM-SUR-TAX-BLNCE-AMT12                 CL*62
00510                                                                      CL*42
00511      MOVE R403-FORM-QTR(13)                                          CL*43
00512                     TO W403-FORM-QTR13                               CL*59
00513      MOVE R403-FORM-TAX-BALANCE-AMT(13)                              CL*43
00514                     TO W403-FORM-TAX-BALANCE-AMT13                   CL*59
00515      MOVE R403-FORM-INT-BALANCE-AMT(13)                              CL*43
00516                     TO W403-FORM-INT-BALANCE-AMT13                   CL*59
00517      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(13)                         CL*43
00518                     TO W403-FORM-LP-NP-MP-BLNCE-AMT13                CL*62
00519      MOVE R403-FORM-LEGAL-IND(13)                                    CL*43
00520                     TO W403-FORM-LEGAL-IND13                         CL*59
00521      MOVE R403-FORM-ESTIMATED-IND(13)                                CL*43
00522                     TO W403-FORM-ESTIMATED-IND13                     CL*59
00523      MOVE R403-FORM-UNUSED-IND(13)                                   CL*43
00524                     TO W403-FORM-UNUSED-IND13                        CL*59
00525      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(13)                          CL*43
00526                     TO W403-FORM-SUR-TAX-BLNCE-AMT13                 CL*62
00527                                                                      CL*42
00528      MOVE R403-FORM-QTR(14)                                          CL*43
00529                     TO W403-FORM-QTR14                               CL*59
00530      MOVE R403-FORM-TAX-BALANCE-AMT(14)                              CL*43
00531                     TO W403-FORM-TAX-BALANCE-AMT14                   CL*59
00532      MOVE R403-FORM-INT-BALANCE-AMT(14)                              CL*43
00533                     TO W403-FORM-INT-BALANCE-AMT14                   CL*59
00534      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(14)                         CL*43
00535                     TO W403-FORM-LP-NP-MP-BLNCE-AMT14                CL*62
00536      MOVE R403-FORM-LEGAL-IND(14)                                    CL*43
00537                     TO W403-FORM-LEGAL-IND14                         CL*59
00538      MOVE R403-FORM-ESTIMATED-IND(14)                                CL*43
00539                     TO W403-FORM-ESTIMATED-IND14                     CL*59
00540      MOVE R403-FORM-UNUSED-IND(14)                                   CL*43
00541                     TO W403-FORM-UNUSED-IND14                        CL*59
00542      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(14)                          CL*43
00543                     TO W403-FORM-SUR-TAX-BLNCE-AMT14                 CL*62
00544                                                                      CL*43
00545      MOVE R403-FORM-QTR(15)                                          CL*43
00546                     TO W403-FORM-QTR15                               CL*59
00547      MOVE R403-FORM-TAX-BALANCE-AMT(15)                              CL*43
00548                     TO W403-FORM-TAX-BALANCE-AMT15                   CL*59
00549      MOVE R403-FORM-INT-BALANCE-AMT(15)                              CL*43
00550                     TO W403-FORM-INT-BALANCE-AMT15                   CL*59
00551      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(15)                         CL*43
00552                     TO W403-FORM-LP-NP-MP-BLNCE-AMT15                CL*62
00553      MOVE R403-FORM-LEGAL-IND(15)                                    CL*43
00554                     TO W403-FORM-LEGAL-IND15                         CL*59
00555      MOVE R403-FORM-ESTIMATED-IND(15)                                CL*43
00556                     TO W403-FORM-ESTIMATED-IND15                     CL*59
00557      MOVE R403-FORM-UNUSED-IND(15)                                   CL*43
00558                     TO W403-FORM-UNUSED-IND15                        CL*59
00559      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(15)                          CL*43
00560                     TO W403-FORM-SUR-TAX-BLNCE-AMT15                 CL*62
00561                                                                      CL*43
00562      MOVE R403-FORM-QTR(16)                                          CL*43
00563                     TO W403-FORM-QTR16                               CL*59
00564      MOVE R403-FORM-TAX-BALANCE-AMT(16)                              CL*43
00565                     TO W403-FORM-TAX-BALANCE-AMT16                   CL*59
00566      MOVE R403-FORM-INT-BALANCE-AMT(16)                              CL*43
00567                     TO W403-FORM-INT-BALANCE-AMT16                   CL*59
00568      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(16)                         CL*43
00569                     TO W403-FORM-LP-NP-MP-BLNCE-AMT16                CL*62
00570      MOVE R403-FORM-LEGAL-IND(16)                                    CL*43
00571                     TO W403-FORM-LEGAL-IND16                         CL*59
00572      MOVE R403-FORM-ESTIMATED-IND(16)                                CL*43
00573                     TO W403-FORM-ESTIMATED-IND16                     CL*59
00574      MOVE R403-FORM-UNUSED-IND(16)                                   CL*43
00575                     TO W403-FORM-UNUSED-IND16                        CL*59
00576      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(16)                          CL*43
00577                     TO W403-FORM-SUR-TAX-BLNCE-AMT16                 CL*62
00578                                                                      CL*43
00579      MOVE R403-FORM-QTR(17)                                          CL*43
00580                     TO W403-FORM-QTR17                               CL*59
00581      MOVE R403-FORM-TAX-BALANCE-AMT(17)                              CL*43
00582                     TO W403-FORM-TAX-BALANCE-AMT17                   CL*59
00583      MOVE R403-FORM-INT-BALANCE-AMT(17)                              CL*43
00584                     TO W403-FORM-INT-BALANCE-AMT17                   CL*59
00585      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(17)                         CL*43
00586                     TO W403-FORM-LP-NP-MP-BLNCE-AMT17                CL*62
00587      MOVE R403-FORM-LEGAL-IND(17)                                    CL*43
00588                     TO W403-FORM-LEGAL-IND17                         CL*59
00589      MOVE R403-FORM-ESTIMATED-IND(17)                                CL*59
00590                     TO W403-FORM-ESTIMATED-IND17                     CL*59
00591      MOVE R403-FORM-UNUSED-IND(17)                                   CL*43
00592                     TO W403-FORM-UNUSED-IND17                        CL*59
00593      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(17)                          CL*43
00594                     TO W403-FORM-SUR-TAX-BLNCE-AMT17                 CL*62
00595                                                                      CL*43
00596      MOVE R403-FORM-QTR(18)                                          CL*43
00597                     TO W403-FORM-QTR18                               CL*59
00598      MOVE R403-FORM-TAX-BALANCE-AMT(18)                              CL*43
00599                     TO W403-FORM-TAX-BALANCE-AMT18                   CL*59
00600      MOVE R403-FORM-INT-BALANCE-AMT(18)                              CL*43
00601                     TO W403-FORM-INT-BALANCE-AMT18                   CL*59
00602      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(18)                         CL*43
00603                     TO W403-FORM-LP-NP-MP-BLNCE-AMT18                CL*62
00604      MOVE R403-FORM-LEGAL-IND(18)                                    CL*43
00605                     TO W403-FORM-LEGAL-IND18                         CL*59
00606      MOVE R403-FORM-ESTIMATED-IND(18)                                CL*43
00607                     TO W403-FORM-ESTIMATED-IND18                     CL*59
00608      MOVE R403-FORM-UNUSED-IND(18)                                   CL*43
00609                     TO W403-FORM-UNUSED-IND18                        CL*59
00610      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(18)                          CL*43
00611                     TO W403-FORM-SUR-TAX-BLNCE-AMT18                 CL*62
00612                                                                      CL*43
00613      MOVE R403-FORM-QTR(19)                                          CL*43
00614                     TO W403-FORM-QTR19                               CL*59
00615      MOVE R403-FORM-TAX-BALANCE-AMT(19)                              CL*43
00616                     TO W403-FORM-TAX-BALANCE-AMT19                   CL*59
00617      MOVE R403-FORM-INT-BALANCE-AMT(19)                              CL*43
00618                     TO W403-FORM-INT-BALANCE-AMT19                   CL*59
00619      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(19)                         CL*43
00620                     TO W403-FORM-LP-NP-MP-BLNCE-AMT19                CL*62
00621      MOVE R403-FORM-LEGAL-IND(19)                                    CL*43
00622                     TO W403-FORM-LEGAL-IND19                         CL*59
00623      MOVE R403-FORM-ESTIMATED-IND(19)                                CL*43
00624                     TO W403-FORM-ESTIMATED-IND19                     CL*59
00625      MOVE R403-FORM-UNUSED-IND(19)                                   CL*43
00626                     TO W403-FORM-UNUSED-IND19                        CL*59
00627      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(19)                          CL*43
00628                     TO W403-FORM-SUR-TAX-BLNCE-AMT19                 CL*62
00629                                                                      CL*43
00630      MOVE R403-FORM-QTR(20)                                          CL*43
00631                     TO W403-FORM-QTR20                               CL*59
00632      MOVE R403-FORM-TAX-BALANCE-AMT(20)                              CL*43
00633                     TO W403-FORM-TAX-BALANCE-AMT20                   CL*59
00634      MOVE R403-FORM-INT-BALANCE-AMT(20)                              CL*43
00635                     TO W403-FORM-INT-BALANCE-AMT20                   CL*59
00636      MOVE R403-FORM-LP-NP-MP-BALANCE-AMT(20)                         CL*43
00637                     TO W403-FORM-LP-NP-MP-BLNCE-AMT20                CL*62
00638      MOVE R403-FORM-LEGAL-IND(20)                                    CL*43
00639                     TO W403-FORM-LEGAL-IND20                         CL*59
00640      MOVE R403-FORM-ESTIMATED-IND(20)                                CL*43
00641                     TO W403-FORM-ESTIMATED-IND20                     CL*59
00642      MOVE R403-FORM-UNUSED-IND(20)                                   CL*43
00643                     TO W403-FORM-UNUSED-IND20                        CL*59
00644      MOVE R403-FORM-SUR-TAX-BALANCE-AMT(20)                          CL*43
00645                     TO W403-FORM-SUR-TAX-BLNCE-AMT20                 CL*62
00646                                                                      CL*43
00647                                                                      CL*38
00648      WRITE LEIN-OUTREC1  FROM  W403-REC.                             CL*29
00649      ADD +1              TO    W-LEIN-403-OUT-CNT.                   CL*29
00650                                                                   DTSBX403
00651  P1100-EXIT.                                                      DTSBX403
00652      EXIT.                                                        DTSBX403
00653                                                                   DTSBX403
00654  P1200-PROCESS-R405.                                                 CL*28
00655                                                                      CL*28
00656      MOVE R405-LENGTH           TO W405-LENGTH.                      CL*29
00657                                                                      CL*28
00658      MOVE R405-REC-TYPE         TO W405-REC-TYPE.                    CL*35
00659      MOVE R405-OP-ID            TO W405-OP-ID.                       CL*35
00660      MOVE R405-EMP-NO           TO W405-EMP-NO.                      CL*35
00661                                                                      CL*35
00662      MOVE R405-PRIMARY-NAME     TO W405-PRIMARY-NAME.                CL*36
00663 **   MOVE R405-STMT-DATE        TO W405-STMT-DATE.                   CL*49
00664      MOVE R405-STMT-DATE        TO L001-FED-8-DATE-9.                CL*49
00665      PERFORM S001-FROM-FED-8    THRU S001-EXIT.                      CL*49
00666      MOVE L001-SLASH-8-DATE     TO W405-STMT-DATE.                   CL*49
00667                                                                      CL*49
00668      MOVE R405-CERTIFICATE-NO   TO W405-CERTIFICATE-NO.              CL*36
00669      MOVE R405-REC-DEEDS-NO     TO W405-REC-DEEDS-NO.                CL*36
00670 **   MOVE R405-CERTIFICATE-DATE TO W405-CERTIFICATE-DATE.            CL*49
00671      MOVE R405-CERTIFICATE-DATE TO L001-FED-8-DATE-9.                CL*49
00672      PERFORM S001-FROM-FED-8    THRU S001-EXIT.                      CL*49
00673      MOVE L001-SLASH-8-DATE     TO W405-CERTIFICATE-DATE.            CL*49
00674                                                                      CL*49
00675                                                                      CL*36
00676      MOVE R405-FMT-LINE(01)     TO W405-FMT-LINE1.                   CL*51
00677      MOVE R405-FMT-LINE(02)     TO W405-FMT-LINE2.                   CL*51
00678      MOVE R405-FMT-LINE(03)     TO W405-FMT-LINE3.                   CL*51
00679      MOVE R405-FMT-LINE(04)     TO W405-FMT-LINE4.                   CL*51
00680      MOVE R405-FMT-LINE(05)     TO W405-FMT-LINE5.                   CL*51
00681                                                                      CL*28
00682      WRITE LEIN-OUTREC2  FROM  W405-REC.                             CL*29
00683      ADD +1              TO    W-LEIN-405-OUT-CNT.                   CL*29
00684                                                                      CL*28
00685  P1200-EXIT.                                                         CL*29
00686      EXIT.                                                           CL*28
00687                                                                      CL*28
00688  S001-FROM-FED-8.                                                 DTSBX403
00689      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX403
00690      GO TO S001-DATE.                                             DTSBX403
00691                                                                   DTSBX403
00692  S001-DATE.                                                       DTSBX403
00693      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX403
00694  S001-EXIT.                                                       DTSBX403
00695      EXIT.                                                        DTSBX403
00696                                                                   DTSBX403
00697  S005-DATE.                                                       DTSBX403
00698      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX403
00699  S005-EXIT.                                                       DTSBX403
00700      EXIT.                                                        DTSBX403
00701                                                                   DTSBX403
00702  S062-LOOKUP-FLD-REP.                                             DTSBX403
00703      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBX403
00704  S062-EXIT.                                                       DTSBX403
00705      EXIT.                                                        DTSBX403
00706                                                                   DTSBX403
00707  S910-OPEN-READ.                                                  DTSBX403
00708      SET L910-OPEN-READ-88 TO TRUE.                               DTSBX403
00709      GO TO S910-MSTR-IO.                                          DTSBX403
00710                                                                   DTSBX403
00711  S910-READ.                                                       DTSBX403
00712      SET L910-READ-88 TO TRUE.                                    DTSBX403
00713      GO TO S910-MSTR-IO.                                          DTSBX403
00714                                                                   DTSBX403
00715  S910-START-BROWSE.                                               DTSBX403
00716      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX403
00717      GO TO S910-MSTR-IO.                                          DTSBX403
00718                                                                   DTSBX403
00719  S910-READ-NEXT.                                                  DTSBX403
00720      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX403
00721      GO TO S910-MSTR-IO.                                          DTSBX403
00722                                                                   DTSBX403
00723  S910-CLOSE.                                                      DTSBX403
00724      SET L910-CLOSE-88     TO TRUE.                               DTSBX403
00725      GO TO S910-MSTR-IO.                                          DTSBX403
00726                                                                   DTSBX403
00727  S910-MSTR-IO.                                                    DTSBX403
00728      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX403
00729                            MSKL-REC.                              DTSBX403
00730  S910-EXIT.                                                       DTSBX403
00731      EXIT.                                                        DTSBX403
00732                                                                   DTSBX403
00733  S941-OPEN.                                                       DTSBX403
00734      SET L941-OPEN-READ-88 TO TRUE.                               DTSBX403
00735      GO TO S941-I.                                                DTSBX403
00736                                                                   DTSBX403
00737  S941-READ-NEXT.                                                  DTSBX403
00738      SET L941-READ-NEXT-88 TO TRUE.                               DTSBX403
00739      GO TO S941-I.                                                DTSBX403
00740                                                                   DTSBX403
00741  S941-CLOSE.                                                      DTSBX403
00742      SET L941-CLOSE-88 TO TRUE.                                   DTSBX403
00743      GO TO S941-I.                                                DTSBX403
00744                                                                   DTSBX403
00745  S941-I.                                                          DTSBX403
00746      CALL 'DTSBU941' USING L941-LINK-AREA,                        DTSBX403
00747                            RSK3-REC.                              DTSBX403
00748  S941-EXIT.                                                       DTSBX403
00749      EXIT.                                                        DTSBX403
00750                                                                   DTSBX403
00751  S999-ABEND.                                                      DTSBX403
00752      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBX403
00753      SKIP2                                                        DTSBX403
00754  S999-EXIT.                                                       DTSBX403
00755      EXIT.                                                        DTSBX403
00756                                                                   DTSBX403
00757  T0000-TERMINATE.                                                 DTSBX403
00758                                                                   DTSBX403
00759      DISPLAY '      '.                                            DTSBX403
00760      DISPLAY 'TOTAL R403 RECORDS READ = ' W-LEIN-403-IN-CNT.         CL*24
00761                                                                   DTSBX403
00762      DISPLAY 'TOTAL R405 RECORDS READ =  ' W-LEIN-405-IN-CNT.        CL*24
00763                                                                   DTSBX403
00764      DISPLAY 'TOTAL R403 RECORDS WRITTEN ' W-LEIN-403-OUT-CNT.       CL*29
00765                                                                   DTSBX403
00766      DISPLAY 'TOTAL R405 RECORDS WRITTEN ' W-LEIN-405-OUT-CNT        CL*29
00767      PERFORM S910-CLOSE THRU S910-EXIT.                              CL*79
00768      PERFORM S941-CLOSE THRU S941-EXIT.                           DTSBX403
00769                                                                      CL*18
00770      CLOSE DTS-LN-OUT1                                               CL*30
00771            DTS-LN-OUT2.                                              CL*30
00772                                                                      CL*30
00773                                                                      CL*18
00774  T0000-EXIT.                                                      DTSBX403
00775      EXIT.                                                        DTSBX403
00776                                                                   DTSBX403
