00001  IDENTIFICATION DIVISION.                                         11/16/00
00002  PROGRAM-ID.             DTSBR404.                                DTSBR404
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD                   LV039
00004                          MODIFIED BY TRW S&ITG.                   DTSBR404
00005  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR404
00006  DATE-COMPILED.                                                   DTSBR404
00007      SKIP3                                                        DTSBR404
00008 *****                                                             DTSBR404
00009 *                                                                 DTSBR404
00010 *    CALLING SEQUENCE:  DTSBD321 CREATES DTSIR404 RECORDS.        DTSBR404
00011 *                       DTSBD800 CALLS DTSBR404                   DTSBR404
00012 *                                WHICH PRODUCES THE LIST.         DTSBR404
00013 *                                                                 DTSBR404
00014 *    FUNCTION:  LIEN PACKAGES PRINTED CONTROL REPORT              DTSBR404
00015 *                                                                 DTSBR404
00016 *                                                                 DTSBR404
00017 *    MODIFICATION HISTORY:                                        DTSBR404
00018 *                                                                 DTSBR404
00019 * 02-16-99 INITIAL DEVELOPMENT                                    DTSBR404
00020 *          REFERENCE RFP #                AUTHOR OF CHANGE - DVS  DTSBR404
00021 *                                                                 DTSBR404
00022 * 10-20-00 MODIFIED PROGRAM TO REPLACE LICENSE LETTER COLUMN WITH DTSBR404
00023 *          OUC CERTIFICATE NUMBER.                                DTSBR404
00024 *          REFERENCE RFP #                AUTHOR OF CHANGE - ZL1  DTSBR404
00025 *                                                                 DTSBR404
00026 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR404
00027 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR404
00028 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR404
00029 *                                                                 DTSBR404
00030 *                                                                 DTSBR404
00031 *    DESCRIPTION:                                                 DTSBR404
00032 *                                                                 DTSBR404
00033 *        THIS MODULE PRODUCES THE LIEN PACKAGES CONTROL LIST.     DTSBR404
00034 *                                                                 DTSBR404
00035 *                                                                 DTSBR404
00036 *    RECORDS READ:                                                DTSBR404
00037 *                                                                 DTSBR404
00038 *        NONE.                                                    DTSBR404
00039 *                                                                 DTSBR404
00040 *                                                                 DTSBR404
00041 *    PRINTED OUTPUTS:                                             DTSBR404
00042 *                                                                 DTSBR404
00043 *        404R1  LIEN PACKAGES PRINTED CONTROL REPORT              DTSBR404
00044 *                                                                 DTSBR404
00045 *                                                                 DTSBR404
00046 *    RECORDS WRITTEN:                                             DTSBR404
00047 *                                                                 DTSBR404
00048 *        NONE.                                                    DTSBR404
00049 *                                                                 DTSBR404
00050 *                                                                 DTSBR404
00051 *    MODULES CALLED:                                              DTSBR404
00052 *                                                                 DTSBR404
00053 *        DTSBU001  DATE CONVERT.                                  DTSBR404
00054 *        DTSBU004  QUARTER CONVERT.                               DTSBR404
00055 *                                                                 DTSBR404
00056 *                                                                 DTSBR404
00057 *****                                                             DTSBR404
00058      EJECT                                                        DTSBR404
00059  ENVIRONMENT DIVISION.                                            DTSBR404
00060                                                                   DTSBR404
00061  CONFIGURATION SECTION.                                           DTSBR404
00062  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR404
00063                                                                   DTSBR404
00064  INPUT-OUTPUT SECTION.                                            DTSBR404
00065  FILE-CONTROL.                                                    DTSBR404
00066      SELECT PRT-FILE ASSIGN TO RPT404R1.                          DTSBR404
00067      SKIP3                                                        DTSBR404
00068  DATA DIVISION.                                                   DTSBR404
00069  FILE SECTION.                                                    DTSBR404
00070                                                                   DTSBR404
00071  FD  PRT-FILE                                                     DTSBR404
00072      RECORDING MODE IS F.                                         DTSBR404
00073  01  PRT-RECORD              PIC X(133).                          DTSBR404
00074                                                                   DTSBR404
00075  WORKING-STORAGE SECTION.                                         DTSBR404
000755 77  PAN-VALET PICTURE X(24) VALUE '039DTSBR404  11/16/00'.       DTSBR404
00076      SKIP3                                                        DTSBR404
00077  01  WRK-AREA.                                                    DTSBR404
00078      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +404.DTSBR404
00079      05  FIRST-TIME-IND              PIC  X(01)        VALUE 'Y'. DTSBR404
00080      05  FIRST-PAGE-IND              PIC  X(01)        VALUE 'Y'. DTSBR404
00081                                                                   DTSBR404
00082      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR404
00083      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR404
00084      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR404
00085      05  WS-PKG-SUM-CNTR             PIC S9(02) COMP-3 VALUE +0.  DTSBR404
00086                                                                   DTSBR404
00087      05  WS-LIEN-NO                  PIC  9(10) VALUE 0.          DTSBR404
00088      05  WS-EMP-NO                   PIC  9(06) VALUE 0.          DTSBR404
00089      05  WS-STMT-DUE-AMT             PIC  9(09)V99.               DTSBR404
00090                                                                   DTSBR404
00091      05  WRK-YRQ-CNT                 PIC S9(04)  COMP.            DTSBR404
00092      05  WRK-YRQ-AREA.                                            DTSBR404
00093          10 WRK-YRQ OCCURS 20        PIC  X(06).                  DTSBR404
00094      EJECT                                                        DTSBR404
00095  01  L001-LINK-AREA.                                              DTSBR404
00096  ++INCLUDE DTSIL001                                               DTSBR404
00097      SKIP3                                                        DTSBR404
00098  01  L004-LINK-AREA.                                              DTSBR404
00099  ++INCLUDE DTSIL004                                               DTSBR404
00100      EJECT                                                        DTSBR404
00101  01  PAGE-HEADING.                                                DTSBR404
00102      05  HEADER-1.                                                DTSBR404
00103          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR404
00104          10  FILLER                      PIC  X(05)               DTSBR404
00105                 VALUE '404R1'.                                    DTSBR404
00106          10  FILLER                      PIC  X(35)  VALUE SPACES.DTSBR404
00107          10  WS-AGY-NAME-LINE1           PIC  X(50).              DTSBR404
00108          10  FILLER                      PIC  X(27)  VALUE SPACES.DTSBR404
00109          10  FILLER                      PIC  X(05)               DTSBR404
00110                 VALUE 'DATE:'.                                    DTSBR404
00111          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR404
00112          10  WS-SYS-DATE                 PIC  X(08).              DTSBR404
00113      05  HEADER-2.                                                DTSBR404
00114          10  FILLER                      PIC  X(41)  VALUE SPACES.DTSBR404
00115          10  WS-AGY-NAME-LINE2           PIC  X(50).              DTSBR404
00116          10  FILLER                      PIC  X(27)  VALUE SPACES.DTSBR404
00117          10  FILLER                      PIC  X(05)               DTSBR404
00118                 VALUE 'TIME:'.                                    DTSBR404
00119          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR404
00120          10  WS-SYS-TIME                 PIC  X(08).              DTSBR404
00121      05  HEADER-3.                                                DTSBR404
00122          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR404
00123          10  FILLER                      PIC  X(35)               DTSBR404
00124                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT        '.      DTSBR404
00125          10  FILLER                      PIC  X(82)  VALUE SPACES.DTSBR404
00126          10  FILLER                      PIC  X(05)               DTSBR404
00127                 VALUE 'PAGE:'.                                    DTSBR404
00128          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR404
00129          10  HDR3-PAGE                   PIC  ZZ,ZZ9.             DTSBR404
00130      05  HEADER-4.                                                DTSBR404
00131          10  FILLER                      PIC  X(47)  VALUE SPACES.DTSBR404
00132          10  FILLER                      PIC  X(36)               DTSBR404
00133                 VALUE 'LIEN PACKAGES PRINTED CONTROL REPORT'.     DTSBR404
00134      05  HEADER-5                        PIC  X(133) VALUE SPACES.DTSBR404
00135      05  HEADER-6                        PIC  X(133) VALUE SPACES.DTSBR404
00136      05  HEADER-7.                                                DTSBR404
00137          10  FILLER                      PIC  X(95)  VALUE SPACES.DTSBR404
00138          10  FILLER                      PIC  X(09)               DTSBR404
00139                 VALUE '   LIEN'.                                  DTSBR404
00140          10  FILLER                      PIC  X(10)  VALUE SPACES.DTSBR404
00141          10  FILLER                      PIC  X(06)               DTSBR404
00142                 VALUE '  LIEN'.                                   DTSBR404
00143      05  HEADER-8.                                                DTSBR404
00144          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR404
00145          10  FILLER                      PIC  X(06)               DTSBR404
00146                 VALUE 'EMP NO'.                                   DTSBR404
00147          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR404
00148          10  FILLER                      PIC  X(13)               DTSBR404
00149                 VALUE 'PRIMARY NAME'.                             DTSBR404
00150          10  FILLER                      PIC  X(34)  VALUE SPACES.DTSBR404
00151          10  FILLER                      PIC  X(30)               DTSBR404
00152                 VALUE '------ QUARTERS COVERED ------'.           DTSBR404
00153          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR404
00154          10  FILLER                      PIC  X(07)               DTSBR404
00155                 VALUE '    NO '.                                  DTSBR404
00156          10  FILLER                      PIC  X(11)  VALUE SPACES.DTSBR404
00157          10  FILLER                      PIC  X(06)               DTSBR404
00158                 VALUE 'AMOUNT'.                                   DTSBR404
00159  01  DETAIL-LINE.                                                 DTSBR404
00160      SKIP3                                                        DTSBR404
00161      05  DTL-LINE-1                      PIC  X(133) VALUE SPACES.DTSBR404
00162      05  DTL-LINE-2.                                              DTSBR404
00163          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00164          10  WS-PRINT-EMP-NO             PIC  999B999.            DTSBR404
00165          10  FILLER                      PIC  X(05) VALUE SPACES. DTSBR404
00166          10  WS-PRIMARY-NAME             PIC  X(40).              DTSBR404
00167          10  FILLER                      PIC  X(07) VALUE SPACES. DTSBR404
00168          10  WRK-YRQ-1                   PIC  X(06).              DTSBR404
00169          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00170          10  WRK-YRQ-2                   PIC  X(06).              DTSBR404
00171          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00172          10  WRK-YRQ-3                   PIC  X(06).              DTSBR404
00173          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00174          10  WRK-YRQ-4                   PIC  X(06).              DTSBR404
00175          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00176          10  DTL-LIEN-NO                 PIC  ZZZZZZZZZ9.         DTSBR404
00177          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00178          10  FILLER                      PIC  X(04) VALUE SPACES. DTSBR404
00179          10  WS-PRINT-STMT-DUE-AMT       PIC  ZZZ,ZZZ,ZZ9.99.     DTSBR404
00180      05  DTL-LINE-3.                                              DTSBR404
00181          10  FILLER                      PIC  X(14) VALUE SPACES. DTSBR404
00182          10  WS-FMT-LINE-3               PIC  X(40).              DTSBR404
00183          10  FILLER                      PIC  X(07) VALUE SPACES. DTSBR404
00184          10  WRK-YRQ-5                   PIC  X(06).              DTSBR404
00185          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00186          10  WRK-YRQ-6                   PIC  X(06).              DTSBR404
00187          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00188          10  WRK-YRQ-7                   PIC  X(06).              DTSBR404
00189          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00190          10  WRK-YRQ-8                   PIC  X(06).              DTSBR404
00191      05  DTL-LINE-4.                                              DTSBR404
00192          10  FILLER                      PIC  X(14) VALUE SPACES. DTSBR404
00193          10  WS-FMT-LINE-4               PIC  X(40).              DTSBR404
00194          10  FILLER                      PIC  X(07) VALUE SPACES. DTSBR404
00195          10  WRK-YRQ-9                   PIC  X(06).              DTSBR404
00196          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00197          10  WRK-YRQ-10                  PIC  X(06).              DTSBR404
00198          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00199          10  WRK-YRQ-11                  PIC  X(06).              DTSBR404
00200          10  FILLER                      PIC  X(02) VALUE SPACES. DTSBR404
00201          10  WRK-YRQ-12                  PIC  X(06).              DTSBR404
00202      05  DTL-LINE-5.                                              DTSBR404
00203          10  FILLER                     PIC  X(14) VALUE SPACES.  DTSBR404
00204          10  WS-FMT-LINE-5              PIC  X(40).               DTSBR404
00205          10  FILLER                     PIC  X(07) VALUE SPACES.  DTSBR404
00206          10  WRK-YRQ-13                 PIC  X(06).               DTSBR404
00207          10  FILLER                     PIC  X(02) VALUE SPACES.  DTSBR404
00208          10  WRK-YRQ-14                 PIC  X(06).               DTSBR404
00209          10  FILLER                     PIC  X(02) VALUE SPACES.  DTSBR404
00210          10  WRK-YRQ-15                 PIC  X(06).               DTSBR404
00211          10  FILLER                     PIC  X(02) VALUE SPACES.  DTSBR404
00212          10  WRK-YRQ-16                 PIC  X(06).               DTSBR404
00213      05  DTL-LINE-6.                                              DTSBR404
00214          10  FILLER                     PIC  X(65) VALUE SPACES.  DTSBR404
00215          10  WRK-YRQ-17                 PIC  X(06).               DTSBR404
00216          10  WRK-YRQ-18                 PIC  X(06).               DTSBR404
00217          10  WRK-YRQ-19                 PIC  X(06).               DTSBR404
00218          10  WRK-YRQ-20                 PIC  X(06).               DTSBR404
00219      SKIP3                                                        DTSBR404
00220                                                                   DTSBR404
00221  01  CONTROL-FOOTING.                                             DTSBR404
00222      05  CNF-LINE-1                      PIC  X(133) VALUE SPACES.DTSBR404
00223      05  CNF-LINE-2                      PIC  X(133) VALUE SPACES.DTSBR404
00224      05  CNF-LINE-3.                                              DTSBR404
00225          10  FILLER                      PIC  X(36) VALUE SPACES. DTSBR404
00226          10  PRINT-SUM-CNTR              PIC  ZZ,ZZ9.             DTSBR404
00227          10  FILLER                      PIC  X(01) VALUE SPACE.  DTSBR404
00228          10  FILLER                      PIC  X(21)               DTSBR404
00229                 VALUE 'LIEN PACKAGES PRINTED'.                    DTSBR404
00230      SKIP3                                                        DTSBR404
00231      EJECT                                                        DTSBR404
00232  LINKAGE SECTION.                                                 DTSBR404
00233      SKIP3                                                        DTSBR404
00234  01  LRCM-LINK-AREA.                                              DTSBR404
00235  ++INCLUDE DTSILRCM                                               DTSBR404
00236      EJECT                                                        DTSBR404
00237  01  R404-REC.                                                    DTSBR404
00238  ++INCLUDE DTSIR404                                               DTSBR404
00239      EJECT                                                        DTSBR404
00240  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR404
00241                           R404-REC.                               DTSBR404
00242                                                                   DTSBR404
00243      IF FIRST-TIME-IND = 'Y'                                      DTSBR404
00244          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR404
00245          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR404
00246                                                                   DTSBR404
00247      IF LRCM-EOR-88                                               DTSBR404
00248          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR404
00249      ELSE                                                         DTSBR404
00250          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR404
00251      SKIP3                                                        DTSBR404
00252      GOBACK.                                                      DTSBR404
00253      EJECT                                                        DTSBR404
00254  I1000-INITIATE.                                                  DTSBR404
00255                                                                   DTSBR404
00256      OPEN OUTPUT PRT-FILE.                                        DTSBR404
00257      MOVE LRCM-SYS-DATE TO WS-SYS-DATE.                           DTSBR404
00258      MOVE LRCM-SYS-TIME TO WS-SYS-TIME.                           DTSBR404
00259      MOVE LRCM-AGY-NAME-LINE1 TO WS-AGY-NAME-LINE1.               DTSBR404
00260      MOVE LRCM-AGY-NAME-LINE2 TO WS-AGY-NAME-LINE2.               DTSBR404
00261      MOVE SPACES TO PRT-RECORD.                                   DTSBR404
00262                                                                   DTSBR404
00263  I1000-EXIT.                                                      DTSBR404
00264      EXIT.                                                        DTSBR404
00265      EJECT                                                        DTSBR404
00266  P1000-PROCESS.                                                   DTSBR404
00267                                                                   DTSBR404
00268      IF R404-EMP-NO NOT = WS-EMP-NO                               DTSBR404
00269         ADD +1 TO WS-PKG-SUM-CNTR.                                DTSBR404
00270      MOVE R404-CERTIFICATE-NO TO WS-LIEN-NO.                      DTSBR404
00271      MOVE WS-LIEN-NO          TO DTL-LIEN-NO.                     DTSBR404
00272      MOVE R404-EMP-NO TO WS-EMP-NO.                               DTSBR404
00273      MOVE WS-EMP-NO TO WS-PRINT-EMP-NO.                           DTSBR404
00274      MOVE R404-PRIMARY-NAME TO WS-PRIMARY-NAME.                   DTSBR404
00275      MOVE R404-STMT-DUE-AMT TO WS-STMT-DUE-AMT.                   DTSBR404
00276      MOVE WS-STMT-DUE-AMT TO WS-PRINT-STMT-DUE-AMT.               DTSBR404
00277      MOVE R404-FMT-LINE (3) TO WS-FMT-LINE-3.                     DTSBR404
00278      MOVE R404-FMT-LINE (4) TO WS-FMT-LINE-4.                     DTSBR404
00279      MOVE R404-FMT-LINE (5) TO WS-FMT-LINE-5.                     DTSBR404
00280                                                                   DTSBR404
00281      MOVE SPACE TO WRK-YRQ-AREA.                                  DTSBR404
00282                                                                   DTSBR404
00283      PERFORM VARYING WRK-YRQ-CNT FROM 1 BY 1                      DTSBR404
00284              UNTIL   WRK-YRQ-CNT > R404-COV-CNT                   DTSBR404
00285          IF R404-COVERED-YRQ (WRK-YRQ-CNT) > 0                    DTSBR404
00286             PERFORM P1100-PICKUP-YRQ THRU P1100-EXIT              DTSBR404
00287          END-IF                                                   DTSBR404
00288      END-PERFORM.                                                 DTSBR404
00289                                                                   DTSBR404
00290 *    GENERATE DETAIL-LINE.                                        DTSBR404
00291                                                                   DTSBR404
00292      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR404
00293      PERFORM P3000-PRINT-DETAIL THRU P3000-EXIT.                  DTSBR404
00294                                                                   DTSBR404
00295  P1000-EXIT.                                                      DTSBR404
00296      EXIT.                                                        DTSBR404
00297      EJECT                                                        DTSBR404
00298                                                                   DTSBR404
00299  P1100-PICKUP-YRQ.                                                DTSBR404
00300      IF R404-COVERED-YRQ (WRK-YRQ-CNT) = LRCM-PICKUP-YRQ          DTSBR404
00301         MOVE 'PU  ' TO WRK-YRQ (WRK-YRQ-CNT)                      DTSBR404
00302      ELSE                                                         DTSBR404
00303         MOVE R404-COVERED-YRQ (WRK-YRQ-CNT) TO L004-QTR-5-9       DTSBR404
00304         PERFORM S004-FROM-5 THRU S004-EXIT                        DTSBR404
00305         MOVE L004-SLASH-5-QTR TO WRK-YRQ (WRK-YRQ-CNT)            DTSBR404
00306      END-IF.                                                      DTSBR404
00307  P1100-EXIT.                                                      DTSBR404
00308      EXIT.                                                        DTSBR404
00309      EJECT                                                        DTSBR404
00310                                                                   DTSBR404
00311  P2000-PRINT-HEADER.                                              DTSBR404
00312      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR404
00313           WS-LINE-CNT2 GREATER 58                                 DTSBR404
00314         MOVE +0          TO WS-LINE-CNT                           DTSBR404
00315         MOVE +0          TO WS-LINE-CNT2                          DTSBR404
00316         ADD  +1          TO WS-PAGE-CNT                           DTSBR404
00317         MOVE WS-PAGE-CNT TO HDR3-PAGE                             DTSBR404
00318         WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE          DTSBR404
00319         WRITE PRT-RECORD FROM HEADER-2 AFTER 1                    DTSBR404
00320         WRITE PRT-RECORD FROM HEADER-3 AFTER 1                    DTSBR404
00321         WRITE PRT-RECORD FROM HEADER-4 AFTER 1                    DTSBR404
00322         WRITE PRT-RECORD FROM HEADER-5 AFTER 1                    DTSBR404
00323         WRITE PRT-RECORD FROM HEADER-6 AFTER 1                    DTSBR404
00324         WRITE PRT-RECORD FROM HEADER-7 AFTER 1                    DTSBR404
00325         WRITE PRT-RECORD FROM HEADER-8 AFTER 1                    DTSBR404
00326         ADD +8    TO WS-LINE-CNT2.                                DTSBR404
00327  P2000-EXIT.                                                      DTSBR404
00328      EXIT.                                                        DTSBR404
00329                                                                   DTSBR404
00330  P3000-PRINT-DETAIL.                                              DTSBR404
00331                                                                   DTSBR404
00332         MOVE WRK-YRQ (1) TO WRK-YRQ-1.                            DTSBR404
00333         MOVE WRK-YRQ (2) TO WRK-YRQ-2.                            DTSBR404
00334         MOVE WRK-YRQ (3) TO WRK-YRQ-3.                            DTSBR404
00335         MOVE WRK-YRQ (4) TO WRK-YRQ-4.                            DTSBR404
00336         MOVE WRK-YRQ (5) TO WRK-YRQ-5.                            DTSBR404
00337         MOVE WRK-YRQ (6) TO WRK-YRQ-6.                            DTSBR404
00338         MOVE WRK-YRQ (7) TO WRK-YRQ-7.                            DTSBR404
00339         MOVE WRK-YRQ (8) TO WRK-YRQ-8.                            DTSBR404
00340         MOVE WRK-YRQ (9) TO WRK-YRQ-9.                            DTSBR404
00341         MOVE WRK-YRQ (10) TO WRK-YRQ-10.                          DTSBR404
00342         MOVE WRK-YRQ (11) TO WRK-YRQ-11.                          DTSBR404
00343         MOVE WRK-YRQ (12) TO WRK-YRQ-12.                          DTSBR404
00344         MOVE WRK-YRQ (13) TO WRK-YRQ-13.                          DTSBR404
00345         MOVE WRK-YRQ (14) TO WRK-YRQ-14.                          DTSBR404
00346         MOVE WRK-YRQ (15) TO WRK-YRQ-15.                          DTSBR404
00347         MOVE WRK-YRQ (16) TO WRK-YRQ-16.                          DTSBR404
00348                                                                   DTSBR404
00349         WRITE PRT-RECORD FROM DTL-LINE-1 AFTER 1.                 DTSBR404
00350         WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 1.                 DTSBR404
00351         WRITE PRT-RECORD FROM DTL-LINE-3 AFTER 1.                 DTSBR404
00352         WRITE PRT-RECORD FROM DTL-LINE-4 AFTER 1.                 DTSBR404
00353         WRITE PRT-RECORD FROM DTL-LINE-5 AFTER 1.                 DTSBR404
00354         ADD +5    TO WS-LINE-CNT2.                                DTSBR404
00355         IF R404-COV-CNT  > 16                                     DTSBR404
00356              MOVE WRK-YRQ (17) TO WRK-YRQ-17                      DTSBR404
00357              MOVE WRK-YRQ (18) TO WRK-YRQ-18                      DTSBR404
00358              MOVE WRK-YRQ (19) TO WRK-YRQ-19                      DTSBR404
00359              MOVE WRK-YRQ (20) TO WRK-YRQ-20                      DTSBR404
00360              WRITE PRT-RECORD FROM DTL-LINE-6 AFTER 1             DTSBR404
00361              ADD +1    TO WS-LINE-CNT2.                           DTSBR404
00362  P3000-EXIT.                                                      DTSBR404
00363      EXIT.                                                        DTSBR404
00364                                                                   DTSBR404
00365  T1000-TERMINATE.                                                 DTSBR404
00366                                                                   DTSBR404
00367      IF WS-LINE-CNT2 > 52                                         DTSBR404
00368         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR404
00369      END-IF.                                                      DTSBR404
00370      MOVE WS-PKG-SUM-CNTR TO PRINT-SUM-CNTR.                      DTSBR404
00371      WRITE PRT-RECORD FROM CNF-LINE-1 AFTER 1.                    DTSBR404
00372      WRITE PRT-RECORD FROM CNF-LINE-2 AFTER 1.                    DTSBR404
00373      WRITE PRT-RECORD FROM CNF-LINE-3 AFTER 1.                    DTSBR404
00374      CLOSE PRT-FILE.                                              DTSBR404
00375                                                                   DTSBR404
00376  T1000-EXIT.                                                      DTSBR404
00377      EXIT.                                                        DTSBR404
00378      EJECT                                                        DTSBR404
00379  S001-FROM-FED-8.                                                 DTSBR404
00380                                                                   DTSBR404
00381      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR404
00382                                                                   DTSBR404
00383      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR404
00384                                                                   DTSBR404
00385  S001-EXIT.                                                       DTSBR404
00386      EXIT.                                                        DTSBR404
00387      SKIP3                                                        DTSBR404
00388  S004-FROM-5.                                                     DTSBR404
00389                                                                   DTSBR404
00390      SET L004-FROM-5 TO TRUE.                                     DTSBR404
00391                                                                   DTSBR404
00392      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR404
00393                                                                   DTSBR404
00394  S004-EXIT.                                                       DTSBR404
00395      EXIT.                                                        DTSBR404
00396      SKIP3                                                        DTSBR404
00397 *S999-ABEND.                                                      DTSBR404
00398 *                                                                 DTSBR404
00399 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR404
00400 *                                                                 DTSBR404
00401 *S999-EXIT.                                                       DTSBR404
00402 *    EXIT.                                                        DTSBR404
00403                                                                   DTSBR404
