00001  IDENTIFICATION DIVISION.                                         02/26/08
00002  PROGRAM-ID.             DTSBR128.                                DTSBR128
00003  AUTHOR.                 NORTHROP GRUMMAN.                           LV001
00004  DATE-WRITTEN.           JULY 2005.                               DTSBR128
00005  DATE-COMPILED.                                                   DTSBR128
00006      SKIP3                                                        DTSBR128
00007 *****                                                             DTSBR128
00008 *                                                                 DTSBR128
00009 *    FUNCTION:  WEB DETERMINATION REPORT.                         DTSBR128
00010 *                                                                 DTSBR128
00011 *    CALLING SEQUENCE:  FROM THE WEB REGISTRATION PROCESS AND     DTSBR128
00012 *                       THRU THE DAILY PRODUCTION RUN CREATED     DTSBR128
00013 *                       THE DTSIR128 RECORDS.                     DTSBR128
00014 *                       DTSBD800 CALLS DTSBR128 USING DTSIR128    DTSBR128
00015 *                       WHICH PRODUCES THE REPORTS.               DTSBR128
00016 *                                                                 DTSBR128
00017 *    MODIFICATION HISTORY:                                        DTSBR128
00018 *                                                                 DTSBR128
00019 * 05-19-04 INITIAL DEVELOPMENT                                    DTSBR128
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RW1  DTSBR128
00021 *                                                                 DTSBR128
00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR128
00023 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR128
00024 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR128
00025 *                                                                 DTSBR128
00026 *                                                                 DTSBR128
00027 *    DESCRIPTION:                                                 DTSBR128
00028 *                                                                 DTSBR128
00029 *        THIS MODULE PRODUCES A REPORT FOR THE NEW EMPLOYER       DTSBR128
00030 *        DETERMINATIONS PRODUCED THROUGH THE WEB REGISTRITION     DTSBR128
00031 *        PROCESSES.                                               DTSBR128
00032 *                                                                 DTSBR128
00033 *    RECORDS READ:                                                DTSBR128
00034 *                                                                 DTSBR128
00035 *        NONE.                                                    DTSBR128
00036 *                                                                 DTSBR128
00037 *                                                                 DTSBR128
00038 *    PRINTED OUTPUTS:                                             DTSBR128
00039 *                                                                 DTSBR128
00040 *        128R1  EMPLOYER DETERMINATION REPORT RECORD.             DTSBR128
00041 *                                                                 DTSBR128
00042 *                                                                 DTSBR128
00043 *    RECORDS WRITTEN:                                             DTSBR128
00044 *                                                                 DTSBR128
00045 *        NONE.                                                    DTSBR128
00046 *                                                                 DTSBR128
00047 *                                                                 DTSBR128
00048 *    MODULES CALLED:                                              DTSBR128
00049 *                                                                 DTSBR128
00050 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR128
00051 *        DTSBU002 DATE ALPHA CONVERSION MODULE                    DTSBR128
00052 *        DTSBU004 YEAR/QUARTER CONVERSION.                        DTSBR128
00053 *                                                                 DTSBR128
00054 *****                                                             DTSBR128
00055                                                                   DTSBR128
00056  ENVIRONMENT DIVISION.                                            DTSBR128
00057                                                                   DTSBR128
00058  CONFIGURATION SECTION.                                           DTSBR128
00059                                                                   DTSBR128
00060  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR128
00061                                                                   DTSBR128
00062  INPUT-OUTPUT SECTION.                                            DTSBR128
00063                                                                   DTSBR128
00064  FILE-CONTROL.                                                    DTSBR128
00065      SELECT PRT-FILE1 ASSIGN TO RPT128R1.                         DTSBR128
00066      SELECT PRT-FILE2 ASSIGN TO RPT128R2.                         DTSBR128
00067      SELECT PRT-FILE3 ASSIGN TO RPT128R3.                         DTSBR128
00068      SELECT PRT-FILE4 ASSIGN TO RPT128R4.                         DTSBR128
00069                                                                   DTSBR128
00070  DATA DIVISION.                                                   DTSBR128
00071                                                                   DTSBR128
00072  FILE SECTION.                                                    DTSBR128
00073                                                                   DTSBR128
00074  FD  PRT-FILE1                                                    DTSBR128
00075      RECORDING MODE IS F                                          DTSBR128
00076      BLOCK CONTAINS 0 RECORDS                                     DTSBR128
00077      LABEL RECORDS ARE OMITTED.                                   DTSBR128
00078                                                                   DTSBR128
00079  01  REPORT-LISTING1                 PIC X(80).                   DTSBR128
00080                                                                   DTSBR128
00081  FD  PRT-FILE2                                                    DTSBR128
00082      RECORDING MODE IS F                                          DTSBR128
00083      BLOCK CONTAINS 0 RECORDS                                     DTSBR128
00084      LABEL RECORDS ARE OMITTED.                                   DTSBR128
00085                                                                   DTSBR128
00086  01  REPORT-LISTING2                 PIC X(80).                   DTSBR128
00087                                                                   DTSBR128
00088  FD  PRT-FILE3                                                    DTSBR128
00089      RECORDING MODE IS F                                          DTSBR128
00090      BLOCK CONTAINS 0 RECORDS                                     DTSBR128
00091      LABEL RECORDS ARE OMITTED.                                   DTSBR128
00092                                                                   DTSBR128
00093  01  REPORT-LISTING3                 PIC X(80).                   DTSBR128
00094                                                                   DTSBR128
00095  FD  PRT-FILE4                                                    DTSBR128
00096      RECORDING MODE IS F                                          DTSBR128
00097      BLOCK CONTAINS 0 RECORDS                                     DTSBR128
00098      LABEL RECORDS ARE OMITTED.                                   DTSBR128
00099                                                                   DTSBR128
00100  01  REPORT-LISTING4                 PIC X(80).                   DTSBR128
00101                                                                   DTSBR128
00102  WORKING-STORAGE SECTION.                                         DTSBR128
001025 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR128  02/26/08'.       DTSBR128
00103                                                                   DTSBR128
00104  01  WRK-AREA.                                                    DTSBR128
00105                                                                   DTSBR128
00106      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +128.DTSBR128
00107      05  WRK-ABEND-MSG               PIC  X(60)  VALUE SPACES.    DTSBR128
00108      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR128
00109                                                                   DTSBR128
00110 *** USED FOR RPT128R1                                             DTSBR128
00111      05  WS-SUM-NUMBER-ONE           PIC S9(05)  COMP-3 VALUE +0. DTSBR128
00112      05  WS-LINE-CNT-I1              PIC S9(02)  COMP-3 VALUE 60. DTSBR128
00113      05  WS-LINE-CNT-R1              PIC S9(02)  COMP-3 VALUE +0. DTSBR128
00114      05  WS-PAGE-CNT-1               PIC S9(03)  COMP-3 VALUE +0. DTSBR128
00115                                                                   DTSBR128
00116 *** USED FOR RPT128R2                                             DTSBR128
00117      05  WS-SUM-NUMBER-TWO           PIC S9(05)  COMP-3 VALUE +0. DTSBR128
00118      05  WS-LINE-CNT-I2              PIC S9(02)  COMP-3 VALUE 60. DTSBR128
00119      05  WS-LINE-CNT-R2              PIC S9(02)  COMP-3 VALUE +0. DTSBR128
00120      05  WS-PAGE-CNT-2               PIC S9(03)  COMP-3 VALUE +0. DTSBR128
00121                                                                   DTSBR128
00122 *** USED FOR RPT128R3                                             DTSBR128
00123      05  WS-SUM-NUMBER-THREE         PIC S9(05)  COMP-3 VALUE +0. DTSBR128
00124      05  WS-LINE-CNT-I3              PIC S9(02)  COMP-3 VALUE 60. DTSBR128
00125      05  WS-LINE-CNT-R3              PIC S9(02)  COMP-3 VALUE +0. DTSBR128
00126      05  WS-PAGE-CNT-3               PIC S9(03)  COMP-3 VALUE +0. DTSBR128
00127                                                                   DTSBR128
00128 *** USED FOR RPT128R4                                             DTSBR128
00129      05  WS-SUM-NUMBER-FOUR          PIC S9(05)  COMP-3 VALUE +0. DTSBR128
00130      05  WS-LINE-CNT-I4              PIC S9(02)  COMP-3 VALUE 60. DTSBR128
00131      05  WS-LINE-CNT-R4              PIC S9(02)  COMP-3 VALUE +0. DTSBR128
00132      05  WS-PAGE-CNT-4               PIC S9(03)  COMP-3 VALUE +0. DTSBR128
00133 *** USED FOR FOUR DIFFERENT REPORTS                               DTSBR128
00134      05  WS-REPORT-TYPE1             PIC  X(05)  VALUE '128R1'.   DTSBR128
00135      05  WS-REPORT-TYPE2             PIC  X(05)  VALUE '128R2'.   DTSBR128
00136      05  WS-REPORT-TYPE3             PIC  X(05)  VALUE '128R3'.   DTSBR128
00137      05  WS-REPORT-TYPE4             PIC  X(05)  VALUE '128R4'.   DTSBR128
00138                                                                   DTSBR128
00139      05  WS-HDR4-LIT-1               PIC  X(22)                   DTSBR128
00140             VALUE 'PENDING DETERMINATIONS'.                       DTSBR128
00141      05  WS-HDR4-LIT-2               PIC  X(22)                   DTSBR128
00142             VALUE '  LIABILITY UPDATES   '.                       DTSBR128
00143      05  WS-HDR4-LIT-3               PIC  X(22)                   DTSBR128
00144             VALUE 'NON-LIABILITY UPDATES '.                       DTSBR128
00145      05  WS-HDR4-LIT-4               PIC  X(22)                   DTSBR128
00146             VALUE '  NEW DETERMINATIONS  '.                       DTSBR128
00147                                                                   DTSBR128
00148  01  HEADER-1.                                                    DTSBR128
00149      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR128
00150      05  WS-RPT-NO                   PIC  X(05).                  DTSBR128
00151      05  FILLER                      PIC  X(24)  VALUE SPACES.    DTSBR128
00152      05  FILLER                      PIC  X(20)  VALUE            DTSBR128
00153               'DISTRICT OF COLUMBIA'.                             DTSBR128
00154      05  FILLER                      PIC  X(16)  VALUE SPACES.    DTSBR128
00155      05  FILLER                      PIC  X(05)                   DTSBR128
00156             VALUE 'DATE:'.                                        DTSBR128
00157      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR128
00158      05  WS-SYS-DATE                 PIC  X(08)  VALUE SPACE.     DTSBR128
00159                                                                   DTSBR128
00160  01  HEADER-2.                                                    DTSBR128
00161      05  FILLER                      PIC  X(34)  VALUE SPACES.    DTSBR128
00162      05  FILLER                      PIC  X(12)  VALUE            DTSBR128
00163               'TAX DIVISION'.                                     DTSBR128
00164      05  FILLER                      PIC  X(20)  VALUE SPACES.    DTSBR128
00165      05  FILLER                      PIC  X(05)                   DTSBR128
00166             VALUE 'TIME:'.                                        DTSBR128
00167      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR128
00168      05  WS-SYS-TIME                 PIC  X(08)  VALUE SPACE.     DTSBR128
00169                                                                   DTSBR128
00170  01  HEADER-3.                                                    DTSBR128
00171      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR128
00172      05  FILLER                      PIC  X(25)                   DTSBR128
00173             VALUE 'ROUTE TO: STATUS         '.                    DTSBR128
00174      05  FILLER                      PIC  X(40)  VALUE SPACES.    DTSBR128
00175      05  FILLER                      PIC  X(05)  VALUE 'PAGE:'.   DTSBR128
00176      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR128
00177      05  HDR3-PAGE-CNT               PIC  ZZ,ZZ9.                 DTSBR128
00178                                                                   DTSBR128
00179  01  HEADER-4.                                                    DTSBR128
00180      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR128
00181      05  FILLER                      PIC  X(28)  VALUE SPACE.     DTSBR128
00182      05  HDR4-LIT                    PIC  X(22)  VALUE SPACE.     DTSBR128
00183      05  FILLER                      PIC  X(29)  VALUE SPACE.     DTSBR128
00184                                                                   DTSBR128
00185  01  HEADER-5                        PIC  X(80)  VALUE SPACES.    DTSBR128
00186                                                                   DTSBR128
00187  01  HEADER-6.                                                    DTSBR128
00188      05  FILLER                      PIC  X(01) VALUE SPACE.      DTSBR128
00189      05  FILLER                      PIC  X(02) VALUE SPACES.     DTSBR128
00190      05  FILLER                      PIC  X(06)                   DTSBR128
00191                 VALUE 'EMP NO'.                                   DTSBR128
00192      05  FILLER                      PIC  X(03) VALUE SPACES.     DTSBR128
00193      05  FILLER                      PIC  X(12)                   DTSBR128
00194                 VALUE 'PRIMARY NAME'.                             DTSBR128
00195      05  FILLER                      PIC  X(28) VALUE SPACES.     DTSBR128
00196      05  FILLER                      PIC  X(02) VALUE SPACES.     DTSBR128
00197      05  FILLER                      PIC  X(06)                   DTSBR128
00198                 VALUE 'SOURCE'.                                   DTSBR128
00199      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBR128
00200      05  FILLER                      PIC  X(02) VALUE SPACES.     DTSBR128
00201      05  FILLER                      PIC  X(12)                   DTSBR128
00202                 VALUE 'ENTERED DATE'.                             DTSBR128
00203      05  FILLER                      PIC  X(03) VALUE SPACES.     DTSBR128
00204                                                                   DTSBR128
00205  01  HEADER-7                        PIC  X(80)  VALUE SPACES.    DTSBR128
00206                                                                   DTSBR128
00207  01  DETAIL-LINE.                                                 DTSBR128
00208      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR128
00209      05  FILLER                      PIC  X(02)  VALUE SPACES.    DTSBR128
00210      05  WS-EMP-NO                   PIC  999B999 BLANK WHEN ZERO.DTSBR128
00211      05  FILLER                      PIC  X(02)  VALUE SPACE.     DTSBR128
00212      05  WS-PRIMARY-NAME             PIC  X(40).                  DTSBR128
00213      05  FILLER                      PIC  X(02)  VALUE SPACE.     DTSBR128
00214      05  WS-SOURCE                   PIC  X(10).                  DTSBR128
00215      05  FILLER                      PIC  X(02)  VALUE SPACES.    DTSBR128
00216      05  WS-ENTERED-DATE             PIC  X(10).                  DTSBR128
00217      05  FILLER                      PIC  X(51)  VALUE SPACES.    DTSBR128
00218                                                                   DTSBR128
00219 *** CONTROL-FOOTING-1.                                            DTSBR128
00220  01  FILLER.                                                      DTSBR128
00221      05  CF1-LINE.                                                DTSBR128
00222          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR128
00223          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR128
00224          10  WS-FOOT-NUMBER-ONE      PIC  ZZ,ZZ9.                 DTSBR128
00225          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR128
00226          10  FILLER                  PIC  X(22) VALUE             DTSBR128
00227                   'PENDING DETERMINATIONS'.                       DTSBR128
00228          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR128
00229                                                                   DTSBR128
00230 *** CONTROL-FOOTING-2.                                            DTSBR128
00231  01  FILLER.                                                      DTSBR128
00232      05  CF2-LINE.                                                DTSBR128
00233          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR128
00234          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR128
00235          10  WS-FOOT-NUMBER-TWO      PIC  ZZ,ZZ9.                 DTSBR128
00236          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR128
00237          10  FILLER                  PIC  X(22) VALUE             DTSBR128
00238                   '  LIABILITY UPDATES   '.                       DTSBR128
00239          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR128
00240                                                                   DTSBR128
00241 *** CONTROL-FOOTING-3.                                            DTSBR128
00242  01  FILLER.                                                      DTSBR128
00243      05  CF3-LINE.                                                DTSBR128
00244          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR128
00245          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR128
00246          10  WS-FOOT-NUMBER-THREE    PIC  ZZ,ZZ9.                 DTSBR128
00247          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR128
00248          10  FILLER                  PIC  X(22) VALUE             DTSBR128
00249                   'NON-LIABILITY UPDATES '.                       DTSBR128
00250          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR128
00251                                                                   DTSBR128
00252 *** CONTROL-FOOTING-4.                                            DTSBR128
00253  01  FILLER.                                                      DTSBR128
00254      05  CF4-LINE.                                                DTSBR128
00255          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR128
00256          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR128
00257          10  WS-FOOT-NUMBER-FOUR     PIC  ZZ,ZZ9.                 DTSBR128
00258          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR128
00259          10  FILLER                  PIC  X(22) VALUE             DTSBR128
00260                   '  NEW DETERMINATIONS  '.                       DTSBR128
00261          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR128
00262                                                                   DTSBR128
00263  01  FILLER.                                                      DTSBR128
00264      05  ASTR-LINE.                                               DTSBR128
00265          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR128
00266          10  FILLER                  PIC  X(26)                   DTSBR128
00267                 VALUE '  *** END OF REPORT       '.               DTSBR128
00268          10  FILLER                  PIC  X(83) VALUE SPACES.     DTSBR128
00269                                                                   DTSBR128
00270  01  L001-LINK-AREA.                                              DTSBR128
00271  ++INCLUDE DTSIL001                                               DTSBR128
00272      EJECT                                                        DTSBR128
00273  01  L002-LINK-AREA.                                              DTSBR128
00274  ++INCLUDE DTSIL002                                               DTSBR128
00275      EJECT                                                        DTSBR128
00276  01  L004-LINK-AREA.                                              DTSBR128
00277  ++INCLUDE DTSIL004                                               DTSBR128
00278      EJECT                                                        DTSBR128
00279  01  L031-LINK-AREA.                                              DTSBR128
00280  ++INCLUDE DTSIL031                                               DTSBR128
00281      EJECT                                                        DTSBR128
00282                                                                   DTSBR128
00283  LINKAGE SECTION.                                                 DTSBR128
00284                                                                   DTSBR128
00285  01  LRCM-LINK-AREA.                                              DTSBR128
00286  ++INCLUDE DTSILRCM                                               DTSBR128
00287                                                                   DTSBR128
00288  01  R128-REC.                                                    DTSBR128
00289  ++INCLUDE DTSIR128                                               DTSBR128
00290      EJECT                                                        DTSBR128
00291  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR128
00292                           R128-REC.                               DTSBR128
00293                                                                   DTSBR128
00294      IF FIRST-TIME-IND = 'Y'                                      DTSBR128
00295          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR128
00296          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR128
00297                                                                   DTSBR128
00298      IF LRCM-EOR-88                                               DTSBR128
00299          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR128
00300      ELSE                                                         DTSBR128
00301          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR128
00302                                                                   DTSBR128
00303      GOBACK.                                                      DTSBR128
00304                                                                   DTSBR128
00305  I1000-INITIATE.                                                  DTSBR128
00306      OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4.         DTSBR128
00307      MOVE LRCM-SYS-DATE       TO WS-SYS-DATE.                     DTSBR128
00308      MOVE LRCM-SYS-TIME       TO WS-SYS-TIME.                     DTSBR128
00309      MOVE SPACES              TO REPORT-LISTING1                  DTSBR128
00310                                  REPORT-LISTING2                  DTSBR128
00311                                  REPORT-LISTING3                  DTSBR128
00312                                  REPORT-LISTING4.                 DTSBR128
00313  I1000-EXIT.                                                      DTSBR128
00314      EXIT.                                                        DTSBR128
00315                                                                   DTSBR128
00316  P1000-PROCESS.                                                   DTSBR128
00317                                                                   DTSBR128
00318      EVALUATE TRUE                                                DTSBR128
00319         WHEN R128-PENDING-DETERM-88                               DTSBR128
00320             PERFORM P2000-WRITE-PEND-DETERM    THRU P2000-EXIT    DTSBR128
00321         WHEN R128-LIAB-UPDATE-88                                  DTSBR128
00322             PERFORM P3000-WRITE-LIAB-UPDATE    THRU P3000-EXIT    DTSBR128
00323         WHEN R128-EMP-UPDATE-88                                   DTSBR128
00324             PERFORM P4000-WRITE-EMP-UPDATE     THRU P4000-EXIT    DTSBR128
00325         WHEN R128-LIAB-ENTERED-NEW-88                             DTSBR128
00326             PERFORM P5000-WRITE-LIAB-ENTER-NEW THRU P5000-EXIT    DTSBR128
00327      END-EVALUATE.                                                DTSBR128
00328                                                                   DTSBR128
00329  P1000-EXIT.                                                      DTSBR128
00330      EXIT.                                                        DTSBR128
00331                                                                   DTSBR128
00332  P2000-WRITE-PEND-DETERM.                                         DTSBR128
00333                                                                   DTSBR128
00334      PERFORM P2100-PRINT-HEADER THRU P2100-EXIT.                  DTSBR128
00335                                                                   DTSBR128
00336      MOVE R128-EMP-NO             TO WS-EMP-NO.                   DTSBR128
00337      MOVE R128-LIAB-PRIMARY-NAME  TO WS-PRIMARY-NAME.             DTSBR128
00338                                                                   DTSBR128
00339      MOVE R128-SOURCE    TO L031-CD-2.                            DTSBR128
00340      SET L031-MERA-SOURCE-CD TO TRUE                              DTSBR128
00341      PERFORM S031-CODES-DESCRIPTION THRU S031-EXIT.               DTSBR128
00342      MOVE L031-SHORT-DSCR TO WS-SOURCE.                           DTSBR128
00343                                                                   DTSBR128
00344      MOVE R128-ESTB-DATE TO L001-FED-8-DATE-9.                    DTSBR128
00345      SET L001-FROM-FED-8   TO TRUE.                               DTSBR128
00346      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR128
00347      IF L001-CAL-8-DATE-9 = ZEROS                                 DTSBR128
00348         MOVE SPACES  TO WS-ENTERED-DATE                           DTSBR128
00349      ELSE                                                         DTSBR128
00350         MOVE L001-SLASH-8-DATE TO WS-ENTERED-DATE.                DTSBR128
00351                                                                   DTSBR128
00352      WRITE REPORT-LISTING1 FROM DETAIL-LINE AFTER 2.              DTSBR128
00353      ADD +2    TO WS-LINE-CNT-R1.                                 DTSBR128
00354      ADD +1    TO WS-SUM-NUMBER-ONE.                              DTSBR128
00355                                                                   DTSBR128
00356  P2000-EXIT.                                                      DTSBR128
00357      EXIT.                                                        DTSBR128
00358                                                                   DTSBR128
00359  P2100-PRINT-HEADER.                                              DTSBR128
00360      IF WS-LINE-CNT-I1 GREATER 56 OR                              DTSBR128
00361           WS-LINE-CNT-R1 GREATER 56                               DTSBR128
00362         MOVE +0          TO WS-LINE-CNT-I1                        DTSBR128
00363         MOVE +0          TO WS-LINE-CNT-R1                        DTSBR128
00364         ADD  +1          TO WS-PAGE-CNT-1                         DTSBR128
00365         MOVE WS-PAGE-CNT-1 TO HDR3-PAGE-CNT                       DTSBR128
00366         MOVE WS-HDR4-LIT-1 TO HDR4-LIT                            DTSBR128
00367         MOVE WS-REPORT-TYPE1  TO WS-RPT-NO                        DTSBR128
00368         WRITE REPORT-LISTING1 FROM HEADER-1 AFTER TOP-OF-PAGE     DTSBR128
00369         WRITE REPORT-LISTING1 FROM HEADER-2 AFTER 1               DTSBR128
00370         WRITE REPORT-LISTING1 FROM HEADER-3 AFTER 1               DTSBR128
00371         WRITE REPORT-LISTING1 FROM HEADER-4 AFTER 1               DTSBR128
00372         WRITE REPORT-LISTING1 FROM HEADER-5 AFTER 1               DTSBR128
00373         WRITE REPORT-LISTING1 FROM HEADER-6 AFTER 1               DTSBR128
00374         WRITE REPORT-LISTING1 FROM HEADER-7 AFTER 1               DTSBR128
00375         ADD +7    TO WS-LINE-CNT-R1.                              DTSBR128
00376                                                                   DTSBR128
00377  P2100-EXIT.                                                      DTSBR128
00378      EXIT.                                                        DTSBR128
00379                                                                   DTSBR128
00380  P3000-WRITE-LIAB-UPDATE.                                         DTSBR128
00381                                                                   DTSBR128
00382      PERFORM P3100-PRINT-HEADER THRU P3100-EXIT.                  DTSBR128
00383                                                                   DTSBR128
00384      MOVE R128-EMP-NO             TO WS-EMP-NO.                   DTSBR128
00385      MOVE R128-LIAB-PRIMARY-NAME  TO WS-PRIMARY-NAME.             DTSBR128
00386                                                                   DTSBR128
00387      MOVE R128-SOURCE    TO L031-CD-2.                            DTSBR128
00388      SET L031-MERA-SOURCE-CD TO TRUE                              DTSBR128
00389      PERFORM S031-CODES-DESCRIPTION THRU S031-EXIT.               DTSBR128
00390      MOVE L031-SHORT-DSCR TO WS-SOURCE.                           DTSBR128
00391                                                                   DTSBR128
00392      MOVE R128-ESTB-DATE TO L001-FED-8-DATE-9.                    DTSBR128
00393      SET L001-FROM-FED-8   TO TRUE.                               DTSBR128
00394      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR128
00395      IF L001-CAL-8-DATE-9 = ZEROS                                 DTSBR128
00396         MOVE SPACES  TO WS-ENTERED-DATE                           DTSBR128
00397      ELSE                                                         DTSBR128
00398         MOVE L001-SLASH-8-DATE TO WS-ENTERED-DATE.                DTSBR128
00399                                                                   DTSBR128
00400      WRITE REPORT-LISTING2 FROM DETAIL-LINE AFTER 2.              DTSBR128
00401      ADD +2    TO WS-LINE-CNT-R2.                                 DTSBR128
00402      ADD +1    TO WS-SUM-NUMBER-TWO.                              DTSBR128
00403                                                                   DTSBR128
00404  P3000-EXIT.                                                      DTSBR128
00405      EXIT.                                                        DTSBR128
00406                                                                   DTSBR128
00407  P3100-PRINT-HEADER.                                              DTSBR128
00408      IF WS-LINE-CNT-I2 GREATER 56 OR                              DTSBR128
00409           WS-LINE-CNT-R2 GREATER 56                               DTSBR128
00410         MOVE +0          TO WS-LINE-CNT-I2                        DTSBR128
00411         MOVE +0          TO WS-LINE-CNT-R2                        DTSBR128
00412         ADD  +1          TO WS-PAGE-CNT-2                         DTSBR128
00413         MOVE WS-PAGE-CNT-2 TO HDR3-PAGE-CNT                       DTSBR128
00414         MOVE WS-REPORT-TYPE2  TO WS-RPT-NO                        DTSBR128
00415         MOVE WS-HDR4-LIT-2 TO HDR4-LIT                            DTSBR128
00416         WRITE REPORT-LISTING2 FROM HEADER-1 AFTER TOP-OF-PAGE     DTSBR128
00417         WRITE REPORT-LISTING2 FROM HEADER-2 AFTER 1               DTSBR128
00418         WRITE REPORT-LISTING2 FROM HEADER-3 AFTER 1               DTSBR128
00419         WRITE REPORT-LISTING2 FROM HEADER-4 AFTER 1               DTSBR128
00420         WRITE REPORT-LISTING2 FROM HEADER-5 AFTER 1               DTSBR128
00421         WRITE REPORT-LISTING2 FROM HEADER-6 AFTER 1               DTSBR128
00422         WRITE REPORT-LISTING2 FROM HEADER-7 AFTER 1               DTSBR128
00423         ADD +7    TO WS-LINE-CNT-R2.                              DTSBR128
00424                                                                   DTSBR128
00425  P3100-EXIT.                                                      DTSBR128
00426      EXIT.                                                        DTSBR128
00427                                                                   DTSBR128
00428  P4000-WRITE-EMP-UPDATE.                                          DTSBR128
00429                                                                   DTSBR128
00430      PERFORM P4100-PRINT-HEADER THRU P4100-EXIT.                  DTSBR128
00431                                                                   DTSBR128
00432      MOVE R128-EMP-NO             TO WS-EMP-NO.                   DTSBR128
00433      MOVE R128-LIAB-PRIMARY-NAME  TO WS-PRIMARY-NAME.             DTSBR128
00434                                                                   DTSBR128
00435      MOVE R128-SOURCE    TO L031-CD-2.                            DTSBR128
00436      SET L031-MERA-SOURCE-CD TO TRUE                              DTSBR128
00437      PERFORM S031-CODES-DESCRIPTION THRU S031-EXIT.               DTSBR128
00438      MOVE L031-SHORT-DSCR TO WS-SOURCE.                           DTSBR128
00439                                                                   DTSBR128
00440      MOVE R128-ESTB-DATE TO L001-FED-8-DATE-9.                    DTSBR128
00441      SET L001-FROM-FED-8   TO TRUE.                               DTSBR128
00442      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR128
00443      IF L001-CAL-8-DATE-9 = ZEROS                                 DTSBR128
00444         MOVE SPACES  TO WS-ENTERED-DATE                           DTSBR128
00445      ELSE                                                         DTSBR128
00446         MOVE L001-SLASH-8-DATE TO WS-ENTERED-DATE.                DTSBR128
00447                                                                   DTSBR128
00448      WRITE REPORT-LISTING3 FROM DETAIL-LINE AFTER 2.              DTSBR128
00449      ADD +2    TO WS-LINE-CNT-R3.                                 DTSBR128
00450      ADD +1    TO WS-SUM-NUMBER-THREE.                            DTSBR128
00451                                                                   DTSBR128
00452  P4000-EXIT.                                                      DTSBR128
00453      EXIT.                                                        DTSBR128
00454                                                                   DTSBR128
00455  P4100-PRINT-HEADER.                                              DTSBR128
00456      IF WS-LINE-CNT-I3 GREATER 56 OR                              DTSBR128
00457           WS-LINE-CNT-R3 GREATER 56                               DTSBR128
00458         MOVE +0          TO WS-LINE-CNT-I3                        DTSBR128
00459         MOVE +0          TO WS-LINE-CNT-R3                        DTSBR128
00460         ADD  +1          TO WS-PAGE-CNT-3                         DTSBR128
00461         MOVE WS-PAGE-CNT-3 TO HDR3-PAGE-CNT                       DTSBR128
00462         MOVE WS-REPORT-TYPE3  TO WS-RPT-NO                        DTSBR128
00463         MOVE WS-HDR4-LIT-3 TO HDR4-LIT                            DTSBR128
00464         WRITE REPORT-LISTING3 FROM HEADER-1 AFTER TOP-OF-PAGE     DTSBR128
00465         WRITE REPORT-LISTING3 FROM HEADER-2 AFTER 1               DTSBR128
00466         WRITE REPORT-LISTING3 FROM HEADER-3 AFTER 1               DTSBR128
00467         WRITE REPORT-LISTING3 FROM HEADER-4 AFTER 1               DTSBR128
00468         WRITE REPORT-LISTING3 FROM HEADER-5 AFTER 1               DTSBR128
00469         WRITE REPORT-LISTING3 FROM HEADER-6 AFTER 1               DTSBR128
00470         WRITE REPORT-LISTING3 FROM HEADER-7 AFTER 1               DTSBR128
00471         ADD +7    TO WS-LINE-CNT-R3.                              DTSBR128
00472                                                                   DTSBR128
00473  P4100-EXIT.                                                      DTSBR128
00474      EXIT.                                                        DTSBR128
00475                                                                   DTSBR128
00476  P5000-WRITE-LIAB-ENTER-NEW.                                      DTSBR128
00477                                                                   DTSBR128
00478      PERFORM P5100-PRINT-HEADER THRU P5100-EXIT.                  DTSBR128
00479                                                                   DTSBR128
00480      MOVE R128-EMP-NO             TO WS-EMP-NO.                   DTSBR128
00481      MOVE R128-LIAB-PRIMARY-NAME  TO WS-PRIMARY-NAME.             DTSBR128
00482                                                                   DTSBR128
00483      MOVE R128-SOURCE    TO L031-CD-2.                            DTSBR128
00484      SET L031-MERA-SOURCE-CD TO TRUE                              DTSBR128
00485      PERFORM S031-CODES-DESCRIPTION THRU S031-EXIT.               DTSBR128
00486      MOVE L031-SHORT-DSCR TO WS-SOURCE.                           DTSBR128
00487                                                                   DTSBR128
00488      MOVE R128-ESTB-DATE TO L001-FED-8-DATE-9.                    DTSBR128
00489      SET L001-FROM-FED-8   TO TRUE.                               DTSBR128
00490      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR128
00491      IF L001-CAL-8-DATE-9 = ZEROS                                 DTSBR128
00492         MOVE SPACES  TO WS-ENTERED-DATE                           DTSBR128
00493      ELSE                                                         DTSBR128
00494         MOVE L001-SLASH-8-DATE TO WS-ENTERED-DATE.                DTSBR128
00495                                                                   DTSBR128
00496      WRITE REPORT-LISTING4 FROM DETAIL-LINE AFTER 2.              DTSBR128
00497      ADD +2    TO WS-LINE-CNT-R4.                                 DTSBR128
00498      ADD +1    TO WS-SUM-NUMBER-FOUR.                             DTSBR128
00499                                                                   DTSBR128
00500  P5000-EXIT.                                                      DTSBR128
00501      EXIT.                                                        DTSBR128
00502                                                                   DTSBR128
00503  P5100-PRINT-HEADER.                                              DTSBR128
00504      IF WS-LINE-CNT-I4 GREATER 56 OR                              DTSBR128
00505           WS-LINE-CNT-R4 GREATER 56                               DTSBR128
00506         MOVE +0          TO WS-LINE-CNT-I4                        DTSBR128
00507         MOVE +0          TO WS-LINE-CNT-R4                        DTSBR128
00508         ADD  +1          TO WS-PAGE-CNT-4                         DTSBR128
00509         MOVE WS-PAGE-CNT-4 TO HDR3-PAGE-CNT                       DTSBR128
00510         MOVE WS-REPORT-TYPE4  TO WS-RPT-NO                        DTSBR128
00511         MOVE WS-HDR4-LIT-4 TO HDR4-LIT                            DTSBR128
00512         WRITE REPORT-LISTING4 FROM HEADER-1 AFTER TOP-OF-PAGE     DTSBR128
00513         WRITE REPORT-LISTING4 FROM HEADER-2 AFTER 1               DTSBR128
00514         WRITE REPORT-LISTING4 FROM HEADER-3 AFTER 1               DTSBR128
00515         WRITE REPORT-LISTING4 FROM HEADER-4 AFTER 1               DTSBR128
00516         WRITE REPORT-LISTING4 FROM HEADER-5 AFTER 1               DTSBR128
00517         WRITE REPORT-LISTING4 FROM HEADER-6 AFTER 1               DTSBR128
00518         WRITE REPORT-LISTING4 FROM HEADER-7 AFTER 1               DTSBR128
00519         ADD +7    TO WS-LINE-CNT-R4.                              DTSBR128
00520                                                                   DTSBR128
00521  P5100-EXIT.                                                      DTSBR128
00522      EXIT.                                                        DTSBR128
00523                                                                   DTSBR128
00524  T1000-TERMINATE.                                                 DTSBR128
00525                                                                   DTSBR128
00526 *** PENDING DETERMINATION FOOTER                                  DTSBR128
00527      IF WS-SUM-NUMBER-ONE NOT = +0                                DTSBR128
00528         IF WS-LINE-CNT-R1 > 54                                    DTSBR128
00529            PERFORM P2100-PRINT-HEADER THRU P2100-EXIT             DTSBR128
00530         END-IF                                                    DTSBR128
00531         MOVE WS-SUM-NUMBER-ONE TO WS-FOOT-NUMBER-ONE              DTSBR128
00532         WRITE REPORT-LISTING1 FROM CF1-LINE AFTER 3               DTSBR128
00533         WRITE REPORT-LISTING1 FROM ASTR-LINE AFTER 2              DTSBR128
00534      END-IF.                                                      DTSBR128
00535                                                                   DTSBR128
00536 *** LIABILITY UPDATE FOOTER                                       DTSBR128
00537      IF WS-SUM-NUMBER-TWO NOT = +0                                DTSBR128
00538         IF WS-LINE-CNT-R2 > 54                                    DTSBR128
00539            PERFORM P3100-PRINT-HEADER THRU P3100-EXIT             DTSBR128
00540         END-IF                                                    DTSBR128
00541         MOVE WS-SUM-NUMBER-TWO TO WS-FOOT-NUMBER-TWO              DTSBR128
00542         WRITE REPORT-LISTING2 FROM CF2-LINE AFTER 3               DTSBR128
00543         WRITE REPORT-LISTING2 FROM ASTR-LINE AFTER 2              DTSBR128
00544      END-IF.                                                      DTSBR128
00545                                                                   DTSBR128
00546 *** EMPLOYERS UPDATE FOOTER                                       DTSBR128
00547      IF WS-SUM-NUMBER-THREE NOT = +0                              DTSBR128
00548         IF WS-LINE-CNT-R3 > 54                                    DTSBR128
00549            PERFORM P4100-PRINT-HEADER THRU P4100-EXIT             DTSBR128
00550         END-IF                                                    DTSBR128
00551         MOVE WS-SUM-NUMBER-THREE TO WS-FOOT-NUMBER-THREE          DTSBR128
00552         WRITE REPORT-LISTING3 FROM CF3-LINE AFTER 3               DTSBR128
00553         WRITE REPORT-LISTING3 FROM ASTR-LINE AFTER 2              DTSBR128
00554      END-IF.                                                      DTSBR128
00555                                                                   DTSBR128
00556 *** LIABILITY ENTERED NEW FOOTER                                  DTSBR128
00557      IF WS-SUM-NUMBER-FOUR NOT = +0                               DTSBR128
00558         IF WS-LINE-CNT-R4 > 54                                    DTSBR128
00559            PERFORM P5100-PRINT-HEADER THRU P5100-EXIT             DTSBR128
00560         END-IF                                                    DTSBR128
00561         MOVE WS-SUM-NUMBER-FOUR TO WS-FOOT-NUMBER-FOUR            DTSBR128
00562         WRITE REPORT-LISTING4 FROM CF4-LINE AFTER 3               DTSBR128
00563         WRITE REPORT-LISTING4 FROM ASTR-LINE AFTER 2              DTSBR128
00564      END-IF.                                                      DTSBR128
00565                                                                   DTSBR128
00566      CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4.               DTSBR128
00567                                                                   DTSBR128
00568  T1000-EXIT.                                                      DTSBR128
00569      EXIT.                                                        DTSBR128
00570                                                                   DTSBR128
00571  S001-DATE.                                                       DTSBR128
00572      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR128
00573                                                                   DTSBR128
00574  S001-EXIT.                                                       DTSBR128
00575      EXIT.                                                        DTSBR128
00576                                                                   DTSBR128
00577  S002-DATE-ALPHA.                                                 DTSBR128
00578      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR128
00579                                                                   DTSBR128
00580  S002-EXIT.                                                       DTSBR128
00581      EXIT.                                                        DTSBR128
00582                                                                   DTSBR128
00583  S004-FROM-DATE.                                                  DTSBR128
00584      SET L004-FROM-DATE     TO TRUE.                              DTSBR128
00585      GO TO S004-YRQ.                                              DTSBR128
00586                                                                   DTSBR128
00587  S004-FROM-3.                                                     DTSBR128
00588      SET L004-FROM-3        TO TRUE.                              DTSBR128
00589      GO TO S004-YRQ.                                              DTSBR128
00590                                                                   DTSBR128
00591  S004-FROM-5.                                                     DTSBR128
00592      SET L004-FROM-5        TO TRUE.                              DTSBR128
00593      GO TO S004-YRQ.                                              DTSBR128
00594                                                                   DTSBR128
00595  S004-FROM-ABS.                                                   DTSBR128
00596      SET L004-FROM-ABS      TO TRUE.                              DTSBR128
00597      GO TO S004-YRQ.                                              DTSBR128
00598                                                                   DTSBR128
00599  S004-YRQ.                                                        DTSBR128
00600      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR128
00601                                                                   DTSBR128
00602  S004-EXIT.                                                       DTSBR128
00603      EXIT.                                                        DTSBR128
00604                                                                   DTSBR128
00605  S031-CODES-DESCRIPTION.                                          DTSBR128
00606                                                                   DTSBR128
00607      CALL 'DTSBU031' USING L031-LINK-AREA.                        DTSBR128
00608                                                                   DTSBR128
00609  S031-EXIT.                                                       DTSBR128
00610      EXIT.                                                        DTSBR128
00611                                                                   DTSBR128
00612  S999-ABEND.                                                      DTSBR128
00613      DISPLAY '*** DTSBR128 ABENDING.  '                           DTSBR128
00614              WRK-ABEND-MSG.                                       DTSBR128
00615                                                                   DTSBR128
00616      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR128
00617                                                                   DTSBR128
00618  S999-EXIT.                                                       DTSBR128
00619      EXIT.                                                        DTSBR128
00620                                                                   DTSBR128
