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
