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