00001  IDENTIFICATION DIVISION.                                         07/31/02
00002  PROGRAM-ID.             DTSBR432.                                DTSBR432
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV011
00004  DATE-WRITTEN.           NOVEMBER 1994.                           DTSBR432
00005  DATE-COMPILED.                                                   DTSBR432
00006      SKIP3                                                        DTSBR432
00007 *****                                                             DTSBR432
00008 *    CALLING SEQUENCE:  AN ONLINE FUNCTION FROM DTSCS76           DTSBR432
00009 *                       SCREEN 76 WILL BUILD DTSIR432             DTSBR432
00010 *                       DTSBR432 WILL PRODUCE THE AUDIT TRAIL.    DTSBR432
00011 *                                                                 DTSBR432
00012 *    FUNCTION:  ACCOUNTS RECEIVABLE AUDIT TRAIL REPORT.           DTSBR432
00013 *                                                                 DTSBR432
00014 *                                                                 DTSBR432
00015 *    MODIFICATION HISTORY:                                        DTSBR432
00016 *                                                                 DTSBR432
00017 * 11-25-94 INITIAL DEVELOPMENT                                    DTSBR432
00018 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR432
00019 *                                                                 DTSBR432
00020 * 07-16-1999 PICKUP YRQ MODIFICATIONS.                            DTSBR432
00021 *            REFERENCE RFP #****          AUTHOR OF CHANGE - DVS  DTSBR432
00022 *                                                                 DTSBR432
00023 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR432
00024 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR432
00025 *            REFERENCE RFP #****          AUTHOR OF CHANGE - XXX  DTSBR432
00026 *                                                                 DTSBR432
00027 *                                                                 DTSBR432
00028 *    DESCRIPTION:                                                 DTSBR432
00029 *                                                                 DTSBR432
00030 *        THIS MODULE LISTS ALL REPORT TRANSACTIONS FOR QUARTERS   DTSBR432
00031 *        WHICH HAVE NON-ZERO BALANCES.                            DTSBR432
00032 *                                                                 DTSBR432
00033 *                                                                 DTSBR432
00034 *    RECORDS READ:                                                DTSBR432
00035 *                                                                 DTSBR432
00036 *        NONE.                                                    DTSBR432
00037 *                                                                 DTSBR432
00038 *                                                                 DTSBR432
00039 *    PRINTED OUTPUTS:                                             DTSBR432
00040 *                                                                 DTSBR432
00041 *        432R1  ACCOUNTS RECEIVABLE AUDIT TRAIL REPORT            DTSBR432
00042 *                                                                 DTSBR432
00043 *                                                                 DTSBR432
00044 *    RECORDS WRITTEN:                                             DTSBR432
00045 *                                                                 DTSBR432
00046 *        NONE.                                                    DTSBR432
00047 *                                                                 DTSBR432
00048 *                                                                 DTSBR432
00049 *    MODULES CALLED:                                              DTSBR432
00050 *                                                                 DTSBR432
00051 *        NONE                                                     DTSBR432
00052 *                                                                 DTSBR432
00053 *                                                                 DTSBR432
00054 *****                                                             DTSBR432
00055      EJECT                                                        DTSBR432
00056  ENVIRONMENT DIVISION.                                            DTSBR432
00057                                                                   DTSBR432
00058  CONFIGURATION SECTION.                                           DTSBR432
00059  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR432
00060                                                                   DTSBR432
00061  INPUT-OUTPUT SECTION.                                            DTSBR432
00062                                                                   DTSBR432
00063  FILE-CONTROL.                                                    DTSBR432
00064      SELECT PRT-FILE ASSIGN TO RPT432R1.                          DTSBR432
00065                                                                   DTSBR432
00066  DATA DIVISION.                                                   DTSBR432
00067                                                                   DTSBR432
00068  FILE SECTION.                                                    DTSBR432
00069                                                                   DTSBR432
00070  FD  PRT-FILE                                                     DTSBR432
00071      RECORDING MODE IS F.                                         DTSBR432
00072  01  REPORT-LISTING          PIC X(133).                          DTSBR432
00073                                                                   DTSBR432
00074  WORKING-STORAGE SECTION.                                         DTSBR432
000745 77  PAN-VALET PICTURE X(24) VALUE '011DTSBR432  07/31/02'.       DTSBR432
00075                                                                   DTSBR432
00076  01  WRK-AREA.                                                    DTSBR432
00077      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +432.DTSBR432
00078      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR432
00079      05  WS-YRQ-R                    PIC  99/9.                   DTSBR432
00080      05  WS-YRQ   REDEFINES WS-YRQ-R PIC  X(04).                  DTSBR432
00081      05  WS-YRQ-N                    PIC  9(05).                  DTSBR432
00082      05  WS-BATCH-NO                 PIC  9(05)  VALUE 0.         DTSBR432
00083      05  WS-EMP-NO                   PIC  9(06)  VALUE 0.         DTSBR432
00084                                                                   DTSBR432
00085      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +0. DTSBR432
00086      05  WS-NUMBER-TWO               PIC S9(03)  COMP-3 VALUE +0. DTSBR432
00087      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE +60.DTSBR432
00088      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE +0. DTSBR432
00089      05  WS-PAGE-CNT                 PIC S9(03)  COMP-3 VALUE +0. DTSBR432
00090                                                                   DTSBR432
00091  01  PAGE-HEADING.                                                DTSBR432
00092      05  HDR-LINE-1.                                              DTSBR432
00093          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR432
00094          10  FILLER                  PIC  X(05)                   DTSBR432
00095                 VALUE '432R1'.                                    DTSBR432
00096          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR432
00097          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR432
00098          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR432
00099          10  FILLER                  PIC  X(05)                   DTSBR432
00100                 VALUE 'DATE:'.                                    DTSBR432
00101          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR432
00102          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR432
00103      05  HDR-LINE-2.                                              DTSBR432
00104          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR432
00105          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR432
00106          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR432
00107          10  FILLER                  PIC  X(05)                   DTSBR432
00108                 VALUE 'TIME:'.                                    DTSBR432
00109          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR432
00110          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR432
00111      05  HDR-LINE-3.                                              DTSBR432
00112          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR432
00113          10  FILLER                  PIC  X(30)                   DTSBR432
00114                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT   '.           DTSBR432
00115          10  FILLER                  PIC  X(88)  VALUE SPACES.    DTSBR432
00116          10  FILLER                  PIC  X(05)                   DTSBR432
00117                 VALUE 'PAGE:'.                                    DTSBR432
00118          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR432
00119          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR432
00120      05  HDR-LINE-4.                                              DTSBR432
00121          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR432
00122          10  FILLER                  PIC  X(20)                   DTSBR432
00123                 VALUE '                    '.                     DTSBR432
00124          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR432
00125          10  FILLER                  PIC  X(31)                   DTSBR432
00126                 VALUE 'ACCOUNTS RECEIVABLE AUDIT TRAIL'.          DTSBR432
00127      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR432
00128      05  HDR-LINE-6.                                              DTSBR432
00129          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR432
00130          10  FILLER                  PIC  X(11)                   DTSBR432
00131                 VALUE '   BATCH:  '.                              DTSBR432
00132          10  HDR-BATCH-NO            PIC  99999.                  DTSBR432
00133      05  HDR-LINE-7.                                              DTSBR432
00134          10  FILLER                  PIC  X(79)  VALUE SPACES.    DTSBR432
00135          10  FILLER                  PIC  X(04)                   DTSBR432
00136                 VALUE 'TRAN'.                                     DTSBR432
00137      05  HDR-LINE-8.                                              DTSBR432
00138          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR432
00139          10  FILLER                  PIC  X(33)                   DTSBR432
00140                 VALUE 'EMP NO    ITEM NO   YRQ      TYPE'.        DTSBR432
00141      05  HDR-LINE-9                  PIC  X(133) VALUE SPACES.    DTSBR432
00142                                                                   DTSBR432
00143  01  DETAIL-LINE.                                                 DTSBR432
00144      05  DTL-LINE-1.                                              DTSBR432
00145          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR432
00146          10  DTL-EMP-NO              PIC  999B999.                DTSBR432
00147          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR432
00148          10  DTL-ITEM-NO             PIC  X(03).                  DTSBR432
00149          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR432
00150          10  DTL-YRQ                 PIC  X(04).                  DTSBR432
00151          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR432
00152          10  DTL-RPT-TYPE            PIC  X(02).                  DTSBR432
00153                                                                   DTSBR432
00154  01  CONTROL-FOOTING-FINAL.                                       DTSBR432
00155      05  CTF-LINE-3.                                              DTSBR432
00156          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR432
00157          10  FILLER                  PIC  X(17)                   DTSBR432
00158                 VALUE '*** END OF REPORT'.                        DTSBR432
00159      EJECT                                                        DTSBR432
00160  LINKAGE SECTION.                                                 DTSBR432
00161                                                                   DTSBR432
00162  01  LRCM-LINK-AREA.                                              DTSBR432
00163  ++INCLUDE DTSILRCM                                               DTSBR432
00164      EJECT                                                        DTSBR432
00165  01  R432-REC.                                                    DTSBR432
00166  ++INCLUDE DTSIR432                                               DTSBR432
00167      EJECT                                                        DTSBR432
00168  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR432
00169                           R432-REC.                               DTSBR432
00170      IF FIRST-TIME-IND = 'Y'                                      DTSBR432
00171          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR432
00172          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR432
00173                                                                   DTSBR432
00174      IF LRCM-EOR-88                                               DTSBR432
00175          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR432
00176      ELSE                                                         DTSBR432
00177          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR432
00178                                                                   DTSBR432
00179      GOBACK.                                                      DTSBR432
00180      EJECT                                                        DTSBR432
00181  I1000-INITIATE.                                                  DTSBR432
00182                                                                   DTSBR432
00183      OPEN OUTPUT PRT-FILE.                                        DTSBR432
00184      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR432
00185      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR432
00186      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR432
00187      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR432
00188      MOVE SPACES TO REPORT-LISTING.                               DTSBR432
00189                                                                   DTSBR432
00190  I1000-EXIT.                                                      DTSBR432
00191      EXIT.                                                        DTSBR432
00192      EJECT                                                        DTSBR432
00193  P1000-PROCESS.                                                   DTSBR432
00194                                                                   DTSBR432
00195      IF LRCM-PICKUP-YRQ = R432-YRQ                                DTSBR432
00196         MOVE 'PU  ' TO WS-YRQ                                     DTSBR432
00197      ELSE                                                         DTSBR432
00198         MOVE R432-YRQ TO WS-YRQ-N                                 DTSBR432
00199         MOVE  WS-YRQ-N(3:3) TO WS-YRQ-R                           DTSBR432
00200      END-IF.                                                      DTSBR432
00201                                                                   DTSBR432
00202      IF R432-BATCH-NO NOT = WS-BATCH-NO                           DTSBR432
00203          MOVE R432-BATCH-NO TO WS-BATCH-NO                        DTSBR432
00204 *                                                                 DTSBR432
00205          IF WS-NUMBER-ONE = +0                                    DTSBR432
00206             MOVE +99 TO WS-NUMBER-ONE                             DTSBR432
00207          ELSE                                                     DTSBR432
00208             MOVE +60 TO WS-LINE-CNT2                              DTSBR432
00209             MOVE R432-EMP-NO TO WS-EMP-NO                         DTSBR432
00210          END-IF.                                                  DTSBR432
00211 *                                                                 DTSBR432
00212      MOVE R432-BATCH-NO TO HDR-BATCH-NO.                          DTSBR432
00213      MOVE WS-YRQ        TO DTL-YRQ.                               DTSBR432
00214      MOVE R432-EMP-NO   TO DTL-EMP-NO.                            DTSBR432
00215      MOVE R432-ITEM-NO  TO DTL-ITEM-NO.                           DTSBR432
00216      MOVE R432-RPT-TYPE TO DTL-RPT-TYPE.                          DTSBR432
00217      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR432
00218                                                                   DTSBR432
00219      IF R432-EMP-NO NOT = WS-EMP-NO                               DTSBR432
00220          MOVE R432-EMP-NO TO WS-EMP-NO                            DTSBR432
00221 *                                                                 DTSBR432
00222          IF WS-NUMBER-TWO = +0                                    DTSBR432
00223             MOVE +99 TO WS-NUMBER-TWO                             DTSBR432
00224          ELSE                                                     DTSBR432
00225             WRITE REPORT-LISTING FROM DTL-LINE-1 AFTER 2          DTSBR432
00226             ADD +2    TO WS-LINE-CNT2                             DTSBR432
00227             GO TO P1000-EXIT                                      DTSBR432
00228          END-IF.                                                  DTSBR432
00229 *                                                                 DTSBR432
00230      WRITE REPORT-LISTING FROM DTL-LINE-1 AFTER 1.                DTSBR432
00231      ADD +1    TO WS-LINE-CNT2.                                   DTSBR432
00232                                                                   DTSBR432
00233  P1000-EXIT.                                                      DTSBR432
00234      EXIT.                                                        DTSBR432
00235                                                                   DTSBR432
00236  P2000-PRINT-HEADER.                                              DTSBR432
00237      IF WS-LINE-CNT GREATER +58 OR                                DTSBR432
00238           WS-LINE-CNT2 GREATER +58                                DTSBR432
00239         MOVE +0          TO WS-LINE-CNT                           DTSBR432
00240         MOVE +0          TO WS-LINE-CNT2                          DTSBR432
00241         ADD  +1          TO WS-PAGE-CNT                           DTSBR432
00242         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR432
00243         WRITE REPORT-LISTING FROM HDR-LINE-1 AFTER TOP-OF-PAGE    DTSBR432
00244         WRITE REPORT-LISTING FROM HDR-LINE-2 AFTER 1              DTSBR432
00245         WRITE REPORT-LISTING FROM HDR-LINE-3 AFTER 1              DTSBR432
00246         WRITE REPORT-LISTING FROM HDR-LINE-4 AFTER 1              DTSBR432
00247         WRITE REPORT-LISTING FROM HDR-LINE-5 AFTER 1              DTSBR432
00248         WRITE REPORT-LISTING FROM HDR-LINE-6 AFTER 1              DTSBR432
00249         WRITE REPORT-LISTING FROM HDR-LINE-7 AFTER 1              DTSBR432
00250         WRITE REPORT-LISTING FROM HDR-LINE-8 AFTER 1              DTSBR432
00251         WRITE REPORT-LISTING FROM HDR-LINE-9 AFTER 1              DTSBR432
00252         ADD +9    TO WS-LINE-CNT2.                                DTSBR432
00253  P2000-EXIT.                                                      DTSBR432
00254      EXIT.                                                        DTSBR432
00255                                                                   DTSBR432
00256  T1000-TERMINATE.                                                 DTSBR432
00257                                                                   DTSBR432
00258      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR432
00259      WRITE REPORT-LISTING FROM CTF-LINE-3 AFTER 3.                DTSBR432
00260      CLOSE PRT-FILE.                                              DTSBR432
00261                                                                   DTSBR432
00262  T1000-EXIT.                                                      DTSBR432
00263      EXIT.                                                        DTSBR432
00264                                                                   DTSBR432
00265 *S999-ABEND.                                                      DTSBR432
00266 *                                                                 DTSBR432
00267 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR432
00268 *                                                                 DTSBR432
00269 *S999-EXIT.                                                       DTSBR432
00270 *    EXIT.                                                        DTSBR432
00271                                                                   DTSBR432
