00001  IDENTIFICATION DIVISION.                                         03/07/11
00002  PROGRAM-ID.             DTSBR726.                                DTSBR726
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV073
00004  DATE-WRITTEN.           OCTOBER 1994.                            DTSBR726
00005  DATE-COMPILED.                                                   DTSBR726
00006                                                                   DTSBR726
00007 *****                                                             DTSBR726
00008 *                                                                 DTSBR726
00009 *    FUNCTION:   LMI  MISSING EMPLOYEE COUNT LETTER.              DTSBR726
00010 *                                                                 DTSBR726
00011 *    CALLING SEQUENCE:  DTSBD300 CALLS                            DTSBR726
00012 *                       DTSBD371 WHICH UPDATES DTSIR726           DTSBR726
00013 *                       DTSBR726 READS DTSIR726 RECORDS TO        DTSBR726
00014 *                       PRODUCE THE MISSING EMPLOYEE COUNT RECORD.DTSBR726
00015 *                                                                 DTSBR726
00016 *                                                                 DTSBR726
00017 *    MODIFICATION HISTORY:                                        DTSBR726
00018 *                                                                 DTSBR726
00019 * 08-08-01 CHANGED TO AGREE WITH THE NEW FORM UC-30 LINE NBRS.    DTSBR726
00020 *          REFERENCE RFP #****            AUTHOR OF CHANGE - JHP  DTSBR726
00021 *                                                                 DTSBR726
00022 * 01-26-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS.     DTSBR726
00023 *          REFERENCE RFP #****            AUTHOR OF CHANGE - DVS  DTSBR726
00024 *                                                                 DTSBR726
00025 * 10-17-94 INITIAL DEVELOPMENT                                    DTSBR726
00026 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR726
00027 *                                                                 DTSBR726
00028 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR726
00029 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR726
00030 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR726
00031 *                                                                 DTSBR726
00032 *                                                                 DTSBR726
00033 *    DESCRIPTION:                                                 DTSBR726
00034 *                                                                 DTSBR726
00035 *        THIS MODULE ADDRESSES A GENERIC LETTER ON A PRE-PRINTED  DTSBR726
00036 *        FORM TO EMPLOYERS REQUESTING THEY PROVIDE EMPLOYEE       DTSBR726
00037 *        COUNTS FOR A GIVEN QUARTER.                              DTSBR726
00038 *                                                                 DTSBR726
00039 *                                                                 DTSBR726
00040 *    RECORDS READ:                                                DTSBR726
00041 *                                                                 DTSBR726
00042 *        NONE.                                                    DTSBR726
00043 *                                                                 DTSBR726
00044 *                                                                 DTSBR726
00045 *    PRINTED OUTPUTS:                                             DTSBR726
00046 *                                                                 DTSBR726
00047 *        726R1    LMI MISSING EMPLOYEE COUNT LETTER               DTSBR726
00048 *                                                                 DTSBR726
00049 *                                                                 DTSBR726
00050 *    RECORDS WRITTEN:                                             DTSBR726
00051 *                                                                 DTSBR726
00052 *        NONE.                                                    DTSBR726
00053 *                                                                 DTSBR726
00054 *                                                                 DTSBR726
00055 *    MODULES CALLED:                                              DTSBR726
00056 *                                                                 DTSBR726
00057 *        DTSBU008 QUARTER ALPHA CONVERSION MODULE                 DTSBR726
00058 *                                                                 DTSBR726
00059 *                                                                 DTSBR726
00060 *****                                                             DTSBR726
00061      EJECT                                                        DTSBR726
00062  ENVIRONMENT DIVISION.                                            DTSBR726
00063      SKIP1                                                        DTSBR726
00064  CONFIGURATION SECTION.                                           DTSBR726
00065  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR726
00066      SKIP1                                                        DTSBR726
00067                                                                   DTSBR726
00068  INPUT-OUTPUT SECTION.                                            DTSBR726
00069                                                                   DTSBR726
00070  FILE-CONTROL.                                                    DTSBR726
00071      SELECT PRT-FILE  ASSIGN TO RPT726R1.                         DTSBR726
00072                                                                   DTSBR726
00073  DATA DIVISION.                                                   DTSBR726
00074                                                                   DTSBR726
00075  FILE SECTION.                                                    DTSBR726
00076                                                                   DTSBR726
00077  FD  PRT-FILE                                                     DTSBR726
00078      RECORDING MODE IS F                                          DTSBR726
00079      BLOCK CONTAINS 0 RECORDS                                     DTSBR726
00080      LABEL RECORDS ARE OMITTED.                                   DTSBR726
00081  01  XEROX-REPORT.                                                DTSBR726
00082      05  FILLER                      PIC X(1).                    DTSBR726
00083      05  XEROX-RPT                   PIC X(132).                  DTSBR726
00084      EJECT                                                        DTSBR726
00085                                                                   DTSBR726
00086  WORKING-STORAGE SECTION.                                         DTSBR726
000865 77  PAN-VALET PICTURE X(24) VALUE '073DTSBR726  03/07/11'.       DTSBR726
00087                                                                   DTSBR726
00088  01  WRK-AREA.                                                    DTSBR726
00089      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +726.DTSBR726
00090      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR726
00091      05  WS-YRQ-UNPACK               PIC  9(05)  VALUE ZEROS.     DTSBR726
00092      05  WS-YRQ                      PIC  X(04)  VALUE SPACES.    DTSBR726
00093      05  STRING-START                PIC  9(02)  VALUE ZEROS.     DTSBR726
00094      05  WRK-ADDR-AREA               PIC  X(200) VALUE SPACES.    DTSBR726
00095      05  WRK-ADDR-AREAX REDEFINES WRK-ADDR-AREA.                  DTSBR726
00096          10 ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40).               DTSBR726
00097                                                                   DTSBR726
00098      05  WS-OPR-VOICE.                                            DTSBR726
00099          10  WS-OPR-VOICE-AREA       PIC X(03)  VALUE SPACES.     DTSBR726
00100          10  WS-OPR-VOICE-1          PIC X(03)  VALUE SPACES.     DTSBR726
00101          10  WS-OPR-VOICE-2          PIC X(04)  VALUE SPACES.     DTSBR726
00102          10  WS-OPR-VOICE-EXT        PIC X(04)  VALUE SPACES.     DTSBR726
00103                                                                   DTSBR726
00104  01  VSCA-LINE.                                                   DTSBR726
00105      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR726
00106                                                                   DTSBR726
00107      EJECT                                                        DTSBR726
00108  01  L001-LINK-AREA.                                              DTSBR726
00109  ++INCLUDE DTSIL001                                               DTSBR726
00110      EJECT                                                        DTSBR726
00111  01  L002-LINK-AREA.                                              DTSBR726
00112  ++INCLUDE DTSIL002                                               DTSBR726
00113      EJECT                                                        DTSBR726
00114  01  L004-LINK-AREA.                                              DTSBR726
00115  ++INCLUDE DTSIL004                                               DTSBR726
00116      EJECT                                                        DTSBR726
00117  01  L008-LINK-AREA.                                              DTSBR726
00118  ++INCLUDE DTSIL008                                               DTSBR726
00119      EJECT                                                        DTSBR726
00120  ++INCLUDE DTSXL726                                               DTSBR726
00121                                                                   DTSBR726
00122  01  HEADER-LINE.                                                 DTSBR726
00123      05  HDL-LINE-9.                                              DTSBR726
00124          10  FILLER                 PIC X(23) VALUE SPACES.       DTSBR726
00125          10  FILLER                 PIC X(34) VALUE               DTSBR726
00126              'COVERED EMPLOYEE VERIFICATION FORM'.                DTSBR726
00127          10  FILLER                 PIC X(23) VALUE SPACES.       DTSBR726
00128      05  HDL-LINE-10.                                             DTSBR726
00129          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR726
00130          10  WS-EMP-NO               PIC  999B999.                DTSBR726
00131          10  FILLER                  PIC  X(36)  VALUE SPACES.    DTSBR726
00132          10  WS-LONG-TEXT-AREA       PIC  X(18)  VALUE SPACES.    DTSBR726
00133      05  HDL-LINE-11.                                             DTSBR726
00134          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR726
00135          10  WS-FMT-LINE-1           PIC  X(42)  VALUE SPACES.    DTSBR726
00136      05  HDL-LINE-12.                                             DTSBR726
00137          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR726
00138          10  WS-FMT-LINE-2           PIC  X(42)  VALUE SPACES.    DTSBR726
00139      05  HDL-LINE-13.                                             DTSBR726
00140          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR726
00141          10  WS-FMT-LINE-3           PIC  X(42)  VALUE SPACES.    DTSBR726
00142      05  HDL-LINE-14.                                             DTSBR726
00143          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR726
00144          10  WS-FMT-LINE-4           PIC  X(42)  VALUE SPACES.    DTSBR726
00145      05  HDL-LINE-15.                                             DTSBR726
00146          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR726
00147          10  WS-FMT-LINE-5           PIC  X(42)  VALUE SPACES.    DTSBR726
00148  ++INCLUDE DTSIZ726                                               DTSBR726
00149      EJECT                                                        DTSBR726
00150  LINKAGE SECTION.                                                 DTSBR726
00151                                                                   DTSBR726
00152  01  LRCM-LINK-AREA.                                              DTSBR726
00153  ++INCLUDE DTSILRCM                                               DTSBR726
00154      EJECT                                                        DTSBR726
00155  01  R726-REC.                                                    DTSBR726
00156  ++INCLUDE DTSIR726                                               DTSBR726
00157      EJECT                                                        DTSBR726
00158  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR726
00159                           R726-REC.                               DTSBR726
00160                                                                   DTSBR726
00161      IF FIRST-TIME-IND = 'Y'                                      DTSBR726
00162          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR726
00163          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR726
00164                                                                   DTSBR726
00165      IF LRCM-EOR-88                                               DTSBR726
00166          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR726
00167      ELSE                                                         DTSBR726
00168          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR726
00169                                                                   DTSBR726
00170      GOBACK.                                                      DTSBR726
00171      EJECT                                                        DTSBR726
00172  I1000-INITIATE.                                                  DTSBR726
00173                                                                   DTSBR726
00174      OPEN OUTPUT PRT-FILE.                                        DTSBR726
00175      MOVE SPACES TO XEROX-REPORT.                                 DTSBR726
00176 *    MOVE 'XXXXXXXX' TO REPORT-NUMBER.                            DTSBR726
00177                                                                   DTSBR726
00178      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR726
00179          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR726
00180      WRITE XEROX-REPORT     FROM VSCA-LINE AFTER ADVANCING 11.    DTSBR726
00181      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE13                DTSBR726
00182      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE14.               DTSBR726
00183      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE15.               DTSBR726
00184      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE16.               DTSBR726
00185      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE17.               DTSBR726
00186      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE18                DTSBR726
00187      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE19.               DTSBR726
00188      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE20.               DTSBR726
00189                                                                   DTSBR726
00190  I1000-EXIT.                                                      DTSBR726
00191      EXIT.                                                        DTSBR726
00192      EJECT                                                        DTSBR726
00193  P1000-PROCESS.                                                   DTSBR726
00194                                                                   DTSBR726
00195      MOVE R726-YRQ       TO L008-YRQ WS-YRQ-UNPACK.               DTSBR726
00196      SET L008-UPPER-CASE TO TRUE.                                 DTSBR726
00197      PERFORM S008-YRQ-ALPHA                                       DTSBR726
00198         THRU S008-EXIT.                                           DTSBR726
00199                                                                   DTSBR726
00200      MOVE R726-MAIL-DATE TO L002-DATE.                            DTSBR726
00201      SET L002-MIXED-CASE TO TRUE.                                 DTSBR726
00202      PERFORM S002-DATE-ALPHA THRU S002-EXIT.                      DTSBR726
00203                                                                   DTSBR726
00204      MOVE R726-YRQ              TO L004-QTR-5-9                   DTSBR726
00205      SET L004-FROM-5 TO TRUE                                      DTSBR726
00206      PERFORM S004-FROM-QTR                                        DTSBR726
00207         THRU S004-EXIT.                                           DTSBR726
00208                                                                   DTSBR726
00209      MOVE L004-QTR-END-DATE     TO L001-FED-8-DATE-9              DTSBR726
00210      SET L001-FROM-FED-8 TO TRUE                                  DTSBR726
00211      PERFORM S001-FROM-FED-8                                      DTSBR726
00212         THRU S001-EXIT.                                           DTSBR726
00213      MOVE L001-SLASH-8-DATE TO WRK-QUARTER-DATE.                  DTSBR726
00214                                                                   DTSBR726
00215      MOVE WS-YRQ-UNPACK (1:4) TO WS-YRQ.                          DTSBR726
00216                                                                   DTSBR726
00217      MOVE 1 TO STRING-START.                                      DTSBR726
00218      STRING L008-LONG-MONTH-1 DELIMITED BY SPACE                  DTSBR726
00219             ', '              DELIMITED BY SIZE                   DTSBR726
00220             WS-YRQ            DELIMITED BY SIZE                   DTSBR726
00221        INTO WS-MONTH-1 POINTER STRING-START.                      DTSBR726
00222      COMPUTE STRING-START ROUNDED = (17 - STRING-START) / 2.      DTSBR726
00223      MOVE SPACES TO WS-MONTH-1.                                   DTSBR726
00224      STRING L008-LONG-MONTH-1 DELIMITED BY SPACE                  DTSBR726
00225             ', '              DELIMITED BY SIZE                   DTSBR726
00226             WS-YRQ            DELIMITED BY SIZE                   DTSBR726
00227        INTO WS-MONTH-1 POINTER STRING-START.                      DTSBR726
00228                                                                   DTSBR726
00229      MOVE 1 TO STRING-START.                                      DTSBR726
00230      STRING L008-LONG-MONTH-2 DELIMITED BY SPACE                  DTSBR726
00231             ', '              DELIMITED BY SIZE                   DTSBR726
00232             WS-YRQ            DELIMITED BY SIZE                   DTSBR726
00233        INTO WS-MONTH-2 POINTER STRING-START.                      DTSBR726
00234      COMPUTE STRING-START ROUNDED = (17 - STRING-START) / 2.      DTSBR726
00235      MOVE SPACES TO WS-MONTH-2.                                   DTSBR726
00236      STRING L008-LONG-MONTH-2 DELIMITED BY SPACE                  DTSBR726
00237             ', '              DELIMITED BY SIZE                   DTSBR726
00238             WS-YRQ            DELIMITED BY SIZE                   DTSBR726
00239        INTO WS-MONTH-2 POINTER STRING-START.                      DTSBR726
00240                                                                   DTSBR726
00241      MOVE 1 TO STRING-START.                                      DTSBR726
00242      STRING L008-LONG-MONTH-3 DELIMITED BY SPACE                  DTSBR726
00243             ', '              DELIMITED BY SIZE                   DTSBR726
00244             WS-YRQ            DELIMITED BY SIZE                   DTSBR726
00245        INTO WS-MONTH-3 POINTER STRING-START.                      DTSBR726
00246      COMPUTE STRING-START ROUNDED = (17 - STRING-START) / 2.      DTSBR726
00247      MOVE SPACES TO WS-MONTH-3.                                   DTSBR726
00248      STRING L008-LONG-MONTH-3 DELIMITED BY SPACE                  DTSBR726
00249             ', '              DELIMITED BY SIZE                   DTSBR726
00250             WS-YRQ            DELIMITED BY SIZE                   DTSBR726
00251        INTO WS-MONTH-3 POINTER STRING-START.                      DTSBR726
00252                                                                   DTSBR726
00253 *    GENERATE DETAIL-LINE.                                        DTSBR726
00254      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR726
00255      PERFORM P3000-PRINT-DETAIL THRU P3000-EXIT.                  DTSBR726
00256      PERFORM P4000-SELF-MAILER-RTN                                DTSBR726
00257         THRU P4000-EXIT.                                          DTSBR726
00258                                                                   DTSBR726
00259  P1000-EXIT.                                                      DTSBR726
00260      EXIT.                                                        DTSBR726
00261                                                                   DTSBR726
00262  P2000-PRINT-HEADER.                                              DTSBR726
00263      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA.               DTSBR726
00264      MOVE R726-FMT-LINE (1) TO WS-FMT-LINE-1.                     DTSBR726
00265      MOVE R726-FMT-LINE (2) TO WS-FMT-LINE-2.                     DTSBR726
00266      MOVE R726-FMT-LINE (3) TO WS-FMT-LINE-3.                     DTSBR726
00267      MOVE R726-FMT-LINE (4) TO WS-FMT-LINE-4.                     DTSBR726
00268      MOVE R726-FMT-LINE (5) TO WS-FMT-LINE-5.                     DTSBR726
00269      MOVE R726-EMP-NO       TO WS-EMP-NO.                         DTSBR726
00270      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR726
00271      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 6 LINE.    DTSBR726
00272      WRITE XEROX-REPORT FROM HDL-LINE-9 AFTER ADVANCING 1 LINE.   DTSBR726
00273      WRITE XEROX-REPORT FROM HDL-LINE-10 AFTER ADVANCING 2 LINE.  DTSBR726
00274      WRITE XEROX-REPORT FROM HDL-LINE-11 AFTER ADVANCING 1 LINE.  DTSBR726
00275      WRITE XEROX-REPORT FROM HDL-LINE-12 AFTER ADVANCING 1 LINE.  DTSBR726
00276      WRITE XEROX-REPORT FROM HDL-LINE-13 AFTER ADVANCING 1 LINE.  DTSBR726
00277      WRITE XEROX-REPORT FROM HDL-LINE-14 AFTER ADVANCING 1 LINE.  DTSBR726
00278      WRITE XEROX-REPORT FROM HDL-LINE-15 AFTER ADVANCING 1 LINE.  DTSBR726
00279                                                                   DTSBR726
00280  P2000-EXIT.                                                      DTSBR726
00281      EXIT.                                                        DTSBR726
00282                                                                   DTSBR726
00283  P3000-PRINT-DETAIL.                                              DTSBR726
00284      WRITE XEROX-REPORT FROM DTL-LINE-1 AFTER ADVANCING 1 LINE.   DTSBR726
00285      WRITE XEROX-REPORT FROM DTL-LINE-2 AFTER ADVANCING 1 LINE.   DTSBR726
00286      WRITE XEROX-REPORT FROM DTL-LINE-3 AFTER ADVANCING 1 LINE.   DTSBR726
00287 ***                       CHANGED FOR NEW FORM UC-30              DTSBR726
00288 ***  WRITE XEROX-REPORT FROM DTL-LINE-4 AFTER ADVANCING 1 LINE.   DTSBR726
00289      WRITE XEROX-REPORT FROM DTL-LINE-5 AFTER ADVANCING 1 LINE.   DTSBR726
00290      WRITE XEROX-REPORT FROM DTL-LINE-6 AFTER ADVANCING 1 LINE.   DTSBR726
00291      WRITE XEROX-REPORT FROM DTL-LINE-7 AFTER ADVANCING 1 LINE.   DTSBR726
00292      WRITE XEROX-REPORT FROM DTL-LINE-8 AFTER ADVANCING 1 LINE.   DTSBR726
00293 ***                       CHANGED FOR NEW FORM UC-30              DTSBR726
00294 ***  WRITE XEROX-REPORT FROM DTL-LINE-9 AFTER ADVANCING 1 LINE.   DTSBR726
00295      WRITE XEROX-REPORT FROM DTL-LINE-10 AFTER ADVANCING 1 LINE.  DTSBR726
00296      WRITE XEROX-REPORT FROM DTL-LINE-11 AFTER ADVANCING 1 LINE.  DTSBR726
00297      WRITE XEROX-REPORT FROM DTL-LINE-12 AFTER ADVANCING 1 LINE.  DTSBR726
00298      WRITE XEROX-REPORT FROM DTL-LINE-13 AFTER ADVANCING 1 LINE.  DTSBR726
00299      WRITE XEROX-REPORT FROM DTL-LINE-14 AFTER ADVANCING 1 LINE.  DTSBR726
00300      WRITE XEROX-REPORT FROM DTL-LINE-15 AFTER ADVANCING 1 LINE.  DTSBR726
00301      WRITE XEROX-REPORT FROM DTL-LINE-16 AFTER ADVANCING 1 LINE.  DTSBR726
00302      WRITE XEROX-REPORT FROM DTL-LINE-17 AFTER ADVANCING 1 LINE.  DTSBR726
00303      WRITE XEROX-REPORT FROM DTL-LINE-18 AFTER ADVANCING 1 LINE.  DTSBR726
00304      WRITE XEROX-REPORT FROM DTL-LINE-19 AFTER ADVANCING 1 LINE.  DTSBR726
00305      WRITE XEROX-REPORT FROM DTL-LINE-20 AFTER ADVANCING 1 LINE.  DTSBR726
00306      WRITE XEROX-REPORT FROM DTL-LINE-21 AFTER ADVANCING 1 LINE.  DTSBR726
00307      WRITE XEROX-REPORT FROM DTL-LINE-22 AFTER ADVANCING 1 LINE.  DTSBR726
00308      WRITE XEROX-REPORT FROM DTL-LINE-23 AFTER ADVANCING 1 LINE.  DTSBR726
00309      WRITE XEROX-REPORT FROM DTL-LINE-24 AFTER ADVANCING 1 LINE.  DTSBR726
00310      WRITE XEROX-REPORT FROM DTL-LINE-25 AFTER ADVANCING 1 LINE.  DTSBR726
00311      WRITE XEROX-REPORT FROM DTL-LINE-26 AFTER ADVANCING 1 LINE.  DTSBR726
00312      WRITE XEROX-REPORT FROM DTL-LINE-27 AFTER ADVANCING 1 LINE.  DTSBR726
00313      WRITE XEROX-REPORT FROM DTL-LINE-28 AFTER ADVANCING 1 LINE.  DTSBR726
00314      WRITE XEROX-REPORT FROM DTL-LINE-29 AFTER ADVANCING 1 LINE.  DTSBR726
00315      WRITE XEROX-REPORT FROM DTL-LINE-30 AFTER ADVANCING 1 LINE.  DTSBR726
00316      WRITE XEROX-REPORT FROM DTL-LINE-31 AFTER ADVANCING 1 LINE.  DTSBR726
00317      WRITE XEROX-REPORT FROM DTL-LINE-32 AFTER ADVANCING 1 LINE.  DTSBR726
00318      WRITE XEROX-REPORT FROM DTL-LINE-33 AFTER ADVANCING 1 LINE.  DTSBR726
00319      WRITE XEROX-REPORT FROM DTL-LINE-34 AFTER ADVANCING 3 LINE.  DTSBR726
00320      WRITE XEROX-REPORT FROM DTL-LINE-35 AFTER ADVANCING 1 LINE.  DTSBR726
00321      WRITE XEROX-REPORT FROM DTL-LINE-36 AFTER ADVANCING 1 LINE.  DTSBR726
00322      WRITE XEROX-REPORT FROM DTL-LINE-37 AFTER ADVANCING 1 LINE.  DTSBR726
00323      WRITE XEROX-REPORT FROM DTL-LINE-38 AFTER ADVANCING 1 LINE.  DTSBR726
00324                                                                   DTSBR726
00325  P3000-EXIT.                                                      DTSBR726
00326      EXIT.                                                        DTSBR726
00327                                                                   DTSBR726
00328  P4000-SELF-MAILER-RTN.                                           DTSBR726
00329      MOVE R726-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1.                DTSBR726
00330      MOVE R726-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2.                DTSBR726
00331      MOVE R726-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3.                DTSBR726
00332      MOVE R726-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4.                DTSBR726
00333      MOVE R726-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5.                DTSBR726
00334      PERFORM P5000-PRINT-VSCA-ADDR THRU P5000-EXIT.               DTSBR726
00335  P4000-EXIT.                                                      DTSBR726
00336      EXIT.                                                        DTSBR726
00337                                                                   DTSBR726
00338  P5000-PRINT-VSCA-ADDR.                                           DTSBR726
00339      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR726
00340          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR726
00341      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 15 LINE.   DTSBR726
00342      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17                    DTSBR726
00343              AFTER ADVANCING 1 LINE.                              DTSBR726
00344      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18                    DTSBR726
00345              AFTER ADVANCING 1 LINE.                              DTSBR726
00346      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19                    DTSBR726
00347              AFTER ADVANCING 1 LINE.                              DTSBR726
00348      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20                    DTSBR726
00349              AFTER ADVANCING 1 LINE.                              DTSBR726
00350      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-21                    DTSBR726
00351              AFTER ADVANCING 1 LINE.                              DTSBR726
00352                                                                   DTSBR726
00353  P5000-EXIT.                                                      DTSBR726
00354      EXIT.                                                        DTSBR726
00355                                                                   DTSBR726
00356  T1000-TERMINATE.                                                 DTSBR726
00357                                                                   DTSBR726
00358      CLOSE PRT-FILE.                                              DTSBR726
00359                                                                   DTSBR726
00360  T1000-EXIT.                                                      DTSBR726
00361      EXIT.                                                        DTSBR726
00362      EJECT                                                        DTSBR726
00363  S001-FROM-FED-8.                                                 DTSBR726
00364      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR726
00365                                                                   DTSBR726
00366      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR726
00367  S001-EXIT.                                                       DTSBR726
00368      EXIT.                                                        DTSBR726
00369                                                                   DTSBR726
00370  S002-DATE-ALPHA.                                                 DTSBR726
00371                                                                   DTSBR726
00372      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR726
00373  S002-EXIT.                                                       DTSBR726
00374      EXIT.                                                        DTSBR726
00375                                                                   DTSBR726
00376  S004-FROM-QTR.                                                   DTSBR726
00377                                                                   DTSBR726
00378      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR726
00379  S004-EXIT.                                                       DTSBR726
00380      EXIT.                                                        DTSBR726
00381                                                                   DTSBR726
00382  S008-YRQ-ALPHA.                                                  DTSBR726
00383                                                                   DTSBR726
00384      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR726
00385                                                                   DTSBR726
00386  S008-EXIT.                                                       DTSBR726
00387      EXIT.                                                        DTSBR726
00388 **                                                                DTSBR726
00389 *S999-ABEND.                                                      DTSBR726
00390 **                                                                DTSBR726
00391 **   CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR726
00392 **                                                                DTSBR726
00393 *S999-EXIT.                                                       DTSBR726
00394 **   EXIT.                                                        DTSBR726
