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