00001  IDENTIFICATION DIVISION.                                         12/29/05
00002  PROGRAM-ID.             DTSBR131.                                DTSBR131
00003  AUTHOR.                 TRW.                                        LV005
00004  DATE-WRITTEN.           NOVEMBER 2001.                           DTSBR131
00005  DATE-COMPILED.                                                   DTSBR131
00006      SKIP3                                                        DTSBR131
00007 *****                                                             DTSBR131
00008 *                                                                 DTSBR131
00009 *    FUNCTION:  HOUSEHOLD NOTICES:                                DTSBR131
00010 *                  INITIAL SCHEDULE SELECTION NOTICE              DTSBR131
00011 *                  CONFIRMATION NOTICES                           DTSBR131
00012 *                                                                 DTSBR131
00013 *                                                                 DTSBR131
00014 *    MODIFICATION HISTORY:                                        DTSBR131
00015 *                                                                 DTSBR131
00016 * 11-13-2001 INITIAL DEVELOPMENT                                  DTSBR131
00017 *            REFERENCE: HOUSEHOLD           AUTHOR OF CHANGE - GD DTSBR131
00018 *                                                                 DTSBR131
00019 *                                                                 DTSBR131
00020 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR131
00021 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR131
00022 *            REFERENCE RFP #****                   PROGRAMMER: XXXDTSBR131
00023 *                                                                 DTSBR131
00024 *                                                                 DTSBR131
00025 *    DESCRIPTION:                                                 DTSBR131
00026 *                                                                 DTSBR131
00027 *        THIS MODULE PRINTS THE HOUSEHOLD FILING SCHEDULE         DTSBR131
00028 *        SELECTION NOTICE AND THE CONFIRMATION NOTICES.           DTSBR131
00029 *                                                                 DTSBR131
00030 *                                                                 DTSBR131
00031 *    RECORDS READ:                                                DTSBR131
00032 *                                                                 DTSBR131
00033 *        NONE.                                                    DTSBR131
00034 *                                                                 DTSBR131
00035 *                                                                 DTSBR131
00036 *    PRINTED OUTPUTS:                                             DTSBR131
00037 *                                                                 DTSBR131
00038 *        131R1  FILING SCHEDULE SELECTION NOTICE                  DTSBR131
00039 *        131R2  EMPLOYER REQUEST CHANGE IN FILING                 DTSBR131
00040 *        131R3  CONFIRMATION  OF CHANGE IN FILING- QUARTERLY      DTSBR131
00041 *        131R4  CONFIRMATION  OF CHANGE IN FILING- YEARLY         DTSBR131
00042 *        131R5  DENIAL DURING ACTIVATION                          DTSBR131
00043 *        131R6  DENIAL WHEN DELINQENT                             DTSBR131
00044 *                                                                 DTSBR131
00045 *    RECORDS WRITTEN:                                             DTSBR131
00046 *                                                                 DTSBR131
00047 *        NONE.                                                    DTSBR131
00048 *                                                                 DTSBR131
00049 *                                                                 DTSBR131
00050 *    MODULES CALLED:                                              DTSBR131
00051 *                                                                 DTSBR131
00052 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR131
00053 *                                                                 DTSBR131
00054 *                                                                 DTSBR131
00055 *****                                                             DTSBR131
00056      EJECT                                                        DTSBR131
00057  ENVIRONMENT DIVISION.                                            DTSBR131
00058      SKIP2                                                        DTSBR131
00059  CONFIGURATION SECTION.                                           DTSBR131
00060  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR131
00061      SKIP1                                                        DTSBR131
00062  INPUT-OUTPUT SECTION.                                            DTSBR131
00063      SKIP1                                                        DTSBR131
00064  FILE-CONTROL.                                                    DTSBR131
00065      SELECT PRT-FILEI ASSIGN TO RPT131R1.                         DTSBR131
00066      SELECT PRT-FILEW ASSIGN TO RPT131R2.                         DTSBR131
00067      SKIP3                                                        DTSBR131
00068  DATA DIVISION.                                                   DTSBR131
00069      SKIP3                                                        DTSBR131
00070  FILE SECTION.                                                    DTSBR131
00071      SKIP2                                                        DTSBR131
00072  FD  PRT-FILEI                                                    DTSBR131
00073      RECORDING MODE IS F                                          DTSBR131
00074      BLOCK CONTAINS 0 RECORDS                                     DTSBR131
00075      LABEL RECORDS ARE OMITTED.                                   DTSBR131
00076  01  XEROX-T131RI.                                                DTSBR131
00077      05  FILLER                      PIC X(1).                    DTSBR131
00078      05  XEROX-RPTI                  PIC X(132).                  DTSBR131
00079                                                                   DTSBR131
00080  FD  PRT-FILEW                                                    DTSBR131
00081      RECORDING MODE IS F                                          DTSBR131
00082      BLOCK CONTAINS 0 RECORDS                                     DTSBR131
00083      LABEL RECORDS ARE OMITTED.                                   DTSBR131
00084  01  XEROX-T131RW.                                                DTSBR131
00085      05  FILLER                      PIC X(1).                    DTSBR131
00086      05  XEROX-RPTW                  PIC X(132).                  DTSBR131
00087                                                                   DTSBR131
00088      EJECT                                                        DTSBR131
00089  WORKING-STORAGE SECTION.                                         DTSBR131
000895 77  PAN-VALET PICTURE X(24) VALUE '005DTSBR131  12/29/05'.       DTSBR131
00090      SKIP3                                                        DTSBR131
00091  01  WRK-AREA.                                                    DTSBR131
00092      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +131.DTSBR131
00093      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR131
00094      05  WS-OP-ID-HOLD               PIC  X(08)  VALUE SPACES.    DTSBR131
00095                                                                   DTSBR131
00096      SKIP1                                                        DTSBR131
00097      05  WS-AGENCY-FACTS.                                         DTSBR131
00098          10  WS-AGY-NAMEB1-CAPS      PIC  X(40)  VALUE SPACES.    DTSBR131
00099          10  WS-AGY-NAMEB2-CAPS      PIC  X(40)  VALUE SPACES.    DTSBR131
00100      SKIP1                                                        DTSBR131
00101      05  WS-PROGRAM-VOICE.                                        DTSBR131
00102          10  WS-PRGM-VOICE-AREA      PIC X(03)  VALUE SPACES.     DTSBR131
00103          10  WS-PRGM-VOICE-1         PIC X(03)  VALUE SPACES.     DTSBR131
00104          10  WS-PRGM-VOICE-2         PIC X(04)  VALUE SPACES.     DTSBR131
00105          10  WS-PRGM-VOICE-EXT       PIC X(04)  VALUE SPACES.     DTSBR131
00106                                                                   DTSBR131
00107  01  VSCA-LINE.                                                   DTSBR131
00108      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR131
00109                                                                   DTSBR131
00110      EJECT                                                        DTSBR131
00111  01  L001-LINK-AREA.                                              DTSBR131
00112  ++INCLUDE DTSIL001                                               DTSBR131
00113      EJECT                                                        DTSBR131
00114  01  L004-LINK-AREA.                                              DTSBR131
00115  ++INCLUDE DTSIL004                                               DTSBR131
00116      EJECT                                                        DTSBR131
00117  01  L071-LINK-AREA.                                              DTSBR131
00118  ++INCLUDE DTSIL071                                               DTSBR131
00119      EJECT                                                        DTSBR131
00120  01  L082-LINK-AREA.                                              DTSBR131
00121  ++INCLUDE DTSIL082                                               DTSBR131
00122      EJECT                                                        DTSBR131
00123  01  L090-LINK-AREA.                                              DTSBR131
00124  ++INCLUDE DTSIL090                                               DTSBR131
00125      EJECT                                                        DTSBR131
00126  01  L119-LINK-AREA.                                              DTSBR131
00127  ++INCLUDE DTSIL119                                               DTSBR131
00128      EJECT                                                        DTSBR131
00129                                                                   DTSBR131
00130  ++INCLUDE DTSXL131                                               DTSBR131
00131                                                                   DTSBR131
00132  01  ROUTE-INFO-LINE12.                                           DTSBR131
00133      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR131
00134      05  FILLER                      PIC  X(40)                   DTSBR131
00135                 VALUE ALL '*'.                                    DTSBR131
00136      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR131
00137  01  ROUTE-INFO-LINE13.                                           DTSBR131
00138      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR131
00139      05  FILLER                      PIC  X(40)                   DTSBR131
00140                 VALUE '*   ROUTE REPORT RPT131R1 TO:          *'. DTSBR131
00141      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR131
00142  01  ROUTE-INFO-LINE14.                                           DTSBR131
00143      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR131
00144      05  FILLER                      PIC  X(01)                   DTSBR131
00145                 VALUE '*'.                                        DTSBR131
00146      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR131
00147      05  WS-NAME-INFO                PIC  X(32)  VALUE SPACES.    DTSBR131
00148      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR131
00149      05  FILLER                      PIC  X(01)                   DTSBR131
00150                 VALUE '*'.                                        DTSBR131
00151      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR131
00152  01  ROUTE-INFO-LINE15.                                           DTSBR131
00153      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR131
00154      05  FILLER                      PIC  X(01)                   DTSBR131
00155                 VALUE '*'.                                        DTSBR131
00156      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR131
00157      05  WS-UNIT-NAME-INFO           PIC  X(30)  VALUE SPACES.    DTSBR131
00158      05  FILLER                      PIC  X(05)  VALUE SPACES.    DTSBR131
00159      05  FILLER                      PIC  X(01)                   DTSBR131
00160                 VALUE '*'.                                        DTSBR131
00161      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR131
00162  01  ROUTE-INFO-LINE16.                                           DTSBR131
00163      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR131
00164      05  FILLER                      PIC  X(40)                   DTSBR131
00165                 VALUE ALL '*'.                                    DTSBR131
00166      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR131
00167      SKIP2                                                        DTSBR131
00168      SKIP3                                                        DTSBR131
00169      05  RPT-LINE-1.                                              DTSBR131
00170          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR131
00171          10  RPT-MAIL-DATE           PIC  X(12).                  DTSBR131
00172          10  FILLER                  PIC  X(58) VALUE SPACES.     DTSBR131
00173      SKIP3                                                        DTSBR131
00174      05  RPT-LINE-2.                                              DTSBR131
00175          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR131
00176          10  RPT-ADDR1               PIC  X(40).                  DTSBR131
00177          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00178      05  RPT-LINE-3.                                              DTSBR131
00179          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR131
00180          10  RPT-ADDR2               PIC  X(40).                  DTSBR131
00181          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00182      05  RPT-LINE-4.                                              DTSBR131
00183          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR131
00184          10  RPT-ADDR3               PIC  X(40).                  DTSBR131
00185          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00186      05  RPT-LINE-5.                                              DTSBR131
00187          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR131
00188          10  RPT-ADDR4               PIC  X(40).                  DTSBR131
00189          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00190      05  RPT-LINE-6.                                              DTSBR131
00191          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR131
00192          10  RPT-ADDR5               PIC  X(40).                  DTSBR131
00193          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00194      05  RPT-LINE-7.                                              DTSBR131
00195          10  FILLER                  PIC  X(25) VALUE SPACES.     DTSBR131
00196          10  RPT-EMP-NO              PIC  999B999.                DTSBR131
00197          10  FILLER                  PIC  X(35) VALUE SPACES.     DTSBR131
00198          10  FILLER                  PIC  X(48) VALUE SPACES.     DTSBR131
00199      05  RPT-LINE-8.                                              DTSBR131
00200          10  FILLER                  PIC  X(65) VALUE SPACES.     DTSBR131
00201          10  RPT-UNIT-AREA           PIC  X(03).                  DTSBR131
00202          10  FILLER                  PIC  X(01) VALUE '-'.        DTSBR131
00203          10  RPT-UNIT-THREE          PIC  X(03).                  DTSBR131
00204          10  FILLER                  PIC  X(01) VALUE '-'.        DTSBR131
00205          10  RPT-UNIT-FOUR           PIC  X(04).                  DTSBR131
00206          10  FILLER                  PIC  X(01) VALUE '.'.        DTSBR131
00207          10  FILLER                  PIC  X(50) VALUE SPACES.     DTSBR131
00208      EJECT                                                        DTSBR131
00209      05  RPTR4-LINE1.                                             DTSBR131
00210          10  FILLER                  PIC  X(50) VALUE SPACES.     DTSBR131
00211          10  RPTR4-QTR-START-DATE    PIC  X(12).                  DTSBR131
00212          10  FILLER                  PIC  X(35) VALUE SPACES.     DTSBR131
00213      05  RPTR4-LINE2.                                             DTSBR131
00214          10  FILLER                  PIC  X(42) VALUE SPACES.     DTSBR131
00215          10  RPTR4-FEB-START-YEAR    PIC  X(04).                  DTSBR131
00216          10  FILLER                  PIC  X(35) VALUE SPACES.     DTSBR131
00217      05  RPTR4-LINE3.                                             DTSBR131
00218          10  FILLER                  PIC  X(61) VALUE SPACES.     DTSBR131
00219          10  RPTR4-QTR-SCHED-YEAR    PIC  X(04).                  DTSBR131
00220          10  FILLER                  PIC  X(35) VALUE SPACES.     DTSBR131
00221      05  RPTR3-LINE1.                                             DTSBR131
00222          10  FILLER                  PIC  X(51) VALUE SPACES.     DTSBR131
00223          10  RPTR3-QTR-START-DATE    PIC  X(12).                  DTSBR131
00224          10  FILLER                  PIC  X(35) VALUE SPACES.     DTSBR131
00225      05  RPTR3-LINE2.                                             DTSBR131
00226          10  FILLER                  PIC  X(59) VALUE SPACES.     DTSBR131
00227          10  RPTR3-1ST-START-YEAR    PIC  9(04).                  DTSBR131
00228          10  FILLER                  PIC  X(35) VALUE SPACES.     DTSBR131
00229      EJECT                                                        DTSBR131
00230      05  RPT-MAIL-1.                                              DTSBR131
00231          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR131
00232          10  RPT-MAIL1               PIC  X(40).                  DTSBR131
00233          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00234      05  RPT-MAIL-2.                                              DTSBR131
00235          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR131
00236          10  RPT-MAIL2               PIC  X(40).                  DTSBR131
00237          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00238      05  RPT-MAIL-3.                                              DTSBR131
00239          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR131
00240          10  RPT-MAIL3               PIC  X(40).                  DTSBR131
00241          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00242      05  RPT-MAIL-4.                                              DTSBR131
00243          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR131
00244          10  RPT-MAIL4               PIC  X(40).                  DTSBR131
00245          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00246      05  RPT-MAIL-5.                                              DTSBR131
00247          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR131
00248          10  RPT-MAIL5               PIC  X(40).                  DTSBR131
00249          10  FILLER                  PIC  X(30) VALUE SPACES.     DTSBR131
00250  LINKAGE SECTION.                                                 DTSBR131
00251      SKIP3                                                        DTSBR131
00252  01  LRCM-LINK-AREA.                                              DTSBR131
00253  ++INCLUDE DTSILRCM                                               DTSBR131
00254      EJECT                                                        DTSBR131
00255  01  R131-REC.                                                    DTSBR131
00256  ++INCLUDE DTSIR131                                               DTSBR131
00257      EJECT                                                        DTSBR131
00258  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR131
00259                           R131-REC.                               DTSBR131
00260      SKIP2                                                        DTSBR131
00261 *&                                                                DTSBR131
00262      DISPLAY 'DTSBR131 START'.                                    DTSBR131
00263 *&                                                                DTSBR131
00264      IF FIRST-TIME-IND = 'Y'                                      DTSBR131
00265          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR131
00266          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR131
00267      SKIP1                                                        DTSBR131
00268      IF LRCM-EOR-88                                               DTSBR131
00269          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR131
00270      ELSE                                                         DTSBR131
00271          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR131
00272      SKIP2                                                        DTSBR131
00273      GOBACK.                                                      DTSBR131
00274      EJECT                                                        DTSBR131
00275  I1000-INITIATE.                                                  DTSBR131
00276      SKIP1                                                        DTSBR131
00277      OPEN OUTPUT PRT-FILEI                                        DTSBR131
00278                  PRT-FILEW.                                       DTSBR131
00279      MOVE SPACES TO XEROX-T131RI                                  DTSBR131
00280                     XEROX-T131RW.                                 DTSBR131
00281      MOVE SPACES TO WS-OP-ID-HOLD.                                DTSBR131
00282      SKIP1                                                        DTSBR131
00283      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR131
00284      SET L119-REQ-NO-UNIT-88 TO TRUE.                             DTSBR131
00285      PERFORM S119-AGENCY-FACTS THRU S119-EXIT.                    DTSBR131
00286      MOVE L119-UC-OFFICE-VOICE      TO WS-PROGRAM-VOICE.          DTSBR131
00287      SKIP2                                                        DTSBR131
00288  I1000-EXIT.                                                      DTSBR131
00289      EXIT.                                                        DTSBR131
00290      EJECT                                                        DTSBR131
00291  P1000-PROCESS.                                                   DTSBR131
00292      SKIP1                                                        DTSBR131
00293      IF R131-OP-ID = WS-OP-ID-HOLD                                DTSBR131
00294          NEXT SENTENCE                                            DTSBR131
00295      ELSE                                                         DTSBR131
00296          MOVE R131-OP-ID TO WS-OP-ID-HOLD                         DTSBR131
00297                             L082-OP-ID                            DTSBR131
00298          PERFORM S082-OP-ID-INFO THRU S082-EXIT                   DTSBR131
00299          MOVE L082-NAME  TO L071-NAM                              DTSBR131
00300          MOVE 2          TO L071-NAME-FORMAT                      DTSBR131
00301          PERFORM S071-DESLASH-NAME THRU S071-EXIT                 DTSBR131
00302                                                                   DTSBR131
00303          MOVE L071-NAM       TO WS-NAME-INFO                      DTSBR131
00304          MOVE L082-UNIT-NAME TO WS-UNIT-NAME-INFO                 DTSBR131
00305                                                                   DTSBR131
00306      IF R131-RPT-TYPE = '01'  OR                                  DTSBR131
00307         R131-RPT-TYPE = '02'                                      DTSBR131
00308          WRITE XEROX-T131RI   FROM VSCA-LINE                      DTSBR131
00309              AFTER ADVANCING TOP-OF-PAGE                          DTSBR131
00310          WRITE XEROX-T131RI   FROM VSCA-LINE AFTER ADVANCING 11   DTSBR131
00311          WRITE XEROX-T131RI   FROM ROUTE-INFO-LINE12              DTSBR131
00312          WRITE XEROX-T131RI   FROM ROUTE-INFO-LINE13              DTSBR131
00313          WRITE XEROX-T131RI   FROM ROUTE-INFO-LINE14              DTSBR131
00314          WRITE XEROX-T131RI   FROM ROUTE-INFO-LINE15              DTSBR131
00315          WRITE XEROX-T131RI   FROM ROUTE-INFO-LINE16.             DTSBR131
00316 *                                                                 DTSBR131
00317      MOVE R131-RUN-DATE TO L001-FED-8-DATE-9.                     DTSBR131
00318      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR131
00319      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR131
00320                                                                   DTSBR131
00321      PERFORM P3000-PRINT-NOTICE-PAGE THRU P3000-EXIT.             DTSBR131
00322                                                                   DTSBR131
00323  P1000-EXIT.                                                      DTSBR131
00324      EXIT.                                                        DTSBR131
00325      EJECT                                                        DTSBR131
00326  P3000-PRINT-NOTICE-PAGE.                                         DTSBR131
00327                                                                   DTSBR131
00328                                                                   DTSBR131
00329      IF R131-RPT-TYPE = '01'                                      DTSBR131
00330         MOVE   'FORMS=T131R1,''' TO XEROX-FORMS                   DTSBR131
00331      ELSE                                                         DTSBR131
00332      IF R131-RPT-TYPE = '02'                                      DTSBR131
00333         MOVE   'FORMS=T131R2,''' TO XEROX-FORMS                   DTSBR131
00334      ELSE                                                         DTSBR131
00335      IF R131-RPT-TYPE = '20'                                      DTSBR131
00336         MOVE   'FORMS=T131R5,''' TO XEROX-FORMS                   DTSBR131
00337      ELSE                                                         DTSBR131
00338      IF R131-RPT-TYPE = '21'                                      DTSBR131
00339         MOVE   'FORMS=T131R6,''' TO XEROX-FORMS.                  DTSBR131
00340                                                                   DTSBR131
00341      IF R131-RPT-TYPE = '01' OR                                   DTSBR131
00342         R131-RPT-TYPE = '02'                                      DTSBR131
00343      WRITE XEROX-T131RI FROM XEROX-CNTL-LINEI                     DTSBR131
00344            AFTER ADVANCING TOP-OF-PAGE.                           DTSBR131
00345                                                                   DTSBR131
00346      IF R131-RPT-TYPE = '10'                                      DTSBR131
00347      WRITE XEROX-T131RW FROM XEROX-CNTL-T131R3                    DTSBR131
00348            AFTER ADVANCING TOP-OF-PAGE.                           DTSBR131
00349                                                                   DTSBR131
00350      IF R131-RPT-TYPE = '11'                                      DTSBR131
00351      WRITE XEROX-T131RW FROM XEROX-CNTL-T131R4                    DTSBR131
00352            AFTER ADVANCING TOP-OF-PAGE.                           DTSBR131
00353                                                                   DTSBR131
00354      MOVE L001-SLASH-8-DATE TO RPT-MAIL-DATE.                     DTSBR131
00355      MOVE R131-EMP-NO       TO RPT-EMP-NO.                        DTSBR131
00356      MOVE R131-FMT-LINE (1) TO RPT-ADDR1 RPT-MAIL1                DTSBR131
00357      MOVE R131-FMT-LINE (2) TO RPT-ADDR2 RPT-MAIL2                DTSBR131
00358      MOVE R131-FMT-LINE (3) TO RPT-ADDR3 RPT-MAIL3                DTSBR131
00359      MOVE R131-FMT-LINE (4) TO RPT-ADDR4 RPT-MAIL4                DTSBR131
00360      MOVE R131-FMT-LINE (5) TO RPT-ADDR5 RPT-MAIL5.               DTSBR131
00361                                                                   DTSBR131
00362      MOVE WS-PRGM-VOICE-AREA TO RPT-UNIT-AREA.                    DTSBR131
00363      MOVE WS-PRGM-VOICE-1    TO RPT-UNIT-THREE.                   DTSBR131
00364      MOVE WS-PRGM-VOICE-2    TO RPT-UNIT-FOUR.                    DTSBR131
00365                                                                   DTSBR131
00366      IF R131-RPT-TYPE = '01'  OR                                  DTSBR131
00367         R131-RPT-TYPE = '02'                                      DTSBR131
00368      WRITE XEROX-T131RI  FROM VSCA-LINE                           DTSBR131
00369                                     AFTER ADVANCING TOP-OF-PAGE   DTSBR131
00370      WRITE XEROX-T131RI  FROM RPT-LINE-1 AFTER ADVANCING 7 LINE   DTSBR131
00371      WRITE XEROX-T131RI  FROM RPT-LINE-2 AFTER ADVANCING 2 LINE   DTSBR131
00372      WRITE XEROX-T131RI  FROM RPT-LINE-3 AFTER ADVANCING 1 LINE   DTSBR131
00373      WRITE XEROX-T131RI  FROM RPT-LINE-4 AFTER ADVANCING 1 LINE   DTSBR131
00374      WRITE XEROX-T131RI  FROM RPT-LINE-5 AFTER ADVANCING 1 LINE   DTSBR131
00375      WRITE XEROX-T131RI  FROM RPT-LINE-6 AFTER ADVANCING 1 LINE   DTSBR131
00376      WRITE XEROX-T131RI  FROM RPT-LINE-7 AFTER ADVANCING 3 LINE   DTSBR131
00377      WRITE XEROX-T131RI  FROM RPT-LINE-8                          DTSBR131
00378                      AFTER ADVANCING 34 LINE.                     DTSBR131
00379                                                                   DTSBR131
00380                                                                   DTSBR131
00381      IF R131-RPT-TYPE = '10'  OR                                  DTSBR131
00382         R131-RPT-TYPE = '11'                                      DTSBR131
00383         WRITE XEROX-T131RW  FROM VSCA-LINE                        DTSBR131
00384                          AFTER ADVANCING TOP-OF-PAGE              DTSBR131
00385         WRITE XEROX-T131RW  FROM RPT-LINE-1                       DTSBR131
00386                          AFTER ADVANCING 8 LINE                   DTSBR131
00387         WRITE XEROX-T131RW  FROM RPT-LINE-2                       DTSBR131
00388                          AFTER ADVANCING 2 LINE                   DTSBR131
00389         WRITE XEROX-T131RW  FROM RPT-LINE-3                       DTSBR131
00390                          AFTER ADVANCING 1 LINE                   DTSBR131
00391         WRITE XEROX-T131RW  FROM RPT-LINE-4                       DTSBR131
00392                          AFTER ADVANCING 1 LINE                   DTSBR131
00393         WRITE XEROX-T131RW  FROM RPT-LINE-5                       DTSBR131
00394                          AFTER ADVANCING 1 LINE                   DTSBR131
00395         WRITE XEROX-T131RW  FROM RPT-LINE-6                       DTSBR131
00396                          AFTER ADVANCING 1 LINE                   DTSBR131
00397         WRITE XEROX-T131RW  FROM RPT-LINE-7                       DTSBR131
00398                          AFTER ADVANCING 4 LINE.                  DTSBR131
00399                                                                   DTSBR131
00400      IF R131-RPT-TYPE = '10'                                      DTSBR131
00401         PERFORM P4000-PRINT-R3-LINES THRU P4000-EXIT              DTSBR131
00402      ELSE                                                         DTSBR131
00403      IF R131-RPT-TYPE = '11'                                      DTSBR131
00404         PERFORM P5000-PRINT-R4-LINES THRU P5000-EXIT.             DTSBR131
00405                                                                   DTSBR131
00406  P3000-EXIT.                                                      DTSBR131
00407      EXIT.                                                        DTSBR131
00408                                                                   DTSBR131
00409  P4000-PRINT-R3-LINES.                                            DTSBR131
00410      MOVE R131-FILE-SCHED-START TO L004-QTR-5-9                   DTSBR131
00411      PERFORM S004-FROM-5        THRU S004-EXIT                    DTSBR131
00412      MOVE L004-QTR-START-DATE   TO L001-FED-8-DATE-9.             DTSBR131
00413      SET L001-FROM-FED-8        TO TRUE.                          DTSBR131
00414      PERFORM S001-DATE          THRU S001-EXIT.                   DTSBR131
00415      MOVE L001-SLASH-8-DATE TO RPTR3-QTR-START-DATE.              DTSBR131
00416      WRITE XEROX-T131RW FROM RPTR3-LINE1 AFTER ADVANCING 05 LINE. DTSBR131
00417                                                                   DTSBR131
00418      ADD 1 TO L001-FED-8-YR GIVING RPTR3-1ST-START-YEAR.          DTSBR131
00419      WRITE XEROX-T131RW FROM RPTR3-LINE2 AFTER ADVANCING 9 LINE.  DTSBR131
00420                                                                   DTSBR131
00421         WRITE XEROX-T131RW  FROM RPT-LINE-8                       DTSBR131
00422                      AFTER ADVANCING 18 LINE.                     DTSBR131
00423                                                                   DTSBR131
00424      PERFORM P6000-PRINT-SELF-MAILER THRU P6000-EXIT.             DTSBR131
00425                                                                   DTSBR131
00426  P4000-EXIT.                                                      DTSBR131
00427      EXIT.                                                        DTSBR131
00428                                                                   DTSBR131
00429  P5000-PRINT-R4-LINES.                                            DTSBR131
00430      MOVE R131-FILE-SCHED-START TO L004-QTR-5-9                   DTSBR131
00431      PERFORM S004-FROM-5        THRU S004-EXIT                    DTSBR131
00432      MOVE L004-QTR-START-DATE   TO L001-FED-8-DATE-9.             DTSBR131
00433      SET L001-FROM-FED-8        TO TRUE.                          DTSBR131
00434      PERFORM S001-DATE          THRU S001-EXIT.                   DTSBR131
00435      MOVE L001-SLASH-8-DATE TO RPTR4-QTR-START-DATE.              DTSBR131
00436      WRITE XEROX-T131RW FROM RPTR4-LINE1 AFTER ADVANCING 12 LINE. DTSBR131
00437                                                                   DTSBR131
00438         WRITE XEROX-T131RW  FROM RPT-LINE-8                       DTSBR131
00439                      AFTER ADVANCING 20 LINE.                     DTSBR131
00440                                                                   DTSBR131
00441      PERFORM P6000-PRINT-SELF-MAILER THRU P6000-EXIT.             DTSBR131
00442                                                                   DTSBR131
00443  P5000-EXIT.                                                      DTSBR131
00444      EXIT.                                                        DTSBR131
00445  P6000-PRINT-SELF-MAILER.                                         DTSBR131
00446         WRITE XEROX-T131RW  FROM VSCA-LINE                        DTSBR131
00447                          AFTER ADVANCING TOP-OF-PAGE              DTSBR131
00448         WRITE XEROX-T131RW  FROM RPT-MAIL-1                       DTSBR131
00449                          AFTER ADVANCING 13 LINE                  DTSBR131
00450         WRITE XEROX-T131RW  FROM RPT-MAIL-2                       DTSBR131
00451                          AFTER ADVANCING 2 LINE                   DTSBR131
00452         WRITE XEROX-T131RW  FROM RPT-MAIL-3                       DTSBR131
00453                          AFTER ADVANCING 1 LINE                   DTSBR131
00454         WRITE XEROX-T131RW  FROM RPT-MAIL-4                       DTSBR131
00455                          AFTER ADVANCING 1 LINE                   DTSBR131
00456         WRITE XEROX-T131RW  FROM RPT-MAIL-5                       DTSBR131
00457                          AFTER ADVANCING 1 LINE.                  DTSBR131
00458  P6000-EXIT.                                                      DTSBR131
00459      EXIT.                                                        DTSBR131
00460  T1000-TERMINATE.                                                 DTSBR131
00461      SKIP1                                                        DTSBR131
00462      CLOSE PRT-FILEI                                              DTSBR131
00463            PRT-FILEW.                                             DTSBR131
00464                                                                   DTSBR131
00465      SKIP2                                                        DTSBR131
00466  T1000-EXIT.                                                      DTSBR131
00467      EXIT.                                                        DTSBR131
00468      EJECT                                                        DTSBR131
00469  S001-DATE.                                                       DTSBR131
00470      SKIP1                                                        DTSBR131
00471      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR131
00472      SKIP2                                                        DTSBR131
00473  S001-EXIT.                                                       DTSBR131
00474      EXIT.                                                        DTSBR131
00475      SKIP3                                                        DTSBR131
00476  S004-FROM-5.                                                     DTSBR131
00477      SET L004-FROM-5 TO TRUE.                                     DTSBR131
00478      GO TO S004-QTR.                                              DTSBR131
00479                                                                   DTSBR131
00480  S004-FROM-ABS.                                                   DTSBR131
00481      SET L004-FROM-ABS TO TRUE.                                   DTSBR131
00482      GO TO S004-QTR.                                              DTSBR131
00483                                                                   DTSBR131
00484  S004-FROM-3.                                                     DTSBR131
00485      SET L004-FROM-3 TO TRUE.                                     DTSBR131
00486      GO TO S004-QTR.                                              DTSBR131
00487                                                                   DTSBR131
00488  S004-QTR.                                                        DTSBR131
00489      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR131
00490  S004-EXIT.                                                       DTSBR131
00491      EXIT.                                                        DTSBR131
00492  S071-DESLASH-NAME.                                               DTSBR131
00493      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR131
00494  S071-EXIT.                                                       DTSBR131
00495      EXIT.                                                        DTSBR131
00496      SKIP3                                                        DTSBR131
00497  S082-OP-ID-INFO.                                                 DTSBR131
00498      SKIP1                                                        DTSBR131
00499      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR131
00500      SKIP2                                                        DTSBR131
00501  S082-EXIT.                                                       DTSBR131
00502      EXIT.                                                        DTSBR131
00503      SKIP3                                                        DTSBR131
00504  S090-PARAGRAPH-FORMAT.                                           DTSBR131
00505      SKIP1                                                        DTSBR131
00506      MOVE +0 TO L090-INDENT.                                      DTSBR131
00507      SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                        DTSBR131
00508                                                                   DTSBR131
00509      CALL 'DTSBU090' USING L090-LINK-AREA.                        DTSBR131
00510      SKIP2                                                        DTSBR131
00511  S090-EXIT.                                                       DTSBR131
00512      EXIT.                                                        DTSBR131
00513      SKIP3                                                        DTSBR131
00514  S119-AGENCY-FACTS.                                               DTSBR131
00515      SKIP1                                                        DTSBR131
00516      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR131
00517      SKIP2                                                        DTSBR131
00518  S119-EXIT.                                                       DTSBR131
00519      EXIT.                                                        DTSBR131
00520      SKIP3                                                        DTSBR131
00521  S999-ABEND.                                                      DTSBR131
00522      SKIP1                                                        DTSBR131
00523      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR131
00524      SKIP2                                                        DTSBR131
00525  S999-EXIT.                                                       DTSBR131
00526      EXIT.                                                        DTSBR131
