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