00001  IDENTIFICATION DIVISION.                                         10/16/03
00002  PROGRAM-ID.             DTSBR612.                                DTSBR612
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV008
00004  DATE-WRITTEN.           MARCH 1995.                              DTSBR612
00005  DATE-COMPILED.                                                   DTSBR612
00006                                                                   DTSBR612
00007 *****                                                             DTSBR612
00008 *                                                                 DTSBR612
00009 *   CALLING SEQUENCE:  DTSBD400 CALLS                             DTSBR612
00010 *                      DTSBE612 WHICH UPDATES DTSIR612            DTSBR612
00011 *                      DTSBR612 READS DTSIR612 RECORDS.           DTSBR612
00012 *                                                                 DTSBR612
00013 *    FUNCTION:  PROCESSED AUDIT ASSIGNMENTS WITH UNRECORDED       DTSBR612
00014 *               QUARTER RESULTS REPORT                            DTSBR612
00015 *                                                                 DTSBR612
00016 *                                                                 DTSBR612
00017 *    MODIFICATION HISTORY:                                        DTSBR612
00018 *                                                                 DTSBR612
00019 *    03/24/95  INITIAL DEVELOPMENT.                               DTSBR612
00020 *              WORK ORDER: CR060                PROGRAMMER: RHC   DTSBR612
00021 *                                                                 DTSBR612
00022 *    XX/XX/XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBR612
00023 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBR612
00024 *              WORK ORDER:                      PROGRAMMER: XXX   DTSBR612
00025 *                                                                 DTSBR612
00026 *                                                                 DTSBR612
00027 *    DESCRIPTION:                                                 DTSBR612
00028 *                                                                 DTSBR612
00029 *        THIS MODULE LISTS PROCESSED AUDIT ASSIGNMENTS WITH       DTSBR612
00030 *        UNRECORDED QUARTER RESULTS.                              DTSBR612
00031 *                                                                 DTSBR612
00032 *                                                                 DTSBR612
00033 *    RECORDS READ:                                                DTSBR612
00034 *                                                                 DTSBR612
00035 *        NONE.                                                    DTSBR612
00036 *                                                                 DTSBR612
00037 *                                                                 DTSBR612
00038 *    PRINTED OUTPUTS:                                             DTSBR612
00039 *                                                                 DTSBR612
00040 *        612R1  PROCESSED AUDIT ASSIGNMENTS WITH UNRECORDED QTRS. DTSBR612
00041 *                                                                 DTSBR612
00042 *                                                                 DTSBR612
00043 *    RECORDS WRITTEN:                                             DTSBR612
00044 *                                                                 DTSBR612
00045 *        NONE.                                                    DTSBR612
00046 *                                                                 DTSBR612
00047 *                                                                 DTSBR612
00048 *    MODULES CALLED:                                              DTSBR612
00049 *                                                                 DTSBR612
00050 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBR612
00051 *        DTSBU004  QUARTER EDIT/CONVERSION.                       DTSBR612
00052 *                                                                 DTSBR612
00053 *****                                                             DTSBR612
00054                                                                   DTSBR612
00055  ENVIRONMENT DIVISION.                                            DTSBR612
00056                                                                   DTSBR612
00057  CONFIGURATION SECTION.                                           DTSBR612
00058  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR612
00059                                                                   DTSBR612
00060  INPUT-OUTPUT SECTION.                                            DTSBR612
00061                                                                   DTSBR612
00062  FILE-CONTROL.                                                    DTSBR612
00063      SELECT PRT-FILE ASSIGN TO RPT612R1.                          DTSBR612
00064                                                                   DTSBR612
00065  DATA DIVISION.                                                   DTSBR612
00066                                                                   DTSBR612
00067  FILE SECTION.                                                    DTSBR612
00068                                                                   DTSBR612
00069  FD  PRT-FILE                                                     DTSBR612
00070      RECORDING MODE IS F.                                         DTSBR612
00071  01  PRT-RECORD              PIC X(133).                          DTSBR612
00072                                                                   DTSBR612
00073  WORKING-STORAGE SECTION.                                         DTSBR612
000735 77  PAN-VALET PICTURE X(24) VALUE '008DTSBR612  10/16/03'.       DTSBR612
00074                                                                   DTSBR612
00075  01  WRK-AREA.                                                    DTSBR612
00076      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +612.DTSBR612
00077      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR612
00078      05  ALL-NINES-YRQ               PIC S9(05)  COMP-3           DTSBR612
00079                                                  VALUE +99999.    DTSBR612
00080                                                                   DTSBR612
00081      05  WS-BLANK-PAGE               PIC  X(133) VALUE SPACES.    DTSBR612
00082      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR612
00083      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR612
00084      05  WS-FOOTER-CNT               PIC S9(02) COMP-3 VALUE +0.  DTSBR612
00085      05  WS-SUM-CNT                  PIC S9(02) COMP-3 VALUE +0.  DTSBR612
00086      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR612
00087                                                                   DTSBR612
00088      05  WRK-YRQ-CNT                 PIC S9(04)  COMP.            DTSBR612
00089      05  WRK-YRQ-AREA.                                            DTSBR612
00090          10 WRK-YRQ OCCURS 24        PIC  X(04).                  DTSBR612
00091                                                                   DTSBR612
00092  01  L001-LINK-AREA.                                              DTSBR612
00093  ++INCLUDE DTSIL001                                               DTSBR612
00094                                                                   DTSBR612
00095  01  L004-LINK-AREA.                                              DTSBR612
00096  ++INCLUDE DTSIL004                                               DTSBR612
00097                                                                   DTSBR612
00098  01  PAGE-HEADING.                                                DTSBR612
00099      05  HDR-LINE-1.                                              DTSBR612
00100          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR612
00101          10  FILLER                  PIC  X(05)                   DTSBR612
00102                 VALUE '612R1'.                                    DTSBR612
00103          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR612
00104          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR612
00105          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR612
00106          10  FILLER                  PIC  X(05)                   DTSBR612
00107                 VALUE 'DATE:'.                                    DTSBR612
00108          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR612
00109          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR612
00110                                                                   DTSBR612
00111      05  HDR-LINE-2.                                              DTSBR612
00112          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR612
00113          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR612
00114          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR612
00115          10  FILLER                  PIC  X(05)                   DTSBR612
00116                 VALUE 'TIME:'.                                    DTSBR612
00117          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR612
00118          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR612
00119                                                                   DTSBR612
00120      05  HDR-LINE-3.                                              DTSBR612
00121          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR612
00122          10  FILLER                  PIC  X(28)                   DTSBR612
00123                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR612
00124          10  FILLER                  PIC  X(90)  VALUE SPACES.    DTSBR612
00125          10  FILLER                  PIC  X(05)                   DTSBR612
00126                 VALUE 'PAGE:'.                                    DTSBR612
00127          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR612
00128          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR612
00129                                                                   DTSBR612
00130      05  HDR-LINE-4.                                              DTSBR612
00131          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR612
00132          10  FILLER                  PIC  X(20)                   DTSBR612
00133                 VALUE '                    '.                     DTSBR612
00134          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR612
00135          10  FILLER                  PIC  X(32)                   DTSBR612
00136                 VALUE 'PROCESSED AUDIT ASSIGNMENTS WITH'.         DTSBR612
00137                                                                   DTSBR612
00138      05  HDR-LINE-5.                                              DTSBR612
00139          10  FILLER                  PIC  X(49)  VALUE SPACES.    DTSBR612
00140          10  FILLER                  PIC  X(34)                   DTSBR612
00141                 VALUE 'QUARTER AUDIT RESULTS NOT RECORDED'.       DTSBR612
00142                                                                   DTSBR612
00143      05  HDR-LINE-6.                                              DTSBR612
00144          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR612
00145          10  FILLER                  PIC  X(21)                   DTSBR612
00146                 VALUE 'START PROCESSED DATE:'.                    DTSBR612
00147          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR612
00148          10  WRK-START-DATE          PIC  X(08).                  DTSBR612
00149                                                                   DTSBR612
00150      05  HDR-LINE-7.                                              DTSBR612
00151          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR612
00152          10  FILLER                  PIC  X(21)                   DTSBR612
00153                 VALUE '  END PROCESSED DATE:'.                    DTSBR612
00154          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR612
00155          10  WRK-END-DATE            PIC  X(08).                  DTSBR612
00156                                                                   DTSBR612
00157      05  HDR-LINE-8                  PIC  X(133) VALUE SPACES.    DTSBR612
00158      05  HDR-LINE-9.                                              DTSBR612
00159          10  FILLER                  PIC  X(23)  VALUE SPACES.    DTSBR612
00160          10  FILLER                  PIC  X(11)                   DTSBR612
00161                 VALUE 'AUDITED QTR'.                              DTSBR612
00162                                                                   DTSBR612
00163      05  HDR-LINE-10.                                             DTSBR612
00164          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR612
00165          10  FILLER                  PIC  X(09)                   DTSBR612
00166                 VALUE 'ASSIGN NO'.                                DTSBR612
00167          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR612
00168          10  FILLER                  PIC  X(06)                   DTSBR612
00169                 VALUE 'EMP NO'.                                   DTSBR612
00170          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR612
00171          10  FILLER                  PIC  X(11)                   DTSBR612
00172                 VALUE 'START   END'.                              DTSBR612
00173          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR612
00174          10  FILLER                  PIC  X(39)                   DTSBR612
00175                 VALUE 'QUARTERS WITHOUT AUDIT RESULTS RECORDED'.  DTSBR612
00176                                                                   DTSBR612
00177  01  DETAIL-LINE.                                                 DTSBR612
00178      05  DTL-LINE-2.                                              DTSBR612
00179          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00180          10  DTL-ASSIGN-NO           PIC  99B99999.               DTSBR612
00181          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR612
00182          10  DTL-EMP-NO              PIC  999B999.                DTSBR612
00183          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR612
00184          10  WRK-START-YRQ           PIC  X(04).                  DTSBR612
00185          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00186          10  WRK-END-YRQ             PIC  X(04).                  DTSBR612
00187          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR612
00188          10  DTL-MISSING-YRQ-1       PIC  X(04).                  DTSBR612
00189          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00190          10  DTL-MISSING-YRQ-2       PIC  X(04).                  DTSBR612
00191          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00192          10  DTL-MISSING-YRQ-3       PIC  X(04).                  DTSBR612
00193          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00194          10  DTL-MISSING-YRQ-4       PIC  X(04).                  DTSBR612
00195          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00196          10  DTL-MISSING-YRQ-5       PIC  X(04).                  DTSBR612
00197          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00198          10  DTL-MISSING-YRQ-6       PIC  X(04).                  DTSBR612
00199          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00200          10  DTL-MISSING-YRQ-7       PIC  X(04).                  DTSBR612
00201          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00202          10  DTL-MISSING-YRQ-8       PIC  X(04).                  DTSBR612
00203          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00204          10  DTL-MISSING-YRQ-9       PIC  X(04).                  DTSBR612
00205          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00206          10  DTL-MISSING-YRQ-10      PIC  X(04).                  DTSBR612
00207          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00208          10  DTL-MISSING-YRQ-11      PIC  X(04).                  DTSBR612
00209          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00210          10  DTL-MISSING-YRQ-12      PIC  X(04).                  DTSBR612
00211 *        10  COLUMN PLUS 2   OCCURS 1 TO 24                       DTSBR612
00212 *                            DEPENDING ON R612-MISSING-YRQ-CNT    DTSBR612
00213 *                            VARYING RPT-CNT                      DTSBR612
00214 *                                    PIC  9(03)                   DTSBR612
00215 *               SOURCE R612-MISSING-YRQ (RPT-CNT).                DTSBR612
00216      05  DTL-LINE-3.                                              DTSBR612
00217          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR612
00218          10  DTL-MISSING-YRQ-13      PIC  X(04).                  DTSBR612
00219          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00220          10  DTL-MISSING-YRQ-14      PIC  X(04).                  DTSBR612
00221          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00222          10  DTL-MISSING-YRQ-15      PIC  X(04).                  DTSBR612
00223          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00224          10  DTL-MISSING-YRQ-16      PIC  X(04).                  DTSBR612
00225          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00226          10  DTL-MISSING-YRQ-17      PIC  X(04).                  DTSBR612
00227          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00228          10  DTL-MISSING-YRQ-18      PIC  X(04).                  DTSBR612
00229          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00230          10  DTL-MISSING-YRQ-19      PIC  X(04).                  DTSBR612
00231          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00232          10  DTL-MISSING-YRQ-20      PIC  X(04).                  DTSBR612
00233          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00234          10  DTL-MISSING-YRQ-21      PIC  X(04).                  DTSBR612
00235          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00236          10  DTL-MISSING-YRQ-22      PIC  X(04).                  DTSBR612
00237          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00238          10  DTL-MISSING-YRQ-23      PIC  X(04).                  DTSBR612
00239          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR612
00240          10  DTL-MISSING-YRQ-24      PIC  X(04).                  DTSBR612
00241                                                                   DTSBR612
00242      05  DTL-LINE-4.                                              DTSBR612
00243          10  FILLER                  PIC  X(53)                   DTSBR612
00244                 VALUE                                             DTSBR612
00245      '(QUARTER=999: MORE QUARTERS EXIST THAN ARE DISPLAYED)'.     DTSBR612
00246                                                                   DTSBR612
00247  01  NO-RECORDS-DETAIL.                                           DTSBR612
00248      05  DTL-LINE-20.                                             DTSBR612
00249          10  FILLER                  PIC  X(37)  VALUE SPACES.    DTSBR612
00250          10  FILLER                  PIC  X(55)                   DTSBR612
00251                 VALUE                                             DTSBR612
00252      'QUARTER AUDIT RESULTS RECORDED FOR ALL AUDITED QUARTERS'.   DTSBR612
00253                                                                   DTSBR612
00254  01  RPT-OP-ID.                                                   DTSBR612
00255      05  CFF-LINE-3.                                              DTSBR612
00256          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR612
00257          10  FILLER                  PIC  X(17)                   DTSBR612
00258                 VALUE '*** END OF REPORT'.                        DTSBR612
00259                                                                   DTSBR612
00260  LINKAGE SECTION.                                                 DTSBR612
00261                                                                   DTSBR612
00262  01  LRCM-LINK-AREA.                                              DTSBR612
00263  ++INCLUDE DTSILRCM                                               DTSBR612
00264      EJECT                                                        DTSBR612
00265  01  R612-REC.                                                    DTSBR612
00266  ++INCLUDE DTSIR612                                               DTSBR612
00267      EJECT                                                        DTSBR612
00268  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR612
00269                           R612-REC.                               DTSBR612
00270                                                                   DTSBR612
00271      IF FIRST-TIME-IND = 'Y'                                      DTSBR612
00272          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR612
00273          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR612
00274                                                                   DTSBR612
00275      IF LRCM-EOR-88                                               DTSBR612
00276          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR612
00277      ELSE                                                         DTSBR612
00278          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR612
00279                                                                   DTSBR612
00280      GOBACK.                                                      DTSBR612
00281                                                                   DTSBR612
00282  I1000-INITIATE.                                                  DTSBR612
00283                                                                   DTSBR612
00284      OPEN OUTPUT PRT-FILE.                                        DTSBR612
00285      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR612
00286      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR612
00287      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR612
00288      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR612
00289      MOVE SPACES TO PRT-RECORD.                                   DTSBR612
00290                                                                   DTSBR612
00291      MOVE R612-PARM-START-DATE TO L001-FED-8-DATE-9.              DTSBR612
00292      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR612
00293      MOVE L001-SLASH-DATE TO WRK-START-DATE.                      DTSBR612
00294                                                                   DTSBR612
00295      MOVE R612-PARM-END-DATE TO L001-FED-8-DATE-9.                DTSBR612
00296      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR612
00297      MOVE L001-SLASH-DATE TO WRK-END-DATE.                        DTSBR612
00298                                                                   DTSBR612
00299  I1000-EXIT. EXIT.                                                DTSBR612
00300                                                                   DTSBR612
00301  P1000-PROCESS.                                                   DTSBR612
00302                                                                   DTSBR612
00303      IF R612-ASSIGN-NO = +0                                       DTSBR612
00304          PERFORM P2000-PRINT-HEADER THRU P2000-EXIT               DTSBR612
00305          WRITE PRT-RECORD FROM DTL-LINE-20 AFTER 10               DTSBR612
00306          GO TO P1000-EXIT.                                        DTSBR612
00307                                                                   DTSBR612
00308      MOVE R612-FIRST-YRQ TO L004-QTR-5-9.                         DTSBR612
00309      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBR612
00310      MOVE L004-SLASH-QTR TO WRK-START-YRQ.                        DTSBR612
00311                                                                   DTSBR612
00312      MOVE R612-LAST-YRQ TO L004-QTR-5-9.                          DTSBR612
00313      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBR612
00314      MOVE L004-SLASH-QTR TO WRK-END-YRQ.                          DTSBR612
00315                                                                   DTSBR612
00316      MOVE SPACE TO WRK-YRQ-AREA.                                  DTSBR612
00317                                                                   DTSBR612
00318      PERFORM VARYING WRK-YRQ-CNT FROM 1 BY 1                      DTSBR612
00319              UNTIL   WRK-YRQ-CNT > R612-MISSING-YRQ-CNT           DTSBR612
00320              IF R612-MISSING-YRQ (WRK-YRQ-CNT) > 0                DTSBR612
00321                   PERFORM P1100-PICKUP-YRQ  THRU P1100-EXIT       DTSBR612
00322              END-IF                                               DTSBR612
00323      END-PERFORM.                                                 DTSBR612
00324                                                                   DTSBR612
00325      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR612
00326      PERFORM P3000-PRINT-DETAIL THRU P3000-EXIT.                  DTSBR612
00327                                                                   DTSBR612
00328  P1000-EXIT. EXIT.                                                DTSBR612
00329                                                                   DTSBR612
00330  P1100-PICKUP-YRQ.                                                DTSBR612
00331      IF LRCM-PICKUP-YRQ = R612-MISSING-YRQ (WRK-YRQ-CNT)          DTSBR612
00332         MOVE 'PU  ' TO WRK-YRQ (WRK-YRQ-CNT)                      DTSBR612
00333      ELSE                                                         DTSBR612
00334         MOVE R612-MISSING-YRQ (WRK-YRQ-CNT) TO L004-QTR-5-9       DTSBR612
00335         PERFORM S004-FROM-5 THRU S004-EXIT                        DTSBR612
00336         MOVE L004-SLASH-QTR TO WRK-YRQ (WRK-YRQ-CNT)              DTSBR612
00337      END-IF.                                                      DTSBR612
00338  P1100-EXIT.                                                      DTSBR612
00339      EXIT.                                                        DTSBR612
00340                                                                   DTSBR612
00341  P2000-PRINT-HEADER.                                              DTSBR612
00342                                                                   DTSBR612
00343      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR612
00344           WS-LINE-CNT2 GREATER 58                                 DTSBR612
00345         MOVE +0          TO WS-LINE-CNT                           DTSBR612
00346         MOVE +0          TO WS-LINE-CNT2                          DTSBR612
00347         ADD  +1          TO WS-PAGE-CNT                           DTSBR612
00348         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR612
00349         WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE        DTSBR612
00350         WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1                  DTSBR612
00351         WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1                  DTSBR612
00352         WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1                  DTSBR612
00353         WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1                  DTSBR612
00354         WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1                  DTSBR612
00355         WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1                  DTSBR612
00356         WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1                  DTSBR612
00357         WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1                  DTSBR612
00358         WRITE PRT-RECORD FROM HDR-LINE-10 AFTER 1                 DTSBR612
00359         ADD +10   TO WS-LINE-CNT2.                                DTSBR612
00360                                                                   DTSBR612
00361  P2000-EXIT.                                                      DTSBR612
00362      EXIT.                                                        DTSBR612
00363                                                                   DTSBR612
00364  P3000-PRINT-DETAIL.                                              DTSBR612
00365                                                                   DTSBR612
00366      MOVE R612-ASSIGN-NO        TO DTL-ASSIGN-NO.                 DTSBR612
00367      MOVE R612-EMP-NO           TO DTL-EMP-NO.                    DTSBR612
00368                                                                   DTSBR612
00369      MOVE WRK-YRQ (1) TO DTL-MISSING-YRQ-1.                       DTSBR612
00370      MOVE WRK-YRQ (2) TO DTL-MISSING-YRQ-2.                       DTSBR612
00371      MOVE WRK-YRQ (3) TO DTL-MISSING-YRQ-3.                       DTSBR612
00372      MOVE WRK-YRQ (4) TO DTL-MISSING-YRQ-4.                       DTSBR612
00373      MOVE WRK-YRQ (5) TO DTL-MISSING-YRQ-5.                       DTSBR612
00374      MOVE WRK-YRQ (6) TO DTL-MISSING-YRQ-6.                       DTSBR612
00375      MOVE WRK-YRQ (7) TO DTL-MISSING-YRQ-7.                       DTSBR612
00376      MOVE WRK-YRQ (8) TO DTL-MISSING-YRQ-8.                       DTSBR612
00377      MOVE WRK-YRQ (9) TO DTL-MISSING-YRQ-9.                       DTSBR612
00378      MOVE WRK-YRQ (10) TO DTL-MISSING-YRQ-10.                     DTSBR612
00379      MOVE WRK-YRQ (11) TO DTL-MISSING-YRQ-11.                     DTSBR612
00380      MOVE WRK-YRQ (12) TO DTL-MISSING-YRQ-12.                     DTSBR612
00381      WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2.                    DTSBR612
00382      ADD +2    TO WS-LINE-CNT2.                                   DTSBR612
00383                                                                   DTSBR612
00384      IF R612-MISSING-YRQ-CNT > 12                                 DTSBR612
00385         MOVE WRK-YRQ (13) TO DTL-MISSING-YRQ-13                   DTSBR612
00386         MOVE WRK-YRQ (14) TO DTL-MISSING-YRQ-14                   DTSBR612
00387         MOVE WRK-YRQ (15) TO DTL-MISSING-YRQ-15                   DTSBR612
00388         MOVE WRK-YRQ (16) TO DTL-MISSING-YRQ-16                   DTSBR612
00389         MOVE WRK-YRQ (17) TO DTL-MISSING-YRQ-17                   DTSBR612
00390         MOVE WRK-YRQ (18) TO DTL-MISSING-YRQ-18                   DTSBR612
00391         MOVE WRK-YRQ (19) TO DTL-MISSING-YRQ-19                   DTSBR612
00392         MOVE WRK-YRQ (20) TO DTL-MISSING-YRQ-20                   DTSBR612
00393         MOVE WRK-YRQ (21) TO DTL-MISSING-YRQ-21                   DTSBR612
00394         MOVE WRK-YRQ (22) TO DTL-MISSING-YRQ-22                   DTSBR612
00395         MOVE WRK-YRQ (23) TO DTL-MISSING-YRQ-23                   DTSBR612
00396         MOVE WRK-YRQ (24) TO DTL-MISSING-YRQ-24                   DTSBR612
00397         WRITE PRT-RECORD FROM DTL-LINE-3 AFTER 1                  DTSBR612
00398         ADD +1    TO WS-LINE-CNT2.                                DTSBR612
00399                                                                   DTSBR612
00400      IF R612-MISSING-YRQ-CNT > 24                                 DTSBR612
00401         WRITE PRT-RECORD FROM DTL-LINE-4 AFTER 1                  DTSBR612
00402         ADD +1    TO WS-LINE-CNT2.                                DTSBR612
00403                                                                   DTSBR612
00404  P3000-EXIT.                                                      DTSBR612
00405      EXIT.                                                        DTSBR612
00406                                                                   DTSBR612
00407  T1000-TERMINATE.                                                 DTSBR612
00408                                                                   DTSBR612
00409      IF WS-LINE-CNT2 > 52                                         DTSBR612
00410         ADD +10   TO WS-LINE-CNT2                                 DTSBR612
00411         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR612
00412      END-IF.                                                      DTSBR612
00413                                                                   DTSBR612
00414      WRITE PRT-RECORD FROM CFF-LINE-3 AFTER 3.                    DTSBR612
00415                                                                   DTSBR612
00416      CLOSE PRT-FILE.                                              DTSBR612
00417                                                                   DTSBR612
00418  T1000-EXIT. EXIT.                                                DTSBR612
00419                                                                   DTSBR612
00420  S001-FROM-FED-8.                                                 DTSBR612
00421      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR612
00422      GO TO S001-DATE.                                             DTSBR612
00423                                                                   DTSBR612
00424  S001-DATE.                                                       DTSBR612
00425      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR612
00426  S001-EXIT. EXIT.                                                 DTSBR612
00427                                                                   DTSBR612
00428  S004-FROM-5.                                                     DTSBR612
00429      SET L004-FROM-5 TO TRUE.                                     DTSBR612
00430      GO TO S004-YRQ.                                              DTSBR612
00431                                                                   DTSBR612
00432  S004-YRQ.                                                        DTSBR612
00433      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR612
00434  S004-EXIT. EXIT.                                                 DTSBR612
00435                                                                   DTSBR612
00436 *S999-ABEND.                                                      DTSBR612
00437 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR612
00438 *S999-EXIT. EXIT.                                                 DTSBR612
00439                                                                   DTSBR612
