00001  IDENTIFICATION DIVISION.                                         11/26/01
00002  PROGRAM-ID.             DTSBR425.                                DTSBR425
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV012
00004  DATE-WRITTEN.           OCTOBER 1994.                            DTSBR425
00005                          MODIFIED BY TRW JAN 1999.                DTSBR425
00006  DATE-COMPILED.                                                   DTSBR425
00007      SKIP3                                                        DTSBR425
00008 *****                                                             DTSBR425
00009 *                                                                 DTSBR425
00010 *    CALLING SEQUENCE:  DURING THE DAILY UPDATE                   DTSBR425
00011 *                       DTSBU590 WHICH BUILDS DTSIR425            DTSBR425
00012 *                       DTSBR425 READS DTSIR425 RECORDS.          DTSBR425
00013 *                                                                 DTSBR425
00014 *    FUNCTION:  MISSING REPORTS ESTABLISHED LIST.                 DTSBR425
00015 *                                                                 DTSBR425
00016 *                                                                 DTSBR425
00017 *    MODIFICATION HISTORY:                                        DTSBR425
00018 *                                                                 DTSBR425
00019 * 10-16-94 INITIAL DEVELOPMENT                                    DTSBR425
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR425
00021 *                                                                 DTSBR425
00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR425
00023 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR425
00024 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR425
00025 *                                                                 DTSBR425
00026 *                                                                 DTSBR425
00027 *    DESCRIPTION:                                                 DTSBR425
00028 *                                                                 DTSBR425
00029 *        THIS MODULE LISTS, IN QUARTER WITHIN EMPLOYER NUMBER     DTSBR425
00030 *        SEQUENCE, EACH QUARTER FOR WHICH THE REPORT WAS DECLARED DTSBR425
00031 *        MISSING DURING THE TAX UPDATE.                           DTSBR425
00032 *                                                                 DTSBR425
00033 *                                                                 DTSBR425
00034 *    RECORDS READ:                                                DTSBR425
00035 *                                                                 DTSBR425
00036 *        NONE.                                                    DTSBR425
00037 *                                                                 DTSBR425
00038 *                                                                 DTSBR425
00039 *    PRINTED OUTPUTS:                                             DTSBR425
00040 *                                                                 DTSBR425
00041 *        425R2  MISSING REPORTS ESTABLISHED LIST                  DTSBR425
00042 *               (GROUPED BY FIELD REP CODE)                       DTSBR425
00043 *                                                                 DTSBR425
00044 *                                                                 DTSBR425
00045 *    RECORDS WRITTEN:                                             DTSBR425
00046 *                                                                 DTSBR425
00047 *        NONE.                                                    DTSBR425
00048 *                                                                 DTSBR425
00049 *                                                                 DTSBR425
00050 *    MODULES CALLED:                                              DTSBR425
00051 *                                                                 DTSBR425
00052 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR425
00053 *        DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE            DTSBR425
00054 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR425
00055 *                                                                 DTSBR425
00056 *                                                                 DTSBR425
00057 *****                                                             DTSBR425
00058      EJECT                                                        DTSBR425
00059  ENVIRONMENT DIVISION.                                            DTSBR425
00060                                                                   DTSBR425
00061  CONFIGURATION SECTION.                                           DTSBR425
00062  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR425
00063                                                                   DTSBR425
00064  INPUT-OUTPUT SECTION.                                            DTSBR425
00065                                                                   DTSBR425
00066  FILE-CONTROL.                                                    DTSBR425
00067      SELECT PRT-FILE ASSIGN TO RPT425R1.                          DTSBR425
00068                                                                   DTSBR425
00069  DATA DIVISION.                                                   DTSBR425
00070                                                                   DTSBR425
00071  FILE SECTION.                                                    DTSBR425
00072                                                                   DTSBR425
00073  FD  PRT-FILE                                                     DTSBR425
00074      RECORDING MODE IS F.                                         DTSBR425
00075  01  PRT-RECORD              PIC X(133).                          DTSBR425
00076                                                                   DTSBR425
00077  WORKING-STORAGE SECTION.                                         DTSBR425
000775 77  PAN-VALET PICTURE X(24) VALUE '012DTSBR425  11/26/01'.       DTSBR425
00078                                                                   DTSBR425
00079  01  WRK-AREA.                                                    DTSBR425
00080      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +425.DTSBR425
00081      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR425
00082      05  FIRST-PAGE-IND              PIC  X(01)  VALUE 'Y'.       DTSBR425
00083      05  WS-EMP-NO                   PIC  9(06)  VALUE ZEROS.     DTSBR425
00084      05  WS-FIELD-REP-ID-LAST2       PIC  X(02)  VALUE SPACES.    DTSBR425
00085      05  WS-YRQ                      PIC  9(05)  VALUE ZEROS.     DTSBR425
00086      05  WS-RPT-DUE-DATE             PIC  X(10)  VALUE SPACES.    DTSBR425
00087      05  WS-FIELD-NAME               PIC  X(32)  VALUE SPACES.    DTSBR425
00088                                                                   DTSBR425
00089      05  WS-BLANK-LINE               PIC  X(133) VALUE SPACES.    DTSBR425
00090      05  WRK-PAGE-TRUNCATE           PIC  9(01).                  DTSBR425
00091          88  WRK-ODD-PAGE-88             VALUE 1 3 5 7 9.         DTSBR425
00092                                                                   DTSBR425
00093      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +0. DTSBR425
00094      05  WS-NUMBER-TWO               PIC S9(03)  COMP-3 VALUE +0. DTSBR425
00095      05  WS-FOOT-NUMBER-ONE          PIC S9(05)  COMP-3 VALUE +0. DTSBR425
00096      05  WS-FOOT-NUMBER-TWO          PIC S9(05)  COMP-3 VALUE +0. DTSBR425
00097      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE 60. DTSBR425
00098      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE +0. DTSBR425
00099      05  WS-PAGE-CNT                 PIC S9(05)  COMP-3 VALUE +0. DTSBR425
00100                                                                   DTSBR425
00101      EJECT                                                        DTSBR425
00102  01  L001-LINK-AREA.                                              DTSBR425
00103  ++INCLUDE DTSIL001                                               DTSBR425
00104      EJECT                                                        DTSBR425
00105  01  L062-LINK-AREA.                                              DTSBR425
00106  ++INCLUDE DTSIL062                                               DTSBR425
00107      EJECT                                                        DTSBR425
00108  01  L071-LINK-AREA.                                              DTSBR425
00109  ++INCLUDE DTSIL071                                               DTSBR425
00110      EJECT                                                        DTSBR425
00111                                                                   DTSBR425
00112  01  PAGE-HEADING.                                                DTSBR425
00113      05  HDR-LINE-1.                                              DTSBR425
00114          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR425
00115          10  FILLER                  PIC  X(05)                   DTSBR425
00116                 VALUE '425R1'.                                    DTSBR425
00117          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR425
00118          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR425
00119          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR425
00120          10  FILLER                  PIC  X(05)                   DTSBR425
00121                 VALUE 'DATE:'.                                    DTSBR425
00122          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR425
00123          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR425
00124      05  HDR-LINE-2.                                              DTSBR425
00125          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR425
00126          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR425
00127          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR425
00128          10  FILLER                  PIC  X(05)                   DTSBR425
00129                 VALUE 'TIME:'.                                    DTSBR425
00130          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR425
00131          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR425
00132      05  HDR-LINE-3.                                              DTSBR425
00133          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR425
00134          10  FILLER                  PIC  X(27)                   DTSBR425
00135                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR425
00136          10  FILLER                  PIC  X(90)  VALUE SPACES.    DTSBR425
00137          10  FILLER                  PIC  X(05)                   DTSBR425
00138                 VALUE 'PAGE:'.                                    DTSBR425
00139          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR425
00140          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR425
00141      05  HDR-LINE-4.                                              DTSBR425
00142          10  FILLER                  PIC  X(49)  VALUE SPACES.    DTSBR425
00143          10  FILLER                  PIC  X(32)                   DTSBR425
00144                 VALUE 'MISSING REPORTS ESTABLISHED LIST'.         DTSBR425
00145          10  FILLER                  PIC  X(52)  VALUE SPACES.    DTSBR425
00146      05  HDR-LINE-5.                                              DTSBR425
00147          10  FILLER                  PIC  X(49)  VALUE SPACES.    DTSBR425
00148          10  FILLER                  PIC  X(32)                   DTSBR425
00149                 VALUE '        FIELD CODE ORDER        '.         DTSBR425
00150          10  FILLER                  PIC  X(52)  VALUE SPACES.    DTSBR425
00151      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR425
00152      05  HDR-LINE-7.                                              DTSBR425
00153          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR425
00154          10  FILLER                  PIC  X(17)                   DTSBR425
00155                 VALUE 'FIELD REP CODE:  '.                        DTSBR425
00156          10  HDR-FLD-REP-ID          PIC  X(02).                  DTSBR425
00157      05  HDR-LINE-8.                                              DTSBR425
00158          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR425
00159          10  FILLER                  PIC  X(17)                   DTSBR425
00160                 VALUE 'FIELD REP NAME:  '.                        DTSBR425
00161          10  HDR-FIELD-NAME          PIC  X(32).                  DTSBR425
00162      05  HDR-LINE-9                  PIC  X(133) VALUE SPACES.    DTSBR425
00163      05  HDR-LINE-10                 PIC  X(133) VALUE SPACES.    DTSBR425
00164      05  HDR-LINE-11.                                             DTSBR425
00165          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR425
00166          10  FILLER                  PIC  X(06)                   DTSBR425
00167                 VALUE 'EMP NO'.                                   DTSBR425
00168          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR425
00169          10  FILLER                  PIC  X(13)                   DTSBR425
00170                 VALUE 'PRIMARY NAME'.                             DTSBR425
00171          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR425
00172          10  FILLER                  PIC  X(14)                   DTSBR425
00173                 VALUE 'MISSING REPORT'.                           DTSBR425
00174          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR425
00175          10  FILLER                  PIC  X(15)                   DTSBR425
00176                 VALUE 'REPORT DUE DATE'.                          DTSBR425
00177      05  HDR-LINE-12.                                             DTSBR425
00178          10  FILLER                  PIC  X(73)  VALUE SPACES.    DTSBR425
00179          10  FILLER                  PIC  X(14)                   DTSBR425
00180                 VALUE '   QUARTERS   '.                           DTSBR425
00181          10  FILLER                  PIC  X(44)  VALUE SPACES.    DTSBR425
00182      05  HDR-LINE-13                 PIC  X(133) VALUE SPACES.    DTSBR425
00183                                                                   DTSBR425
00184  01  DETAIL-LINE2.                                                DTSBR425
00185      05  DTL-LINE-1                  PIC  X(133) VALUE SPACES.    DTSBR425
00186      05  DTL-LINE-2.                                              DTSBR425
00187          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR425
00188          10  DTL-EMP-NO              PIC  999B999.                DTSBR425
00189          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR425
00190          10  DTL-PRIMARY-NAME        PIC  X(40).                  DTSBR425
00191          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR425
00192          10  DTL-YRQ                 PIC  9999/9.                 DTSBR425
00193          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR425
00194          10  DTL-RPT-DUE-DATE        PIC  X(10).                  DTSBR425
00195                                                                   DTSBR425
00196  01  CONTROL-FOOTING.                                             DTSBR425
00197      05  CTF-LINE-4.                                              DTSBR425
00198          10  FILLER                  PIC  X(33)  VALUE SPACES.    DTSBR425
00199          10  CTF-FOOT-NUMBER-ONE     PIC  ZZ,ZZ9.                 DTSBR425
00200          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR425
00201          10  FILLER                  PIC  X(31)                   DTSBR425
00202                 VALUE 'ACCOUNTS LISTED FOR FIELD CODE '.          DTSBR425
00203          10  CTF-FLD-REP-ID-1        PIC  X(02).                  DTSBR425
00204      05  CTF-LINE-6.                                              DTSBR425
00205          10  FILLER                  PIC  X(33)  VALUE SPACES.    DTSBR425
00206          10  CTF-FOOT-NUMBER-TWO     PIC  ZZ,ZZ9.                 DTSBR425
00207          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR425
00208          10  FILLER                  PIC  X(31)                   DTSBR425
00209                 VALUE 'MISSING REPORTS FOR FIELD CODE '.          DTSBR425
00210          10  CTF-FLD-REP-ID-2        PIC  X(02).                  DTSBR425
00211                                                                   DTSBR425
00212      EJECT                                                        DTSBR425
00213  LINKAGE SECTION.                                                 DTSBR425
00214      SKIP3                                                        DTSBR425
00215  01  LRCM-LINK-AREA.                                              DTSBR425
00216  ++INCLUDE DTSILRCM                                               DTSBR425
00217      EJECT                                                        DTSBR425
00218  01  R425-REC.                                                    DTSBR425
00219  ++INCLUDE DTSIR425                                               DTSBR425
00220      EJECT                                                        DTSBR425
00221  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR425
00222                           R425-REC.                               DTSBR425
00223      IF FIRST-TIME-IND = 'Y'                                      DTSBR425
00224          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR425
00225          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR425
00226                                                                   DTSBR425
00227      IF LRCM-EOR-88                                               DTSBR425
00228          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR425
00229      ELSE                                                         DTSBR425
00230          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR425
00231                                                                   DTSBR425
00232      GOBACK.                                                      DTSBR425
00233      EJECT                                                        DTSBR425
00234  I1000-INITIATE.                                                  DTSBR425
00235                                                                   DTSBR425
00236      MOVE SPACES TO WS-FIELD-REP-ID-LAST2.                        DTSBR425
00237                                                                   DTSBR425
00238      OPEN OUTPUT PRT-FILE.                                        DTSBR425
00239      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR425
00240      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR425
00241      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR425
00242      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR425
00243      MOVE SPACES TO PRT-RECORD.                                   DTSBR425
00244                                                                   DTSBR425
00245  I1000-EXIT.                                                      DTSBR425
00246      EXIT.                                                        DTSBR425
00247                                                                   DTSBR425
00248  P1000-PROCESS.                                                   DTSBR425
00249                                                                   DTSBR425
00250      MOVE R425-RPT-DUE-DATE TO L001-FED-8-DATE-9.                 DTSBR425
00251      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR425
00252      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR425
00253      MOVE L001-SLASH-8-DATE TO WS-RPT-DUE-DATE.                   DTSBR425
00254                                                                   DTSBR425
00255      PERFORM P2000-GENERATE-REPORT2 THRU P2000-EXIT.              DTSBR425
00256                                                                   DTSBR425
00257  P1000-EXIT.                                                      DTSBR425
00258      EXIT.                                                        DTSBR425
00259      EJECT                                                        DTSBR425
00260  P2000-GENERATE-REPORT2.                                          DTSBR425
00261                                                                   DTSBR425
00262      IF R425-EMP-NO NOT = WS-EMP-NO                               DTSBR425
00263         IF WS-NUMBER-ONE = +0                                     DTSBR425
00264            MOVE +99 TO WS-NUMBER-ONE                              DTSBR425
00265         ELSE                                                      DTSBR425
00266            PERFORM  P5000-PRINT-BLANK-LINES THRU P5000-EXIT       DTSBR425
00267            ADD  +1  TO WS-FOOT-NUMBER-ONE                         DTSBR425
00268         END-IF                                                    DTSBR425
00269      END-IF.                                                      DTSBR425
00270                                                                   DTSBR425
00271      MOVE R425-EMP-NO TO WS-EMP-NO.                               DTSBR425
00272      MOVE R425-YRQ TO WS-YRQ.                                     DTSBR425
00273      IF R425-FLD-REP-ID                                           DTSBR425
00274         = WS-FIELD-REP-ID-LAST2                                   DTSBR425
00275          NEXT SENTENCE                                            DTSBR425
00276      ELSE                                                         DTSBR425
00277          MOVE R425-FLD-REP-ID TO HDR-FLD-REP-ID                   DTSBR425
00278                WS-FIELD-REP-ID-LAST2 L062-FLD-REP-ID              DTSBR425
00279          PERFORM S062-FLD-REP-INFO THRU S062-EXIT                 DTSBR425
00280          IF L062-NOT-VALID                                        DTSBR425
00281              MOVE L062-NAME TO WS-FIELD-NAME                      DTSBR425
00282          ELSE                                                     DTSBR425
00283              MOVE L062-NAME TO L071-NAM                           DTSBR425
00284              MOVE 2 TO L071-NAME-FORMAT                           DTSBR425
00285              PERFORM S071-DESLASH-NAME THRU S071-EXIT             DTSBR425
00286 *            MOVE L071-NAM TO WS-FIELD-NAME                       DTSBR425
00287              MOVE L071-NAM TO WS-FIELD-NAME HDR-FIELD-NAME        DTSBR425
00288          END-IF                                                   DTSBR425
00289                                                                   DTSBR425
00290          IF WS-NUMBER-TWO = +0                                    DTSBR425
00291             MOVE +99 TO WS-NUMBER-TWO                             DTSBR425
00292          ELSE                                                     DTSBR425
00293             PERFORM  P4000-PRINT-FOOTER THRU P4000-EXIT           DTSBR425
00294             MOVE +60 TO WS-LINE-CNT2                              DTSBR425
00295          END-IF.                                                  DTSBR425
00296      MOVE R425-EMP-NO           TO DTL-EMP-NO.                    DTSBR425
00297      MOVE R425-PRIMARY-NAME     TO DTL-PRIMARY-NAME.              DTSBR425
00298      MOVE WS-YRQ                TO DTL-YRQ.                       DTSBR425
00299      MOVE WS-RPT-DUE-DATE       TO DTL-RPT-DUE-DATE.              DTSBR425
00300      MOVE R425-FLD-REP-ID TO CTF-FLD-REP-ID-1 CTF-FLD-REP-ID-2.   DTSBR425
00301      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR425
00302      WRITE PRT-RECORD FROM DTL-LINE-2  AFTER 2.                   DTSBR425
00303      ADD +2    TO WS-LINE-CNT2.                                   DTSBR425
00304      ADD +1    TO WS-FOOT-NUMBER-TWO.                             DTSBR425
00305                                                                   DTSBR425
00306  P2000-EXIT.                                                      DTSBR425
00307      EXIT.                                                        DTSBR425
00308                                                                   DTSBR425
00309  P3000-PRINT-HEADER.                                              DTSBR425
00310      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR425
00311           WS-LINE-CNT2 GREATER 52                                 DTSBR425
00312         MOVE +0          TO WS-LINE-CNT                           DTSBR425
00313         MOVE +0          TO WS-LINE-CNT2                          DTSBR425
00314         ADD  +1          TO WS-PAGE-CNT                           DTSBR425
00315         IF WS-PAGE-CNT = +3                                       DTSBR425
00316            MOVE +1 TO WS-PAGE-CNT                                 DTSBR425
00317         END-IF                                                    DTSBR425
00318         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR425
00319         WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE        DTSBR425
00320         WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1                  DTSBR425
00321         WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1                  DTSBR425
00322         WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1                  DTSBR425
00323         WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1                  DTSBR425
00324         WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1                  DTSBR425
00325         WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1                  DTSBR425
00326         WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1                  DTSBR425
00327         WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1                  DTSBR425
00328         WRITE PRT-RECORD FROM HDR-LINE-10 AFTER 1                 DTSBR425
00329         WRITE PRT-RECORD FROM HDR-LINE-11 AFTER 1                 DTSBR425
00330         WRITE PRT-RECORD FROM HDR-LINE-12 AFTER 1                 DTSBR425
00331         ADD +12   TO WS-LINE-CNT2.                                DTSBR425
00332  P3000-EXIT.                                                      DTSBR425
00333      EXIT.                                                        DTSBR425
00334                                                                   DTSBR425
00335  P4000-PRINT-FOOTER.                                              DTSBR425
00336      IF WS-LINE-CNT2 > 52                                         DTSBR425
00337         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR425
00338      END-IF.                                                      DTSBR425
00339                                                                   DTSBR425
00340      MOVE WS-FOOT-NUMBER-ONE TO CTF-FOOT-NUMBER-ONE.              DTSBR425
00341      MOVE WS-FOOT-NUMBER-TWO TO CTF-FOOT-NUMBER-TWO.              DTSBR425
00342      WRITE PRT-RECORD FROM CTF-LINE-4  AFTER 4.                   DTSBR425
00343      WRITE PRT-RECORD FROM CTF-LINE-6  AFTER 2.                   DTSBR425
00344      MOVE +0 TO WS-FOOT-NUMBER-TWO.                               DTSBR425
00345      MOVE +0 TO WS-FOOT-NUMBER-ONE.                               DTSBR425
00346                                                                   DTSBR425
00347      MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE.                       DTSBR425
00348      IF WRK-ODD-PAGE-88                                           DTSBR425
00349         WRITE PRT-RECORD  FROM WS-BLANK-LINE                      DTSBR425
00350                 AFTER TOP-OF-PAGE                                 DTSBR425
00351         WRITE PRT-RECORD  FROM WS-BLANK-LINE AFTER 58             DTSBR425
00352         ADD +60   TO WS-LINE-CNT2                                 DTSBR425
00353         MOVE +0   TO WS-PAGE-CNT                                  DTSBR425
00354      END-IF.                                                      DTSBR425
00355                                                                   DTSBR425
00356  P4000-EXIT.                                                      DTSBR425
00357      EXIT.                                                        DTSBR425
00358                                                                   DTSBR425
00359  P5000-PRINT-BLANK-LINES.                                         DTSBR425
00360      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 2.                   DTSBR425
00361      ADD  +2 TO WS-LINE-CNT2.                                     DTSBR425
00362                                                                   DTSBR425
00363  P5000-EXIT.                                                      DTSBR425
00364      EXIT.                                                        DTSBR425
00365                                                                   DTSBR425
00366  T1000-TERMINATE.                                                 DTSBR425
00367      IF WS-LINE-CNT2 > 52                                         DTSBR425
00368         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR425
00369      END-IF.                                                      DTSBR425
00370                                                                   DTSBR425
00371      ADD  +1  TO WS-FOOT-NUMBER-ONE.                              DTSBR425
00372      MOVE WS-FOOT-NUMBER-ONE TO CTF-FOOT-NUMBER-ONE.              DTSBR425
00373      MOVE WS-FOOT-NUMBER-TWO TO CTF-FOOT-NUMBER-TWO.              DTSBR425
00374      WRITE PRT-RECORD FROM CTF-LINE-4  AFTER 4.                   DTSBR425
00375      WRITE PRT-RECORD FROM CTF-LINE-6  AFTER 2.                   DTSBR425
00376                                                                   DTSBR425
00377      CLOSE PRT-FILE.                                              DTSBR425
00378                                                                   DTSBR425
00379  T1000-EXIT.                                                      DTSBR425
00380      EXIT.                                                        DTSBR425
00381                                                                   DTSBR425
00382  S001-DATE.                                                       DTSBR425
00383                                                                   DTSBR425
00384      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR425
00385                                                                   DTSBR425
00386  S001-EXIT.                                                       DTSBR425
00387      EXIT.                                                        DTSBR425
00388                                                                   DTSBR425
00389  S062-FLD-REP-INFO.                                               DTSBR425
00390                                                                   DTSBR425
00391      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR425
00392                                                                   DTSBR425
00393  S062-EXIT.                                                       DTSBR425
00394      EXIT.                                                        DTSBR425
00395                                                                   DTSBR425
00396  S071-DESLASH-NAME.                                               DTSBR425
00397                                                                   DTSBR425
00398      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR425
00399                                                                   DTSBR425
00400  S071-EXIT.                                                       DTSBR425
00401      EXIT.                                                        DTSBR425
00402                                                                   DTSBR425
00403 *S999-ABEND.                                                      DTSBR425
00404 *                                                                 DTSBR425
00405 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR425
00406 *                                                                 DTSBR425
00407 *S999-EXIT.                                                       DTSBR425
00408 *    EXIT.                                                        DTSBR425
00409                                                                   DTSBR425
