00001  IDENTIFICATION DIVISION.                                         11/26/01
00002  PROGRAM-ID.             DTSBR424.                                DTSBR424
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV014
00004                          MODIFIED BY TRW S&ITG.                   DTSBR424
00005  DATE-WRITTEN.           OCTOBER 1994.                            DTSBR424
00006  DATE-COMPILED.                                                   DTSBR424
00007      SKIP3                                                        DTSBR424
00008 *****                                                             DTSBR424
00009 *                                                                 DTSBR424
00010 *    CALLING SEQUENCE:  DTSBD590 WRITES DTSIR424 RECORDS          DTSBR424
00011 *                       DTSBR424 READS  DTSIR424 RECORDS.         DTSBR424
00012 *                                                                 DTSBR424
00013 *    FUNCTION:  INCREASE IN TOTAL BALANCE DUE LIST.               DTSBR424
00014 *                                                                 DTSBR424
00015 *                                                                 DTSBR424
00016 *    MODIFICATION HISTORY:                                        DTSBR424
00017 *                                                                 DTSBR424
00018 * 10-16-94 INITIAL DEVELOPMENT.                                   DTSBR424
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR424
00020 *                                                                 DTSBR424
00021 * 06-11-95 ADD BATCH COLUMN.                                      DTSBR424
00022 *          REFERENCE RFP #CR095           AUTHOR OF CHANGE - RHC  DTSBR424
00023 *                                                                 DTSBR424
00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR424
00025 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR424
00026 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR424
00027 *                                                                 DTSBR424
00028 *                                                                 DTSBR424
00029 *    DESCRIPTION:                                                 DTSBR424
00030 *                                                                 DTSBR424
00031 *        THIS MODULE LISTS EMPLOYERS FOR WHOM THE NET RESULT OF   DTSBR424
00032 *        ALL ACCOUNTING TRANSACTIONS PROCESSED DURING THE UPDATE  DTSBR424
00033 *        WAS TO INCREASE THE EMPLOYER'S TOTAL BALANCE DUE.        DTSBR424
00034 *                                                                 DTSBR424
00035 *                                                                 DTSBR424
00036 *    RECORDS READ:                                                DTSBR424
00037 *                                                                 DTSBR424
00038 *        NONE.                                                    DTSBR424
00039 *                                                                 DTSBR424
00040 *                                                                 DTSBR424
00041 *    PRINTED OUTPUTS:                                             DTSBR424
00042 *                                                                 DTSBR424
00043 *        424R1  INCREASE IN TOTAL BALANCE DUE LIST                DTSBR424
00044 *                                                                 DTSBR424
00045 *                                                                 DTSBR424
00046 *    RECORDS WRITTEN:                                             DTSBR424
00047 *                                                                 DTSBR424
00048 *        NONE.                                                    DTSBR424
00049 *                                                                 DTSBR424
00050 *                                                                 DTSBR424
00051 *    MODULES CALLED:                                              DTSBR424
00052 *                                                                 DTSBR424
00053 *        NONE.                                                    DTSBR424
00054 *                                                                 DTSBR424
00055 *                                                                 DTSBR424
00056 *****                                                             DTSBR424
00057                                                                   DTSBR424
00058  ENVIRONMENT DIVISION.                                            DTSBR424
00059                                                                   DTSBR424
00060  CONFIGURATION SECTION.                                           DTSBR424
00061  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR424
00062                                                                   DTSBR424
00063  INPUT-OUTPUT SECTION.                                            DTSBR424
00064                                                                   DTSBR424
00065  FILE-CONTROL.                                                    DTSBR424
00066      SELECT PRT-FILE  ASSIGN TO RPT424R1.                         DTSBR424
00067                                                                   DTSBR424
00068  DATA DIVISION.                                                   DTSBR424
00069                                                                   DTSBR424
00070  FILE SECTION.                                                    DTSBR424
00071                                                                   DTSBR424
00072  FD  PRT-FILE                                                     DTSBR424
00073      RECORDING MODE IS F.                                         DTSBR424
00074  01  PRT-RECORD              PIC X(133).                          DTSBR424
00075                                                                   DTSBR424
00076      EJECT                                                        DTSBR424
00077  WORKING-STORAGE SECTION.                                         DTSBR424
000775 77  PAN-VALET PICTURE X(24) VALUE '014DTSBR424  11/26/01'.       DTSBR424
00078      SKIP3                                                        DTSBR424
00079  01  WRK-AREA.                                                    DTSBR424
00080      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +424.DTSBR424
00081      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR424
00082                                                                   DTSBR424
00083      05  HOLD-FIELD-REP-ID           PIC X(02).                   DTSBR424
00084      05  HOLD-FIELD-REP-NAME         PIC X(32).                   DTSBR424
00085      05  HOLD-EMP-NO                 PIC S9(07)  COMP-3.          DTSBR424
00086      05  HOLD-BATCH-NO               PIC S9(05)  COMP-3.          DTSBR424
00087                                                                   DTSBR424
00088      05  FOOT-COUNT                  PIC S9(04)  COMP.            DTSBR424
00089      05  FOOT-AMT                    PIC S9(09)V9(02)  COMP-3.    DTSBR424
00090                                                                   DTSBR424
00091      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +0. DTSBR424
00092      05  WS-SUM-NUMBER-ONE           PIC S9(03)  COMP-3 VALUE +0. DTSBR424
00093      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE 60. DTSBR424
00094      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE +0. DTSBR424
00095      05  WS-PAGE-CNT                 PIC S9(03)  COMP-3 VALUE +0. DTSBR424
00096                                                                   DTSBR424
00097      EJECT                                                        DTSBR424
00098  01  L062-LINK-AREA.                                              DTSBR424
00099  ++INCLUDE DTSIL062                                               DTSBR424
00100      EJECT                                                        DTSBR424
00101  01  PAGE-HEADING.                                                DTSBR424
00102      05  HDR-LINE-1.                                              DTSBR424
00103          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR424
00104          10  FILLER                  PIC  X(05)                   DTSBR424
00105                 VALUE '424R1'.                                    DTSBR424
00106          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR424
00107          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR424
00108          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR424
00109          10  FILLER                  PIC  X(05)                   DTSBR424
00110                 VALUE 'DATE:'.                                    DTSBR424
00111          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR424
00112          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR424
00113      05  HDR-LINE-2.                                              DTSBR424
00114          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR424
00115          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR424
00116          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR424
00117          10  FILLER                  PIC  X(05)                   DTSBR424
00118                 VALUE 'TIME:'.                                    DTSBR424
00119          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR424
00120          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR424
00121      05  HDR-LINE-3.                                              DTSBR424
00122          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR424
00123          10  FILLER                  PIC  X(35)                   DTSBR424
00124                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR424
00125          10  FILLER                  PIC  X(82)  VALUE SPACES.    DTSBR424
00126          10  FILLER                  PIC  X(05)                   DTSBR424
00127                 VALUE 'PAGE:'.                                    DTSBR424
00128          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR424
00129          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR424
00130      05  HDR-LINE-4.                                              DTSBR424
00131          10  FILLER                  PIC  X(48)  VALUE SPACES.    DTSBR424
00132          10  FILLER                  PIC  X(34)                   DTSBR424
00133                 VALUE 'INCREASE IN TOTAL BALANCE DUE LIST'.       DTSBR424
00134          10  FILLER                  PIC  X(51)  VALUE SPACES.    DTSBR424
00135      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR424
00136      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR424
00137      05  HDR-LINE-7.                                              DTSBR424
00138          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR424
00139          10  FILLER                  PIC  X(12)                   DTSBR424
00140                 VALUE 'FIELD REP:  '.                             DTSBR424
00141          10  HDR-FIELD-REP-ID        PIC  X(02).                  DTSBR424
00142          10  FILLER                  PIC  X(01)                   DTSBR424
00143                 VALUE ' '.                                        DTSBR424
00144          10  HDR-FIELD-REP-NAME      PIC  X(32).                  DTSBR424
00145      05  HDR-LINE-8                  PIC  X(133) VALUE SPACES.    DTSBR424
00146      05  HDR-LINE-9                  PIC  X(133) VALUE SPACES.    DTSBR424
00147      05  HDR-LINE-10.                                             DTSBR424
00148          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR424
00149          10  FILLER                  PIC  X(06)                   DTSBR424
00150                 VALUE 'EMP NO'.                                   DTSBR424
00151          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR424
00152          10  FILLER                  PIC  X(13)                   DTSBR424
00153                 VALUE 'PRIMARY NAME'.                             DTSBR424
00154          10  FILLER                  PIC  X(29)  VALUE SPACES.    DTSBR424
00155          10  FILLER                  PIC  X(23)                   DTSBR424
00156                 VALUE 'INCREASE IN BALANCE DUE'.                  DTSBR424
00157          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR424
00158          10  FILLER                  PIC  X(05)                   DTSBR424
00159                 VALUE 'BATCH'.                                    DTSBR424
00160      05  HDR-LINE-11                 PIC  X(133) VALUE SPACES.    DTSBR424
00161                                                                   DTSBR424
00162  01  DETAIL-LINE.                                                 DTSBR424
00163      05  DTL-LINE-1.                                              DTSBR424
00164          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR424
00165          10  DTL-EMP-NO              PIC  999B999.                DTSBR424
00166          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR424
00167          10  DTL-PRIMARY-NAME        PIC  X(40).                  DTSBR424
00168          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR424
00169          10  RPT-AMT                 PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR424
00170          10  FILLER                  PIC  X(14)  VALUE SPACES.    DTSBR424
00171          10  DTL-BATCH-NO            PIC  X(05).                  DTSBR424
00172      SKIP2                                                        DTSBR424
00173                                                                   DTSBR424
00174  01  CONTROL-FOOTING-FINAL.                                       DTSBR424
00175      05  CFF-LINE-4.                                              DTSBR424
00176          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR424
00177          10  CFF-FOOT-COUNT          PIC  Z,ZZ9.                  DTSBR424
00178          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR424
00179          10  FILLER                  PIC  X(15)                   DTSBR424
00180                 VALUE 'ACCOUNTS LISTED'.                          DTSBR424
00181      05  CFF-LINE-6.                                              DTSBR424
00182          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR424
00183          10  CFF-FOOT-AMT            PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR424
00184          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR424
00185          10  FILLER                  PIC  X(23)                   DTSBR424
00186                 VALUE 'INCREASE IN BALANCE DUE'.                  DTSBR424
00187      EJECT                                                        DTSBR424
00188  LINKAGE SECTION.                                                 DTSBR424
00189      SKIP3                                                        DTSBR424
00190  01  LRCM-LINK-AREA.                                              DTSBR424
00191  ++INCLUDE DTSILRCM                                               DTSBR424
00192      EJECT                                                        DTSBR424
00193  01  R424-REC.                                                    DTSBR424
00194  ++INCLUDE DTSIR424                                               DTSBR424
00195      EJECT                                                        DTSBR424
00196  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR424
00197                           R424-REC.                               DTSBR424
00198      SKIP2                                                        DTSBR424
00199      IF FIRST-TIME-IND = 'Y'                                      DTSBR424
00200          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR424
00201          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR424
00202      SKIP1                                                        DTSBR424
00203      IF LRCM-EOR-88                                               DTSBR424
00204          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR424
00205      ELSE                                                         DTSBR424
00206          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR424
00207      SKIP2                                                        DTSBR424
00208      GOBACK.                                                      DTSBR424
00209      EJECT                                                        DTSBR424
00210  I1000-INITIATE.                                                  DTSBR424
00211                                                                   DTSBR424
00212      OPEN OUTPUT PRT-FILE.                                        DTSBR424
00213      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR424
00214      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR424
00215      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR424
00216      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR424
00217      MOVE SPACES TO PRT-RECORD.                                   DTSBR424
00218                                                                   DTSBR424
00219      MOVE +0 TO HOLD-EMP-NO                                       DTSBR424
00220                 HOLD-BATCH-NO                                     DTSBR424
00221                 FOOT-COUNT                                        DTSBR424
00222                 FOOT-AMT.                                         DTSBR424
00223      MOVE SPACES TO HOLD-FIELD-REP-NAME HOLD-FIELD-REP-ID.        DTSBR424
00224                                                                   DTSBR424
00225  I1000-EXIT.                                                      DTSBR424
00226      EXIT.                                                        DTSBR424
00227      EJECT                                                        DTSBR424
00228  P1000-PROCESS.                                                   DTSBR424
00229      SKIP1                                                        DTSBR424
00230      IF  R424-EMP-NO = HOLD-EMP-NO                                DTSBR424
00231          IF  R424-BATCH-NO = HOLD-BATCH-NO                        DTSBR424
00232              GO TO P1000-EXIT                                     DTSBR424
00233          ELSE                                                     DTSBR424
00234              NEXT SENTENCE                                        DTSBR424
00235      ELSE                                                         DTSBR424
00236          ADD +1 TO FOOT-COUNT                                     DTSBR424
00237          ADD R424-INCREASED-AMT TO FOOT-AMT                       DTSBR424
00238          MOVE R424-EMP-NO TO HOLD-EMP-NO.                         DTSBR424
00239                                                                   DTSBR424
00240      IF  R424-FLD-REP-ID NOT = HOLD-FIELD-REP-ID                  DTSBR424
00241          IF WS-NUMBER-ONE = +0                                    DTSBR424
00242                MOVE +99 TO WS-NUMBER-ONE                          DTSBR424
00243          ELSE MOVE +60 TO WS-LINE-CNT2                            DTSBR424
00244          END-IF                                                   DTSBR424
00245      END-IF.                                                      DTSBR424
00246                                                                   DTSBR424
00247      MOVE R424-BATCH-NO TO HOLD-BATCH-NO.                         DTSBR424
00248      MOVE R424-FLD-REP-ID TO HOLD-FIELD-REP-ID.                   DTSBR424
00249      MOVE R424-FLD-REP-ID TO HDR-FIELD-REP-ID.                    DTSBR424
00250      PERFORM FIND-FIELD-REP THRU FIND-REP-EXIT.                   DTSBR424
00251                                                                   DTSBR424
00252      MOVE HOLD-EMP-NO           TO DTL-EMP-NO.                    DTSBR424
00253      MOVE R424-PRIMARY-NAME     TO DTL-PRIMARY-NAME.              DTSBR424
00254      MOVE R424-BATCH-NO         TO DTL-BATCH-NO.                  DTSBR424
00255      MOVE R424-INCREASED-AMT    TO RPT-AMT.                       DTSBR424
00256      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR424
00257      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1.                   DTSBR424
00258      ADD +1    TO WS-LINE-CNT2.                                   DTSBR424
00259                                                                   DTSBR424
00260  P1000-EXIT.                                                      DTSBR424
00261      EXIT.                                                        DTSBR424
00262                                                                   DTSBR424
00263  P2000-PRINT-HEADER.                                              DTSBR424
00264      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR424
00265           WS-LINE-CNT2 GREATER 58                                 DTSBR424
00266         MOVE +0          TO WS-LINE-CNT                           DTSBR424
00267         MOVE +0          TO WS-LINE-CNT2                          DTSBR424
00268         ADD  +1          TO WS-PAGE-CNT                           DTSBR424
00269         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR424
00270         WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE        DTSBR424
00271         WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1                  DTSBR424
00272         WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1                  DTSBR424
00273         WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1                  DTSBR424
00274         WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1                  DTSBR424
00275         WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1                  DTSBR424
00276         WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1                  DTSBR424
00277         WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1                  DTSBR424
00278         WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1                  DTSBR424
00279         WRITE PRT-RECORD FROM HDR-LINE-10 AFTER 1                 DTSBR424
00280         WRITE PRT-RECORD FROM HDR-LINE-11 AFTER 1                 DTSBR424
00281         ADD +11   TO WS-LINE-CNT2.                                DTSBR424
00282  P2000-EXIT.                                                      DTSBR424
00283      EXIT.                                                        DTSBR424
00284                                                                   DTSBR424
00285  T1000-TERMINATE.                                                 DTSBR424
00286                                                                   DTSBR424
00287      IF WS-LINE-CNT2 > 52                                         DTSBR424
00288         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR424
00289      END-IF.                                                      DTSBR424
00290                                                                   DTSBR424
00291      MOVE FOOT-COUNT         TO CFF-FOOT-COUNT.                   DTSBR424
00292      MOVE FOOT-AMT           TO CFF-FOOT-AMT.                     DTSBR424
00293      WRITE PRT-RECORD FROM CFF-LINE-4 AFTER 4.                    DTSBR424
00294      WRITE PRT-RECORD FROM CFF-LINE-6 AFTER 2.                    DTSBR424
00295                                                                   DTSBR424
00296      CLOSE PRT-FILE.                                              DTSBR424
00297                                                                   DTSBR424
00298  T1000-EXIT.                                                      DTSBR424
00299      EXIT.                                                        DTSBR424
00300      EJECT                                                        DTSBR424
00301  FIND-FIELD-REP.                                                  DTSBR424
00302      MOVE R424-FLD-REP-ID TO L062-FLD-REP-ID.                     DTSBR424
00303      PERFORM S062-FLD-REP THRU S062-EXIT.                         DTSBR424
00304      MOVE L062-NAME TO HOLD-FIELD-REP-NAME                        DTSBR424
00305                        HDR-FIELD-REP-NAME.                        DTSBR424
00306  FIND-REP-EXIT.                                                   DTSBR424
00307      EXIT.                                                        DTSBR424
00308  S062-FLD-REP.                                                    DTSBR424
00309      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR424
00310  S062-EXIT.                                                       DTSBR424
00311      EXIT.                                                        DTSBR424
00312      SKIP3                                                        DTSBR424
00313 *S999-ABEND.                                                      DTSBR424
00314 *    SKIP1                                                        DTSBR424
00315 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR424
00316 *    SKIP2                                                        DTSBR424
00317 *S999-EXIT.                                                       DTSBR424
00318 *    EXIT.                                                        DTSBR424
00319                                                                   DTSBR424
