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