00001  IDENTIFICATION DIVISION.                                         07/29/02
00002  PROGRAM-ID.             DTSBR740.                                DTSBR740
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV022
00004  DATE-WRITTEN.           OCTOBER 1996.                            DTSBR740
00005  DATE-COMPILED.                                                   DTSBR740
00006                                                                   DTSBR740
00007 *****                                                             DTSBR740
00008 *                                                                 DTSBR740
00009 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR740
00010 *                       DTSBE740 WHICH UPDATES DTSIR740           DTSBR740
00011 *                       DTSBR740 READS DTSIR740 RECORDS.          DTSBR740
00012 *                                                                 DTSBR740
00013 *    FUNCTION:  ELECTRONIC FILER LIST.                            DTSBR740
00014 *                                                                 DTSBR740
00015 *                                                                 DTSBR740
00016 *    MODIFICATION HISTORY:                                        DTSBR740
00017 *                                                                 DTSBR740
00018 * 10-30-96 INITIAL DEVELOPMENT                                    DTSBR740
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR740
00020 *                                                                 DTSBR740
00021 * 03-02-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS      DTSBR740
00022 *          REFERENCE RFP #****            AUTHOR OF CHANGE - DVS  DTSBR740
00023 *                                                                 DTSBR740
00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR740
00025 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR740
00026 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR740
00027 *                                                                 DTSBR740
00028 *                                                                 DTSBR740
00029 *    DESCRIPTION:                                                 DTSBR740
00030 *                                                                 DTSBR740
00031 *        THIS MODULE GENERATES A LIST OF ALL EMPLOYERS WHO ARE    DTSBR740
00032 *        SET UP AS ELECTRONIC FILERS.                             DTSBR740
00033 *                                                                 DTSBR740
00034 *                                                                 DTSBR740
00035 *    RECORDS READ:                                                DTSBR740
00036 *                                                                 DTSBR740
00037 *        NONE.                                                    DTSBR740
00038 *                                                                 DTSBR740
00039 *                                                                 DTSBR740
00040 *    PRINTED OUTPUTS:                                             DTSBR740
00041 *                                                                 DTSBR740
00042 *        740R1  ELECTRONIC FILERS LIST                            DTSBR740
00043 *                                                                 DTSBR740
00044 *                                                                 DTSBR740
00045 *    RECORDS WRITTEN:                                             DTSBR740
00046 *                                                                 DTSBR740
00047 *        NONE.                                                    DTSBR740
00048 *                                                                 DTSBR740
00049 *                                                                 DTSBR740
00050 *    MODULES CALLED:                                              DTSBR740
00051 *                                                                 DTSBR740
00052 *                                                                 DTSBR740
00053 *                                                                 DTSBR740
00054 *****                                                             DTSBR740
00055      EJECT                                                        DTSBR740
00056  ENVIRONMENT DIVISION.                                            DTSBR740
00057                                                                   DTSBR740
00058  CONFIGURATION SECTION.                                           DTSBR740
00059  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR740
00060                                                                   DTSBR740
00061  INPUT-OUTPUT SECTION.                                            DTSBR740
00062                                                                   DTSBR740
00063  FILE-CONTROL.                                                    DTSBR740
00064      SELECT PRT-FILE  ASSIGN TO RPT740R1.                         DTSBR740
00065                                                                   DTSBR740
00066  DATA DIVISION.                                                   DTSBR740
00067                                                                   DTSBR740
00068  FILE SECTION.                                                    DTSBR740
00069                                                                   DTSBR740
00070  FD  PRT-FILE                                                     DTSBR740
00071      RECORDING MODE IS F.                                         DTSBR740
00072  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR740
00073                                                                   DTSBR740
00074  WORKING-STORAGE SECTION.                                         DTSBR740
000745 77  PAN-VALET PICTURE X(24) VALUE '022DTSBR740  07/29/02'.       DTSBR740
00075                                                                   DTSBR740
00076  01  WRK-AREA.                                                    DTSBR740
00077      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +740.DTSBR740
00078      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR740
00079      05  WS-EMP-STATUS-HOLD          PIC  X(01)  VALUE '1'.       DTSBR740
00080      05  WS-MEDIA-TYPE-CD-HOLD       PIC  X(01)  VALUE 'C'.       DTSBR740
00081      05  WS-YRQ-DATE                 PIC  X(08).                  DTSBR740
00082      05  WS-MEDIA-TYPE               PIC  X(09)                   DTSBR740
00083                                          VALUE 'CARTRIDGE'.       DTSBR740
00084      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR740
00085      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR740
00086      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR740
00087      05  WS-NUMBER-ONE               PIC S9(05) COMP-3 VALUE +0.  DTSBR740
00088                                                                   DTSBR740
00089      EJECT                                                        DTSBR740
00090  01  L001-LINK-AREA.                                              DTSBR740
00091  ++INCLUDE DTSIL001                                               DTSBR740
00092      EJECT                                                        DTSBR740
00093  01  L004-LINK-AREA.                                              DTSBR740
00094  ++INCLUDE DTSIL004                                               DTSBR740
00095      EJECT                                                        DTSBR740
00096                                                                   DTSBR740
00097  01  PAGE-HEADING.                                                DTSBR740
00098      05  HDR-LINE-1.                                              DTSBR740
00099          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR740
00100          10  FILLER                  PIC  X(05)                   DTSBR740
00101                 VALUE '740R1'.                                    DTSBR740
00102          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR740
00103          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR740
00104          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR740
00105          10  FILLER                  PIC  X(05)                   DTSBR740
00106                 VALUE 'DATE:'.                                    DTSBR740
00107          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR740
00108          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR740
00109                                                                   DTSBR740
00110      05  HDR-LINE-2.                                              DTSBR740
00111          10  FILLER                  PIC  X(23)  VALUE SPACES.    DTSBR740
00112          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR740
00113          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR740
00114          10  FILLER                  PIC  X(05)                   DTSBR740
00115                 VALUE 'TIME:'.                                    DTSBR740
00116          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR740
00117          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR740
00118                                                                   DTSBR740
00119      05  HDR-LINE-3.                                              DTSBR740
00120          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR740
00121          10  FILLER                  PIC  X(39)                   DTSBR740
00122                 VALUE 'ROUTE TO:  CHIEF, TAX DIVISON          '.  DTSBR740
00123          10  FILLER                  PIC  X(37)  VALUE SPACES.    DTSBR740
00124          10  FILLER                  PIC  X(05)                   DTSBR740
00125                 VALUE 'PAGE:'.                                    DTSBR740
00126          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR740
00127          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR740
00128                                                                   DTSBR740
00129      05  HDR-LINE-4.                                              DTSBR740
00130          10  FILLER                  PIC  X(38)  VALUE SPACES.    DTSBR740
00131          10  FILLER                  PIC  X(21)                   DTSBR740
00132                 VALUE 'ELECTRONIC FILER LIST'.                    DTSBR740
00133                                                                   DTSBR740
00134      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR740
00135                                                                   DTSBR740
00136      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR740
00137                                                                   DTSBR740
00138      05  HDR-LINE-7.                                              DTSBR740
00139          10  FILLER                  PIC  X(69)  VALUE SPACES.    DTSBR740
00140          10  FILLER                  PIC  X(08)                   DTSBR740
00141                 VALUE 'YEAR   '.                                  DTSBR740
00142          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR740
00143          10  FILLER                  PIC  X(08)                   DTSBR740
00144                 VALUE 'TYPE OF '.                                 DTSBR740
00145                                                                   DTSBR740
00146      05  HDR-LINE-8.                                              DTSBR740
00147          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR740
00148          10  FILLER                  PIC  X(06)                   DTSBR740
00149                 VALUE 'EMP NO'.                                   DTSBR740
00150          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR740
00151          10  FILLER                  PIC  X(13)                   DTSBR740
00152                 VALUE 'PRIMARY NAME'.                             DTSBR740
00153          10  FILLER                  PIC  X(38)  VALUE SPACES.    DTSBR740
00154          10  FILLER                  PIC  X(08)                   DTSBR740
00155                 VALUE 'QTR  '.                                    DTSBR740
00156          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR740
00157          10  FILLER                  PIC  X(06)                   DTSBR740
00158                 VALUE 'MEDIUM'.                                   DTSBR740
00159                                                                   DTSBR740
00160      05  HDR-LINE-9                  PIC  X(133) VALUE SPACES.    DTSBR740
00161                                                                   DTSBR740
00162  01  REPORT-DETAIL.                                               DTSBR740
00163      05  DTL-LINE-1.                                              DTSBR740
00164          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR740
00165          10  DTL-EMP-NO              PIC  999B999.                DTSBR740
00166          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR740
00167          10  DTL-PRIMARY-NAME        PIC  X(40)  VALUE SPACES.    DTSBR740
00168          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR740
00169          10  DTL-YRQ-DATE            PIC  X(08)  VALUE SPACES.    DTSBR740
00170          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR740
00171          10  DTL-MEDIA-TYPE          PIC  X(10)  VALUE SPACES.    DTSBR740
00172                                                                   DTSBR740
00173 *01  TYPE IS CONTROL FOOTING R740-EMP-NO                          DTSBR740
00174 *    NEXT GROUP IS NEXT PAGE.                                     DTSBR740
00175                                                                   DTSBR740
00176  01  CONTROL-FOOTING-FINAL.                                       DTSBR740
00177      05  CFF-LINE-5.                                              DTSBR740
00178          10  FILLER                  PIC  X(51)  VALUE SPACES.    DTSBR740
00179          10  CFF-SUM-REC-CNT         PIC  ZZZ,ZZ9.                DTSBR740
00180          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR740
00181          10  FILLER                  PIC  X(24)                   DTSBR740
00182                 VALUE 'EMPLOYEES ON LIST       '.                 DTSBR740
00183      EJECT                                                        DTSBR740
00184  LINKAGE SECTION.                                                 DTSBR740
00185      SKIP3                                                        DTSBR740
00186  01  LRCM-LINK-AREA.                                              DTSBR740
00187  ++INCLUDE DTSILRCM                                               DTSBR740
00188      EJECT                                                        DTSBR740
00189  01  R740-REC.                                                    DTSBR740
00190  ++INCLUDE DTSIR740                                               DTSBR740
00191      EJECT                                                        DTSBR740
00192  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR740
00193                           R740-REC.                               DTSBR740
00194                                                                   DTSBR740
00195      IF FIRST-TIME-IND = 'Y'                                      DTSBR740
00196          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR740
00197          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR740
00198                                                                   DTSBR740
00199      IF LRCM-EOR-88                                               DTSBR740
00200          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR740
00201      ELSE                                                         DTSBR740
00202          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR740
00203                                                                   DTSBR740
00204      GOBACK.                                                      DTSBR740
00205                                                                   DTSBR740
00206      EJECT                                                        DTSBR740
00207  I1000-INITIATE.                                                  DTSBR740
00208                                                                   DTSBR740
00209      OPEN OUTPUT PRT-FILE.                                        DTSBR740
00210      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR740
00211      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR740
00212      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR740
00213      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR740
00214      MOVE SPACES TO REPORT-LISTING1.                              DTSBR740
00215                                                                   DTSBR740
00216  I1000-EXIT.                                                      DTSBR740
00217      EXIT.                                                        DTSBR740
00218                                                                   DTSBR740
00219  P1000-PROCESS.                                                   DTSBR740
00220                                                                   DTSBR740
00221      IF R740-MEDIA-TYPE-CD NOT = WS-MEDIA-TYPE-CD-HOLD            DTSBR740
00222          MOVE R740-MEDIA-TYPE-CD TO WS-MEDIA-TYPE-CD-HOLD         DTSBR740
00223          EVALUATE TRUE                                            DTSBR740
00224             WHEN R740-MEDIA-CARTRIDGE-88                          DTSBR740
00225                 MOVE 'CARTRIDGE' TO WS-MEDIA-TYPE                 DTSBR740
00226             WHEN R740-MEDIA-DISKETTE-88                           DTSBR740
00227                 MOVE 'DISKETTE ' TO WS-MEDIA-TYPE                 DTSBR740
00228             WHEN R740-MEDIA-MODEM-88                              DTSBR740
00229                 MOVE 'MODEM    ' TO WS-MEDIA-TYPE                 DTSBR740
00230             WHEN R740-MEDIA-PAPER-88                              DTSBR740
00231                 MOVE 'PAPER    ' TO WS-MEDIA-TYPE                 DTSBR740
00232             WHEN R740-MEDIA-TAPE-88                               DTSBR740
00233                 MOVE 'TAPE     ' TO WS-MEDIA-TYPE                 DTSBR740
00234          END-EVALUATE.                                            DTSBR740
00235                                                                   DTSBR740
00236      IF R740-WAGE-YES-88                                          DTSBR740
00237         MOVE WS-MEDIA-TYPE TO DTL-MEDIA-TYPE.                     DTSBR740
00238                                                                   DTSBR740
00239 ***  SET L001-FROM-FED-8 TO TRUE.                                 DTSBR740
00240 ***  PERFORM S001-DATE THRU S001-EXIT.                            DTSBR740
00241 ***  IF L001-INVALID-DATE                                         DTSBR740
00242 ***      MOVE SPACES TO WS-LIAB-DATE                              DTSBR740
00243 ***  ELSE                                                         DTSBR740
00244 ***      MOVE L001-SLASH-DATE TO WS-LIAB-DATE.                    DTSBR740
00245                                                                   DTSBR740
00246      MOVE R740-WAGE-BEGIN-YRQ  TO L004-QTR-5-9.                   DTSBR740
00247                                                                   DTSBR740
00248      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBR740
00249      MOVE L004-SLASH-QTR TO WS-YRQ-DATE.                          DTSBR740
00250                                                                   DTSBR740
00251      IF R740-WAGE-YES-88                                          DTSBR740
00252         MOVE WS-YRQ-DATE    TO DTL-YRQ-DATE.                      DTSBR740
00253                                                                   DTSBR740
00254      MOVE R740-EMP-NO       TO DTL-EMP-NO.                        DTSBR740
00255      MOVE R740-PRIMARY-NAME TO DTL-PRIMARY-NAME.                  DTSBR740
00256                                                                   DTSBR740
00257      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR740
00258      WRITE REPORT-LISTING1 FROM DTL-LINE-1 AFTER 1.               DTSBR740
00259      ADD +1    TO WS-LINE-CNT2.                                   DTSBR740
00260      ADD +1    TO WS-NUMBER-ONE.                                  DTSBR740
00261                                                                   DTSBR740
00262 *    GENERATE REPORT-DETAIL.                                      DTSBR740
00263                                                                   DTSBR740
00264  P1000-EXIT.                                                      DTSBR740
00265      EXIT.                                                        DTSBR740
00266                                                                   DTSBR740
00267  P2000-PRINT-HEADER.                                              DTSBR740
00268                                                                   DTSBR740
00269      IF WS-LINE-CNT GREATER 56 OR                                 DTSBR740
00270           WS-LINE-CNT2 GREATER 56                                 DTSBR740
00271         MOVE +0          TO WS-LINE-CNT                           DTSBR740
00272         MOVE +0          TO WS-LINE-CNT2                          DTSBR740
00273         ADD  +1          TO WS-PAGE-CNT                           DTSBR740
00274         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR740
00275         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR740
00276                 AFTER TOP-OF-PAGE                                 DTSBR740
00277         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR740
00278         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR740
00279         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR740
00280         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR740
00281         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR740
00282         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR740
00283         WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1             DTSBR740
00284         WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1             DTSBR740
00285         ADD +9    TO WS-LINE-CNT2.                                DTSBR740
00286                                                                   DTSBR740
00287  P2000-EXIT.                                                      DTSBR740
00288      EXIT.                                                        DTSBR740
00289                                                                   DTSBR740
00290  T1000-TERMINATE.                                                 DTSBR740
00291                                                                   DTSBR740
00292      IF WS-LINE-CNT2 GREATER 52                                   DTSBR740
00293         ADD +10 TO WS-LINE-CNT2                                   DTSBR740
00294         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.               DTSBR740
00295                                                                   DTSBR740
00296      MOVE WS-NUMBER-ONE    TO CFF-SUM-REC-CNT.                    DTSBR740
00297      WRITE REPORT-LISTING1 FROM CFF-LINE-5 AFTER 5.               DTSBR740
00298                                                                   DTSBR740
00299      CLOSE PRT-FILE.                                              DTSBR740
00300                                                                   DTSBR740
00301  T1000-EXIT.                                                      DTSBR740
00302      EXIT.                                                        DTSBR740
00303 *                                                                 DTSBR740
00304 *S001-DATE.                                                       DTSBR740
00305 **                                                                DTSBR740
00306 **   CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR740
00307 **                                                                DTSBR740
00308 *S001-EXIT.                                                       DTSBR740
00309 **   EXIT.                                                        DTSBR740
00310                                                                   DTSBR740
00311  S004-FROM-5.                                                     DTSBR740
00312      SET L004-FROM-5 TO TRUE.                                     DTSBR740
00313      GO TO S004-YRQ.                                              DTSBR740
00314                                                                   DTSBR740
00315 *S004-FROM-ABS.                                                   DTSBR740
00316 **   SET L004-FROM-ABS TO TRUE.                                   DTSBR740
00317 **   GO TO S004-YRQ.                                              DTSBR740
00318                                                                   DTSBR740
00319  S004-YRQ.                                                        DTSBR740
00320      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR740
00321  S004-EXIT.                                                       DTSBR740
00322      EXIT.                                                        DTSBR740
00323                                                                   DTSBR740
00324 *S999-ABEND.                                                      DTSBR740
00325 *                                                                 DTSBR740
00326 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR740
00327 *                                                                 DTSBR740
00328 *S999-EXIT.                                                       DTSBR740
00329 *    EXIT.                                                        DTSBR740
00330                                                                   DTSBR740
