00001  IDENTIFICATION DIVISION.                                         04/05/04
00002  PROGRAM-ID.             DTSBD311.                                DTSBD311
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV016
00004  DATE-WRITTEN.           JULY 1994.                               DTSBD311
00005  DATE-COMPILED.                                                   DTSBD311
00006      SKIP3                                                        DTSBD311
00007 *****                                                             DTSBD311
00008 *                                                                 DTSBD311
00009 *    FUNCTION:  LIABLE PACKAGE.                                   DTSBD311
00010 *                                                                 DTSBD311
00011 *                                                                 DTSBD311
00012 *    MODIFICATION LOG:                                            DTSBD311
00013 *                                                                 DTSBD311
00014 *    08/09/94  FROM VERMONT TXBD312.                              DTSBD311
00015 *              WORK ORDER:                      PROGRAMMER: RHC   DTSBD311
00016 *                                                                 DTSBD311
00017 *    03/13/95  DON'T PRINT R115 WHEN NO IN-STATE FIELD REP.       DTSBD311
00018 *              WORK ORDER: CR049                PROGRAMMER: RHC   DTSBD311
00019 *                                                                 DTSBD311
00020 *    06/13/96  RE-COMPILED TO INCORPORATE CHANGES TO DTSIR901.    DTSBD311
00021 *              REFERENCE RFP: #WARP II          PROGRAMMER: MJA   DTSBD311
00022 *                                                                 DTSBD311
00023 *    10/28/1998  REVIEWED AND MODIFIED FOR DC.                    DTSBD311
00024 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD311
00025 *                                                                 DTSBD311
00026 *    11/02/2001  MODIFIED FOR HOUSEHOLD VERSION OF R112.          DTSBD311
00027 *                REFERENCE: HOUSEHOLD           PROGRAMMER: GD    DTSBD311
00028 *                                                                 DTSBD311
00029 *    06/30/2003  MODIFIED FOR EFT ENROLLMENT. (P1170)             DTSBD311
00030 *                REFERENCE: EFT                 PROGRAMMER: ZL1   DTSBD311
00031 *                                                                 DTSBD311
00032 *    03/25/2004  CALL TO P1170 COMMENTED OUT UNTIL INITIAL        DTSBD311
00033 *                SOLICITATION RUNS                                DTSBD311
00034 *                REFERENCE: EFT                 PROGRAMMER: GD    DTSBD311
00035 *                                                                 DTSBD311
00036 *                                                                 DTSBD311
00037 *  DESCRIPTION:                                                   DTSBD311
00038 *                                                                 DTSBD311
00039 *      IF, FOR A GIVEN EMP-NO, DTSBD311 IS CALLED MORE THAN ONCE, DTSBD311
00040 *      THEN BYPASS PROCESSING ON ALL CALLS OTHER THAN THE FIRST.  DTSBD311
00041 *                                                                 DTSBD311
00042 *      SCAN THE MSOL RECORDS.  FOR EACH MSOL RECORD ENCOUNTERED   DTSBD311
00043 *      WITH MSOL-LIAB-MAIL-DATE = 0, THEN WRITE R112 REPORT       DTSBD311
00044 *      AND A R901 REPORT RECORD.  IF CIRCUSTANCES WARRANT,        DTSBD311
00045 *      WRITE A R115 REPORT RECORD.  IF CIRCUMSTANCES WARRANT,     DTSBD311
00046 *      WRITE A R903 REPORT RECORD.  MOVE LBCM-CURR-RUN-DATE TO    DTSBD311
00047 *      MSOL-LIAB-MAIL-DATE; AND REWRITE THE MSOL-RECORD.          DTSBD311
00048 *                                                                 DTSBD311
00049 *      IF NO MSOL RECORD WITH MSOL-LIAB-MAIL-DATE = 0 IS          DTSBD311
00050 *      ENCOUNTERED, THEN INDICATE THE TRANSACTION HAS FAILED      DTSBD311
00051 *      BY SETTING LBCM-TRN-RESULT-IND TO '1' AND PLACING A MESSAGEDTSBD311
00052 *      IN LBCM-TRN-MSG-AREA.                                      DTSBD311
00053 *                                                                 DTSBD311
00054 *      FOR HOUSEHOLD EMPLOYERS, DO NOT GENERATE A WELCOME LETTER  DTSBD311
00055 *      (R115).  GENERATE THE HOUSEHOLD VERSION OF THE NOTICE      DTSBD311
00056 *      OF SUBJECTIVITY (R112).  CALL DTSBU410 TO FIND THE EMPLOYERDTSBD311
00057 *      FILING SCHEDULE, BASED ON THE FIRST LIABLE YRQ.            DTSBD311
00058 *                                                                 DTSBD311
00059 *      PLEASE SEE PRINTED OUTPUTS DESCRIPTIONS AND LAYOUTS        DTSBD311
00060 *      FOR FURTHER INFORMATION.                                   DTSBD311
00061 *                                                                 DTSBD311
00062 *                                                                 DTSBD311
00063 *      MASTER FILE RECORDS READ:                                  DTSBD311
00064 *                                                                 DTSBD311
00065 *        MRTE                                                     DTSBD311
00066 *        MSOL                                                     DTSBD311
00067 *                                                                 DTSBD311
00068 *                                                                 DTSBD311
00069 *      MASTER FILE RECORDS UPDATED:                               DTSBD311
00070 *                                                                 DTSBD311
00071 *        MSOL (REWRITE)                                           DTSBD311
00072 *                                                                 DTSBD311
00073 *                                                                 DTSBD311
00074 *      REPORT RECORDS WRITTEN:                                    DTSBD311
00075 *                                                                 DTSBD311
00076 *        R112  NOTICE OF SUBJECTIVITY.                            DTSBD311
00077 *        R115  WELCOME LETTER.                                    DTSBD311
00078 *        R901  LABEL.                                             DTSBD311
00079 *        R903  REQUEST FOR FEDERAL ID.                            DTSBD311
00080 *                                                                 DTSBD311
00081 *                                                                 DTSBD311
00082 *      MODULES CALLED:                                            DTSBD311
00083 *                                                                 DTSBD311
00084 *        DTSBU061 FIELD ZIP / FIELD REP ID.                       DTSBD311
00085 *        DTSBU111 ADDRESS LOOKUP.                                 DTSBD311
00086 *        DTSBU112 FORMAT ADDRESS FOR MAILING.                     DTSBD311
00087 *        DTSBU910 MASTER FILE I/O.                                DTSBD311
00088 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1.     DTSBD311
00089 *                                                                 DTSBD311
00090 *****                                                             DTSBD311
00091      SKIP3                                                        DTSBD311
00092  ENVIRONMENT DIVISION.                                            DTSBD311
00093      EJECT                                                        DTSBD311
00094  DATA DIVISION.                                                   DTSBD311
00095      SKIP3                                                        DTSBD311
00096  WORKING-STORAGE SECTION.                                         DTSBD311
000965 77  PAN-VALET PICTURE X(24) VALUE '016DTSBD311  04/05/04'.       DTSBD311
00097      SKIP3                                                        DTSBD311
00098  01  WRK-AREA.                                                    DTSBD311
00099      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +311.DTSBD311
00100                                                                   DTSBD311
00101      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD311'.DTSBD311
00102                                                                   DTSBD311
00103                                                                   DTSBD311
00104      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBD311
00105                                                                   DTSBD311
00106                                                                   DTSBD311
00107      05  WRK-EMP-NO                  PIC S9(07)  COMP-3.          DTSBD311
00108                                                                   DTSBD311
00109      05  WRK-RATE-CTR                PIC S9(04)  COMP.            DTSBD311
00110                                                                   DTSBD311
00111      05  WRK-INIT-DETER-IND          PIC  X(01).                  DTSBD311
00112          88  WRK-INIT-DETER-YES                  VALUE 'Y'.       DTSBD311
00113          88  WRK-INIT-DETER-NO                   VALUE 'N'.       DTSBD311
00114                                                                   DTSBD311
00115      05  WRK-MAIL-IND                PIC  X(01).                  DTSBD311
00116          88  WRK-MAIL-YES                        VALUE 'Y'.       DTSBD311
00117          88  WRK-MAIL-NO                         VALUE 'N'.       DTSBD311
00118                                                                   DTSBD311
00119      05  WRK-FILING-SCHEDULE         PIC  X(01).                  DTSBD311
00120          88  WRK-FILE-SCHED-ANN-88               VALUE 'Y'.       DTSBD311
00121                                                                   DTSBD311
00122      05  WRK-MAILING-ADDRESS.                                     DTSBD311
00123          10  FILLER   OCCURS 5       PIC  X(40).                  DTSBD311
00124                                                                   DTSBD311
00125      05  WRK-ZIP                     PIC  X(10).                  DTSBD311
00126                                                                   DTSBD311
00127      05  WRK-ADVANCED-BARCODE        PIC  X(14).                  DTSBD311
00128                                                                   DTSBD311
00129      05  WRK-LINE.                                                DTSBD311
00130          10  WRK-CITY                PIC  X(35).                  DTSBD311
00131          10  WRK-ST                  PIC  X(02).                  DTSBD311
00132                                                                   DTSBD311
00133                                                                   DTSBD311
00134                                                                   DTSBD311
00135  01  MSG-TABLE.                                                   DTSBD311
00136      05  MSG1-INVALID-TRN-CD.                                     DTSBD311
00137          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD311101'.     DTSBD311
00138          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'MAIL DATE ERROR'. DTSBD311
00139          10  MSG1-LONG-TEXT.                                      DTSBD311
00140              15  FILLER      PIC  X(30)                           DTSBD311
00141                    VALUE 'TRANSACTION FAILED - NO MSOL M'.        DTSBD311
00142              15  FILLER      PIC  X(30)                           DTSBD311
00143                    VALUE 'AIL DATE WAS EQUAL TO ZERO    '.        DTSBD311
00144                                                                   DTSBD311
00145      05  MSG2-NO-IN-STATE-FLD-REP.                                DTSBD311
00146          10  MSG2-ID             PIC  X(11) VALUE 'DTSBD311693'.  DTSBD311
00147          10  MSG2-SHORT-TEXT PIC  X(20)                           DTSBD311
00148                          VALUE 'NO IN-STATE FLD REP'.             DTSBD311
00149          10  MSG2-LONG-TEXT.                                      DTSBD311
00150              15 FILLER           PIC  X(30)                       DTSBD311
00151                          VALUE 'WELCOME LETTER NOT PRINTED - N'.  DTSBD311
00152              15 FILLER           PIC  X(30)                       DTSBD311
00153                          VALUE 'O IN-STATE FIELD REP ASSIGNED '.  DTSBD311
00154      EJECT                                                        DTSBD311
00155  01  L061-LINK-AREA.                                              DTSBD311
00156  ++INCLUDE DTSIL061                                               DTSBD311
00157      EJECT                                                        DTSBD311
00158  01  L111-LINK-AREA.                                              DTSBD311
00159  ++INCLUDE DTSIL111                                               DTSBD311
00160      EJECT                                                        DTSBD311
00161  01  L112-LINK-AREA.                                              DTSBD311
00162  ++INCLUDE DTSIL112                                               DTSBD311
00163      EJECT                                                        DTSBD311
00164  01  L410-LINK-AREA.                                              DTSBD311
00165  ++INCLUDE DTSIL410                                               DTSBD311
00166      EJECT                                                        DTSBD311
00167  01  L910-LINK-AREA.                                              DTSBD311
00168  ++INCLUDE DTSIL910                                               DTSBD311
00169      EJECT                                                        DTSBD311
00170  01  MSKL-REC.                                                    DTSBD311
00171  ++INCLUDE DTSIMSKL                                               DTSBD311
00172      EJECT                                                        DTSBD311
00173  01  MRTE-REC.                                                    DTSBD311
00174  ++INCLUDE DTSIMRTE                                               DTSBD311
00175      EJECT                                                        DTSBD311
00176  01  MSOL-REC.                                                    DTSBD311
00177  ++INCLUDE DTSIMSOL                                               DTSBD311
00178      EJECT                                                        DTSBD311
00179  01  RSKL-REC.                                                    DTSBD311
00180  ++INCLUDE DTSIRSK1                                               DTSBD311
00181      EJECT                                                        DTSBD311
00182  01  R112-REC.                                                    DTSBD311
00183  ++INCLUDE DTSIR112                                               DTSBD311
00184      EJECT                                                        DTSBD311
00185  01  R115-REC.                                                    DTSBD311
00186  ++INCLUDE DTSIR115                                               DTSBD311
00187      EJECT                                                        DTSBD311
00188  01  R135-REC.                                                    DTSBD311
00189  ++INCLUDE DTSIR135                                               DTSBD311
00190      EJECT                                                        DTSBD311
00191  01  R901-REC.                                                    DTSBD311
00192  ++INCLUDE DTSIR901                                               DTSBD311
00193      EJECT                                                        DTSBD311
00194  01  R903-REC.                                                    DTSBD311
00195  ++INCLUDE DTSIR903                                               DTSBD311
00196      EJECT                                                        DTSBD311
00197  01  R907-REC.                                                    DTSBD311
00198  ++INCLUDE DTSIR907                                               DTSBD311
00199      EJECT                                                        DTSBD311
00200  LINKAGE SECTION.                                                 DTSBD311
00201      SKIP3                                                        DTSBD311
00202  01  LBCM-LINK-AREA.                                              DTSBD311
00203  ++INCLUDE DTSILBCM                                               DTSBD311
00204      EJECT                                                        DTSBD311
00205  01  MPRF-REC.                                                    DTSBD311
00206  ++INCLUDE DTSIMPRF                                               DTSBD311
00207      EJECT                                                        DTSBD311
00208  01  T001-REC.                                                    DTSBD311
00209  ++INCLUDE DTSIT001                                               DTSBD311
00210      EJECT                                                        DTSBD311
00211  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD311
00212                           MPRF-REC                                DTSBD311
00213                           T001-REC.                               DTSBD311
00214                                                                   DTSBD311
00215      IF FIRST-TIME-IND = 'Y'                                      DTSBD311
00216          PERFORM I0000-INITIATE THRU I0000-EXIT                   DTSBD311
00217          MOVE 'N' TO FIRST-TIME-IND.                              DTSBD311
00218                                                                   DTSBD311
00219                                                                   DTSBD311
00220      IF MPRF-EMP-NO  NOT =  WRK-EMP-NO                            DTSBD311
00221          MOVE MPRF-EMP-NO TO WRK-EMP-NO                           DTSBD311
00222          PERFORM P0000-PROCESS THRU P0000-EXIT.                   DTSBD311
00223                                                                   DTSBD311
00224                                                                   DTSBD311
00225      GOBACK.                                                      DTSBD311
00226      EJECT                                                        DTSBD311
00227  I0000-INITIATE.                                                  DTSBD311
00228      MOVE +0 TO WRK-EMP-NO.                                       DTSBD311
00229                                                                   DTSBD311
00230      MOVE WRK-MOD-NAME   TO L910-MOD-NAME                         DTSBD311
00231                             R907-MODULE-NAME.                     DTSBD311
00232                                                                   DTSBD311
00233      MOVE LBCM-TRACE-IND TO L910-TRACE-IND.                       DTSBD311
00234                                                                   DTSBD311
00235                                                                   DTSBD311
00236      MOVE LENGTH OF R112-REC TO R112-LENGTH.                      DTSBD311
00237                                                                   DTSBD311
00238      MOVE LENGTH OF R115-REC TO R115-LENGTH.                      DTSBD311
00239                                                                   DTSBD311
00240      MOVE LENGTH OF R135-REC TO R135-LENGTH.                      DTSBD311
00241                                                                   DTSBD311
00242      MOVE LENGTH OF R901-REC TO R901-LENGTH.                      DTSBD311
00243                                                                   DTSBD311
00244      MOVE LENGTH OF R903-REC TO R903-LENGTH.                      DTSBD311
00245                                                                   DTSBD311
00246      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBD311
00247  I0000-EXIT. EXIT.                                                DTSBD311
00248      EJECT                                                        DTSBD311
00249  P0000-PROCESS.                                                   DTSBD311
00250      MOVE WRK-EMP-NO TO L111-EMP-NO.                              DTSBD311
00251                                                                   DTSBD311
00252      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBD311
00253                                                                   DTSBD311
00254      SET L111-ID-NO-TAD-MAIL-88 TO TRUE.                          DTSBD311
00255                                                                   DTSBD311
00256      PERFORM S111-LOOKUP-ADDRESS THRU S111-EXIT.                  DTSBD311
00257                                                                   DTSBD311
00258      IF L111-ADDR-FOUND-88                                        DTSBD311
00259          SET L112-TAD-ADDR-88 TO TRUE                             DTSBD311
00260          SET L112-ANCHOR-LAST-88 TO TRUE                          DTSBD311
00261          MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME              DTSBD311
00262          MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA          DTSBD311
00263          PERFORM S112-FORMAT-ADDRESS THRU S112-EXIT               DTSBD311
00264      ELSE                                                         DTSBD311
00265          MOVE ALL '?' TO L112-NAME-ADDRESS-AREA.                  DTSBD311
00266                                                                   DTSBD311
00267      MOVE L112-MAILING-ADDRESS TO WRK-MAILING-ADDRESS.            DTSBD311
00268                                                                   DTSBD311
00269      MOVE L112-ZIP TO WRK-ZIP.                                    DTSBD311
00270                                                                   DTSBD311
00271      MOVE L112-ADVANCED-BARCODE TO WRK-ADVANCED-BARCODE.          DTSBD311
00272                                                                   DTSBD311
00273                                                                   DTSBD311
00274      MOVE LOW-VALUE TO MSKL-KEY-AREA.                             DTSBD311
00275                                                                   DTSBD311
00276      MOVE WRK-EMP-NO TO MSKL-EMP-NO.                              DTSBD311
00277                                                                   DTSBD311
00278      SET MSKL-SOL-88 TO TRUE.                                     DTSBD311
00279                                                                   DTSBD311
00280      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD311
00281                                                                   DTSBD311
00282                                                                   DTSBD311
00283      SET WRK-MAIL-NO TO TRUE.                                     DTSBD311
00284                                                                   DTSBD311
00285      SET WRK-INIT-DETER-YES TO TRUE.                              DTSBD311
00286                                                                   DTSBD311
00287      PERFORM P1000-MSOL-SCAN THRU P1000-EXIT                      DTSBD311
00288              UNTIL L910-NO-REC-88.                                DTSBD311
00289                                                                   DTSBD311
00290                                                                   DTSBD311
00291      IF WRK-MAIL-NO                                               DTSBD311
00292          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD311
00293          MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA            DTSBD311
00294      ELSE                                                         DTSBD311
00295          IF MPRF-FEIN = +0                                        DTSBD311
00296              PERFORM P2000-R903-REC THRU P2000-EXIT.              DTSBD311
00297  P0000-EXIT. EXIT.                                                DTSBD311
00298      EJECT                                                        DTSBD311
00299  P1000-MSOL-SCAN.                                                 DTSBD311
00300      MOVE MSKL-REC TO MSOL-REC.                                   DTSBD311
00301                                                                   DTSBD311
00302      IF (MSOL-LIAB-MAIL-DATE = +0)                                DTSBD311
00303              AND                                                  DTSBD311
00304         (MSOL-FIRST-LIAB-YRQ  NOT =  +0)                          DTSBD311
00305          PERFORM P1100-GENERATE-PACKAGE THRU P1100-EXIT           DTSBD311
00306          SET WRK-MAIL-YES TO TRUE                                 DTSBD311
00307          MOVE MSOL-KEY-AREA TO MSKL-KEY-AREA                      DTSBD311
00308          PERFORM S910-READ THRU S910-EXIT                         DTSBD311
00309          MOVE MSKL-REC TO MSOL-REC                                DTSBD311
00310          MOVE LBCM-CURR-MAIL-DATE TO MSOL-LIAB-MAIL-DATE          DTSBD311
00311          MOVE MSOL-REC TO MSKL-REC                                DTSBD311
00312          PERFORM S910-REWRITE THRU S910-EXIT.                     DTSBD311
00313                                                                   DTSBD311
00314                                                                   DTSBD311
00315      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBD311
00316                                                                   DTSBD311
00317      SET WRK-INIT-DETER-NO TO TRUE.                               DTSBD311
00318  P1000-EXIT. EXIT.                                                DTSBD311
00319      SKIP3                                                        DTSBD311
00320  P1100-GENERATE-PACKAGE.                                          DTSBD311
00321      PERFORM P1120-R112-REC THRU P1120-EXIT.                      DTSBD311
00322                                                                   DTSBD311
00323      IF (WRK-INIT-DETER-YES)                                      DTSBD311
00324              AND                                                  DTSBD311
00325         (T001-WELCOME-LTR-IND = 'Y')                              DTSBD311
00326              AND                                                  DTSBD311
00327         (NOT MPRF-ORG-HSEHLD-DMSTIC-88)                           DTSBD311
00328          IF (L111-ADDR-FOUND-88)                                  DTSBD311
00329                  AND                                              DTSBD311
00330             (L111-ST = 'DC')                                      DTSBD311
00331              PERFORM P1150-R115-REC THRU P1150-EXIT.              DTSBD311
00332                                                                   DTSBD311
00333      PERFORM P1160-R901-REC THRU P1160-EXIT.                      DTSBD311
00334 *    DISPLAY ' NO ' WRK-EMP-NO.                                   DTSBD311
00335 *    DISPLAY 'ENR ' MPRF-EFT-ENROLLED-IND.                        DTSBD311
00336 *    DISPLAY 'SOL ' MPRF-EFT-SOLICITED-IND.                       DTSBD311
00337 *&   COMMENTED OUT UNTIL INITIAL SOLICITATION RUNS                DTSBD311
00338 *&   IF MPRF-EFT-ENROLLED-YES-88                                  DTSBD311
00339 *       NEXT SENTENCE                                             DTSBD311
00340 *    ELSE                                                         DTSBD311
00341 *       IF MPRF-EFT-SOLICITED-YES-88                              DTSBD311
00342 *          NEXT SENTENCE                                          DTSBD311
00343 *       ELSE                                                      DTSBD311
00344 *&         PERFORM P1170-R135-REC  THRU P1170-EXIT.               DTSBD311
00345                                                                   DTSBD311
00346  P1100-EXIT. EXIT.                                                DTSBD311
00347      EJECT                                                        DTSBD311
00348  P1120-R112-REC.                                                  DTSBD311
00349      MOVE T001-RESP-OP-ID TO R112-OP-ID.                          DTSBD311
00350                                                                   DTSBD311
00351      MOVE WRK-EMP-NO TO R112-EMP-NO.                              DTSBD311
00352                                                                   DTSBD311
00353                                                                   DTSBD311
00354      INITIALIZE R112-DATA-AREA.                                   DTSBD311
00355                                                                   DTSBD311
00356                                                                   DTSBD311
00357      MOVE LBCM-CURR-RUN-DATE TO R112-RUN-DATE.                    DTSBD311
00358                                                                   DTSBD311
00359      MOVE WRK-MAILING-ADDRESS TO R112-FMT-ADDR.                   DTSBD311
00360                                                                   DTSBD311
00361      MOVE WRK-ZIP TO R112-ZIP.                                    DTSBD311
00362                                                                   DTSBD311
00363      MOVE WRK-ADVANCED-BARCODE TO R112-ADVANCED-BARCODE.          DTSBD311
00364                                                                   DTSBD311
00365                                                                   DTSBD311
00366      MOVE MSOL-FIRST-LIAB-YRQ TO R112-FIRST-LIAB-YRQ.             DTSBD311
00367                                                                   DTSBD311
00368      MOVE MSOL-LAST-LIAB-YRQ  TO R112-LAST-LIAB-YRQ.              DTSBD311
00369                                                                   DTSBD311
00370      MOVE MPRF-EMP-CLASS      TO R112-EMP-CLASS.                  DTSBD311
00371                                                                   DTSBD311
00372      IF MPRF-ORG-HSEHLD-DMSTIC-88                                 DTSBD311
00373         PERFORM S410-HOUSEHOLD   THRU S410-EXIT                   DTSBD311
00374         IF L410-PENDING-SCHED-88                                  DTSBD311
00375         OR L410-NULL-SCHED-88                                     DTSBD311
00376            MOVE 'Q'                  TO R112-RPT-TYPE             DTSBD311
00377            MOVE ZEROS                TO R112-SCHED-START-YRQ      DTSBD311
00378         ELSE                                                      DTSBD311
00379            MOVE L410-FILING-SCHED    TO R112-RPT-TYPE             DTSBD311
00380            MOVE L410-SCHED-START-YRQ TO R112-SCHED-START-YRQ      DTSBD311
00381         END-IF                                                    DTSBD311
00382      ELSE                                                         DTSBD311
00383         MOVE 'Q'                     TO R112-RPT-TYPE             DTSBD311
00384         MOVE ZEROS                   TO R112-SCHED-START-YRQ      DTSBD311
00385      END-IF.                                                      DTSBD311
00386                                                                   DTSBD311
00387      IF MPRF-CLASS-RATED-88                                       DTSBD311
00388         MOVE LBCM-LAST-RATE-END-YRQ TO R112-LAST-RATE-END-YRQ.    DTSBD311
00389                                                                   DTSBD311
00390      MOVE LOW-VALUE TO MSKL-KEY-AREA.                             DTSBD311
00391                                                                   DTSBD311
00392      MOVE WRK-EMP-NO TO MSKL-EMP-NO.                              DTSBD311
00393                                                                   DTSBD311
00394      SET MSKL-RTE-88 TO TRUE.                                     DTSBD311
00395                                                                   DTSBD311
00396      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD311
00397                                                                   DTSBD311
00398      MOVE +0 TO WRK-RATE-CTR.                                     DTSBD311
00399                                                                   DTSBD311
00400      PERFORM P1121-RATE-AREA THRU P1121-EXIT                      DTSBD311
00401              UNTIL L910-NO-REC-88.                                DTSBD311
00402                                                                   DTSBD311
00403      MOVE WRK-RATE-CTR TO R112-RATE-CNT.                          DTSBD311
00404                                                                   DTSBD311
00405      MOVE R112-REC TO RSKL-REC.                                   DTSBD311
00406                                                                   DTSBD311
00407      PERFORM S946-RPT-O THRU S946-EXIT.                           DTSBD311
00408  P1120-EXIT. EXIT.                                                DTSBD311
00409      SKIP3                                                        DTSBD311
00410  P1121-RATE-AREA.                                                 DTSBD311
00411      ADD +1 TO WRK-RATE-CTR.                                      DTSBD311
00412                                                                   DTSBD311
00413                                                                   DTSBD311
00414      IF WRK-RATE-CTR > +6                                         DTSBD311
00415          MOVE R112-RATE-AREA (2) TO R112-RATE-AREA (1)            DTSBD311
00416          MOVE R112-RATE-AREA (3) TO R112-RATE-AREA (2)            DTSBD311
00417          MOVE R112-RATE-AREA (4) TO R112-RATE-AREA (3)            DTSBD311
00418          MOVE R112-RATE-AREA (5) TO R112-RATE-AREA (4)            DTSBD311
00419          MOVE R112-RATE-AREA (6) TO R112-RATE-AREA (5)            DTSBD311
00420          MOVE +6 TO WRK-RATE-CTR.                                 DTSBD311
00421                                                                   DTSBD311
00422                                                                   DTSBD311
00423      MOVE MSKL-REC TO MRTE-REC.                                   DTSBD311
00424                                                                   DTSBD311
00425                                                                   DTSBD311
00426      MOVE MRTE-EFF-YRQ TO R112-RATE-EFF-YRQ (WRK-RATE-CTR).       DTSBD311
00427                                                                   DTSBD311
00428      MOVE MRTE-END-YRQ TO R112-RATE-END-YRQ (WRK-RATE-CTR).       DTSBD311
00429                                                                   DTSBD311
00430      MOVE MRTE-UI-RATE TO R112-UI-RATE (WRK-RATE-CTR).            DTSBD311
00431                                                                   DTSBD311
00432                                                                   DTSBD311
00433      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBD311
00434  P1121-EXIT. EXIT.                                                DTSBD311
00435      EJECT                                                        DTSBD311
00436  P1150-R115-REC.                                                  DTSBD311
00437      MOVE T001-RESP-OP-ID TO R115-OP-ID.                          DTSBD311
00438                                                                   DTSBD311
00439      MOVE WRK-EMP-NO TO R115-EMP-NO.                              DTSBD311
00440                                                                   DTSBD311
00441      MOVE LBCM-CURR-MAIL-DATE TO R115-MAIL-DATE.                  DTSBD311
00442                                                                   DTSBD311
00443      MOVE WRK-MAILING-ADDRESS TO R115-FMT-ADDR.                   DTSBD311
00444                                                                   DTSBD311
00445      MOVE WRK-ZIP TO R115-ZIP.                                    DTSBD311
00446                                                                   DTSBD311
00447      MOVE WRK-ADVANCED-BARCODE TO R115-ADVANCED-BARCODE.          DTSBD311
00448                                                                   DTSBD311
00449      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBD311
00450                                                                   DTSBD311
00451      MOVE WRK-EMP-NO TO L061-EMP-NO.                              DTSBD311
00452                                                                   DTSBD311
00453      PERFORM S061-LOOKUP-FLD-REP-ID THRU S061-EXIT.               DTSBD311
00454                                                                   DTSBD311
00455      IF L061-FLD-DESK-88                                          DTSBD311
00456          MOVE '693' TO R907-MSG-ID                                DTSBD311
00457          MOVE WRK-EMP-NO TO R907-EMP-NO                           DTSBD311
00458          MOVE MSG2-LONG-TEXT TO R907-MSG-TEXT                     DTSBD311
00459          MOVE R907-REC TO RSKL-REC                                DTSBD311
00460          PERFORM S946-RPT-O THRU S946-EXIT                        DTSBD311
00461      ELSE                                                         DTSBD311
00462          MOVE L061-FLD-REP-ID TO R115-FLD-REP-ID                  DTSBD311
00463          MOVE R115-REC TO RSKL-REC                                DTSBD311
00464          PERFORM S946-RPT-O THRU S946-EXIT.                       DTSBD311
00465  P1150-EXIT. EXIT.                                                DTSBD311
00466      EJECT                                                        DTSBD311
00467  P1170-R135-REC.                                                  DTSBD311
00468      MOVE T001-RESP-OP-ID TO R135-OP-ID.                          DTSBD311
00469                                                                   DTSBD311
00470      MOVE WRK-EMP-NO TO R135-EMP-NO.                              DTSBD311
00471                                                                   DTSBD311
00472      IF MPRF-FEIN  > 0                                            DTSBD311
00473         MOVE MPRF-FEIN  TO R135-EMP-FEIN                          DTSBD311
00474      ELSE                                                         DTSBD311
00475         MOVE SPACES     TO R135-EMP-FEIN.                         DTSBD311
00476                                                                   DTSBD311
00477      MOVE LBCM-CURR-MAIL-DATE TO R135-RUN-DATE.                   DTSBD311
00478                                                                   DTSBD311
00479      MOVE WRK-MAILING-ADDRESS TO R135-FMT-ADDR.                   DTSBD311
00480                                                                   DTSBD311
00481      MOVE WRK-ZIP TO R135-ZIP.                                    DTSBD311
00482                                                                   DTSBD311
00483      MOVE WRK-ADVANCED-BARCODE TO R135-ADVANCED-BARCODE.          DTSBD311
00484                                                                   DTSBD311
00485      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBD311
00486                                                                   DTSBD311
00487      MOVE WRK-EMP-NO TO L061-EMP-NO.                              DTSBD311
00488                                                                   DTSBD311
00489      PERFORM S061-LOOKUP-FLD-REP-ID THRU S061-EXIT.               DTSBD311
00490                                                                   DTSBD311
00491      IF L061-FLD-DESK-88                                          DTSBD311
00492          MOVE '693' TO R907-MSG-ID                                DTSBD311
00493          MOVE WRK-EMP-NO TO R907-EMP-NO                           DTSBD311
00494          MOVE MSG2-LONG-TEXT TO R907-MSG-TEXT                     DTSBD311
00495          MOVE R907-REC TO RSKL-REC                                DTSBD311
00496          PERFORM S946-RPT-O THRU S946-EXIT                        DTSBD311
00497          GO TO P1170-EXIT.                                        DTSBD311
00498                                                                   DTSBD311
00499                                                                   DTSBD311
00500      MOVE L061-FLD-REP-ID        TO R135-FLD-REP-ID.              DTSBD311
00501      SET  R135-RPT-EFT-LETT-88   TO TRUE.                         DTSBD311
00502      MOVE R135-REC               TO RSKL-REC                      DTSBD311
00503      PERFORM S946-RPT-O          THRU S946-EXIT.                  DTSBD311
00504                                                                   DTSBD311
00505      SET  R135-RPT-EFT-APPL-88   TO TRUE.                         DTSBD311
00506      MOVE SPACES               TO R135-FMT-ADDR.                  DTSBD311
00507      MOVE MPRF-PRIMARY-NAME    TO R135-FMT-LINE(1).               DTSBD311
00508                                                                   DTSBD311
00509      IF L112-ATTN-LINE = SPACES AND L112-DELIV-LINE-1 = SPACES    DTSBD311
00510         MOVE L112-DELIV-LINE-2    TO R135-FMT-LINE(2)             DTSBD311
00511      ELSE                                                         DTSBD311
00512      IF L112-DELIV-LINE-1 = SPACES                                DTSBD311
00513         MOVE L112-ATTN-LINE       TO R135-FMT-LINE(2)             DTSBD311
00514         MOVE L112-DELIV-LINE-2    TO R135-FMT-LINE(3)             DTSBD311
00515      ELSE                                                         DTSBD311
00516         MOVE L112-DELIV-LINE-1    TO R135-FMT-LINE(2)             DTSBD311
00517         MOVE L112-DELIV-LINE-2    TO R135-FMT-LINE(3).            DTSBD311
00518      MOVE L112-CITY            TO WRK-CITY                        DTSBD311
00519      MOVE L112-ST              TO WRK-ST                          DTSBD311
00520      MOVE WRK-LINE             TO R135-FMT-LINE(4)                DTSBD311
00521      MOVE L112-ZIP             TO R135-FMT-LINE(5).               DTSBD311
00522                                                                   DTSBD311
00523      MOVE L112-ZIP               TO  R135-ZIP.                    DTSBD311
00524      MOVE SPACES                 TO  R135-ADVANCED-BARCODE.       DTSBD311
00525                                                                   DTSBD311
00526      MOVE R135-REC               TO RSKL-REC.                     DTSBD311
00527      PERFORM S946-RPT-O          THRU S946-EXIT.                  DTSBD311
00528                                                                   DTSBD311
00529  P1170-EXIT. EXIT.                                                DTSBD311
00530      EJECT                                                        DTSBD311
00531  P1160-R901-REC.                                                  DTSBD311
00532      SET R901-LIAB-DETER-88 TO TRUE.                              DTSBD311
00533                                                                   DTSBD311
00534      MOVE LOW-VALUE TO R901-SORT-VAR-AREA.                        DTSBD311
00535                                                                   DTSBD311
00536      MOVE T001-RESP-OP-ID TO R901-GRP3-OP-ID.                     DTSBD311
00537                                                                   DTSBD311
00538      MOVE WRK-EMP-NO TO R901-GRP3-EMP-NO                          DTSBD311
00539                         R901-EMP-NO.                              DTSBD311
00540                                                                   DTSBD311
00541      MOVE +1 TO R901-LABEL-CNT.                                   DTSBD311
00542                                                                   DTSBD311
00543      MOVE WRK-MAILING-ADDRESS TO R901-FMT-ADDR.                   DTSBD311
00544                                                                   DTSBD311
00545      MOVE WRK-ZIP TO R901-ZIP.                                    DTSBD311
00546                                                                   DTSBD311
00547      MOVE WRK-ADVANCED-BARCODE TO R901-ADVANCED-BARCODE.          DTSBD311
00548                                                                   DTSBD311
00549      MOVE R901-REC TO RSKL-REC.                                   DTSBD311
00550                                                                   DTSBD311
00551      PERFORM S946-RPT-O THRU S946-EXIT.                           DTSBD311
00552  P1160-EXIT. EXIT.                                                DTSBD311
00553      EJECT                                                        DTSBD311
00554  P2000-R903-REC.                                                  DTSBD311
00555      MOVE T001-RESP-OP-ID TO R903-OP-ID.                          DTSBD311
00556                                                                   DTSBD311
00557      MOVE WRK-EMP-NO TO R903-EMP-NO.                              DTSBD311
00558                                                                   DTSBD311
00559      MOVE LBCM-CURR-MAIL-DATE TO R903-MAIL-DATE.                  DTSBD311
00560                                                                   DTSBD311
00561      MOVE WRK-MAILING-ADDRESS TO R903-FMT-ADDR.                   DTSBD311
00562                                                                   DTSBD311
00563      MOVE WRK-ZIP TO R903-ZIP.                                    DTSBD311
00564                                                                   DTSBD311
00565      MOVE WRK-ADVANCED-BARCODE TO R903-ADVANCED-BARCODE.          DTSBD311
00566                                                                   DTSBD311
00567      MOVE R903-REC TO RSKL-REC.                                   DTSBD311
00568                                                                   DTSBD311
00569      PERFORM S946-RPT-O THRU S946-EXIT.                           DTSBD311
00570  P2000-EXIT. EXIT.                                                DTSBD311
00571      EJECT                                                        DTSBD311
00572  S061-LOOKUP-FLD-REP-ID.                                          DTSBD311
00573      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBD311
00574  S061-EXIT. EXIT.                                                 DTSBD311
00575      SKIP3                                                        DTSBD311
00576  S111-LOOKUP-ADDRESS.                                             DTSBD311
00577      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBD311
00578  S111-EXIT. EXIT.                                                 DTSBD311
00579      SKIP3                                                        DTSBD311
00580  S112-FORMAT-ADDRESS.                                             DTSBD311
00581      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBD311
00582  S112-EXIT. EXIT.                                                 DTSBD311
00583      SKIP3                                                        DTSBD311
00584  S410-HOUSEHOLD.                                                  DTSBD311
00585      SET L410-MODE-INPUT-YRQ-88 TO TRUE.                          DTSBD311
00586      MOVE WRK-EMP-NO            TO L410-EMP-NO.                   DTSBD311
00587      MOVE MSOL-FIRST-LIAB-YRQ   TO L410-YRQ.                      DTSBD311
00588                                                                   DTSBD311
00589      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBD311
00590  S410-EXIT. EXIT.                                                 DTSBD311
00591      SKIP3                                                        DTSBD311
00592  S910-READ.                                                       DTSBD311
00593      SET L910-READ-88 TO TRUE.                                    DTSBD311
00594      GO TO S910-MSTR-IO.                                          DTSBD311
00595                                                                   DTSBD311
00596  S910-START-BROWSE.                                               DTSBD311
00597      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD311
00598      GO TO S910-MSTR-IO.                                          DTSBD311
00599                                                                   DTSBD311
00600  S910-READ-NEXT.                                                  DTSBD311
00601      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD311
00602      GO TO S910-MSTR-IO.                                          DTSBD311
00603                                                                   DTSBD311
00604 *S910-COUNT.                                                      DTSBD311
00605 *****SET L910-COUNT-88 TO TRUE.                                   DTSBD311
00606 *****GO TO S910-MSTR-IO.                                          DTSBD311
00607                                                                   DTSBD311
00608 *S910-WRITE.                                                      DTSBD311
00609 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD311
00610 *****SET L910-WRITE-88 TO TRUE.                                   DTSBD311
00611 *****GO TO S910-MSTR-IO.                                          DTSBD311
00612                                                                   DTSBD311
00613  S910-REWRITE.                                                    DTSBD311
00614      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD311
00615      SET L910-REWRITE-88 TO TRUE.                                 DTSBD311
00616      GO TO S910-MSTR-IO.                                          DTSBD311
00617                                                                   DTSBD311
00618 *S910-DELETE.                                                     DTSBD311
00619 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD311
00620 *****SET L910-DELETE-88 TO TRUE.                                  DTSBD311
00621 *****GO TO S910-MSTR-IO.                                          DTSBD311
00622                                                                   DTSBD311
00623  S910-MSTR-IO.                                                    DTSBD311
00624      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD311
00625                            MSKL-REC.                              DTSBD311
00626  S910-EXIT. EXIT.                                                 DTSBD311
00627      SKIP3                                                        DTSBD311
00628  S946-RPT-O.                                                      DTSBD311
00629      CALL 'DTSBU946' USING RSKL-REC.                              DTSBD311
00630  S946-EXIT. EXIT.                                                 DTSBD311
00631      EJECT                                                        DTSBD311
