00001  IDENTIFICATION DIVISION.                                         09/01/05
00002  PROGRAM-ID.             DTSBR332.                                DTSBR332
00003  AUTHOR.                 NORTHROP GRUMMAN                            LV001
00004  DATE-WRITTEN.           NOVEMBER 2004.                           DTSBR332
00005  DATE-COMPILED.                                                   DTSBR332
00006      SKIP3                                                        DTSBR332
00007 *****                                                             DTSBR332
00008 *                                                                 DTSBR332
00009 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR332
00010 *                       DTSBX332 WHICH CREATES DTSIR332 RECORDS   DTSBR332
00011 *                       DTSBD800 CALLS                            DTSBR332
00012 *                       DTSBR332 WHICH READS DTSIR332 RECORDS     DTSBR332
00013 *                                                                 DTSBR332
00014 *    FUNCTION:  RECEIVABLES OVER 120 DAYS OLD.                    DTSBR332
00015 *                                                                 DTSBR332
00016 *                                                                 DTSBR332
00017 *    MODIFICATION HISTORY:                                        DTSBR332
00018 *                                                                 DTSBR332
00019 * 11-17-04 INITIAL DEVELOPMENT                                    DTSBR332
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RW1  DTSBR332
00021 *                                                                 DTSBR332
00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR332
00023 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR332
00024 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR332
00025 *                                                                 DTSBR332
00026 *                                                                 DTSBR332
00027 *    DESCRIPTION:                                                 DTSBR332
00028 *                                                                 DTSBR332
00029 *        THIS MODULE PRODUCES A REPORT OF ACCOUNT RECEIVABLE      DTSBR332
00030 *        BASED ON A CUTOFF DATE FOR ANY OF THE FIELD REPRE-       DTSBR332
00031 *        SENTATIVES.                                              DTSBR332
00032 *                                                                 DTSBR332
00033 *                                                                 DTSBR332
00034 *    RECORDS READ:                                                DTSBR332
00035 *                                                                 DTSBR332
00036 *        NONE.                                                    DTSBR332
00037 *                                                                 DTSBR332
00038 *                                                                 DTSBR332
00039 *    PRINTED OUTPUTS:                                             DTSBR332
00040 *                                                                 DTSBR332
00041 *        332R1  RECEIVABLES OVER 120 DAYS OLD.                    DTSBR332
00042 *                                                                 DTSBR332
00043 *                                                                 DTSBR332
00044 *    RECORDS WRITTEN:                                             DTSBR332
00045 *                                                                 DTSBR332
00046 *        NONE.                                                    DTSBR332
00047 *                                                                 DTSBR332
00048 *                                                                 DTSBR332
00049 *    MODULES CALLED:                                              DTSBR332
00050 *                                                                 DTSBR332
00051 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR332
00052 *        DTSBU004 YEAR QTR EDIT/CONVERSION MODULE                 DTSBR332
00053 *        DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE            DTSBR332
00054 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR332
00055 *                                                                 DTSBR332
00056 *                                                                 DTSBR332
00057 *****                                                             DTSBR332
00058      EJECT                                                        DTSBR332
00059  ENVIRONMENT DIVISION.                                            DTSBR332
00060                                                                   DTSBR332
00061  CONFIGURATION SECTION.                                           DTSBR332
00062  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR332
00063                                                                   DTSBR332
00064  INPUT-OUTPUT SECTION.                                            DTSBR332
00065      SKIP1                                                        DTSBR332
00066  FILE-CONTROL.                                                    DTSBR332
00067      SELECT PRT-FILE1 ASSIGN TO RPT332R1.                         DTSBR332
00068      SKIP3                                                        DTSBR332
00069  DATA DIVISION.                                                   DTSBR332
00070                                                                   DTSBR332
00071  FILE SECTION.                                                    DTSBR332
00072                                                                   DTSBR332
00073  FD  PRT-FILE1                                                    DTSBR332
00074      RECORDING MODE IS F.                                         DTSBR332
00075  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR332
00076                                                                   DTSBR332
00077  WORKING-STORAGE SECTION.                                         DTSBR332
000775 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR332  09/01/05'.       DTSBR332
00078      SKIP3                                                        DTSBR332
00079  01  WRK-AREA.                                                    DTSBR332
00080      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +332.DTSBR332
00081      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR332
00082      05  FIRST-PAGE-IND              PIC  X(01)  VALUE 'Y'.       DTSBR332
00083                                                                   DTSBR332
00084      05  WS-BLANK-PAGE               PIC  X(133) VALUE SPACES.    DTSBR332
00085      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR332
00086      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR332
00087      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR332
00088      05  WS-NUMBER-ONE               PIC S9(03) COMP-3 VALUE +0.  DTSBR332
00089      05  WS-NUMBER-TWO               PIC S9(03) COMP-3 VALUE +0.  DTSBR332
00090      05  WS-FOOT-NUMBER-ONE          PIC S9(03) COMP-3 VALUE +0.  DTSBR332
00091      05  WS-FOOT-NUMBER-TWO          PIC S9(03) COMP-3 VALUE +0.  DTSBR332
00092      05  WS-FOOT-ONE-AMT             PIC S9(07)V99 COMP-3         DTSBR332
00093                                          VALUE +0.                DTSBR332
00094      05  WS-FOOT-TWO-AMT             PIC S9(09)V99 COMP-3         DTSBR332
00095                                          VALUE +0.                DTSBR332
00096                                                                   DTSBR332
00097      05  WRK-PAGE-TRUNCATE           PIC  9(01).                  DTSBR332
00098          88  WRK-ODD-PAGE-88             VALUE 1 3 5 7 9.         DTSBR332
00099                                                                   DTSBR332
00100      05  WS-FLD-REP-ID-HOLD          PIC  X(02)  VALUE SPACES.    DTSBR332
00101                                                                   DTSBR332
00102      EJECT                                                        DTSBR332
00103  01  L001-LINK-AREA.                                              DTSBR332
00104  ++INCLUDE DTSIL001                                               DTSBR332
00105      EJECT                                                        DTSBR332
00106  01  L004-LINK-AREA.                                              DTSBR332
00107  ++INCLUDE DTSIL004                                               DTSBR332
00108      SKIP3                                                        DTSBR332
00109  01  L062-LINK-AREA.                                              DTSBR332
00110  ++INCLUDE DTSIL062                                               DTSBR332
00111      EJECT                                                        DTSBR332
00112  01  L071-LINK-AREA.                                              DTSBR332
00113  ++INCLUDE DTSIL071                                               DTSBR332
00114      EJECT                                                        DTSBR332
00115  01  PAGE-HEADING1.                                               DTSBR332
00116      05  HEADER1-LINE-1.                                          DTSBR332
00117          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR332
00118          10  FILLER                  PIC  X(05)                   DTSBR332
00119                 VALUE '332R1'.                                    DTSBR332
00120          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR332
00121          10  HDR1-AGY-NAME-LINE1     PIC  X(50).                  DTSBR332
00122          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR332
00123          10  FILLER                  PIC  X(05)                   DTSBR332
00124                 VALUE 'DATE:'.                                    DTSBR332
00125          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR332
00126          10  HDR1-SYS-DATE           PIC  X(08).                  DTSBR332
00127      05  HEADER1-LINE-2.                                          DTSBR332
00128          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR332
00129          10  HDR1-AGY-NAME-LINE2     PIC  X(50).                  DTSBR332
00130          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR332
00131          10  FILLER                  PIC  X(05)                   DTSBR332
00132                 VALUE 'TIME:'.                                    DTSBR332
00133          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR332
00134          10  HDR1-SYS-TIME           PIC  X(08).                  DTSBR332
00135      05  HEADER1-LINE-3.                                          DTSBR332
00136          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR332
00137          10  FILLER                  PIC  X(28)                   DTSBR332
00138                 VALUE 'ROUTE TO:  ACCOUNTING       '.             DTSBR332
00139          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR332
00140          10  FILLER                  PIC  X(40)                   DTSBR332
00141                 VALUE '  RECEIVABLES OVER 120 DAYS OLD         '. DTSBR332
00142          10  FILLER                  PIC  X(30)  VALUE SPACES.    DTSBR332
00143          10  FILLER                  PIC  X(05)                   DTSBR332
00144                 VALUE 'PAGE:'.                                    DTSBR332
00145          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR332
00146          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR332
00147      05  HEADER1-LINE-4              PIC  X(133) VALUE SPACES.    DTSBR332
00148      05  HEADER1-LINE-5              PIC  X(133) VALUE SPACES.    DTSBR332
00149      05  HEADER1-LINE-6.                                          DTSBR332
00150          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR332
00151          10  FILLER                  PIC  X(33)                   DTSBR332
00152                 VALUE 'RECEIVABLES ESTABLISHED BETWEEN: '.        DTSBR332
00153          10  HDR1-START-DATE         PIC  X(10).                  DTSBR332
00154          10  FILLER                  PIC  X(05)                   DTSBR332
00155                 VALUE ' AND '.                                    DTSBR332
00156          10  HDR1-END-DATE           PIC  X(10).                  DTSBR332
00157          10  FILLER                  PIC  X(74)  VALUE SPACES.    DTSBR332
00158      05  HEADER1-LINE-7              PIC  X(133) VALUE SPACES.    DTSBR332
00159      05  HEADER1-LINE-8              PIC  X(133) VALUE SPACES.    DTSBR332
00160      05  HEADER1-LINE-9.                                          DTSBR332
00161          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR332
00162          10  FILLER                  PIC  X(11)                   DTSBR332
00163                 VALUE 'FLD REP :  '.                              DTSBR332
00164          10  HDR1-FLD-REP-NAME       PIC  X(32).                  DTSBR332
00165          10  FILLER                  PIC  X(89)  VALUE SPACES.    DTSBR332
00166      05  HEADER1-LINE-10.                                         DTSBR332
00167          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR332
00168          10  FILLER                  PIC  X(11)                   DTSBR332
00169                 VALUE 'FLD CODE:  '.                              DTSBR332
00170          10  HDR1-FLD-REP-ID         PIC  X(02).                  DTSBR332
00171      05  HEADER1-LINE-11             PIC  X(133) VALUE SPACES.    DTSBR332
00172      05  HEADER1-LINE-12             PIC  X(133) VALUE SPACES.    DTSBR332
00173      05  HEADER1-LINE-13.                                         DTSBR332
00174          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR332
00175          10  FILLER                  PIC  X(07)                   DTSBR332
00176                 VALUE 'EMP NO '.                                  DTSBR332
00177          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR332
00178          10  FILLER                  PIC  X(07)                   DTSBR332
00179                 VALUE 'QUARTER'.                                  DTSBR332
00180          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR332
00181          10  FILLER                  PIC  X(06)                   DTSBR332
00182                 VALUE 'AMOUNT'.                                   DTSBR332
00183          10  FILLER                  PIC  X(101) VALUE SPACES.    DTSBR332
00184                                                                   DTSBR332
00185  01  REPORT1-DETAIL.                                              DTSBR332
00186      05  DTL1-LINE-2.                                             DTSBR332
00187          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR332
00188          10  WS-EMP-NO               PIC  999B999.                DTSBR332
00189          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR332
00190          10  WS-YRQ                  PIC  X(06).                  DTSBR332
00191          10  FILLER                  PIC  X(01)  VALUE SPACES.    DTSBR332
00192          10  WS-AMT                  PIC  ZZ,ZZZ,ZZ9.99.          DTSBR332
00193          10  FILLER                  PIC  X(101) VALUE SPACES.    DTSBR332
00194                                                                   DTSBR332
00195  01  CONTROL-FOOTING.                                             DTSBR332
00196      05  CTF-LINE-5.                                              DTSBR332
00197          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR332
00198          10  WS-CTF-CNT              PIC  ZZZ,ZZ9.                DTSBR332
00199          10  FILLER                  PIC  X(27)                   DTSBR332
00200                 VALUE '  TOTAL NUMBER OF ACCOUNTS '.              DTSBR332
00201      05  CTF-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR332
00202      05  CTF-LINE-7.                                              DTSBR332
00203          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR332
00204          10  WS-CTF-AMT              PIC  $$$,$$$,$$9.99.         DTSBR332
00205          10  FILLER                  PIC  X(27)                   DTSBR332
00206                 VALUE '  TOTAL DEBITS ESTABLISHED '.              DTSBR332
00207      EJECT                                                        DTSBR332
00208      SKIP2                                                        DTSBR332
00209  01  CONTROL-FOOTING-FINAL.                                       DTSBR332
00210      05  CFF-LINE-5.                                              DTSBR332
00211          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR332
00212          10  WS-CFF-AMT              PIC  $$$,$$$,$$9.99.         DTSBR332
00213          10  FILLER                  PIC  X(21)                   DTSBR332
00214                 VALUE '  GRAND TOTAL AMOUNT '.                    DTSBR332
00215      05  CFF-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR332
00216      05  CFF-LINE-7.                                              DTSBR332
00217          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR332
00218          10  FILLER                  PIC  X(21)                   DTSBR332
00219                 VALUE '*** END OF REPORT    '.                    DTSBR332
00220      EJECT                                                        DTSBR332
00221  LINKAGE SECTION.                                                 DTSBR332
00222                                                                   DTSBR332
00223  01  LRCM-LINK-AREA.                                              DTSBR332
00224  ++INCLUDE DTSILRCM                                               DTSBR332
00225      EJECT                                                        DTSBR332
00226  01  R332-REC.                                                    DTSBR332
00227  ++INCLUDE DTSIR332                                               DTSBR332
00228      EJECT                                                        DTSBR332
00229  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR332
00230                           R332-REC.                               DTSBR332
00231                                                                   DTSBR332
00232      IF FIRST-TIME-IND = 'Y'                                      DTSBR332
00233          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR332
00234          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR332
00235      SKIP1                                                        DTSBR332
00236      IF LRCM-EOR-88                                               DTSBR332
00237          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR332
00238      ELSE                                                         DTSBR332
00239          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR332
00240      SKIP2                                                        DTSBR332
00241      GOBACK.                                                      DTSBR332
00242      EJECT                                                        DTSBR332
00243  I1000-INITIATE.                                                  DTSBR332
00244                                                                   DTSBR332
00245      OPEN OUTPUT PRT-FILE1.                                       DTSBR332
00246      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR332
00247      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR332
00248      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR332
00249      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR332
00250      MOVE SPACES TO REPORT-LISTING1.                              DTSBR332
00251                                                                   DTSBR332
00252      PERFORM P2000-FLD-REP-LOOKUP THRU P2000-EXIT.                DTSBR332
00253                                                                   DTSBR332
00254      MOVE R332-START-DATE TO L001-FED-8-DATE-9.                   DTSBR332
00255      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR332
00256      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR332
00257      MOVE L001-SLASH-8-DATE TO HDR1-START-DATE.                   DTSBR332
00258                                                                   DTSBR332
00259      MOVE R332-END-DATE TO L001-FED-8-DATE-9.                     DTSBR332
00260      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR332
00261      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR332
00262      MOVE L001-SLASH-8-DATE TO HDR1-END-DATE.                     DTSBR332
00263                                                                   DTSBR332
00264  I1000-EXIT.                                                      DTSBR332
00265      EXIT.                                                        DTSBR332
00266      EJECT                                                        DTSBR332
00267  P1000-PROCESS.                                                   DTSBR332
00268      SKIP1                                                        DTSBR332
00269      IF R332-FLD-REP-ID = WS-FLD-REP-ID-HOLD                      DTSBR332
00270          NEXT SENTENCE                                            DTSBR332
00271      ELSE                                                         DTSBR332
00272          PERFORM  P5000-PRINT-FOOTER THRU P5000-EXIT              DTSBR332
00273          MOVE +0   TO WS-PAGE-CNT                                 DTSBR332
00274          MOVE +60  TO WS-LINE-CNT2                                DTSBR332
00275          PERFORM P2000-FLD-REP-LOOKUP THRU P2000-EXIT             DTSBR332
00276      END-IF.                                                      DTSBR332
00277                                                                   DTSBR332
00278      MOVE R332-YRQ       TO L004-QTR-5-9.                         DTSBR332
00279      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBR332
00280      MOVE L004-SLASH-5-QTR TO WS-YRQ.                             DTSBR332
00281                                                                   DTSBR332
00282 *    MOVE R332-ESTB-DATE TO L001-FED-8-DATE-9.                    DTSBR332
00283 *    SET L001-FROM-FED-8 TO TRUE.                                 DTSBR332
00284 *    PERFORM S001-DATE THRU S001-EXIT.                            DTSBR332
00285 *    MOVE L001-SLASH-8-DATE TO WS-ESTB-DATE.                      DTSBR332
00286                                                                   DTSBR332
00287      MOVE R332-FLD-REP-ID       TO HDR1-FLD-REP-ID.               DTSBR332
00288      MOVE R332-EMP-NO           TO WS-EMP-NO.                     DTSBR332
00289 *    MOVE R332-BATCH-NO         TO WS-BATCH-NO.                   DTSBR332
00290 *    MOVE R332-ITEM-NO          TO WS-ITEM-NO.                    DTSBR332
00291 *    MOVE R332-TRAN-TYPE        TO WS-TRAN-TYPE.                  DTSBR332
00292      MOVE R332-UI-TAX-BAL       TO WS-AMT.                        DTSBR332
00293      ADD  R332-UI-TAX-BAL       TO WS-FOOT-ONE-AMT.               DTSBR332
00294      ADD  R332-UI-TAX-BAL       TO WS-FOOT-TWO-AMT.               DTSBR332
00295      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR332
00296      WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2.              DTSBR332
00297      ADD +2    TO WS-LINE-CNT2.                                   DTSBR332
00298      ADD +1    TO WS-FOOT-NUMBER-TWO.                             DTSBR332
00299      ADD +1    TO WS-FOOT-NUMBER-ONE.                             DTSBR332
00300                                                                   DTSBR332
00301  P1000-EXIT.                                                      DTSBR332
00302      EXIT.                                                        DTSBR332
00303                                                                   DTSBR332
00304  P2000-FLD-REP-LOOKUP.                                            DTSBR332
00305                                                                   DTSBR332
00306      MOVE R332-FLD-REP-ID TO WS-FLD-REP-ID-HOLD                   DTSBR332
00307                              L062-FLD-REP-ID.                     DTSBR332
00308      PERFORM S062-FLD-REP-INFO THRU S062-EXIT.                    DTSBR332
00309      DISPLAY ' L062-NAME ' L062-NAME                              DTSBR332
00310      IF L062-VALID                                                DTSBR332
00311          MOVE L062-NAME TO L071-NAM                               DTSBR332
00312          SET L071-FROM-LAST-NAME-FIRST TO TRUE                    DTSBR332
00313          PERFORM S071-DESLASH-NAME THRU S071-EXIT                 DTSBR332
00314          MOVE L071-NAM TO HDR1-FLD-REP-NAME                       DTSBR332
00315      ELSE                                                         DTSBR332
00316          MOVE L062-NAME TO HDR1-FLD-REP-NAME                      DTSBR332
00317      END-IF.                                                      DTSBR332
00318                                                                   DTSBR332
00319  P2000-EXIT.                                                      DTSBR332
00320      EXIT.                                                        DTSBR332
00321                                                                   DTSBR332
00322  P3000-PRINT-HEADER.                                              DTSBR332
00323                                                                   DTSBR332
00324      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR332
00325           WS-LINE-CNT2 GREATER 58                                 DTSBR332
00326         MOVE +0          TO WS-LINE-CNT                           DTSBR332
00327         MOVE +0          TO WS-LINE-CNT2                          DTSBR332
00328         ADD  +1          TO WS-PAGE-CNT                           DTSBR332
00329         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR332
00330         WRITE REPORT-LISTING1 FROM HEADER1-LINE-1                 DTSBR332
00331                 AFTER TOP-OF-PAGE                                 DTSBR332
00332         WRITE REPORT-LISTING1 FROM HEADER1-LINE-2 AFTER 1         DTSBR332
00333         WRITE REPORT-LISTING1 FROM HEADER1-LINE-3 AFTER 1         DTSBR332
00334         WRITE REPORT-LISTING1 FROM HEADER1-LINE-4 AFTER 1         DTSBR332
00335         WRITE REPORT-LISTING1 FROM HEADER1-LINE-5 AFTER 1         DTSBR332
00336         WRITE REPORT-LISTING1 FROM HEADER1-LINE-6 AFTER 1         DTSBR332
00337         WRITE REPORT-LISTING1 FROM HEADER1-LINE-7 AFTER 1         DTSBR332
00338         WRITE REPORT-LISTING1 FROM HEADER1-LINE-8 AFTER 1         DTSBR332
00339         WRITE REPORT-LISTING1 FROM HEADER1-LINE-9 AFTER 1         DTSBR332
00340         WRITE REPORT-LISTING1 FROM HEADER1-LINE-10 AFTER 1        DTSBR332
00341         WRITE REPORT-LISTING1 FROM HEADER1-LINE-11 AFTER 1        DTSBR332
00342         WRITE REPORT-LISTING1 FROM HEADER1-LINE-12 AFTER 1        DTSBR332
00343         WRITE REPORT-LISTING1 FROM HEADER1-LINE-13 AFTER 1        DTSBR332
00344         ADD +13   TO WS-LINE-CNT2.                                DTSBR332
00345                                                                   DTSBR332
00346  P3000-EXIT.                                                      DTSBR332
00347      EXIT.                                                        DTSBR332
00348                                                                   DTSBR332
00349  P5000-PRINT-FOOTER.                                              DTSBR332
00350      IF WS-LINE-CNT2 > 52                                         DTSBR332
00351         ADD +8    TO WS-LINE-CNT2                                 DTSBR332
00352         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR332
00353      END-IF.                                                      DTSBR332
00354                                                                   DTSBR332
00355      MOVE WS-FOOT-ONE-AMT    TO WS-CTF-AMT.                       DTSBR332
00356      MOVE WS-FOOT-NUMBER-ONE TO WS-CTF-CNT.                       DTSBR332
00357      WRITE REPORT-LISTING1 FROM CTF-LINE-5 AFTER 3.               DTSBR332
00358      WRITE REPORT-LISTING1 FROM CTF-LINE-6 AFTER 1.               DTSBR332
00359      WRITE REPORT-LISTING1 FROM CTF-LINE-7 AFTER 1.               DTSBR332
00360      MOVE +0   TO WS-FOOT-NUMBER-ONE.                             DTSBR332
00361      MOVE +0   TO WS-FOOT-ONE-AMT.                                DTSBR332
00362      MOVE +60  TO WS-LINE-CNT2.                                   DTSBR332
00363                                                                   DTSBR332
00364      MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE.                       DTSBR332
00365      IF WRK-ODD-PAGE-88                                           DTSBR332
00366         WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE                  DTSBR332
00367                 AFTER TOP-OF-PAGE                                 DTSBR332
00368         WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE AFTER 58         DTSBR332
00369         ADD +60   TO WS-LINE-CNT2                                 DTSBR332
00370         MOVE +0   TO WS-PAGE-CNT                                  DTSBR332
00371      END-IF.                                                      DTSBR332
00372                                                                   DTSBR332
00373  P5000-EXIT.                                                      DTSBR332
00374      EXIT.                                                        DTSBR332
00375                                                                   DTSBR332
00376  T1000-TERMINATE.                                                 DTSBR332
00377                                                                   DTSBR332
00378      IF WS-LINE-CNT2 > 52                                         DTSBR332
00379         ADD +8    TO WS-LINE-CNT2                                 DTSBR332
00380         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR332
00381      END-IF.                                                      DTSBR332
00382                                                                   DTSBR332
00383      MOVE WS-FOOT-ONE-AMT    TO WS-CTF-AMT.                       DTSBR332
00384      MOVE WS-FOOT-NUMBER-ONE TO WS-CTF-CNT.                       DTSBR332
00385      WRITE REPORT-LISTING1 FROM CTF-LINE-5 AFTER 3.               DTSBR332
00386      WRITE REPORT-LISTING1 FROM CTF-LINE-6 AFTER 1.               DTSBR332
00387      WRITE REPORT-LISTING1 FROM CTF-LINE-7 AFTER 1.               DTSBR332
00388                                                                   DTSBR332
00389      IF WS-LINE-CNT2 > 52                                         DTSBR332
00390         ADD +8    TO WS-LINE-CNT2                                 DTSBR332
00391         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR332
00392      END-IF.                                                      DTSBR332
00393                                                                   DTSBR332
00394      MOVE WS-FOOT-TWO-AMT    TO WS-CFF-AMT.                       DTSBR332
00395      WRITE REPORT-LISTING1 FROM CFF-LINE-5 AFTER 3.               DTSBR332
00396      WRITE REPORT-LISTING1 FROM CFF-LINE-6 AFTER 1.               DTSBR332
00397      WRITE REPORT-LISTING1 FROM CFF-LINE-7 AFTER 1.               DTSBR332
00398                                                                   DTSBR332
00399      MOVE WS-PAGE-CNT TO WRK-PAGE-TRUNCATE.                       DTSBR332
00400      IF WRK-ODD-PAGE-88                                           DTSBR332
00401         WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE                  DTSBR332
00402                 AFTER TOP-OF-PAGE                                 DTSBR332
00403         WRITE REPORT-LISTING1 FROM WS-BLANK-PAGE AFTER 58         DTSBR332
00404      END-IF.                                                      DTSBR332
00405                                                                   DTSBR332
00406      CLOSE PRT-FILE1.                                             DTSBR332
00407                                                                   DTSBR332
00408  T1000-EXIT.                                                      DTSBR332
00409      EXIT.                                                        DTSBR332
00410      EJECT                                                        DTSBR332
00411  S001-DATE.                                                       DTSBR332
00412                                                                   DTSBR332
00413      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR332
00414                                                                   DTSBR332
00415  S001-EXIT.                                                       DTSBR332
00416      EXIT.                                                        DTSBR332
00417                                                                   DTSBR332
00418  S004-FROM-5.                                                     DTSBR332
00419      SET L004-FROM-5 TO TRUE.                                     DTSBR332
00420      GO TO S004-QTR.                                              DTSBR332
00421                                                                   DTSBR332
00422  S004-FROM-ABS.                                                   DTSBR332
00423      SET L004-FROM-ABS TO TRUE.                                   DTSBR332
00424      GO TO S004-QTR.                                              DTSBR332
00425                                                                   DTSBR332
00426  S004-FROM-3.                                                     DTSBR332
00427      SET L004-FROM-3 TO TRUE.                                     DTSBR332
00428      GO TO S004-QTR.                                              DTSBR332
00429                                                                   DTSBR332
00430  S004-QTR.                                                        DTSBR332
00431      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR332
00432                                                                   DTSBR332
00433  S004-EXIT.                                                       DTSBR332
00434      EXIT.                                                        DTSBR332
00435                                                                   DTSBR332
00436  S062-FLD-REP-INFO.                                               DTSBR332
00437      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR332
00438                                                                   DTSBR332
00439  S062-EXIT.                                                       DTSBR332
00440      EXIT.                                                        DTSBR332
00441                                                                   DTSBR332
00442  S071-DESLASH-NAME.                                               DTSBR332
00443      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR332
00444                                                                   DTSBR332
00445  S071-EXIT.                                                       DTSBR332
00446      EXIT.                                                        DTSBR332
00447                                                                   DTSBR332
00448  S999-ABEND.                                                      DTSBR332
00449      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR332
00450                                                                   DTSBR332
00451  S999-EXIT.                                                       DTSBR332
00452      EXIT.                                                        DTSBR332
00453                                                                   DTSBR332
