00001  IDENTIFICATION DIVISION.                                         02/07/12
00002  PROGRAM-ID.             DTSBD314.                                DTSBD314
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV010
00004  DATE-WRITTEN.           JULY 1994.                               DTSBD314
00005  DATE-COMPILED.                                                   DTSBD314
00006      SKIP3                                                        DTSBD314
00007 *****                                                             DTSBD314
00008 *                                                                 DTSBD314
00009 *    FUNCTION:  CYCLE A PROCESSING.                               DTSBD314
00010 *                                                                 DTSBD314
00011 *                                                                 DTSBD314
00012 *    MODIFICATION LOG:                                            DTSBD314
00013 *                                                                 DTSBD314
00014 *    07/28/94  FROM VERMONT TXBD316.                              DTSBD314
00015 *              WORK ORDER:                      PROGRAMMER: RHC   DTSBD314
00016 *                                                                 DTSBD314
00017 *    03/11/95  CHANGE THE NUMBER OF DAYS BETWEEN STEP 3 AND STEP  DTSBD314
00018 *              4 FROM 15 DAYS TO 30 DAYS.  PER DREA.              DTSBD314
00019 *              WORK ORDER:                      PROGRAMMER: EHH   DTSBD314
00020 *                                                                 DTSBD314
00021 *    03/13/95  DON'T PRINT R104 WHEN NO IN-STATE FIELD REP.       DTSBD314
00022 *              WORK ORDER: CR049                PROGRAMMER: RHC   DTSBD314
00023 *                                                                 DTSBD314
00024 *    03/26/95  ADD THE LETTER 3 TICKLER STEP TO CYCLE A.  REPLACE DTSBD314
00025 *              THE FIELD ASSIGNMENT GENERATION WITH A TICKLER.    DTSBD314
00026 *              THE FIELD ASSIGNMENT GENERATION CODE IS COMMENTED  DTSBD314
00027 *              OUT (RATHER THAN BEING DELETED).                   DTSBD314
00028 *              WORK ORDER: CR065                PROGRAMMER: EHH   DTSBD314
00029 *                                                                 DTSBD314
00030 *    06/13/96  RECOMPILED TO INCORPORATE CHANGES TO DTSIR901.     DTSBD314
00031 *              REFERENCE RFP: #WARP II          PROGRAMMER: MJA   DTSBD314
00032 *                                                                 DTSBD314
00033 *    10/15/1998  REVIEWED AND MODIFIED FOR DC.                    DTSBD314
00034 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD314
00035 *                                                                 DTSBD314
00036 *    06/01/2000  MODIFIED TO PRINT LABELS FOR ALL LETTERS         DTSBD314
00037 *                AND THE NEW MERA LABEL INDICATOR.                DTSBD314
00038 *                REFERENCE: SPEC012             PROGRAMMER: ZL1   DTSBD314
00039 *                                                                 DTSBD314
00040 *    06/15/2005  MODIFIED TO PRINT LABELS FOR ALL SECOND LETTERS. DTSBD314
00041 *                REFERENCE:                     PROGRAMMER: GD    DTSBD314
00042 *                                                                 DTSBD314
00043 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD314
00044 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD314
00045 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD314
00046 *                                                                 DTSBD314
00047 *                                                                 DTSBD314
00048 *  DESCRIPTION:                                                   DTSBD314
00049 *                                                                 DTSBD314
00050 *      IF, FOR A GIVEN EMP-NO, DTSBD314 IS CALLED MORE THAN ONCE, DTSBD314
00051 *      THEN BYPASS PROCESSING ON ALL CALLS OTHER THAN THE FIRST.  DTSBD314
00052 *                                                                 DTSBD314
00053 *      IF NO MERA RECORD EXISTS, THEN THE MTCK-TYPE-CYCLE-A-88    DTSBD314
00054 *      MTCK RECORDS ARE DELETED BUT NOTHING ELSE HAPPENS.         DTSBD314
00055 *                                                                 DTSBD314
00056 *      IF A MERA RECORD EXISTS, THEN THE MTCK-TYPE-CYCLE-A-88     DTSBD314
00057 *      MTCK RECORDS ARE DELETED; THE MERA RECORD IS EVALUATED     DTSBD314
00058 *      AND (IF INDICATED BY THE EVALUATION) REPORT RECORDS        DTSBD314
00059 *      REPRESENTING THE NEXT STEP IN THE CYCLE ARE WRITTEN;       DTSBD314
00060 *      THE MERA RECORD IS UPDATED; AN MEVL RECORD IS WRITTEN;     DTSBD314
00061 *      AND A MTCK-TYPE-CYCLE-A-88 RECORD IS WRITTEN (THE          DTSBD314
00062 *      TRIGGER FOR THE NEXT STEP IN THE CYCLE).                   DTSBD314
00063 *                                                                 DTSBD314
00064 *      SET MERA-STATUS-CD AND MERA-MAILING-DATES AS APPROPRIATE.  DTSBD314
00065 *      RESET MERA-LABEL-CNT TO 0.                                 DTSBD314
00066 *                                                                 DTSBD314
00067 *      PLEASE SEE PRINTED OUTPUTS DESCRIPTIONS AND LAYOUTS        DTSBD314
00068 *      FOR FURTHER INFOMATION.                                    DTSBD314
00069 *                                                                 DTSBD314
00070 *                                                                 DTSBD314
00071 *      MASTER FILE RECORDS READ:                                  DTSBD314
00072 *                                                                 DTSBD314
00073 *        MPRF                                                     DTSBD314
00074 *        MERA                                                     DTSBD314
00075 *        MTCK                                                     DTSBD314
00076 *                                                                 DTSBD314
00077 *                                                                 DTSBD314
00078 *      MASTER FILE RECORDS UPDATED:                               DTSBD314
00079 *                                                                 DTSBD314
00080 *        MERA (REWRITE)                                           DTSBD314
00081 *        MTCK (DELETE, WRITE)                                     DTSBD314
00082 *        MEVL (WRITE)                                             DTSBD314
00083 *        MFAS (WRITE)                                             DTSBD314
00084 *                                                                 DTSBD314
00085 *                                                                 DTSBD314
00086 *      REFERENCE FILE RECORD READ:                                DTSBD314
00087 *                                                                 DTSBD314
00088 *        FFAZ                                                     DTSBD314
00089 *        FFAT                                                     DTSBD314
00090 *                                                                 DTSBD314
00091 *                                                                 DTSBD314
00092 *      REPORT RECORDS WRITTEN:                                    DTSBD314
00093 *                                                                 DTSBD314
00094 *        R102  EMPLOYER REGISTRATION CYCLE A (LETTER 1).          DTSBD314
00095 *        R103  EMPLOYER REGISTRATION CYCLE A (LETTER 2).          DTSBD314
00096 *        R104  EMPLOYER REGISTRATION CYCLE A (LETTER 3).          DTSBD314
00097 *        R127  REGISTRATION FORM.                                 DTSBD314
00098 *        R901  LABELS.                                            DTSBD314
00099 *        R907  UNUSUAL CONDITION ENCOUNTERED.                     DTSBD314
00100 *                                                                 DTSBD314
00101 *                                                                 DTSBD314
00102 *      MODULES CALLED:                                            DTSBD314
00103 *                                                                 DTSBD314
00104 *        DTSBU001 DATE CONVERSION/EDIT.                           DTSBD314
00105 *        DTSBU005 TIME CONVERSION.                                DTSBD314
00106 *        DTSBU061 FIELD ZIP / FIELD REP ID.                       DTSBD314
00107 *        DTSBU075 COOPERATING AGENCY ADDRESS LOOKUP.              DTSBD314
00108 *        DTSBU111 ADDRESS LOOKUP.                                 DTSBD314
00109 *        DTSBU112 ADDRESS FORMAT.                                 DTSBD314
00110 *        DTSBU910 MASTER FILE I/O.                                DTSBD314
00111 *        DTSBU931 REFERENCE FILE I/O.                             DTSBD314
00112 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1.     DTSBD314
00113 *                                                                 DTSBD314
00114 *                                                                 DTSBD314
00115 *****                                                             DTSBD314
00116      SKIP3                                                        DTSBD314
00117  ENVIRONMENT DIVISION.                                            DTSBD314
00118      EJECT                                                        DTSBD314
00119  DATA DIVISION.                                                   DTSBD314
00120      SKIP3                                                        DTSBD314
00121  WORKING-STORAGE SECTION.                                         DTSBD314
001215 77  PAN-VALET PICTURE X(24) VALUE '010DTSBD314  02/07/12'.       DTSBD314
00122      SKIP3                                                        DTSBD314
00123  01  WRK-AREA.                                                    DTSBD314
00124      05  WRK-ABEND-CD                PIC S9(04) COMP  VALUE +314. DTSBD314
00125                                                                   DTSBD314
00126      05  WRK-MOD-NAME                PIC  X(08) VALUE 'DTSBD314'. DTSBD314
00127                                                                   DTSBD314
00128      05  FIRST-TIME-IND              PIC  X(01) VALUE 'Y'.        DTSBD314
00129                                                                   DTSBD314
00130      05  WRK-ASSIGN-DUE-DATE         PIC S9(09) COMP-3.           DTSBD314
00131                                                                   DTSBD314
00132      05  WRK-EMP-NO                  PIC S9(07) COMP-3.           DTSBD314
00133                                                                   DTSBD314
00134      05  WRK-LABEL-CNT               PIC S9(07) COMP-3  VALUE +0. DTSBD314
00135                                                                   DTSBD314
00136      05  WRK-OP-ID                   PIC  X(08).                  DTSBD314
00137                                                                   DTSBD314
00138      05  WRK-NN-DAYS                 PIC S9(08) COMP.             DTSBD314
00139          88  ADD-15-DAYS                 VALUE +15.               DTSBD314
00140          88  ADD-30-DAYS                 VALUE +30.               DTSBD314
00141                                                                   DTSBD314
00142      05  WRK-FLD-REP-FOR-ZIP-IND     PIC  X(01).                  DTSBD314
00143          88  WRK-FLD-REP-FOR-ZIP-NO-88       VALUE 'N'.           DTSBD314
00144          88  WRK-FLD-REP-FOR-ZIP-YES-88      VALUE 'Y'.           DTSBD314
00145                                                                   DTSBD314
00146      05  WRK-EVENT-TXT.                                           DTSBD314
00147          10  FILLER                  PIC  X(10)                   DTSBD314
00148                              VALUE 'CYCLE A - '.                  DTSBD314
00149          10  FILLER                  PIC  X(40).                  DTSBD314
00150              88  DOC-NONE-88     VALUE LOW-VALUE.                 DTSBD314
00151              88  DOC-LTR1-R102   VALUE 'FIRST LETTER GENERATED'.  DTSBD314
00152              88  DOC-LTR2-R103   VALUE 'SECOND LETTER GENERATED'. DTSBD314
00153              88  DOC-COOP-R105   VALUE                            DTSBD314
00154                          'COOPERATING AGENCY LETTER GENERATED'.   DTSBD314
00155              88  DOC-FLD-ASSIGN  VALUE                            DTSBD314
00156                          'FIELD ASSIGNMENT GENERATED'.            DTSBD314
00157                                                                   DTSBD314
00158      05  MSG691-TEXT.                                             DTSBD314
00159          10  FILLER                  PIC  X(40)                   DTSBD314
00160            VALUE 'EMPLOYER REGISTRATION CYCLE A FILE ASSIG'.      DTSBD314
00161          10  FILLER                  PIC  X(40)                   DTSBD314
00162            VALUE 'NMENT TYPE NOT FOUND - NO ASSIGNMENT GEN'.      DTSBD314
00163          10  FILLER                  PIC  X(40)                   DTSBD314
00164            VALUE 'ERATED.             '.                          DTSBD314
00165      EJECT                                                        DTSBD314
00166  01  L910-LINK-AREA.                                              DTSBD314
00167  ++INCLUDE DTSIL910                                               DTSBD314
00168      SKIP3                                                        DTSBD314
00169  01  MSKL-REC.                                                    DTSBD314
00170  ++INCLUDE DTSIMSKL                                               DTSBD314
00171      SKIP3                                                        DTSBD314
00172  01  MERA-REC.                                                    DTSBD314
00173  ++INCLUDE DTSIMERA                                               DTSBD314
00174      SKIP3                                                        DTSBD314
00175  01  MEVL-REC.                                                    DTSBD314
00176  ++INCLUDE DTSIMEVL                                               DTSBD314
00177      SKIP3                                                        DTSBD314
00178  01  MFAS-REC.                                                    DTSBD314
00179  ++INCLUDE DTSIMFAS                                               DTSBD314
00180      SKIP3                                                        DTSBD314
00181  01  MTAD-REC.                                                    DTSBD314
00182  ++INCLUDE DTSIMTAD                                               DTSBD314
00183      SKIP3                                                        DTSBD314
00184  01  MTCK-REC.                                                    DTSBD314
00185  ++INCLUDE DTSIMTCK                                               DTSBD314
00186      EJECT                                                        DTSBD314
00187  01  L931-LINK-AREA.                                              DTSBD314
00188  ++INCLUDE DTSIL931                                               DTSBD314
00189      SKIP3                                                        DTSBD314
00190  01  FSKL-REC.                                                    DTSBD314
00191  ++INCLUDE DTSIFSKL                                               DTSBD314
00192      SKIP3                                                        DTSBD314
00193  01  FFAT-REC.                                                    DTSBD314
00194  ++INCLUDE DTSIFFAT                                               DTSBD314
00195      SKIP3                                                        DTSBD314
00196  01  FFAZ-REC.                                                    DTSBD314
00197  ++INCLUDE DTSIFFAZ                                               DTSBD314
00198      EJECT                                                        DTSBD314
00199  01  RSKL-REC.                                                    DTSBD314
00200  ++INCLUDE DTSIRSK3                                               DTSBD314
00201      SKIP3                                                        DTSBD314
00202  01  R102-REC.                                                    DTSBD314
00203  ++INCLUDE DTSIR102                                               DTSBD314
00204      SKIP3                                                        DTSBD314
00205  01  R103-REC.                                                    DTSBD314
00206  ++INCLUDE DTSIR103                                               DTSBD314
00207      SKIP3                                                        DTSBD314
00208  01  R105-REC.                                                    DTSBD314
00209  ++INCLUDE DTSIR105                                               DTSBD314
00210      SKIP3                                                        DTSBD314
00211  01  R127-REC.                                                    DTSBD314
00212  ++INCLUDE DTSIR127                                               DTSBD314
00213      SKIP3                                                        DTSBD314
00214  01  R901-REC.                                                    DTSBD314
00215  ++INCLUDE DTSIR901                                               DTSBD314
00216      SKIP3                                                        DTSBD314
00217  01  R907-REC.                                                    DTSBD314
00218  ++INCLUDE DTSIR907                                               DTSBD314
00219      SKIP3                                                        DTSBD314
00220  01  L001-LINK-AREA.                                              DTSBD314
00221  ++INCLUDE DTSIL001                                               DTSBD314
00222      SKIP3                                                        DTSBD314
00223  01  L004-LINK-AREA.                                              DTSBD314
00224  ++INCLUDE DTSIL004                                               DTSBD314
00225      SKIP3                                                        DTSBD314
00226  01  L005-LINK-AREA.                                              DTSBD314
00227  ++INCLUDE DTSIL005                                               DTSBD314
00228      SKIP3                                                        DTSBD314
00229  01  L061-LINK-AREA.                                              DTSBD314
00230  ++INCLUDE DTSIL061                                               DTSBD314
00231      SKIP3                                                        DTSBD314
00232  01  L075-LINK-AREA.                                              DTSBD314
00233  ++INCLUDE DTSIL075                                               DTSBD314
00234      SKIP3                                                        DTSBD314
00235  01  L111-LINK-AREA.                                              DTSBD314
00236  ++INCLUDE DTSIL111                                               DTSBD314
00237      SKIP3                                                        DTSBD314
00238  01  L112-LINK-AREA.                                              DTSBD314
00239  ++INCLUDE DTSIL112                                               DTSBD314
00240      SKIP3                                                        DTSBD314
00241  LINKAGE SECTION.                                                 DTSBD314
00242      SKIP3                                                        DTSBD314
00243  01  LBCM-LINK-AREA.                                              DTSBD314
00244  ++INCLUDE DTSILBCM                                               DTSBD314
00245      EJECT                                                        DTSBD314
00246  01  MPRF-REC.                                                    DTSBD314
00247  ++INCLUDE DTSIMPRF                                               DTSBD314
00248      EJECT                                                        DTSBD314
00249  01  T001-REC.                                                    DTSBD314
00250  ++INCLUDE DTSIT001                                               DTSBD314
00251      EJECT                                                        DTSBD314
00252  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD314
00253                           MPRF-REC                                DTSBD314
00254                           T001-REC.                               DTSBD314
00255                                                                   DTSBD314
00256                                                                   DTSBD314
00257      IF FIRST-TIME-IND = 'Y'                                      DTSBD314
00258          PERFORM I0000-INITIATE THRU I0000-EXIT                   DTSBD314
00259          MOVE 'N' TO FIRST-TIME-IND.                              DTSBD314
00260                                                                   DTSBD314
00261                                                                   DTSBD314
00262      IF MPRF-EMP-NO  NOT =  WRK-EMP-NO                            DTSBD314
00263          MOVE MPRF-EMP-NO TO WRK-EMP-NO                           DTSBD314
00264          PERFORM P0000-PROCESS THRU P0000-EXIT.                   DTSBD314
00265                                                                   DTSBD314
00266                                                                   DTSBD314
00267      GOBACK.                                                      DTSBD314
00268      EJECT                                                        DTSBD314
00269  I0000-INITIATE.                                                  DTSBD314
00270      MOVE +0 TO WRK-EMP-NO                                        DTSBD314
00271                 WRK-LABEL-CNT.                                    DTSBD314
00272                                                                   DTSBD314
00273      MOVE WRK-MOD-NAME TO L910-MOD-NAME                           DTSBD314
00274                           L931-MOD-NAME                           DTSBD314
00275                           R907-MODULE-NAME.                       DTSBD314
00276                                                                   DTSBD314
00277                                                                   DTSBD314
00278      MOVE LBCM-TRACE-IND TO L910-TRACE-IND                        DTSBD314
00279                             L931-TRACE-IND.                       DTSBD314
00280                                                                   DTSBD314
00281                                                                   DTSBD314
00282      MOVE LENGTH OF R102-REC TO R102-LENGTH.                      DTSBD314
00283                                                                   DTSBD314
00284      MOVE LENGTH OF R103-REC TO R103-LENGTH.                      DTSBD314
00285                                                                   DTSBD314
00286      MOVE LENGTH OF R105-REC TO R105-LENGTH.                      DTSBD314
00287                                                                   DTSBD314
00288      MOVE LENGTH OF R127-REC TO R127-LENGTH.                      DTSBD314
00289                                                                   DTSBD314
00290      MOVE LENGTH OF R901-REC TO R901-LENGTH.                      DTSBD314
00291                                                                   DTSBD314
00292      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBD314
00293                                                                   DTSBD314
00294                                                                   DTSBD314
00295      SET FFAT-CYCLE-A-ASSIGN-NO-88 TO TRUE.                       DTSBD314
00296                                                                   DTSBD314
00297      MOVE LOW-VALUES TO FSKL-KEY-AREA.                            DTSBD314
00298                                                                   DTSBD314
00299      SET FSKL-FAT-88 TO TRUE.                                     DTSBD314
00300                                                                   DTSBD314
00301      PERFORM S931-START-BROWSE THRU S931-EXIT.                    DTSBD314
00302                                                                   DTSBD314
00303      PERFORM                                                      DTSBD314
00304        UNTIL (L931-NO-REC-88)                                     DTSBD314
00305                   OR                                              DTSBD314
00306              (FFAT-CYCLE-A-ASSIGN-YES-88)                         DTSBD314
00307          MOVE FSKL-REC TO FFAT-REC                                DTSBD314
00308          PERFORM S931-READ-NEXT THRU S931-EXIT                    DTSBD314
00309      END-PERFORM.                                                 DTSBD314
00310                                                                   DTSBD314
00311                                                                   DTSBD314
00312      MOVE LBCM-CURR-MAIL-DATE TO WRK-ASSIGN-DUE-DATE.             DTSBD314
00313                                                                   DTSBD314
00314      IF FFAT-CYCLE-A-ASSIGN-YES-88                                DTSBD314
00315          PERFORM I1000-FIND-ASSIGN-DUE-DATE THRU I1000-EXIT.      DTSBD314
00316  I0000-EXIT. EXIT.                                                DTSBD314
00317      SKIP3                                                        DTSBD314
00318  I1000-FIND-ASSIGN-DUE-DATE.                                      DTSBD314
00319      IF FFAT-DEFAULT-DUE-NXT-Q-END-88                             DTSBD314
00320          MOVE LBCM-CURR-MAIL-DATE TO L004-DATE                    DTSBD314
00321          PERFORM S004-FROM-DATE THRU S004-EXIT                    DTSBD314
00322          ADD +1 TO L004-ABS-QTR                                   DTSBD314
00323          PERFORM S004-FROM-ABS THRU S004-EXIT                     DTSBD314
00324          MOVE L004-QTR-END-DATE TO WRK-ASSIGN-DUE-DATE            DTSBD314
00325      ELSE                                                         DTSBD314
00326          MOVE LBCM-CURR-MAIL-DATE TO L001-FED-8-DATE-9            DTSBD314
00327          SET L001-FROM-FED-8 TO TRUE                              DTSBD314
00328          PERFORM S001-CONVERT-DATE THRU S001-EXIT                 DTSBD314
00329          ADD FFAT-DEFAULT-DUE-DAYS TO L001-JUL-ABS-DAY            DTSBD314
00330          SET L001-FROM-ABS-DAY TO TRUE                            DTSBD314
00331          PERFORM S001-CONVERT-DATE THRU S001-EXIT                 DTSBD314
00332          MOVE L001-FED-8-DATE-9 TO WRK-ASSIGN-DUE-DATE.           DTSBD314
00333  I1000-EXIT.                                                      DTSBD314
00334      EXIT.                                                        DTSBD314
00335      EJECT                                                        DTSBD314
00336  P0000-PROCESS.                                                   DTSBD314
00337      SET DOC-NONE-88 TO TRUE.                                     DTSBD314
00338                                                                   DTSBD314
00339      PERFORM P1000-DELETE-MTCK THRU P1000-EXIT.                   DTSBD314
00340                                                                   DTSBD314
00341      MOVE LOW-VALUE TO MSKL-KEY-AREA.                             DTSBD314
00342                                                                   DTSBD314
00343      MOVE WRK-EMP-NO TO MSKL-EMP-NO.                              DTSBD314
00344                                                                   DTSBD314
00345      SET MSKL-ERA-88 TO TRUE.                                     DTSBD314
00346                                                                   DTSBD314
00347      PERFORM S910-READ THRU S910-EXIT.                            DTSBD314
00348                                                                   DTSBD314
00349      IF L910-NO-REC-88                                            DTSBD314
00350          GO TO P0000-EXIT.                                        DTSBD314
00351                                                                   DTSBD314
00352      MOVE MSKL-REC TO MERA-REC.                                   DTSBD314
00353                                                                   DTSBD314
00354      PERFORM P2000-MODIFY-MERA THRU P2000-EXIT.                   DTSBD314
00355                                                                   DTSBD314
00356      IF DOC-NONE-88                                               DTSBD314
00357          NEXT SENTENCE                                            DTSBD314
00358      ELSE                                                         DTSBD314
00359          PERFORM P3000-GENERATE-DOC THRU P3000-EXIT               DTSBD314
00360          MOVE +0 TO MERA-LABEL-CNT.                               DTSBD314
00361                                                                   DTSBD314
00362 *&                                                                DTSBD314
00363      DISPLAY 'BD314 P0000 ' MPRF-EMP-NO                           DTSBD314
00364         '  CNT ' MERA-LABEL-CNT '  WRK ' WRK-LABEL-CNT.           DTSBD314
00365 *&                                                                DTSBD314
00366      IF WRK-LABEL-CNT > ZERO                                      DTSBD314
00367         IF DOC-NONE-88                                            DTSBD314
00368            PERFORM S2000-GET-DEFAULT-ADDRESS THRU S2000-EXIT      DTSBD314
00369         END-IF                                                    DTSBD314
00370          PERFORM P4100-GENERATE-LABEL  THRU P4100-EXIT            DTSBD314
00371      END-IF.                                                      DTSBD314
00372                                                                   DTSBD314
00373      MOVE LBCM-CURR-RUN-DATE TO MERA-CHNG-DATE.                   DTSBD314
00374                                                                   DTSBD314
00375      MOVE MERA-REC TO MSKL-REC.                                   DTSBD314
00376                                                                   DTSBD314
00377      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD314
00378                                                                   DTSBD314
00379      PERFORM P4000-GENERATE-TICKLER THRU P4000-EXIT.              DTSBD314
00380  P0000-EXIT. EXIT.                                                DTSBD314
00381      EJECT                                                        DTSBD314
00382  P1000-DELETE-MTCK.                                               DTSBD314
00383      MOVE LOW-VALUE TO MTCK-KEY-AREA.                             DTSBD314
00384                                                                   DTSBD314
00385      MOVE WRK-EMP-NO TO MTCK-EMP-NO.                              DTSBD314
00386                                                                   DTSBD314
00387      SET MTCK-TCK-88 TO TRUE.                                     DTSBD314
00388                                                                   DTSBD314
00389      MOVE +0 TO MTCK-ESTB-ABSTIME.                                DTSBD314
00390                                                                   DTSBD314
00391      MOVE MTCK-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD314
00392                                                                   DTSBD314
00393      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD314
00394                                                                   DTSBD314
00395      PERFORM P1100-MTCK-SCAN THRU P1100-EXIT                      DTSBD314
00396          UNTIL L910-NO-REC-88.                                    DTSBD314
00397  P1000-EXIT. EXIT.                                                DTSBD314
00398      SKIP3                                                        DTSBD314
00399  P1100-MTCK-SCAN.                                                 DTSBD314
00400      MOVE MSKL-REC TO MTCK-REC.                                   DTSBD314
00401                                                                   DTSBD314
00402      IF MTCK-TYPE-CYCLE-A-88                                      DTSBD314
00403          PERFORM S910-DELETE THRU S910-EXIT.                      DTSBD314
00404                                                                   DTSBD314
00405      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBD314
00406  P1100-EXIT. EXIT.                                                DTSBD314
00407      EJECT                                                        DTSBD314
00408  P2000-MODIFY-MERA.                                               DTSBD314
00409 *&                                                                DTSBD314
00410      DISPLAY 'BD314 P2000 FIRST ' MPRF-EMP-NO                     DTSBD314
00411         '  ' MERA-FIRST-LABEL-IND                                 DTSBD314
00412         '  CNT ' MERA-LABEL-CNT '  WRK ' WRK-LABEL-CNT.           DTSBD314
00413 *&                                                                DTSBD314
00414                                                                   DTSBD314
00415      IF MERA-FIRST-LABEL-NEEDED-88                                DTSBD314
00416         ADD +1 TO WRK-LABEL-CNT                                   DTSBD314
00417         SET MERA-FIRST-LABEL-PRINTED-88 TO TRUE                   DTSBD314
00418      END-IF.                                                      DTSBD314
00419                                                                   DTSBD314
00420      IF MPRF-CLASS-CHG-ONLY-88                                    DTSBD314
00421          SET MERA-STATUS-NOT-LIAB-88 TO TRUE                      DTSBD314
00422          MOVE LBCM-CURR-RUN-DATE TO MERA-STATUS-CHNG-DATE         DTSBD314
00423          GO TO P2000-EXIT.                                        DTSBD314
00424                                                                   DTSBD314
00425      IF MERA-STATUS-SETUP-88                                      DTSBD314
00426          SET MERA-STATUS-LTR1-88 TO TRUE                          DTSBD314
00427          MOVE LBCM-CURR-RUN-DATE TO MERA-STATUS-CHNG-DATE         DTSBD314
00428          PERFORM P2100-FIRST-STEP THRU P2100-EXIT                 DTSBD314
00429          GO TO P2000-EXIT.                                        DTSBD314
00430                                                                   DTSBD314
00431      IF MERA-STATUS-LTR1-88                                       DTSBD314
00432          IF MERA-MAIL-DATE-1 = 0                                  DTSBD314
00433              PERFORM P2100-FIRST-STEP THRU P2100-EXIT             DTSBD314
00434              GO TO P2000-EXIT                                     DTSBD314
00435          ELSE                                                     DTSBD314
00436              MOVE MERA-MAIL-DATE-1 TO L001-FED-8-DATE-9           DTSBD314
00437              PERFORM S1000-ADD-30-DAYS THRU S1000-EXIT            DTSBD314
00438              IF L001-FED-8-DATE-9 > LBCM-CURR-RUN-DATE            DTSBD314
00439                  GO TO P2000-EXIT                                 DTSBD314
00440              ELSE                                                 DTSBD314
00441                  SET MERA-STATUS-LTR2-88 TO TRUE                  DTSBD314
00442                  MOVE LBCM-CURR-RUN-DATE TO MERA-STATUS-CHNG-DATE DTSBD314
00443                  PERFORM P2200-SECOND-STEP THRU P2200-EXIT        DTSBD314
00444                  GO TO P2000-EXIT.                                DTSBD314
00445                                                                   DTSBD314
00446      IF MERA-STATUS-LTR2-88                                       DTSBD314
00447          IF MERA-MAIL-DATE-2 = 0                                  DTSBD314
00448              PERFORM P2200-SECOND-STEP THRU P2200-EXIT            DTSBD314
00449              GO TO P2000-EXIT                                     DTSBD314
00450          ELSE                                                     DTSBD314
00451              MOVE MERA-MAIL-DATE-2 TO L001-FED-8-DATE-9           DTSBD314
00452              PERFORM S1000-ADD-15-DAYS THRU S1000-EXIT            DTSBD314
00453              IF L001-FED-8-DATE-9 > LBCM-CURR-RUN-DATE            DTSBD314
00454                  GO TO P2000-EXIT                                 DTSBD314
00455              ELSE                                                 DTSBD314
00456                  SET WRK-FLD-REP-FOR-ZIP-NO-88 TO TRUE            DTSBD314
00457                  PERFORM S6000-FLD-REP-FOR-ZIP THRU S6000-EXIT    DTSBD314
00458                  IF WRK-FLD-REP-FOR-ZIP-YES-88                    DTSBD314
00459                      IF FFAT-CYCLE-A-ASSIGN-NO-88                 DTSBD314
00460                          PERFORM P2010-NO-CYCLE-A-ASSIGN-TYPE     DTSBD314
00461                             THRU P2010-EXIT                       DTSBD314
00462                      ELSE                                         DTSBD314
00463                          SET MERA-STATUS-ASSGN-GEN-88 TO TRUE     DTSBD314
00464                          MOVE LBCM-CURR-RUN-DATE                  DTSBD314
00465                            TO MERA-STATUS-CHNG-DATE               DTSBD314
00466                          PERFORM P2600-FLD-ASSIGN-GEN-STEP        DTSBD314
00467                             THRU P2600-EXIT                       DTSBD314
00468                          GO TO P2000-EXIT                         DTSBD314
00469                  ELSE                                             DTSBD314
00470                      SET MERA-STATUS-COOP-88 TO TRUE              DTSBD314
00471                      MOVE LBCM-CURR-RUN-DATE                      DTSBD314
00472                        TO MERA-STATUS-CHNG-DATE                   DTSBD314
00473                      PERFORM P2500-INTERSTATE-STEP THRU P2500-EXITDTSBD314
00474                      GO TO P2000-EXIT.                            DTSBD314
00475                                                                   DTSBD314
00476      IF MERA-STATUS-COOP-88                                       DTSBD314
00477          IF MERA-COOP-AGENCY-REQ-DATE = 0                         DTSBD314
00478              PERFORM P2500-INTERSTATE-STEP THRU P2500-EXIT        DTSBD314
00479              GO TO P2000-EXIT.                                    DTSBD314
00480                                                                   DTSBD314
00481      IF MERA-STATUS-ASSGN-GEN-88                                  DTSBD314
00482          IF MERA-FIELD-ASSIGN-DATE = 0                            DTSBD314
00483              IF FFAT-CYCLE-A-ASSIGN-NO-88                         DTSBD314
00484                  PERFORM P2010-NO-CYCLE-A-ASSIGN-TYPE             DTSBD314
00485                     THRU P2010-EXIT                               DTSBD314
00486              ELSE                                                 DTSBD314
00487                  PERFORM P2600-FLD-ASSIGN-GEN-STEP                DTSBD314
00488                     THRU P2600-EXIT                               DTSBD314
00489                  GO TO P2000-EXIT.                                DTSBD314
00490  P2000-EXIT. EXIT.                                                DTSBD314
00491      SKIP3                                                        DTSBD314
00492  P2010-NO-CYCLE-A-ASSIGN-TYPE.                                    DTSBD314
00493      MOVE '691' TO R907-MSG-ID.                                   DTSBD314
00494                                                                   DTSBD314
00495      MOVE WRK-EMP-NO TO R907-EMP-NO.                              DTSBD314
00496                                                                   DTSBD314
00497      MOVE MSG691-TEXT TO R907-MSG-TEXT.                           DTSBD314
00498                                                                   DTSBD314
00499      MOVE R907-REC TO RSKL-REC.                                   DTSBD314
00500                                                                   DTSBD314
00501      PERFORM S946-RPT-O THRU S946-EXIT.                           DTSBD314
00502  P2010-EXIT.                                                      DTSBD314
00503      EXIT.                                                        DTSBD314
00504      EJECT                                                        DTSBD314
00505  P2100-FIRST-STEP.                                                DTSBD314
00506      MOVE LBCM-CURR-MAIL-DATE TO MERA-MAIL-DATE-1.                DTSBD314
00507                                                                   DTSBD314
00508      MOVE +0 TO MERA-MAIL-DATE-2                                  DTSBD314
00509                 MERA-COOP-AGENCY-REQ-DATE                         DTSBD314
00510                 MERA-FIELD-ASSIGN-DATE                            DTSBD314
00511                 MERA-RECEIVED-DATE                                DTSBD314
00512                 MERA-DETER-NOTSUB-DATE.                           DTSBD314
00513                                                                   DTSBD314
00514      ADD MERA-LABEL-CNT TO WRK-LABEL-CNT.                         DTSBD314
00515      DISPLAY 'P2100 MERA LABEL CNT ' MERA-LABEL-CNT               DTSBD314
00516      IF WRK-LABEL-CNT = ZERO                                      DTSBD314
00517         MOVE +1         TO WRK-LABEL-CNT                          DTSBD314
00518      END-IF.                                                      DTSBD314
00519      DISPLAY 'P2100 MERA LABEL CNT ' MERA-LABEL-CNT               DTSBD314
00520                                                                   DTSBD314
00521      SET DOC-LTR1-R102 TO TRUE.                                   DTSBD314
00522                                                                   DTSBD314
00523  P2100-EXIT. EXIT.                                                DTSBD314
00524      SKIP3                                                        DTSBD314
00525  P2200-SECOND-STEP.                                               DTSBD314
00526 *&                                                                DTSBD314
00527      DISPLAY 'BD314 P2200 - 1 ' MPRF-EMP-NO                       DTSBD314
00528         '  CNT ' MERA-LABEL-CNT '  WRK ' WRK-LABEL-CNT.           DTSBD314
00529 *&                                                                DTSBD314
00530      MOVE LBCM-CURR-MAIL-DATE TO MERA-MAIL-DATE-2.                DTSBD314
00531                                                                   DTSBD314
00532      MOVE +0 TO MERA-COOP-AGENCY-REQ-DATE                         DTSBD314
00533                 MERA-FIELD-ASSIGN-DATE                            DTSBD314
00534                 MERA-RECEIVED-DATE                                DTSBD314
00535                 MERA-DETER-NOTSUB-DATE.                           DTSBD314
00536                                                                   DTSBD314
00537      ADD MERA-LABEL-CNT TO WRK-LABEL-CNT.                         DTSBD314
00538      IF WRK-LABEL-CNT = ZERO                                      DTSBD314
00539         MOVE +1         TO WRK-LABEL-CNT                          DTSBD314
00540      END-IF.                                                      DTSBD314
00541                                                                   DTSBD314
00542      SET DOC-LTR2-R103 TO TRUE.                                   DTSBD314
00543 *&                                                                DTSBD314
00544      DISPLAY 'BD314 P2200 - 2 ' MPRF-EMP-NO                       DTSBD314
00545         '  CNT ' MERA-LABEL-CNT '  WRK ' WRK-LABEL-CNT.           DTSBD314
00546 *&                                                                DTSBD314
00547  P2200-EXIT. EXIT.                                                DTSBD314
00548      SKIP3                                                        DTSBD314
00549  P2500-INTERSTATE-STEP.                                           DTSBD314
00550      MOVE LBCM-CURR-MAIL-DATE TO MERA-COOP-AGENCY-REQ-DATE.       DTSBD314
00551                                                                   DTSBD314
00552      MOVE +0 TO MERA-FIELD-ASSIGN-DATE                            DTSBD314
00553                 MERA-RECEIVED-DATE                                DTSBD314
00554                 MERA-DETER-NOTSUB-DATE.                           DTSBD314
00555                                                                   DTSBD314
00556      SET DOC-COOP-R105 TO TRUE.                                   DTSBD314
00557  P2500-EXIT. EXIT.                                                DTSBD314
00558      SKIP3                                                        DTSBD314
00559  P2600-FLD-ASSIGN-GEN-STEP.                                       DTSBD314
00560      MOVE LBCM-CURR-MAIL-DATE TO MERA-FIELD-ASSIGN-DATE.          DTSBD314
00561                                                                   DTSBD314
00562      MOVE +0 TO MERA-COOP-AGENCY-REQ-DATE                         DTSBD314
00563                 MERA-RECEIVED-DATE                                DTSBD314
00564                 MERA-DETER-NOTSUB-DATE.                           DTSBD314
00565                                                                   DTSBD314
00566      SET DOC-FLD-ASSIGN TO TRUE.                                  DTSBD314
00567  P2600-EXIT. EXIT.                                                DTSBD314
00568      EJECT                                                        DTSBD314
00569  P3000-GENERATE-DOC.                                              DTSBD314
00570 *&                                                                DTSBD314
00571      DISPLAY 'BD314 P3000 ' MPRF-EMP-NO                           DTSBD314
00572         '  ' MERA-FIRST-LABEL-IND                                 DTSBD314
00573         '  CNT ' MERA-LABEL-CNT '  WRK ' WRK-LABEL-CNT.           DTSBD314
00574 *&                                                                DTSBD314
00575      PERFORM S2000-GET-DEFAULT-ADDRESS THRU S2000-EXIT.           DTSBD314
00576                                                                   DTSBD314
00577      MOVE MERA-RESPONSIBLE-OP-ID TO WRK-OP-ID.                    DTSBD314
00578                                                                   DTSBD314
00579      IF MERA-STATUS-LTR1-88                                       DTSBD314
00580          PERFORM P3100-LTR1-R102 THRU P3100-EXIT                  DTSBD314
00581      ELSE                                                         DTSBD314
00582      IF MERA-STATUS-LTR2-88                                       DTSBD314
00583          PERFORM P3200-LTR2-R103 THRU P3200-EXIT                  DTSBD314
00584      ELSE                                                         DTSBD314
00585      IF MERA-STATUS-COOP-88                                       DTSBD314
00586          PERFORM P3500-COOP-R105 THRU P3500-EXIT                  DTSBD314
00587      ELSE                                                         DTSBD314
00588      IF MERA-STATUS-ASSGN-GEN-88                                  DTSBD314
00589          PERFORM P3600-ASSGN-GENERATE THRU P3600-EXIT.            DTSBD314
00590  P3000-EXIT. EXIT.                                                DTSBD314
00591      EJECT                                                        DTSBD314
00592  P3100-LTR1-R102.                                                 DTSBD314
00593      MOVE WRK-OP-ID TO R102-OP-ID.                                DTSBD314
00594                                                                   DTSBD314
00595      IF MERA-LETTER-GENERIC-88                                    DTSBD314
00596          SET R102-GENERIC-88 TO TRUE                              DTSBD314
00597      ELSE                                                         DTSBD314
00598      IF MERA-LETTER-EMP-REQUEST-88                                DTSBD314
00599          SET R102-EMP-REQUEST-88 TO TRUE                          DTSBD314
00600      ELSE                                                         DTSBD314
00601      IF MERA-LETTER-UC30-RCVD-88                                  DTSBD314
00602          SET R102-UC30-RCVD-88 TO TRUE                            DTSBD314
00603      ELSE                                                         DTSBD314
00604      IF MERA-LETTER-CLAIMNT-WGS-88                                DTSBD314
00605          SET R102-CLAIMANT-WGS-88 TO TRUE                         DTSBD314
00606      ELSE                                                         DTSBD314
00607          SET R102-GENERIC-88 TO TRUE.                             DTSBD314
00608                                                                   DTSBD314
00609      MOVE WRK-EMP-NO TO R102-EMP-NO.                              DTSBD314
00610                                                                   DTSBD314
00611      MOVE LOW-VALUE TO R102-DATA-AREA.                            DTSBD314
00612                                                                   DTSBD314
00613      INITIALIZE R102-DATA-AREA.                                   DTSBD314
00614                                                                   DTSBD314
00615      MOVE LBCM-CURR-MAIL-DATE TO R102-MAIL-DATE.                  DTSBD314
00616                                                                   DTSBD314
00617      MOVE L112-MAILING-ADDRESS TO R102-FMT-ADDR.                  DTSBD314
00618                                                                   DTSBD314
00619      MOVE L112-ZIP TO R102-ZIP.                                   DTSBD314
00620                                                                   DTSBD314
00621      MOVE L112-ADVANCED-BARCODE TO R102-ADVANCED-BARCODE.         DTSBD314
00622                                                                   DTSBD314
00623      IF R102-CLAIMANT-WGS-88                                      DTSBD314
00624          MOVE MERA-CLAIMANT-NAME TO R102-CLAIMANT-NAME            DTSBD314
00625          MOVE MERA-CLAIMANT-SSN TO R102-CLAIMANT-SSN.             DTSBD314
00626                                                                   DTSBD314
00627      MOVE R102-REC TO RSKL-REC.                                   DTSBD314
00628                                                                   DTSBD314
00629      PERFORM S3000-WRITE-RPT-AND-MEVL THRU S3000-EXIT.            DTSBD314
00630                                                                   DTSBD314
00631                                                                   DTSBD314
00632      SET R127-GENED-WITH-LETTER-ONE-88 TO TRUE.                   DTSBD314
00633                                                                   DTSBD314
00634      MOVE WRK-OP-ID TO R127-OP-ID.                                DTSBD314
00635                                                                   DTSBD314
00636      MOVE R102-LETTER-TYPE TO R127-LETTER-ONE-TYPE.               DTSBD314
00637                                                                   DTSBD314
00638      MOVE WRK-EMP-NO TO R127-EMP-NO.                              DTSBD314
00639                                                                   DTSBD314
00640      PERFORM S5000-R127-DATA-AREA THRU S5000-EXIT.                DTSBD314
00641                                                                   DTSBD314
00642      MOVE R127-REC TO RSKL-REC.                                   DTSBD314
00643                                                                   DTSBD314
00644      PERFORM S946-RPT-O THRU S946-EXIT.                           DTSBD314
00645  P3100-EXIT. EXIT.                                                DTSBD314
00646      EJECT                                                        DTSBD314
00647  P3200-LTR2-R103.                                                 DTSBD314
00648      MOVE WRK-OP-ID TO R103-OP-ID.                                DTSBD314
00649                                                                   DTSBD314
00650      MOVE WRK-EMP-NO TO R103-EMP-NO.                              DTSBD314
00651                                                                   DTSBD314
00652      MOVE LBCM-CURR-MAIL-DATE TO R103-MAIL-DATE.                  DTSBD314
00653                                                                   DTSBD314
00654      MOVE L112-MAILING-ADDRESS TO R103-FMT-ADDR.                  DTSBD314
00655                                                                   DTSBD314
00656      MOVE L112-ZIP TO R103-ZIP.                                   DTSBD314
00657                                                                   DTSBD314
00658      MOVE L112-ADVANCED-BARCODE TO R103-ADVANCED-BARCODE.         DTSBD314
00659                                                                   DTSBD314
00660      MOVE R103-REC TO RSKL-REC.                                   DTSBD314
00661                                                                   DTSBD314
00662      PERFORM S3000-WRITE-RPT-AND-MEVL THRU S3000-EXIT.            DTSBD314
00663                                                                   DTSBD314
00664                                                                   DTSBD314
00665      SET R127-GENED-WITH-LETTER-TWO-88 TO TRUE.                   DTSBD314
00666                                                                   DTSBD314
00667      MOVE WRK-OP-ID TO R127-OP-ID.                                DTSBD314
00668                                                                   DTSBD314
00669      MOVE LOW-VALUES TO R127-LETTER-ONE-TYPE.                     DTSBD314
00670                                                                   DTSBD314
00671      MOVE WRK-EMP-NO TO R127-EMP-NO.                              DTSBD314
00672                                                                   DTSBD314
00673      PERFORM S5000-R127-DATA-AREA THRU S5000-EXIT.                DTSBD314
00674                                                                   DTSBD314
00675      MOVE R127-REC TO RSKL-REC.                                   DTSBD314
00676                                                                   DTSBD314
00677      PERFORM S946-RPT-O THRU S946-EXIT.                           DTSBD314
00678  P3200-EXIT. EXIT.                                                DTSBD314
00679      EJECT                                                        DTSBD314
00680  P3500-COOP-R105.                                                 DTSBD314
00681      MOVE WRK-OP-ID TO R105-OP-ID.                                DTSBD314
00682                                                                   DTSBD314
00683      MOVE WRK-EMP-NO TO R105-EMP-NO.                              DTSBD314
00684                                                                   DTSBD314
00685      MOVE LOW-VALUE TO R105-DATA-AREA.                            DTSBD314
00686                                                                   DTSBD314
00687      INITIALIZE R105-DATA-AREA.                                   DTSBD314
00688                                                                   DTSBD314
00689      MOVE LBCM-CURR-MAIL-DATE TO R105-MAIL-DATE.                  DTSBD314
00690                                                                   DTSBD314
00691      MOVE L112-MAILING-ADDRESS TO R105-FMT-ADDR.                  DTSBD314
00692                                                                   DTSBD314
00693      SET L075-LOOKUP-ADDR-88 TO TRUE.                             DTSBD314
00694                                                                   DTSBD314
00695      MOVE L112-ST TO L075-LOOKUP-STATE.                           DTSBD314
00696                                                                   DTSBD314
00697      PERFORM S075-LOOKUP-COOP-AGENCY THRU S075-EXIT.              DTSBD314
00698                                                                   DTSBD314
00699      IF L075-ADDR-NOT-FOUND-88                                    DTSBD314
00700          MOVE ALL '?' TO R105-AGENCY-FMT-ADDR                     DTSBD314
00701                          R105-AGENCY-ZIP                          DTSBD314
00702                          R105-AGENCY-ADVANCED-BARCODE             DTSBD314
00703      ELSE                                                         DTSBD314
00704          SET L112-TAA-ADDR-88 TO TRUE                             DTSBD314
00705          SET L112-ANCHOR-LAST-88 TO TRUE                          DTSBD314
00706          MOVE LOW-VALUE TO L112-PRIMARY-NAME                      DTSBD314
00707                            L112-NAME-ADDRESS-AREA                 DTSBD314
00708          MOVE L075-NAME TO L112-NAME                              DTSBD314
00709          MOVE L075-ADDRESS TO L112-ADDRESS                        DTSBD314
00710          PERFORM S112-FORMAT-ADDRESS THRU S112-EXIT               DTSBD314
00711          MOVE L112-MAILING-ADDRESS TO R105-AGENCY-FMT-ADDR        DTSBD314
00712          MOVE L112-ZIP TO R105-AGENCY-ZIP                         DTSBD314
00713          MOVE L112-ADVANCED-BARCODE                               DTSBD314
00714            TO R105-AGENCY-ADVANCED-BARCODE.                       DTSBD314
00715                                                                   DTSBD314
00716      MOVE R105-REC TO RSKL-REC.                                   DTSBD314
00717                                                                   DTSBD314
00718      PERFORM S3000-WRITE-RPT-AND-MEVL THRU S3000-EXIT.            DTSBD314
00719                                                                   DTSBD314
00720                                                                   DTSBD314
00721      SET R127-GENED-WITH-COOP-LETTER-88 TO TRUE.                  DTSBD314
00722                                                                   DTSBD314
00723      MOVE WRK-OP-ID TO R127-OP-ID.                                DTSBD314
00724                                                                   DTSBD314
00725      MOVE LOW-VALUES TO R127-LETTER-ONE-TYPE.                     DTSBD314
00726                                                                   DTSBD314
00727      MOVE WRK-EMP-NO TO R127-EMP-NO.                              DTSBD314
00728                                                                   DTSBD314
00729      PERFORM S5000-R127-DATA-AREA THRU S5000-EXIT.                DTSBD314
00730                                                                   DTSBD314
00731      MOVE R127-REC TO RSKL-REC.                                   DTSBD314
00732                                                                   DTSBD314
00733      PERFORM S946-RPT-O THRU S946-EXIT.                           DTSBD314
00734  P3500-EXIT. EXIT.                                                DTSBD314
00735      EJECT                                                        DTSBD314
00736  P3600-ASSGN-GENERATE.                                            DTSBD314
00737      MOVE LOW-VALUES TO MFAS-REC.                                 DTSBD314
00738                                                                   DTSBD314
00739                                                                   DTSBD314
00740      MOVE WRK-EMP-NO TO MFAS-EMP-NO.                              DTSBD314
00741                                                                   DTSBD314
00742      SET MFAS-FAS-88 TO TRUE.                                     DTSBD314
00743                                                                   DTSBD314
00744      ADD +1 TO LBCM-LAST-USED-ASSIGN-NO.                          DTSBD314
00745                                                                   DTSBD314
00746      MOVE LBCM-LAST-USED-ASSIGN-NO TO MFAS-ASSIGN-NO.             DTSBD314
00747                                                                   DTSBD314
00748      MOVE +0 TO MFAS-PURGE-DATE.                                  DTSBD314
00749                                                                   DTSBD314
00750      SET MFAS-STATUS-ACTIVE-88 TO TRUE.                           DTSBD314
00751                                                                   DTSBD314
00752      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBD314
00753                                                                   DTSBD314
00754      MOVE WRK-EMP-NO TO L061-EMP-NO.                              DTSBD314
00755                                                                   DTSBD314
00756      PERFORM S061-LOOKUP-FLD-REP-ID THRU S061-EXIT.               DTSBD314
00757                                                                   DTSBD314
00758 *****IF L061-FLD-DESK-88                                          DTSBD314
00759 *********SET MFAS-FLD-REP-FIELD-DESK-88 TO TRUE                   DTSBD314
00760 *****ELSE                                                         DTSBD314
00761 *********MOVE L061-FLD-REP-ID TO MFAS-FLD-REP-ID.                 DTSBD314
00762                                                                   DTSBD314
00763      IF FFAT-ACCOUNTING-DESK-YES-88                               DTSBD314
00764          SET MFAS-FLD-REP-ACCTNG-DESK-88 TO TRUE                  DTSBD314
00765      ELSE                                                         DTSBD314
00766          SET MFAS-FLD-REP-FIELD-DESK-88 TO TRUE.                  DTSBD314
00767                                                                   DTSBD314
00768      MOVE FFAT-TYPE TO MFAS-ASSIGN-TYPE.                          DTSBD314
00769                                                                   DTSBD314
00770      MOVE FFAT-DEFAULT-ATTACH-IND TO MFAS-ATTACHMENTS-IND.        DTSBD314
00771                                                                   DTSBD314
00772      MOVE FFAT-AUDIT-IND TO MFAS-AUDIT-IND.                       DTSBD314
00773                                                                   DTSBD314
00774      MOVE FFAT-ACCOUNTING-DESK-IND                                DTSBD314
00775        TO MFAS-ACCOUNTING-DESK-IND.                               DTSBD314
00776                                                                   DTSBD314
00777      MOVE LBCM-CURR-MAIL-DATE TO MFAS-START-DATE.                 DTSBD314
00778                                                                   DTSBD314
00779      MOVE WRK-ASSIGN-DUE-DATE TO MFAS-DUE-DATE.                   DTSBD314
00780                                                                   DTSBD314
00781      MOVE +0 TO MFAS-COMPLETED-DATE                               DTSBD314
00782                 MFAS-PROCESSED-DATE                               DTSBD314
00783                 MFAS-TAX-DOWNLOAD-DATE                            DTSBD314
00784                 MFAS-WAGE-DOWNLOAD-DATE.                          DTSBD314
00785                                                                   DTSBD314
00786      MOVE WRK-OP-ID TO MFAS-SOURCE-OP-ID.                         DTSBD314
00787                                                                   DTSBD314
00788      MOVE MERA-CLAIMANT-SSN TO MFAS-CLAIMANT-SSN.                 DTSBD314
00789                                                                   DTSBD314
00790      MOVE MERA-CLAIMANT-NAME TO MFAS-CLAIMANT-NAME.               DTSBD314
00791                                                                   DTSBD314
00792      MOVE MERA-POT-PRED-EMP-NO TO MFAS-RELATED-EMP-NO.            DTSBD314
00793                                                                   DTSBD314
00794      MOVE +0 TO MFAS-START-YRQ                                    DTSBD314
00795                 MFAS-END-YRQ.                                     DTSBD314
00796                                                                   DTSBD314
00797      MOVE MPRF-SIC-CD TO MFAS-SIC-CD.                             DTSBD314
00798                                                                   DTSBD314
00799      MOVE MPRF-NAICS-CD TO MFAS-NAICS-CD.                         DTSBD314
00800                                                                   DTSBD314
00801      MOVE MPRF-OWN-CD TO MFAS-OWN-CD.                             DTSBD314
00802                                                                   DTSBD314
00803      SET MFAS-EMP-NON-AUDIT-88 TO TRUE.                           DTSBD314
00804                                                                   DTSBD314
00805      MOVE +0 TO MFAS-SEL-CNT.                                     DTSBD314
00806                                                                   DTSBD314
00807      SET MFAS-NOT-CONVERTED-88 TO TRUE.                           DTSBD314
00808                                                                   DTSBD314
00809      MOVE LBCM-CURR-RUN-DATE TO MFAS-ESTB-DATE                    DTSBD314
00810                                 MFAS-CHNG-DATE.                   DTSBD314
00811                                                                   DTSBD314
00812      MOVE +1 TO MFAS-TEXT-CNT.                                    DTSBD314
00813                                                                   DTSBD314
00814      MOVE                                                         DTSBD314
00815       'ASSIGNMENT GENERATED BY EMPLOYER REGISTRATION CYCLE A'     DTSBD314
00816        TO MFAS-TEXT (1).                                          DTSBD314
00817                                                                   DTSBD314
00818      MOVE MFAS-REC TO MSKL-REC.                                   DTSBD314
00819                                                                   DTSBD314
00820      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD314
00821                                                                   DTSBD314
00822      SET MPRF-MFAS-EXISTS-88 TO TRUE.                             DTSBD314
00823                                                                   DTSBD314
00824      PERFORM S3100-WRITE-MEVL THRU S3100-EXIT.                    DTSBD314
00825  P3600-EXIT.                                                      DTSBD314
00826      EXIT.                                                        DTSBD314
00827      EJECT                                                        DTSBD314
00828  P4000-GENERATE-TICKLER.                                          DTSBD314
00829      PERFORM S4000-INITIALIZE-MTCK THRU S4000-EXIT.               DTSBD314
00830                                                                   DTSBD314
00831      SET MTCK-TYPE-CYCLE-A-88 TO TRUE.                            DTSBD314
00832                                                                   DTSBD314
00833      IF MERA-STATUS-LTR1-88                                       DTSBD314
00834          MOVE MERA-MAIL-DATE-1 TO L001-FED-8-DATE-9               DTSBD314
00835          PERFORM S1000-ADD-30-DAYS THRU S1000-EXIT                DTSBD314
00836          MOVE L001-FED-8-DATE-9 TO MTCK-TRIGGER-DATE              DTSBD314
00837      ELSE                                                         DTSBD314
00838      IF MERA-STATUS-LTR2-88                                       DTSBD314
00839          MOVE MERA-MAIL-DATE-2 TO L001-FED-8-DATE-9               DTSBD314
00840          PERFORM S1000-ADD-15-DAYS THRU S1000-EXIT                DTSBD314
00841          MOVE L001-FED-8-DATE-9 TO MTCK-TRIGGER-DATE              DTSBD314
00842      ELSE                                                         DTSBD314
00843      IF MERA-STATUS-SETUP-88                                      DTSBD314
00844          IF MPRF-CLASS-CHG-ONLY-88                                DTSBD314
00845               GO TO P4000-EXIT                                    DTSBD314
00846          ELSE                                                     DTSBD314
00847              MOVE LBCM-CURR-MAIL-DATE TO MTCK-TRIGGER-DATE        DTSBD314
00848      ELSE                                                         DTSBD314
00849      IF MERA-STATUS-ASSGN-GEN-88                                  DTSBD314
00850          IF MERA-FIELD-ASSIGN-DATE = 0                            DTSBD314
00851              MOVE LBCM-CURR-MAIL-DATE TO MTCK-TRIGGER-DATE        DTSBD314
00852          ELSE                                                     DTSBD314
00853              CONTINUE                                             DTSBD314
00854      ELSE                                                         DTSBD314
00855          CONTINUE.                                                DTSBD314
00856                                                                   DTSBD314
00857                                                                   DTSBD314
00858      IF MTCK-TRIGGER-DATE = +0                                    DTSBD314
00859           GO TO P4000-EXIT.                                       DTSBD314
00860                                                                   DTSBD314
00861                                                                   DTSBD314
00862      SET MTCK-DEST-SYSTEM-88 TO TRUE.                             DTSBD314
00863                                                                   DTSBD314
00864      MOVE MTCK-REC TO MSKL-REC.                                   DTSBD314
00865                                                                   DTSBD314
00866      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD314
00867  P4000-EXIT. EXIT.                                                DTSBD314
00868      EJECT                                                        DTSBD314
00869  P4100-GENERATE-LABEL.                                            DTSBD314
00870 *&                                                                DTSBD314
00871      DISPLAY 'BD314 P4100 ' MPRF-EMP-NO                           DTSBD314
00872         '  CNT ' MERA-LABEL-CNT '  WRK ' WRK-LABEL-CNT.           DTSBD314
00873 *&                                                                DTSBD314
00874                                                                   DTSBD314
00875        MOVE MERA-RESPONSIBLE-OP-ID TO WRK-OP-ID.                  DTSBD314
00876                                                                   DTSBD314
00877        MOVE WRK-LABEL-CNT         TO R901-LABEL-CNT.              DTSBD314
00878        SET R901-EMP-REG-A-88      TO TRUE.                        DTSBD314
00879        MOVE LOW-VALUE             TO R901-SORT-VAR-AREA.          DTSBD314
00880        MOVE WRK-OP-ID             TO R901-GRP2-OP-ID.             DTSBD314
00881        MOVE WRK-EMP-NO            TO R901-GRP2-EMP-NO             DTSBD314
00882                                      R901-EMP-NO.                 DTSBD314
00883        MOVE L112-MAILING-ADDRESS  TO R901-FMT-ADDR.               DTSBD314
00884        MOVE L112-ZIP              TO R901-ZIP.                    DTSBD314
00885        MOVE L112-ADVANCED-BARCODE TO R901-ADVANCED-BARCODE.       DTSBD314
00886        MOVE R901-REC              TO RSKL-REC.                    DTSBD314
00887        PERFORM S946-RPT-O         THRU S946-EXIT.                 DTSBD314
00888                                                                   DTSBD314
00889        MOVE ZEROS                 TO WRK-LABEL-CNT.               DTSBD314
00890                                                                   DTSBD314
00891  P4100-EXIT. EXIT.                                                DTSBD314
00892      EJECT                                                        DTSBD314
00893      SKIP3                                                        DTSBD314
00894  S001-CONVERT-DATE.                                               DTSBD314
00895      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD314
00896  S001-EXIT. EXIT.                                                 DTSBD314
00897      SKIP3                                                        DTSBD314
00898  S004-FROM-ABS.                                                   DTSBD314
00899      SET L004-FROM-ABS TO TRUE.                                   DTSBD314
00900      GO TO S004-CONVERT-YRQ.                                      DTSBD314
00901                                                                   DTSBD314
00902  S004-FROM-DATE.                                                  DTSBD314
00903      SET L004-FROM-DATE TO TRUE.                                  DTSBD314
00904      GO TO S004-CONVERT-YRQ.                                      DTSBD314
00905                                                                   DTSBD314
00906  S004-CONVERT-YRQ.                                                DTSBD314
00907      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBD314
00908  S004-EXIT.                                                       DTSBD314
00909      EXIT.                                                        DTSBD314
00910      SKIP3                                                        DTSBD314
00911  S005-CONVERT-TIME.                                               DTSBD314
00912      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD314
00913  S005-EXIT. EXIT.                                                 DTSBD314
00914      SKIP3                                                        DTSBD314
00915  S061-LOOKUP-FLD-REP-ID.                                          DTSBD314
00916      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBD314
00917  S061-EXIT. EXIT.                                                 DTSBD314
00918      SKIP3                                                        DTSBD314
00919  S075-LOOKUP-COOP-AGENCY.                                         DTSBD314
00920      CALL 'DTSBU075' USING L075-LINK-AREA.                        DTSBD314
00921  S075-EXIT. EXIT.                                                 DTSBD314
00922      SKIP3                                                        DTSBD314
00923  S111-LOOKUP-ADDRESS.                                             DTSBD314
00924      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBD314
00925  S111-EXIT. EXIT.                                                 DTSBD314
00926      SKIP3                                                        DTSBD314
00927  S112-FORMAT-ADDRESS.                                             DTSBD314
00928      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBD314
00929  S112-EXIT. EXIT.                                                 DTSBD314
00930      EJECT                                                        DTSBD314
00931  S910-READ.                                                       DTSBD314
00932      SET L910-READ-88 TO TRUE.                                    DTSBD314
00933      GO TO S910-MSTR-IO.                                          DTSBD314
00934                                                                   DTSBD314
00935  S910-START-BROWSE.                                               DTSBD314
00936      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD314
00937      GO TO S910-MSTR-IO.                                          DTSBD314
00938                                                                   DTSBD314
00939  S910-READ-NEXT.                                                  DTSBD314
00940      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD314
00941      GO TO S910-MSTR-IO.                                          DTSBD314
00942                                                                   DTSBD314
00943  S910-WRITE.                                                      DTSBD314
00944      SET L910-WRITE-88 TO TRUE.                                   DTSBD314
00945      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD314
00946      GO TO S910-MSTR-IO.                                          DTSBD314
00947                                                                   DTSBD314
00948  S910-REWRITE.                                                    DTSBD314
00949      SET L910-REWRITE-88 TO TRUE.                                 DTSBD314
00950      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD314
00951      GO TO S910-MSTR-IO.                                          DTSBD314
00952                                                                   DTSBD314
00953  S910-DELETE.                                                     DTSBD314
00954      SET L910-DELETE-88 TO TRUE.                                  DTSBD314
00955      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD314
00956      GO TO S910-MSTR-IO.                                          DTSBD314
00957                                                                   DTSBD314
00958  S910-MSTR-IO.                                                    DTSBD314
00959      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD314
00960                            MSKL-REC.                              DTSBD314
00961  S910-EXIT. EXIT.                                                 DTSBD314
00962      SKIP3                                                        DTSBD314
00963  S931-READ.                                                       DTSBD314
00964      SET L931-READ-88 TO TRUE.                                    DTSBD314
00965      GO TO S931-REF-IO.                                           DTSBD314
00966                                                                   DTSBD314
00967  S931-START-BROWSE.                                               DTSBD314
00968      SET L931-START-BROWSE-88 TO TRUE.                            DTSBD314
00969      GO TO S931-REF-IO.                                           DTSBD314
00970                                                                   DTSBD314
00971  S931-READ-NEXT.                                                  DTSBD314
00972      SET L931-READ-NEXT-88 TO TRUE.                               DTSBD314
00973      GO TO S931-REF-IO.                                           DTSBD314
00974                                                                   DTSBD314
00975  S931-REF-IO.                                                     DTSBD314
00976      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBD314
00977                            FSKL-REC.                              DTSBD314
00978  S931-EXIT. EXIT.                                                 DTSBD314
00979      SKIP3                                                        DTSBD314
00980  S946-RPT-O.                                                      DTSBD314
00981      CALL 'DTSBU946' USING RSKL-REC.                              DTSBD314
00982  S946-EXIT. EXIT.                                                 DTSBD314
00983      SKIP3                                                        DTSBD314
00984  S999-ABEND.                                                      DTSBD314
00985      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD314
00986  S999-EXIT. EXIT.                                                 DTSBD314
00987      EJECT                                                        DTSBD314
00988  S1000-ADD-15-DAYS.                                               DTSBD314
00989      SET ADD-15-DAYS TO TRUE.                                     DTSBD314
00990      GO TO S1000-PAST-FUTURE.                                     DTSBD314
00991                                                                   DTSBD314
00992  S1000-ADD-30-DAYS.                                               DTSBD314
00993      SET ADD-30-DAYS TO TRUE.                                     DTSBD314
00994      GO TO S1000-PAST-FUTURE.                                     DTSBD314
00995                                                                   DTSBD314
00996  S1000-PAST-FUTURE.                                               DTSBD314
00997 *--------------------------------------------------------         DTSBD314
00998 * INPUTS TO THIS ROUTINE: L001-FED-8-DATE-9, WRK-NN-DAYS.         DTSBD314
00999 *--------------------------------------------------------         DTSBD314
01000      SET L001-FROM-FED-8 TO TRUE.                                 DTSBD314
01001                                                                   DTSBD314
01002      PERFORM S001-CONVERT-DATE THRU S001-EXIT.                    DTSBD314
01003                                                                   DTSBD314
01004      IF L001-INVALID-DATE                                         DTSBD314
01005          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD314
01006                                                                   DTSBD314
01007                                                                   DTSBD314
01008      ADD WRK-NN-DAYS TO L001-JUL-ABS-DAY.                         DTSBD314
01009                                                                   DTSBD314
01010      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBD314
01011                                                                   DTSBD314
01012      PERFORM S001-CONVERT-DATE THRU S001-EXIT.                    DTSBD314
01013                                                                   DTSBD314
01014      IF L001-INVALID-DATE                                         DTSBD314
01015          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD314
01016  S1000-EXIT. EXIT.                                                DTSBD314
01017      EJECT                                                        DTSBD314
01018  S2000-GET-DEFAULT-ADDRESS.                                       DTSBD314
01019      MOVE WRK-EMP-NO TO L111-EMP-NO.                              DTSBD314
01020                                                                   DTSBD314
01021      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBD314
01022                                                                   DTSBD314
01023      SET L111-ID-NO-TAD-MAIL-88 TO TRUE.                          DTSBD314
01024                                                                   DTSBD314
01025      PERFORM S111-LOOKUP-ADDRESS THRU S111-EXIT.                  DTSBD314
01026                                                                   DTSBD314
01027      IF L111-ADDR-FOUND-88                                        DTSBD314
01028          NEXT SENTENCE                                            DTSBD314
01029      ELSE                                                         DTSBD314
01030          MOVE SPACE TO L112-NAME-ADDRESS-AREA                     DTSBD314
01031          MOVE ALL '?' TO L112-MAILING-ADDRESS                     DTSBD314
01032          GO TO S2000-EXIT.                                        DTSBD314
01033                                                                   DTSBD314
01034      MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME.                 DTSBD314
01035                                                                   DTSBD314
01036      MOVE LOW-VALUES TO L112-NAME-ADDRESS-AREA.                   DTSBD314
01037                                                                   DTSBD314
01038      SET L112-TAD-ADDR-88 TO TRUE.                                DTSBD314
01039                                                                   DTSBD314
01040      SET L112-ANCHOR-LAST-88 TO TRUE.                             DTSBD314
01041                                                                   DTSBD314
01042      MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA.             DTSBD314
01043                                                                   DTSBD314
01044      PERFORM S112-FORMAT-ADDRESS THRU S112-EXIT.                  DTSBD314
01045  S2000-EXIT. EXIT.                                                DTSBD314
01046      EJECT                                                        DTSBD314
01047  S3000-WRITE-RPT-AND-MEVL.                                        DTSBD314
01048      PERFORM S946-RPT-O THRU S946-EXIT.                           DTSBD314
01049                                                                   DTSBD314
01050      PERFORM S3100-WRITE-MEVL THRU S3100-EXIT.                    DTSBD314
01051  S3000-EXIT. EXIT.                                                DTSBD314
01052      EJECT                                                        DTSBD314
01053  S3100-WRITE-MEVL.                                                DTSBD314
01054      MOVE LOW-VALUE TO MEVL-REC.                                  DTSBD314
01055                                                                   DTSBD314
01056      MOVE WRK-EMP-NO TO MEVL-EMP-NO.                              DTSBD314
01057                                                                   DTSBD314
01058      SET MEVL-EVL-88 TO TRUE.                                     DTSBD314
01059                                                                   DTSBD314
01060      ADD +1000 TO LBCM-EMP-ABSTIME.                               DTSBD314
01061                                                                   DTSBD314
01062      MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME.                       DTSBD314
01063                                                                   DTSBD314
01064      SET L005-FROM-ABSTIME TO TRUE.                               DTSBD314
01065                                                                   DTSBD314
01066      PERFORM S005-CONVERT-TIME THRU S005-EXIT.                    DTSBD314
01067                                                                   DTSBD314
01068      MOVE L005-DATE TO MEVL-DATE.                                 DTSBD314
01069                                                                   DTSBD314
01070      MOVE L005-TIME TO MEVL-TIME.                                 DTSBD314
01071                                                                   DTSBD314
01072      MOVE +0 TO MEVL-PURGE-DATE.                                  DTSBD314
01073                                                                   DTSBD314
01074      MOVE WRK-EVENT-TXT TO MEVL-TEXT.                             DTSBD314
01075                                                                   DTSBD314
01076      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD314
01077                                                                   DTSBD314
01078      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBD314
01079                                                                   DTSBD314
01080      MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE                    DTSBD314
01081                                 MEVL-CHNG-DATE.                   DTSBD314
01082                                                                   DTSBD314
01083      MOVE MEVL-REC TO MSKL-REC.                                   DTSBD314
01084                                                                   DTSBD314
01085      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD314
01086  S3100-EXIT. EXIT.                                                DTSBD314
01087      EJECT                                                        DTSBD314
01088  S4000-INITIALIZE-MTCK.                                           DTSBD314
01089      MOVE LOW-VALUE TO MTCK-REC.                                  DTSBD314
01090                                                                   DTSBD314
01091      MOVE WRK-EMP-NO TO MTCK-EMP-NO.                              DTSBD314
01092                                                                   DTSBD314
01093      SET MTCK-TCK-88 TO TRUE.                                     DTSBD314
01094                                                                   DTSBD314
01095      ADD +1 TO LBCM-EMP-ABSTIME.                                  DTSBD314
01096                                                                   DTSBD314
01097      MOVE LBCM-EMP-ABSTIME TO MTCK-ESTB-ABSTIME.                  DTSBD314
01098                                                                   DTSBD314
01099      MOVE +0 TO MTCK-PURGE-DATE.                                  DTSBD314
01100                                                                   DTSBD314
01101      INITIALIZE MTCK-DATA-AREA.                                   DTSBD314
01102                                                                   DTSBD314
01103      SET MTCK-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD314
01104                                                                   DTSBD314
01105      SET MTCK-NOT-CONVERTED-88 TO TRUE.                           DTSBD314
01106                                                                   DTSBD314
01107      MOVE LBCM-CURR-RUN-DATE TO MTCK-ESTB-DATE                    DTSBD314
01108                                 MTCK-CHNG-DATE.                   DTSBD314
01109  S4000-EXIT. EXIT.                                                DTSBD314
01110      EJECT                                                        DTSBD314
01111  S5000-R127-DATA-AREA.                                            DTSBD314
01112      MOVE SPACES TO R127-DATA-AREA.                               DTSBD314
01113                                                                   DTSBD314
01114                                                                   DTSBD314
01115      MOVE MPRF-FEIN TO R127-FEIN.                                 DTSBD314
01116                                                                   DTSBD314
01117      MOVE MERA-POT-PRED-EMP-NO TO R127-POT-PRED-EMP-NO.           DTSBD314
01118                                                                   DTSBD314
01119      MOVE MPRF-PRIMARY-NAME TO R127-PRIMARY-NAME.                 DTSBD314
01120                                                                   DTSBD314
01121      MOVE MPRF-ENTITY-NAME TO R127-ENTITY-NAME.                   DTSBD314
01122                                                                   DTSBD314
01123                                                                   DTSBD314
01124      MOVE LOW-VALUES TO MTAD-KEY-AREA.                            DTSBD314
01125                                                                   DTSBD314
01126      MOVE WRK-EMP-NO TO MTAD-EMP-NO.                              DTSBD314
01127                                                                   DTSBD314
01128      SET MTAD-TAD-88 TO TRUE.                                     DTSBD314
01129                                                                   DTSBD314
01130      SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE.                     DTSBD314
01131                                                                   DTSBD314
01132      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD314
01133                                                                   DTSBD314
01134      PERFORM S910-READ THRU S910-EXIT.                            DTSBD314
01135                                                                   DTSBD314
01136      IF L910-OK-88                                                DTSBD314
01137          MOVE MSKL-REC TO MTAD-REC                                DTSBD314
01138          MOVE MTAD-ADDRESS TO R127-MAILING-ADDRESS                DTSBD314
01139          MOVE MTAD-VOICE-1 TO R127-MAILING-VOICE-1                DTSBD314
01140          MOVE MTAD-FAX TO R127-MAILING-FAX                        DTSBD314
01141          MOVE MTAD-EMAIL-ADDRESS TO R127-MAILING-EMAIL-ADDRESS.   DTSBD314
01142                                                                   DTSBD314
01143                                                                   DTSBD314
01144      MOVE LOW-VALUES TO MTAD-KEY-AREA.                            DTSBD314
01145                                                                   DTSBD314
01146      MOVE WRK-EMP-NO TO MTAD-EMP-NO.                              DTSBD314
01147                                                                   DTSBD314
01148      SET MTAD-TAD-88 TO TRUE.                                     DTSBD314
01149                                                                   DTSBD314
01150      SET MTAD-ID-TAX-RECORDS-ADDR-88 TO TRUE.                     DTSBD314
01151                                                                   DTSBD314
01152      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD314
01153                                                                   DTSBD314
01154      PERFORM S910-READ THRU S910-EXIT.                            DTSBD314
01155                                                                   DTSBD314
01156      IF L910-OK-88                                                DTSBD314
01157          MOVE MSKL-REC TO MTAD-REC                                DTSBD314
01158          MOVE MTAD-ADDRESS TO R127-STREET-ADDRESS                 DTSBD314
01159          MOVE MTAD-VOICE-1 TO R127-STREET-VOICE-1                 DTSBD314
01160          MOVE MTAD-FAX TO R127-STREET-FAX.                        DTSBD314
01161  S5000-EXIT.                                                      DTSBD314
01162      EXIT.                                                        DTSBD314
01163      EJECT                                                        DTSBD314
01164  S6000-FLD-REP-FOR-ZIP.                                           DTSBD314
01165      MOVE LOW-VALUES TO FFAZ-KEY-AREA.                            DTSBD314
01166                                                                   DTSBD314
01167      SET FFAZ-FAZ-88 TO TRUE.                                     DTSBD314
01168                                                                   DTSBD314
01169      MOVE MPRF-FLD-ZIP TO FFAZ-FLD-TERRITORY.                     DTSBD314
01170                                                                   DTSBD314
01171      MOVE FFAZ-KEY-AREA TO FSKL-KEY-AREA.                         DTSBD314
01172                                                                   DTSBD314
01173      PERFORM S931-READ THRU S931-EXIT.                            DTSBD314
01174                                                                   DTSBD314
01175      IF L931-OK-88                                                DTSBD314
01176          SET WRK-FLD-REP-FOR-ZIP-YES-88 TO TRUE.                  DTSBD314
01177  S6000-EXIT.                                                      DTSBD314
01178      EXIT.                                                        DTSBD314
