00001  IDENTIFICATION DIVISION.                                         01/29/01
00002  PROGRAM-ID.             DTSBR313.                                DTSBR313
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV014
00004                          MODIFIED BY TRW S&ITG.                   DTSBR313
00005  DATE-WRITTEN.           NOVEMBER 1994.                           DTSBR313
00006  DATE-COMPILED.                                                   DTSBR313
00007      SKIP3                                                        DTSBR313
00008 *****                                                             DTSBR313
00009 *                                                                 DTSBR313
00010 *    FUNCTION:  REIMBURSABLE EMPLOYER PAST DUE LIST.              DTSBR313
00011 *                                                                 DTSBR313
00012 *                                                                 DTSBR313
00013 *    MODIFICATION HISTORY:                                        DTSBR313
00014 *                                                                 DTSBR313
00015 * 11-14-94 INITIAL DEVELOPMENT                                    DTSBR313
00016 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR313
00017 *                                                                 DTSBR313
00018 * 05-22-95 ADD UI TAX BALANCE TO THE REPORT.                      DTSBR313
00019 *          REFERENCE RFP #CR088           AUTHOR OF CHANGE - RHC  DTSBR313
00020 *                                                                 DTSBR313
00021 * 07-16-97 ADD A "REPORT TOTAL" SUMMARY LINE TO REPORT.           DTSBR313
00022 *          REFERENCE RFP #TCL205          AUTHOR OF CHANGE - FLS  DTSBR313
00023 *                                                                 DTSBR313
00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR313
00025 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR313
00026 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR313
00027 *                                                                 DTSBR313
00028 *                                                                 DTSBR313
00029 *    DESCRIPTION:                                                 DTSBR313
00030 *                                                                 DTSBR313
00031 *        THIS MODULE PRODUCES A LIST OF REIMBURSABLE EMPLOYERS    DTSBR313
00032 *        WITH, FOR A PARAMETER SPECIFIED PERIOD OF TIME, PAST DUE DTSBR313
00033 *        PAYMENTS IN LIEU OF CONTRIBUTIONS.                       DTSBR313
00034 *                                                                 DTSBR313
00035 *                                                                 DTSBR313
00036 *    RECORDS READ:                                                DTSBR313
00037 *                                                                 DTSBR313
00038 *        NONE.                                                    DTSBR313
00039 *                                                                 DTSBR313
00040 *                                                                 DTSBR313
00041 *    PRINTED OUTPUTS:                                             DTSBR313
00042 *                                                                 DTSBR313
00043 *        313R1  REIMBURSABLE EMPLOYER PAST DUE LIST               DTSBR313
00044 *                                                                 DTSBR313
00045 *                                                                 DTSBR313
00046 *    RECORDS WRITTEN:                                             DTSBR313
00047 *                                                                 DTSBR313
00048 *        NONE.                                                    DTSBR313
00049 *                                                                 DTSBR313
00050 *                                                                 DTSBR313
00051 *    MODULES CALLED:                                              DTSBR313
00052 *                                                                 DTSBR313
00053 *        NONE.                                                    DTSBR313
00054 *                                                                 DTSBR313
00055 *                                                                 DTSBR313
00056 *****                                                             DTSBR313
00057                                                                   DTSBR313
00058  ENVIRONMENT DIVISION.                                            DTSBR313
00059                                                                   DTSBR313
00060  CONFIGURATION SECTION.                                           DTSBR313
00061  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR313
00062                                                                   DTSBR313
00063  INPUT-OUTPUT SECTION.                                            DTSBR313
00064                                                                   DTSBR313
00065  FILE-CONTROL.                                                    DTSBR313
00066      SELECT PRT-FILE ASSIGN TO RPT313R1.                          DTSBR313
00067                                                                   DTSBR313
00068  DATA DIVISION.                                                   DTSBR313
00069                                                                   DTSBR313
00070  FILE SECTION.                                                    DTSBR313
00071                                                                   DTSBR313
00072  FD  PRT-FILE                                                     DTSBR313
00073      RECORDING MODE IS F.                                         DTSBR313
00074  01  PRT-RECORD              PIC X(133).                          DTSBR313
00075                                                                   DTSBR313
00076      EJECT                                                        DTSBR313
00077  WORKING-STORAGE SECTION.                                         DTSBR313
000775 77  PAN-VALET PICTURE X(24) VALUE '014DTSBR313  01/29/01'.       DTSBR313
00078                                                                   DTSBR313
00079  01  WRK-AREA.                                                    DTSBR313
00080      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +313.DTSBR313
00081      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR313
00082      05  WS-YRQ-UNPACK               PIC  9(05)  VALUE ZEROS.     DTSBR313
00083      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR313
00084      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR313
00085      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR313
00086                                                                   DTSBR313
00087      EJECT                                                        DTSBR313
00088  01  L004-LINK-AREA.                                              DTSBR313
00089  ++INCLUDE DTSIL004                                               DTSBR313
00090      EJECT                                                        DTSBR313
00091  01  PAGE-HEADING.                                                DTSBR313
00092      05  HDR-LINE-1.                                              DTSBR313
00093          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR313
00094          10  FILLER                  PIC  X(05)                   DTSBR313
00095                 VALUE '313R1'.                                    DTSBR313
00096          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR313
00097          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR313
00098          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR313
00099          10  FILLER                  PIC  X(05)                   DTSBR313
00100                 VALUE 'DATE:'.                                    DTSBR313
00101          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR313
00102          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR313
00103      05  HDR-LINE-2.                                              DTSBR313
00104          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR313
00105          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR313
00106          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR313
00107          10  FILLER                  PIC  X(05)                   DTSBR313
00108                 VALUE 'TIME:'.                                    DTSBR313
00109          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR313
00110          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR313
00111      05  HDR-LINE-3.                                              DTSBR313
00112          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR313
00113          10  FILLER                  PIC  X(28)                   DTSBR313
00114                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR313
00115          10  FILLER                  PIC  X(89)  VALUE SPACES.    DTSBR313
00116          10  FILLER                  PIC  X(05)                   DTSBR313
00117                 VALUE 'PAGE:'.                                    DTSBR313
00118          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR313
00119          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR313
00120      05  HDR-LINE-4.                                              DTSBR313
00121          10  FILLER                  PIC  X(37)  VALUE SPACES.    DTSBR313
00122          10  FILLER                  PIC  X(34)                   DTSBR313
00123                 VALUE 'SELF INSURED EMPLOYER WITH UI PAST'.       DTSBR313
00124          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR313
00125          10  FILLER                  PIC  X(20)                   DTSBR313
00126                 VALUE 'DUE IN SUBJECT QTR'.                       DTSBR313
00127      05  HDR-LINE-5.                                              DTSBR313
00128          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR313
00129          10  FILLER                  PIC  X(14)                   DTSBR313
00130                 VALUE 'SUBJECT QTR:  '.                           DTSBR313
00131          10  WS-YRQ                  PIC  X(04).                  DTSBR313
00132      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR313
00133      05  HDR-LINE-7.                                              DTSBR313
00134          10  FILLER                  PIC  X(30)  VALUE SPACES.    DTSBR313
00135          10  FILLER                  PIC  X(30)                   DTSBR313
00136                 VALUE 'EMP NO           PRIMARY NAME '.           DTSBR313
00137          10  FILLER                  PIC  X(36)  VALUE SPACES.    DTSBR313
00138          10  FILLER                  PIC  X(14)                   DTSBR313
00139                 VALUE 'UI TAX BALANCE'.                           DTSBR313
00140                                                                   DTSBR313
00141  01  DETAIL-LINE.                                                 DTSBR313
00142      05  DTL-LINE-2.                                              DTSBR313
00143          10  FILLER                  PIC  X(30)  VALUE SPACES.    DTSBR313
00144          10  DTL-EMP-NO              PIC  999B999.                DTSBR313
00145          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR313
00146          10  DTL-PRIMARY-NAME        PIC  X(40).                  DTSBR313
00147          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR313
00148          10  DTL-UI-TAX-BAL          PIC  ZZZ,ZZZ,ZZZ.99.         DTSBR313
00149                                                                   DTSBR313
00150      EJECT                                                        DTSBR313
00151  LINKAGE SECTION.                                                 DTSBR313
00152      SKIP3                                                        DTSBR313
00153  01  LRCM-LINK-AREA.                                              DTSBR313
00154  ++INCLUDE DTSILRCM                                               DTSBR313
00155      EJECT                                                        DTSBR313
00156  01  R313-REC.                                                    DTSBR313
00157  ++INCLUDE DTSIR313                                               DTSBR313
00158      EJECT                                                        DTSBR313
00159  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR313
00160                           R313-REC.                               DTSBR313
00161      SKIP2                                                        DTSBR313
00162      IF FIRST-TIME-IND = 'Y'                                      DTSBR313
00163          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR313
00164          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR313
00165      SKIP1                                                        DTSBR313
00166      IF LRCM-EOR-88                                               DTSBR313
00167          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR313
00168      ELSE                                                         DTSBR313
00169          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR313
00170      SKIP2                                                        DTSBR313
00171      GOBACK.                                                      DTSBR313
00172      EJECT                                                        DTSBR313
00173  I1000-INITIATE.                                                  DTSBR313
00174                                                                   DTSBR313
00175      OPEN OUTPUT PRT-FILE.                                        DTSBR313
00176      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR313
00177      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR313
00178      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR313
00179      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR313
00180      MOVE SPACES TO PRT-RECORD.                                   DTSBR313
00181                                                                   DTSBR313
00182      PERFORM I1100-PICKUP-YRQ THRU I1100-EXIT.                    DTSBR313
00183                                                                   DTSBR313
00184  I1000-EXIT.                                                      DTSBR313
00185      EXIT.                                                        DTSBR313
00186                                                                   DTSBR313
00187  I1100-PICKUP-YRQ.                                                DTSBR313
00188       IF LRCM-PICKUP-YRQ = R313-YRQ                               DTSBR313
00189          MOVE 'PU  ' TO WS-YRQ                                    DTSBR313
00190       ELSE                                                        DTSBR313
00191          MOVE R313-YRQ TO L004-QTR-5-9                            DTSBR313
00192          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBR313
00193          MOVE L004-SLASH-QTR TO WS-YRQ.                           DTSBR313
00194  I1100-EXIT.                                                      DTSBR313
00195      EXIT.                                                        DTSBR313
00196                                                                   DTSBR313
00197  P1000-PROCESS.                                                   DTSBR313
00198                                                                   DTSBR313
00199      MOVE R313-EMP-NO           TO DTL-EMP-NO.                    DTSBR313
00200      MOVE R313-PRIMARY-NAME     TO DTL-PRIMARY-NAME.              DTSBR313
00201      MOVE R313-UI-TAX-BAL       TO DTL-UI-TAX-BAL.                DTSBR313
00202                                                                   DTSBR313
00203      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR313
00204      WRITE PRT-RECORD FROM DTL-LINE-2  AFTER 2.                   DTSBR313
00205      ADD  2    TO WS-LINE-CNT2.                                   DTSBR313
00206                                                                   DTSBR313
00207  P1000-EXIT.                                                      DTSBR313
00208      EXIT.                                                        DTSBR313
00209                                                                   DTSBR313
00210  P2000-PRINT-HEADER.                                              DTSBR313
00211      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR313
00212           WS-LINE-CNT2 GREATER 58                                 DTSBR313
00213         MOVE +0          TO WS-LINE-CNT                           DTSBR313
00214         MOVE +0          TO WS-LINE-CNT2                          DTSBR313
00215         ADD  +1          TO WS-PAGE-CNT                           DTSBR313
00216         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR313
00217         WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE        DTSBR313
00218         WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1                  DTSBR313
00219         WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1                  DTSBR313
00220         WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1                  DTSBR313
00221         WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1                  DTSBR313
00222         WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1                  DTSBR313
00223         WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1                  DTSBR313
00224         ADD +7    TO WS-LINE-CNT2.                                DTSBR313
00225  P2000-EXIT.                                                      DTSBR313
00226      EXIT.                                                        DTSBR313
00227  T1000-TERMINATE.                                                 DTSBR313
00228                                                                   DTSBR313
00229      CLOSE PRT-FILE.                                              DTSBR313
00230                                                                   DTSBR313
00231  T1000-EXIT.                                                      DTSBR313
00232      EXIT.                                                        DTSBR313
00233                                                                   DTSBR313
00234  S004-FROM-5.                                                     DTSBR313
00235      SET L004-FROM-5 TO TRUE.                                     DTSBR313
00236      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR313
00237  S004-EXIT.                                                       DTSBR313
00238      EXIT.                                                        DTSBR313
00239                                                                   DTSBR313
00240 *S999-ABEND.                                                      DTSBR313
00241 *    SKIP1                                                        DTSBR313
00242 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR313
00243 *    SKIP2                                                        DTSBR313
00244 *S999-EXIT.                                                       DTSBR313
00245 *    EXIT.                                                        DTSBR313
00246                                                                   DTSBR313
