00001  IDENTIFICATION DIVISION.                                         04/05/04
00002  PROGRAM-ID.             DTSBR318.                                DTSBR318
00003  AUTHOR.                 TRW/TDI OUTSOURCE.                          LV001
00004  DATE-WRITTEN.           JUNE 2003.                               DTSBR318
00005  DATE-COMPILED.                                                   DTSBR318
00006      SKIP3                                                        DTSBR318
00007 *****                                                             DTSBR318
00008 *                                                                 DTSBR318
00009 *    CALLING SEQUENCE:  DTSBD800 CALLS                            DTSBR318
00010 *                       DTSBR318 WHICH READS DTSIR318 RECORDS     DTSBR318
00011 *                                                                 DTSBR318
00012 *    FUNCTION:  FIELD REP EFT PAYMENT TRANSACTION LIST.           DTSBR318
00013 *                                                                 DTSBR318
00014 *                                                                 DTSBR318
00015 *    MODIFICATION HISTORY:                                        DTSBR318
00016 *                                                                 DTSBR318
00017 *                                                                 DTSBR318
00018 * 06-20-02 INITIAL DEVELOPMENT.   COPIED FROM DTSBR311            DTSBR318
00019 *          REFERENCE EFT SYSTEM           AUTHOR OF CHANGE - RW1  DTSBR318
00020 *                                                                 DTSBR318
00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR318
00022 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR318
00023 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR318
00024 *                                                                 DTSBR318
00025 *                                                                 DTSBR318
00026 *    DESCRIPTION:                                                 DTSBR318
00027 *                                                                 DTSBR318
00028 *        THIS MODULE PRODUCES A LIST OF PAYMENT TRANSACTIONS      DTSBR318
00029 *        PROCESSED THROUGH THE GOV1 EFT IVR/WEB SYSTEM.           DTSBR318
00030 *        A PARAMETER SPECIFIED PERIOD OF TIME FOR                 DTSBR318
00031 *        ANY OF THE FIELD REPRESENTATIVES.                        DTSBR318
00032 *                                                                 DTSBR318
00033 *                                                                 DTSBR318
00034 *    RECORDS READ:                                                DTSBR318
00035 *                                                                 DTSBR318
00036 *        NONE.                                                    DTSBR318
00037 *                                                                 DTSBR318
00038 *                                                                 DTSBR318
00039 *    PRINTED OUTPUTS:                                             DTSBR318
00040 *                                                                 DTSBR318
00041 *        318R1  FIELD REPRESENTATIVE EFT PAYMENT LIST             DTSBR318
00042 *        318R2  FIELD REPRESENTATIVE TOTALS REPORT                DTSBR318
00043 *                                                                 DTSBR318
00044 *                                                                 DTSBR318
00045 *    RECORDS WRITTEN:                                             DTSBR318
00046 *                                                                 DTSBR318
00047 *        NONE.                                                    DTSBR318
00048 *                                                                 DTSBR318
00049 *                                                                 DTSBR318
00050 *    MODULES CALLED:                                              DTSBR318
00051 *                                                                 DTSBR318
00052 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR318
00053 *        DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE            DTSBR318
00054 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR318
00055 *                                                                 DTSBR318
00056 *                                                                 DTSBR318
00057 *****                                                             DTSBR318
00058      EJECT                                                        DTSBR318
00059  ENVIRONMENT DIVISION.                                            DTSBR318
00060                                                                   DTSBR318
00061  CONFIGURATION SECTION.                                           DTSBR318
00062  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR318
00063                                                                   DTSBR318
00064  INPUT-OUTPUT SECTION.                                            DTSBR318
00065      SKIP1                                                        DTSBR318
00066  FILE-CONTROL.                                                    DTSBR318
00067      SELECT PRT-FILE1 ASSIGN TO RPT318R1.                         DTSBR318
00068      SELECT PRT-FILE2 ASSIGN TO RPT318R2.                         DTSBR318
00069      SKIP3                                                        DTSBR318
00070  DATA DIVISION.                                                   DTSBR318
00071                                                                   DTSBR318
00072  FILE SECTION.                                                    DTSBR318
00073                                                                   DTSBR318
00074  FD  PRT-FILE1                                                    DTSBR318
00075      RECORDING MODE IS F.                                         DTSBR318
00076  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR318
00077                                                                   DTSBR318
00078  FD  PRT-FILE2                                                    DTSBR318
00079      RECORDING MODE IS F.                                         DTSBR318
00080  01  REPORT-LISTING2                 PIC  X(133).                 DTSBR318
00081                                                                   DTSBR318
00082  WORKING-STORAGE SECTION.                                         DTSBR318
000825 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR318  04/05/04'.       DTSBR318
00083      SKIP3                                                        DTSBR318
00084  01  WRK-AREA.                                                    DTSBR318
00085      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +318.DTSBR318
00086      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR318
00087      05  FIRST-PAGE-IND              PIC  X(01)  VALUE 'Y'.       DTSBR318
00088                                                                   DTSBR318
00089      05  WS-BLANK-PAGE               PIC  X(133) VALUE SPACES.    DTSBR318
00090      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR318
00091      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR318
00092      05  WS-LINE-CNT3                PIC S9(02) COMP-3 VALUE 60.  DTSBR318
00093      05  WS-LINE-CNT4                PIC S9(02) COMP-3 VALUE +0.  DTSBR318
00094      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR318
00095      05  WS-PAGE-CNT2                PIC S9(03) COMP-3 VALUE +0.  DTSBR318
00096      05  WS-NUMBER-ONE               PIC S9(03) COMP-3 VALUE +0.  DTSBR318
00097      05  WS-NUMBER-TWO               PIC S9(03) COMP-3 VALUE +0.  DTSBR318
00098      05  WS-FOOT-NUMBER-ONE          PIC S9(03) COMP-3 VALUE +0.  DTSBR318
00099      05  WS-FOOT-NUMBER-TWO          PIC S9(03) COMP-3 VALUE +0.  DTSBR318
00100      05  WS-FOOT-ONE-AMT             PIC S9(07)V99 COMP-3         DTSBR318
00101                                          VALUE +0.                DTSBR318
00102      05  WS-FOOT-TWO-AMT             PIC S9(09)V99 COMP-3         DTSBR318
00103                                          VALUE +0.                DTSBR318
00104                                                                   DTSBR318
00105      05  WRK-PAGE-TRUNCATE           PIC  9(01).                  DTSBR318
00106          88  WRK-ODD-PAGE-88             VALUE 1 3 5 7 9.         DTSBR318
00107                                                                   DTSBR318
00108                                                                   DTSBR318
00109      05  WS-RPT-NAME1                PIC  X(22) VALUE             DTSBR318
00110                                     'EMPLOYERS WITHOUT DPC '.     DTSBR318
00111                                                                   DTSBR318
00112      05  WS-RPT-NAME2                PIC  X(22) VALUE             DTSBR318
00113                                     'EMPLOYERS WITH DPC    '.     DTSBR318
00114                                                                   DTSBR318
00115      05  WS-RPT-NAME3                PIC  X(22) VALUE             DTSBR318
00116                                     'PAYMENT REVERSALS     '.     DTSBR318
00117                                                                   DTSBR318
00118      05  WS-RPT-TRACE-NO             PIC  X(18) VALUE             DTSBR318
00119                                     ' TRACE NUMBER     '.         DTSBR318
00120                                                                   DTSBR318
00121      05  WS-RPT-APPLIC-DOC-NO        PIC  X(18) VALUE             DTSBR318
00122                                     ' ORIG DOC NO      '.         DTSBR318
00123                                                                   DTSBR318
00124      05  WS-FLD-REP-ID-HOLD          PIC  X(02)  VALUE SPACES.    DTSBR318
00125      05  WS-FLD-REP-ID-PREV          PIC  X(02)  VALUE SPACES.    DTSBR318
00126      05  WS-YRQ-UNPACK               PIC  9(05)  VALUE ZEROS.     DTSBR318
00127      05  WS-YRQ                      PIC  X(04)  VALUE SPACES.    DTSBR318
00128      05  WS-YRQ-EDIT REDEFINES WS-YRQ                             DTSBR318
00129                                      PIC  99/9.                   DTSBR318
00130      EJECT                                                        DTSBR318
00131  01  L001-LINK-AREA.                                              DTSBR318
00132  ++INCLUDE DTSIL001                                               DTSBR318
00133      EJECT                                                        DTSBR318
00134  01  L062-LINK-AREA.                                              DTSBR318
00135  ++INCLUDE DTSIL062                                               DTSBR318
00136      EJECT                                                        DTSBR318
00137  01  L071-LINK-AREA.                                              DTSBR318
00138  ++INCLUDE DTSIL071                                               DTSBR318
00139      EJECT                                                        DTSBR318
00140  01  PAGE-HEADING1.                                               DTSBR318
00141      05  HEADER1-LINE-1.                                          DTSBR318
00142          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00143          10  FILLER                  PIC  X(05)                   DTSBR318
00144                 VALUE '318R1'.                                    DTSBR318
00145          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR318
00146          10  HDR1-AGY-NAME-LINE1     PIC  X(50).                  DTSBR318
00147          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR318
00148          10  FILLER                  PIC  X(05)                   DTSBR318
00149                 VALUE 'DATE:'.                                    DTSBR318
00150          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00151          10  HDR1-SYS-DATE           PIC  X(08).                  DTSBR318
00152      05  HEADER1-LINE-2.                                          DTSBR318
00153          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR318
00154          10  HDR1-AGY-NAME-LINE2     PIC  X(50).                  DTSBR318
00155          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR318
00156          10  FILLER                  PIC  X(05)                   DTSBR318
00157                 VALUE 'TIME:'.                                    DTSBR318
00158          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00159          10  HDR1-SYS-TIME           PIC  X(08).                  DTSBR318
00160      05  HEADER1-LINE-3.                                          DTSBR318
00161          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00162          10  FILLER                  PIC  X(28)                   DTSBR318
00163                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT '.             DTSBR318
00164          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR318
00165          10  FILLER                  PIC  X(40)                   DTSBR318
00166                 VALUE 'FIELD REPRESENTATIVE EFT PAYMENT LIST   '. DTSBR318
00167          10  FILLER                  PIC  X(31)  VALUE SPACES.    DTSBR318
00168          10  FILLER                  PIC  X(05)                   DTSBR318
00169                 VALUE 'PAGE:'.                                    DTSBR318
00170          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR318
00171          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR318
00172      05  HEADER1-LINE-4.                                          DTSBR318
00173          10  FILLER                  PIC  X(55)  VALUE SPACE.     DTSBR318
00174          10  RPT-NAME                PIC  X(22)  VALUE SPACE.     DTSBR318
00175          10  FILLER                  PIC  X(33)  VALUE SPACE.     DTSBR318
00176      05  HEADER1-LINE-5              PIC  X(133) VALUE SPACES.    DTSBR318
00177      05  HEADER1-LINE-6.                                          DTSBR318
00178          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00179          10  FILLER                  PIC  X(14)                   DTSBR318
00180                 VALUE 'PROCESS DATE: '.                           DTSBR318
00181          10  HDR1-RUN-DATE           PIC  X(08).                  DTSBR318
00182          10  FILLER                  PIC  X(110)  VALUE SPACES.   DTSBR318
00183      05  HEADER1-LINE-7              PIC  X(133) VALUE SPACES.    DTSBR318
00184      05  HEADER1-LINE-8              PIC  X(133) VALUE SPACES.    DTSBR318
00185      05  HEADER1-LINE-9.                                          DTSBR318
00186          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00187          10  FILLER                  PIC  X(11)                   DTSBR318
00188                 VALUE 'FLD REP :  '.                              DTSBR318
00189          10  HDR1-FLD-REP-NAME       PIC  X(32).                  DTSBR318
00190      05  HEADER1-LINE-10.                                         DTSBR318
00191          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00192          10  FILLER                  PIC  X(11)                   DTSBR318
00193                 VALUE 'FLD CODE:  '.                              DTSBR318
00194          10  HDR1-FLD-REP-ID         PIC  X(02).                  DTSBR318
00195      05  HEADER1-LINE-11             PIC  X(133) VALUE SPACES.    DTSBR318
00196      05  HEADER1-LINE-12             PIC  X(133) VALUE SPACES.    DTSBR318
00197      05  HEADER1-LINE-13             PIC  X(133) VALUE SPACES.    DTSBR318
00198      05  HEADER1-LINE-14.                                         DTSBR318
00199          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR318
00200          10  FILLER                  PIC  X(34)                   DTSBR318
00201                 VALUE 'ACCOUNT NUMBER     DOCUMENT NUMBER'.       DTSBR318
00202          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR318
00203          10  FILLER                  PIC  X(20)                   DTSBR318
00204                 VALUE 'AMOUNT              '.                     DTSBR318
00205          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR318
00206          10  HDR14-NAME              PIC  X(18)                   DTSBR318
00207                 VALUE 'TRACE NUMBER      '.                       DTSBR318
00208          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR318
00209                                                                   DTSBR318
00210  01  REPORT1-DETAIL.                                              DTSBR318
00211      05  DTL1-LINE-2.                                             DTSBR318
00212          10  FILLER                  PIC  X(23)  VALUE SPACES.    DTSBR318
00213          10  WS-EMP-NO               PIC  999B999.                DTSBR318
00214          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR318
00215          10  WS-BATCH-NO             PIC  9(05).                  DTSBR318
00216          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00217          10  WS-ITEM-NO              PIC  9(03).                  DTSBR318
00218          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR318
00219          10  WS-AMT                  PIC  ZZZ,ZZZ,ZZ9.99-.        DTSBR318
00220          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR318
00221          10  WS-TRACE-NO             PIC  ZZZZZZZZZZZ9.           DTSBR318
00222          10  WS-APPLIC-DOC-NO REDEFINES WS-TRACE-NO.              DTSBR318
00223              15  FILLER              PIC  X(03).                  DTSBR318
00224              15  WS-APPLIC-BATCH-NO  PIC  X(05).                  DTSBR318
00225              15  WS-SPACE            PIC  X.                      DTSBR318
00226              15  WS-APPLIC-ITEM-NO   PIC  X(03).                  DTSBR318
00227                                                                   DTSBR318
00228  01  CONTROL-FOOTING.                                             DTSBR318
00229      05  CTF-LINE-5.                                              DTSBR318
00230          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR318
00231          10  FILLER                  PIC  X(15)                   DTSBR318
00232                 VALUE 'TOTAL AMOUNT:  '.                          DTSBR318
00233          10  WS-CTF-AMT              PIC  $$$,$$$,$$9.99-.        DTSBR318
00234      05  CTF-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR318
00235      05  CTF-LINE-7.                                              DTSBR318
00236          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR318
00237          10  FILLER                  PIC  X(15)                   DTSBR318
00238                 VALUE '  ITEM TOTAL:  '.                          DTSBR318
00239          10  WS-CTF-CNT              PIC  ZZ,ZZ9.                 DTSBR318
00240      EJECT                                                        DTSBR318
00241  01  PAGE-HEADING2.                                               DTSBR318
00242      05  HEADER2-LINE-1.                                          DTSBR318
00243          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00244          10  FILLER                  PIC  X(05)                   DTSBR318
00245                 VALUE '318R2'.                                    DTSBR318
00246          10  FILLER                  PIC  X(34)  VALUE SPACE.     DTSBR318
00247          10  HDR2-AGY-NAME-LINE1     PIC  X(50).                  DTSBR318
00248          10  FILLER                  PIC  X(28)  VALUE SPACE.     DTSBR318
00249          10  FILLER                  PIC  X(05)                   DTSBR318
00250                 VALUE 'DATE:'.                                    DTSBR318
00251          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00252          10  HDR2-SYS-DATE           PIC  X(08).                  DTSBR318
00253      05  HEADER2-LINE-2.                                          DTSBR318
00254          10  FILLER                  PIC  X(40)  VALUE SPACE.     DTSBR318
00255          10  HDR2-AGY-NAME-LINE2     PIC  X(50).                  DTSBR318
00256          10  FILLER                  PIC  X(28)  VALUE SPACE.     DTSBR318
00257          10  FILLER                  PIC  X(05)                   DTSBR318
00258                 VALUE 'TIME:'.                                    DTSBR318
00259          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00260          10  HDR2-SYS-TIME           PIC  X(08).                  DTSBR318
00261      05  HEADER2-LINE-3.                                          DTSBR318
00262          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00263          10  FILLER                  PIC  X(28)                   DTSBR318
00264                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT '.             DTSBR318
00265          10  FILLER                  PIC  X(89)  VALUE SPACES.    DTSBR318
00266          10  FILLER                  PIC  X(05)                   DTSBR318
00267                 VALUE 'PAGE:'.                                    DTSBR318
00268          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR318
00269          10  HDR2-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR318
00270      05  HEADER2-LINE-4.                                          DTSBR318
00271          10  FILLER                  PIC  X(49)  VALUE SPACES.    DTSBR318
00272          10  FILLER                  PIC  X(32)                   DTSBR318
00273                 VALUE 'FIELD REPRESENTATIVE EFT PAYMENT'.         DTSBR318
00274      05  HEADER2-LINE-5.                                          DTSBR318
00275          10  FILLER                  PIC  X(61)  VALUE SPACES.    DTSBR318
00276          10  FILLER                  PIC  X(10)                   DTSBR318
00277                 VALUE 'SUMMARY '.                                 DTSBR318
00278      05  HEADER2-LINE-6              PIC  X(133) VALUE SPACES.    DTSBR318
00279      05  HEADER2-LINE-7.                                          DTSBR318
00280          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR318
00281          10  FILLER                  PIC  X(14)                   DTSBR318
00282                 VALUE 'PROCESS DATE: '.                           DTSBR318
00283          10  HDR2-RUN-DATE           PIC  X(08).                  DTSBR318
00284          10  FILLER                  PIC  X(110)  VALUE SPACE.    DTSBR318
00285      05  HEADER2-LINE-8              PIC  X(133) VALUE SPACES.    DTSBR318
00286      05  HEADER2-LINE-9              PIC  X(133) VALUE SPACES.    DTSBR318
00287      05  HEADER2-LINE-10.                                         DTSBR318
00288          10  FILLER                  PIC  X(37)  VALUE SPACES.    DTSBR318
00289          10  FILLER                  PIC  X(29)                   DTSBR318
00290                 VALUE 'FIELD CODE     FIELD REP NAME'.            DTSBR318
00291          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR318
00292          10  FILLER                  PIC  X(06)                   DTSBR318
00293                 VALUE 'AMOUNT'.                                   DTSBR318
00294      SKIP2                                                        DTSBR318
00295  01  REPORT2-DETAIL.                                              DTSBR318
00296      05  DTL2-LINE-2.                                             DTSBR318
00297          10  FILLER                  PIC  X(42)  VALUE SPACES.    DTSBR318
00298          10  WS-DTL2-FLD-REP-ID      PIC  X(02).                  DTSBR318
00299          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR318
00300          10  HDR2-FLD-REP-NAME       PIC  X(32).                  DTSBR318
00301          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR318
00302          10  WS-DTL2-AMT             PIC  ZZZ,ZZZ,ZZ9.99-.        DTSBR318
00303      SKIP2                                                        DTSBR318
00304  01  CONTROL-FOOTING-FINAL.                                       DTSBR318
00305      05  CFF-LINE-5.                                              DTSBR318
00306          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR318
00307          10  FILLER                  PIC  X(15)                   DTSBR318
00308                 VALUE 'TOTAL AMOUNT:  '.                          DTSBR318
00309          10  WS-CFF-AMT              PIC  $$$,$$$,$$9.99-.        DTSBR318
00310      05  CFF-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR318
00311      05  CFF-LINE-7.                                              DTSBR318
00312          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR318
00313          10  FILLER                  PIC  X(15)                   DTSBR318
00314                 VALUE '  ITEM TOTAL:  '.                          DTSBR318
00315          10  WS-CFF-CNT              PIC  ZZ,ZZ9.                 DTSBR318
00316      EJECT                                                        DTSBR318
00317  LINKAGE SECTION.                                                 DTSBR318
00318      SKIP3                                                        DTSBR318
00319  01  LRCM-LINK-AREA.                                              DTSBR318
00320  ++INCLUDE DTSILRCM                                               DTSBR318
00321      EJECT                                                        DTSBR318
00322  01  R318-REC.                                                    DTSBR318
00323  ++INCLUDE DTSIR318                                               DTSBR318
00324      EJECT                                                        DTSBR318
00325  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR318
00326                           R318-REC.                               DTSBR318
00327                                                                   DTSBR318
00328      IF FIRST-TIME-IND = 'Y'                                      DTSBR318
00329          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR318
00330          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR318
00331      SKIP1                                                        DTSBR318
00332      IF LRCM-EOR-88                                               DTSBR318
00333          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR318
00334      ELSE                                                         DTSBR318
00335          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR318
00336      SKIP2                                                        DTSBR318
00337      GOBACK.                                                      DTSBR318
00338      EJECT                                                        DTSBR318
00339  I1000-INITIATE.                                                  DTSBR318
00340      SKIP1                                                        DTSBR318
00341                                                                   DTSBR318
00342      OPEN OUTPUT PRT-FILE1 PRT-FILE2.                             DTSBR318
00343      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR318
00344      MOVE LRCM-SYS-DATE TO HDR2-SYS-DATE.                         DTSBR318
00345      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR318
00346      MOVE LRCM-SYS-TIME TO HDR2-SYS-TIME.                         DTSBR318
00347      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR318
00348      MOVE LRCM-AGY-NAME-LINE1 TO HDR2-AGY-NAME-LINE1.             DTSBR318
00349      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR318
00350      MOVE LRCM-AGY-NAME-LINE2 TO HDR2-AGY-NAME-LINE2.             DTSBR318
00351      MOVE SPACES TO REPORT-LISTING1 REPORT-LISTING2.              DTSBR318
00352                                                                   DTSBR318
00353      PERFORM P2000-FLD-REP-LOOKUP THRU P2000-EXIT.                DTSBR318
00354                                                                   DTSBR318
00355      MOVE R318-RUN-DATE TO L001-FED-8-DATE-9.                     DTSBR318
00356      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR318
00357      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR318
00358      MOVE L001-SLASH-DATE TO HDR1-RUN-DATE HDR2-RUN-DATE.         DTSBR318
00359      SKIP2                                                        DTSBR318
00360  I1000-EXIT.                                                      DTSBR318
00361      EXIT.                                                        DTSBR318
00362      EJECT                                                        DTSBR318
00363  P1000-PROCESS.                                                   DTSBR318
00364      SKIP1                                                        DTSBR318
00365      IF R318-FIELD-REP-ID = WS-FLD-REP-ID-HOLD                    DTSBR318
00366          NEXT SENTENCE                                            DTSBR318
00367      ELSE                                                         DTSBR318
00368          PERFORM  P5000-PRINT-FOOTER THRU P5000-EXIT              DTSBR318
00369          MOVE +60 TO WS-LINE-CNT2                                 DTSBR318
00370          MOVE +0   TO WS-PAGE-CNT                                 DTSBR318
00371          MOVE WS-FOOT-ONE-AMT       TO WS-DTL2-AMT                DTSBR318
00372          MOVE WS-FLD-REP-ID-HOLD    TO WS-DTL2-FLD-REP-ID         DTSBR318
00373          PERFORM P4000-PRINT-HEADER THRU P4000-EXIT               DTSBR318
00374          WRITE REPORT-LISTING2 FROM DTL2-LINE-2 AFTER 2           DTSBR318
00375          MOVE +0 TO WS-FOOT-ONE-AMT                               DTSBR318
00376          ADD +2    TO WS-LINE-CNT4                                DTSBR318
00377          PERFORM P2000-FLD-REP-LOOKUP THRU P2000-EXIT.            DTSBR318
00378                                                                   DTSBR318
00379      MOVE R318-FIELD-REP-ID     TO HDR1-FLD-REP-ID.               DTSBR318
00380      MOVE R318-EMP-NO           TO WS-EMP-NO.                     DTSBR318
00381      MOVE R318-BATCH-NO         TO WS-BATCH-NO.                   DTSBR318
00382      MOVE R318-ITEM-NO          TO WS-ITEM-NO.                    DTSBR318
00383      MOVE R318-REMIT-AMT        TO WS-AMT.                        DTSBR318
00384      ADD  R318-REMIT-AMT        TO WS-FOOT-ONE-AMT.               DTSBR318
00385      ADD  R318-REMIT-AMT        TO WS-FOOT-TWO-AMT.               DTSBR318
00386                                                                   DTSBR318
00387      IF R318-RPT-TYPE-REG-88                                      DTSBR318
00388         MOVE R318-TRACE-NO      TO WS-TRACE-NO                    DTSBR318
00389      ELSE                                                         DTSBR318
00390         IF R318-RPT-TYPE-DPC-88                                   DTSBR318
00391            MOVE R318-TRACE-NO   TO WS-TRACE-NO                    DTSBR318
00392         ELSE                                                      DTSBR318
00393            IF R318-RPT-TYPE-REV-88                                DTSBR318
00394               MOVE R318-APPLIC-BATCH-NO TO WS-APPLIC-BATCH-NO     DTSBR318
00395               MOVE R318-APPLIC-ITEM-NO  TO WS-APPLIC-ITEM-NO      DTSBR318
00396               MOVE SPACE                TO WS-SPACE               DTSBR318
00397            ELSE                                                   DTSBR318
00398               NEXT SENTENCE                                       DTSBR318
00399            END-IF                                                 DTSBR318
00400         END-IF                                                    DTSBR318
00401      END-IF.                                                      DTSBR318
00402                                                                   DTSBR318
00403      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR318
00404      WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2.              DTSBR318
00405      ADD +2    TO WS-LINE-CNT2.                                   DTSBR318
00406      ADD +1    TO WS-FOOT-NUMBER-TWO.                             DTSBR318
00407      ADD +1    TO WS-FOOT-NUMBER-ONE.                             DTSBR318
00408                                                                   DTSBR318
00409  P1000-EXIT.                                                      DTSBR318
00410      EXIT.                                                        DTSBR318
00411      EJECT                                                        DTSBR318
00412  P2000-FLD-REP-LOOKUP.                                            DTSBR318
00413      SKIP1                                                        DTSBR318
00414      MOVE R318-FIELD-REP-ID TO WS-FLD-REP-ID-HOLD                 DTSBR318
00415                              L062-FLD-REP-ID.                     DTSBR318
00416      PERFORM S062-FLD-REP-INFO THRU S062-EXIT.                    DTSBR318
00417      DISPLAY ' L062-NAME ' L062-NAME                              DTSBR318
00418      IF L062-VALID                                                DTSBR318
00419          MOVE L062-NAME TO L071-NAM                               DTSBR318
00420          SET L071-FROM-LAST-NAME-FIRST TO TRUE                    DTSBR318
00421          PERFORM S071-DESLASH-NAME THRU S071-EXIT                 DTSBR318
00422          MOVE L071-NAM TO HDR1-FLD-REP-NAME HDR2-FLD-REP-NAME     DTSBR318
00423      ELSE                                                         DTSBR318
00424          MOVE L062-NAME TO HDR1-FLD-REP-NAME HDR2-FLD-REP-NAME.   DTSBR318
00425      SKIP2                                                        DTSBR318
00426  P2000-EXIT.                                                      DTSBR318
00427      EXIT.                                                        DTSBR318
00428      EJECT                                                        DTSBR318
00429                                                                   DTSBR318
00430  P3000-PRINT-HEADER.                                              DTSBR318
00431                                                                   DTSBR318
00432      IF R318-RPT-TYPE-REG-88                                      DTSBR318
00433         MOVE WS-RPT-NAME1 TO RPT-NAME                             DTSBR318
00434         MOVE WS-RPT-TRACE-NO TO HDR14-NAME                        DTSBR318
00435      ELSE                                                         DTSBR318
00436         IF R318-RPT-TYPE-DPC-88                                   DTSBR318
00437            MOVE WS-RPT-NAME2 TO RPT-NAME                          DTSBR318
00438            MOVE WS-RPT-TRACE-NO TO HDR14-NAME                     DTSBR318
00439         ELSE                                                      DTSBR318
00440            IF R318-RPT-TYPE-REV-88                                DTSBR318
00441               MOVE WS-RPT-NAME3 TO RPT-NAME                       DTSBR318
00442               MOVE WS-RPT-APPLIC-DOC-NO TO HDR14-NAME             DTSBR318
00443            ELSE                                                   DTSBR318
00444               MOVE SPACES TO RPT-NAME                             DTSBR318
00445            END-IF                                                 DTSBR318
00446         END-IF                                                    DTSBR318
00447      END-IF.                                                      DTSBR318
00448                                                                   DTSBR318
00449      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR318
00450           WS-LINE-CNT2 GREATER 58                                 DTSBR318
00451         MOVE +0          TO WS-LINE-CNT                           DTSBR318
00452         MOVE +0          TO WS-LINE-CNT2                          DTSBR318
00453         ADD  +1          TO WS-PAGE-CNT                           DTSBR318
00454         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR318
00455         WRITE REPORT-LISTING1 FROM HEADER1-LINE-1                 DTSBR318
00456                 AFTER TOP-OF-PAGE                                 DTSBR318
00457         WRITE REPORT-LISTING1 FROM HEADER1-LINE-2 AFTER 1         DTSBR318
00458         WRITE REPORT-LISTING1 FROM HEADER1-LINE-3 AFTER 1         DTSBR318
00459         WRITE REPORT-LISTING1 FROM HEADER1-LINE-4 AFTER 1         DTSBR318
00460         WRITE REPORT-LISTING1 FROM HEADER1-LINE-5 AFTER 1         DTSBR318
00461         WRITE REPORT-LISTING1 FROM HEADER1-LINE-6 AFTER 1         DTSBR318
00462         WRITE REPORT-LISTING1 FROM HEADER1-LINE-7 AFTER 1         DTSBR318
00463         WRITE REPORT-LISTING1 FROM HEADER1-LINE-8 AFTER 1         DTSBR318
00464         WRITE REPORT-LISTING1 FROM HEADER1-LINE-9 AFTER 1         DTSBR318
00465         WRITE REPORT-LISTING1 FROM HEADER1-LINE-10 AFTER 1        DTSBR318
00466         WRITE REPORT-LISTING1 FROM HEADER1-LINE-11 AFTER 1        DTSBR318
00467         WRITE REPORT-LISTING1 FROM HEADER1-LINE-12 AFTER 1        DTSBR318
00468         WRITE REPORT-LISTING1 FROM HEADER1-LINE-13 AFTER 1        DTSBR318
00469         WRITE REPORT-LISTING1 FROM HEADER1-LINE-14 AFTER 1        DTSBR318
00470         ADD +14   TO WS-LINE-CNT2.                                DTSBR318
00471                                                                   DTSBR318
00472  P3000-EXIT.                                                      DTSBR318
00473      EXIT.                                                        DTSBR318
00474                                                                   DTSBR318
00475  P4000-PRINT-HEADER.                                              DTSBR318
00476                                                                   DTSBR318
00477      IF WS-LINE-CNT3 GREATER 58 OR                                DTSBR318
00478           WS-LINE-CNT4 GREATER 58                                 DTSBR318
00479         MOVE +0          TO WS-LINE-CNT3                          DTSBR318
00480         MOVE +0          TO WS-LINE-CNT4                          DTSBR318
00481         ADD  +1          TO WS-PAGE-CNT2                          DTSBR318
00482         MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT                        DTSBR318
00483         WRITE REPORT-LISTING2 FROM HEADER2-LINE-1                 DTSBR318
00484                 AFTER TOP-OF-PAGE                                 DTSBR318
00485         WRITE REPORT-LISTING2 FROM HEADER2-LINE-2 AFTER 1         DTSBR318
00486         WRITE REPORT-LISTING2 FROM HEADER2-LINE-3 AFTER 1         DTSBR318
00487         WRITE REPORT-LISTING2 FROM HEADER2-LINE-4 AFTER 1         DTSBR318
00488         WRITE REPORT-LISTING2 FROM HEADER2-LINE-5 AFTER 1         DTSBR318
00489         WRITE REPORT-LISTING2 FROM HEADER2-LINE-6 AFTER 1         DTSBR318
00490         WRITE REPORT-LISTING2 FROM HEADER2-LINE-7 AFTER 1         DTSBR318
00491         WRITE REPORT-LISTING2 FROM HEADER2-LINE-8 AFTER 1         DTSBR318
00492         WRITE REPORT-LISTING2 FROM HEADER2-LINE-9 AFTER 1         DTSBR318
00493         WRITE REPORT-LISTING2 FROM HEADER2-LINE-10 AFTER 1.       DTSBR318
00494                                                                   DTSBR318
00495  P4000-EXIT.                                                      DTSBR318
00496      EXIT.                                                        DTSBR318
00497                                                                   DTSBR318
00498  P5000-PRINT-FOOTER.                                              DTSBR318
00499      IF WS-LINE-CNT2 > 52                                         DTSBR318
00500         ADD +8    TO WS-LINE-CNT2                                 DTSBR318
00501         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR318
00502      END-IF.                                                      DTSBR318
00503                                                                   DTSBR318
00504      MOVE WS-FOOT-ONE-AMT    TO WS-CTF-AMT.                       DTSBR318
00505      MOVE WS-FOOT-NUMBER-ONE TO WS-CTF-CNT.                       DTSBR318
00506      WRITE REPORT-LISTING1 FROM CTF-LINE-5 AFTER 5.               DTSBR318
00507      WRITE REPORT-LISTING1 FROM CTF-LINE-6 AFTER 1.               DTSBR318
00508      WRITE REPORT-LISTING1 FROM CTF-LINE-7 AFTER 1.               DTSBR318
00509      MOVE +0 TO WS-FOOT-NUMBER-ONE.                               DTSBR318
00510      MOVE +60  TO WS-LINE-CNT2.                                   DTSBR318
00511                                                                   DTSBR318
00512      MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE.                       DTSBR318
00513      IF WRK-ODD-PAGE-88                                           DTSBR318
00514         WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE                  DTSBR318
00515                 AFTER TOP-OF-PAGE                                 DTSBR318
00516         WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE AFTER 58         DTSBR318
00517         ADD +60   TO WS-LINE-CNT2                                 DTSBR318
00518         MOVE +0   TO WS-PAGE-CNT                                  DTSBR318
00519      END-IF.                                                      DTSBR318
00520                                                                   DTSBR318
00521  P5000-EXIT.                                                      DTSBR318
00522      EXIT.                                                        DTSBR318
00523                                                                   DTSBR318
00524  T1000-TERMINATE.                                                 DTSBR318
00525                                                                   DTSBR318
00526      IF WS-LINE-CNT2 > 52                                         DTSBR318
00527         PERFORM P4000-PRINT-HEADER THRU P4000-EXIT                DTSBR318
00528      END-IF.                                                      DTSBR318
00529                                                                   DTSBR318
00530      MOVE WS-FLD-REP-ID-HOLD    TO WS-DTL2-FLD-REP-ID             DTSBR318
00531      MOVE WS-FOOT-ONE-AMT       TO WS-CTF-AMT                     DTSBR318
00532      PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT                   DTSBR318
00533                                                                   DTSBR318
00534      IF WS-LINE-CNT4 > 52                                         DTSBR318
00535         PERFORM P4000-PRINT-HEADER THRU P4000-EXIT                DTSBR318
00536      END-IF.                                                      DTSBR318
00537                                                                   DTSBR318
00538      MOVE WS-FOOT-ONE-AMT       TO WS-DTL2-AMT                    DTSBR318
00539      MOVE WS-FLD-REP-ID-HOLD    TO WS-DTL2-FLD-REP-ID             DTSBR318
00540      WRITE REPORT-LISTING2 FROM DTL2-LINE-2 AFTER 2               DTSBR318
00541                                                                   DTSBR318
00542      MOVE WS-FOOT-TWO-AMT    TO WS-CFF-AMT.                       DTSBR318
00543      MOVE WS-FOOT-NUMBER-TWO TO WS-CFF-CNT.                       DTSBR318
00544      WRITE REPORT-LISTING2 FROM CFF-LINE-5 AFTER 5.               DTSBR318
00545      WRITE REPORT-LISTING2 FROM CFF-LINE-6 AFTER 1.               DTSBR318
00546      WRITE REPORT-LISTING2 FROM CFF-LINE-7 AFTER 1.               DTSBR318
00547      CLOSE PRT-FILE1 PRT-FILE2.                                   DTSBR318
00548      SKIP2                                                        DTSBR318
00549  T1000-EXIT.                                                      DTSBR318
00550      EXIT.                                                        DTSBR318
00551      EJECT                                                        DTSBR318
00552  S001-DATE.                                                       DTSBR318
00553      SKIP1                                                        DTSBR318
00554      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR318
00555      SKIP2                                                        DTSBR318
00556  S001-EXIT.                                                       DTSBR318
00557      EXIT.                                                        DTSBR318
00558      SKIP3                                                        DTSBR318
00559  S062-FLD-REP-INFO.                                               DTSBR318
00560      SKIP1                                                        DTSBR318
00561      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR318
00562      SKIP2                                                        DTSBR318
00563  S062-EXIT.                                                       DTSBR318
00564      EXIT.                                                        DTSBR318
00565      SKIP3                                                        DTSBR318
00566  S071-DESLASH-NAME.                                               DTSBR318
00567      SKIP1                                                        DTSBR318
00568      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR318
00569      SKIP2                                                        DTSBR318
00570  S071-EXIT.                                                       DTSBR318
00571      EXIT.                                                        DTSBR318
00572      SKIP3                                                        DTSBR318
00573  S999-ABEND.                                                      DTSBR318
00574      SKIP1                                                        DTSBR318
00575      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR318
00576      SKIP2                                                        DTSBR318
00577  S999-EXIT.                                                       DTSBR318
00578      EXIT.                                                        DTSBR318
00579                                                                   DTSBR318
