00001  IDENTIFICATION DIVISION.                                         08/09/02
00002  PROGRAM-ID.             DTSBR905.                                DTSBR905
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV005
00004  DATE-WRITTEN.           OCTOBER 1994.                            DTSBR905
00005  DATE-COMPILED.                                                   DTSBR905
00006      SKIP3                                                        DTSBR905
00007 *****                                                             DTSBR905
00008 *                                                                 DTSBR905
00009 *    FUNCTION:  RECOVERY/RESTART REPORT                           DTSBR905
00010 *                                                                 DTSBR905
00011 *                                                                 DTSBR905
00012 *    MODIFICATION HISTORY:                                        DTSBR905
00013 *                                                                 DTSBR905
00014 * 10-31-94 INITIAL DEVELOPMENT                                    DTSBR905
00015 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR905
00016 *                                                                 DTSBR905
00017 * 10/06/1998  REVIEWED AND MODIFIED FOR DC.                       DTSBR905
00018 *             REFERENCE: DC DEVELOPMENT        PROGRAMMER: EHH    DTSBR905
00019 *                                                                 DTSBR905
00020 * MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX    DTSBR905
00021 *             XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX    DTSBR905
00022 *             REFERENCE: XXXXXXXXXXXXXXX       PROGRAMMER: XXX    DTSBR905
00023 *                                                                 DTSBR905
00024 *                                                                 DTSBR905
00025 *    DESCRIPTION:                                                 DTSBR905
00026 *                                                                 DTSBR905
00027 *        THIS MODULE REPORTS ON EMPLOYERS WHOSE RECORDS ARE       DTSBR905
00028 *        LOCKED AGAINST UPDATE OR CHANGES IN THE LOCKED STATUS    DTSBR905
00029 *        OF EMPLOYER RECORDS.                                     DTSBR905
00030 *                                                                 DTSBR905
00031 *                                                                 DTSBR905
00032 *    RECORDS READ:                                                DTSBR905
00033 *                                                                 DTSBR905
00034 *        NONE.                                                    DTSBR905
00035 *                                                                 DTSBR905
00036 *                                                                 DTSBR905
00037 *    PRINTED OUTPUTS:                                             DTSBR905
00038 *                                                                 DTSBR905
00039 *        905R1  ONLINE RECOVERY/RESTART REPORT                    DTSBR905
00040 *                                                                 DTSBR905
00041 *                                                                 DTSBR905
00042 *    RECORDS WRITTEN:                                             DTSBR905
00043 *                                                                 DTSBR905
00044 *        NONE.                                                    DTSBR905
00045 *                                                                 DTSBR905
00046 *                                                                 DTSBR905
00047 *    MODULES CALLED:                                              DTSBR905
00048 *                                                                 DTSBR905
00049 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR905
00050 *        DTSBU010 TIME VALIDATE/FORMAT MODULE                     DTSBR905
00051 *                                                                 DTSBR905
00052 *                                                                 DTSBR905
00053 *****                                                             DTSBR905
00054      EJECT                                                        DTSBR905
00055  ENVIRONMENT DIVISION.                                            DTSBR905
00056                                                                   DTSBR905
00057  CONFIGURATION SECTION.                                           DTSBR905
00058  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR905
00059                                                                   DTSBR905
00060  INPUT-OUTPUT SECTION.                                            DTSBR905
00061                                                                   DTSBR905
00062  FILE-CONTROL.                                                    DTSBR905
00063      SELECT PRT-FILE ASSIGN TO RPT905R1.                          DTSBR905
00064                                                                   DTSBR905
00065  DATA DIVISION.                                                   DTSBR905
00066                                                                   DTSBR905
00067  FILE SECTION.                                                    DTSBR905
00068                                                                   DTSBR905
00069  FD  PRT-FILE                                                     DTSBR905
00070      RECORDING MODE IS F.                                         DTSBR905
00071  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR905
00072                                                                   DTSBR905
00073  WORKING-STORAGE SECTION.                                         DTSBR905
000735 77  PAN-VALET PICTURE X(24) VALUE '005DTSBR905  08/09/02'.       DTSBR905
00074                                                                   DTSBR905
00075  01  WRK-AREA.                                                    DTSBR905
00076      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +905.DTSBR905
00077      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR905
00078                                                                   DTSBR905
00079      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR905
00080      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR905
00081      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR905
00082                                                                   DTSBR905
00083  01  L001-LINK-AREA.                                              DTSBR905
00084  ++INCLUDE DTSIL001                                               DTSBR905
00085      EJECT                                                        DTSBR905
00086  01  L010-LINK-AREA.                                              DTSBR905
00087  ++INCLUDE DTSIL010                                               DTSBR905
00088      EJECT                                                        DTSBR905
00089  01  PAGE-HEADING.                                                DTSBR905
00090      05  HDR-LINE-1.                                              DTSBR905
00091          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR905
00092          10  FILLER                  PIC  X(05)                   DTSBR905
00093                 VALUE '905R1'.                                    DTSBR905
00094          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR905
00095          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR905
00096 *               SOURCE LRCM-AGY-NAME-LINE1.                       DTSBR905
00097          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR905
00098          10  FILLER                  PIC  X(05)                   DTSBR905
00099                 VALUE 'DATE:'.                                    DTSBR905
00100          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR905
00101          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR905
00102 *               SOURCE LRCM-SYS-DATE.                             DTSBR905
00103                                                                   DTSBR905
00104      05  HDR-LINE-2.                                              DTSBR905
00105          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR905
00106          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR905
00107 *               SOURCE LRCM-AGY-NAME-LINE2.                       DTSBR905
00108          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR905
00109          10  FILLER                  PIC  X(05)                   DTSBR905
00110                 VALUE 'TIME:'.                                    DTSBR905
00111          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR905
00112          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR905
00113 *               SOURCE LRCM-SYS-TIME.                             DTSBR905
00114                                                                   DTSBR905
00115      05  HDR-LINE-3.                                              DTSBR905
00116          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR905
00117          10  FILLER                  PIC  X(39)                   DTSBR905
00118                 VALUE 'ROUTE TO:  UI TAX PROGRAMMERS          '.  DTSBR905
00119          10  FILLER                  PIC  X(79)  VALUE SPACES.    DTSBR905
00120          10  FILLER                  PIC  X(05)                   DTSBR905
00121                 VALUE 'PAGE:'.                                    DTSBR905
00122          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR905
00123          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR905
00124 *               SOURCE PAGE-COUNTER.                              DTSBR905
00125                                                                   DTSBR905
00126      05  HDR-LINE-4.                                              DTSBR905
00127          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR905
00128          10  FILLER                  PIC  X(30)                   DTSBR905
00129                 VALUE 'ONLINE RECOVERY/RESTART REPORT'.           DTSBR905
00130                                                                   DTSBR905
00131      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR905
00132      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR905
00133      05  HDR-LINE-7.                                              DTSBR905
00134          10  FILLER                  PIC  X(48)  VALUE SPACES.    DTSBR905
00135          10  FILLER                  PIC  X(24)                   DTSBR905
00136                 VALUE ALL '*'.                                    DTSBR905
00137          10  FILLER                  PIC  X(35)                   DTSBR905
00138                 VALUE ' IN PROGRESS OR MOST RECENT UPDATE '.      DTSBR905
00139          10  FILLER                  PIC  X(24)                   DTSBR905
00140                 VALUE ALL '*'.                                    DTSBR905
00141                                                                   DTSBR905
00142      05  HDR-LINE-8.                                              DTSBR905
00143          10  FILLER                  PIC  X(48)  VALUE SPACES.    DTSBR905
00144          10  FILLER                  PIC  X(06)                   DTSBR905
00145                 VALUE 'UPDATE'.                                   DTSBR905
00146          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR905
00147          10  FILLER                  PIC  X(28)                   DTSBR905
00148                 VALUE 'TERM     NET      SCR   FUNC'.             DTSBR905
00149                                                                   DTSBR905
00150      05  HDR-LINE-9.                                              DTSBR905
00151          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR905
00152          10  FILLER                  PIC  X(40)                   DTSBR905
00153                 VALUE 'EMP NO       DATE       TIME       OPID '. DTSBR905
00154          10  FILLER                  PIC  X(40)                   DTSBR905
00155                 VALUE '         IND     TASK ID    OPID       I'. DTSBR905
00156          10  FILLER                  PIC  X(40)                   DTSBR905
00157                 VALUE 'D      NAME      ID   TION      DATE    '. DTSBR905
00158          10  FILLER                  PIC  X(12)                   DTSBR905
00159                 VALUE '    TIME    '.                             DTSBR905
00160                                                                   DTSBR905
00161  01  DETAIL-LINE.                                                 DTSBR905
00162      05  DTL-LINE-2.                                              DTSBR905
00163          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR905
00164          10  DTL-EMP-NO              PIC  999B999.                DTSBR905
00165          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR905
00166          10  WS-SYS-DATE             PIC  X(08).                  DTSBR905
00167          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR905
00168          10  WS-SYS-TIME             PIC  X(08).                  DTSBR905
00169          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR905
00170          10  DTL-OP-ID               PIC  X(08).                  DTSBR905
00171          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR905
00172          10  DTL-UPDATE-IND          PIC  X(01).                  DTSBR905
00173          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR905
00174          10  DTL-UPDATE-TASK-ID      PIC  Z(07)9.                 DTSBR905
00175          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR905
00176          10  DTL-UPDATE-OP-ID        PIC  X(08).                  DTSBR905
00177          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR905
00178          10  DTL-UPDATE-TERMID       PIC  X(04).                  DTSBR905
00179          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR905
00180          10  DTL-UPDATE-NETNAME      PIC  X(08).                  DTSBR905
00181          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR905
00182          10  DTL-UPDATE-SCR-ID       PIC  X(02).                  DTSBR905
00183 *               SOURCE R905-UPDATE-SCR-ID.                        DTSBR905
00184          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR905
00185          10  DTL-UPDATE-FUNCTION     PIC  X(01).                  DTSBR905
00186 *               SOURCE R905-UPDATE-FUNCTION.                      DTSBR905
00187          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR905
00188          10  WS-UPDATE-START-DATE    PIC  X(08).                  DTSBR905
00189 *               SOURCE WS-UPDATE-START-DATE.                      DTSBR905
00190          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR905
00191          10  WS-UPDATE-START-TIME    PIC  X(08).                  DTSBR905
00192 *               SOURCE WS-UPDATE-START-TIME.                      DTSBR905
00193                                                                   DTSBR905
00194  01  CONTROL-FOOTING-FINAL.                                       DTSBR905
00195      05  CTF-LINE-3.                                              DTSBR905
00196          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR905
00197          10  FILLER                  PIC  X(17)                   DTSBR905
00198                 VALUE '*** END OF REPORT'.                        DTSBR905
00199      EJECT                                                        DTSBR905
00200  LINKAGE SECTION.                                                 DTSBR905
00201                                                                   DTSBR905
00202  01  LRCM-LINK-AREA.                                              DTSBR905
00203  ++INCLUDE DTSILRCM                                               DTSBR905
00204      EJECT                                                        DTSBR905
00205  01  R905-REC.                                                    DTSBR905
00206  ++INCLUDE DTSIR905                                               DTSBR905
00207      EJECT                                                        DTSBR905
00208  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR905
00209                           R905-REC.                               DTSBR905
00210                                                                   DTSBR905
00211      IF FIRST-TIME-IND = 'Y'                                      DTSBR905
00212          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR905
00213          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR905
00214                                                                   DTSBR905
00215      IF LRCM-EOR-88                                               DTSBR905
00216          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR905
00217      ELSE                                                         DTSBR905
00218          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR905
00219                                                                   DTSBR905
00220      GOBACK.                                                      DTSBR905
00221                                                                   DTSBR905
00222  I1000-INITIATE.                                                  DTSBR905
00223                                                                   DTSBR905
00224      OPEN OUTPUT PRT-FILE.                                        DTSBR905
00225      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR905
00226      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR905
00227      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR905
00228      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR905
00229      MOVE SPACES TO REPORT-LISTING1.                              DTSBR905
00230                                                                   DTSBR905
00231  I1000-EXIT.                                                      DTSBR905
00232      EXIT.                                                        DTSBR905
00233                                                                   DTSBR905
00234  P1000-PROCESS.                                                   DTSBR905
00235      MOVE R905-SYS-DATE TO L001-FED-8-DATE-9.                     DTSBR905
00236      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR905
00237      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR905
00238      MOVE L001-SLASH-DATE TO WS-SYS-DATE.                         DTSBR905
00239      MOVE R905-UPDATE-START-DATE TO L001-FED-8-DATE-9.            DTSBR905
00240                                                                   DTSBR905
00241      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR905
00242      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR905
00243      MOVE L001-SLASH-DATE TO WS-UPDATE-START-DATE.                DTSBR905
00244      MOVE R905-SYS-TIME TO L010-TIME.                             DTSBR905
00245      PERFORM S010-TIME THRU S010-EXIT.                            DTSBR905
00246      MOVE L010-DOTS-TIME TO WS-SYS-TIME.                          DTSBR905
00247      MOVE R905-UPDATE-START-TIME TO L010-TIME.                    DTSBR905
00248      PERFORM S010-TIME THRU S010-EXIT.                            DTSBR905
00249      MOVE L010-DOTS-TIME TO WS-UPDATE-START-TIME.                 DTSBR905
00250                                                                   DTSBR905
00251      MOVE R905-EMP-NO          TO DTL-EMP-NO.                     DTSBR905
00252      MOVE R905-OP-ID           TO DTL-OP-ID.                      DTSBR905
00253      MOVE R905-UPDATE-IND      TO DTL-UPDATE-IND.                 DTSBR905
00254      MOVE R905-UPDATE-TASK-ID  TO DTL-UPDATE-TASK-ID.             DTSBR905
00255      MOVE R905-UPDATE-OP-ID    TO DTL-UPDATE-OP-ID.               DTSBR905
00256      MOVE R905-UPDATE-TERMID  TO DTL-UPDATE-TERMID.               DTSBR905
00257      MOVE R905-UPDATE-NETNAME  TO DTL-UPDATE-NETNAME.             DTSBR905
00258      MOVE R905-UPDATE-SCR-ID   TO DTL-UPDATE-SCR-ID.              DTSBR905
00259      MOVE R905-UPDATE-FUNCTION TO DTL-UPDATE-FUNCTION.            DTSBR905
00260                                                                   DTSBR905
00261      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR905
00262      WRITE REPORT-LISTING1 FROM DTL-LINE-2 AFTER 2.               DTSBR905
00263      ADD +2    TO WS-LINE-CNT2.                                   DTSBR905
00264                                                                   DTSBR905
00265 *    GENERATE DETAIL-LINE.                                        DTSBR905
00266                                                                   DTSBR905
00267  P1000-EXIT.                                                      DTSBR905
00268      EXIT.                                                        DTSBR905
00269                                                                   DTSBR905
00270  P2000-PRINT-HEADER.                                              DTSBR905
00271                                                                   DTSBR905
00272      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR905
00273           WS-LINE-CNT2 GREATER 58                                 DTSBR905
00274         MOVE +0          TO WS-LINE-CNT                           DTSBR905
00275         MOVE +0          TO WS-LINE-CNT2                          DTSBR905
00276         ADD  +1          TO WS-PAGE-CNT                           DTSBR905
00277         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR905
00278         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR905
00279                 AFTER TOP-OF-PAGE                                 DTSBR905
00280         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR905
00281         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR905
00282         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR905
00283         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR905
00284         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR905
00285         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR905
00286         WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1             DTSBR905
00287         WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1             DTSBR905
00288         ADD +9    TO WS-LINE-CNT2.                                DTSBR905
00289                                                                   DTSBR905
00290  P2000-EXIT.                                                      DTSBR905
00291      EXIT.                                                        DTSBR905
00292                                                                   DTSBR905
00293  T1000-TERMINATE.                                                 DTSBR905
00294                                                                   DTSBR905
00295      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR905
00296           WS-LINE-CNT2 GREATER 58                                 DTSBR905
00297         MOVE +0          TO WS-LINE-CNT                           DTSBR905
00298         MOVE +0          TO WS-LINE-CNT2                          DTSBR905
00299         ADD  +1          TO WS-PAGE-CNT                           DTSBR905
00300         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR905
00301         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.               DTSBR905
00302                                                                   DTSBR905
00303      WRITE REPORT-LISTING1 FROM CTF-LINE-3 AFTER 3.               DTSBR905
00304      CLOSE PRT-FILE.                                              DTSBR905
00305                                                                   DTSBR905
00306  T1000-EXIT.                                                      DTSBR905
00307      EXIT.                                                        DTSBR905
00308                                                                   DTSBR905
00309  S001-DATE.                                                       DTSBR905
00310      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR905
00311  S001-EXIT.                                                       DTSBR905
00312      EXIT.                                                        DTSBR905
00313                                                                   DTSBR905
00314  S010-TIME.                                                       DTSBR905
00315      CALL 'DTSBU010' USING L010-LINK-AREA.                        DTSBR905
00316  S010-EXIT.                                                       DTSBR905
00317      EXIT.                                                        DTSBR905
00318                                                                   DTSBR905
00319 *S999-ABEND.                                                      DTSBR905
00320 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR905
00321 *S999-EXIT.                                                       DTSBR905
00322 *    EXIT.                                                        DTSBR905
00323                                                                   DTSBR905
