00001  IDENTIFICATION DIVISION.                                         11/11/02
00002  PROGRAM-ID.             DTSBD360.                                DTSBD360
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV022
00004  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBD360
00005  DATE-COMPILED.                                                   DTSBD360
00006      SKIP3                                                        DTSBD360
00007 *****                                                             DTSBD360
00008 *                                                                 DTSBD360
00009 *    FUNCTION:  DAILY UC-30 PRINTING EVALUATION.                  DTSBD360
00010 *                                                                 DTSBD360
00011 *                                                                 DTSBD360
00012 *    MODIFICATION LOG:                                            DTSBD360
00013 *                                                                 DTSBD360
00014 *    09/06/94  INITIAL DEVELOPMENT.                               DTSBD360
00015 *              WORK ORDER:                      PROGRAMMER: RHC   DTSBD360
00016 *                                                                 DTSBD360
00017 *    03/13/95  DON'T PRINT R109 WHEN NO IN-STATE FIELD REP.       DTSBD360
00018 *              WORK ORDER: CR049                PROGRAMMER: RHC   DTSBD360
00019 *                                                                 DTSBD360
00020 *    05/29/96  MODIFIED TO PROCESS CICS ELECTRONIC FILER REQUESTS DTSBD360
00021 *              CAUSING AN INDICATOR IN 902 REPORT REC FOR UC30.   DTSBD360
00022 *              WORK ORDER: NONE                 PROGRAMMER: SFW   DTSBD360
00023 *                                                                 DTSBD360
00024 *    06-17-96  ADDED SEPARATE ERROR MESSAGE FOR ELECTRONIC FILE-  DTSBD360
00025 *              ERS WHO DON'T FILE TAX REPORTS ELECTRONICALLY.     DTSBD360
00026 *              WORK ORDER: WARP II              PROGRAMMER: MJA   DTSBD360
00027 *                                                                 DTSBD360
00028 *    07/23/96  ADDED T036-ELF-ADD AS VALID TRANSACTION TYPE TO    DTSBD360
00029 *              ALLOW UC-30E'S TO PRINT INSTEAD OF FALLING INTO    DTSBD360
00030 *              MSG1-INVALID-TRN-CD PROCESSING...                  DTSBD360
00031 *              REFERENCE RFP: #BUG              PROGRAMMER: MJA   DTSBD360
00032 *                                                                 DTSBD360
00033 *    08/05/96  ADDED R902-ELF-ADD-88 TO DAILY SORT IN DTSIR902.   DTSBD360
00034 *              ADDED CODE IN P1100-SET-START-YRQ TO PREVENT 902   DTSBD360
00035 *              GENERATION FOR T036-ELF-ADD WHEN THE START-YRQ >   DTSBD360
00036 *              LBCM-LAST-UC30-MASS-MAIL-YRQ.                      DTSBD360
00037 *              REFERENCE RFP: #BUG              PROGRAMMER: MJA   DTSBD360
00038 *                                                                 DTSBD360
00039 *    01/16/1999  REVIEWED AND MODIFIED FOR DC.                    DTSBD360
00040 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD360
00041 *                                                                 DTSBD360
00042 *    02/27/1999  MODIFIED FOR DC SELF INSURED DEFAULT TAX DUE     DTSBD360
00043 *                DATE REQUIREMENT.                                DTSBD360
00044 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD360
00045 *                                                                 DTSBD360
00046 *    05/13/1999  DO NOT PROCESS YEAR/QUARTERS LESS THAN OR        DTSBD360
00047 *                EQUAL TO LBCM-PICKUP-YRQ.                        DTSBD360
00048 *                REFERENCE: PICKUP DIR          PROGRAMMER: EHH   DTSBD360
00049 *                                                                 DTSBD360
00050 *    06/03/1999  MODFIED R902 GENERATION FOR DC REQUIREMENTS      DTSBD360
00051 *                REFERENCE: DIR 68              PROGRAMMER: GD    DTSBD360
00052 *                                                                 DTSBD360
00053 *    08/26/1999  MODIFIED ADDRESS LOOKUP LOGIC TO CORRESPOND TO   DTSBD360
00054 *                T036-ADDR-TYPE LEVEL 88 ENTRIES - WHICH WERE     DTSBD360
00055 *                CHANGED ON SOME UNKOWN DATE AFTER 06/03/1999.    DTSBD360
00056 *                REFERENCE: BUG FIX             PROGRAMMER: EHH   DTSBD360
00057 *                                                                 DTSBD360
00058 *    08/14/2002  RECOMPILED TO GET NEW VERSION OF DTSIL516        DTSBD360
00059 *                REFERENCE: HOUSEHOLD           PROGRAMMER: GD    DTSBD360
00060 *                                                                 DTSBD360
00061 *    08/30/2002  RECOMPILED TO GET NEW VERSION OF DTSIR910,       DTSBD360
00062 *                ADDED CODE TO LIST SSNS ON UC30H REPORT.         DTSBD360
00063 *                REFERENCE: HOUSEHOLD           PROGRAMMER: ZL1   DTSBD360
00064 *                                                                 DTSBD360
00065 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD360
00066 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD360
00067 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD360
00068 *                                                                 DTSBD360
00069 *                                                                 DTSBD360
00070 *  DESCRIPTION:                                                   DTSBD360
00071 *                                                                 DTSBD360
00072 *      GENERATES UC-30 REPORT RECORDS FOR A RANGE OF QUARTERS     DTSBD360
00073 *      (T036-START-YRQ THRU T036-END-YRQ).                        DTSBD360
00074 *                                                                 DTSBD360
00075 *                                                                 DTSBD360
00076 *      DETERMINE WRK-START-YRQ:                                   DTSBD360
00077 *                                                                 DTSBD360
00078 *        IF T036-START-YRQ NOT = 0                                DTSBD360
00079 *          MOVE T036-START-YRQ TO WRK-START-YRQ                   DTSBD360
00080 *        ELSE                                                     DTSBD360
00081 *          MOVE SMALLEST OF MSOL-LIAB-YRQ TO WRK-START-YRQ.       DTSBD360
00082 *                                                                 DTSBD360
00083 *        IF WRK-START-YRQ > MPRF-LAST-ARCHIVED-YRQ                DTSBD360
00084 *          NEXT SENTENCE                                          DTSBD360
00085 *        ELSE                                                     DTSBD360
00086 *          MOVE MPRF-LAST-ARCHIVED-YRQ + 1 TO WRK-START-YRQ.      DTSBD360
00087 *                                                                 DTSBD360
00088 *                                                                 DTSBD360
00089 *      DETERMINE WRK-END-YRQ:                                     DTSBD360
00090 *                                                                 DTSBD360
00091 *        IF T036-END-YRQ NOT (= 0 OR 99999)                       DTSBD360
00092 *          MOVE T036-END-YRQ TO WRK-END-YRQ                       DTSBD360
00093 *        ELSE                                                     DTSBD360
00094 *          MOVE LARGEST OF CLOSED LIABILITY SPAN                  DTSBD360
00095 *            MSOL-LAST-LIAB-YRQ OR (IF AN OPEN LIABILITY SPAN     DTSBD360
00096 *            EXISTS) LBCM-LAST-UC30-MASS-MAIL-YRQ TO WRK-END-YRQ. DTSBD360
00097 *                                                                 DTSBD360
00098 *                                                                 DTSBD360
00099 *      LOCATE ADDRESS:                                            DTSBD360
00100 *                                                                 DTSBD360
00101 *        IF T036-REQUEST                                          DTSBD360
00102 *            LOCATE AND FORMAT ADDRESS SPECIFIED BY               DTSBD360
00103 *            T036-ADDR-TYPE AND T036-ADDR-NO:                     DTSBD360
00104 *            IF ADDRESS NOT FOUND                                 DTSBD360
00105 *                FAIL TRANSACTION                                 DTSBD360
00106 *            ELSE                                                 DTSBD360
00107 *                CONTINUE                                         DTSBD360
00108 *        ELSE                                                     DTSBD360
00109 *            LOCATE AND FORMAT MPRF-TAX-ADDR-IND-9.               DTSBD360
00110 *                                                                 DTSBD360
00111 *                                                                 DTSBD360
00112 *      IF WRK-END-YRQ < WRK-START-YRQ                             DTSBD360
00113 *        MOVE WRK-START-YRQ TO WRK-END-YRQ.                       DTSBD360
00114 *                                                                 DTSBD360
00115 *      IF T036-ELF-ADD AND WRK-START-YRQ > LBCM-LAST-UC30-        DTSBD360
00116 *         MASS-MAIL-YRQ MOVE +0 TO WRK-START-YRQ.                 DTSBD360
00117 *                                                                 DTSBD360
00118 *                                                                 DTSBD360
00119 *      FOR EACH YRQ IN THE WRK-START-YRQ THRU WRK-END-YRQ RANGE:  DTSBD360
00120 *                                                                 DTSBD360
00121 *                                                                 DTSBD360
00122 *        USE HOLD-EMP-NO AND HOLD-YRQ-REPORTED-IND TO LIMIT       DTSBD360
00123 *        THE NUMBER OF R902 RECORDS GENERATED FOR A GIVEN         DTSBD360
00124 *        EMP-NO AND YRQ TO ONE.  IF GENERATION OF A SECOND        DTSBD360
00125 *        R902 RECORD IS REQUESTED, THEN WRITE A R907 TELLING      DTSBD360
00126 *        THE USERS ABOUT THE SITUATION, BUT DON'T GENERATE        DTSBD360
00127 *        ANOTHER R902.                                            DTSBD360
00128 *                                                                 DTSBD360
00129 *                                                                 DTSBD360
00130 *        IF T036-FORCE-PRINT                                      DTSBD360
00131 *          IF A RATE EXISTS (REGARDLESS OF EMPLOYER SUBJECTIVITY  DTSBD360
00132 *          IN THE QUARTER; IF SELF INSURED, DON'T CHECK FOR MISSINDTSBD360
00133 *          RATE)                                                  DTSBD360
00134 *            CONSTRUCT AND WRITE A R902 RECORD                    DTSBD360
00135 *          ELSE                                                   DTSBD360
00136 *            WRITE A R907 RECORD COMPLAINING ABOUT THE SITUATION. DTSBD360
00137 *                                                                 DTSBD360
00138 *       IF T036-NO-FORCE-PRINT                                    DTSBD360
00139 *         IF EMPLOYER IS SUBJECT IN THE QUARTER (CALL DTSBU516)   DTSBD360
00140 *           IF THE REPORT IS MISSING FOR THE YRQ (NO MQTR RECORD  DTSBD360
00141 *                                     OR NOT MQTR-CURR-RCVD-88)   DTSBD360
00142 *             IF A RATE EXISTS (IF SELF-INSURED, DON'T CHECK FOR  DTSBD360
00143 *             MISSING RATE)                                       DTSBD360
00144 *               CONSTRUCT AND WRITE A R902-RECORD                 DTSBD360
00145 *             ELSE                                                DTSBD360
00146 *               WRITE A R907 RECORD COMPLAINING ABOUT THE         DTSBD360
00147 *               SITUATION                                         DTSBD360
00148 *           ELSE                                                  DTSBD360
00149 *               NEXT SENTENCE                                     DTSBD360
00150 *         ELSE                                                    DTSBD360
00151 *              NEXT SENTENCE.                                     DTSBD360
00152 *                                                                 DTSBD360
00153 *                                                                 DTSBD360
00154 *        SEE THE OUTPUT DESCRIPTION FOR INSTRUCTIONS ON           DTSBD360
00155 *        CONSTRUCTING THE R902 RECORD.  A COUPLE OF HINTS:        DTSBD360
00156 *                                                                 DTSBD360
00157 *         .  R902-DAILY-WAIVER-* DATA ELEMENTS SHOULD BE ZEROED   DTSBD360
00158 *            WHEN THE R902 RECORD DOES NOT REPRESENT A QUARTER    DTSBD360
00159 *            WITHIN T036-WAIVER-START-YRQ THRU T036-WAIVER-END-YRQDTSBD360
00160 *                                                                 DTSBD360
00161 *         .  IF A MQTR RECORD EXISTS, THEN MOVE MQTR-RPT-DUE-DATE DTSBD360
00162 *            TO R902-RPT-DUE-DATE ELSE MOVE L516-DEFAULT-DUE-DATE DTSBD360
00163 *            TO R902-RPT-DUE-DATE.                                DTSBD360
00164 *                                                                 DTSBD360
00165 *         .  IF MQTR-CURR-RCVD-88 (WILL ONLY OCCUR WHEN           DTSBD360
00166 *            T036-FORCE-PRINT) THEN SET R902-DAILY-SUPL-YES-88    DTSBD360
00167 *            TO TRUE; ELSE MOVE SPACES TO R902-DAILY-SUPPLEMENTAL DTSBD360
00168 *            -IND.                                                DTSBD360
00169 *                                                                 DTSBD360
00170 *         .  MOVE T036-RESP-OP-ID TO R902-DAILY-OP-ID.            DTSBD360
00171 *                                                                 DTSBD360
00172 *         .  READ FCYR RECORD FOR THE TAXABLE WAGE BASE.  IF FCYR DTSBD360
00173 *            RECORD NOT FOUND, WRITE AN R907 COMPLAINING AND      DTSBD360
00174 *            DON'T WRITE A R902 RECORD.  (REGULAR ONLY.)          DTSBD360
00175 *                                                                 DTSBD360
00176 *      --------------------------------------------------------   DTSBD360
00177 *                                                                 DTSBD360
00178 *      NOTES FOR GENERATION OF R109.                              DTSBD360
00179 *                                                                 DTSBD360
00180 *                                                                 DTSBD360
00181 *      .  IF NOT T036-LIAB-DETER, THEN BYPASS R109 PROCESSING.    DTSBD360
00182 *                                                                 DTSBD360
00183 *      .  LOOK FOR A MSOL RECORD WITH T036-START-YRQ WITHIN       DTSBD360
00184 *         MSOL-FIRST-LIAB-YRQ THRU MSOL-LAST-LIAB-YRQ AND         DTSBD360
00185 *         MSOL-ESTB-DATE = LBCM-CURR-RUN-DATE.                    DTSBD360
00186 *         IF SUCH A MSOL IS FOUND, IT BECOMES THE "SUBJECT" MSOL  DTSBD360
00187 *         AND R109-PROCESSING CONTINUES.                          DTSBD360
00188 *                                                                 DTSBD360
00189 *      .  IF SUCH A MSOL IS NOT FOUND, THEN R109 PROCESSING ENDS  DTSBD360
00190 *         (WRITE A R907 RECORD REPORTING THE SITUATION).          DTSBD360
00191 *                                                                 DTSBD360
00192 *      MOVE +0 TO R109-YRQ-COUNT.                                 DTSBD360
00193 *                                                                 DTSBD360
00194 *      BROWSE THE MQTR-RECORDS FROM MSOL-FIRST-LIAB-YRQ THRU      DTSBD360
00195 *      MSOL-LAST-LIAB-YRQ (OR L910-NO-REC-88 ON THE READ NEXT).   DTSBD360
00196 *                                                                 DTSBD360
00197 *      IF MQTR-RPT-IS-PURSUED-88, THEN                            DTSBD360
00198 *        ADD +1 TO R109-YRQ-COUNT                                 DTSBD360
00199 *        MOVE MQTR-YRQ TO R109-YRQ.  (IF R109-YRQ-CNT NEEDS TO    DTSBD360
00200 *        EXCEED 24, DON'T UPDATE R109; WRITE R907 - RARER THAN    DTSBD360
00201 *        HENS TEETH.)                                             DTSBD360
00202 *                                                                 DTSBD360
00203 *      IF R109-YRQ-CNT > +0                                       DTSBD360
00204 *        CONSTRUCT THE REMAINDER OF THE R109 RECORD AND WRITE THE DTSBD360
00205 *        R109 RECORD                                              DTSBD360
00206 *      ELSE                                                       DTSBD360
00207 *        NO R109 RECORD IS WRITTEN.                               DTSBD360
00208 *                                                                 DTSBD360
00209 *                                                                 DTSBD360
00210 *      R109 CONSTRUCTION HINTS:                                   DTSBD360
00211 *                                                                 DTSBD360
00212 *       .  MOVE T036-RESP-OP-ID TO R109-OP-ID.                    DTSBD360
00213 *                                                                 DTSBD360
00214 *       .  MOVE T036-WAIVER-* TO R109-WAIVER-*.                   DTSBD360
00215 *                                                                 DTSBD360
00216 *       .  CALL DTSBU061 TO DETERMINE R109-FLD-REP-ID.            DTSBD360
00217 *                                                                 DTSBD360
00218 *                                                                 DTSBD360
00219 *                                                                 DTSBD360
00220 *                                                                 DTSBD360
00221 *      MASTER FILE RECORDS READ:                                  DTSBD360
00222 *                                                                 DTSBD360
00223 *        MSOL                                                     DTSBD360
00224 *        MQTR                                                     DTSBD360
00225 *                                                                 DTSBD360
00226 *                                                                 DTSBD360
00227 *      REFERENCE FILE RECORDS READ:                               DTSBD360
00228 *                                                                 DTSBD360
00229 *        FCYR                                                     DTSBD360
00230 *                                                                 DTSBD360
00231 *                                                                 DTSBD360
00232 *      MASTER FILE RECORDS UPDATED:                               DTSBD360
00233 *                                                                 DTSBD360
00234 *        MEVL (WRITE)                                             DTSBD360
00235 *                                                                 DTSBD360
00236 *                                                                 DTSBD360
00237 *      REPORT RECORDS WRITTEN:                                    DTSBD360
00238 *                                                                 DTSBD360
00239 *        R109  NOTICE OF MISSING WAGE REPORTS                     DTSBD360
00240 *        R902  QUARTERLY REPORT (UC-30).                          DTSBD360
00241 *        R907  ERROR.                                             DTSBD360
00242 *                                                                 DTSBD360
00243 *                                                                 DTSBD360
00244 *      MODULES CALLED:                                            DTSBD360
00245 *                                                                 DTSBD360
00246 *        DTSBU004 QUARTER CONVERSION/EDIT.                        DTSBD360
00247 *        DTSBU005 TIME CONVERSION/EDIT.                           DTSBD360
00248 *        DTSBU061 FIELD ZIP/FIELD REP ID LOOKUP.                  DTSBD360
00249 *        DTSBU111 ADDRESS LOOKUP.                                 DTSBD360
00250 *        DTSBU112 ADDRESS FORMAT.                                 DTSBD360
00251 *        DTSBU516 DETERMINE LIABILITY, DUE DATE, AND RATE FOR A   DTSBD360
00252 *                 GIVEN QUARTER.                                  DTSBD360
00253 *        DTSBU910 MASTER FILE I/O DRIVER.                         DTSBD360
00254 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1.     DTSBD360
00255 *                                                                 DTSBD360
00256 *                                                                 DTSBD360
00257 *****                                                             DTSBD360
00258      SKIP3                                                        DTSBD360
00259  ENVIRONMENT DIVISION.                                            DTSBD360
00260      EJECT                                                        DTSBD360
00261  DATA DIVISION.                                                   DTSBD360
00262      SKIP3                                                        DTSBD360
00263  WORKING-STORAGE SECTION.                                         DTSBD360
002635 77  PAN-VALET PICTURE X(24) VALUE '022DTSBD360  11/11/02'.       DTSBD360
00264      SKIP3                                                        DTSBD360
00265  01  WRK-AREA.                                                    DTSBD360
00266      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +360.DTSBD360
00267                                                                   DTSBD360
00268      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD360'.DTSBD360
00269                                                                   DTSBD360
00270      05  WRK-ELECTRNIC-WAGE-FILER-IND PIC  X(01).                 DTSBD360
00271          88  WRK-ELECTRNIC-WAGES-YES-88      VALUE 'Y'.           DTSBD360
00272          88  WRK-ELECTRNIC-WAGES-NO-88       VALUE 'N'.           DTSBD360
00273                                                                   DTSBD360
00274      05  FIRST-TIME-IND              PIC  X(01)        VALUE 'Y'. DTSBD360
00275                                                                   DTSBD360
00276      05  YRQ-NINES-LIT               PIC S9(05)        COMP-3     DTSBD360
00277                                         VALUE +99999.             DTSBD360
00278                                                                   DTSBD360
00279      05  HOLD-EMP-NO                     PIC S9(07)       COMP-3. DTSBD360
00280                                                                   DTSBD360
00281      05  WRK-EMP-NO                 PIC S9(07)  COMP-3 VALUE +0.  DTSBD360
00282                                                                   DTSBD360
00283      05  WRK-PARM-SUBJECT-YRQ       PIC S9(05)  COMP-3.           DTSBD360
00284                                                                   DTSBD360
00285      05  WRK-PARM-PRIOR-YRQ         PIC S9(05)  COMP-3.           DTSBD360
00286                                                                   DTSBD360
00287      05  HOLD-YRQ-REPORTED-INDS.                                  DTSBD360
00288          10  FILLER   OCCURS 400 TIMES   PIC  X(01).              DTSBD360
00289              88  HOLD-YRQ-REPORTED-YES        VALUE 'Y'.          DTSBD360
00290              88  HOLD-YRQ-REPORTED-NO         VALUE 'N'.          DTSBD360
00291                                                                   DTSBD360
00292      05  HOLD-YEAR-REPORTED-TABLE.                                DTSBD360
00293          10  YR-SUB                      PIC S9(04) COMP.         DTSBD360
00294          10  HOLD-YEAR-REPORTED-IND      PIC  X(01).              DTSBD360
00295              88  HOLD-YEAR-REPORTED-YES       VALUE 'Y'.          DTSBD360
00296              88  HOLD-YEAR-REPORTED-NO        VALUE 'N'.          DTSBD360
00297          10  HOLD-YEAR-TABLE-MAX         PIC S9(04) COMP          DTSBD360
00298                                               VALUE +100.         DTSBD360
00299          10  HOLD-YEAR-TABLE-CNT         PIC S9(04) COMP          DTSBD360
00300                                               VALUE +0.           DTSBD360
00301          10  HOLD-YEAR OCCURS 100 TIMES  PIC S9(05) COMP-3.       DTSBD360
00302                                                                   DTSBD360
00303                                                                   DTSBD360
00304      05  WRK-START-YRQ                   PIC S9(05)       COMP-3. DTSBD360
00305                                                                   DTSBD360
00306      05  WRK-END-YRQ                     PIC S9(05)       COMP-3. DTSBD360
00307                                                                   DTSBD360
00308      05  WRK-ABS-YRQ                     PIC S9(04)       COMP.   DTSBD360
00309                                                                   DTSBD360
00310      05  WRK-YRQ                         PIC S9(05)       COMP-3. DTSBD360
00311                                                                   DTSBD360
00312      05  WRK-END-ABS-YRQ                 PIC S9(04)       COMP.   DTSBD360
00313                                                                   DTSBD360
00314      05  WRK-MQTR-EXISTS-IND             PIC  X(01).              DTSBD360
00315          88  WRK-MQTR-EXISTS-YES             VALUE 'Y'.           DTSBD360
00316          88  WRK-MQTR-EXISTS-NO              VALUE 'N'.           DTSBD360
00317                                                                   DTSBD360
00318      05  INCONSISTENT-WAIVER-IND         PIC  X(01).              DTSBD360
00319                                                                   DTSBD360
00320 ***  THE FOLLOWING DATA ELEMENT CONTAINS EITHER THE               DTSBD360
00321 ***  LBCM-LAST-UC30-MASS-MAIL-YRQ OR THE                          DTSBD360
00322 ***  WRK-UC30H-MASS-MAIL-YRQ DEPENDING ON WHETHER THE EMPLOYER'S  DTSBD360
00323 ***  MOST RECENT FILING SCHEDULE IS QUARTERLY OR ANNUAL.          DTSBD360
00324      05  WRK-LAST-MASS-MAIL-YRQ          PIC S9(05) COMP-3.       DTSBD360
00325                                                                   DTSBD360
00326      05  WRK-UC30H-DATE-AREA.                                     DTSBD360
00327          10  WRK-UC30H-MASS-MAIL-YRQ     PIC S9(05) COMP-3.       DTSBD360
00328                                                                   DTSBD360
00329      05  WRK-ANN-YRQ                     PIC  9(05).              DTSBD360
00330      05  FILLER REDEFINES WRK-ANN-YRQ.                            DTSBD360
00331          10  WRK-ANN-YEAR                PIC  9(04).              DTSBD360
00332          10  FILLER                      PIC  X(01).              DTSBD360
00333      05  WRK-UC30H-YEAR                  PIC S9(05)       COMP-3. DTSBD360
00334                                                                   DTSBD360
00335      05  WRK-R109-YRQ-TABLE OCCURS 24 TIMES.                      DTSBD360
00336          10  WRK-R109-YRQ                PIC S9(05) COMP-3.       DTSBD360
00337          10  WRK-R109-RPT-TYPE           PIC  X(01).              DTSBD360
00338              88  WRK-R109-RPT-QTR-88         VALUE 'Q'.           DTSBD360
00339              88  WRK-R109-RPT-ANN-88         VALUE 'A'.           DTSBD360
00340                                                                   DTSBD360
00341      05  WRK-TAB-SUB                     PIC S9(04) COMP.         DTSBD360
00342      05  WRK-R109-SUB                    PIC S9(04) COMP.         DTSBD360
00343      05  WRK-R109-CNT                    PIC S9(04) COMP.         DTSBD360
00344                                                                   DTSBD360
00345      05  WRK-QTRLY-RPT-IND               PIC  X(01).              DTSBD360
00346          88  WRK-QTRLY-RPT-YES-88        VALUE 'Y'.               DTSBD360
00347          88  WRK-QTRLY-RPT-NO-88         VALUE 'N'.               DTSBD360
00348                                                                   DTSBD360
00349      05  WRK-ANN-RPT-IND                 PIC  X(01).              DTSBD360
00350          88  WRK-ANN-RPT-YES-88          VALUE 'Y'.               DTSBD360
00351          88  WRK-ANN-RPT-NO-88           VALUE 'N'.               DTSBD360
00352                                                                   DTSBD360
00353      05  WRK-SSN-ERROR-IND          PIC  X(01).                   DTSBD360
00354          88  WRK-SSN-ERROR-YES-88          VALUE 'Y'.             DTSBD360
00355          88  WRK-SSN-ERROR-NO-88           VALUE 'N'.             DTSBD360
00356                                                                   DTSBD360
00357      05  TBL-SUB                  PIC S9(04) COMP.                DTSBD360
00358      05  TBL-CNT                  PIC S9(04) COMP VALUE +0.       DTSBD360
00359      05  TBL-MAX                  PIC S9(04) COMP                 DTSBD360
00360                                          VALUE +250.              DTSBD360
00361      05  SSN-SUB                  PIC S9(04) COMP.                DTSBD360
00362      05  NXT-SUB                  PIC S9(04) COMP.                DTSBD360
00363      05  WRK-MAX-SSN              PIC S9(09) COMP-3 VALUE +0.     DTSBD360
00364                                                                   DTSBD360
00365      05  WRK-INDEX-IND                      PIC  X(01).           DTSBD360
00366          88  WRK-INDEX-NULL-88           VALUE '0'.               DTSBD360
00367          88  WRK-INDEX-POSITION-FOUND-88 VALUE '1'.               DTSBD360
00368          88  WRK-INDEX-SSN-FOUND-88      VALUE '2'.               DTSBD360
00369          88  WRK-INDEX-FOUND-88          VALUE '1' '2'.           DTSBD360
00370                                                                   DTSBD360
00371  01  WRK-SSN-TABLE.                                               DTSBD360
00372      05  WRK-SSN    OCCURS 250 TIMES   PIC S9(09) COMP-3.         DTSBD360
00373                                                                   DTSBD360
00374                                                                   DTSBD360
00375  01  MSG-TABLE.                                                   DTSBD360
00376      05  MSG1-INVALID-TRN-CD.                                     DTSBD360
00377          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD360905'.     DTSBD360
00378          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'INVALID TRN CD'.  DTSBD360
00379          10  MSG1-LONG-TEXT.                                      DTSBD360
00380              15  FILLER      PIC  X(30)                           DTSBD360
00381                    VALUE 'TRANSACTION FAILED - TRANSACTI'.        DTSBD360
00382              15  FILLER      PIC  X(30)                           DTSBD360
00383                    VALUE 'ON CODE NOT VALID             '.        DTSBD360
00384                                                                   DTSBD360
00385      05  MSG2-CHG-ONLY.                                           DTSBD360
00386          10  MSG2-ID         PIC  X(11)  VALUE 'DTSBD360301'.     DTSBD360
00387          10  MSG2-SHORT-TEXT PIC  X(20)  VALUE 'CHARGING ONLY '.  DTSBD360
00388          10  MSG2-LONG-TEXT.                                      DTSBD360
00389              15  FILLER      PIC  X(30)                           DTSBD360
00390                    VALUE 'TRANSACTION FAILED - CHARGING '.        DTSBD360
00391              15  FILLER      PIC  X(30)                           DTSBD360
00392                    VALUE 'ONLY EMPLOYER                 '.        DTSBD360
00393                                                                   DTSBD360
00394      05  MSG3-ADDRESS-MISSING.                                    DTSBD360
00395          10  MSG3-ID         PIC  X(11)  VALUE 'DTSBD360909'.     DTSBD360
00396          10  MSG3-SHORT-TEXT PIC  X(20)  VALUE 'ADDRESS MISSING'. DTSBD360
00397          10  MSG3-LONG-TEXT.                                      DTSBD360
00398              15  FILLER      PIC  X(30)                           DTSBD360
00399                    VALUE 'TRANSACTION FAILED - EXPECTED '.        DTSBD360
00400              15  FILLER      PIC  X(30)                           DTSBD360
00401                    VALUE 'ADDRESS NOT FOUND             '.        DTSBD360
00402                                                                   DTSBD360
00403                                                                   DTSBD360
00404 *--- MESSAGES BELOW LEAVE LBCM-TRN-RESULT-IND UNCHANGED           DTSBD360
00405                                                                   DTSBD360
00406      05  MSG4-DUPLICATE-REQUEST.                                  DTSBD360
00407          10  MSG4-ID.                                             DTSBD360
00408              15  MSG4-ID-1   PIC  X(08)  VALUE 'DTSBD360'.        DTSBD360
00409              15  MSG4-ID-2   PIC  X(03)  VALUE '391'.             DTSBD360
00410          10  MSG4-SHORT-TEXT PIC  X(20)  VALUE 'DUPLICATE REQ'.   DTSBD360
00411          10  MSG4-LONG-TEXT.                                      DTSBD360
00412              15  FILLER      PIC  X(30)                           DTSBD360
00413                    VALUE 'QUARTERLY REPORT PRINT FAILED '.        DTSBD360
00414              15  FILLER      PIC  X(26)                           DTSBD360
00415                    VALUE '- DUPLICATE REQUEST YRQ = '.            DTSBD360
00416              15  MSG4-SLASH-QTR         PIC  X(04).               DTSBD360
00417                                                                   DTSBD360
00418      05  MSG5-RATE-MISSING.                                       DTSBD360
00419          10  MSG5-ID.                                             DTSBD360
00420              15  MSG5-ID-1   PIC  X(08)  VALUE 'DTSBD360'.        DTSBD360
00421              15  MSG5-ID-2   PIC  X(03)  VALUE '392'.             DTSBD360
00422          10  MSG5-SHORT-TEXT PIC  X(20)  VALUE 'RATE MISSING'.    DTSBD360
00423          10  MSG5-LONG-TEXT.                                      DTSBD360
00424              15  FILLER      PIC  X(30)                           DTSBD360
00425                    VALUE 'QUARTERLY REPORT PRINT FAILED '.        DTSBD360
00426              15  FILLER      PIC  X(22)                           DTSBD360
00427                    VALUE '- RATE MISSING  YRQ = '.                DTSBD360
00428              15  MSG5-SLASH-QTR         PIC  X(04).               DTSBD360
00429                                                                   DTSBD360
00430      05  MSG6-MSOL-MISSING.                                       DTSBD360
00431          10  MSG6-ID.                                             DTSBD360
00432              15  MSG6-ID-1   PIC  X(08)  VALUE 'DTSBD360'.        DTSBD360
00433              15  MSG6-ID-2   PIC  X(03)  VALUE '393'.             DTSBD360
00434          10  MSG6-SHORT-TEXT PIC  X(20)  VALUE 'MSOL NOT FOUND'.  DTSBD360
00435          10  MSG6-LONG-TEXT.                                      DTSBD360
00436              15  FILLER      PIC  X(30)                           DTSBD360
00437                    VALUE 'MISSING REPORT NOTICE PRINT FA'.        DTSBD360
00438              15  FILLER      PIC  X(38)                           DTSBD360
00439                    VALUE 'ILED - MSOL NOT FOUND YRQ = '.          DTSBD360
00440              15  MSG6-SLASH-QTR         PIC  X(04).               DTSBD360
00441                                                                   DTSBD360
00442      05  MSG7-OVER-24.                                            DTSBD360
00443          10  MSG7-ID.                                             DTSBD360
00444              15  MSG7-ID-1   PIC  X(08)  VALUE 'DTSBD360'.        DTSBD360
00445              15  MSG7-ID-2   PIC  X(03)  VALUE '394'.             DTSBD360
00446          10  MSG7-SHORT-TEXT PIC  X(20)  VALUE 'OVER 24 PURSUED'. DTSBD360
00447          10  MSG7-LONG-TEXT.                                      DTSBD360
00448              15  FILLER      PIC  X(30)                           DTSBD360
00449                    VALUE 'MISSING REPORT NOTICE PRINT FA'.        DTSBD360
00450              15  FILLER      PIC  X(30)                           DTSBD360
00451                    VALUE 'ILED - OVER 24 PURSUED REPORTS'.        DTSBD360
00452                                                                   DTSBD360
00453      05  MSG8-FCYR-MISSING.                                       DTSBD360
00454          10  MSG8-ID.                                             DTSBD360
00455              15  MSG8-ID-1   PIC  X(08)  VALUE 'DTSBD360'.        DTSBD360
00456              15  MSG8-ID-2   PIC  X(03)  VALUE '395'.             DTSBD360
00457          10  MSG8-SHORT-TEXT PIC  X(20)  VALUE 'FCYR NOT FOUND'.  DTSBD360
00458          10  MSG8-LONG-TEXT.                                      DTSBD360
00459              15  FILLER      PIC  X(31)                           DTSBD360
00460                    VALUE 'UC-30 PRINT FAILED - TAXABLE WA'.       DTSBD360
00461              15  FILLER      PIC  X(26)                           DTSBD360
00462                    VALUE 'GE BASE NOT FOUND  YEAR = '.            DTSBD360
00463              15  MSG8-YEAR              PIC  9(04).               DTSBD360
00464                                                                   DTSBD360
00465      05  MSG9-NO-WAIVER-MSG.                                      DTSBD360
00466          10  MSG9-ID.                                             DTSBD360
00467              15  MSG9-ID-1   PIC  X(08)  VALUE 'DTSBD360'.        DTSBD360
00468              15  MSG9-ID-2   PIC  X(03)  VALUE '396'.             DTSBD360
00469          10  MSG9-SHORT-TEXT PIC  X(20)                           DTSBD360
00470                VALUE 'INCONSISTENT WAIVER'.                       DTSBD360
00471          10  MSG9-LONG-TEXT.                                      DTSBD360
00472              15  FILLER      PIC  X(31)                           DTSBD360
00473                    VALUE 'INCONSISTENCY FOUND  WAIVER MSG'.       DTSBD360
00474              15  FILLER      PIC  X(31)                           DTSBD360
00475                    VALUE ' NOT PRINTED ON UC-30(S) (AND M'.       DTSBD360
00476              15  FILLER      PIC  X(14)                           DTSBD360
00477                    VALUE 'ISS RPT NOTICE'.                        DTSBD360
00478              15  MSG9-SLASH-FROM-QTR    PIC  X(04).               DTSBD360
00479              15  FILLER      PIC  X(06)                           DTSBD360
00480                    VALUE ' THRU '.                                DTSBD360
00481              15  MSG9-SLASH-TO-QTR      PIC  X(04).               DTSBD360
00482                                                                   DTSBD360
00483      05  MSG10-NO-FLD-REP.                                        DTSBD360
00484          10  MSG10-ID.                                            DTSBD360
00485              15  MSG10-ID-1  PIC  X(08) VALUE 'DTSBD360'.         DTSBD360
00486              15  MSG10-ID-2  PIC  X(03) VALUE '692'.              DTSBD360
00487          10  MSG10-SHORT-TEXT PIC X(20)                           DTSBD360
00488                          VALUE 'NO FIELD REP'.                    DTSBD360
00489          10  MSG10-LONG-TEXT.                                     DTSBD360
00490              15 FILLER       PIC  X(30)                           DTSBD360
00491                          VALUE 'MISSING REPORT NOTICE NOT PRIN'.  DTSBD360
00492              15 FILLER       PIC  X(30)                           DTSBD360
00493                          VALUE 'TED - NO FIELD REP ASSIGNED   '.  DTSBD360
00494                                                                   DTSBD360
00495 *****05  MSG11-NO-MELF-RECORD.                                    DTSBD360
00496 *********10  MSG11-ID.                                            DTSBD360
00497 *************15  MSG11-ID-1  PIC  X(08) VALUE 'DTSBD360'.         DTSBD360
00498 *************15  MSG11-ID-2  PIC  X(03) VALUE '397'.              DTSBD360
00499 *********10  MSG11-SHORT-TEXT PIC X(20)                           DTSBD360
00500 *************************VALUE 'MELF REC NOT FOUND '.             DTSBD360
00501 *********10  MSG11-LONG-TEXT.                                     DTSBD360
00502 *************15 FILLER       PIC  X(30)                           DTSBD360
00503 *************************VALUE 'UC-30E NOT PRINTED - NO MELF RE'. DTSBD360
00504 *************15 FILLER       PIC  X(30)                           DTSBD360
00505 *************************VALUE 'CORD FOUND                    '.  DTSBD360
00506                                                                   DTSBD360
00507 *****05  MSG12-NOT-ELECTRONIC-FILER.                              DTSBD360
00508 *********10  MSG12-ID.                                            DTSBD360
00509 *************15  MSG12-ID-1  PIC  X(08) VALUE 'DTSBD360'.         DTSBD360
00510 *************15  MSG12-ID-2  PIC  X(03) VALUE '398'.              DTSBD360
00511 *********10  MSG12-SHORT-TEXT PIC X(20)                           DTSBD360
00512 *************************VALUE 'NOT AN ELEC FILER  '.             DTSBD360
00513 *********10  MSG12-LONG-TEXT.                                     DTSBD360
00514 *************15 FILLER       PIC  X(30)                           DTSBD360
00515 *************************VALUE 'UC-30E NOT PRINTED - NOT AN ELE'. DTSBD360
00516 *************15 FILLER       PIC  X(30)                           DTSBD360
00517 *************************VALUE 'CTRONIC FILER FOR TAX REPORTS '.  DTSBD360
00518      EJECT                                                        DTSBD360
00519  01  R109-REC.                                                    DTSBD360
00520  ++INCLUDE DTSIR109                                               DTSBD360
00521      EJECT                                                        DTSBD360
00522  01  R902-REC.                                                    DTSBD360
00523  ++INCLUDE DTSIR902                                               DTSBD360
00524      SKIP3                                                        DTSBD360
00525  01  R907-REC.                                                    DTSBD360
00526  ++INCLUDE DTSIR907                                               DTSBD360
00527      EJECT                                                        DTSBD360
00528  01  R910-REC.                                                    DTSBD360
00529  ++INCLUDE DTSIR910                                               DTSBD360
00530      EJECT                                                        DTSBD360
00531  01  L004-LINK-AREA.                                              DTSBD360
00532  ++INCLUDE DTSIL004                                               DTSBD360
00533      SKIP3                                                        DTSBD360
00534  01  L005-LINK-AREA.                                              DTSBD360
00535  ++INCLUDE DTSIL005                                               DTSBD360
00536      SKIP3                                                        DTSBD360
00537  01  L061-LINK-AREA.                                              DTSBD360
00538  ++INCLUDE DTSIL061                                               DTSBD360
00539      SKIP3                                                        DTSBD360
00540  01  L111-LINK-AREA.                                              DTSBD360
00541  ++INCLUDE DTSIL111                                               DTSBD360
00542      SKIP3                                                        DTSBD360
00543  01  L112-LINK-AREA.                                              DTSBD360
00544  ++INCLUDE DTSIL112                                               DTSBD360
00545      SKIP3                                                        DTSBD360
00546  01  L410-LINK-AREA.                                              DTSBD360
00547  ++INCLUDE DTSIL410                                               DTSBD360
00548      SKIP3                                                        DTSBD360
00549  01  L415-LINK-AREA.                                              DTSBD360
00550  ++INCLUDE DTSIL415                                               DTSBD360
00551      SKIP3                                                        DTSBD360
00552  01  L516-LINK-AREA.                                              DTSBD360
00553  ++INCLUDE DTSIL516                                               DTSBD360
00554      EJECT                                                        DTSBD360
00555  01  L910-LINK-AREA.                                              DTSBD360
00556  ++INCLUDE DTSIL910                                               DTSBD360
00557      SKIP3                                                        DTSBD360
00558  01  MSKL-REC.                                                    DTSBD360
00559  ++INCLUDE DTSIMSKL                                               DTSBD360
00560      SKIP3                                                        DTSBD360
00561  01  MELF-REC.                                                    DTSBD360
00562  ++INCLUDE DTSIMELF                                               DTSBD360
00563      SKIP3                                                        DTSBD360
00564  01  MSOL-REC.                                                    DTSBD360
00565  ++INCLUDE DTSIMSOL                                               DTSBD360
00566      SKIP3                                                        DTSBD360
00567  01  MQTR-REC.                                                    DTSBD360
00568  ++INCLUDE DTSIMQTR                                               DTSBD360
00569      SKIP3                                                        DTSBD360
00570  01  MEVL-REC.                                                    DTSBD360
00571  ++INCLUDE DTSIMEVL                                               DTSBD360
00572      SKIP3                                                        DTSBD360
00573  01  MTAA-REC.                                                    DTSBD360
00574  ++INCLUDE DTSIMTAA                                               DTSBD360
00575      SKIP3                                                        DTSBD360
00576  01  MOPO-REC.                                                    DTSBD360
00577  ++INCLUDE DTSIMOPO                                               DTSBD360
00578      SKIP3                                                        DTSBD360
00579 *01  MBAA-REC.                                                    DTSBD360
00580 ***INCLUDE DTSIMBAA                                               DTSBD360
00581      EJECT                                                        DTSBD360
00582  01  L931-LINK-AREA.                                              DTSBD360
00583  ++INCLUDE DTSIL931                                               DTSBD360
00584      SKIP3                                                        DTSBD360
00585  01  L981-LINK-AREA.                                              DTSBD360
00586  ++INCLUDE DTSIL981                                               DTSBD360
00587      SKIP3                                                        DTSBD360
00588  01  FSKL-REC.                                                    DTSBD360
00589  ++INCLUDE DTSIFSKL                                               DTSBD360
00590      SKIP3                                                        DTSBD360
00591  01  FCYR-REC.                                                    DTSBD360
00592  ++INCLUDE DTSIFCYR                                               DTSBD360
00593      EJECT                                                        DTSBD360
00594  01  WWGH-REC.                                                    DTSBD360
00595  ++INCLUDE DTSIWWGH                                               DTSBD360
00596      EJECT                                                        DTSBD360
00597  LINKAGE SECTION.                                                 DTSBD360
00598      SKIP3                                                        DTSBD360
00599  01  LBCM-LINK-AREA.                                              DTSBD360
00600  ++INCLUDE DTSILBCM                                               DTSBD360
00601      EJECT                                                        DTSBD360
00602  01  MPRF-REC.                                                    DTSBD360
00603  ++INCLUDE DTSIMPRF                                               DTSBD360
00604      EJECT                                                        DTSBD360
00605  01  T036-REC.                                                    DTSBD360
00606  ++INCLUDE DTSIT036                                               DTSBD360
00607      EJECT                                                        DTSBD360
00608  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD360
00609                           MPRF-REC                                DTSBD360
00610                           T036-REC.                               DTSBD360
00611                                                                   DTSBD360
00612                                                                   DTSBD360
00613      IF FIRST-TIME-IND = 'Y'                                      DTSBD360
00614          PERFORM I0000-FIRST-TIME THRU I0000-EXIT                 DTSBD360
00615          MOVE 'N' TO FIRST-TIME-IND.                              DTSBD360
00616                                                                   DTSBD360
00617                                                                   DTSBD360
00618      IF T036-LIAB-DETER                                           DTSBD360
00619           OR T036-REQUEST                                         DTSBD360
00620           OR T036-INACTIVATION                                    DTSBD360
00621 **********OR T036-ELF-ADD                                         DTSBD360
00622          NEXT SENTENCE                                            DTSBD360
00623      ELSE                                                         DTSBD360
00624          MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA            DTSBD360
00625          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD360
00626          GO TO PROCEDURE-EXIT.                                    DTSBD360
00627                                                                   DTSBD360
00628                                                                   DTSBD360
00629      IF NOT MPRF-CLASS-SUB-88                                     DTSBD360
00630          MOVE MSG2-CHG-ONLY TO LBCM-TRN-MSG-AREA                  DTSBD360
00631          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD360
00632          GO TO PROCEDURE-EXIT.                                    DTSBD360
00633                                                                   DTSBD360
00634                                                                   DTSBD360
00635      PERFORM P0000-TRANS-INIT THRU P0000-EXIT.                    DTSBD360
00636                                                                   DTSBD360
00637                                                                   DTSBD360
00638      IF LBCM-TRN-OK-88                                            DTSBD360
00639          PERFORM P1000-R902-UC30 THRU P1000-EXIT.                 DTSBD360
00640                                                                   DTSBD360
00641                                                                   DTSBD360
00642      IF LBCM-TRN-OK-88                                            DTSBD360
00643            AND T036-LIAB-DETER                                    DTSBD360
00644          PERFORM P2000-R109 THRU P2000-EXIT.                      DTSBD360
00645                                                                   DTSBD360
00646                                                                   DTSBD360
00647  PROCEDURE-EXIT.                                                  DTSBD360
00648                                                                   DTSBD360
00649      GOBACK.                                                      DTSBD360
00650      EJECT                                                        DTSBD360
00651  I0000-FIRST-TIME.                                                DTSBD360
00652      MOVE LBCM-TRACE-IND TO L910-TRACE-IND                        DTSBD360
00653                             L931-TRACE-IND                        DTSBD360
00654                             L981-TRACE-IND                        DTSBD360
00655                             L516-TRACE-IND.                       DTSBD360
00656                                                                   DTSBD360
00657      MOVE WRK-MOD-NAME   TO L910-MOD-NAME                         DTSBD360
00658                             L931-MOD-NAME                         DTSBD360
00659                             L981-MOD-NAME                         DTSBD360
00660                             R907-MODULE-NAME.                     DTSBD360
00661                                                                   DTSBD360
00662      MOVE +0 TO HOLD-EMP-NO.                                      DTSBD360
00663                                                                   DTSBD360
00664      MOVE LENGTH OF R109-REC TO R109-LENGTH.                      DTSBD360
00665                                                                   DTSBD360
00666      MOVE LENGTH OF R902-REC TO R902-LENGTH.                      DTSBD360
00667                                                                   DTSBD360
00668      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBD360
00669                                                                   DTSBD360
00670      MOVE LENGTH OF R910-REC TO R910-LENGTH.                      DTSBD360
00671                                                                   DTSBD360
00672      SET L415-MODE-MOST-RECENT-88 TO TRUE.                        DTSBD360
00673      PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT.                 DTSBD360
00674      MOVE L415-UC30H-MASS-MAIL-END-YRQ                            DTSBD360
00675                              TO WRK-UC30H-MASS-MAIL-YRQ.          DTSBD360
00676                                                                   DTSBD360
00677  I0000-EXIT.                                                      DTSBD360
00678      EXIT.                                                        DTSBD360
00679      EJECT                                                        DTSBD360
00680  P0000-TRANS-INIT.                                                DTSBD360
00681      IF MPRF-EMP-NO NOT = HOLD-EMP-NO                             DTSBD360
00682          MOVE MPRF-EMP-NO TO HOLD-EMP-NO                          DTSBD360
00683                              R907-EMP-NO                          DTSBD360
00684          MOVE ALL 'N' TO HOLD-YRQ-REPORTED-INDS                   DTSBD360
00685          PERFORM P0500-LAST-MASS-MAIL-YRQ THRU P0500-EXIT         DTSBD360
00686          PERFORM P0600-INIT-YEAR-TABLE    THRU P0600-EXIT.        DTSBD360
00687                                                                   DTSBD360
00688                                                                   DTSBD360
00689      MOVE MPRF-EMP-NO TO L111-EMP-NO.                             DTSBD360
00690                                                                   DTSBD360
00691                                                                   DTSBD360
00692      IF T036-REQUEST                                              DTSBD360
00693          PERFORM P0100-SET-L111-ADDR-TYPE THRU P0100-EXIT         DTSBD360
00694          PERFORM P0200-SET-L111-ID-NO THRU P0200-EXIT             DTSBD360
00695          IF LBCM-TRN-NOT-OK-88                                    DTSBD360
00696              GO TO P0000-EXIT                                     DTSBD360
00697          ELSE                                                     DTSBD360
00698              NEXT SENTENCE                                        DTSBD360
00699      ELSE                                                         DTSBD360
00700          SET L111-LOOKUP-TAD-88 TO TRUE                           DTSBD360
00701          SET L111-ID-NO-TAD-MAIL-88 TO TRUE.                      DTSBD360
00702                                                                   DTSBD360
00703                                                                   DTSBD360
00704      PERFORM S111-LOOKUP-ADDR THRU S111-EXIT.                     DTSBD360
00705                                                                   DTSBD360
00706      IF L111-ADDR-NOT-FOUND-88                                    DTSBD360
00707          MOVE MSG3-ADDRESS-MISSING TO LBCM-TRN-MSG-AREA           DTSBD360
00708          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD360
00709          GO TO P0000-EXIT.                                        DTSBD360
00710                                                                   DTSBD360
00711                                                                   DTSBD360
00712      MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE.                       DTSBD360
00713                                                                   DTSBD360
00714      SET L112-ANCHOR-LAST-88 TO TRUE.                             DTSBD360
00715                                                                   DTSBD360
00716      MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME.                 DTSBD360
00717                                                                   DTSBD360
00718      MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA.             DTSBD360
00719                                                                   DTSBD360
00720      PERFORM S112-FORMAT-ADDR THRU S112-EXIT.                     DTSBD360
00721  P0000-EXIT.                                                      DTSBD360
00722      EXIT.                                                        DTSBD360
00723      SKIP3                                                        DTSBD360
00724  P0100-SET-L111-ADDR-TYPE.                                        DTSBD360
00725      IF T036-TAX-ADDR-88 OR T036-PHY-ADDR-88                      DTSBD360
00726          SET L111-LOOKUP-TAD-88 TO TRUE                           DTSBD360
00727      ELSE                                                         DTSBD360
00728      IF T036-TAA-ADDR-88                                          DTSBD360
00729          SET L111-LOOKUP-TAA-88 TO TRUE                           DTSBD360
00730      ELSE                                                         DTSBD360
00731      IF T036-OPO-ADDR-88                                          DTSBD360
00732          SET L111-LOOKUP-OPO-88 TO TRUE                           DTSBD360
00733 *****ELSE                                                         DTSBD360
00734 *****IF T036-BAA-ADDR-88                                          DTSBD360
00735 *********SET L111-LOOKUP-BAA-88 TO TRUE                           DTSBD360
00736      ELSE                                                         DTSBD360
00737          SET L111-LOOKUP-TAD-88 TO TRUE.                          DTSBD360
00738  P0100-EXIT.                                                      DTSBD360
00739      EXIT.                                                        DTSBD360
00740      SKIP3                                                        DTSBD360
00741  P0200-SET-L111-ID-NO.                                            DTSBD360
00742      IF T036-TAX-ADDR-88                                          DTSBD360
00743          SET L111-ID-NO-TAD-MAIL-88 TO TRUE                       DTSBD360
00744          GO TO P0200-EXIT.                                        DTSBD360
00745                                                                   DTSBD360
00746      IF T036-PHY-ADDR-88                                          DTSBD360
00747          SET L111-ID-NO-TAD-PHYS-88 TO TRUE                       DTSBD360
00748          GO TO P0200-EXIT.                                        DTSBD360
00749                                                                   DTSBD360
00750      IF T036-TAA-ADDR-88 OR T036-OPO-ADDR-88                      DTSBD360
00751          NEXT SENTENCE                                            DTSBD360
00752      ELSE                                                         DTSBD360
00753          SET L111-ID-NO-TAD-MAIL-88 TO TRUE                       DTSBD360
00754          GO TO P0200-EXIT.                                        DTSBD360
00755                                                                   DTSBD360
00756      MOVE -999 TO L111-ID-NO.                                     DTSBD360
00757                                                                   DTSBD360
00758      IF T036-ADDR-ESTB-ABSTIME NUMERIC                            DTSBD360
00759          IF T036-TAA-ADDR-88                                      DTSBD360
00760              PERFORM P0210-TAA-ADDR-FIND THRU P0210-EXIT          DTSBD360
00761          ELSE                                                     DTSBD360
00762          IF T036-OPO-ADDR-88                                      DTSBD360
00763              PERFORM P0220-OPO-ADDR-FIND THRU P0220-EXIT.         DTSBD360
00764 *********ELSE                                                     DTSBD360
00765 *********IF T036-BAA-ADDR-88                                      DTSBD360
00766 *************PERFORM P0230-BAA-ADDR-FIND THRU P0230-EXIT.         DTSBD360
00767                                                                   DTSBD360
00768      IF L111-ID-NO = -999                                         DTSBD360
00769          MOVE MSG3-ADDRESS-MISSING TO LBCM-TRN-MSG-AREA           DTSBD360
00770          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD360
00771          GO TO P0200-EXIT.                                        DTSBD360
00772  P0200-EXIT.                                                      DTSBD360
00773      EXIT.                                                        DTSBD360
00774      SKIP3                                                        DTSBD360
00775  P0210-TAA-ADDR-FIND.                                             DTSBD360
00776      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBD360
00777                                                                   DTSBD360
00778      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD360
00779                                                                   DTSBD360
00780      SET MSKL-TAA-88 TO TRUE.                                     DTSBD360
00781                                                                   DTSBD360
00782      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD360
00783                                                                   DTSBD360
00784      PERFORM                                                      DTSBD360
00785        UNTIL L910-NO-REC-88                                       DTSBD360
00786          MOVE MSKL-REC TO MTAA-REC                                DTSBD360
00787          IF T036-ADDR-ESTB-ABSTIME = MTAA-ESTB-ABSTIME            DTSBD360
00788              MOVE MTAA-ID-NO TO L111-ID-NO                        DTSBD360
00789          END-IF                                                   DTSBD360
00790          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD360
00791      END-PERFORM.                                                 DTSBD360
00792  P0210-EXIT.                                                      DTSBD360
00793      EXIT.                                                        DTSBD360
00794      SKIP3                                                        DTSBD360
00795  P0220-OPO-ADDR-FIND.                                             DTSBD360
00796      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBD360
00797                                                                   DTSBD360
00798      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD360
00799                                                                   DTSBD360
00800      SET MSKL-OPO-88 TO TRUE.                                     DTSBD360
00801                                                                   DTSBD360
00802      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD360
00803                                                                   DTSBD360
00804      PERFORM                                                      DTSBD360
00805        UNTIL L910-NO-REC-88                                       DTSBD360
00806          MOVE MSKL-REC TO MOPO-REC                                DTSBD360
00807          IF T036-ADDR-ESTB-ABSTIME = MOPO-ESTB-ABSTIME            DTSBD360
00808              MOVE MOPO-ID-NO TO L111-ID-NO                        DTSBD360
00809          END-IF                                                   DTSBD360
00810          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD360
00811      END-PERFORM.                                                 DTSBD360
00812  P0220-EXIT.                                                      DTSBD360
00813      EXIT.                                                        DTSBD360
00814      SKIP3                                                        DTSBD360
00815 *P0230-BAA-ADDR-FIND.                                             DTSBD360
00816 *****MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBD360
00817                                                                   DTSBD360
00818 *****MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD360
00819                                                                   DTSBD360
00820 *****SET MSKL-BAA-88 TO TRUE.                                     DTSBD360
00821                                                                   DTSBD360
00822 *****PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD360
00823                                                                   DTSBD360
00824 *****PERFORM                                                      DTSBD360
00825 *******UNTIL L910-NO-REC-88                                       DTSBD360
00826 *********MOVE MSKL-REC TO MBAA-REC                                DTSBD360
00827 *********IF T036-ADDR-ESTB-ABSTIME = MBAA-ESTB-ABSTIME            DTSBD360
00828 *************MOVE MBAA-ID-NO TO L111-ID-NO                        DTSBD360
00829 *********END-IF                                                   DTSBD360
00830 *********PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD360
00831 *****END-PERFORM.                                                 DTSBD360
00832 *P0230-EXIT.                                                      DTSBD360
00833 *****EXIT.                                                        DTSBD360
00834      EJECT                                                        DTSBD360
00835 ******************************************************************DTSBD360
00836 ***  THE FOLLOWING PARAGRAPH SETS WRK-LAST-MASS-MAIL-YRQ TO EITHERDTSBD360
00837 ***  LBCM-LAST-UC30-MASS-MAIL-YRQ OR                              DTSBD360
00838 ***  WRK-UC30H-MASS-MAIL-YRQ DEPENDING ON WHETHER THE EMPLOYER'S  DTSBD360
00839 ***  MOST RECENT FILING SCHEDULE IS QUARTERLY OR ANNUAL.          DTSBD360
00840 ******************************************************************DTSBD360
00841  P0500-LAST-MASS-MAIL-YRQ.                                        DTSBD360
00842      IF MPRF-ORG-HSEHLD-DMSTIC-88                                 DTSBD360
00843         SET L410-MODE-MOST-RECENT-88 TO TRUE                      DTSBD360
00844         MOVE HOLD-EMP-NO TO L410-EMP-NO                           DTSBD360
00845         MOVE ZERO        TO L410-YRQ                              DTSBD360
00846         PERFORM S410-FILING-SCHED  THRU S410-EXIT                 DTSBD360
00847         IF L410-ANN-SCHED-88                                      DTSBD360
00848            MOVE WRK-UC30H-MASS-MAIL-YRQ                           DTSBD360
00849                                    TO WRK-LAST-MASS-MAIL-YRQ      DTSBD360
00850         ELSE                                                      DTSBD360
00851            MOVE LBCM-LAST-UC30-MASS-MAIL-YRQ                      DTSBD360
00852                                    TO WRK-LAST-MASS-MAIL-YRQ      DTSBD360
00853      ELSE                                                         DTSBD360
00854         MOVE LBCM-LAST-UC30-MASS-MAIL-YRQ                         DTSBD360
00855                                    TO WRK-LAST-MASS-MAIL-YRQ.     DTSBD360
00856                                                                   DTSBD360
00857  P0500-EXIT.                                                      DTSBD360
00858      EXIT.                                                        DTSBD360
00859                                                                   DTSBD360
00860  P0600-INIT-YEAR-TABLE.                                           DTSBD360
00861      PERFORM                                                      DTSBD360
00862         VARYING YR-SUB FROM +1 BY +1                              DTSBD360
00863         UNTIL YR-SUB > HOLD-YEAR-TABLE-MAX                        DTSBD360
00864            MOVE ZERO   TO HOLD-YEAR (YR-SUB)                      DTSBD360
00865      END-PERFORM.                                                 DTSBD360
00866                                                                   DTSBD360
00867  P0600-EXIT.                                                      DTSBD360
00868      EXIT.                                                        DTSBD360
00869                                                                   DTSBD360
00870  P1000-R902-UC30.                                                 DTSBD360
00871      PERFORM P1100-SET-START-YRQ THRU P1100-EXIT.                 DTSBD360
00872                                                                   DTSBD360
00873      PERFORM P1200-SET-END-YRQ THRU P1200-EXIT.                   DTSBD360
00874                                                                   DTSBD360
00875      IF T036-LIAB-DETER                                           DTSBD360
00876          PERFORM P1010-LIAB-DETER THRU P1010-EXIT.                DTSBD360
00877                                                                   DTSBD360
00878      IF WRK-START-YRQ = +0                                        DTSBD360
00879          GO TO P1000-EXIT.                                        DTSBD360
00880                                                                   DTSBD360
00881      IF WRK-END-YRQ < WRK-START-YRQ                               DTSBD360
00882          MOVE WRK-START-YRQ TO WRK-END-YRQ.                       DTSBD360
00883                                                                   DTSBD360
00884                                                                   DTSBD360
00885 *****                                                             DTSBD360
00886 *                                                                 DTSBD360
00887 *    THE WAIVER MESSAGE PRINTED ON UC-30S AND ON A R109           DTSBD360
00888 *    REFERENCES THE ENTIRE RANGE OF QUARTERS FOR WHICH THE        DTSBD360
00889 *    WAIVER IS SPECIFIED. THUS, IF AN INCONSISTENCY EXISTS        DTSBD360
00890 *    BETWEEN ANY ONE OF THE QUARTERS FOR WHICH THE WAIVER         DTSBD360
00891 *    IS SPECIFIED AND THE WAIVER DEAL REPRESENTED BY              DTSBD360
00892 *    T036-WAIVER-START-YRQ, T036-WAIVER-END-YRQ, AND T036-WAIVER  DTSBD360
00893 *    -EXT-DATE, THEN THE WAIVER MESSAGES SHOULD NOT BE            DTSBD360
00894 *    PRINTED AND AN UNUSUAL EVENT RECORD WRITTEN.                 DTSBD360
00895 *                                                                 DTSBD360
00896 *****                                                             DTSBD360
00897                                                                   DTSBD360
00898      MOVE 'N' TO INCONSISTENT-WAIVER-IND.                         DTSBD360
00899                                                                   DTSBD360
00900      IF T036-WAIVER-START-YRQ > +0                                DTSBD360
00901          MOVE T036-WAIVER-START-YRQ TO L004-QTR-5-9               DTSBD360
00902          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBD360
00903          MOVE L004-ABS-QTR TO WRK-ABS-YRQ                         DTSBD360
00904          MOVE T036-WAIVER-END-YRQ TO L004-QTR-5-9                 DTSBD360
00905          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBD360
00906          MOVE L004-ABS-QTR TO WRK-END-ABS-YRQ                     DTSBD360
00907          PERFORM P1020-CHECK-WAIVER THRU P1020-EXIT               DTSBD360
00908              VARYING WRK-ABS-YRQ FROM WRK-ABS-YRQ BY 1            DTSBD360
00909              UNTIL (WRK-ABS-YRQ > WRK-END-ABS-YRQ)                DTSBD360
00910                       OR                                          DTSBD360
00911                    (INCONSISTENT-WAIVER-IND = 'Y').               DTSBD360
00912                                                                   DTSBD360
00913      IF INCONSISTENT-WAIVER-IND = 'Y'                             DTSBD360
00914          MOVE T036-WAIVER-START-YRQ TO L004-QTR-5-9               DTSBD360
00915          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBD360
00916          MOVE L004-SLASH-QTR TO MSG9-SLASH-FROM-QTR               DTSBD360
00917          MOVE T036-WAIVER-END-YRQ TO L004-QTR-5-9                 DTSBD360
00918          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBD360
00919          MOVE L004-SLASH-QTR TO MSG9-SLASH-TO-QTR                 DTSBD360
00920          MOVE MSG9-ID-2 TO R907-MSG-ID                            DTSBD360
00921          MOVE MSG9-LONG-TEXT TO R907-MSG-TEXT                     DTSBD360
00922          PERFORM S946-WRITE-R907 THRU S946-EXIT.                  DTSBD360
00923                                                                   DTSBD360
00924                                                                   DTSBD360
00925      MOVE LOW-VALUES TO MELF-KEY-AREA.                            DTSBD360
00926      MOVE MPRF-EMP-NO TO MELF-EMP-NO.                             DTSBD360
00927      SET MELF-ELF-88 TO TRUE.                                     DTSBD360
00928      MOVE MELF-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD360
00929      PERFORM S910-READ THRU S910-EXIT.                            DTSBD360
00930      IF L910-NO-REC-88                                            DTSBD360
00931         SET WRK-ELECTRNIC-WAGES-NO-88 TO TRUE                     DTSBD360
00932      ELSE                                                         DTSBD360
00933         MOVE MSKL-REC TO MELF-REC                                 DTSBD360
00934         IF MELF-WAGES-YES-88                                      DTSBD360
00935            SET WRK-ELECTRNIC-WAGES-YES-88 TO TRUE                 DTSBD360
00936         ELSE                                                      DTSBD360
00937            SET WRK-ELECTRNIC-WAGES-NO-88 TO TRUE.                 DTSBD360
00938                                                                   DTSBD360
00939                                                                   DTSBD360
00940      MOVE WRK-START-YRQ TO L004-QTR-5-9.                          DTSBD360
00941                                                                   DTSBD360
00942      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBD360
00943                                                                   DTSBD360
00944      MOVE L004-ABS-QTR TO WRK-ABS-YRQ.                            DTSBD360
00945                                                                   DTSBD360
00946                                                                   DTSBD360
00947      MOVE WRK-END-YRQ TO L004-QTR-5-9.                            DTSBD360
00948                                                                   DTSBD360
00949      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBD360
00950                                                                   DTSBD360
00951      MOVE L004-ABS-QTR TO WRK-END-ABS-YRQ.                        DTSBD360
00952                                                                   DTSBD360
00953                                                                   DTSBD360
00954      PERFORM P1300-PROCESS-YRQ THRU P1300-EXIT                    DTSBD360
00955          VARYING WRK-ABS-YRQ FROM WRK-ABS-YRQ BY 1                DTSBD360
00956          UNTIL WRK-ABS-YRQ > WRK-END-ABS-YRQ.                     DTSBD360
00957  P1000-EXIT.                                                      DTSBD360
00958      EXIT.                                                        DTSBD360
00959      SKIP3                                                        DTSBD360
00960  P1010-LIAB-DETER.                                                DTSBD360
00961      IF WRK-LAST-MASS-MAIL-YRQ < T036-WAIVER-END-YRQ              DTSBD360
00962          IF WRK-START-YRQ > T036-WAIVER-END-YRQ                   DTSBD360
00963              MOVE +0 TO WRK-START-YRQ                             DTSBD360
00964              GO TO P1010-EXIT                                     DTSBD360
00965          ELSE                                                     DTSBD360
00966              NEXT SENTENCE                                        DTSBD360
00967      ELSE                                                         DTSBD360
00968          IF WRK-START-YRQ > WRK-LAST-MASS-MAIL-YRQ                DTSBD360
00969              MOVE +0 TO WRK-START-YRQ                             DTSBD360
00970              GO TO P1010-EXIT                                     DTSBD360
00971          ELSE                                                     DTSBD360
00972              NEXT SENTENCE.                                       DTSBD360
00973                                                                   DTSBD360
00974      IF WRK-LAST-MASS-MAIL-YRQ < T036-WAIVER-END-YRQ              DTSBD360
00975          IF WRK-END-YRQ > T036-WAIVER-END-YRQ                     DTSBD360
00976              MOVE T036-WAIVER-END-YRQ TO WRK-END-YRQ              DTSBD360
00977          ELSE                                                     DTSBD360
00978              NEXT SENTENCE                                        DTSBD360
00979      ELSE                                                         DTSBD360
00980          IF WRK-END-YRQ > WRK-LAST-MASS-MAIL-YRQ                  DTSBD360
00981              MOVE WRK-LAST-MASS-MAIL-YRQ TO WRK-END-YRQ           DTSBD360
00982          ELSE                                                     DTSBD360
00983              NEXT SENTENCE.                                       DTSBD360
00984  P1010-EXIT.                                                      DTSBD360
00985      EXIT.                                                        DTSBD360
00986      SKIP3                                                        DTSBD360
00987  P1020-CHECK-WAIVER.                                              DTSBD360
00988      MOVE WRK-ABS-YRQ TO L004-ABS-QTR.                            DTSBD360
00989                                                                   DTSBD360
00990      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBD360
00991                                                                   DTSBD360
00992      IF L004-INVALID-QTR                                          DTSBD360
00993          MOVE 'Y' TO INCONSISTENT-WAIVER-IND                      DTSBD360
00994          GO TO P1020-EXIT.                                        DTSBD360
00995                                                                   DTSBD360
00996                                                                   DTSBD360
00997      MOVE L004-QTR-5-9 TO WRK-YRQ.                                DTSBD360
00998                                                                   DTSBD360
00999                                                                   DTSBD360
01000      IF (WRK-YRQ < WRK-START-YRQ)                                 DTSBD360
01001               OR                                                  DTSBD360
01002         (WRK-YRQ > WRK-END-YRQ)                                   DTSBD360
01003          MOVE 'Y' TO INCONSISTENT-WAIVER-IND                      DTSBD360
01004          GO TO P1020-EXIT.                                        DTSBD360
01005                                                                   DTSBD360
01006                                                                   DTSBD360
01007      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBD360
01008                                                                   DTSBD360
01009      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBD360
01010                                                                   DTSBD360
01011      SET MQTR-QTR-88 TO TRUE.                                     DTSBD360
01012                                                                   DTSBD360
01013      MOVE WRK-YRQ TO MQTR-YRQ.                                    DTSBD360
01014                                                                   DTSBD360
01015      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD360
01016                                                                   DTSBD360
01017      PERFORM S910-READ THRU S910-EXIT.                            DTSBD360
01018                                                                   DTSBD360
01019      IF L910-NO-REC-88                                            DTSBD360
01020          MOVE 'Y' TO INCONSISTENT-WAIVER-IND                      DTSBD360
01021          GO TO P1020-EXIT.                                        DTSBD360
01022                                                                   DTSBD360
01023                                                                   DTSBD360
01024      MOVE MSKL-REC TO MQTR-REC.                                   DTSBD360
01025                                                                   DTSBD360
01026                                                                   DTSBD360
01027      MOVE WRK-YRQ TO L516-YRQ.                                    DTSBD360
01028                                                                   DTSBD360
01029      PERFORM S516-LIABILITY-INFO THRU S516-EXIT.                  DTSBD360
01030                                                                   DTSBD360
01031      IF L516-NOT-LIABLE-88                                        DTSBD360
01032          MOVE 'Y' TO INCONSISTENT-WAIVER-IND                      DTSBD360
01033          GO TO P1020-EXIT.                                        DTSBD360
01034                                                                   DTSBD360
01035                                                                   DTSBD360
01036      IF T036-NO-FORCE-PRINT                                       DTSBD360
01037          IF MQTR-CURR-RCVD-88                                     DTSBD360
01038              MOVE 'Y' TO INCONSISTENT-WAIVER-IND                  DTSBD360
01039              GO TO P1020-EXIT.                                    DTSBD360
01040                                                                   DTSBD360
01041                                                                   DTSBD360
01042      IF T036-WAIVER-EXT-DATE NOT = MQTR-RPT-DUE-DATE              DTSBD360
01043          MOVE 'Y' TO INCONSISTENT-WAIVER-IND                      DTSBD360
01044          GO TO P1020-EXIT.                                        DTSBD360
01045                                                                   DTSBD360
01046                                                                   DTSBD360
01047      IF NOT MPRF-CLASS-SELF-INS-88                                DTSBD360
01048          IF L516-NO-RATE-88                                       DTSBD360
01049              MOVE 'Y' TO INCONSISTENT-WAIVER-IND                  DTSBD360
01050              GO TO P1020-EXIT.                                    DTSBD360
01051                                                                   DTSBD360
01052                                                                   DTSBD360
01053      MOVE LOW-VALUES TO FCYR-KEY-AREA.                            DTSBD360
01054                                                                   DTSBD360
01055      SET FCYR-CYR-88 TO TRUE.                                     DTSBD360
01056                                                                   DTSBD360
01057      MOVE L004-QTR-5-YR TO FCYR-YR.                               DTSBD360
01058                                                                   DTSBD360
01059      MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA.                         DTSBD360
01060                                                                   DTSBD360
01061      PERFORM S931-READ THRU S931-EXIT.                            DTSBD360
01062                                                                   DTSBD360
01063      IF L931-NO-REC-88                                            DTSBD360
01064          MOVE 'Y' TO INCONSISTENT-WAIVER-IND                      DTSBD360
01065          GO TO P1020-EXIT.                                        DTSBD360
01066                                                                   DTSBD360
01067                                                                   DTSBD360
01068      IF HOLD-YRQ-REPORTED-NO (WRK-ABS-YRQ)                        DTSBD360
01069          NEXT SENTENCE                                            DTSBD360
01070      ELSE                                                         DTSBD360
01071          IF (T036-REQUEST)                                        DTSBD360
01072                AND                                                DTSBD360
01073             (NOT T036-TAX-ADDR-88)                                DTSBD360
01074              NEXT SENTENCE                                        DTSBD360
01075          ELSE                                                     DTSBD360
01076              MOVE 'Y' TO INCONSISTENT-WAIVER-IND                  DTSBD360
01077              GO TO P1020-EXIT.                                    DTSBD360
01078  P1020-EXIT.                                                      DTSBD360
01079      EXIT.                                                        DTSBD360
01080      EJECT                                                        DTSBD360
01081  P1100-SET-START-YRQ.                                             DTSBD360
01082      IF T036-START-YRQ > +0                                       DTSBD360
01083          IF T036-START-YRQ > MPRF-LAST-ARCHIVED-YRQ               DTSBD360
01084              MOVE T036-START-YRQ TO WRK-START-YRQ                 DTSBD360
01085              GO TO P1100-EXIT                                     DTSBD360
01086          ELSE                                                     DTSBD360
01087              PERFORM P1120-LAST-ARCHIVED-PLUS-1 THRU P1120-EXIT   DTSBD360
01088              GO TO P1100-EXIT.                                    DTSBD360
01089                                                                   DTSBD360
01090                                                                   DTSBD360
01091      MOVE YRQ-NINES-LIT TO WRK-START-YRQ.                         DTSBD360
01092                                                                   DTSBD360
01093                                                                   DTSBD360
01094      MOVE LOW-VALUE TO MSKL-KEY-AREA.                             DTSBD360
01095                                                                   DTSBD360
01096      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD360
01097                                                                   DTSBD360
01098      SET MSKL-SOL-88 TO TRUE.                                     DTSBD360
01099                                                                   DTSBD360
01100      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD360
01101                                                                   DTSBD360
01102      PERFORM UNTIL L910-NO-REC-88                                 DTSBD360
01103          MOVE MSKL-REC TO MSOL-REC                                DTSBD360
01104          IF  MSOL-FIRST-LIAB-YRQ NOT = 0                          DTSBD360
01105                AND MSOL-FIRST-LIAB-YRQ < WRK-START-YRQ            DTSBD360
01106              MOVE MSOL-FIRST-LIAB-YRQ TO WRK-START-YRQ            DTSBD360
01107          END-IF                                                   DTSBD360
01108          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD360
01109      END-PERFORM.                                                 DTSBD360
01110                                                                   DTSBD360
01111                                                                   DTSBD360
01112 *****IF T036-ELF-ADD AND                                          DTSBD360
01113 *********WRK-START-YRQ > LBCM-LAST-UC30-MASS-MAIL-YRQ             DTSBD360
01114 *********MOVE +0 TO WRK-START-YRQ                                 DTSBD360
01115 *********GO TO P1100-EXIT.                                        DTSBD360
01116                                                                   DTSBD360
01117                                                                   DTSBD360
01118      IF WRK-START-YRQ = YRQ-NINES-LIT                             DTSBD360
01119          MOVE +0 TO WRK-START-YRQ.                                DTSBD360
01120                                                                   DTSBD360
01121                                                                   DTSBD360
01122      IF MPRF-LAST-ARCHIVED-YRQ = 0                                DTSBD360
01123            OR WRK-START-YRQ > MPRF-LAST-ARCHIVED-YRQ              DTSBD360
01124          GO TO P1100-EXIT.                                        DTSBD360
01125                                                                   DTSBD360
01126                                                                   DTSBD360
01127      PERFORM P1120-LAST-ARCHIVED-PLUS-1 THRU P1120-EXIT.          DTSBD360
01128  P1100-EXIT.                                                      DTSBD360
01129      EXIT.                                                        DTSBD360
01130      SKIP3                                                        DTSBD360
01131  P1120-LAST-ARCHIVED-PLUS-1.                                      DTSBD360
01132      MOVE MPRF-LAST-ARCHIVED-YRQ TO L004-QTR-5-9.                 DTSBD360
01133                                                                   DTSBD360
01134      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBD360
01135                                                                   DTSBD360
01136      ADD +1 TO L004-ABS-QTR.                                      DTSBD360
01137                                                                   DTSBD360
01138      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBD360
01139                                                                   DTSBD360
01140      MOVE L004-QTR-5-9 TO WRK-START-YRQ.                          DTSBD360
01141  P1120-EXIT.                                                      DTSBD360
01142      EXIT.                                                        DTSBD360
01143      EJECT                                                        DTSBD360
01144  P1200-SET-END-YRQ.                                               DTSBD360
01145      IF T036-END-YRQ = +0                                         DTSBD360
01146            OR T036-END-YRQ = YRQ-NINES-LIT                        DTSBD360
01147          NEXT SENTENCE                                            DTSBD360
01148      ELSE                                                         DTSBD360
01149          MOVE T036-END-YRQ TO WRK-END-YRQ                         DTSBD360
01150          GO TO P1200-EXIT.                                        DTSBD360
01151                                                                   DTSBD360
01152                                                                   DTSBD360
01153      MOVE +0 TO WRK-END-YRQ.                                      DTSBD360
01154                                                                   DTSBD360
01155                                                                   DTSBD360
01156      MOVE LOW-VALUE TO MSKL-KEY-AREA.                             DTSBD360
01157                                                                   DTSBD360
01158      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD360
01159                                                                   DTSBD360
01160      SET MSKL-SOL-88 TO TRUE.                                     DTSBD360
01161                                                                   DTSBD360
01162      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD360
01163                                                                   DTSBD360
01164      PERFORM UNTIL L910-NO-REC-88                                 DTSBD360
01165          MOVE MSKL-REC TO MSOL-REC                                DTSBD360
01166          IF MSOL-LAST-LIAB-YRQ = YRQ-NINES-LIT                    DTSBD360
01167              IF WRK-LAST-MASS-MAIL-YRQ > WRK-END-YRQ              DTSBD360
01168                  MOVE WRK-LAST-MASS-MAIL-YRQ TO WRK-END-YRQ       DTSBD360
01169              END-IF                                               DTSBD360
01170          ELSE                                                     DTSBD360
01171              IF MSOL-LAST-LIAB-YRQ > WRK-END-YRQ                  DTSBD360
01172                  MOVE MSOL-LAST-LIAB-YRQ TO WRK-END-YRQ           DTSBD360
01173              END-IF                                               DTSBD360
01174          END-IF                                                   DTSBD360
01175          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD360
01176      END-PERFORM.                                                 DTSBD360
01177  P1200-EXIT.                                                      DTSBD360
01178      EXIT.                                                        DTSBD360
01179      EJECT                                                        DTSBD360
01180  P1300-PROCESS-YRQ.                                               DTSBD360
01181      MOVE WRK-ABS-YRQ TO L004-ABS-QTR.                            DTSBD360
01182                                                                   DTSBD360
01183      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBD360
01184                                                                   DTSBD360
01185      MOVE L004-SLASH-QTR TO MSG4-SLASH-QTR                        DTSBD360
01186                             MSG5-SLASH-QTR.                       DTSBD360
01187                                                                   DTSBD360
01188                                                                   DTSBD360
01189      MOVE L004-QTR-5-9 TO WRK-YRQ.                                DTSBD360
01190                                                                   DTSBD360
01191                                                                   DTSBD360
01192      IF WRK-YRQ <= LBCM-PICKUP-YRQ                                DTSBD360
01193          GO TO P1300-EXIT.                                        DTSBD360
01194                                                                   DTSBD360
01195                                                                   DTSBD360
01196      MOVE WRK-YRQ TO L516-YRQ.                                    DTSBD360
01197                                                                   DTSBD360
01198      PERFORM S516-LIABILITY-INFO THRU S516-EXIT.                  DTSBD360
01199                                                                   DTSBD360
01200                                                                   DTSBD360
01201      MOVE LOW-VALUE TO MQTR-KEY-AREA.                             DTSBD360
01202                                                                   DTSBD360
01203      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBD360
01204                                                                   DTSBD360
01205      SET MQTR-QTR-88 TO TRUE.                                     DTSBD360
01206                                                                   DTSBD360
01207      MOVE WRK-YRQ TO MQTR-YRQ.                                    DTSBD360
01208                                                                   DTSBD360
01209      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD360
01210                                                                   DTSBD360
01211      PERFORM S910-READ THRU S910-EXIT.                            DTSBD360
01212                                                                   DTSBD360
01213      IF L910-OK-88                                                DTSBD360
01214          MOVE MSKL-REC TO MQTR-REC                                DTSBD360
01215          SET WRK-MQTR-EXISTS-YES TO TRUE                          DTSBD360
01216      ELSE                                                         DTSBD360
01217          SET WRK-MQTR-EXISTS-NO TO TRUE.                          DTSBD360
01218                                                                   DTSBD360
01219      IF T036-NO-FORCE-PRINT                                       DTSBD360
01220          IF L516-NOT-LIABLE-88                                    DTSBD360
01221              GO TO P1300-EXIT                                     DTSBD360
01222          ELSE                                                     DTSBD360
01223              IF  WRK-MQTR-EXISTS-YES                              DTSBD360
01224                    AND MQTR-CURR-RCVD-88                          DTSBD360
01225                  GO TO P1300-EXIT.                                DTSBD360
01226                                                                   DTSBD360
01227                                                                   DTSBD360
01228      MOVE LOW-VALUE TO FCYR-KEY-AREA.                             DTSBD360
01229                                                                   DTSBD360
01230      SET FCYR-CYR-88 TO TRUE.                                     DTSBD360
01231                                                                   DTSBD360
01232      MOVE L004-QTR-5-YR TO FCYR-YR.                               DTSBD360
01233                                                                   DTSBD360
01234      MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA.                         DTSBD360
01235                                                                   DTSBD360
01236      PERFORM S931-READ THRU S931-EXIT.                            DTSBD360
01237                                                                   DTSBD360
01238      IF L931-NO-REC-88                                            DTSBD360
01239          MOVE MSG8-ID-2 TO R907-MSG-ID                            DTSBD360
01240          MOVE FCYR-YR TO MSG8-YEAR                                DTSBD360
01241          MOVE MSG8-LONG-TEXT TO R907-MSG-TEXT                     DTSBD360
01242          PERFORM S946-WRITE-R907 THRU S946-EXIT                   DTSBD360
01243          GO TO P1300-EXIT.                                        DTSBD360
01244                                                                   DTSBD360
01245      MOVE FSKL-REC TO FCYR-REC.                                   DTSBD360
01246                                                                   DTSBD360
01247                                                                   DTSBD360
01248      IF NOT MPRF-CLASS-SELF-INS-88                                DTSBD360
01249          IF L516-NO-RATE-88                                       DTSBD360
01250              MOVE MSG5-ID-2 TO R907-MSG-ID                        DTSBD360
01251              MOVE MSG5-LONG-TEXT TO R907-MSG-TEXT                 DTSBD360
01252              PERFORM S946-WRITE-R907 THRU S946-EXIT               DTSBD360
01253              GO TO P1300-EXIT.                                    DTSBD360
01254                                                                   DTSBD360
01255                                                                   DTSBD360
01256      IF T036-REQUEST                                              DTSBD360
01257          IF  T036-TAX-ADDR-88                                     DTSBD360
01258             NEXT SENTENCE                                         DTSBD360
01259          ELSE                                                     DTSBD360
01260             IF L516-ANN-SCHED-88                                  DTSBD360
01261                PERFORM P1320-FINISH-R910-UC30H THRU P1320-EXIT    DTSBD360
01262                GO TO P1300-EXIT                                   DTSBD360
01263             ELSE                                                  DTSBD360
01264                PERFORM P1310-FINISH-R902-UC30  THRU P1310-EXIT    DTSBD360
01265                GO TO P1300-EXIT.                                  DTSBD360
01266                                                                   DTSBD360
01267                                                                   DTSBD360
01268      IF HOLD-YRQ-REPORTED-NO (WRK-ABS-YRQ)                        DTSBD360
01269          SET HOLD-YRQ-REPORTED-YES (WRK-ABS-YRQ) TO TRUE          DTSBD360
01270      ELSE                                                         DTSBD360
01271          MOVE MSG4-ID-2 TO R907-MSG-ID                            DTSBD360
01272          MOVE MSG4-LONG-TEXT TO R907-MSG-TEXT                     DTSBD360
01273          PERFORM S946-WRITE-R907 THRU S946-EXIT                   DTSBD360
01274          GO TO P1300-EXIT.                                        DTSBD360
01275                                                                   DTSBD360
01276                                                                   DTSBD360
01277      IF L516-ANN-SCHED-88                                         DTSBD360
01278          PERFORM P1320-FINISH-R910-UC30H THRU P1320-EXIT          DTSBD360
01279      ELSE                                                         DTSBD360
01280          PERFORM P1310-FINISH-R902-UC30  THRU P1310-EXIT.         DTSBD360
01281                                                                   DTSBD360
01282  P1300-EXIT.                                                      DTSBD360
01283      EXIT.                                                        DTSBD360
01284      EJECT                                                        DTSBD360
01285  P1310-FINISH-R902-UC30.                                          DTSBD360
01286      SET R902-SORT-TYPE-DAILY-88 TO TRUE.                         DTSBD360
01287                                                                   DTSBD360
01288      MOVE LOW-VALUE TO R902-VAR-SORT-AREA.                        DTSBD360
01289                                                                   DTSBD360
01290      IF T036-LIAB-DETER                                           DTSBD360
01291          SET R902-LIAB-DETERM-88 TO TRUE                          DTSBD360
01292      ELSE                                                         DTSBD360
01293      IF T036-REQUEST                                              DTSBD360
01294          SET R902-REQUEST-88 TO TRUE                              DTSBD360
01295 *****ELSE                                                         DTSBD360
01296 *****IF T036-ELF-ADD                                              DTSBD360
01297 *********SET R902-ELF-ADD-88 TO TRUE                              DTSBD360
01298      ELSE                                                         DTSBD360
01299          SET R902-INACT-88 TO TRUE.                               DTSBD360
01300                                                                   DTSBD360
01301      MOVE T036-RESP-OP-ID TO R902-DAILY-OP-ID.                    DTSBD360
01302                                                                   DTSBD360
01303      MOVE MPRF-EMP-CLASS TO R902-DAILY-EMP-CLASS.                 DTSBD360
01304                                                                   DTSBD360
01305      MOVE MPRF-EMP-NO TO R902-DAILY-EMP-NO                        DTSBD360
01306                          WRK-EMP-NO.                              DTSBD360
01307                                                                   DTSBD360
01308      MOVE WRK-YRQ TO R902-DAILY-YRQ.                              DTSBD360
01309                                                                   DTSBD360
01310                                                                   DTSBD360
01311      INITIALIZE R902-DATA-AREA.                                   DTSBD360
01312                                                                   DTSBD360
01313                                                                   DTSBD360
01314      SET R902-DAILY-88 TO TRUE.                                   DTSBD360
01315                                                                   DTSBD360
01316      MOVE MPRF-PRIMARY-NAME TO R902-PRI-NAME-FIRST4.              DTSBD360
01317                                                                   DTSBD360
01318      MOVE L112-MAILING-ADDRESS TO R902-FMT-ADDR.                  DTSBD360
01319                                                                   DTSBD360
01320      MOVE L112-ZIP TO R902-ZIP.                                   DTSBD360
01321                                                                   DTSBD360
01322      MOVE L112-ADVANCED-BARCODE TO R902-ADVANCED-BARCODE.         DTSBD360
01323                                                                   DTSBD360
01324      MOVE FCYR-TAXABLE-WAGE-BASE TO R902-TAX-WAGE-BASE.           DTSBD360
01325                                                                   DTSBD360
01326      MOVE L516-UI-RATE TO R902-UI-RATE.                           DTSBD360
01327                                                                   DTSBD360
01328      IF WRK-MQTR-EXISTS-NO                                        DTSBD360
01329            OR MQTR-RPT-DUE-DATE = +0                              DTSBD360
01330          MOVE L516-DEFAULT-RPT-DUE-DATE TO R902-RPT-DUE-DATE      DTSBD360
01331      ELSE                                                         DTSBD360
01332          MOVE MQTR-RPT-DUE-DATE TO R902-RPT-DUE-DATE.             DTSBD360
01333                                                                   DTSBD360
01334      MOVE MPRF-FEIN TO R902-FEIN.                                 DTSBD360
01335                                                                   DTSBD360
01336      IF  (T036-LIAB-DETER OR T036-REQUEST)                        DTSBD360
01337            AND (WRK-YRQ NOT < T036-WAIVER-START-YRQ)              DTSBD360
01338            AND (WRK-YRQ NOT > T036-WAIVER-END-YRQ)                DTSBD360
01339            AND (INCONSISTENT-WAIVER-IND = 'N')                    DTSBD360
01340          MOVE T036-WAIVER-START-YRQ                               DTSBD360
01341            TO R902-DAILY-WAIVER-START-YRQ                         DTSBD360
01342          MOVE T036-WAIVER-END-YRQ                                 DTSBD360
01343            TO R902-DAILY-WAIVER-END-YRQ                           DTSBD360
01344          MOVE T036-WAIVER-EXT-DATE                                DTSBD360
01345            TO R902-DAILY-WAIVER-DATE.                             DTSBD360
01346                                                                   DTSBD360
01347      IF  WRK-MQTR-EXISTS-YES                                      DTSBD360
01348            AND MQTR-CURR-RCVD-88                                  DTSBD360
01349          SET R902-DAILY-SUPL-YES-88 TO TRUE.                      DTSBD360
01350                                                                   DTSBD360
01351      IF NOT MPRF-NAICS-CD-NONCLASSIF-88                           DTSBD360
01352         MOVE MPRF-NAICS-CD    TO R902-INDUSTRY-CD                 DTSBD360
01353      ELSE                                                         DTSBD360
01354      IF NOT MPRF-SIC-CD-NONCLASSIF-88                             DTSBD360
01355         MOVE MPRF-SIC-CD      TO R902-INDUSTRY-CD.                DTSBD360
01356                                                                   DTSBD360
01357      MOVE WRK-ELECTRNIC-WAGE-FILER-IND                            DTSBD360
01358                         TO R902-ELECTRNIC-WAGE-FILER-IND.         DTSBD360
01359                                                                   DTSBD360
01360      PERFORM S946-WRITE-R902 THRU S946-EXIT.                      DTSBD360
01361  P1310-EXIT.                                                      DTSBD360
01362      EXIT.                                                        DTSBD360
01363                                                                   DTSBD360
01364  P1320-FINISH-R910-UC30H.                                         DTSBD360
01365      MOVE WRK-YRQ                TO WRK-ANN-YRQ.                  DTSBD360
01366      MOVE WRK-ANN-YEAR           TO WRK-UC30H-YEAR.               DTSBD360
01367                                                                   DTSBD360
01368      SET HOLD-YEAR-REPORTED-NO   TO TRUE.                         DTSBD360
01369      PERFORM P1321-CHK-YR-REPORTED  THRU P1321-EXIT               DTSBD360
01370      IF HOLD-YEAR-REPORTED-YES                                    DTSBD360
01371         GO TO P1320-EXIT.                                         DTSBD360
01372                                                                   DTSBD360
01373       SET R910-SORT-TYPE-DAILY-88 TO TRUE.                        DTSBD360
01374                                                                   DTSBD360
01375       MOVE LOW-VALUE TO R910-VAR-SORT-AREA.                       DTSBD360
01376                                                                   DTSBD360
01377       IF T036-LIAB-DETER                                          DTSBD360
01378           SET R910-LIAB-DETERM-88 TO TRUE                         DTSBD360
01379        ELSE                                                       DTSBD360
01380         IF T036-REQUEST                                           DTSBD360
01381            SET R910-REQUEST-88 TO TRUE                            DTSBD360
01382         ELSE                                                      DTSBD360
01383            SET R910-INACT-88 TO TRUE.                             DTSBD360
01384                                                                   DTSBD360
01385       MOVE T036-RESP-OP-ID TO R910-DAILY-OP-ID.                   DTSBD360
01386                                                                   DTSBD360
01387       MOVE MPRF-EMP-NO TO R910-DAILY-EMP-NO                       DTSBD360
01388                                  WRK-EMP-NO.                      DTSBD360
01389                                                                   DTSBD360
01390       MOVE WRK-UC30H-YEAR TO R910-DAILY-YR.                       DTSBD360
01391                                                                   DTSBD360
01392                                                                   DTSBD360
01393       INITIALIZE R910-DATA-AREA.                                  DTSBD360
01394                                                                   DTSBD360
01395       SET R910-DAILY-88 TO TRUE.                                  DTSBD360
01396                                                                   DTSBD360
01397       MOVE MPRF-PRIMARY-NAME TO R910-PRI-NAME-FIRST4.             DTSBD360
01398                                                                   DTSBD360
01399       MOVE L112-MAILING-ADDRESS TO R910-FMT-ADDR.                 DTSBD360
01400                                                                   DTSBD360
01401       MOVE L112-ZIP TO R910-ZIP.                                  DTSBD360
01402                                                                   DTSBD360
01403       MOVE L112-ADVANCED-BARCODE TO R910-ADVANCED-BARCODE.        DTSBD360
01404                                                                   DTSBD360
01405       MOVE FCYR-TAXABLE-WAGE-BASE TO R910-TAX-WAGE-BASE.          DTSBD360
01406                                                                   DTSBD360
01407       MOVE L516-UI-RATE TO R910-UI-RATE.                          DTSBD360
01408                                                                   DTSBD360
01409      IF WRK-MQTR-EXISTS-NO                                        DTSBD360
01410            OR MQTR-RPT-DUE-DATE = +0                              DTSBD360
01411          MOVE L516-DEFAULT-RPT-DUE-DATE TO R910-RPT-DUE-DATE      DTSBD360
01412      ELSE                                                         DTSBD360
01413          MOVE MQTR-RPT-DUE-DATE TO R910-RPT-DUE-DATE.             DTSBD360
01414                                                                   DTSBD360
01415      MOVE MPRF-FEIN TO R910-FEIN.                                 DTSBD360
01416                                                                   DTSBD360
01417      IF  (T036-LIAB-DETER OR T036-REQUEST)                        DTSBD360
01418            AND (WRK-YRQ NOT < T036-WAIVER-START-YRQ)              DTSBD360
01419            AND (WRK-YRQ NOT > T036-WAIVER-END-YRQ)                DTSBD360
01420            AND (INCONSISTENT-WAIVER-IND = 'N')                    DTSBD360
01421          MOVE T036-WAIVER-START-YRQ                               DTSBD360
01422            TO R910-DAILY-WAIVER-START-YRQ                         DTSBD360
01423          MOVE T036-WAIVER-END-YRQ                                 DTSBD360
01424            TO R910-DAILY-WAIVER-END-YRQ                           DTSBD360
01425          MOVE T036-WAIVER-EXT-DATE                                DTSBD360
01426            TO R910-DAILY-WAIVER-DATE.                             DTSBD360
01427                                                                   DTSBD360
01428      IF  WRK-MQTR-EXISTS-YES                                      DTSBD360
01429            AND MQTR-CURR-RCVD-88                                  DTSBD360
01430          SET R910-DAILY-SUPL-YES-88 TO TRUE.                      DTSBD360
01431                                                                   DTSBD360
01432      MOVE WRK-ELECTRNIC-WAGE-FILER-IND                            DTSBD360
01433                         TO R910-ELECTRNIC-WAGE-FILER-IND.         DTSBD360
01434                                                                   DTSBD360
01435      PERFORM P3000-GET-SSNS   THRU P3000-EXIT.                    DTSBD360
01436                                                                   DTSBD360
01437      IF TBL-CNT < +11                                             DTSBD360
01438         PERFORM P4000-PRINT-UC30H-WITH-SSN  THRU P4000-EXIT       DTSBD360
01439      ELSE                                                         DTSBD360
01440         PERFORM P5000-PRINT-UC30H-NO-SSN    THRU P5000-EXIT.      DTSBD360
01441                                                                   DTSBD360
01442  P1320-EXIT.                                                      DTSBD360
01443       EXIT.                                                       DTSBD360
01444                                                                   DTSBD360
01445                                                                   DTSBD360
01446  P1321-CHK-YR-REPORTED.                                           DTSBD360
01447      PERFORM                                                      DTSBD360
01448         VARYING YR-SUB FROM +1 BY +1                              DTSBD360
01449         UNTIL HOLD-YEAR-REPORTED-YES                              DTSBD360
01450         OR    YR-SUB > HOLD-YEAR-TABLE-CNT                        DTSBD360
01451            IF HOLD-YEAR (YR-SUB) = WRK-UC30H-YEAR                 DTSBD360
01452               SET HOLD-YEAR-REPORTED-YES TO TRUE                  DTSBD360
01453            END-IF                                                 DTSBD360
01454      END-PERFORM.                                                 DTSBD360
01455                                                                   DTSBD360
01456      IF HOLD-YEAR-REPORTED-NO                                     DTSBD360
01457         ADD +1         TO HOLD-YEAR-TABLE-CNT                     DTSBD360
01458         MOVE WRK-UC30H-YEAR                                       DTSBD360
01459                        TO HOLD-YEAR (HOLD-YEAR-TABLE-CNT).        DTSBD360
01460                                                                   DTSBD360
01461  P1321-EXIT.                                                      DTSBD360
01462      EXIT.                                                        DTSBD360
01463      EJECT                                                        DTSBD360
01464  P2000-R109.                                                      DTSBD360
01465      MOVE LOW-VALUE TO MSKL-KEY-AREA.                             DTSBD360
01466                                                                   DTSBD360
01467      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD360
01468                                                                   DTSBD360
01469      SET MSKL-SOL-88 TO TRUE.                                     DTSBD360
01470                                                                   DTSBD360
01471      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD360
01472                                                                   DTSBD360
01473      MOVE MSKL-REC TO MSOL-REC.                                   DTSBD360
01474                                                                   DTSBD360
01475      PERFORM UNTIL (T036-START-YRQ  NOT <  MSOL-FIRST-LIAB-YRQ    DTSBD360
01476                              AND                                  DTSBD360
01477                     T036-START-YRQ  NOT >  MSOL-LAST-LIAB-YRQ)    DTSBD360
01478                      OR                                           DTSBD360
01479                    L910-NO-REC-88                                 DTSBD360
01480          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD360
01481          MOVE MSKL-REC TO MSOL-REC                                DTSBD360
01482      END-PERFORM.                                                 DTSBD360
01483                                                                   DTSBD360
01484      IF L910-NO-REC-88                                            DTSBD360
01485          MOVE MSG6-ID-2 TO R907-MSG-ID                            DTSBD360
01486          MOVE T036-START-YRQ TO L004-QTR-5-9                      DTSBD360
01487          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBD360
01488          MOVE L004-SLASH-QTR TO MSG6-SLASH-QTR                    DTSBD360
01489          MOVE MSG6-LONG-TEXT TO R907-MSG-TEXT                     DTSBD360
01490          PERFORM S946-WRITE-R907 THRU S946-EXIT                   DTSBD360
01491          GO TO P2000-EXIT.                                        DTSBD360
01492                                                                   DTSBD360
01493                                                                   DTSBD360
01494      MOVE LOW-VALUE TO MQTR-KEY-AREA.                             DTSBD360
01495                                                                   DTSBD360
01496      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBD360
01497                                                                   DTSBD360
01498      SET MQTR-QTR-88 TO TRUE.                                     DTSBD360
01499                                                                   DTSBD360
01500      MOVE MSOL-FIRST-LIAB-YRQ TO MQTR-YRQ.                        DTSBD360
01501                                                                   DTSBD360
01502      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD360
01503                                                                   DTSBD360
01504      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD360
01505                                                                   DTSBD360
01506      MOVE MSKL-REC TO MQTR-REC.                                   DTSBD360
01507                                                                   DTSBD360
01508                                                                   DTSBD360
01509      INITIALIZE R109-DATA-AREA.                                   DTSBD360
01510                                                                   DTSBD360
01511      MOVE +0        TO WRK-R109-CNT.                              DTSBD360
01512                                                                   DTSBD360
01513      SET WRK-QTRLY-RPT-NO-88 TO TRUE.                             DTSBD360
01514      SET WRK-ANN-RPT-NO-88 TO TRUE.                               DTSBD360
01515      PERFORM P2100-CHECK-RECEIVED THRU P2100-EXIT                 DTSBD360
01516          UNTIL MQTR-YRQ > MSOL-LAST-LIAB-YRQ                      DTSBD360
01517                  OR L910-NO-REC-88                                DTSBD360
01518                  OR WRK-R109-CNT > +24.                           DTSBD360
01519                                                                   DTSBD360
01520      IF WRK-R109-CNT = +0                                         DTSBD360
01521            OR WRK-R109-CNT > +24                                  DTSBD360
01522          GO TO P2000-EXIT.                                        DTSBD360
01523                                                                   DTSBD360
01524                                                                   DTSBD360
01525                                                                   DTSBD360
01526                                                                   DTSBD360
01527      PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT.               DTSBD360
01528                                                                   DTSBD360
01529      IF L061-FLD-REP-ID = '??'                                    DTSBD360
01530          MOVE '692' TO R907-MSG-ID                                DTSBD360
01531          MOVE MPRF-EMP-NO TO R907-EMP-NO                          DTSBD360
01532          MOVE MSG10-LONG-TEXT TO R907-MSG-TEXT                    DTSBD360
01533          PERFORM S946-WRITE-R907 THRU S946-EXIT                   DTSBD360
01534      ELSE                                                         DTSBD360
01535          PERFORM P2200-FINISH-R109 THRU P2200-EXIT                DTSBD360
01536          PERFORM P2300-WRITE-MEVL THRU P2300-EXIT.                DTSBD360
01537  P2000-EXIT.                                                      DTSBD360
01538      EXIT.                                                        DTSBD360
01539      EJECT                                                        DTSBD360
01540  P2100-CHECK-RECEIVED.                                            DTSBD360
01541      MOVE MQTR-YRQ TO L516-YRQ                                    DTSBD360
01542      PERFORM S516-LIABILITY-INFO THRU S516-EXIT.                  DTSBD360
01543                                                                   DTSBD360
01544      IF MQTR-CURR-RCVD-88 OR MQTR-CURR-PICKUP-88                  DTSBD360
01545          NEXT SENTENCE                                            DTSBD360
01546      ELSE                                                         DTSBD360
01547          PERFORM P2110-ADD-TO-TABLE  THRU P2110-EXIT.             DTSBD360
01548                                                                   DTSBD360
01549      PERFORM S910-START-BROWSE  THRU S910-EXIT.                   DTSBD360
01550      PERFORM S910-READ-NEXT     THRU S910-EXIT.                   DTSBD360
01551                                                                   DTSBD360
01552      MOVE MSKL-REC TO MQTR-REC.                                   DTSBD360
01553  P2100-EXIT.                                                      DTSBD360
01554      EXIT.                                                        DTSBD360
01555                                                                   DTSBD360
01556  P2110-ADD-TO-TABLE.                                              DTSBD360
01557      ADD +1 TO WRK-R109-CNT                                       DTSBD360
01558      IF WRK-R109-CNT > +24                                        DTSBD360
01559          MOVE MSG7-ID-2 TO R907-MSG-ID                            DTSBD360
01560          MOVE MSG7-LONG-TEXT TO R907-MSG-TEXT                     DTSBD360
01561          PERFORM S946-WRITE-R907 THRU S946-EXIT                   DTSBD360
01562          GO TO P2110-EXIT                                         DTSBD360
01563      ELSE                                                         DTSBD360
01564          MOVE MQTR-YRQ TO WRK-R109-YRQ (WRK-R109-CNT)             DTSBD360
01565          IF L516-ANN-SCHED-88                                     DTSBD360
01566             SET WRK-R109-RPT-ANN-88 (WRK-R109-CNT) TO TRUE        DTSBD360
01567             SET WRK-ANN-RPT-YES-88 TO TRUE                        DTSBD360
01568          ELSE                                                     DTSBD360
01569             SET WRK-R109-RPT-QTR-88 (WRK-R109-CNT) TO TRUE        DTSBD360
01570             SET WRK-QTRLY-RPT-YES-88 TO TRUE.                     DTSBD360
01571                                                                   DTSBD360
01572  P2110-EXIT.                                                      DTSBD360
01573      EXIT.                                                        DTSBD360
01574  P2200-FINISH-R109.                                               DTSBD360
01575      MOVE T036-RESP-OP-ID TO R109-OP-ID.                          DTSBD360
01576                                                                   DTSBD360
01577      MOVE T036-EMP-NO TO R109-EMP-NO.                             DTSBD360
01578                                                                   DTSBD360
01579      MOVE MSOL-LIAB-DATE TO R109-LIAB-DATE.                       DTSBD360
01580                                                                   DTSBD360
01581      MOVE LBCM-CURR-MAIL-DATE TO R109-MAIL-DATE.                  DTSBD360
01582                                                                   DTSBD360
01583      MOVE L112-MAILING-ADDRESS TO R109-FMT-ADDR.                  DTSBD360
01584                                                                   DTSBD360
01585      MOVE L112-ZIP TO R109-ZIP.                                   DTSBD360
01586                                                                   DTSBD360
01587      MOVE L112-ADVANCED-BARCODE TO R109-ADVANCE-BARCODE.          DTSBD360
01588                                                                   DTSBD360
01589      IF INCONSISTENT-WAIVER-IND = 'N'                             DTSBD360
01590          MOVE T036-WAIVER-START-YRQ TO R109-WAIVE-START-YRQ       DTSBD360
01591          MOVE T036-WAIVER-END-YRQ TO R109-WAIVE-END-YRQ           DTSBD360
01592          MOVE T036-WAIVER-EXT-DATE TO R109-WAIVE-DATE             DTSBD360
01593      ELSE                                                         DTSBD360
01594          MOVE +0 TO R109-WAIVE-START-YRQ                          DTSBD360
01595                     R109-WAIVE-END-YRQ                            DTSBD360
01596                     R109-WAIVE-DATE.                              DTSBD360
01597                                                                   DTSBD360
01598      MOVE L061-FLD-REP-ID TO R109-FLD-REP-ID.                     DTSBD360
01599                                                                   DTSBD360
01600      IF WRK-QTRLY-RPT-YES-88                                      DTSBD360
01601         PERFORM P2210-ADD-R109R1       THRU P2210-EXIT.           DTSBD360
01602                                                                   DTSBD360
01603      IF WRK-ANN-RPT-YES-88                                        DTSBD360
01604         PERFORM P2220-ADD-R109R2       THRU P2220-EXIT.           DTSBD360
01605                                                                   DTSBD360
01606  P2200-EXIT.                                                      DTSBD360
01607      EXIT.                                                        DTSBD360
01608      SKIP3                                                        DTSBD360
01609  P2210-ADD-R109R1.                                                DTSBD360
01610      SET R109-RPT-QUARTERLY-88  TO TRUE.                          DTSBD360
01611                                                                   DTSBD360
01612      MOVE ZERO       TO WRK-R109-SUB.                             DTSBD360
01613                                                                   DTSBD360
01614      PERFORM                                                      DTSBD360
01615         VARYING WRK-TAB-SUB FROM +1 BY +1                         DTSBD360
01616         UNTIL WRK-TAB-SUB > WRK-R109-CNT                          DTSBD360
01617            IF WRK-R109-RPT-QTR-88 (WRK-TAB-SUB)                   DTSBD360
01618               ADD +1 TO WRK-R109-SUB                              DTSBD360
01619               MOVE WRK-R109-SUB TO R109-YRQ-CNT                   DTSBD360
01620               MOVE WRK-R109-YRQ (WRK-TAB-SUB)                     DTSBD360
01621                 TO R109-YRQ (WRK-R109-SUB)                        DTSBD360
01622            END-IF                                                 DTSBD360
01623      END-PERFORM.                                                 DTSBD360
01624                                                                   DTSBD360
01625      PERFORM S946-WRITE-R109 THRU S946-EXIT.                      DTSBD360
01626                                                                   DTSBD360
01627  P2210-EXIT.                                                      DTSBD360
01628      EXIT.                                                        DTSBD360
01629      SKIP3                                                        DTSBD360
01630  P2220-ADD-R109R2.                                                DTSBD360
01631      SET R109-RPT-ANNUAL-88     TO TRUE.                          DTSBD360
01632                                                                   DTSBD360
01633      MOVE ZERO       TO WRK-R109-SUB.                             DTSBD360
01634                                                                   DTSBD360
01635      PERFORM                                                      DTSBD360
01636         VARYING WRK-TAB-SUB FROM +1 BY +1                         DTSBD360
01637         UNTIL WRK-TAB-SUB > WRK-R109-CNT                          DTSBD360
01638            IF WRK-R109-RPT-ANN-88 (WRK-TAB-SUB)                   DTSBD360
01639               ADD +1 TO WRK-R109-SUB                              DTSBD360
01640               MOVE WRK-R109-SUB TO R109-YRQ-CNT                   DTSBD360
01641               MOVE WRK-R109-YRQ (WRK-TAB-SUB)                     DTSBD360
01642                 TO R109-YRQ (WRK-R109-SUB)                        DTSBD360
01643            END-IF                                                 DTSBD360
01644      END-PERFORM.                                                 DTSBD360
01645                                                                   DTSBD360
01646      PERFORM S946-WRITE-R109 THRU S946-EXIT.                      DTSBD360
01647                                                                   DTSBD360
01648  P2220-EXIT.                                                      DTSBD360
01649      EXIT.                                                        DTSBD360
01650      SKIP3                                                        DTSBD360
01651  P2300-WRITE-MEVL.                                                DTSBD360
01652      MOVE LOW-VALUE TO MEVL-REC.                                  DTSBD360
01653                                                                   DTSBD360
01654                                                                   DTSBD360
01655      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBD360
01656                                                                   DTSBD360
01657      SET MEVL-EVL-88 TO TRUE.                                     DTSBD360
01658                                                                   DTSBD360
01659      ADD +1000 TO LBCM-EMP-ABSTIME.                               DTSBD360
01660                                                                   DTSBD360
01661      MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME.                       DTSBD360
01662                                                                   DTSBD360
01663      PERFORM S005-FROM-ABS THRU S005-EXIT.                        DTSBD360
01664                                                                   DTSBD360
01665      MOVE L005-DATE TO MEVL-DATE.                                 DTSBD360
01666                                                                   DTSBD360
01667      MOVE L005-TIME TO MEVL-TIME.                                 DTSBD360
01668                                                                   DTSBD360
01669      MOVE +0 TO MEVL-PURGE-DATE.                                  DTSBD360
01670                                                                   DTSBD360
01671      MOVE 'MISSING RPT NOTICE GENED AT SUBJECTIVITY ENTRY'        DTSBD360
01672        TO MEVL-TEXT.                                              DTSBD360
01673                                                                   DTSBD360
01674      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD360
01675                                                                   DTSBD360
01676      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBD360
01677                                                                   DTSBD360
01678      MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE                    DTSBD360
01679                                 MEVL-CHNG-DATE.                   DTSBD360
01680                                                                   DTSBD360
01681                                                                   DTSBD360
01682      MOVE MEVL-REC TO MSKL-REC.                                   DTSBD360
01683                                                                   DTSBD360
01684      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD360
01685  P2300-EXIT.                                                      DTSBD360
01686      EXIT.                                                        DTSBD360
01687      EJECT                                                        DTSBD360
01688  P3000-GET-SSNS.                                                  DTSBD360
01689      MOVE ZERO                  TO TBL-SUB                        DTSBD360
01690                                   TBL-CNT                         DTSBD360
01691                                   WRK-MAX-SSN.                    DTSBD360
01692      SET WRK-SSN-ERROR-NO-88    TO TRUE.                          DTSBD360
01693      MOVE WRK-YRQ               TO  L004-QTR-5-9.                 DTSBD360
01694      SUBTRACT 1                 FROM L004-QTR-5-YR.               DTSBD360
01695      MOVE     1                 TO   L004-QTR-5-Q.                DTSBD360
01696      PERFORM S004-FROM-5 THRU S004-EXIT                           DTSBD360
01697      MOVE L004-QTR-5-9 TO WRK-PARM-PRIOR-YRQ.                     DTSBD360
01698                                                                   DTSBD360
01699      MOVE LOW-VALUES            TO  WWGH-KEY-AREA.                DTSBD360
01700      MOVE WRK-EMP-NO            TO  WWGH-EMP-NO.                  DTSBD360
01701      MOVE WRK-PARM-PRIOR-YRQ    TO  WWGH-YRQ.                     DTSBD360
01702                                                                   DTSBD360
01703      PERFORM S981D-START-BROWSE  THRU S981D-EXIT.                 DTSBD360
01704      IF L981-NO-REC-88                                            DTSBD360
01705         GO TO P3000-EXIT                                          DTSBD360
01706      ELSE                                                         DTSBD360
01707        PERFORM P3100-SCAN-WAGES THRU P3100-EXIT                   DTSBD360
01708           UNTIL L981-NO-REC-88.                                   DTSBD360
01709  P3000-EXIT.                                                      DTSBD360
01710        EXIT.                                                      DTSBD360
01711                                                                   DTSBD360
01712  P3100-SCAN-WAGES.                                                DTSBD360
01713                                                                   DTSBD360
01714      IF WWGH-EMP-NO                   NOT = WRK-EMP-NO            DTSBD360
01715         SET L981-NO-REC-88            TO TRUE                     DTSBD360
01716         GO TO P3100-EXIT                                          DTSBD360
01717      ELSE                                                         DTSBD360
01718        IF WWGH-SSN < +1000000                                     DTSBD360
01719          NEXT SENTENCE                                            DTSBD360
01720      END-IF                                                       DTSBD360
01721      PERFORM P3110-FIND-INDEX      THRU P3110-EXIT                DTSBD360
01722        IF WRK-SSN-ERROR-NO-88                                     DTSBD360
01723          IF WRK-INDEX-SSN-FOUND-88                                DTSBD360
01724             NEXT SENTENCE                                         DTSBD360
01725          ELSE                                                     DTSBD360
01726             MOVE WWGH-SSN           TO WRK-SSN (TBL-SUB)          DTSBD360
01727        ELSE                                                       DTSBD360
01728           GO TO P3100-EXIT.                                       DTSBD360
01729                                                                   DTSBD360
01730      PERFORM S981E-READ-NEXT       THRU S981E-EXIT.               DTSBD360
01731                                                                   DTSBD360
01732  P3100-EXIT.                                                      DTSBD360
01733        EXIT.                                                      DTSBD360
01734                                                                   DTSBD360
01735  P3110-FIND-INDEX.                                                DTSBD360
01736       SET WRK-INDEX-NULL-88            TO TRUE.                   DTSBD360
01737                                                                   DTSBD360
01738       IF WWGH-SSN > WRK-MAX-SSN                                   DTSBD360
01739          IF TBL-CNT < TBL-MAX                                     DTSBD360
01740            ADD +1                          TO TBL-CNT             DTSBD360
01741            MOVE TBL-CNT                    TO TBL-SUB             DTSBD360
01742            SET WRK-INDEX-POSITION-FOUND-88 TO TRUE                DTSBD360
01743           MOVE WWGH-SSN                   TO WRK-MAX-SSN          DTSBD360
01744          ELSE                                                     DTSBD360
01745           SET WRK-SSN-ERROR-YES-88        TO TRUE                 DTSBD360
01746         END-IF                                                    DTSBD360
01747       ELSE                                                        DTSBD360
01748       PERFORM P3111-SEARCH-TABLE         THRU P3111-EXIT          DTSBD360
01749       IF WRK-INDEX-POSITION-FOUND-88                              DTSBD360
01750          IF TBL-CNT < TBL-MAX                                     DTSBD360
01751             PERFORM P3112-INSERT-SSN     THRU P3112-EXIT          DTSBD360
01752          ELSE                                                     DTSBD360
01753             SET WRK-SSN-ERROR-YES-88     TO TRUE                  DTSBD360
01754          END-IF                                                   DTSBD360
01755        END-IF                                                     DTSBD360
01756       END-IF.                                                     DTSBD360
01757  P3110-EXIT.                                                      DTSBD360
01758        EXIT.                                                      DTSBD360
01759                                                                   DTSBD360
01760                                                                   DTSBD360
01761  P3111-SEARCH-TABLE.                                              DTSBD360
01762      PERFORM                                                      DTSBD360
01763        VARYING SSN-SUB FROM +1 BY +1                              DTSBD360
01764        UNTIL WRK-INDEX-FOUND-88                                   DTSBD360
01765        OR SSN-SUB > TBL-CNT                                       DTSBD360
01766           IF WRK-SSN (SSN-SUB) = WWGH-SSN                         DTSBD360
01767              SET WRK-INDEX-SSN-FOUND-88 TO TRUE                   DTSBD360
01768              MOVE SSN-SUB TO TBL-SUB                              DTSBD360
01769           ELSE                                                    DTSBD360
01770              IF WWGH-SSN < WRK-SSN (SSN-SUB)                      DTSBD360
01771                 MOVE SSN-SUB TO TBL-SUB                           DTSBD360
01772                 SET WRK-INDEX-POSITION-FOUND-88 TO TRUE           DTSBD360
01773              END-IF                                               DTSBD360
01774           END-IF                                                  DTSBD360
01775       END-PERFORM.                                                DTSBD360
01776  P3111-EXIT.                                                      DTSBD360
01777      EXIT.                                                        DTSBD360
01778                                                                   DTSBD360
01779  P3112-INSERT-SSN.                                                DTSBD360
01780      PERFORM                                                      DTSBD360
01781        VARYING SSN-SUB FROM TBL-CNT BY -1                         DTSBD360
01782        UNTIL SSN-SUB < TBL-SUB                                    DTSBD360
01783           COMPUTE NXT-SUB = SSN-SUB + 1                           DTSBD360
01784           MOVE WRK-SSN (SSN-SUB) TO WRK-SSN (NXT-SUB)             DTSBD360
01785      END-PERFORM.                                                 DTSBD360
01786                                                                   DTSBD360
01787      ADD +1             TO TBL-CNT.                               DTSBD360
01788                                                                   DTSBD360
01789  P3112-EXIT.                                                      DTSBD360
01790      EXIT.                                                        DTSBD360
01791                                                                   DTSBD360
01792  P4000-PRINT-UC30H-WITH-SSN.                                      DTSBD360
01793      PERFORM                                                      DTSBD360
01794        VARYING TBL-SUB FROM +1 BY +1                              DTSBD360
01795        UNTIL TBL-SUB > TBL-CNT                                    DTSBD360
01796           MOVE WRK-SSN (TBL-SUB) TO                               DTSBD360
01797              R910-SSN-LINE (TBL-SUB)                              DTSBD360
01798              DISPLAY 'MOVING SSN TO PRINT '                       DTSBD360
01799      END-PERFORM.                                                 DTSBD360
01800                                                                   DTSBD360
01801      DISPLAY 'DISPLAY SSN COUNT   ' TBL-CNT.                      DTSBD360
01802      MOVE TBL-CNT TO R910-SSN-LINE-CNT.                           DTSBD360
01803      PERFORM S946-WRITE-R910 THRU S946-EXIT.                      DTSBD360
01804                                                                   DTSBD360
01805  P4000-EXIT.                                                      DTSBD360
01806      EXIT.                                                        DTSBD360
01807                                                                   DTSBD360
01808  P5000-PRINT-UC30H-NO-SSN.                                        DTSBD360
01809      PERFORM                                                      DTSBD360
01810        VARYING TBL-SUB FROM +1 BY +1                              DTSBD360
01811        UNTIL TBL-SUB > TBL-CNT                                    DTSBD360
01812           MOVE ZEROS TO                                           DTSBD360
01813              R910-SSN-LINE (TBL-SUB)                              DTSBD360
01814      END-PERFORM.                                                 DTSBD360
01815                                                                   DTSBD360
01816      DISPLAY 'DISPLAY SSN > 10    ' TBL-CNT.                      DTSBD360
01817      MOVE ZEROS   TO R910-SSN-LINE-CNT.                           DTSBD360
01818      PERFORM S946-WRITE-R910 THRU S946-EXIT.                      DTSBD360
01819                                                                   DTSBD360
01820      DISPLAY 'DISPLAY SSN = 0     ' TBL-CNT.                      DTSBD360
01821  P5000-EXIT.                                                      DTSBD360
01822      EXIT.                                                        DTSBD360
01823                                                                   DTSBD360
01824  S004-FROM-5.                                                     DTSBD360
01825      SET L004-FROM-5 TO TRUE.                                     DTSBD360
01826      GO TO S004-QTR.                                              DTSBD360
01827                                                                   DTSBD360
01828  S004-FROM-ABS.                                                   DTSBD360
01829      SET L004-FROM-ABS TO TRUE.                                   DTSBD360
01830      GO TO S004-QTR.                                              DTSBD360
01831                                                                   DTSBD360
01832  S004-QTR.                                                        DTSBD360
01833      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBD360
01834  S004-EXIT.                                                       DTSBD360
01835      EXIT.                                                        DTSBD360
01836      SKIP3                                                        DTSBD360
01837  S005-FROM-ABS.                                                   DTSBD360
01838      SET L005-FROM-ABSTIME TO TRUE.                               DTSBD360
01839      GO TO S005-TIME.                                             DTSBD360
01840                                                                   DTSBD360
01841  S005-TIME.                                                       DTSBD360
01842      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD360
01843  S005-EXIT.                                                       DTSBD360
01844      EXIT.                                                        DTSBD360
01845      SKIP3                                                        DTSBD360
01846  S061-DETERMINE-FLD-REP.                                          DTSBD360
01847      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBD360
01848      MOVE MPRF-EMP-NO TO L061-EMP-NO.                             DTSBD360
01849      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBD360
01850  S061-EXIT.                                                       DTSBD360
01851      EXIT.                                                        DTSBD360
01852      SKIP3                                                        DTSBD360
01853  S111-LOOKUP-ADDR.                                                DTSBD360
01854      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBD360
01855  S111-EXIT.                                                       DTSBD360
01856      EXIT.                                                        DTSBD360
01857      SKIP3                                                        DTSBD360
01858  S112-FORMAT-ADDR.                                                DTSBD360
01859      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBD360
01860  S112-EXIT.                                                       DTSBD360
01861      EXIT.                                                        DTSBD360
01862      SKIP3                                                        DTSBD360
01863  S410-FILING-SCHED.                                               DTSBD360
01864      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBD360
01865  S410-EXIT.                                                       DTSBD360
01866      EXIT.                                                        DTSBD360
01867      SKIP3                                                        DTSBD360
01868  S415-HOUSEHOLD-DATES.                                            DTSBD360
01869      CALL 'DTSBU415' USING L415-LINK-AREA.                        DTSBD360
01870  S415-EXIT.                                                       DTSBD360
01871      EXIT.                                                        DTSBD360
01872      SKIP3                                                        DTSBD360
01873  S516-LIABILITY-INFO.                                             DTSBD360
01874      CALL 'DTSBU516' USING L516-LINK-AREA                         DTSBD360
01875                            MPRF-REC.                              DTSBD360
01876  S516-EXIT.                                                       DTSBD360
01877      EXIT.                                                        DTSBD360
01878      SKIP3                                                        DTSBD360
01879  S910-READ.                                                       DTSBD360
01880      SET L910-READ-88 TO TRUE.                                    DTSBD360
01881      GO TO S910-MSTR-IO.                                          DTSBD360
01882                                                                   DTSBD360
01883  S910-START-BROWSE.                                               DTSBD360
01884      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD360
01885      GO TO S910-MSTR-IO.                                          DTSBD360
01886                                                                   DTSBD360
01887  S910-READ-NEXT.                                                  DTSBD360
01888      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD360
01889      GO TO S910-MSTR-IO.                                          DTSBD360
01890                                                                   DTSBD360
01891 *S910-COUNT.                                                      DTSBD360
01892 *****SET L910-COUNT-88 TO TRUE.                                   DTSBD360
01893 *****GO TO S910-MSTR-IO.                                          DTSBD360
01894                                                                   DTSBD360
01895  S910-WRITE.                                                      DTSBD360
01896      SET L910-WRITE-88 TO TRUE.                                   DTSBD360
01897      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD360
01898      GO TO S910-MSTR-IO.                                          DTSBD360
01899                                                                   DTSBD360
01900 *S910-REWRITE.                                                    DTSBD360
01901 *****SET L910-REWRITE-88 TO TRUE.                                 DTSBD360
01902 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD360
01903 *****GO TO S910-MSTR-IO.                                          DTSBD360
01904                                                                   DTSBD360
01905 *S910-DELETE.                                                     DTSBD360
01906 *****SET L910-DELETE-88 TO TRUE.                                  DTSBD360
01907 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD360
01908 *****GO TO S910-MSTR-IO.                                          DTSBD360
01909                                                                   DTSBD360
01910  S910-MSTR-IO.                                                    DTSBD360
01911      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD360
01912                            MSKL-REC.                              DTSBD360
01913  S910-EXIT.                                                       DTSBD360
01914      EXIT.                                                        DTSBD360
01915      SKIP3                                                        DTSBD360
01916  S931-READ.                                                       DTSBD360
01917      SET L931-READ-88 TO TRUE.                                    DTSBD360
01918      GO TO S931-REF-I.                                            DTSBD360
01919                                                                   DTSBD360
01920 *S931-START-BROWSE.                                               DTSBD360
01921 *****SET L931-START-BROWSE-88 TO TRUE.                            DTSBD360
01922 *****GO TO S931-REF-I.                                            DTSBD360
01923                                                                   DTSBD360
01924 *S931-READ-NEXT.                                                  DTSBD360
01925 *****SET L931-READ-NEXT-88 TO TRUE.                               DTSBD360
01926 *****GO TO S931-REF-I.                                            DTSBD360
01927                                                                   DTSBD360
01928  S931-REF-I.                                                      DTSBD360
01929      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBD360
01930                            FSKL-REC.                              DTSBD360
01931  S931-EXIT.                                                       DTSBD360
01932      EXIT.                                                        DTSBD360
01933      SKIP3                                                        DTSBD360
01934  S946-WRITE-R109.                                                 DTSBD360
01935      CALL 'DTSBU946' USING R109-REC.                              DTSBD360
01936      GO TO S946-EXIT.                                             DTSBD360
01937                                                                   DTSBD360
01938  S946-WRITE-R902.                                                 DTSBD360
01939      CALL 'DTSBU946' USING R902-REC.                              DTSBD360
01940      GO TO S946-EXIT.                                             DTSBD360
01941                                                                   DTSBD360
01942  S946-WRITE-R907.                                                 DTSBD360
01943      CALL 'DTSBU946' USING R907-REC.                              DTSBD360
01944      GO TO S946-EXIT.                                             DTSBD360
01945                                                                   DTSBD360
01946  S946-WRITE-R910.                                                 DTSBD360
01947      CALL 'DTSBU946' USING R910-REC.                              DTSBD360
01948      GO TO S946-EXIT.                                             DTSBD360
01949                                                                   DTSBD360
01950  S946-EXIT.                                                       DTSBD360
01951       EXIT.                                                       DTSBD360
01952                                                                   DTSBD360
01953  S981D-START-BROWSE.                                              DTSBD360
01954       SET L981-START-BROWSE-88 TO TRUE.                           DTSBD360
01955       PERFORM S981Z-WAGE-I  THRU S981Z-EXIT.                      DTSBD360
01956                                                                   DTSBD360
01957  S981D-EXIT.                                                      DTSBD360
01958       EXIT.                                                       DTSBD360
01959                                                                   DTSBD360
01960  S981E-READ-NEXT.                                                 DTSBD360
01961       SET L981-READ-NEXT-88 TO TRUE.                              DTSBD360
01962       PERFORM S981Z-WAGE-I  THRU S981Z-EXIT.                      DTSBD360
01963                                                                   DTSBD360
01964  S981E-EXIT.                                                      DTSBD360
01965       EXIT.                                                       DTSBD360
01966                                                                   DTSBD360
01967  S981Z-WAGE-I.                                                    DTSBD360
01968       CALL 'DTSBU981' USING L981-LINK-AREA                        DTSBD360
01969                            WWGH-REC.                              DTSBD360
01970  S981Z-EXIT.                                                      DTSBD360
01971       EXIT.                                                       DTSBD360
