00001  IDENTIFICATION DIVISION.                                         09/29/10
00002  PROGRAM-ID.             DTSBR204.                                DTSBR204
00003  AUTHOR.                 NORTHROP GRUMMAN.                           LV005
00004  DATE-WRITTEN.           JULY 2004.                               DTSBR204
00005  DATE-COMPILED.                                                   DTSBR204
00006      SKIP3                                                        DTSBR204
00007 *****                                                             DTSBR204
00008 *                                                                 DTSBR204
00009 *    FUNCTION:  ACCOUNT NUMBER CHANGES ON SCREEN 24 REPORT.       DTSBR204
00010 *                                                                 DTSBR204
00011 *    CALLING SEQUENCE:  CICS SCREEN CREATED DTSIR204 RECORDS.     DTSBR204
00012 *                       DTSBD800 CALLS DTSBR204 USING DTSIR204    DTSBR204
00013 *                                WHICH PRODUCES THE REPORTS.      DTSBR204
00014 *                                                                 DTSBR204
00015 *    MODIFICATION HISTORY:                                        DTSBR204
00016 *                                                                 DTSBR204
00017 * 05-19-2004 INITIAL DEVELOPMENT                                  DTSBR204
00018 *            REFERENCE RFP #RAP             AUTHOR OF CHANGE - RW1DTSBR204
00019 *                                                                 DTSBR204
00020 * 08-17-2010 MODIFIED TO UPDATE WG2 FILE TO SAVE ACCOUNT NUMBER   DTSBR204
00021 *            CHANGES                                              DTSBR204
00022 *            REFERENCE RFP                  AUTHOR OF CHANGE - GD DTSBR204
00023 *                                                                 DTSBR204
00024 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR204
00025 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR204
00026 *            REFERENCE RFP #****                   PROGRAMMER: XXXDTSBR204
00027 *                                                                 DTSBR204
00028 *                                                                 DTSBR204
00029 *    DESCRIPTION:                                                 DTSBR204
00030 *                                                                 DTSBR204
00031 *        THIS MODULE PRODUCES A REPORT FOR THE ACCOUNT CHANGES    DTSBR204
00032 *        FROM SCREEN 24.                                          DTSBR204
00033 *                                                                 DTSBR204
00034 *                                                                 DTSBR204
00035 *    RECORDS READ:                                                DTSBR204
00036 *                                                                 DTSBR204
00037 *        NONE.                                                    DTSBR204
00038 *                                                                 DTSBR204
00039 *                                                                 DTSBR204
00040 *    PRINTED OUTPUTS:                                             DTSBR204
00041 *                                                                 DTSBR204
00042 *        204R1  ACCOUNT CHANGES FROM SCREEN REPORT.               DTSBR204
00043 *                                                                 DTSBR204
00044 *                                                                 DTSBR204
00045 *    RECORDS WRITTEN:                                             DTSBR204
00046 *                                                                 DTSBR204
00047 *        NONE.                                                    DTSBR204
00048 *                                                                 DTSBR204
00049 *                                                                 DTSBR204
00050 *    MODULES CALLED:                                              DTSBR204
00051 *                                                                 DTSBR204
00052 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR204
00053 *        DTSBU002 DATE ALPHA CONVERSION MODULE                    DTSBR204
00054 *        DTSBU004 YEAR/QUARTER CONVERSION.                        DTSBR204
00055 *                                                                 DTSBR204
00056 *****                                                             DTSBR204
00057                                                                   DTSBR204
00058  ENVIRONMENT DIVISION.                                            DTSBR204
00059  CONFIGURATION SECTION.                                           DTSBR204
00060                                                                   DTSBR204
00061  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR204
00062                                                                   DTSBR204
00063  INPUT-OUTPUT SECTION.                                            DTSBR204
00064                                                                   DTSBR204
00065  FILE-CONTROL.                                                    DTSBR204
00066      SELECT PRT-FILE1 ASSIGN TO RPT204R1.                         DTSBR204
00067                                                                   DTSBR204
00068      SELECT WG2-FILE ASSIGN TO DTSFWG2                            DTSBR204
00069          ORGANIZATION IS INDEXED                                  DTSBR204
00070          RECORD KEY IS WWG2-KEY-AREA OF WG2-REC                   DTSBR204
00071          FILE STATUS IS WG2-STATUS                                DTSBR204
00072          ACCESS IS DYNAMIC.                                       DTSBR204
00073                                                                   DTSBR204
00074  DATA DIVISION.                                                   DTSBR204
00075                                                                   DTSBR204
00076  FILE SECTION.                                                    DTSBR204
00077                                                                   DTSBR204
00078  FD  PRT-FILE1                                                    DTSBR204
00079      RECORDING MODE IS F                                          DTSBR204
00080      BLOCK CONTAINS 0 RECORDS                                     DTSBR204
00081      LABEL RECORDS ARE OMITTED.                                   DTSBR204
00082                                                                   DTSBR204
00083  01  PRT-RECORD1.                                                 DTSBR204
00084      05  FILLER                      PIC X(1).                    DTSBR204
00085      05  PRT-RPT1                    PIC X(132).                  DTSBR204
00086                                                                   DTSBR204
00087  FD  WG2-FILE.                                                    DTSBR204
00088                                                                   DTSBR204
00089  01  WG2-REC.                                                     DTSBR204
00090  ++INCLUDE DTSIWWG2                                               DTSBR204
00091                                                                   DTSBR204
00092  WORKING-STORAGE SECTION.                                         DTSBR204
000925 77  PAN-VALET PICTURE X(24) VALUE '005DTSBR204  09/29/10'.       DTSBR204
00093                                                                   DTSBR204
00094  01  WRK-AREA.                                                    DTSBR204
00095                                                                   DTSBR204
00096      05  WG2-STATUS                  PIC  X(02).                  DTSBR204
00097          88  WG2-OK-88                 VALUE '00'.                DTSBR204
00098                                                                   DTSBR204
00099      05  WS-LINE-CNT                 PIC S9(03)  COMP-3 VALUE 60. DTSBR204
00100      05  WS-LINE-CNT2                PIC S9(03)  COMP-3 VALUE +0. DTSBR204
00101      05  WS-PAGE-CNT                 PIC S9(05)  COMP-3 VALUE +0. DTSBR204
00102      05  WS-SUM-FOOT-CNT1            PIC S9(07)  COMP-3 VALUE +0. DTSBR204
00103      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +204.DTSBR204
00104      05  WRK-ABEND-MSG               PIC  X(60)  VALUE SPACES.    DTSBR204
00105      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR204
00106      05  WRK-DIFF-EMPL-CNT           PIC S9(07)  COMP-3 VALUE +0. DTSBR204
00107      05  WRK-CALCULATE-PERCENT       PIC  9(03)V9 VALUE ZEROS.    DTSBR204
00108      05  WRK-ERROR-TYPE              PIC  X(02)  VALUE SPACES.    DTSBR204
00109                                                                   DTSBR204
00110  01  HEADER-1.                                                    DTSBR204
00111      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR204
00112      05  HDR1-RPT-NO                 PIC  X(05)  VALUE '204R1'.   DTSBR204
00113      05  FILLER                      PIC  X(34)  VALUE SPACES.    DTSBR204
00114      05  WS-AGY-NAME-LINE1           PIC  X(50)  VALUE SPACE.     DTSBR204
00115      05  FILLER                      PIC  X(28)  VALUE SPACES.    DTSBR204
00116      05  FILLER                      PIC  X(05)                   DTSBR204
00117             VALUE 'DATE:'.                                        DTSBR204
00118      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR204
00119      05  WS-SYS-DATE                 PIC  X(08)  VALUE SPACE.     DTSBR204
00120                                                                   DTSBR204
00121  01  HEADER-2.                                                    DTSBR204
00122      05  FILLER                      PIC  X(40)  VALUE SPACES.    DTSBR204
00123      05  WS-AGY-NAME-LINE2           PIC  X(50)  VALUE SPACE.     DTSBR204
00124      05  FILLER                      PIC  X(28)  VALUE SPACES.    DTSBR204
00125      05  FILLER                      PIC  X(05)                   DTSBR204
00126             VALUE 'TIME:'.                                        DTSBR204
00127      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR204
00128      05  WS-SYS-TIME                 PIC  X(08)  VALUE SPACE.     DTSBR204
00129                                                                   DTSBR204
00130  01  HEADER-3.                                                    DTSBR204
00131      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR204
00132      05  FILLER                      PIC  X(27)                   DTSBR204
00133             VALUE 'ROUTE TO:  TAX PROGRAMMER  '.                  DTSBR204
00134      05  FILLER                      PIC  X(90)  VALUE SPACES.    DTSBR204
00135      05  FILLER                      PIC  X(05)                   DTSBR204
00136             VALUE 'PAGE:'.                                        DTSBR204
00137      05  FILLER                      PIC  X(03)  VALUE SPACES.    DTSBR204
00138      05  HDR3-PAGE-CNT               PIC  ZZ,ZZ9.                 DTSBR204
00139                                                                   DTSBR204
00140  01  HEADER-4.                                                    DTSBR204
00141      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR204
00142      05  FILLER                      PIC  X(46)  VALUE SPACE.     DTSBR204
00143      05  FILLER                      PIC  X(35)                   DTSBR204
00144             VALUE 'ACCOUNT NUMBER CHANGES ON 24 SCREEN'.          DTSBR204
00145      05  FILLER                      PIC  X(53)  VALUE SPACE.     DTSBR204
00146                                                                   DTSBR204
00147  01  HEADER-5                        PIC  X(133) VALUE SPACES.    DTSBR204
00148                                                                   DTSBR204
00149  01  HEADER-6.                                                    DTSBR204
00150      05  FILLER                      PIC  X(01) VALUE SPACE.      DTSBR204
00151      05  FILLER                      PIC  X(02) VALUE SPACES.     DTSBR204
00152      05  FILLER                      PIC  X(11)                   DTSBR204
00153                 VALUE 'ORIG EMP NO'.                              DTSBR204
00154      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBR204
00155      05  FILLER                      PIC  X(10)                   DTSBR204
00156                 VALUE 'NEW EMP NO'.                               DTSBR204
00157      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBR204
00158      05  FILLER                      PIC  X(07)                   DTSBR204
00159                 VALUE 'QUARTER'.                                  DTSBR204
00160      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBR204
00161      05  FILLER                      PIC  X(05)                   DTSBR204
00162                 VALUE 'BATCH'.                                    DTSBR204
00163      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBR204
00164      05  FILLER                      PIC  X(04)                   DTSBR204
00165                 VALUE 'ITEM'.                                     DTSBR204
00166      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBR204
00167      05  FILLER                      PIC  X(10)                   DTSBR204
00168                 VALUE 'TOTAL WAGE'.                               DTSBR204
00169      05  FILLER                      PIC  X(04) VALUE SPACES.     DTSBR204
00170      05  FILLER                      PIC  X(06)                   DTSBR204
00171                 VALUE 'OP ID'.                                    DTSBR204
00172      05  FILLER                      PIC  X(06) VALUE SPACES.     DTSBR204
00173      05  FILLER                      PIC  X(11)                   DTSBR204
00174                 VALUE 'CHANGE DATE'.                              DTSBR204
00175      05  FILLER                      PIC  X(36) VALUE SPACES.     DTSBR204
00176                                                                   DTSBR204
00177  01  HEADER-7                        PIC  X(133) VALUE SPACES.    DTSBR204
00178                                                                   DTSBR204
00179  01  DETAIL-LINE.                                                 DTSBR204
00180      05  FILLER                      PIC  X(01)  VALUE SPACE.     DTSBR204
00181      05  FILLER                      PIC  X(02)  VALUE SPACES.    DTSBR204
00182      05  WS-ORIG-EMP-NO              PIC  999B999 BLANK WHEN ZERO.DTSBR204
00183      05  FILLER                      PIC  X(08)  VALUE SPACE.     DTSBR204
00184      05  WS-NEW-EMP-NO               PIC  999B999 BLANK WHEN ZERO.DTSBR204
00185      05  FILLER                      PIC  X(07)  VALUE SPACE.     DTSBR204
00186      05  WS-QUARTER                  PIC  X(06).                  DTSBR204
00187      05  FILLER                      PIC  X(05)  VALUE SPACE.     DTSBR204
00188      05  WS-BATCH-NO                 PIC  X(05).                  DTSBR204
00189      05  FILLER                      PIC  X(04)  VALUE SPACES.    DTSBR204
00190      05  WS-ITEM-NO                  PIC  X(03).                  DTSBR204
00191      05  FILLER                      PIC  X(02)  VALUE SPACES.    DTSBR204
00192      05  WS-TOTAL-WAGE               PIC  $$,$$$,$$9.99.          DTSBR204
00193      05  FILLER                      PIC  X(04)  VALUE SPACES.    DTSBR204
00194      05  WS-OP-ID                    PIC  X(08).                  DTSBR204
00195      05  FILLER                      PIC  X(04)  VALUE SPACES.    DTSBR204
00196      05  WS-CHANGE-DATE              PIC  X(10).                  DTSBR204
00197      05  WS-MSG                      PIC  X(37)  VALUE SPACES.    DTSBR204
00198                                                                   DTSBR204
00199  01  CONTROL-SUM-FOOTING.                                         DTSBR204
00200                                                                   DTSBR204
00201      05  SUM-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR204
00202      05  SUM-LINE-6.                                              DTSBR204
00203          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR204
00204          10  FILLER                  PIC  X(37)                   DTSBR204
00205                 VALUE 'NUMBER OF EMPLOYER ACCOUNTS CHANGED: '.    DTSBR204
00206          10  WS-SUM-FOOT-NUMBER      PIC  ZZ,ZZ9.                 DTSBR204
00207          10  FILLER                  PIC  X(25)  VALUE SPACES.    DTSBR204
00208      05  SUM-ASTR-7.                                              DTSBR204
00209          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR204
00210          10  FILLER                  PIC  X(26)                   DTSBR204
00211                 VALUE '  *** END OF REPORT       '.               DTSBR204
00212          10  FILLER                  PIC  X(81) VALUE SPACES.     DTSBR204
00213                                                                   DTSBR204
00214  01  L001-LINK-AREA.                                              DTSBR204
00215  ++INCLUDE DTSIL001                                               DTSBR204
00216      EJECT                                                        DTSBR204
00217  01  L002-LINK-AREA.                                              DTSBR204
00218  ++INCLUDE DTSIL002                                               DTSBR204
00219                                                                   DTSBR204
00220  01  L004-LINK-AREA.                                              DTSBR204
00221  ++INCLUDE DTSIL004                                               DTSBR204
00222                                                                   DTSBR204
00223                                                                   DTSBR204
00224  LINKAGE SECTION.                                                 DTSBR204
00225                                                                   DTSBR204
00226  01  LRCM-LINK-AREA.                                              DTSBR204
00227  ++INCLUDE DTSILRCM                                               DTSBR204
00228                                                                   DTSBR204
00229  01  R204-REC.                                                    DTSBR204
00230  ++INCLUDE DTSIR204                                               DTSBR204
00231      EJECT                                                        DTSBR204
00232  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR204
00233                           R204-REC.                               DTSBR204
00234                                                                   DTSBR204
00235      IF FIRST-TIME-IND = 'Y'                                      DTSBR204
00236          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR204
00237          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR204
00238                                                                   DTSBR204
00239      IF LRCM-EOR-88                                               DTSBR204
00240          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR204
00241      ELSE                                                         DTSBR204
00242          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR204
00243                                                                   DTSBR204
00244      GOBACK.                                                      DTSBR204
00245                                                                   DTSBR204
00246  I1000-INITIATE.                                                  DTSBR204
00247      OPEN OUTPUT PRT-FILE1.                                       DTSBR204
00248      OPEN I-O WG2-FILE.                                           DTSBR204
00249      IF WG2-OK-88                                                 DTSBR204
00250         NEXT SENTENCE                                             DTSBR204
00251      ELSE                                                         DTSBR204
00252          MOVE 'CANNOT OPEN WG2 FILE    ' TO WRK-ABEND-MSG         DTSBR204
00253         PERFORM S999-ABEND    THRU S999-EXIT                      DTSBR204
00254      END-IF.                                                      DTSBR204
00255                                                                   DTSBR204
00256      MOVE LRCM-SYS-DATE       TO WS-SYS-DATE.                     DTSBR204
00257      MOVE LRCM-SYS-TIME       TO WS-SYS-TIME.                     DTSBR204
00258      MOVE LRCM-AGY-NAME-LINE1 TO WS-AGY-NAME-LINE1.               DTSBR204
00259      MOVE LRCM-AGY-NAME-LINE2 TO WS-AGY-NAME-LINE2.               DTSBR204
00260      MOVE SPACES TO PRT-RECORD1.                                  DTSBR204
00261                                                                   DTSBR204
00262  I1000-EXIT.                                                      DTSBR204
00263      EXIT.                                                        DTSBR204
00264                                                                   DTSBR204
00265  P1000-PROCESS.                                                   DTSBR204
00266                                                                   DTSBR204
00267      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR204
00268      MOVE R204-ORIG-EMP-NO  TO WS-ORIG-EMP-NO.                    DTSBR204
00269      MOVE R204-NEW-EMP-NO   TO WS-NEW-EMP-NO.                     DTSBR204
00270                                                                   DTSBR204
00271      MOVE R204-YRQ          TO L004-QTR-5-9                       DTSBR204
00272      PERFORM S004-FROM-5    THRU S004-EXIT                        DTSBR204
00273      IF L004-INVALID-QTR                                          DTSBR204
00274          MOVE 'INVALID SECURED YEAR/QTR ' TO WRK-ABEND-MSG        DTSBR204
00275          PERFORM S999-ABEND THRU S999-EXIT                        DTSBR204
00276      ELSE                                                         DTSBR204
00277          MOVE L004-SLASH-5-QTR TO WS-QUARTER                      DTSBR204
00278      END-IF.                                                      DTSBR204
00279      MOVE SPACES            TO WS-MSG.                            DTSBR204
00280      MOVE R204-BATCH-NO     TO WS-BATCH-NO.                       DTSBR204
00281      MOVE R204-ITEM-NO      TO WS-ITEM-NO.                        DTSBR204
00282      MOVE R204-TOT-WAGE     TO WS-TOTAL-WAGE.                     DTSBR204
00283      MOVE R204-OP-ID        TO WS-OP-ID.                          DTSBR204
00284                                                                   DTSBR204
00285      MOVE R204-CHANGE-DATE TO L001-FED-8-DATE-9.                  DTSBR204
00286      SET L001-FROM-FED-8   TO TRUE.                               DTSBR204
00287      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR204
00288      IF L001-CAL-8-DATE-9 = ZEROS                                 DTSBR204
00289         MOVE SPACES  TO WS-CHANGE-DATE                            DTSBR204
00290      ELSE                                                         DTSBR204
00291         MOVE L001-SLASH-8-DATE TO WS-CHANGE-DATE.                 DTSBR204
00292                                                                   DTSBR204
00293      PERFORM P1100-WRITE-WG2         THRU P1100-EXIT.             DTSBR204
00294                                                                   DTSBR204
00295      IF WG2-STATUS = '22'                                         DTSBR204
00296         MOVE '**** ERROR ** DTSBR204 DUPLICATE WG2 REC' TO WS-MSG DTSBR204
00297      ELSE                                                         DTSBR204
00298         MOVE SPACES    TO  WS-MSG.                                DTSBR204
00299                                                                   DTSBR204
00300      WRITE PRT-RECORD1 FROM DETAIL-LINE AFTER 1.                  DTSBR204
00301      ADD +1    TO WS-LINE-CNT2                                    DTSBR204
00302      ADD +1    TO WS-SUM-FOOT-CNT1.                               DTSBR204
00303                                                                   DTSBR204
00304  P1000-EXIT.                                                      DTSBR204
00305      EXIT.                                                        DTSBR204
00306                                                                   DTSBR204
00307  P1100-WRITE-WG2.                                                 DTSBR204
00308      MOVE R204-ORIG-EMP-NO    TO WWG2-ORIG-EMP-NO.                DTSBR204
00309      MOVE R204-NEW-EMP-NO     TO WWG2-RPT-EMP-NO.                 DTSBR204
00310      MOVE R204-YRQ            TO WWG2-YRQ.                        DTSBR204
00311      MOVE R204-BATCH-NO       TO WWG2-BATCH-NO.                   DTSBR204
00312      MOVE R204-ITEM-NO        TO WWG2-ITEM-NO.                    DTSBR204
00313      MOVE R204-TOT-WAGE       TO WWG2-WAGES.                      DTSBR204
00314      MOVE R204-OP-ID          TO WWG2-CHANGE-OPID.                DTSBR204
00315      MOVE R204-CHANGE-DATE    TO WWG2-PROCESS-DT.                 DTSBR204
00316                                                                   DTSBR204
00317      WRITE WG2-REC.                                               DTSBR204
00318      IF WG2-OK-88                                                 DTSBR204
00319         NEXT SENTENCE                                             DTSBR204
00320      ELSE                                                         DTSBR204
00321         IF WG2-STATUS = '22'                                      DTSBR204
00322            DISPLAY 'DTSBR204 DUP WG2 REC '                        DTSBR204
00323            DISPLAY DETAIL-LINE                                    DTSBR204
00324         ELSE                                                      DTSBR204
00325            MOVE 'CANNOT WRITE WG2 REC  ' TO WRK-ABEND-MSG         DTSBR204
00326            PERFORM S999-ABEND    THRU S999-EXIT                   DTSBR204
00327         END-IF                                                    DTSBR204
00328      END-IF.                                                      DTSBR204
00329                                                                   DTSBR204
00330  P1100-EXIT.                                                      DTSBR204
00331      EXIT.                                                        DTSBR204
00332                                                                   DTSBR204
00333  P3000-PRINT-HEADER.                                              DTSBR204
00334      IF WS-LINE-CNT GREATER 56 OR                                 DTSBR204
00335           WS-LINE-CNT2 GREATER 56                                 DTSBR204
00336         MOVE +0          TO WS-LINE-CNT                           DTSBR204
00337         MOVE +0          TO WS-LINE-CNT2                          DTSBR204
00338         ADD  +1          TO WS-PAGE-CNT                           DTSBR204
00339         MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT                         DTSBR204
00340         WRITE PRT-RECORD1 FROM HEADER-1 AFTER  TOP-OF-PAGE        DTSBR204
00341         WRITE PRT-RECORD1 FROM HEADER-2 AFTER  1                  DTSBR204
00342         WRITE PRT-RECORD1 FROM HEADER-3 AFTER  1                  DTSBR204
00343         WRITE PRT-RECORD1 FROM HEADER-4 AFTER  1                  DTSBR204
00344         WRITE PRT-RECORD1 FROM HEADER-5 AFTER  1                  DTSBR204
00345         WRITE PRT-RECORD1 FROM HEADER-6 AFTER  1                  DTSBR204
00346         WRITE PRT-RECORD1 FROM HEADER-7 AFTER  1                  DTSBR204
00347         ADD +7    TO WS-LINE-CNT2.                                DTSBR204
00348                                                                   DTSBR204
00349  P3000-EXIT.                                                      DTSBR204
00350      EXIT.                                                        DTSBR204
00351                                                                   DTSBR204
00352  T1000-TERMINATE.                                                 DTSBR204
00353 *    PERFORM P1000-PROCESS THRU P1000-EXIT.                       DTSBR204
00354                                                                   DTSBR204
00355      IF WS-LINE-CNT2 > 56 OR WS-LINE-CNT > 56                     DTSBR204
00356         PERFORM P3000-PRINT-HEADER THRU P3000-EXIT                DTSBR204
00357      END-IF.                                                      DTSBR204
00358                                                                   DTSBR204
00359      MOVE WS-SUM-FOOT-CNT1   TO WS-SUM-FOOT-NUMBER.               DTSBR204
00360      WRITE PRT-RECORD1 FROM SUM-LINE-5 AFTER 1.                   DTSBR204
00361      WRITE PRT-RECORD1 FROM SUM-LINE-6 AFTER 2.                   DTSBR204
00362      WRITE PRT-RECORD1 FROM SUM-ASTR-7 AFTER 2.                   DTSBR204
00363                                                                   DTSBR204
00364      CLOSE PRT-FILE1                                              DTSBR204
00365            WG2-FILE.                                              DTSBR204
00366                                                                   DTSBR204
00367  T1000-EXIT.                                                      DTSBR204
00368      EXIT.                                                        DTSBR204
00369                                                                   DTSBR204
00370  S001-DATE.                                                       DTSBR204
00371      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR204
00372                                                                   DTSBR204
00373  S001-EXIT.                                                       DTSBR204
00374      EXIT.                                                        DTSBR204
00375                                                                   DTSBR204
00376  S002-DATE-ALPHA.                                                 DTSBR204
00377      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR204
00378                                                                   DTSBR204
00379  S002-EXIT.                                                       DTSBR204
00380      EXIT.                                                        DTSBR204
00381                                                                   DTSBR204
00382  S004-FROM-DATE.                                                  DTSBR204
00383      SET L004-FROM-DATE     TO TRUE.                              DTSBR204
00384      GO TO S004-YRQ.                                              DTSBR204
00385                                                                   DTSBR204
00386  S004-FROM-3.                                                     DTSBR204
00387      SET L004-FROM-3        TO TRUE.                              DTSBR204
00388      GO TO S004-YRQ.                                              DTSBR204
00389                                                                   DTSBR204
00390  S004-FROM-5.                                                     DTSBR204
00391      SET L004-FROM-5        TO TRUE.                              DTSBR204
00392      GO TO S004-YRQ.                                              DTSBR204
00393                                                                   DTSBR204
00394  S004-FROM-ABS.                                                   DTSBR204
00395      SET L004-FROM-ABS      TO TRUE.                              DTSBR204
00396      GO TO S004-YRQ.                                              DTSBR204
00397                                                                   DTSBR204
00398  S004-YRQ.                                                        DTSBR204
00399      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR204
00400                                                                   DTSBR204
00401  S004-EXIT.                                                       DTSBR204
00402      EXIT.                                                        DTSBR204
00403                                                                   DTSBR204
00404  S999-ABEND.                                                      DTSBR204
00405      DISPLAY '*** DTSBR427 ABENDING.  '                           DTSBR204
00406              WRK-ABEND-MSG.                                       DTSBR204
00407                                                                   DTSBR204
00408      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR204
00409                                                                   DTSBR204
00410  S999-EXIT.                                                       DTSBR204
00411      EXIT.                                                        DTSBR204
00412                                                                   DTSBR204
