00001  IDENTIFICATION DIVISION.                                         01/20/04
00002  PROGRAM-ID.             DTSBR455.                                DTSBR455
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV001
00004  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR455
00005  DATE-COMPILED.                                                   DTSBR455
00006      SKIP3                                                        DTSBR455
00007 *****                                                             DTSBR455
00008 *                                                                 DTSBR455
00009 *    CALLING SEQUENCE:  DTSBE455 CREATES DTSIR455 RECORDS.        DTSBR455
00010 *                       DTSBD800 CALLS DTSBR455                   DTSBR455
00011 *                                WHICH PRODUCES THE LIST.         DTSBR455
00012 *                                                                 DTSBR455
00013 *    FUNCTION:  ESTIMATED REPORT CANDIDATES LIST.                 DTSBR455
00014 *                                                                 DTSBR455
00015 *                                                                 DTSBR455
00016 *    MODIFICATION HISTORY:                                        DTSBR455
00017 *                                                                 DTSBR455
00018 * 12-21-94 INITIAL DEVELOPMENT                                    DTSBR455
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RHC  DTSBR455
00020 *                                                                 DTSBR455
00021 * 03-29-95 MODIFY FOR DUPLEX.                                     DTSBR455
00022 *          REFERENCE RFP #CR056           AUTHOR OF CHANGE - RHC  DTSBR455
00023 *                                                                 DTSBR455
00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR455
00025 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR455
00026 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR455
00027 *                                                                 DTSBR455
00028 *                                                                 DTSBR455
00029 *    DESCRIPTION:                                                 DTSBR455
00030 *                                                                 DTSBR455
00031 *        THIS MODULE PRODUCES THE ESTIMATED REPORT CANDIDATES     DTSBR455
00032 *        LIST.                                                    DTSBR455
00033 *                                                                 DTSBR455
00034 *    RECORDS READ:                                                DTSBR455
00035 *                                                                 DTSBR455
00036 *        NONE.                                                    DTSBR455
00037 *                                                                 DTSBR455
00038 *                                                                 DTSBR455
00039 *    PRINTED OUTPUTS:                                             DTSBR455
00040 *                                                                 DTSBR455
00041 *        455R1  ESTIMATED REPORT CANDIDATES LIST.                 DTSBR455
00042 *        455R2  "NO" ESTIMATED REPORT CANDIDATES LIST.            DTSBR455
00043 *                                                                 DTSBR455
00044 *                                                                 DTSBR455
00045 *    RECORDS WRITTEN:                                             DTSBR455
00046 *                                                                 DTSBR455
00047 *        NONE.                                                    DTSBR455
00048 *                                                                 DTSBR455
00049 *                                                                 DTSBR455
00050 *    MODULES CALLED:                                              DTSBR455
00051 *                                                                 DTSBR455
00052 *        DTSBU001  DATE CONVERT.                                  DTSBR455
00053 *        DTSBU004  QUARTER CONVERT.                               DTSBR455
00054 *                                                                 DTSBR455
00055 *                                                                 DTSBR455
00056 *****                                                             DTSBR455
00057      EJECT                                                        DTSBR455
00058  ENVIRONMENT DIVISION.                                            DTSBR455
00059                                                                   DTSBR455
00060  CONFIGURATION SECTION.                                           DTSBR455
00061  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR455
00062                                                                   DTSBR455
00063  INPUT-OUTPUT SECTION.                                            DTSBR455
00064  FILE-CONTROL.                                                    DTSBR455
00065      SELECT PRT-FILE1 ASSIGN TO RPT455R1.                         DTSBR455
00066      SELECT PRT-FILE2 ASSIGN TO RPT455R2.                         DTSBR455
00067      SKIP3                                                        DTSBR455
00068  DATA DIVISION.                                                   DTSBR455
00069  FILE SECTION.                                                    DTSBR455
00070                                                                   DTSBR455
00071  FD  PRT-FILE1                                                    DTSBR455
00072      RECORDING MODE IS F.                                         DTSBR455
00073  01  PRT-RECORD1             PIC X(133).                          DTSBR455
00074                                                                   DTSBR455
00075  FD  PRT-FILE2                                                    DTSBR455
00076      RECORDING MODE IS F.                                         DTSBR455
00077  01  PRT-RECORD2             PIC X(133).                          DTSBR455
00078                                                                   DTSBR455
00079  WORKING-STORAGE SECTION.                                         DTSBR455
000795 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR455  01/20/04'.       DTSBR455
00080      SKIP3                                                        DTSBR455
00081  01  WRK-AREA.                                                    DTSBR455
00082      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +455.DTSBR455
00083      05  FIRST-TIME-IND              PIC  X(01)        VALUE 'Y'. DTSBR455
00084                                                                   DTSBR455
00085      05  WS-CTF1-NUMBER-EMPL         PIC S9(03) COMP-3 VALUE +0.  DTSBR455
00086      05  WS-CFF1-SUM-EMPL            PIC S9(05) COMP-3 VALUE +0.  DTSBR455
00087                                                                   DTSBR455
00088      05  WS-CTF2-NUMBER-EMPL         PIC S9(03) COMP-3 VALUE +0.  DTSBR455
00089      05  WS-CFF2-SUM-EMPL            PIC S9(05) COMP-3 VALUE +0.  DTSBR455
00090                                                                   DTSBR455
00091      05  WS-FIRST-455R1              PIC  X(01)       VALUE 'Y'.  DTSBR455
00092      05  WS-FIRST-455R2              PIC  X(01)       VALUE 'Y'.  DTSBR455
00093      05  WS-FIELD-REP-ID-HOLD        PIC  X(02)  VALUE SPACE.     DTSBR455
00094      05  WS-SUM-NUMBER-ONE           PIC S9(03)  COMP-3 VALUE +0. DTSBR455
00095                                                                   DTSBR455
00096      05  WS-LINE-CNT1                PIC S9(02)  COMP-3 VALUE +0. DTSBR455
00097      05  WS-PAGE-CNT1                PIC S9(03)  COMP-3 VALUE +0. DTSBR455
00098                                                                   DTSBR455
00099      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE +0. DTSBR455
00100      05  WS-PAGE-CNT2                PIC S9(03)  COMP-3 VALUE +0. DTSBR455
00101      05  WS-BLANK-PAGE               PIC  X(133) VALUE SPACES.    DTSBR455
00102                                                                   DTSBR455
00103      05  WRK-PAGE-TRUNCATE           PIC  9(01).                  DTSBR455
00104          88  WRK-ODD-PAGE-88             VALUE 1 3 5 7 9.         DTSBR455
00105                                                                   DTSBR455
00106      05  WRK-RPT-DUE-DATES.                                       DTSBR455
00107          10 FILLER                   PIC 9(4)   VALUE 0430.       DTSBR455
00108          10 FILLER                   PIC 9(4)   VALUE 0731.       DTSBR455
00109          10 FILLER                   PIC 9(4)   VALUE 1031.       DTSBR455
00110          10 FILLER                   PIC 9(4)   VALUE 0131.       DTSBR455
00111      05  FILLER REDEFINES WRK-RPT-DUE-DATES.                      DTSBR455
00112          10 WRK-MMDD OCCURS 4.                                    DTSBR455
00113              15 WRK-MO               PIC 99.                      DTSBR455
00114              15 WRK-DA               PIC 99.                      DTSBR455
00115                                                                   DTSBR455
00116  01  PAGE-HEADING1.                                               DTSBR455
00117      05  HDR1-LINE-1.                                             DTSBR455
00118          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00119          10  FILLER                      PIC  X(05)               DTSBR455
00120                 VALUE '455R1'.                                    DTSBR455
00121          10  FILLER                      PIC  X(34)  VALUE SPACES.DTSBR455
00122          10  HDR1-AGY-NAME-LINE1         PIC  X(50).              DTSBR455
00123          10  FILLER                      PIC  X(28)  VALUE SPACES.DTSBR455
00124          10  FILLER                      PIC  X(05)               DTSBR455
00125                 VALUE 'DATE:'.                                    DTSBR455
00126          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00127          10  HDR1-SYS-DATE               PIC  X(08).              DTSBR455
00128      05  HDR1-LINE-2.                                             DTSBR455
00129          10  FILLER                      PIC  X(40)  VALUE SPACES.DTSBR455
00130          10  HDR1-AGY-NAME-LINE2         PIC  X(50).              DTSBR455
00131          10  FILLER                      PIC  X(28)  VALUE SPACES.DTSBR455
00132          10  FILLER                      PIC  X(05)               DTSBR455
00133                 VALUE 'TIME:'.                                    DTSBR455
00134          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00135          10  HDR1-SYS-TIME               PIC  X(08).              DTSBR455
00136      05  HDR1-LINE-3.                                             DTSBR455
00137          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00138          10  FILLER                      PIC  X(35)               DTSBR455
00139                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT        '.      DTSBR455
00140          10  FILLER                      PIC  X(82)  VALUE SPACES.DTSBR455
00141          10  FILLER                      PIC  X(05)               DTSBR455
00142                 VALUE 'PAGE:'.                                    DTSBR455
00143          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR455
00144          10  HDR1-PAGE-CNT               PIC  ZZ,ZZ9.             DTSBR455
00145      05  HDR1-LINE-4.                                             DTSBR455
00146          10  FILLER                      PIC  X(44)  VALUE SPACES.DTSBR455
00147          10  FILLER                      PIC  X(42)               DTSBR455
00148                VALUE 'HOUSEHOLD EMPLOYERS: ESTIMATED REPORT LIST'.DTSBR455
00149      05  HDR1-LINE-5                     PIC  X(133) VALUE SPACES.DTSBR455
00150      05  HDR1-LINE-6.                                             DTSBR455
00151          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR455
00152          10  FILLER                      PIC  X(15)               DTSBR455
00153                 VALUE 'FIELD REP CODE:'.                          DTSBR455
00154          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR455
00155          10  HDR1-FIELD-REP-ID           PIC  X(02).              DTSBR455
00156      05  HDR1-LINE-7                     PIC  X(133) VALUE SPACES.DTSBR455
00157      05  HDR1-LINE-8.                                             DTSBR455
00158          10  FILLER                      PIC  X(75)  VALUE SPACES.DTSBR455
00159          10  FILLER                      PIC  X(08)               DTSBR455
00160                 VALUE 'CALENDAR'.                                 DTSBR455
00161          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR455
00162          10  FILLER                      PIC  X(06)               DTSBR455
00163                 VALUE 'REPORT'.                                   DTSBR455
00164      05  HDR1-LINE-9.                                             DTSBR455
00165          10  FILLER                      PIC  X(12)  VALUE SPACES.DTSBR455
00166          10  FILLER                      PIC  X(06)               DTSBR455
00167                 VALUE 'EMP NO'.                                   DTSBR455
00168          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR455
00169          10  FILLER                      PIC  X(13)               DTSBR455
00170                 VALUE 'PRIMARY NAME'.                             DTSBR455
00171          10  FILLER                      PIC  X(37)  VALUE SPACES.DTSBR455
00172          10  FILLER                      PIC  X(07)               DTSBR455
00173                 VALUE '  YEAR '.                                  DTSBR455
00174          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR455
00175          10  FILLER                      PIC  X(08)               DTSBR455
00176                 VALUE 'DUE DATE'.                                 DTSBR455
00177                                                                   DTSBR455
00178  01  DETAIL-LINE-1.                                               DTSBR455
00179      05  DTL1-LINE-2.                                             DTSBR455
00180          10  FILLER                      PIC  X(11)  VALUE SPACES.DTSBR455
00181          10  DTL1-EMP-NO                 PIC  999B999.            DTSBR455
00182          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR455
00183          10  DTL1-PRIMARY-NAME           PIC  X(40).              DTSBR455
00184          10  FILLER                      PIC  X(12)  VALUE SPACES.DTSBR455
00185          10  DTL1-CALENDAR-YR            PIC  X(04).              DTSBR455
00186          10  FILLER                      PIC  X(08)  VALUE SPACES.DTSBR455
00187          10  DTL1-SLASH-DATE             PIC  X(08).              DTSBR455
00188                                                                   DTSBR455
00189  01  CONTROL-FOOTING1.                                            DTSBR455
00190      05  CTF1-LINE-3.                                             DTSBR455
00191          10  FILLER                      PIC  X(25) VALUE SPACES. DTSBR455
00192          10  CTF1-NUMBER-EMPL            PIC  ZZ,ZZ9.             DTSBR455
00193          10  FILLER                      PIC  X(01) VALUE SPACE.  DTSBR455
00194          10  FILLER                      PIC  X(35)               DTSBR455
00195                 VALUE 'EMPLOYERS LISTED FOR THIS FIELD REP'.      DTSBR455
00196                                                                   DTSBR455
00197  01  CONTROL-FOOTING-FINAL1.                                      DTSBR455
00198      05  CFF1-LINE-3.                                             DTSBR455
00199          10  FILLER                      PIC  X(25) VALUE SPACES. DTSBR455
00200          10  CFF1-SUM-EMPL               PIC  ZZ,ZZ9.             DTSBR455
00201          10  FILLER                      PIC  X(01) VALUE SPACE.  DTSBR455
00202          10  FILLER                      PIC  X(26)               DTSBR455
00203                 VALUE 'EMPLOYERS LISTED ON REPORT'.               DTSBR455
00204                                                                   DTSBR455
00205  01  PAGE-HEADING2.                                               DTSBR455
00206      05  HDR2-LINE-1.                                             DTSBR455
00207          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00208          10  FILLER                      PIC  X(05)               DTSBR455
00209                 VALUE '455R2'.                                    DTSBR455
00210          10  FILLER                      PIC  X(34)  VALUE SPACES.DTSBR455
00211          10  HDR2-AGY-NAME-LINE1         PIC  X(50).              DTSBR455
00212          10  FILLER                      PIC  X(28)  VALUE SPACES.DTSBR455
00213          10  FILLER                      PIC  X(05)               DTSBR455
00214                 VALUE 'DATE:'.                                    DTSBR455
00215          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00216          10  HDR2-SYS-DATE               PIC  X(08).              DTSBR455
00217      05  HDR2-LINE-2.                                             DTSBR455
00218          10  FILLER                      PIC  X(40)  VALUE SPACES.DTSBR455
00219          10  HDR2-AGY-NAME-LINE2         PIC  X(50).              DTSBR455
00220          10  FILLER                      PIC  X(28)  VALUE SPACES.DTSBR455
00221          10  FILLER                      PIC  X(05)               DTSBR455
00222                 VALUE 'TIME:'.                                    DTSBR455
00223          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00224          10  HDR2-SYS-TIME               PIC  X(08).              DTSBR455
00225      05  HDR2-LINE-3.                                             DTSBR455
00226          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00227          10  FILLER                      PIC  X(35)               DTSBR455
00228                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT        '.      DTSBR455
00229          10  FILLER                      PIC  X(82)  VALUE SPACES.DTSBR455
00230          10  FILLER                      PIC  X(05)               DTSBR455
00231                 VALUE 'PAGE:'.                                    DTSBR455
00232          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR455
00233          10  HDR2-PAGE-CNT               PIC  ZZ,ZZ9.             DTSBR455
00234      05  HDR2-LINE-4.                                             DTSBR455
00235          10  FILLER                      PIC  X(45)  VALUE SPACES.DTSBR455
00236          10  FILLER                      PIC  X(40)               DTSBR455
00237                 VALUE 'HOUSEHOLD EMPLOYERS: NO ESTIMATED REPORT'. DTSBR455
00238      05  HDR2-LINE-5                     PIC  X(133) VALUE SPACES.DTSBR455
00239      05  HDR2-LINE-6.                                             DTSBR455
00240          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR455
00241          10  FILLER                      PIC  X(15)               DTSBR455
00242                 VALUE 'FIELD REP CODE:'.                          DTSBR455
00243          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR455
00244          10  HDR2-FIELD-REP-ID           PIC  X(02).              DTSBR455
00245      05  HDR2-LINE-7                     PIC  X(133) VALUE SPACES.DTSBR455
00246      05  HDR2-LINE-8.                                             DTSBR455
00247          10  FILLER                      PIC  X(75)  VALUE SPACES.DTSBR455
00248          10  FILLER                      PIC  X(08)               DTSBR455
00249                 VALUE 'CALENDAR'.                                 DTSBR455
00250          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR455
00251          10  FILLER                      PIC  X(06)               DTSBR455
00252                 VALUE 'REPORT'.                                   DTSBR455
00253      05  HDR2-LINE-9.                                             DTSBR455
00254          10  FILLER                      PIC  X(12)  VALUE SPACES.DTSBR455
00255          10  FILLER                      PIC  X(06)               DTSBR455
00256                 VALUE 'EMP NO'.                                   DTSBR455
00257          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR455
00258          10  FILLER                      PIC  X(13)               DTSBR455
00259                 VALUE 'PRIMARY NAME'.                             DTSBR455
00260          10  FILLER                      PIC  X(37)  VALUE SPACES.DTSBR455
00261          10  FILLER                      PIC  X(07)               DTSBR455
00262                 VALUE '  YEAR '.                                  DTSBR455
00263          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR455
00264          10  FILLER                      PIC  X(08)               DTSBR455
00265                 VALUE 'DUE DATE'.                                 DTSBR455
00266                                                                   DTSBR455
00267  01  DETAIL-LINE-2.                                               DTSBR455
00268      05  DTL2-LINE-2.                                             DTSBR455
00269          10  FILLER                      PIC  X(11)  VALUE SPACES.DTSBR455
00270          10  DTL2-EMP-NO                 PIC  999B999.            DTSBR455
00271          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR455
00272          10  DTL2-PRIMARY-NAME           PIC  X(40).              DTSBR455
00273          10  FILLER                      PIC  X(12)  VALUE SPACES.DTSBR455
00274          10  DTL2-CALENDAR-YR            PIC  X(04).              DTSBR455
00275          10  FILLER                      PIC  X(08)  VALUE SPACES.DTSBR455
00276          10  DTL2-SLASH-DATE             PIC  X(08).              DTSBR455
00277                                                                   DTSBR455
00278  01  CONTROL-FOOTING2.                                            DTSBR455
00279      05  CTF2-LINE-3.                                             DTSBR455
00280          10  FILLER                      PIC  X(25)  VALUE SPACES.DTSBR455
00281          10  CTF2-NUMBER-EMPL            PIC  ZZ,ZZ9.             DTSBR455
00282          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00283          10  FILLER                      PIC  X(35)               DTSBR455
00284                 VALUE 'EMPLOYERS LISTED FOR THIS FIELD REP'.      DTSBR455
00285                                                                   DTSBR455
00286  01  CONTROL-FOOTING-FINAL2.                                      DTSBR455
00287      05  CFF2-LINE-3.                                             DTSBR455
00288          10  FILLER                      PIC  X(25)  VALUE SPACES.DTSBR455
00289          10  CFF2-SUM-EMPL               PIC  ZZ,ZZ9.             DTSBR455
00290          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR455
00291          10  FILLER                      PIC  X(26)               DTSBR455
00292                 VALUE 'EMPLOYERS LISTED ON REPORT'.               DTSBR455
00293      EJECT                                                        DTSBR455
00294  01  L001-LINK-AREA.                                              DTSBR455
00295  ++INCLUDE DTSIL001                                               DTSBR455
00296      EJECT                                                        DTSBR455
00297  01  L004-LINK-AREA.                                              DTSBR455
00298  ++INCLUDE DTSIL004                                               DTSBR455
00299      EJECT                                                        DTSBR455
00300  LINKAGE SECTION.                                                 DTSBR455
00301      SKIP3                                                        DTSBR455
00302  01  LRCM-LINK-AREA.                                              DTSBR455
00303  ++INCLUDE DTSILRCM                                               DTSBR455
00304      EJECT                                                        DTSBR455
00305  01  R455-REC.                                                    DTSBR455
00306  ++INCLUDE DTSIR455                                               DTSBR455
00307      EJECT                                                        DTSBR455
00308  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR455
00309                           R455-REC.                               DTSBR455
00310      IF FIRST-TIME-IND = 'Y'                                      DTSBR455
00311          PERFORM I1000-INITIATE                                   DTSBR455
00312             THRU I1000-EXIT                                       DTSBR455
00313          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR455
00314                                                                   DTSBR455
00315      IF LRCM-EOR-88                                               DTSBR455
00316          PERFORM T1000-TERMINATE                                  DTSBR455
00317             THRU T1000-EXIT                                       DTSBR455
00318      ELSE                                                         DTSBR455
00319          PERFORM P1000-PROCESS                                    DTSBR455
00320             THRU P1000-EXIT.                                      DTSBR455
00321                                                                   DTSBR455
00322      GOBACK.                                                      DTSBR455
00323                                                                   DTSBR455
00324  I1000-INITIATE.                                                  DTSBR455
00325                                                                   DTSBR455
00326      OPEN OUTPUT PRT-FILE1                                        DTSBR455
00327           OUTPUT PRT-FILE2.                                       DTSBR455
00328      MOVE SPACES TO WS-FIELD-REP-ID-HOLD.                         DTSBR455
00329      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE                          DTSBR455
00330                            HDR2-SYS-DATE.                         DTSBR455
00331      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME                          DTSBR455
00332                            HDR2-SYS-TIME.                         DTSBR455
00333      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1              DTSBR455
00334                                  HDR2-AGY-NAME-LINE1.             DTSBR455
00335      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2              DTSBR455
00336                                  HDR2-AGY-NAME-LINE2.             DTSBR455
00337      MOVE SPACES TO PRT-RECORD1.                                  DTSBR455
00338      MOVE SPACES TO PRT-RECORD2.                                  DTSBR455
00339                                                                   DTSBR455
00340  I1000-EXIT.                                                      DTSBR455
00341      EXIT.                                                        DTSBR455
00342      EJECT                                                        DTSBR455
00343                                                                   DTSBR455
00344  P1000-PROCESS.                                                   DTSBR455
00345                                                                   DTSBR455
00346      IF R455-FIELD-REP-ID NOT = WS-FIELD-REP-ID-HOLD              DTSBR455
00347          MOVE R455-FIELD-REP-ID TO WS-FIELD-REP-ID-HOLD           DTSBR455
00348                                                                   DTSBR455
00349          IF R455-ESTIMATE-GENERATED-YES-88                        DTSBR455
00350              IF WS-FIRST-455R1 = 'Y'                              DTSBR455
00351                 MOVE 'N' TO WS-FIRST-455R1                        DTSBR455
00352                 MOVE WS-FIELD-REP-ID-HOLD TO HDR1-FIELD-REP-ID    DTSBR455
00353                 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT        DTSBR455
00354              ELSE                                                 DTSBR455
00355                 PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT        DTSBR455
00356                 MOVE WS-FIELD-REP-ID-HOLD TO HDR1-FIELD-REP-ID    DTSBR455
00357                 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT        DTSBR455
00358              END-IF                                               DTSBR455
00359          ELSE                                                     DTSBR455
00360              IF WS-FIRST-455R2 = 'Y'                              DTSBR455
00361                 MOVE 'N' TO WS-FIRST-455R2                        DTSBR455
00362                 MOVE WS-FIELD-REP-ID-HOLD TO HDR2-FIELD-REP-ID    DTSBR455
00363                 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT        DTSBR455
00364              ELSE                                                 DTSBR455
00365                 PERFORM P5000-PRINT-FOOTER THRU P5000-EXIT        DTSBR455
00366                 MOVE WS-FIELD-REP-ID-HOLD TO HDR2-FIELD-REP-ID    DTSBR455
00367                 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT        DTSBR455
00368              END-IF                                               DTSBR455
00369          END-IF                                                   DTSBR455
00370      END-IF.                                                      DTSBR455
00371                                                                   DTSBR455
00372      MOVE R455-YRQ TO L004-QTR-5-9.                               DTSBR455
00373      PERFORM S004-FROM-5                                          DTSBR455
00374         THRU S004-EXIT.                                           DTSBR455
00375                                                                   DTSBR455
00376      IF R455-ESTIMATE-GENERATED-YES-88                            DTSBR455
00377         MOVE L004-SLASH-5-YR       TO DTL1-CALENDAR-YR            DTSBR455
00378      ELSE                                                         DTSBR455
00379         MOVE L004-SLASH-5-YR       TO DTL2-CALENDAR-YR.           DTSBR455
00380                                                                   DTSBR455
00381      MOVE L004-QTR-5-YR         TO L001-FED-8-YR.                 DTSBR455
00382      MOVE WRK-MO (L004-QTR-5-Q) TO L001-FED-8-MO.                 DTSBR455
00383      MOVE WRK-DA (L004-QTR-5-Q) TO L001-FED-8-DA.                 DTSBR455
00384      IF L004-QTR-5-Q = 4                                          DTSBR455
00385          ADD 1 TO L001-FED-8-YR.                                  DTSBR455
00386      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR455
00387                                                                   DTSBR455
00388      IF R455-ESTIMATE-GENERATED-YES-88                            DTSBR455
00389         MOVE L001-SLASH-DATE       TO DTL1-SLASH-DATE             DTSBR455
00390      ELSE                                                         DTSBR455
00391         MOVE L001-SLASH-DATE       TO DTL2-SLASH-DATE.            DTSBR455
00392                                                                   DTSBR455
00393      IF R455-ESTIMATE-GENERATED-YES-88                            DTSBR455
00394         MOVE R455-FIELD-REP-ID     TO HDR1-FIELD-REP-ID           DTSBR455
00395         MOVE R455-EMP-NO           TO DTL1-EMP-NO                 DTSBR455
00396         MOVE R455-PRIMARY-NAME     TO DTL1-PRIMARY-NAME           DTSBR455
00397         ADD +1    TO WS-CTF1-NUMBER-EMPL                          DTSBR455
00398         ADD +1    TO WS-CFF1-SUM-EMPL                             DTSBR455
00399         WRITE PRT-RECORD1 FROM DETAIL-LINE-1  AFTER 2             DTSBR455
00400                                                                   DTSBR455
00401         ADD +2    TO WS-LINE-CNT1                                 DTSBR455
00402         IF WS-LINE-CNT1 > 57                                      DTSBR455
00403             PERFORM P2000-PRINT-HEADER THRU P2000-EXIT            DTSBR455
00404         END-IF                                                    DTSBR455
00405      ELSE                                                         DTSBR455
00406         MOVE R455-FIELD-REP-ID     TO HDR2-FIELD-REP-ID           DTSBR455
00407         MOVE R455-EMP-NO           TO DTL2-EMP-NO                 DTSBR455
00408         MOVE R455-PRIMARY-NAME     TO DTL2-PRIMARY-NAME           DTSBR455
00409         ADD +1    TO WS-CTF2-NUMBER-EMPL                          DTSBR455
00410         ADD +1    TO WS-CFF2-SUM-EMPL                             DTSBR455
00411         WRITE PRT-RECORD2 FROM DETAIL-LINE-2  AFTER 2             DTSBR455
00412                                                                   DTSBR455
00413         ADD +2    TO WS-LINE-CNT2                                 DTSBR455
00414         IF WS-LINE-CNT2 > 57                                      DTSBR455
00415             PERFORM P3000-PRINT-HEADER THRU P3000-EXIT            DTSBR455
00416         END-IF                                                    DTSBR455
00417      END-IF.                                                      DTSBR455
00418                                                                   DTSBR455
00419  P1000-EXIT.                                                      DTSBR455
00420      EXIT.                                                        DTSBR455
00421                                                                   DTSBR455
00422  P2000-PRINT-HEADER.                                              DTSBR455
00423      MOVE +0          TO WS-LINE-CNT1                             DTSBR455
00424      ADD  +1          TO WS-PAGE-CNT1                             DTSBR455
00425      MOVE WS-PAGE-CNT1 TO HDR1-PAGE-CNT                           DTSBR455
00426      WRITE PRT-RECORD1 FROM HDR1-LINE-1 AFTER TOP-OF-PAGE         DTSBR455
00427      WRITE PRT-RECORD1 FROM HDR1-LINE-2 AFTER 1                   DTSBR455
00428      WRITE PRT-RECORD1 FROM HDR1-LINE-3 AFTER 1                   DTSBR455
00429      WRITE PRT-RECORD1 FROM HDR1-LINE-4 AFTER 1                   DTSBR455
00430      WRITE PRT-RECORD1 FROM HDR1-LINE-5 AFTER 1                   DTSBR455
00431      WRITE PRT-RECORD1 FROM HDR1-LINE-6 AFTER 1                   DTSBR455
00432      WRITE PRT-RECORD1 FROM HDR1-LINE-7 AFTER 1                   DTSBR455
00433      WRITE PRT-RECORD1 FROM HDR1-LINE-8 AFTER 1                   DTSBR455
00434      WRITE PRT-RECORD1 FROM HDR1-LINE-9 AFTER 1                   DTSBR455
00435      ADD +9    TO WS-LINE-CNT1.                                   DTSBR455
00436  P2000-EXIT.                                                      DTSBR455
00437      EXIT.                                                        DTSBR455
00438                                                                   DTSBR455
00439  P3000-PRINT-HEADER.                                              DTSBR455
00440      MOVE +0          TO WS-LINE-CNT2                             DTSBR455
00441      ADD  +1          TO WS-PAGE-CNT2                             DTSBR455
00442      MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT                           DTSBR455
00443      WRITE PRT-RECORD2 FROM HDR2-LINE-1 AFTER TOP-OF-PAGE         DTSBR455
00444      WRITE PRT-RECORD2 FROM HDR2-LINE-2 AFTER 1                   DTSBR455
00445      WRITE PRT-RECORD2 FROM HDR2-LINE-3 AFTER 1                   DTSBR455
00446      WRITE PRT-RECORD2 FROM HDR2-LINE-4 AFTER 1                   DTSBR455
00447      WRITE PRT-RECORD2 FROM HDR2-LINE-5 AFTER 1                   DTSBR455
00448      WRITE PRT-RECORD2 FROM HDR2-LINE-6 AFTER 1                   DTSBR455
00449      WRITE PRT-RECORD2 FROM HDR2-LINE-7 AFTER 1                   DTSBR455
00450      WRITE PRT-RECORD2 FROM HDR2-LINE-8 AFTER 1                   DTSBR455
00451      WRITE PRT-RECORD2 FROM HDR2-LINE-9 AFTER 1                   DTSBR455
00452      ADD +9    TO WS-LINE-CNT2.                                   DTSBR455
00453  P3000-EXIT.                                                      DTSBR455
00454      EXIT.                                                        DTSBR455
00455                                                                   DTSBR455
00456  P4000-PRINT-FOOTER.                                              DTSBR455
00457                                                                   DTSBR455
00458      MOVE WS-CTF1-NUMBER-EMPL TO CTF1-NUMBER-EMPL.                DTSBR455
00459      WRITE PRT-RECORD1 FROM CTF1-LINE-3 AFTER 3.                  DTSBR455
00460      MOVE +0 TO WS-CTF1-NUMBER-EMPL.                              DTSBR455
00461                                                                   DTSBR455
00462      MOVE WS-PAGE-CNT1 TO WRK-PAGE-TRUNCATE.                      DTSBR455
00463                                                                   DTSBR455
00464      IF WRK-ODD-PAGE-88                                           DTSBR455
00465         WRITE PRT-RECORD1 FROM WS-BLANK-PAGE                      DTSBR455
00466                 AFTER TOP-OF-PAGE                                 DTSBR455
00467      END-IF.                                                      DTSBR455
00468                                                                   DTSBR455
00469      MOVE +0   TO WS-PAGE-CNT1.                                   DTSBR455
00470                                                                   DTSBR455
00471  P4000-EXIT.                                                      DTSBR455
00472      EXIT.                                                        DTSBR455
00473                                                                   DTSBR455
00474  P5000-PRINT-FOOTER.                                              DTSBR455
00475                                                                   DTSBR455
00476      MOVE WS-CTF2-NUMBER-EMPL TO CTF2-NUMBER-EMPL.                DTSBR455
00477      WRITE PRT-RECORD2 FROM CTF2-LINE-3 AFTER 3.                  DTSBR455
00478      MOVE +0 TO WS-CTF2-NUMBER-EMPL.                              DTSBR455
00479                                                                   DTSBR455
00480      MOVE WS-PAGE-CNT2 TO WRK-PAGE-TRUNCATE.                      DTSBR455
00481      IF WRK-ODD-PAGE-88                                           DTSBR455
00482         WRITE PRT-RECORD2 FROM WS-BLANK-PAGE                      DTSBR455
00483                 AFTER TOP-OF-PAGE                                 DTSBR455
00484      END-IF.                                                      DTSBR455
00485                                                                   DTSBR455
00486      MOVE +0   TO WS-PAGE-CNT2.                                   DTSBR455
00487                                                                   DTSBR455
00488  P5000-EXIT.                                                      DTSBR455
00489      EXIT.                                                        DTSBR455
00490                                                                   DTSBR455
00491  T1000-TERMINATE.                                                 DTSBR455
00492                                                                   DTSBR455
00493      PERFORM P4000-PRINT-FOOTER THRU P4000-EXIT                   DTSBR455
00494      MOVE SPACE TO HDR1-FIELD-REP-ID                              DTSBR455
00495      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                   DTSBR455
00496      MOVE WS-CFF1-SUM-EMPL TO CFF1-SUM-EMPL.                      DTSBR455
00497      WRITE PRT-RECORD1 FROM CFF1-LINE-3 AFTER 3.                  DTSBR455
00498                                                                   DTSBR455
00499      PERFORM  P5000-PRINT-FOOTER THRU P5000-EXIT                  DTSBR455
00500      MOVE SPACE TO HDR2-FIELD-REP-ID                              DTSBR455
00501      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                   DTSBR455
00502      MOVE WS-CFF2-SUM-EMPL TO CFF2-SUM-EMPL.                      DTSBR455
00503      WRITE PRT-RECORD2 FROM CFF2-LINE-3 AFTER 3.                  DTSBR455
00504                                                                   DTSBR455
00505      CLOSE PRT-FILE1                                              DTSBR455
00506            PRT-FILE2.                                             DTSBR455
00507                                                                   DTSBR455
00508  T1000-EXIT.                                                      DTSBR455
00509      EXIT.                                                        DTSBR455
00510      EJECT                                                        DTSBR455
00511  S001-FROM-FED-8.                                                 DTSBR455
00512                                                                   DTSBR455
00513      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR455
00514                                                                   DTSBR455
00515      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR455
00516                                                                   DTSBR455
00517  S001-EXIT.                                                       DTSBR455
00518      EXIT.                                                        DTSBR455
00519      SKIP3                                                        DTSBR455
00520  S004-FROM-5.                                                     DTSBR455
00521                                                                   DTSBR455
00522      SET L004-FROM-5 TO TRUE.                                     DTSBR455
00523                                                                   DTSBR455
00524      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR455
00525                                                                   DTSBR455
00526  S004-EXIT.                                                       DTSBR455
00527      EXIT.                                                        DTSBR455
00528      SKIP3                                                        DTSBR455
00529 *S999-ABEND.                                                      DTSBR455
00530 *                                                                 DTSBR455
00531 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR455
00532 *                                                                 DTSBR455
00533 *S999-EXIT.                                                       DTSBR455
00534 *    EXIT.                                                        DTSBR455
00535                                                                   DTSBR455
