00001  IDENTIFICATION DIVISION.                                         02/01/06
00002  PROGRAM-ID.             DTSBR442.                                DTSBR442
00003  AUTHOR.                 NORTHROP GRUMMAN                            LV001
00004  DATE-WRITTEN.           JANUARY 2006.                            DTSBR442
00005  DATE-COMPILED.                                                   DTSBR442
00006      SKIP3                                                        DTSBR442
00007 *****                                                             DTSBR442
00008 *                                                                 DTSBR442
00009 *    CALLING SEQUENCE:  DTSBE442 CREATES DTSIR442 RECORDS.        DTSBR442
00010 *                       DTSBD800 CALLS DTSBR442 WHICH             DTSBR442
00011 *                       PRODUCES THE CFO AGING RPT.               DTSBR442
00012 *                                                                 DTSBR442
00013 *                                                                 DTSBR442
00014 *    FUNCTION:  EMPLOYERS AGING OF ACCOUNTS RECEIVABLE REPORT.    DTSBR442
00015 *                                                                 DTSBR442
00016 *                                                                 DTSBR442
00017 *    MODIFICATION HISTORY:                                        DTSBR442
00018 *                                                                 DTSBR442
00019 * 01-20-06 INITIAL DEVELOPMENT                                    DTSBR442
00020 *          WORK ORDER: DIR00084           AUTHOR OF CHANGE - RW1  DTSBR442
00021 *                                                                 DTSBR442
00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR442
00023 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR442
00024 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR442
00025 *                                                                 DTSBR442
00026 *                                                                 DTSBR442
00027 *    DESCRIPTION:                                                 DTSBR442
00028 *                                                                 DTSBR442
00029 *        THIS MODULE DETAILS THE DISPOSITION OF AGING OF THE      DTSBR442
00030 *        ACCOUNTS RECEIVABLE ( TAX, PENALTY, AND INTEREST)        DTSBR442
00031 *        WITHIN THE TAX SYSTEM.                                   DTSBR442
00032 *                                                                 DTSBR442
00033 *                                                                 DTSBR442
00034 *    RECORDS READ:                                                DTSBR442
00035 *                                                                 DTSBR442
00036 *        NONE.                                                    DTSBR442
00037 *                                                                 DTSBR442
00038 *                                                                 DTSBR442
00039 *    PRINTED OUTPUTS:                                             DTSBR442
00040 *                                                                 DTSBR442
00041 *        442R1  AGING ACCOUNT RECEIVABLE                          DTSBR442
00042 *                                                                 DTSBR442
00043 *                                                                 DTSBR442
00044 *    RECORDS WRITTEN:                                             DTSBR442
00045 *                                                                 DTSBR442
00046 *        NONE.                                                    DTSBR442
00047 *                                                                 DTSBR442
00048 *    MODULES CALLED:                                              DTSBR442
00049 *                                                                 DTSBR442
00050 *        DTSBU004  QUARTER CONVERSION/EDIT.                       DTSBR442
00051 *                                                                 DTSBR442
00052 *****                                                             DTSBR442
00053      EJECT                                                        DTSBR442
00054  ENVIRONMENT DIVISION.                                            DTSBR442
00055                                                                   DTSBR442
00056  CONFIGURATION SECTION.                                           DTSBR442
00057  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR442
00058                                                                   DTSBR442
00059  INPUT-OUTPUT SECTION.                                            DTSBR442
00060                                                                   DTSBR442
00061  FILE-CONTROL.                                                    DTSBR442
00062      SELECT PRT-FILE  ASSIGN TO RPT442R1.                         DTSBR442
00063                                                                   DTSBR442
00064  DATA DIVISION.                                                   DTSBR442
00065                                                                   DTSBR442
00066  FILE SECTION.                                                    DTSBR442
00067                                                                   DTSBR442
00068  FD  PRT-FILE                                                     DTSBR442
00069      RECORDING MODE IS F.                                         DTSBR442
00070  01  PRT-RECORD              PIC X(133).                          DTSBR442
00071                                                                   DTSBR442
00072  WORKING-STORAGE SECTION.                                         DTSBR442
000725 77  PAN-VALET PICTURE X(24) VALUE '001DTSBR442  02/01/06'.       DTSBR442
00073      SKIP3                                                        DTSBR442
00074  01  WRK-AREA.                                                    DTSBR442
00075      05  WRK-ABEND-CD              PIC S9(04)  COMP  VALUE +442.  DTSBR442
00076      05  WRK-ABEND-MSG             PIC  X(60)  VALUE SPACES.      DTSBR442
00077      05  FIRST-TIME-IND            PIC  X(01)  VALUE 'Y'.         DTSBR442
00078      05  WS-EMP-CLASS-HOLD         PIC  X(01)  VALUE SPACE.       DTSBR442
00079      05  WS-SUB                    PIC S9(04)  COMP VALUE +0.     DTSBR442
00080      05  WS-TABLE-SIZE             PIC S9(04)  COMP VALUE +7.     DTSBR442
00081      SKIP1                                                        DTSBR442
00082      05  WS-BLANK-LINE             PIC  X(133) VALUE SPACES.      DTSBR442
00083      05  WS-FOOT-NUMBER-ONE        PIC S9(03)  COMP-3 VALUE +0.   DTSBR442
00084      05  WS-SUM-NUMBER-ONE         PIC S9(03)  COMP-3 VALUE +0.   DTSBR442
00085      05  WS-LINE-CNT               PIC S9(02)  COMP-3 VALUE 60.   DTSBR442
00086      05  WS-LINE-CNT2              PIC S9(02)  COMP-3 VALUE +0.   DTSBR442
00087      05  WS-PAGE-CNT               PIC S9(03)  COMP-3 VALUE +0.   DTSBR442
00088      SKIP1                                                        DTSBR442
00089      05  WRK-TOT-RATED-TAX         PIC S9(11)V99  COMP-3 VALUE +0.DTSBR442
00090      05  WRK-TOT-RATED-PEN         PIC S9(11)V99  COMP-3 VALUE +0.DTSBR442
00091      05  WRK-TOT-RATED-INT         PIC S9(11)V99  COMP-3 VALUE +0.DTSBR442
00092      05  WRK-TOT-SELF-INS-TAX      PIC S9(11)V99  COMP-3 VALUE +0.DTSBR442
00093      05  WRK-TOT-SELF-INS-PEN      PIC S9(11)V99  COMP-3 VALUE +0.DTSBR442
00094      05  WRK-TOT-SELF-INS-INT      PIC S9(11)V99  COMP-3 VALUE +0.DTSBR442
00095                                                                   DTSBR442
00096      05  WRK-LIT-1-PRIOR.                                         DTSBR442
00097          10 WRK-YRQ-1              PIC X(06).                     DTSBR442
00098          10 WRK-LIT-1              PIC X(11) VALUE ' AND PRIOR '. DTSBR442
00099      05  WRK-LIT-2-TOTAL           PIC X(17) VALUE                DTSBR442
00100                                      'GRAND TOTAL      '.         DTSBR442
00101      05  WRK-LIT-3-YR-OR-MORE      PIC X(17) VALUE                DTSBR442
00102                                      '3 YEARS OR MORE  '.         DTSBR442
00103      05  WRK-LIT-5-ACTIVE          PIC X(17) VALUE                DTSBR442
00104                                      'ACTIVE           '.         DTSBR442
00105      05  WRK-LIT-6-INACTIVE        PIC X(17) VALUE                DTSBR442
00106                                      'INACTIVE         '.         DTSBR442
00107      05  WRK-LIT-7-INACT-3-YR      PIC X(17) VALUE                DTSBR442
00108                                      'INACTIVE 3 YEARS '.         DTSBR442
00109      05  WRK-LIT-8-CHPT-7          PIC X(17) VALUE                DTSBR442
00110                                      'TOT IN CHAPTER 7 '.         DTSBR442
00111      05  WRK-LIT-9-CHPT-11         PIC X(17) VALUE                DTSBR442
00112                                      'TOT IN CHAPTER 11'.         DTSBR442
00113      SKIP2                                                        DTSBR442
00114  01  PAGE-HEADING.                                                DTSBR442
00115      05  HEADER-1.                                                DTSBR442
00116          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR442
00117          10  FILLER                  PIC  X(05)                   DTSBR442
00118                 VALUE '442R1'.                                    DTSBR442
00119          10  FILLER                  PIC  X(34) VALUE SPACES.     DTSBR442
00120          10  WS-AGY-NAME-LINE1       PIC  X(50).                  DTSBR442
00121          10  FILLER                  PIC  X(28) VALUE SPACES.     DTSBR442
00122          10  FILLER                  PIC  X(05)                   DTSBR442
00123                 VALUE 'DATE:'.                                    DTSBR442
00124          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR442
00125          10  WS-SYS-DATE             PIC  X(08).                  DTSBR442
00126      05  HEADER-2.                                                DTSBR442
00127          10  FILLER                  PIC  X(40) VALUE SPACES.     DTSBR442
00128          10  WS-AGY-NAME-LINE2       PIC  X(50).                  DTSBR442
00129          10  FILLER                  PIC  X(28) VALUE SPACES.     DTSBR442
00130          10  FILLER                  PIC  X(05)                   DTSBR442
00131                 VALUE 'TIME:'.                                    DTSBR442
00132          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR442
00133          10  WS-SYS-TIME             PIC  X(08).                  DTSBR442
00134      05  HEADER-3.                                                DTSBR442
00135          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR442
00136          10  FILLER                  PIC  X(29)                   DTSBR442
00137                 VALUE 'ROUTE TO: CHIEF, TAX DIVISION'.            DTSBR442
00138          10  FILLER                  PIC  X(27) VALUE SPACES.     DTSBR442
00139          10  FILLER                  PIC  X(16)                   DTSBR442
00140                 VALUE 'CFO AGING REPORT'.                         DTSBR442
00141          10  FILLER                  PIC  X(45) VALUE SPACES.     DTSBR442
00142          10  FILLER                  PIC  X(05)                   DTSBR442
00143                 VALUE 'PAGE:'.                                    DTSBR442
00144          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR442
00145          10  HDR3-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR442
00146      05  HEADER-4                    PIC  X(133) VALUE SPACES.    DTSBR442
00147      05  HEADER-5.                                                DTSBR442
00148          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR442
00149          10  FILLER                  PIC  X(15)                   DTSBR442
00150                 VALUE 'CURR RUN DATE: '.                          DTSBR442
00151          10  WS-CURR-RUN-DATE        PIC  X(08) VALUE SPACES.     DTSBR442
00152          10  FILLER                  PIC  X(02) VALUE ', '.       DTSBR442
00153          10  FILLER                  PIC  X(15)                   DTSBR442
00154                 VALUE 'EMPLOYER TYPE: '.                          DTSBR442
00155          10  WS-EMPLOYER-TYPE-DSCR   PIC  X(12).                  DTSBR442
00156          10  FILLER                  PIC  X(80) VALUE SPACES.     DTSBR442
00157      05  HEADER-6                    PIC  X(133) VALUE SPACES.    DTSBR442
00158      05  HEADER-7.                                                DTSBR442
00159          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR442
00160          10  FILLER                  PIC  X(12)                   DTSBR442
00161                 VALUE ' YEAR-QTR/  '.                             DTSBR442
00162          10  FILLER                  PIC  X(120) VALUE SPACES.    DTSBR442
00163      05  HEADER-8.                                                DTSBR442
00164          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR442
00165          10  FILLER                  PIC  X(12)                   DTSBR442
00166                 VALUE 'DESCRIPTION'.                              DTSBR442
00167          10  FILLER                  PIC  X(05) VALUE SPACES.     DTSBR442
00168          10  FILLER                  PIC  X(16) VALUE SPACES.     DTSBR442
00169          10  FILLER                  PIC  X(03)                   DTSBR442
00170                 VALUE 'TAX'.                                      DTSBR442
00171          10  FILLER                  PIC  X(12) VALUE SPACES.     DTSBR442
00172          10  FILLER                  PIC  X(07)                   DTSBR442
00173                 VALUE 'PENALTY'.                                  DTSBR442
00174          10  FILLER                  PIC  X(11) VALUE SPACES.     DTSBR442
00175          10  FILLER                  PIC  X(08)                   DTSBR442
00176                 VALUE 'INTEREST'.                                 DTSBR442
00177          10  FILLER                  PIC  X(58) VALUE SPACES.     DTSBR442
00178      05  HEADER-9.                                                DTSBR442
00179          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR442
00180          10  FILLER                  PIC  X(17)                   DTSBR442
00181                 VALUE ALL '-'.                                    DTSBR442
00182          10  FILLER                  PIC  X(05) VALUE SPACES.     DTSBR442
00183          10  FILLER                  PIC  X(14)                   DTSBR442
00184                 VALUE ALL '-'.                                    DTSBR442
00185          10  FILLER                  PIC  X(05) VALUE SPACES.     DTSBR442
00186          10  FILLER                  PIC  X(14)                   DTSBR442
00187                 VALUE ALL '-'.                                    DTSBR442
00188          10  FILLER                  PIC  X(05) VALUE SPACES.     DTSBR442
00189          10  FILLER                  PIC  X(14)                   DTSBR442
00190                 VALUE ALL '-'.                                    DTSBR442
00191          10  FILLER                  PIC  X(58) VALUE SPACES.     DTSBR442
00192                                                                   DTSBR442
00193  01  DETAIL-LINE.                                                 DTSBR442
00194      05  DTL-LINE-1.                                              DTSBR442
00195          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR442
00196          10  WS-DTL-YRQ-DSCR         PIC  X(17).                  DTSBR442
00197          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR442
00198          10  WS-DTL-TAX-AMT          PIC  -----,---,--9.99.       DTSBR442
00199          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR442
00200          10  WS-DTL-PEN-AMT          PIC  -----,---,--9.99.       DTSBR442
00201          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR442
00202          10  WS-DTL-INT-AMT          PIC  -----,---,--9.99.       DTSBR442
00203          10  FILLER                  PIC  X(58) VALUE SPACES.     DTSBR442
00204                                                                   DTSBR442
00205      EJECT                                                        DTSBR442
00206  01  L001-LINK-AREA.                                              DTSBR442
00207  ++INCLUDE DTSIL001                                               DTSBR442
00208      EJECT                                                        DTSBR442
00209  01  L004-LINK-AREA.                                              DTSBR442
00210  ++INCLUDE DTSIL004                                               DTSBR442
00211      EJECT                                                        DTSBR442
00212  LINKAGE SECTION.                                                 DTSBR442
00213                                                                   DTSBR442
00214  01  LRCM-LINK-AREA.                                              DTSBR442
00215  ++INCLUDE DTSILRCM                                               DTSBR442
00216      EJECT                                                        DTSBR442
00217  01  R442-REC.                                                    DTSBR442
00218  ++INCLUDE DTSIR442                                               DTSBR442
00219      EJECT                                                        DTSBR442
00220  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR442
00221                           R442-REC.                               DTSBR442
00222      SKIP2                                                        DTSBR442
00223      IF FIRST-TIME-IND = 'Y'                                      DTSBR442
00224          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR442
00225          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR442
00226      SKIP1                                                        DTSBR442
00227      IF LRCM-EOR-88                                               DTSBR442
00228          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR442
00229      ELSE                                                         DTSBR442
00230          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR442
00231      SKIP2                                                        DTSBR442
00232      GOBACK.                                                      DTSBR442
00233      EJECT                                                        DTSBR442
00234  I1000-INITIATE.                                                  DTSBR442
00235      SKIP1                                                        DTSBR442
00236      OPEN OUTPUT PRT-FILE.                                        DTSBR442
00237      MOVE LRCM-SYS-DATE TO WS-SYS-DATE.                           DTSBR442
00238      MOVE LRCM-SYS-TIME TO WS-SYS-TIME.                           DTSBR442
00239      MOVE LRCM-AGY-NAME-LINE1 TO WS-AGY-NAME-LINE1.               DTSBR442
00240      MOVE LRCM-AGY-NAME-LINE2 TO WS-AGY-NAME-LINE2.               DTSBR442
00241      MOVE SPACES TO PRT-RECORD.                                   DTSBR442
00242                                                                   DTSBR442
00243      MOVE R442-CURR-RUN-DATE TO L001-FED-8-DATE-9.                DTSBR442
00244      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR442
00245      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR442
00246      IF L001-INVALID-DATE                                         DTSBR442
00247          MOVE 'INVALID CURRENT RUN DATE'  TO WRK-ABEND-MSG        DTSBR442
00248          PERFORM S999-ABEND THRU S999-EXIT                        DTSBR442
00249      ELSE                                                         DTSBR442
00250          MOVE L001-SLASH-DATE  TO WS-CURR-RUN-DATE.               DTSBR442
00251                                                                   DTSBR442
00252  I1000-EXIT.                                                      DTSBR442
00253      EXIT.                                                        DTSBR442
00254                                                                   DTSBR442
00255  P1000-PROCESS.                                                   DTSBR442
00256                                                                   DTSBR442
00257      IF R442-SORT-CLASS-R-88                                      DTSBR442
00258           MOVE 'RATED  '  TO WS-EMPLOYER-TYPE-DSCR                DTSBR442
00259           PERFORM P3000-PRINT-HEADER THRU P3000-EXIT              DTSBR442
00260           PERFORM P2000-PRINT-RATED-DETAIL THRU P2000-EXIT        DTSBR442
00261      ELSE                                                         DTSBR442
00262         IF R442-SORT-CLASS-S-88                                   DTSBR442
00263              MOVE 'SELF INSURED'  TO WS-EMPLOYER-TYPE-DSCR        DTSBR442
00264              MOVE +60 TO WS-LINE-CNT                              DTSBR442
00265              PERFORM P3000-PRINT-HEADER THRU P3000-EXIT           DTSBR442
00266             PERFORM P2100-PRINT-SELF-INS-DETAIL THRU P2100-EXIT   DTSBR442
00267         ELSE                                                      DTSBR442
00268            MOVE 'EMPLOYER CLASS NOT EQUAL RATED OR SELF-INSURED'  DTSBR442
00269               TO WRK-ABEND-MSG                                    DTSBR442
00270            PERFORM S999-ABEND THRU S999-EXIT                      DTSBR442
00271         END-IF                                                    DTSBR442
00272      END-IF.                                                      DTSBR442
00273                                                                   DTSBR442
00274  P1000-EXIT.                                                      DTSBR442
00275      EXIT.                                                        DTSBR442
00276                                                                   DTSBR442
00277  P2000-PRINT-RATED-DETAIL.                                        DTSBR442
00278                                                                   DTSBR442
00279      PERFORM                                                      DTSBR442
00280         VARYING R442-IDX FROM 1 BY 1                              DTSBR442
00281               UNTIL R442-IDX > 7                                  DTSBR442
00282                                                                   DTSBR442
00283           MOVE R442-YRQ (R442-IDX)     TO L004-QTR-5-9            DTSBR442
00284           PERFORM S004-FROM-5 THRU S004-EXIT                      DTSBR442
00285           IF L004-INVALID-QTR                                     DTSBR442
00286                MOVE 'INVALID YEAR/QTR ' TO WRK-ABEND-MSG          DTSBR442
00287                PERFORM S999-ABEND THRU S999-EXIT                  DTSBR442
00288           ELSE                                                    DTSBR442
00289              IF R442-IDX = 7                                      DTSBR442
00290                  MOVE L004-SLASH-5-QTR TO WRK-YRQ-1               DTSBR442
00291                  MOVE WRK-LIT-1-PRIOR  TO WS-DTL-YRQ-DSCR         DTSBR442
00292              ELSE                                                 DTSBR442
00293                  MOVE L004-SLASH-5-QTR TO WS-DTL-YRQ-DSCR         DTSBR442
00294              END-IF                                               DTSBR442
00295           END-IF                                                  DTSBR442
00296                                                                   DTSBR442
00297           MOVE R442-TAX-AMT (R442-IDX) TO WS-DTL-TAX-AMT          DTSBR442
00298           MOVE R442-PEN-AMT (R442-IDX) TO WS-DTL-PEN-AMT          DTSBR442
00299           MOVE R442-INT-AMT (R442-IDX) TO WS-DTL-INT-AMT          DTSBR442
00300                                                                   DTSBR442
00301           ADD R442-TAX-AMT (R442-IDX)  TO WRK-TOT-RATED-TAX       DTSBR442
00302           ADD R442-PEN-AMT (R442-IDX)  TO WRK-TOT-RATED-PEN       DTSBR442
00303           ADD R442-INT-AMT (R442-IDX)  TO WRK-TOT-RATED-INT       DTSBR442
00304                                                                   DTSBR442
00305           WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1               DTSBR442
00306           ADD +1    TO WS-LINE-CNT2                               DTSBR442
00307      END-PERFORM.                                                 DTSBR442
00308                                                                   DTSBR442
00309      WRITE PRT-RECORD FROM HEADER-9 AFTER 1.                      DTSBR442
00310                                                                   DTSBR442
00311      MOVE WRK-LIT-2-TOTAL              TO WS-DTL-YRQ-DSCR.        DTSBR442
00312      MOVE WRK-TOT-RATED-TAX            TO WS-DTL-TAX-AMT.         DTSBR442
00313      MOVE WRK-TOT-RATED-PEN            TO WS-DTL-PEN-AMT.         DTSBR442
00314      MOVE WRK-TOT-RATED-INT            TO WS-DTL-INT-AMT.         DTSBR442
00315      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1                    DTSBR442
00316      ADD +1    TO WS-LINE-CNT2                                    DTSBR442
00317                                                                   DTSBR442
00318      MOVE WRK-LIT-3-YR-OR-MORE         TO WS-DTL-YRQ-DSCR.        DTSBR442
00319      MOVE R442-3-YR-MORE-TAX-AMT       TO WS-DTL-TAX-AMT.         DTSBR442
00320      MOVE R442-3-YR-MORE-PEN-AMT       TO WS-DTL-PEN-AMT.         DTSBR442
00321      MOVE R442-3-YR-MORE-INT-AMT       TO WS-DTL-INT-AMT.         DTSBR442
00322      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 2                    DTSBR442
00323      ADD +2    TO WS-LINE-CNT2                                    DTSBR442
00324                                                                   DTSBR442
00325 *    MOVE WRK-LIT-4-SINCE-1999-4       TO WS-DTL-YRQ-DSCR.        DTSBR442
00326 *    MOVE R442-SINCE-19994-TAX-AMT     TO WS-DTL-TAX-AMT.         DTSBR442
00327 *    MOVE R442-SINCE-19994-PEN-AMT     TO WS-DTL-PEN-AMT.         DTSBR442
00328 *    MOVE R442-SINCE-19994-INT-AMT     TO WS-DTL-INT-AMT.         DTSBR442
00329 *    WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 2                    DTSBR442
00330 *    ADD +2    TO WS-LINE-CNT2                                    DTSBR442
00331                                                                   DTSBR442
00332      MOVE WRK-LIT-5-ACTIVE             TO WS-DTL-YRQ-DSCR.        DTSBR442
00333      MOVE R442-ACTIVE-TAX-AMT          TO WS-DTL-TAX-AMT.         DTSBR442
00334      MOVE R442-ACTIVE-PEN-AMT          TO WS-DTL-PEN-AMT.         DTSBR442
00335      MOVE R442-ACTIVE-INT-AMT          TO WS-DTL-INT-AMT.         DTSBR442
00336      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 2                    DTSBR442
00337      ADD +2    TO WS-LINE-CNT2                                    DTSBR442
00338                                                                   DTSBR442
00339      MOVE WRK-LIT-6-INACTIVE           TO WS-DTL-YRQ-DSCR.        DTSBR442
00340      MOVE R442-INACTIVE-TAX-AMT        TO WS-DTL-TAX-AMT.         DTSBR442
00341      MOVE R442-INACTIVE-PEN-AMT        TO WS-DTL-PEN-AMT.         DTSBR442
00342      MOVE R442-INACTIVE-INT-AMT        TO WS-DTL-INT-AMT.         DTSBR442
00343      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1                    DTSBR442
00344      ADD +1    TO WS-LINE-CNT2                                    DTSBR442
00345                                                                   DTSBR442
00346      MOVE WRK-LIT-7-INACT-3-YR         TO WS-DTL-YRQ-DSCR.        DTSBR442
00347      MOVE R442-INACT-3-YR-TAX-AMT      TO WS-DTL-TAX-AMT.         DTSBR442
00348      MOVE R442-INACT-3-YR-PEN-AMT      TO WS-DTL-PEN-AMT.         DTSBR442
00349      MOVE R442-INACT-3-YR-INT-AMT      TO WS-DTL-INT-AMT.         DTSBR442
00350      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1                    DTSBR442
00351      ADD +1    TO WS-LINE-CNT2                                    DTSBR442
00352                                                                   DTSBR442
00353      MOVE WRK-LIT-8-CHPT-7             TO WS-DTL-YRQ-DSCR.        DTSBR442
00354      MOVE R442-TOT-CHPT-7-TAX-AMT      TO WS-DTL-TAX-AMT.         DTSBR442
00355      MOVE R442-TOT-CHPT-7-PEN-AMT      TO WS-DTL-PEN-AMT.         DTSBR442
00356      MOVE R442-TOT-CHPT-7-INT-AMT      TO WS-DTL-INT-AMT.         DTSBR442
00357      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 2                    DTSBR442
00358      ADD +2    TO WS-LINE-CNT2                                    DTSBR442
00359                                                                   DTSBR442
00360      MOVE WRK-LIT-9-CHPT-11            TO WS-DTL-YRQ-DSCR.        DTSBR442
00361      MOVE R442-TOT-CHPT-11-TAX-AMT     TO WS-DTL-TAX-AMT.         DTSBR442
00362      MOVE R442-TOT-CHPT-11-PEN-AMT     TO WS-DTL-PEN-AMT.         DTSBR442
00363      MOVE R442-TOT-CHPT-11-INT-AMT     TO WS-DTL-INT-AMT.         DTSBR442
00364      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1                    DTSBR442
00365      ADD +1    TO WS-LINE-CNT2.                                   DTSBR442
00366                                                                   DTSBR442
00367  P2000-EXIT.                                                      DTSBR442
00368      EXIT.                                                        DTSBR442
00369                                                                   DTSBR442
00370  P2100-PRINT-SELF-INS-DETAIL.                                     DTSBR442
00371                                                                   DTSBR442
00372      PERFORM                                                      DTSBR442
00373         VARYING R442-IDX FROM 1 BY 1                              DTSBR442
00374               UNTIL R442-IDX > 7                                  DTSBR442
00375                                                                   DTSBR442
00376           MOVE R442-YRQ (R442-IDX)     TO L004-QTR-5-9            DTSBR442
00377           PERFORM S004-FROM-5 THRU S004-EXIT                      DTSBR442
00378           IF L004-INVALID-QTR                                     DTSBR442
00379                MOVE 'INVALID YEAR/QTR ' TO WRK-ABEND-MSG          DTSBR442
00380                PERFORM S999-ABEND THRU S999-EXIT                  DTSBR442
00381           ELSE                                                    DTSBR442
00382              IF R442-IDX = 7                                      DTSBR442
00383                  MOVE L004-SLASH-5-QTR TO WRK-YRQ-1               DTSBR442
00384                  MOVE WRK-LIT-1-PRIOR  TO WS-DTL-YRQ-DSCR         DTSBR442
00385              ELSE                                                 DTSBR442
00386                  MOVE L004-SLASH-5-QTR TO WS-DTL-YRQ-DSCR         DTSBR442
00387              END-IF                                               DTSBR442
00388           END-IF                                                  DTSBR442
00389                                                                   DTSBR442
00390           MOVE R442-TAX-AMT (R442-IDX) TO WS-DTL-TAX-AMT          DTSBR442
00391           MOVE R442-PEN-AMT (R442-IDX) TO WS-DTL-PEN-AMT          DTSBR442
00392           MOVE R442-INT-AMT (R442-IDX) TO WS-DTL-INT-AMT          DTSBR442
00393                                                                   DTSBR442
00394           ADD R442-TAX-AMT (R442-IDX) TO WRK-TOT-SELF-INS-TAX     DTSBR442
00395           ADD R442-PEN-AMT (R442-IDX) TO WRK-TOT-SELF-INS-PEN     DTSBR442
00396           ADD R442-INT-AMT (R442-IDX) TO WRK-TOT-SELF-INS-INT     DTSBR442
00397                                                                   DTSBR442
00398           WRITE PRT-RECORD FROM DTL-LINE-1     AFTER 1            DTSBR442
00399           ADD +1    TO WS-LINE-CNT2                               DTSBR442
00400      END-PERFORM.                                                 DTSBR442
00401                                                                   DTSBR442
00402      WRITE PRT-RECORD FROM HEADER-9 AFTER 1.                      DTSBR442
00403                                                                   DTSBR442
00404      MOVE WRK-LIT-2-TOTAL              TO WS-DTL-YRQ-DSCR.        DTSBR442
00405      MOVE WRK-TOT-SELF-INS-TAX         TO WS-DTL-TAX-AMT.         DTSBR442
00406      MOVE WRK-TOT-SELF-INS-PEN         TO WS-DTL-PEN-AMT.         DTSBR442
00407      MOVE WRK-TOT-SELF-INS-INT         TO WS-DTL-INT-AMT.         DTSBR442
00408      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1                    DTSBR442
00409      ADD +1    TO WS-LINE-CNT2                                    DTSBR442
00410                                                                   DTSBR442
00411      MOVE WRK-LIT-3-YR-OR-MORE         TO WS-DTL-YRQ-DSCR.        DTSBR442
00412      MOVE R442-3-YR-MORE-TAX-AMT       TO WS-DTL-TAX-AMT.         DTSBR442
00413      MOVE R442-3-YR-MORE-PEN-AMT       TO WS-DTL-PEN-AMT.         DTSBR442
00414      MOVE R442-3-YR-MORE-INT-AMT       TO WS-DTL-INT-AMT.         DTSBR442
00415      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 2                    DTSBR442
00416      ADD +2    TO WS-LINE-CNT2                                    DTSBR442
00417                                                                   DTSBR442
00418 *    MOVE WRK-LIT-4-SINCE-1999-4       TO WS-DTL-YRQ-DSCR.        DTSBR442
00419 *    MOVE R442-SINCE-19994-TAX-AMT     TO WS-DTL-TAX-AMT.         DTSBR442
00420 *    MOVE R442-SINCE-19994-PEN-AMT     TO WS-DTL-PEN-AMT.         DTSBR442
00421 *    MOVE R442-SINCE-19994-INT-AMT     TO WS-DTL-INT-AMT.         DTSBR442
00422 *    WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 2                    DTSBR442
00423 *    ADD +2    TO WS-LINE-CNT2                                    DTSBR442
00424                                                                   DTSBR442
00425      MOVE WRK-LIT-5-ACTIVE             TO WS-DTL-YRQ-DSCR.        DTSBR442
00426      MOVE R442-ACTIVE-TAX-AMT          TO WS-DTL-TAX-AMT.         DTSBR442
00427      MOVE R442-ACTIVE-PEN-AMT          TO WS-DTL-PEN-AMT.         DTSBR442
00428      MOVE R442-ACTIVE-INT-AMT          TO WS-DTL-INT-AMT.         DTSBR442
00429      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 2                    DTSBR442
00430      ADD +2    TO WS-LINE-CNT2                                    DTSBR442
00431                                                                   DTSBR442
00432      MOVE WRK-LIT-6-INACTIVE           TO WS-DTL-YRQ-DSCR.        DTSBR442
00433      MOVE R442-INACTIVE-TAX-AMT        TO WS-DTL-TAX-AMT.         DTSBR442
00434      MOVE R442-INACTIVE-PEN-AMT        TO WS-DTL-PEN-AMT.         DTSBR442
00435      MOVE R442-INACTIVE-INT-AMT        TO WS-DTL-INT-AMT.         DTSBR442
00436      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1                    DTSBR442
00437      ADD +1    TO WS-LINE-CNT2                                    DTSBR442
00438                                                                   DTSBR442
00439      MOVE WRK-LIT-7-INACT-3-YR         TO WS-DTL-YRQ-DSCR.        DTSBR442
00440      MOVE R442-INACT-3-YR-TAX-AMT      TO WS-DTL-TAX-AMT.         DTSBR442
00441      MOVE R442-INACT-3-YR-PEN-AMT      TO WS-DTL-PEN-AMT.         DTSBR442
00442      MOVE R442-INACT-3-YR-INT-AMT      TO WS-DTL-INT-AMT.         DTSBR442
00443      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1                    DTSBR442
00444      ADD +1    TO WS-LINE-CNT2                                    DTSBR442
00445                                                                   DTSBR442
00446      MOVE WRK-LIT-8-CHPT-7             TO WS-DTL-YRQ-DSCR.        DTSBR442
00447      MOVE R442-TOT-CHPT-7-TAX-AMT      TO WS-DTL-TAX-AMT.         DTSBR442
00448      MOVE R442-TOT-CHPT-7-PEN-AMT      TO WS-DTL-PEN-AMT.         DTSBR442
00449      MOVE R442-TOT-CHPT-7-INT-AMT      TO WS-DTL-INT-AMT.         DTSBR442
00450      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 2                    DTSBR442
00451      ADD +2    TO WS-LINE-CNT2                                    DTSBR442
00452                                                                   DTSBR442
00453      MOVE WRK-LIT-9-CHPT-11            TO WS-DTL-YRQ-DSCR.        DTSBR442
00454      MOVE R442-TOT-CHPT-11-TAX-AMT     TO WS-DTL-TAX-AMT.         DTSBR442
00455      MOVE R442-TOT-CHPT-11-PEN-AMT     TO WS-DTL-PEN-AMT.         DTSBR442
00456      MOVE R442-TOT-CHPT-11-INT-AMT     TO WS-DTL-INT-AMT.         DTSBR442
00457      WRITE PRT-RECORD FROM DTL-LINE-1  AFTER 1                    DTSBR442
00458      ADD +1    TO WS-LINE-CNT2.                                   DTSBR442
00459                                                                   DTSBR442
00460  P2100-EXIT.                                                      DTSBR442
00461      EXIT.                                                        DTSBR442
00462                                                                   DTSBR442
00463  P3000-PRINT-HEADER.                                              DTSBR442
00464      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR442
00465           WS-LINE-CNT2 GREATER 58                                 DTSBR442
00466         MOVE +0          TO WS-LINE-CNT                           DTSBR442
00467         MOVE +0          TO WS-LINE-CNT2                          DTSBR442
00468         ADD  +1          TO WS-PAGE-CNT                           DTSBR442
00469         MOVE WS-PAGE-CNT TO HDR3-PAGE-CNT                         DTSBR442
00470         WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE          DTSBR442
00471         WRITE PRT-RECORD FROM HEADER-2 AFTER 1                    DTSBR442
00472         WRITE PRT-RECORD FROM HEADER-3 AFTER 1                    DTSBR442
00473         WRITE PRT-RECORD FROM HEADER-4 AFTER 1                    DTSBR442
00474         WRITE PRT-RECORD FROM HEADER-5 AFTER 1                    DTSBR442
00475         WRITE PRT-RECORD FROM HEADER-6 AFTER 1                    DTSBR442
00476         WRITE PRT-RECORD FROM HEADER-7 AFTER 1                    DTSBR442
00477         WRITE PRT-RECORD FROM HEADER-8 AFTER 1                    DTSBR442
00478         WRITE PRT-RECORD FROM HEADER-9 AFTER 1                    DTSBR442
00479         WRITE PRT-RECORD FROM WS-BLANK-LINE AFTER 1               DTSBR442
00480         ADD +10   TO WS-LINE-CNT2.                                DTSBR442
00481  P3000-EXIT.                                                      DTSBR442
00482      EXIT.                                                        DTSBR442
00483                                                                   DTSBR442
00484  T1000-TERMINATE.                                                 DTSBR442
00485      CLOSE PRT-FILE.                                              DTSBR442
00486                                                                   DTSBR442
00487  T1000-EXIT.                                                      DTSBR442
00488      EXIT.                                                        DTSBR442
00489                                                                   DTSBR442
00490  S001-DATE.                                                       DTSBR442
00491      SKIP1                                                        DTSBR442
00492      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR442
00493      SKIP2                                                        DTSBR442
00494  S001-EXIT.                                                       DTSBR442
00495      EXIT.                                                        DTSBR442
00496                                                                   DTSBR442
00497  S004-FROM-5.                                                     DTSBR442
00498      SET L004-FROM-5        TO TRUE.                              DTSBR442
00499      GO TO S004-YRQ.                                              DTSBR442
00500                                                                   DTSBR442
00501  S004-FROM-ABS.                                                   DTSBR442
00502      SET L004-FROM-ABS      TO TRUE.                              DTSBR442
00503      GO TO S004-YRQ.                                              DTSBR442
00504                                                                   DTSBR442
00505  S004-YRQ.                                                        DTSBR442
00506      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR442
00507                                                                   DTSBR442
00508  S004-EXIT.                                                       DTSBR442
00509      EXIT.                                                        DTSBR442
00510                                                                   DTSBR442
00511  S999-ABEND.                                                      DTSBR442
00512      DISPLAY '*** DTSBR442 ABENDING.  '                           DTSBR442
00513              WRK-ABEND-MSG.                                       DTSBR442
00514                                                                   DTSBR442
00515      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR442
00516                                                                   DTSBR442
00517  S999-EXIT.                                                       DTSBR442
00518      EXIT.                                                        DTSBR442
00519                                                                   DTSBR442
