00001 IDENTIFICATION DIVISION. 08/28/02 00002 PROGRAM-ID. DESBR110. DESBR110 00003 AUTHOR. TRW INC. LV001 00004 DATE-WRITTEN. MARCH 2001. DESBR110 00005 DATE-COMPILED. DESBR110 00006 DESBR110 00007 ***** DESBR110 00008 * DESBR110 00009 * CALLING SEQUENCE: DESBE111 CREATES DESIR101 RECORDS. DESBR110 00010 * DTSBDXXX CALLS DESBR110 DESBR110 00011 * WHICH PRODUCES THE ELECTRONIC DESBR110 00012 * MEDIA PROCESSING STATISTICS. DESBR110 00013 * DESBR110 00014 * FUNCTION: ELECTRONIC MEDIA PROCESSING STSTISTICS. DESBR110 00015 * DESBR110 00016 * DESBR110 00017 * MODIFICATION HISTORY: DESBR110 00018 * DESBR110 00019 * 12-20-94 INITIAL DEVELOPMENT DESBR110 00020 * REFERENCE TAPE TRCKING SYSTEM AUTHOR OF CHANGE - RW1 DESBR110 00021 * DESBR110 00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBR110 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBR110 00024 * REFERENCE RFP #**** PROGRAMMER: XXX DESBR110 00025 * DESBR110 00026 * DESBR110 00027 * DESCRIPTION: DESBR110 00028 * DESBR110 00029 * THIS MODULE PRODUCES THE ELECTRONIC MEDIA PROCESSING DESBR110 00030 * STSTISTICS. DESBR110 00031 * DESBR110 00032 * RECORDS READ: DESBR110 00033 * DESBR110 00034 * NONE. DESBR110 00035 * DESBR110 00036 * DESBR110 00037 * PRINTED OUTPUTS: DESBR110 00038 * DESBR110 00039 * 110R1 ELETRONIC MEDIA PROCESSING STATISTICS. DESBR110 00040 * DESBR110 00041 * DESBR110 00042 * RECORDS WRITTEN: DESBR110 00043 * DESBR110 00044 * NONE. DESBR110 00045 * DESBR110 00046 * DESBR110 00047 * MODULES CALLED: DESBR110 00048 * DESBR110 00049 * DTSBU001 DATE CONVERT. DESBR110 00050 * DESBR110 00051 ***** DESBR110 00052 EJECT DESBR110 00053 ENVIRONMENT DIVISION. DESBR110 00054 DESBR110 00055 CONFIGURATION SECTION. DESBR110 00056 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DESBR110 00057 DESBR110 00058 INPUT-OUTPUT SECTION. DESBR110 00059 FILE-CONTROL. DESBR110 00060 SELECT PRT-FILE ASSIGN TO RPT110R1. DESBR110 00061 DESBR110 00062 DATA DIVISION. DESBR110 00063 FILE SECTION. DESBR110 00064 DESBR110 00065 FD PRT-FILE DESBR110 00066 RECORDING MODE IS F. DESBR110 00067 01 REPORT-LISTING PIC X(133). DESBR110 00068 DESBR110 00069 WORKING-STORAGE SECTION. DESBR110 000695 77 PAN-VALET PICTURE X(24) VALUE '001DESBR110 08/28/02'. DESBR110 00070 DESBR110 00071 01 WRK-AREA. DESBR110 00072 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +110.DESBR110 00073 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DESBR110 00074 DESBR110 00075 05 WS-NUMBER-ONE PIC S9(03) COMP-3 VALUE +0. DESBR110 00076 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +60.DESBR110 00077 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DESBR110 00078 05 HOLD-BOX-NO PIC X(08) VALUE SPACES. DESBR110 00079 DESBR110 00080 01 PAGE-HEADING. DESBR110 00081 05 HEADER-1. DESBR110 00082 10 FILLER PIC X(01) VALUE SPACE. DESBR110 00083 10 FILLER PIC X(05) DESBR110 00084 VALUE '110R1'. DESBR110 00085 10 FILLER PIC X(35) VALUE SPACES.DESBR110 00086 10 HDR-AGY-NAME-LINE1 PIC X(50). DESBR110 00087 10 FILLER PIC X(27) VALUE SPACES.DESBR110 00088 10 FILLER PIC X(05) DESBR110 00089 VALUE 'DATE:'. DESBR110 00090 10 FILLER PIC X(01) VALUE SPACE. DESBR110 00091 10 HDR-SYS-DATE PIC X(08). DESBR110 00092 DESBR110 00093 05 HEADER-2. DESBR110 00094 10 FILLER PIC X(41) VALUE SPACES.DESBR110 00095 10 HDR-AGY-NAME-LINE2 PIC X(50). DESBR110 00096 10 FILLER PIC X(27) VALUE SPACES.DESBR110 00097 10 FILLER PIC X(05) DESBR110 00098 VALUE 'TIME:'. DESBR110 00099 10 FILLER PIC X(01) VALUE SPACE. DESBR110 00100 10 HDR-SYS-TIME PIC X(08). DESBR110 00101 DESBR110 00102 05 HEADER-3. DESBR110 00103 10 FILLER PIC X(01) VALUE SPACE. DESBR110 00104 10 FILLER PIC X(35) VALUE SPACES.DESBR110 00105 10 FILLER PIC X(82) VALUE SPACES.DESBR110 00106 10 FILLER PIC X(05) DESBR110 00107 VALUE 'PAGE:'. DESBR110 00108 10 FILLER PIC X(03) VALUE SPACES.DESBR110 00109 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DESBR110 00110 DESBR110 00111 05 HEADER-4. DESBR110 00112 10 FILLER PIC X(47) VALUE SPACES.DESBR110 00113 10 FILLER PIC X(38) DESBR110 00114 VALUE 'ELECTRONIC MEDIA PROCESSING STATISTICS'. DESBR110 00115 DESBR110 00116 05 HEADER-5 PIC X(133). DESBR110 00117 DESBR110 00118 05 HEADER-6. DESBR110 00119 10 FILLER PIC X(01) VALUE SPACE. DESBR110 00120 10 FILLER PIC X(23) DESBR110 00121 VALUE 'REPORTING PERIOD START:'. DESBR110 00122 10 FILLER PIC X(01) VALUE SPACE. DESBR110 00123 10 HDR-START-DATE PIC X(10). DESBR110 00124 10 FILLER PIC X(04) VALUE SPACE. DESBR110 00125 10 FILLER PIC X(04) DESBR110 00126 VALUE 'END:'. DESBR110 00127 10 FILLER PIC X(01) VALUE SPACE. DESBR110 00128 10 HDR-END-DATE PIC X(10). DESBR110 00129 10 FILLER PIC X(79) VALUE SPACES.DESBR110 00130 DESBR110 00131 05 HEADER-7 PIC X(133). DESBR110 00132 DESBR110 00133 01 DETAIL-LINE. DESBR110 00134 05 DTL-LINE-1. DESBR110 00135 10 FILLER PIC X(11) VALUE SPACES.DESBR110 00136 10 FILLER PIC X(28) DESBR110 00137 VALUE 'ITEMS RECEIVED: '. DESBR110 00138 10 FILLER PIC X(02) VALUE SPACES.DESBR110 00139 10 DTL-ITEMS-RCVD PIC Z,ZZZ,ZZ9. DESBR110 00140 10 FILLER PIC X(83) VALUE SPACES.DESBR110 00141 DESBR110 00142 05 DTL-LINE-2. DESBR110 00143 10 FILLER PIC X(11) VALUE SPACES.DESBR110 00144 10 FILLER PIC X(28) DESBR110 00145 VALUE 'PROCESSED SUCCESSFULLY: '. DESBR110 00146 10 FILLER PIC X(02) VALUE SPACES.DESBR110 00147 10 DTL-PROC-SUCC PIC Z,ZZZ,ZZ9. DESBR110 00148 10 FILLER PIC X(83) VALUE SPACES.DESBR110 00149 DESBR110 00150 05 DTL-LINE-3. DESBR110 00151 10 FILLER PIC X(11) VALUE SPACES.DESBR110 00152 10 FILLER PIC X(28) DESBR110 00153 VALUE 'PROCESSED WITH ERRORS: '. DESBR110 00154 10 FILLER PIC X(02) VALUE SPACES.DESBR110 00155 10 DTL-PROC-WITH-ERR PIC Z,ZZZ,ZZ9. DESBR110 00156 10 FILLER PIC X(83) VALUE SPACES.DESBR110 00157 DESBR110 00158 05 DTL-LINE-4. DESBR110 00159 10 FILLER PIC X(11) VALUE SPACES.DESBR110 00160 10 FILLER PIC X(28) DESBR110 00161 VALUE 'FAILED: '. DESBR110 00162 10 FILLER PIC X(02) VALUE SPACES.DESBR110 00163 10 DTL-FAILED PIC Z,ZZZ,ZZ9. DESBR110 00164 10 FILLER PIC X(83) VALUE SPACES.DESBR110 00165 DESBR110 00166 05 DTL-LINE-5. DESBR110 00167 10 FILLER PIC X(11) VALUE SPACES.DESBR110 00168 10 FILLER PIC X(28) DESBR110 00169 VALUE 'ITEMS CURRENTLY IN PROCESS: '. DESBR110 00170 10 FILLER PIC X(02) VALUE SPACES.DESBR110 00171 10 DTL-CURR-IN-PROC PIC Z,ZZZ,ZZ9. DESBR110 00172 10 FILLER PIC X(83) VALUE SPACES.DESBR110 00173 DESBR110 00174 05 DTL-LINE-6. DESBR110 00175 10 FILLER PIC X(11) VALUE SPACES.DESBR110 00176 10 FILLER PIC X(28) DESBR110 00177 VALUE 'WAGE ITEMS: '. DESBR110 00178 10 FILLER PIC X(02) VALUE SPACES.DESBR110 00179 10 FILLER PIC X(09) VALUE SPACES.DESBR110 00180 10 FILLER PIC X(83) VALUE SPACES.DESBR110 00181 DESBR110 00182 05 DTL-LINE-7. DESBR110 00183 10 FILLER PIC X(11) VALUE SPACES.DESBR110 00184 10 FILLER PIC X(28) DESBR110 00185 VALUE ' PROCESSED SUCCESSFULLY:'. DESBR110 00186 10 FILLER PIC X(02) VALUE SPACES.DESBR110 00187 10 DTL-WAGE-PROC-SUCC PIC Z,ZZZ,ZZ9. DESBR110 00188 10 FILLER PIC X(83) VALUE SPACES.DESBR110 00189 DESBR110 00190 05 DTL-LINE-8. DESBR110 00191 10 FILLER PIC X(11) VALUE SPACES.DESBR110 00192 10 FILLER PIC X(28) DESBR110 00193 VALUE ' PROCESSED WITH ERRORS: '. DESBR110 00194 10 FILLER PIC X(02) VALUE SPACES.DESBR110 00195 10 DTL-WAGE-WITH-ERR PIC Z,ZZZ,ZZ9. DESBR110 00196 10 FILLER PIC X(83) VALUE SPACES.DESBR110 00197 DESBR110 00198 05 DTL-LINE-9. DESBR110 00199 10 FILLER PIC X(11) VALUE SPACES.DESBR110 00200 10 FILLER PIC X(28) DESBR110 00201 VALUE ' FAILED: '. DESBR110 00202 10 FILLER PIC X(02) VALUE SPACES.DESBR110 00203 10 DTL-WAGE-FAILED PIC Z,ZZZ,ZZ9. DESBR110 00204 10 FILLER PIC X(83) VALUE SPACES.DESBR110 00205 DESBR110 00206 01 L001-LINK-AREA. DESBR110 00207 ++INCLUDE DTSIL001 DESBR110 00208 DESBR110 00209 EJECT DESBR110 00210 LINKAGE SECTION. DESBR110 00211 DESBR110 00212 01 LRCM-LINK-AREA. DESBR110 00213 ++INCLUDE DTSILRCM DESBR110 00214 EJECT DESBR110 00215 01 R110-REC. DESBR110 00216 ++INCLUDE DESIR110 DESBR110 00217 EJECT DESBR110 00218 PROCEDURE DIVISION USING LRCM-LINK-AREA DESBR110 00219 R110-REC. DESBR110 00220 DESBR110 00221 IF FIRST-TIME-IND = 'Y' DESBR110 00222 PERFORM I1000-INITIATE THRU I1000-EXIT DESBR110 00223 MOVE 'N' TO FIRST-TIME-IND. DESBR110 00224 DESBR110 00225 IF LRCM-EOR-88 DESBR110 00226 PERFORM T1000-TERMINATE THRU T1000-EXIT DESBR110 00227 ELSE DESBR110 00228 PERFORM P1000-PROCESS THRU P1000-EXIT. DESBR110 00229 DESBR110 00230 GOBACK. DESBR110 00231 DESBR110 00232 I1000-INITIATE. DESBR110 00233 DESBR110 00234 OPEN OUTPUT PRT-FILE. DESBR110 00235 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DESBR110 00236 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DESBR110 00237 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DESBR110 00238 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DESBR110 00239 MOVE SPACES TO REPORT-LISTING. DESBR110 00240 DESBR110 00241 I1000-EXIT. DESBR110 00242 EXIT. DESBR110 00243 DESBR110 00244 P1000-PROCESS. DESBR110 00245 DESBR110 00246 MOVE R110-START-DATE TO L001-FED-8-DATE-9. DESBR110 00247 SET L001-FROM-FED-8 TO TRUE. DESBR110 00248 PERFORM S001-DATE THRU S001-EXIT. DESBR110 00249 MOVE L001-SLASH-8-DATE TO HDR-START-DATE. DESBR110 00250 DESBR110 00251 MOVE R110-END-DATE TO L001-FED-8-DATE-9. DESBR110 00252 SET L001-FROM-FED-8 TO TRUE. DESBR110 00253 PERFORM S001-DATE THRU S001-EXIT. DESBR110 00254 MOVE L001-SLASH-8-DATE TO HDR-END-DATE. DESBR110 00255 DESBR110 00256 MOVE R110-RECEIVED-CNT TO DTL-ITEMS-RCVD. DESBR110 00257 MOVE R110-SUCCESSFUL-CNT TO DTL-PROC-SUCC. DESBR110 00258 MOVE R110-ERROR-CNT TO DTL-PROC-WITH-ERR. DESBR110 00259 MOVE R110-FAILED-CNT TO DTL-FAILED. DESBR110 00260 MOVE R110-IN-PROCESS-CNT TO DTL-CURR-IN-PROC. DESBR110 00261 MOVE R110-WAGE-SUCCESS-CNT TO DTL-WAGE-PROC-SUCC. DESBR110 00262 MOVE R110-WAGE-ERROR-CNT TO DTL-WAGE-WITH-ERR. DESBR110 00263 MOVE R110-WAGE-FAILED-CNT TO DTL-WAGE-FAILED. DESBR110 00264 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DESBR110 00265 WRITE REPORT-LISTING FROM DTL-LINE-1 AFTER 1. DESBR110 00266 WRITE REPORT-LISTING FROM DTL-LINE-2 AFTER 2. DESBR110 00267 WRITE REPORT-LISTING FROM DTL-LINE-3 AFTER 2. DESBR110 00268 WRITE REPORT-LISTING FROM DTL-LINE-4 AFTER 2. DESBR110 00269 WRITE REPORT-LISTING FROM DTL-LINE-5 AFTER 2. DESBR110 00270 WRITE REPORT-LISTING FROM DTL-LINE-6 AFTER 2. DESBR110 00271 WRITE REPORT-LISTING FROM DTL-LINE-7 AFTER 1. DESBR110 00272 WRITE REPORT-LISTING FROM DTL-LINE-8 AFTER 1. DESBR110 00273 WRITE REPORT-LISTING FROM DTL-LINE-9 AFTER 1. DESBR110 00274 ADD +14 TO WS-LINE-CNT2. DESBR110 00275 DESBR110 00276 P1000-EXIT. DESBR110 00277 EXIT. DESBR110 00278 DESBR110 00279 P2000-PRINT-HEADER. DESBR110 00280 DESBR110 00281 IF WS-LINE-CNT2 GREATER 58 DESBR110 00282 MOVE +0 TO WS-LINE-CNT2 DESBR110 00283 ADD +1 TO WS-PAGE-CNT DESBR110 00284 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DESBR110 00285 WRITE REPORT-LISTING FROM HEADER-1 AFTER TOP-OF-PAGE DESBR110 00286 WRITE REPORT-LISTING FROM HEADER-2 AFTER 1 DESBR110 00287 WRITE REPORT-LISTING FROM HEADER-3 AFTER 1 DESBR110 00288 WRITE REPORT-LISTING FROM HEADER-4 AFTER 1 DESBR110 00289 WRITE REPORT-LISTING FROM HEADER-5 AFTER 1 DESBR110 00290 WRITE REPORT-LISTING FROM HEADER-6 AFTER 1 DESBR110 00291 WRITE REPORT-LISTING FROM HEADER-7 AFTER 1 DESBR110 00292 ADD +7 TO WS-LINE-CNT2. DESBR110 00293 DESBR110 00294 P2000-EXIT. DESBR110 00295 EXIT. DESBR110 00296 DESBR110 00297 S001-DATE. DESBR110 00298 DESBR110 00299 CALL 'DTSBU001' USING L001-LINK-AREA. DESBR110 00300 DESBR110 00301 S001-EXIT. DESBR110 00302 EXIT. DESBR110 00303 DESBR110 00304 T1000-TERMINATE. DESBR110 00305 DESBR110 00306 CLOSE PRT-FILE. DESBR110 00307 DESBR110 00308 T1000-EXIT. DESBR110 00309 EXIT. DESBR110 00310 DESBR110 00311 *S999-ABEND. DESBR110 00312 * DESBR110 00313 * CALL 'DTSBU999' USING WRK-ABEND-CD. DESBR110 00314 * DESBR110 00315 *S999-EXIT. DESBR110 00316 * EXIT. DESBR110 00317 DESBR110