00001  IDENTIFICATION DIVISION.                                         01/23/01
00002  PROGRAM-ID.             DTSBR416.                                DTSBR416
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV006
00004  DATE-WRITTEN.           NOVEMBER 1994.                           DTSBR416
00005  DATE-COMPILED.                                                   DTSBR416
00006      SKIP3                                                        DTSBR416
00007 *****                                                             DTSBR416
00008 *                                                                 DTSBR416
00009 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR416
00010 *                       DTSBE414 WHICH CREATES DTSIR416 RECORDS   DTSBR416
00011 *                       DTSBD800 CALLS                            DTSBR416
00012 *                       DTSBR416 WHICH READS DTSIR416 RECORDS     DTSBR416
00013 *                                                                 DTSBR416
00014 *    FUNCTION:  STATEMENT OF ACCOUNT (UI-17) CONTROL REPORT.      DTSBR416
00015 *                                                                 DTSBR416
00016 *                                                                 DTSBR416
00017 *    MODIFICATION HISTORY:                                        DTSBR416
00018 *                                                                 DTSBR416
00019 * 12-21-94 INITIAL DEVELOPMENT                                    DTSBR416
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RHC  DTSBR416
00021 *                                                                 DTSBR416
00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR416
00023 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR416
00024 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR416
00025 *                                                                 DTSBR416
00026 *                                                                 DTSBR416
00027 *    DESCRIPTION:                                                 DTSBR416
00028 *                                                                 DTSBR416
00029 *        THIS MODULE PRODUCES A COUNT OF ALL EMPLOYERS WHO        DTSBR416
00030 *        RECEIVED A UC-223.                                       DTSBR416
00031 *                                                                 DTSBR416
00032 *                                                                 DTSBR416
00033 *    RECORDS READ:                                                DTSBR416
00034 *                                                                 DTSBR416
00035 *        NONE.                                                    DTSBR416
00036 *                                                                 DTSBR416
00037 *                                                                 DTSBR416
00038 *    PRINTED OUTPUTS:                                             DTSBR416
00039 *                                                                 DTSBR416
00040 *        416R1  STATEMENT OF ACCOUNT (UI-17) CONTROL REPORT       DTSBR416
00041 *                                                                 DTSBR416
00042 *                                                                 DTSBR416
00043 *    RECORDS WRITTEN:                                             DTSBR416
00044 *                                                                 DTSBR416
00045 *        NONE.                                                    DTSBR416
00046 *                                                                 DTSBR416
00047 *                                                                 DTSBR416
00048 *    MODULES CALLED:                                              DTSBR416
00049 *                                                                 DTSBR416
00050 *        DTSBU001  DATE CONVERT.                                  DTSBR416
00051 *                                                                 DTSBR416
00052 *                                                                 DTSBR416
00053 *****                                                             DTSBR416
00054      EJECT                                                        DTSBR416
00055  ENVIRONMENT DIVISION.                                            DTSBR416
00056                                                                   DTSBR416
00057  CONFIGURATION SECTION.                                           DTSBR416
00058  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR416
00059                                                                   DTSBR416
00060  INPUT-OUTPUT SECTION.                                            DTSBR416
00061  FILE-CONTROL.                                                    DTSBR416
00062      SELECT PRT-FILE ASSIGN TO RPT416R1.                          DTSBR416
00063                                                                   DTSBR416
00064  DATA DIVISION.                                                   DTSBR416
00065  FILE SECTION.                                                    DTSBR416
00066                                                                   DTSBR416
00067  FD  PRT-FILE                                                     DTSBR416
00068      RECORDING MODE IS F.                                         DTSBR416
00069  01  PRT-RECORD              PIC X(133).                          DTSBR416
00070                                                                   DTSBR416
00071      EJECT                                                        DTSBR416
00072  WORKING-STORAGE SECTION.                                         DTSBR416
000725 77  PAN-VALET PICTURE X(24) VALUE '006DTSBR416  01/23/01'.       DTSBR416
00073                                                                   DTSBR416
00074  01  WRK-AREA.                                                    DTSBR416
00075      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +416.DTSBR416
00076      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR416
00077                                                                   DTSBR416
00078      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR416
00079      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR416
00080      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR416
00081                                                                   DTSBR416
00082      05  WRK-EMP-NO                  PIC S9(07)  COMP-3 VALUE +0. DTSBR416
00083      05  WRK-EMP-CNT                 PIC S9(07)  COMP-3 VALUE +0. DTSBR416
00084      05  WRK-UC223-CNT               PIC S9(07)  COMP-3 VALUE +0. DTSBR416
00085                                                                   DTSBR416
00086      EJECT                                                        DTSBR416
00087  01  L001-LINK-AREA.                                              DTSBR416
00088  ++INCLUDE DTSIL001                                               DTSBR416
00089      EJECT                                                        DTSBR416
00090  01  PAGE-HEADING.                                                DTSBR416
00091      05  HDR-LINE-1.                                              DTSBR416
00092          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR416
00093          10  FILLER                  PIC  X(05)                   DTSBR416
00094                 VALUE '416R1'.                                    DTSBR416
00095          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR416
00096          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR416
00097          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR416
00098          10  FILLER                  PIC  X(05)                   DTSBR416
00099                 VALUE 'DATE:'.                                    DTSBR416
00100          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR416
00101          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR416
00102      05  HDR-LINE-2.                                              DTSBR416
00103          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR416
00104          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR416
00105          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR416
00106          10  FILLER                  PIC  X(05)                   DTSBR416
00107                 VALUE 'TIME:'.                                    DTSBR416
00108          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR416
00109          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR416
00110      05  HDR-LINE-3.                                              DTSBR416
00111          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR416
00112          10  FILLER                  PIC  X(28)                   DTSBR416
00113                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR416
00114          10  FILLER                  PIC  X(89)  VALUE SPACES.    DTSBR416
00115          10  FILLER                  PIC  X(05)                   DTSBR416
00116                 VALUE 'PAGE:'.                                    DTSBR416
00117          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR416
00118          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR416
00119      05  HDR-LINE-4.                                              DTSBR416
00120          10  FILLER                  PIC  X(44)  VALUE SPACES.    DTSBR416
00121          10  FILLER                  PIC  X(44)                   DTSBR416
00122          VALUE 'STATEMENT OF ACCOUNT (UC-223) CONTROL REPORT'.    DTSBR416
00123      05  HDR-LINE-5.                                              DTSBR416
00124          10  FILLER                  PIC  X(60)  VALUE SPACES.    DTSBR416
00125          10  FILLER                  PIC  X(11)                   DTSBR416
00126                 VALUE 'COLLECTIONS'.                              DTSBR416
00127      05  HDR-LINE-6.                                              DTSBR416
00128          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR416
00129          10  FILLER                  PIC  X(17)                   DTSBR416
00130                 VALUE 'COMPUTATION DATE:'.                        DTSBR416
00131          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR416
00132          10  WRK-COMPUTATION-DATE    PIC  X(08).                  DTSBR416
00133      SKIP3                                                        DTSBR416
00134  01  DETAIL-LINE.                                                 DTSBR416
00135      05  DTL-LINE-2.                                              DTSBR416
00136          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR416
00137          10  DTL-EMP-CNT             PIC  ZZ,ZZ9.                 DTSBR416
00138          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR416
00139          10  FILLER                  PIC  X(09)                   DTSBR416
00140                 VALUE 'EMPLOYERS'.                                DTSBR416
00141          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR416
00142          10  DTL-UC223-CNT           PIC  ZZ,ZZ9.                 DTSBR416
00143          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR416
00144          10  FILLER                  PIC  X(10)                   DTSBR416
00145                 VALUE 'STATEMENTS'.                               DTSBR416
00146      EJECT                                                        DTSBR416
00147  LINKAGE SECTION.                                                 DTSBR416
00148      SKIP3                                                        DTSBR416
00149  01  LRCM-LINK-AREA.                                              DTSBR416
00150  ++INCLUDE DTSILRCM                                               DTSBR416
00151      EJECT                                                        DTSBR416
00152  01  R416-REC.                                                    DTSBR416
00153  ++INCLUDE DTSIR416                                               DTSBR416
00154      EJECT                                                        DTSBR416
00155  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR416
00156                           R416-REC.                               DTSBR416
00157                                                                   DTSBR416
00158      IF FIRST-TIME-IND = 'Y'                                      DTSBR416
00159          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR416
00160          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR416
00161                                                                   DTSBR416
00162      IF LRCM-EOR-88                                               DTSBR416
00163          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR416
00164      ELSE                                                         DTSBR416
00165          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR416
00166      SKIP3                                                        DTSBR416
00167      GOBACK.                                                      DTSBR416
00168      EJECT                                                        DTSBR416
00169  I1000-INITIATE.                                                  DTSBR416
00170      MOVE R416-COMP-DATE TO L001-FED-8-DATE-9.                    DTSBR416
00171      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR416
00172      MOVE L001-SLASH-DATE TO WRK-COMPUTATION-DATE.                DTSBR416
00173                                                                   DTSBR416
00174      MOVE +9999999 TO WRK-EMP-NO.                                 DTSBR416
00175      MOVE +0 TO WRK-EMP-CNT                                       DTSBR416
00176                 WRK-UC223-CNT.                                    DTSBR416
00177                                                                   DTSBR416
00178      OPEN OUTPUT PRT-FILE.                                        DTSBR416
00179      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR416
00180      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR416
00181      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR416
00182      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR416
00183      MOVE SPACES TO PRT-RECORD.                                   DTSBR416
00184                                                                   DTSBR416
00185  I1000-EXIT.                                                      DTSBR416
00186      EXIT.                                                        DTSBR416
00187                                                                   DTSBR416
00188  P1000-PROCESS.                                                   DTSBR416
00189                                                                   DTSBR416
00190      IF R416-EMP-NO NOT EQUAL WRK-EMP-NO                          DTSBR416
00191          MOVE R416-EMP-NO TO WRK-EMP-NO                           DTSBR416
00192          ADD +1 TO WRK-EMP-CNT.                                   DTSBR416
00193                                                                   DTSBR416
00194      ADD +1 TO WRK-UC223-CNT.                                     DTSBR416
00195                                                                   DTSBR416
00196  P1000-EXIT.                                                      DTSBR416
00197      EXIT.                                                        DTSBR416
00198                                                                   DTSBR416
00199  P2000-PRINT-HEADER.                                              DTSBR416
00200      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR416
00201           WS-LINE-CNT2 GREATER 58                                 DTSBR416
00202         MOVE +0          TO WS-LINE-CNT                           DTSBR416
00203         MOVE +0          TO WS-LINE-CNT2                          DTSBR416
00204         ADD  +1          TO WS-PAGE-CNT                           DTSBR416
00205         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR416
00206         WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE        DTSBR416
00207         WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1                  DTSBR416
00208         WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1                  DTSBR416
00209         WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1                  DTSBR416
00210         WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1                  DTSBR416
00211         WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1                  DTSBR416
00212         ADD +6    TO WS-LINE-CNT2.                                DTSBR416
00213  P2000-EXIT.                                                      DTSBR416
00214      EXIT.                                                        DTSBR416
00215                                                                   DTSBR416
00216  T1000-TERMINATE.                                                 DTSBR416
00217                                                                   DTSBR416
00218      MOVE WRK-EMP-CNT           TO DTL-EMP-CNT.                   DTSBR416
00219      MOVE WRK-UC223-CNT         TO DTL-UC223-CNT.                 DTSBR416
00220                                                                   DTSBR416
00221      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR416
00222      WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2.                    DTSBR416
00223      ADD  2    TO WS-LINE-CNT2.                                   DTSBR416
00224      CLOSE PRT-FILE.                                              DTSBR416
00225                                                                   DTSBR416
00226  T1000-EXIT.                                                      DTSBR416
00227      EXIT.                                                        DTSBR416
00228                                                                   DTSBR416
00229  S001-FROM-FED-8.                                                 DTSBR416
00230                                                                   DTSBR416
00231      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR416
00232                                                                   DTSBR416
00233      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR416
00234                                                                   DTSBR416
00235  S001-EXIT.                                                       DTSBR416
00236      EXIT.                                                        DTSBR416
00237                                                                   DTSBR416
00238 *S999-ABEND.                                                      DTSBR416
00239 *                                                                 DTSBR416
00240 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR416
00241 *                                                                 DTSBR416
00242 *S999-EXIT.                                                       DTSBR416
00243 *    EXIT.                                                        DTSBR416
