00001  IDENTIFICATION DIVISION.                                         09/08/01
00002  PROGRAM-ID.             DTSBR429.                                DTSBR429
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV013
00004  DATE-WRITTEN.           JANUARY 1995.                            DTSBR429
00005  DATE-COMPILED.                                                   DTSBR429
00006      SKIP2                                                        DTSBR429
00007 *****                                                             DTSBR429
00008 *    FUNCTION:  FIELD REPRESENTATIVES' LIST (FOR > AMT PARM).     DTSBR429
00009 *                                                                 DTSBR429
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS DTSBE429                   DTSBR429
00011 *                                WHICH CREATES DTSIR429 RECORDS.  DTSBR429
00012 *                       DTSBD800 CALLS DTSBR429                   DTSBR429
00013 *                                WHICH PRODUCES THE FIELD REPRE-  DTSBR429
00014 *                                SENTATIVE LISTING FOR COLLECTION DTSBR429
00015 *                                AMOUNTS OVER $100.               DTSBR429
00016 *    MODIFICATION HISTORY:                                        DTSBR429
00017 *                                                                 DTSBR429
00018 * 02-27-01 FIXED SEPARATION OF FIELD. REPS. WITHIN REPORT &       DTSBR429
00019 *          THE REPORT TOTAL ON A SEPARATE PAGE.                   DTSBR429
00020 *          REFERENCE RFP #CR087           AUTHOR OF CHANGE - JHP  DTSBR429
00021 *                                                                 DTSBR429
00022 * 01-18-95 INITIAL DEVELOPMENT.                                   DTSBR429
00023 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RHC  DTSBR429
00024 *                                                                 DTSBR429
00025 * 03-06-95 DROP FIELD REP PROCESSING FROM REPORT.                 DTSBR429
00026 *          REFERENCE RFP #CR046           AUTHOR OF CHANGE - RHC  DTSBR429
00027 *                                                                 DTSBR429
00028 * 03-29-95 MODIFY FOR DUPLEX.                                     DTSBR429
00029 *          REFERENCE RFP #CR056           AUTHOR OF CHANGE - RHC  DTSBR429
00030 *                                                                 DTSBR429
00031 * 05-15-95 ADD TAX DUE CUTOFF DATE.  IF ONE OR MORE BALANCES      DTSBR429
00032 *          ARE DUE ON OR BEFORE THE CUTOFF DATE, PRINT THE        DTSBR429
00033 *          TOTAL OF ALL BALANCES DUE FOR THE EMPLOYER.            DTSBR429
00034 *          REFERENCE RFP #CR087           AUTHOR OF CHANGE - RHC  DTSBR429
00035 *                                                                 DTSBR429
00036 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR429
00037 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR429
00038 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR429
00039 *                                                                 DTSBR429
00040 *    DESCRIPTION:                                                 DTSBR429
00041 *                                                                 DTSBR429
00042 *        THIS MODULE PRODUCES THE COLLECTION SPECIALISTS' LIST    DTSBR429
00043 *        (FOR > AMT PARM).                                        DTSBR429
00044 *                                                                 DTSBR429
00045 *                                                                 DTSBR429
00046 *    RECORDS READ:                                                DTSBR429
00047 *                                                                 DTSBR429
00048 *        NONE.                                                    DTSBR429
00049 *                                                                 DTSBR429
00050 *                                                                 DTSBR429
00051 *    PRINTED OUTPUTS:                                             DTSBR429
00052 *                                                                 DTSBR429
00053 *        429R1  COLLECTION SPECIALISTS' LIST (FOR > AMT PARM).    DTSBR429
00054 *                                                                 DTSBR429
00055 *                                                                 DTSBR429
00056 *    RECORDS WRITTEN:                                             DTSBR429
00057 *                                                                 DTSBR429
00058 *        NONE.                                                    DTSBR429
00059 *                                                                 DTSBR429
00060 *                                                                 DTSBR429
00061 *    MODULES CALLED:                                              DTSBR429
00062 *                                                                 DTSBR429
00063 *        DTSBU001  DATE CONVERT.                                  DTSBR429
00064 *                                                                 DTSBR429
00065 *****                                                             DTSBR429
00066      EJECT                                                        DTSBR429
00067  ENVIRONMENT DIVISION.                                            DTSBR429
00068                                                                   DTSBR429
00069  CONFIGURATION SECTION.                                           DTSBR429
00070  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR429
00071                                                                   DTSBR429
00072  INPUT-OUTPUT SECTION.                                            DTSBR429
00073  FILE-CONTROL.                                                    DTSBR429
00074      SELECT PRT-FILE ASSIGN TO RPT429R1.                          DTSBR429
00075                                                                   DTSBR429
00076  DATA DIVISION.                                                   DTSBR429
00077  FILE SECTION.                                                    DTSBR429
00078                                                                   DTSBR429
00079  FD  PRT-FILE                                                     DTSBR429
00080      RECORDING MODE IS F.                                         DTSBR429
00081  01  PRT-RECORD              PIC X(133).                          DTSBR429
00082                                                                   DTSBR429
00083  WORKING-STORAGE SECTION.                                         DTSBR429
000835 77  PAN-VALET PICTURE X(24) VALUE '013DTSBR429  09/08/01'.       DTSBR429
00084                                                                   DTSBR429
00085  01  WRK-AREA.                                                    DTSBR429
00086      05  WRK-ABEND-CD             PIC S9(04)  COMP  VALUE +429.   DTSBR429
00087      05  FIRST-TIME-IND           PIC  X(01)        VALUE 'Y'.    DTSBR429
00088      05  FIRST-PAGE-IND           PIC  X(01)        VALUE 'Y'.    DTSBR429
00089      05  WRK-CNT                  PIC S9(04)  COMP  VALUE ZERO.   DTSBR429
00090                                                                   DTSBR429
00091      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +0. DTSBR429
00092      05  WS-FOOT-CAT-TOTAL           PIC S9(05)  COMP-3 VALUE +0. DTSBR429
00093      05  WS-FOOT-REP-TOTAL           PIC S9(05)  COMP-3 VALUE +0. DTSBR429
00094      05  WS-FOOT-ALL-TOTAL           PIC S9(05)  COMP-3 VALUE +0. DTSBR429
00095      05  WS-SUM-CNT                  PIC S9(05)  COMP-3 VALUE +0. DTSBR429
00096      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE 60. DTSBR429
00097      05  WS-PAGE-CNT                 PIC S9(05)  VALUE +0.        DTSBR429
00098      05  FILLER REDEFINES WS-PAGE-CNT.                            DTSBR429
00099          10  FILLER                  PIC S9(04).                  DTSBR429
00100          10  FILLER                  PIC  9.                      DTSBR429
00101              88  WRK-ODD-PAGE-88      VALUE 1 3 5 7 9.            DTSBR429
00102                                                                   DTSBR429
00103      05  WS-BLANK-LINE               PIC  X(133) VALUE SPACES.    DTSBR429
00104                                                                   DTSBR429
00105      05  WRK-PERM-HDG-AREA.                                       DTSBR429
00106          10  WRK-HDG-FLD-REP    OCCURS 2   PIC  X(02).            DTSBR429
00107          10  WRK-HDG-FLD-TYPE   OCCURS 3   PIC  X(02).            DTSBR429
00108                                                                   DTSBR429
00109      05  WRK-FLD-REP                 PIC  X(02).                  DTSBR429
00110      05  WRK-CATEGORY-9              PIC  9(01).                  DTSBR429
00111      05  WRK-CAT                     PIC  X(26).                  DTSBR429
00112      05  WRK-CATS.                                                DTSBR429
00113          10  FILLER PIC X(26) VALUE 'DEFERRED PAYMENT CONTRACTS'. DTSBR429
00114          10  FILLER PIC X(26) VALUE '      LIEN CANDIDATES     '. DTSBR429
00115          10  FILLER PIC X(26) VALUE 'EVERYTHING ELSE - INACTIVE'. DTSBR429
00116          10  FILLER PIC X(26) VALUE ' EVERYTHING ELSE - ACTIVE '. DTSBR429
00117      05  FILLER   REDEFINES  WRK-CATS.                            DTSBR429
00118          10  WRK-CAT-TBL   OCCURS   4    PIC  X(26).              DTSBR429
00119                                                                   DTSBR429
00120      EJECT                                                        DTSBR429
00121  01  PAGE-HEADING.                                                DTSBR429
00122      05  HDR-LINE-1.                                              DTSBR429
00123          10  FILLER                      PIC  X(06)               DTSBR429
00124                 VALUE ' 429R1'.                                   DTSBR429
00125          10  FILLER                      PIC  X(33)  VALUE SPACES.DTSBR429
00126          10  HDR-AGY-NAME-LINE1          PIC  X(50).              DTSBR429
00127          10  FILLER                      PIC  X(29)  VALUE SPACES.DTSBR429
00128          10  FILLER                      PIC  X(06)               DTSBR429
00129                 VALUE 'DATE: '.                                   DTSBR429
00130          10  HDR-SYS-DATE                PIC  X(08).              DTSBR429
00131      05  HDR-LINE-2.                                              DTSBR429
00132          10  FILLER                      PIC  X(39)  VALUE SPACES.DTSBR429
00133          10  HDR-AGY-NAME-LINE2          PIC  X(50).              DTSBR429
00134          10  FILLER                      PIC  X(29)  VALUE SPACES.DTSBR429
00135          10  FILLER                      PIC  X(06)               DTSBR429
00136                 VALUE 'TIME: '.                                   DTSBR429
00137          10  HDR-SYS-TIME                PIC  X(08).              DTSBR429
00138      05  HDR-LINE-3.                                              DTSBR429
00139          10  FILLER                      PIC  X(36)               DTSBR429
00140                 VALUE ' ROUTE TO:  ENFORCEMENT UNIT        '.     DTSBR429
00141          10  FILLER                      PIC  X(82)  VALUE SPACES.DTSBR429
00142          10  FILLER                      PIC  X(08)               DTSBR429
00143                 VALUE 'PAGE:   '.                                 DTSBR429
00144          10  HDR-PAGE-CNT                PIC  ZZ,ZZ9.             DTSBR429
00145      05  HDR-LINE-4.                                              DTSBR429
00146          10  FILLER                      PIC  X(11)  VALUE SPACES.DTSBR429
00147          10  FILLER                      PIC  X(20)               DTSBR429
00148                 VALUE '                    '.                     DTSBR429
00149          10  FILLER                      PIC  X(20)  VALUE SPACES.DTSBR429
00150          10  FILLER                      PIC  X(21)               DTSBR429
00151                 VALUE 'FIELD REPRESENTATIVES'.                    DTSBR429
00152          10  FILLER                      PIC  X                   DTSBR429
00153                 VALUE QUOTE.                                      DTSBR429
00154          10  FILLER                      PIC  X(08)               DTSBR429
00155                 VALUE ' LIST OF'.                                 DTSBR429
00156      05  HDR-LINE-5.                                              DTSBR429
00157          10  FILLER                      PIC  X(43)  VALUE SPACES.DTSBR429
00158          10  FILLER                      PIC  X(36)               DTSBR429
00159                 VALUE 'ACCOUNTS WITH TOTAL BALANCE DUE OVER'.     DTSBR429
00160          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR429
00161          10  WRK-HDG-BAL-AMT             PIC  Z,ZZ9.99.           DTSBR429
00162      05  HDR-LINE-6.                                              DTSBR429
00163          10  FILLER                      PIC  X(31)               DTSBR429
00164                 VALUE ' FIELD REPRESENTATIVE CODE(S): '.          DTSBR429
00165          10  HDR-HDG-FLD-REP-1           PIC  X(02).              DTSBR429
00166          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR429
00167          10  HDR-HDG-FLD-REP-2           PIC  X(02).              DTSBR429
00168          10  FILLER                      PIC  X(16)  VALUE SPACES.DTSBR429
00169          10  FILLER                      PIC  X(20)               DTSBR429
00170                 VALUE 'TAX DUE CUTOFF DATE '.                     DTSBR429
00171          10  WRK-HDG-TAX-DUE-DATE        PIC  X(08).              DTSBR429
00172      05  HDR-LINE-7.                                              DTSBR429
00173          10  FILLER                      PIC  X(30)               DTSBR429
00174                 VALUE '   FIELD ASSIGNMENT TYPES EXC:'.           DTSBR429
00175          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR429
00176          10  HDR-HDG-FLD-TYPE-1          PIC  X(02).              DTSBR429
00177          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR429
00178          10  HDR-HDG-FLD-TYPE-2          PIC  X(02).              DTSBR429
00179          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR429
00180          10  HDR-HDG-FLD-TYPE-3          PIC  X(02).              DTSBR429
00181      05  HDR-LINE-8.                                              DTSBR429
00182          10  FILLER                      PIC  X(52)  VALUE SPACES.DTSBR429
00183          10  HDR-CAT                     PIC  X(26).              DTSBR429
00184      05  HDR-LINE-9.                                              DTSBR429
00185          10  FILLER                      PIC  X(23)               DTSBR429
00186                 VALUE ' FIELD REPRESENTATIVE: '.                  DTSBR429
00187          10  HDR-FLD-REP                 PIC  X(02).              DTSBR429
00188      05  HDR-LINE-11.                                             DTSBR429
00189          10  FILLER                      PIC  X(97)  VALUE SPACES.DTSBR429
00190          10  FILLER                      PIC  X(17)               DTSBR429
00191                 VALUE 'TOTAL BALANCE DUE'.                        DTSBR429
00192      05  HDR-LINE-12.                                             DTSBR429
00193          10  FILLER                      PIC  X(12)  VALUE SPACES.DTSBR429
00194          10  FILLER                      PIC  X(06)               DTSBR429
00195                 VALUE 'EMP NO'.                                   DTSBR429
00196          10  FILLER                      PIC  X(09)  VALUE SPACES.DTSBR429
00197          10  FILLER                      PIC  X(13)               DTSBR429
00198                 VALUE 'PRIMARY NAME '.                            DTSBR429
00199          10  FILLER                      PIC  X(35)  VALUE SPACES.DTSBR429
00200          10  FILLER                      PIC  X(13)               DTSBR429
00201                 VALUE 'INACTIVE DATE'.                            DTSBR429
00202          10  FILLER                      PIC  X(08)  VALUE SPACES.DTSBR429
00203          10  FILLER                      PIC  X(10)               DTSBR429
00204                 VALUE '(P&I THRU '.                               DTSBR429
00205          10  WRK-HDG-COMP-DATE           PIC  X(08).              DTSBR429
00206          10  FILLER                      PIC  X(01)               DTSBR429
00207                 VALUE ')'.                                        DTSBR429
00208                                                                   DTSBR429
00209  01  DETAIL-LINE.                                                 DTSBR429
00210      05  DTL-LINE-2.                                              DTSBR429
00211          10  FILLER                      PIC  X(11)  VALUE SPACES.DTSBR429
00212          10  DTL-EMP-NO                  PIC  999B999.            DTSBR429
00213          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR429
00214          10  DTL-PRIMARY-NAME            PIC  X(40).              DTSBR429
00215          10  FILLER                      PIC  X(13)  VALUE SPACES.DTSBR429
00216          10  WRK-INACTIVE-DATE           PIC  X(08).              DTSBR429
00217          10  FILLER                      PIC  X(12)  VALUE SPACES.DTSBR429
00218          10  DTL-TOT-BAL-AMT             PIC  ZZZ,ZZZ,ZZ9.99.     DTSBR429
00219                                                                   DTSBR429
00220  01  CONTROL-FOOTING-WRK-CAT.                                     DTSBR429
00221      05  CTF1-LINE-2.                                             DTSBR429
00222          10  FILLER                      PIC  X(15)  VALUE SPACES.DTSBR429
00223          10  CTF1-FOOT-NUMBER-ONE        PIC  ZZ,ZZ9.             DTSBR429
00224          10  FILLER                      PIC  X(31)               DTSBR429
00225                 VALUE ' EMPLOYERS LISTED FOR CATEGORY '.          DTSBR429
00226          10  CTF1-CAT                    PIC  X(26).              DTSBR429
00227                                                                   DTSBR429
00228  01  CONTROL-FOOTING-WRK-FLD-REP.                                 DTSBR429
00229      05  CTF2-LINE-2.                                             DTSBR429
00230          10  FILLER                      PIC  X(15)  VALUE SPACES.DTSBR429
00231          10  CTF2-FOOT-NUMBER-TWO        PIC  ZZ,ZZ9.             DTSBR429
00232          10  FILLER                      PIC  X(41)               DTSBR429
00233               VALUE ' EMPLOYERS LISTED FOR FIELD REPRESENTIVE '.  DTSBR429
00234          10  CTF2-FLD-REP                PIC  X(02).              DTSBR429
00235                                                                   DTSBR429
00236  01  CONTROL-FOOTING-FINAL.                                       DTSBR429
00237      05  CFF-LINE-2.                                              DTSBR429
00238          10  FILLER                      PIC  X(15)  VALUE SPACES.DTSBR429
00239          10  CFF-SUM-CNT                 PIC  ZZ,ZZ9.             DTSBR429
00240          10  FILLER                      PIC  X(33)               DTSBR429
00241                 VALUE ' EMPLOYERS LISTED FOR THIS REPORT'.        DTSBR429
00242      EJECT                                                        DTSBR429
00243  01  L001-LINK-AREA.                                              DTSBR429
00244  ++INCLUDE DTSIL001                                               DTSBR429
00245      EJECT                                                        DTSBR429
00246  LINKAGE SECTION.                                                 DTSBR429
00247      SKIP2                                                        DTSBR429
00248  01  LRCM-LINK-AREA.                                              DTSBR429
00249  ++INCLUDE DTSILRCM                                               DTSBR429
00250      EJECT                                                        DTSBR429
00251  01  R429-REC.                                                    DTSBR429
00252  ++INCLUDE DTSIR429                                               DTSBR429
00253      EJECT                                                        DTSBR429
00254  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR429
00255                           R429-REC.                               DTSBR429
00256      IF FIRST-TIME-IND = 'Y'                                      DTSBR429
00257          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR429
00258          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR429
00259                                                                   DTSBR429
00260      IF LRCM-EOR-88                                               DTSBR429
00261          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR429
00262      ELSE                                                         DTSBR429
00263          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR429
00264                                                                   DTSBR429
00265      GOBACK.                                                      DTSBR429
00266                                                                   DTSBR429
00267  I1000-INITIATE.                                                  DTSBR429
00268      MOVE SPACE TO WRK-PERM-HDG-AREA.                             DTSBR429
00269      MOVE   0    TO WRK-CATEGORY-9.                               DTSBR429
00270                                                                   DTSBR429
00271                                                                   DTSBR429
00272      MOVE R429-FLD-REP-PARM (1) TO WRK-HDG-FLD-REP (1)            DTSBR429
00273                                    HDR-HDG-FLD-REP-1.             DTSBR429
00274      MOVE R429-FLD-REP-PARM (2) TO WRK-HDG-FLD-REP (2)            DTSBR429
00275                                    HDR-HDG-FLD-REP-2.             DTSBR429
00276                                                                   DTSBR429
00277      MOVE R429-TAX-DUE-CUTOFF-DT TO L001-FED-8-DATE-9.            DTSBR429
00278      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR429
00279      MOVE L001-SLASH-DATE TO WRK-HDG-TAX-DUE-DATE.                DTSBR429
00280                                                                   DTSBR429
00281      MOVE R429-FIELD-TYPE-PARM (1) TO WRK-HDG-FLD-TYPE (1)        DTSBR429
00282                                       HDR-HDG-FLD-TYPE-1.         DTSBR429
00283      MOVE R429-FIELD-TYPE-PARM (2) TO WRK-HDG-FLD-TYPE (2)        DTSBR429
00284                                       HDR-HDG-FLD-TYPE-2.         DTSBR429
00285      MOVE R429-FIELD-TYPE-PARM (3) TO WRK-HDG-FLD-TYPE (3)        DTSBR429
00286                                       HDR-HDG-FLD-TYPE-3.         DTSBR429
00287                                                                   DTSBR429
00288      MOVE R429-INT-PEN-COMP-DATE TO L001-FED-8-DATE-9.            DTSBR429
00289      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR429
00290      MOVE L001-SLASH-DATE TO WRK-HDG-COMP-DATE.                   DTSBR429
00291                                                                   DTSBR429
00292      OPEN OUTPUT PRT-FILE.                                        DTSBR429
00293      MOVE LRCM-SYS-DATE       TO HDR-SYS-DATE.                    DTSBR429
00294      MOVE LRCM-SYS-TIME       TO HDR-SYS-TIME.                    DTSBR429
00295      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR429
00296      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR429
00297      MOVE R429-PARM-BAL-AMT   TO WRK-HDG-BAL-AMT.                 DTSBR429
00298      MOVE R429-CATEGORY-9     TO WRK-CATEGORY-9                   DTSBR429
00299      MOVE WRK-CAT-TBL (R429-CATEGORY-9) TO WRK-CAT                DTSBR429
00300                                            HDR-CAT                DTSBR429
00301      MOVE R429-FLD-REP-ID     TO WRK-FLD-REP                      DTSBR429
00302                                  HDR-FLD-REP                      DTSBR429
00303      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR429
00304  I1000-EXIT.                                                      DTSBR429
00305      EXIT.                                                        DTSBR429
00306                                                                   DTSBR429
00307  P1000-PROCESS.                                                   DTSBR429
00308      PERFORM P5000-CONTROL-BREAK-CHECK THRU P5000-EXIT.           DTSBR429
00309                                                                   DTSBR429
00310      MOVE R429-INAC-DATE TO L001-FED-8-DATE-9.                    DTSBR429
00311      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR429
00312      IF L001-VALID-DATE                                           DTSBR429
00313          MOVE L001-SLASH-DATE TO WRK-INACTIVE-DATE                DTSBR429
00314      ELSE                                                         DTSBR429
00315          MOVE ' ACTIVE '      TO WRK-INACTIVE-DATE.               DTSBR429
00316                                                                   DTSBR429
00317      MOVE R429-EMP-NO           TO DTL-EMP-NO.                    DTSBR429
00318      MOVE R429-PRIMARY-NAME     TO DTL-PRIMARY-NAME.              DTSBR429
00319      MOVE R429-TOT-BAL-AMT      TO DTL-TOT-BAL-AMT.               DTSBR429
00320                                                                   DTSBR429
00321      IF WS-LINE-CNT > 53                                          DTSBR429
00322         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR429
00323      END-IF.                                                      DTSBR429
00324                                                                   DTSBR429
00325      WRITE PRT-RECORD FROM DTL-LINE-2  AFTER 2.                   DTSBR429
00326      ADD +2    TO WS-LINE-CNT.                                    DTSBR429
00327      ADD +1    TO WS-FOOT-CAT-TOTAL,                              DTSBR429
00328                   WS-FOOT-REP-TOTAL,                              DTSBR429
00329                   WS-FOOT-ALL-TOTAL.                              DTSBR429
00330  P1000-EXIT.                                                      DTSBR429
00331      EXIT.                                                        DTSBR429
00332                                                                   DTSBR429
00333  P3000-PRINT-HEADER.                                              DTSBR429
00334      MOVE +0          TO WS-LINE-CNT                              DTSBR429
00335      ADD  +1          TO WS-PAGE-CNT                              DTSBR429
00336      MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                             DTSBR429
00337      WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE           DTSBR429
00338      WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1                     DTSBR429
00339      WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1                     DTSBR429
00340      WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1                     DTSBR429
00341      WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1                     DTSBR429
00342      WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1                     DTSBR429
00343      WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1                     DTSBR429
00344      WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1                     DTSBR429
00345      WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1                     DTSBR429
00346      WRITE PRT-RECORD FROM HDR-LINE-11 AFTER 1                    DTSBR429
00347      WRITE PRT-RECORD FROM HDR-LINE-12 AFTER 1                    DTSBR429
00348      ADD +11   TO WS-LINE-CNT.                                    DTSBR429
00349  P3000-EXIT.                                                      DTSBR429
00350      EXIT.                                                        DTSBR429
00351                                                                   DTSBR429
00352  P4000-PRINT-CAT-TOTAL.                                           DTSBR429
00353                                                                   DTSBR429
00354      IF WS-LINE-CNT > 53                                          DTSBR429
00355         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR429
00356      END-IF.                                                      DTSBR429
00357                                                                   DTSBR429
00358      MOVE WS-FOOT-CAT-TOTAL  TO CTF1-FOOT-NUMBER-ONE.             DTSBR429
00359      MOVE WRK-CAT            TO CTF1-CAT.                         DTSBR429
00360      WRITE PRT-RECORD FROM CTF1-LINE-2 AFTER 2.                   DTSBR429
00361      MOVE +0 TO WS-FOOT-CAT-TOTAL.                                DTSBR429
00362                                                                   DTSBR429
00363  P4000-EXIT.                                                      DTSBR429
00364      EXIT.                                                        DTSBR429
00365                                                                   DTSBR429
00366  P4010-PRINT-REP-TOTAL.                                           DTSBR429
00367                                                                   DTSBR429
00368      IF WS-LINE-CNT > 53                                          DTSBR429
00369         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR429
00370      END-IF.                                                      DTSBR429
00371                                                                   DTSBR429
00372      MOVE WS-FOOT-REP-TOTAL  TO CTF2-FOOT-NUMBER-TWO.             DTSBR429
00373      MOVE WRK-FLD-REP        TO CTF2-FLD-REP.                     DTSBR429
00374      WRITE PRT-RECORD FROM CTF2-LINE-2 AFTER 2.                   DTSBR429
00375      MOVE +0 TO WS-FOOT-REP-TOTAL.                                DTSBR429
00376                                                                   DTSBR429
00377      IF WRK-ODD-PAGE-88                                           DTSBR429
00378         WRITE PRT-RECORD FROM WS-BLANK-LINE                       DTSBR429
00379                 AFTER TOP-OF-PAGE                                 DTSBR429
00380         MOVE +0   TO WS-PAGE-CNT                                  DTSBR429
00381      END-IF.                                                      DTSBR429
00382                                                                   DTSBR429
00383  P4010-EXIT.                                                      DTSBR429
00384      EXIT.                                                        DTSBR429
00385                                                                   DTSBR429
00386  P5000-CONTROL-BREAK-CHECK.                                       DTSBR429
00387                                                                   DTSBR429
00388      IF R429-FLD-REP-ID  NOT =  WRK-FLD-REP                       DTSBR429
00389         PERFORM P4000-PRINT-CAT-TOTAL THRU P4000-EXIT             DTSBR429
00390         PERFORM P4010-PRINT-REP-TOTAL THRU P4010-EXIT             DTSBR429
00391         MOVE R429-CATEGORY-9     TO WRK-CATEGORY-9                DTSBR429
00392         MOVE WRK-CAT-TBL (R429-CATEGORY-9) TO WRK-CAT             DTSBR429
00393                                               HDR-CAT             DTSBR429
00394         MOVE R429-FLD-REP-ID TO WRK-FLD-REP                       DTSBR429
00395                                 HDR-FLD-REP                       DTSBR429
00396         MOVE   +0            TO WS-PAGE-CNT                       DTSBR429
00397         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR429
00398      ELSE                                                         DTSBR429
00399        IF R429-CATEGORY-9  NOT =  WRK-CATEGORY-9                  DTSBR429
00400           PERFORM P4000-PRINT-CAT-TOTAL THRU P4000-EXIT           DTSBR429
00401           MOVE R429-CATEGORY-9 TO WRK-CATEGORY-9                  DTSBR429
00402           MOVE WRK-CAT-TBL (R429-CATEGORY-9) TO WRK-CAT           DTSBR429
00403                                                 HDR-CAT           DTSBR429
00404           PERFORM P3000-PRINT-HEADER THRU P3000-EXIT              DTSBR429
00405        END-IF                                                     DTSBR429
00406      END-IF.                                                      DTSBR429
00407  P5000-EXIT.                                                      DTSBR429
00408      EXIT.                                                        DTSBR429
00409                                                                   DTSBR429
00410  T1000-TERMINATE.                                                 DTSBR429
00411                                                                   DTSBR429
00412      IF WS-LINE-CNT > 53                                          DTSBR429
00413         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR429
00414      END-IF.                                                      DTSBR429
00415                                                                   DTSBR429
00416      PERFORM P4000-PRINT-CAT-TOTAL THRU P4000-EXIT                DTSBR429
00417      PERFORM P4010-PRINT-REP-TOTAL THRU P4010-EXIT                DTSBR429
00418      MOVE SPACE TO HDR-CAT                                        DTSBR429
00419      MOVE SPACE TO HDR-FLD-REP                                    DTSBR429
00420      MOVE  +0   TO WS-PAGE-CNT                                    DTSBR429
00421      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                   DTSBR429
00422                                                                   DTSBR429
00423      MOVE WS-FOOT-ALL-TOTAL  TO CFF-SUM-CNT.                      DTSBR429
00424      WRITE PRT-RECORD FROM CFF-LINE-2  AFTER 2.                   DTSBR429
00425                                                                   DTSBR429
00426      CLOSE PRT-FILE.                                              DTSBR429
00427                                                                   DTSBR429
00428  T1000-EXIT.                                                      DTSBR429
00429      EXIT.                                                        DTSBR429
00430                                                                   DTSBR429
00431  S001-FROM-FED-8.                                                 DTSBR429
00432                                                                   DTSBR429
00433      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR429
00434                                                                   DTSBR429
00435      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR429
00436                                                                   DTSBR429
00437  S001-EXIT.                                                       DTSBR429
00438      EXIT.                                                        DTSBR429
00439                                                                   DTSBR429
00440 *S999-ABEND.                                                      DTSBR429
00441 *                                                                 DTSBR429
00442 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR429
00443 *                                                                 DTSBR429
00444 *S999-EXIT. EXIT.                                                 DTSBR429
00445      EJECT                                                        DTSBR429
