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