00001  IDENTIFICATION DIVISION.                                         02/26/08
00002  PROGRAM-ID.             DTSBR140.                                DTSBR140
00003  AUTHOR.                 NORTHROP GRUMMAN.                           LV001
00004  DATE-WRITTEN.           DECEMBER 2006.                           DTSBR140
00005  DATE-COMPILED.                                                   DTSBR140
00006                                                                   DTSBR140
00007 *****                                                             DTSBR140
00008 *                                                                 DTSBR140
00009 *    CALLING SEQUENCE:  DTSBX420 CREATES DTSIR140 RECORDS         DTSBR140
00010 *                       DTSBR140 READS DTSIR140 RECORDS           DTSBR140
00011 *                       TO PRODUCE THE REPORT.                    DTSBR140
00012 *                                                                 DTSBR140
00013 *    FUNCTION:  WEB APPLICATIONS EDIT ERROR MASSAGE REPORT.       DTSBR140
00014 *                                                                 DTSBR140
00015 *                                                                 DTSBR140
00016 *    MODIFICATION HISTORY:                                        DTSBR140
00017 *                                                                 DTSBR140
00018 * 04-01-02 INITIAL DEVELOPMENT                                    DTSBR140
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RW1  DTSBR140
00020 *                                                                 DTSBR140
00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR140
00022 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR140
00023 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR140
00024 *                                                                 DTSBR140
00025 *                                                                 DTSBR140
00026 *    DESCRIPTION:                                                 DTSBR140
00027 *                                                                 DTSBR140
00028 *        THIS MODULE ATTEMPTS TO REPORT ALL WEB EDIT ERROR MESSAGEDTSBR140
00029 *                                                                 DTSBR140
00030 *    RECORDS READ:                                                DTSBR140
00031 *                                                                 DTSBR140
00032 *        NONE.                                                    DTSBR140
00033 *                                                                 DTSBR140
00034 *                                                                 DTSBR140
00035 *    PRINTED OUTPUTS:                                             DTSBR140
00036 *                                                                 DTSBR140
00037 *        140R1  WEB DAILY INPUT EDIT ERROR MESSAGES REPORT.       DTSBR140
00038 *                                                                 DTSBR140
00039 *                                                                 DTSBR140
00040 *    RECORDS WRITTEN:                                             DTSBR140
00041 *                                                                 DTSBR140
00042 *        NONE.                                                    DTSBR140
00043 *                                                                 DTSBR140
00044 *                                                                 DTSBR140
00045 *    MODULES CALLED:                                              DTSBR140
00046 *                                                                 DTSBR140
00047 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR140
00048 *                                                                 DTSBR140
00049 *                                                                 DTSBR140
00050 *****                                                             DTSBR140
00051      EJECT                                                        DTSBR140
00052  ENVIRONMENT DIVISION.                                            DTSBR140
00053                                                                   DTSBR140
00054  CONFIGURATION SECTION.                                           DTSBR140
00055  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR140
00056                                                                   DTSBR140
00057  INPUT-OUTPUT SECTION.                                            DTSBR140
00058                                                                   DTSBR140
00059  FILE-CONTROL.                                                    DTSBR140
00060      SELECT PRT-FILE1 ASSIGN TO RPT140R1.                         DTSBR140
00061                                                                   DTSBR140
00062  DATA DIVISION.                                                   DTSBR140
00063                                                                   DTSBR140
00064  FILE SECTION.                                                    DTSBR140
00065                                                                   DTSBR140
00066  FD  PRT-FILE1                                                    DTSBR140
00067      RECORDING MODE IS F.                                         DTSBR140
00068  01  PRT-RECORD1             PIC X(133).                          DTSBR140
00069      EJECT                                                        DTSBR140
00070                                                                   DTSBR140
00071  WORKING-STORAGE SECTION.                                         DTSBR140
000715 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR140  02/26/08'.       DTSBR140
00072                                                                   DTSBR140
00073  01  WRK-AREA.                                                    DTSBR140
00074      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +140.DTSBR140
00075      05  WRK-ABEND-MSG               PIC  X(60)  VALUE SPACES.    DTSBR140
00076      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR140
00077      05  WS-NUMBER-ONE               PIC S9(05)  COMP-3 VALUE +0. DTSBR140
00078                                                                   DTSBR140
00079      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR140
00080      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR140
00081      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR140
00082                                                                   DTSBR140
00083      05  WRK-START-YRQ               PIC  9(05).                  DTSBR140
00084      05  FILLER REDEFINES WRK-START-YRQ.                          DTSBR140
00085          10  WRK-START-YRQ-Y         PIC  X(04).                  DTSBR140
00086          10  WRK-START-YRQ-Q         PIC  X(01).                  DTSBR140
00087                                                                   DTSBR140
00088      05  WRK-TEL-NO.                                              DTSBR140
00089          10  FILLER                  PIC  X(01) VALUE '('.        DTSBR140
00090          10  WRK-AREA-CODE           PIC  X(03).                  DTSBR140
00091          10  FILLER                  PIC  X(01) VALUE ')'.        DTSBR140
00092          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR140
00093          10  WRK-TEL-PREFIX          PIC  X(03).                  DTSBR140
00094          10  FILLER                  PIC  X(01) VALUE '-'.        DTSBR140
00095          10  WRK-TEL-SUFFIX          PIC  X(04).                  DTSBR140
00096          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR140
00097          10  WRK-TEL-EXT-LIT         PIC  X(04) VALUE SPACES.     DTSBR140
00098          10  WRK-TEL-EXT             PIC  X(05).                  DTSBR140
00099                                                                   DTSBR140
00100      EJECT                                                        DTSBR140
00101  01  L001-LINK-AREA.                                              DTSBR140
00102  ++INCLUDE DTSIL001                                               DTSBR140
00103      EJECT                                                        DTSBR140
00104                                                                   DTSBR140
00105  01  HEADER-1.                                                    DTSBR140
00106      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR140
00107      05  FILLER                   PIC X(49) VALUE '140R1'.        DTSBR140
00108      05  FILLER                   PIC X(60) VALUE                 DTSBR140
00109          'DISTRICT OF COLUMBIA'.                                  DTSBR140
00110      05  FILLER                   PIC X(06) VALUE 'DATE:'.        DTSBR140
00111      05  HDR1-LRCM-SYS-DATE       PIC X(08).                      DTSBR140
00112                                                                   DTSBR140
00113  01  HEADER-2.                                                    DTSBR140
00114      05  FILLER                   PIC X(54) VALUE SPACES.         DTSBR140
00115      05  FILLER                   PIC X(56) VALUE                 DTSBR140
00116          'TAX DIVISION'.                                          DTSBR140
00117      05  FILLER                   PIC X(06) VALUE 'TIME:'.        DTSBR140
00118      05  HDR2-LRCM-SYS-TIME       PIC X(08).                      DTSBR140
00119                                                                   DTSBR140
00120  01  HEADER-3.                                                    DTSBR140
00121      05  FILLER                   PIC X(01) VALUE SPACES.         DTSBR140
00122      05  FILLER                   PIC X(38) VALUE                 DTSBR140
00123          'ROUTE TO:  WEB APPLICATIONS STAFF'.                     DTSBR140
00124      05  HDR3-LITERAL             PIC X(43) VALUE                 DTSBR140
00125          '         WEB IMPORT ERRORS REPORT          '.           DTSBR140
00126      05  FILLER                   PIC X(28) VALUE SPACES.         DTSBR140
00127      05  FILLER                   PIC X(06) VALUE 'PAGE:'.        DTSBR140
00128      05  HDR3-PAGE                PIC ZZ,ZZ9.                     DTSBR140
00129                                                                   DTSBR140
00130  01  HEADER-4.                                                    DTSBR140
00131      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBR140
00132      05  FILLER                   PIC X(132) VALUE SPACES.        DTSBR140
00133                                                                   DTSBR140
00134  01  HEADER-5.                                                    DTSBR140
00135      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBR140
00136      05  FILLER                   PIC X(02)  VALUE SPACES.        DTSBR140
00137      05  FILLER                   PIC X(06)  VALUE                DTSBR140
00138                       'EMP NO'.                                   DTSBR140
00139      05  FILLER                   PIC X(04)  VALUE SPACES.        DTSBR140
00140      05  FILLER                   PIC X(08)  VALUE                DTSBR140
00141                       'REC TYPE'.                                 DTSBR140
00142      05  FILLER                   PIC X(03)  VALUE SPACES.        DTSBR140
00143      05  FILLER                   PIC X(07)  VALUE                DTSBR140
00144                       'MESSAGE'.                                  DTSBR140
00145      05  FILLER                   PIC X(103) VALUE SPACES.        DTSBR140
00146                                                                   DTSBR140
00147  01  HEADER-6.                                                    DTSBR140
00148      05  FILLER                   PIC X(01)  VALUE SPACES.        DTSBR140
00149      05  FILLER                   PIC X(132) VALUE SPACES.        DTSBR140
00150                                                                   DTSBR140
00151  01  DETAIL-LINE-1.                                               DTSBR140
00152      05  FILLER                  PIC  X(03)  VALUE SPACES.        DTSBR140
00153      05  WS-EMP-NO               PIC  999B999 BLANK WHEN ZERO.    DTSBR140
00154      05  FILLER                  PIC  X(03)  VALUE SPACES.        DTSBR140
00155      05  WS-MESSAGE              PIC  X(80).                      DTSBR140
00156      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR140
00157                                                                   DTSBR140
00158  01  FOOTING-LINE-1               PIC X(133) VALUE SPACES.        DTSBR140
00159  01  FOOTING-LINE-2               PIC X(133) VALUE SPACES.        DTSBR140
00160                                                                   DTSBR140
00161  01  FOOTING-LINE-3.                                              DTSBR140
00162      05  FILLER                   PIC  X(25)  VALUE SPACES.       DTSBR140
00163      05  WS-FOOTING-CNT           PIC  ZZ,ZZ9.                    DTSBR140
00164      05  FILLER                   PIC  X(02)  VALUE SPACES.       DTSBR140
00165      05  FILLER                   PIC  X(23) VALUE                DTSBR140
00166                       'ERROR MSG RECORDS COUNT'.                  DTSBR140
00167      05  FILLER                   PIC  X(43)  VALUE SPACES.       DTSBR140
00168  01  FOOTING-LINE-4               PIC X(133) VALUE SPACES.        DTSBR140
00169  01  FOOTING-LINE-5               PIC X(133) VALUE SPACES.        DTSBR140
00170  01  FOOTING-LINE-6.                                              DTSBR140
00171      05  FILLER                   PIC X(25)  VALUE SPACES.        DTSBR140
00172      05  FILLER                   PIC  X(17) VALUE                DTSBR140
00173                       '*** END OF REPORT'.                        DTSBR140
00174      EJECT                                                        DTSBR140
00175  LINKAGE SECTION.                                                 DTSBR140
00176                                                                   DTSBR140
00177  01  LRCM-LINK-AREA.                                              DTSBR140
00178  ++INCLUDE DTSILRCM                                               DTSBR140
00179      EJECT                                                        DTSBR140
00180  01  R140-REC.                                                    DTSBR140
00181  ++INCLUDE DTSIR140                                               DTSBR140
00182      EJECT                                                        DTSBR140
00183  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR140
00184                           R140-REC.                               DTSBR140
00185                                                                   DTSBR140
00186      IF FIRST-TIME-IND = 'Y'                                      DTSBR140
00187          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR140
00188          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR140
00189                                                                   DTSBR140
00190      IF LRCM-EOR-88                                               DTSBR140
00191          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR140
00192      ELSE                                                         DTSBR140
00193          PERFORM P1000-PROCESS-REPORT THRU P1000-EXIT.            DTSBR140
00194                                                                   DTSBR140
00195      GOBACK.                                                      DTSBR140
00196      EJECT                                                        DTSBR140
00197  I1000-INITIATE.                                                  DTSBR140
00198                                                                   DTSBR140
00199      OPEN OUTPUT PRT-FILE1.                                       DTSBR140
00200      MOVE LRCM-SYS-DATE TO HDR1-LRCM-SYS-DATE.                    DTSBR140
00201      MOVE LRCM-SYS-TIME TO HDR2-LRCM-SYS-TIME.                    DTSBR140
00202      MOVE SPACES TO PRT-RECORD1.                                  DTSBR140
00203                                                                   DTSBR140
00204  I1000-EXIT.                                                      DTSBR140
00205      EXIT.                                                        DTSBR140
00206      EJECT                                                        DTSBR140
00207                                                                   DTSBR140
00208  P1000-PROCESS-REPORT.                                            DTSBR140
00209                                                                   DTSBR140
00210      MOVE R140-EMP-NO             TO WS-EMP-NO.                   DTSBR140
00211      MOVE R140-MESSAGE            TO WS-MESSAGE.                  DTSBR140
00212                                                                   DTSBR140
00213      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR140
00214      WRITE PRT-RECORD1 FROM DETAIL-LINE-1  AFTER 1.               DTSBR140
00215      ADD  1    TO WS-LINE-CNT2.                                   DTSBR140
00216      ADD +1    TO WS-NUMBER-ONE.                                  DTSBR140
00217                                                                   DTSBR140
00218  P1000-EXIT.                                                      DTSBR140
00219      EXIT.                                                        DTSBR140
00220                                                                   DTSBR140
00221  P2000-PRINT-HEADER.                                              DTSBR140
00222      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR140
00223           WS-LINE-CNT2 GREATER 58                                 DTSBR140
00224         MOVE +0          TO WS-LINE-CNT                           DTSBR140
00225         MOVE +0          TO WS-LINE-CNT2                          DTSBR140
00226         ADD  +1          TO WS-PAGE-CNT                           DTSBR140
00227         MOVE WS-PAGE-CNT TO HDR3-PAGE                             DTSBR140
00228         WRITE PRT-RECORD1 FROM HEADER-1 AFTER TOP-OF-PAGE         DTSBR140
00229         WRITE PRT-RECORD1 FROM HEADER-2 AFTER 1                   DTSBR140
00230         WRITE PRT-RECORD1 FROM HEADER-3 AFTER 1                   DTSBR140
00231         WRITE PRT-RECORD1 FROM HEADER-4 AFTER 1                   DTSBR140
00232         WRITE PRT-RECORD1 FROM HEADER-5 AFTER 1                   DTSBR140
00233         WRITE PRT-RECORD1 FROM HEADER-6 AFTER 1                   DTSBR140
00234         ADD +6    TO WS-LINE-CNT2.                                DTSBR140
00235  P2000-EXIT.                                                      DTSBR140
00236      EXIT.                                                        DTSBR140
00237                                                                   DTSBR140
00238  T1000-TERMINATE.                                                 DTSBR140
00239                                                                   DTSBR140
00240      IF WS-LINE-CNT2 > 52 OR WS-NUMBER-ONE = ZERO                 DTSBR140
00241         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR140
00242      END-IF.                                                      DTSBR140
00243      MOVE WS-NUMBER-ONE TO WS-FOOTING-CNT.                        DTSBR140
00244      WRITE PRT-RECORD1 FROM FOOTING-LINE-1 AFTER 1.               DTSBR140
00245      WRITE PRT-RECORD1 FROM FOOTING-LINE-2 AFTER 1.               DTSBR140
00246      WRITE PRT-RECORD1 FROM FOOTING-LINE-3 AFTER 1.               DTSBR140
00247      WRITE PRT-RECORD1 FROM FOOTING-LINE-4 AFTER 1.               DTSBR140
00248      WRITE PRT-RECORD1 FROM FOOTING-LINE-5 AFTER 1.               DTSBR140
00249      WRITE PRT-RECORD1 FROM FOOTING-LINE-6 AFTER 1.               DTSBR140
00250                                                                   DTSBR140
00251      CLOSE PRT-FILE1.                                             DTSBR140
00252                                                                   DTSBR140
00253  T1000-EXIT.                                                      DTSBR140
00254      EXIT.                                                        DTSBR140
00255      EJECT                                                        DTSBR140
00256                                                                   DTSBR140
00257 *S001-DATE.                                                       DTSBR140
00258 *    CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR140
00259 *S001-EXIT.                                                       DTSBR140
00260 *    EXIT.                                                        DTSBR140
00261                                                                   DTSBR140
00262  S999-ABEND.                                                      DTSBR140
00263                                                                   DTSBR140
00264      DISPLAY '*** DTSBR140 ABENDING.  '                           DTSBR140
00265              WRK-ABEND-MSG.                                       DTSBR140
00266                                                                   DTSBR140
00267      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR140
00268                                                                   DTSBR140
00269  S999-EXIT.                                                       DTSBR140
00270      EXIT.                                                        DTSBR140
