00001  IDENTIFICATION DIVISION.                                         07/26/02
00002  PROGRAM-ID.             DTSBR410.                                DTSBR410
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV010
00004  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR410
00005  DATE-COMPILED.                                                   DTSBR410
00006                                                                   DTSBR410
00007 *****                                                             DTSBR410
00008 *                                                                 DTSBR410
00009 *   CALLING SEQUENCE:  DTSBE410 CREATES DTSIR410 RECORDS.         DTSBR410
00010 *                      DTSBD800 CALLS DTSBR410                    DTSBR410
00011 *                               WHICH PRODUCES THE APPEAL LIST.   DTSBR410
00012 *                                                                 DTSBR410
00013 *    FUNCTION:  OPEN APPEAL LIST.                                 DTSBR410
00014 *                                                                 DTSBR410
00015 *                                                                 DTSBR410
00016 *    MODIFICATION HISTORY:                                        DTSBR410
00017 *                                                                 DTSBR410
00018 * 12-20-94 INITIAL DEVELOPMENT                                    DTSBR410
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RHC  DTSBR410
00020 *                                                                 DTSBR410
00021 * 08-03-95 CHANGED ROUTING AREA SO "CONTRIBUTIONS BUREAU" IS ON   DTSBR410
00022 *          TOP AND ADDED LINE FOR THE FOURTH COPY.                DTSBR410
00023 *          REFERENCE RFP #RAP CLEANUP            PROGRAMMER: MJA  DTSBR410
00024 *                                                                 DTSBR410
00025 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR410
00026 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR410
00027 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR410
00028 *                                                                 DTSBR410
00029 *                                                                 DTSBR410
00030 *    DESCRIPTION:                                                 DTSBR410
00031 *                                                                 DTSBR410
00032 *        THIS MODULE PRODUCES THE OPEN APPEAL LIST.               DTSBR410
00033 *                                                                 DTSBR410
00034 *                                                                 DTSBR410
00035 *    RECORDS READ:                                                DTSBR410
00036 *                                                                 DTSBR410
00037 *        NONE.                                                    DTSBR410
00038 *                                                                 DTSBR410
00039 *                                                                 DTSBR410
00040 *    PRINTED OUTPUTS:                                             DTSBR410
00041 *                                                                 DTSBR410
00042 *        410R1  OPEN APPEAL LIST.                                 DTSBR410
00043 *                                                                 DTSBR410
00044 *                                                                 DTSBR410
00045 *    RECORDS WRITTEN:                                             DTSBR410
00046 *                                                                 DTSBR410
00047 *        NONE.                                                    DTSBR410
00048 *                                                                 DTSBR410
00049 *                                                                 DTSBR410
00050 *    MODULES CALLED:                                              DTSBR410
00051 *                                                                 DTSBR410
00052 *        DTSBU001  DATE CONVERT.                                  DTSBR410
00053 *        DTSBU034  APPEAL TYPE DESCRIPTION.                       DTSBR410
00054 *                                                                 DTSBR410
00055 *                                                                 DTSBR410
00056 *****                                                             DTSBR410
00057      EJECT                                                        DTSBR410
00058  ENVIRONMENT DIVISION.                                            DTSBR410
00059                                                                   DTSBR410
00060  CONFIGURATION SECTION.                                           DTSBR410
00061  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR410
00062                                                                   DTSBR410
00063  INPUT-OUTPUT SECTION.                                            DTSBR410
00064  FILE-CONTROL.                                                    DTSBR410
00065      SELECT PRT-FILE ASSIGN TO RPT410R1.                          DTSBR410
00066                                                                   DTSBR410
00067  DATA DIVISION.                                                   DTSBR410
00068  FILE SECTION.                                                    DTSBR410
00069                                                                   DTSBR410
00070  FD  PRT-FILE                                                     DTSBR410
00071      RECORDING MODE IS F.                                         DTSBR410
00072  01  REPORT-LISTING          PIC X(133).                          DTSBR410
00073                                                                   DTSBR410
00074  WORKING-STORAGE SECTION.                                         DTSBR410
000745 77  PAN-VALET PICTURE X(24) VALUE '010DTSBR410  07/26/02'.       DTSBR410
00075                                                                   DTSBR410
00076  01  WRK-AREA.                                                    DTSBR410
00077      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +410.DTSBR410
00078      05  FIRST-TIME-IND              PIC  X(01)        VALUE 'Y'. DTSBR410
00079                                                                   DTSBR410
00080      05  WS-NUMBER-ONE               PIC S9(03)  COMP-3 VALUE +0. DTSBR410
00081      05  WS-FOOT-NUMBER-ONE          PIC S9(03)  COMP-3 VALUE +0. DTSBR410
00082      05  WS-SUM-NUMBER-ONE           PIC S9(03)  COMP-3 VALUE +0. DTSBR410
00083      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE 60. DTSBR410
00084      05  WS-LINE-CNT2                PIC S9(02)  COMP-3 VALUE +0. DTSBR410
00085      05  WS-PAGE-CNT                 PIC S9(03)  COMP-3 VALUE +0. DTSBR410
00086                                                                   DTSBR410
00087 *    05  WRK-FILE-DATE               PIC  X(08).                  DTSBR410
00088 *    05  WRK-OPEN-DATE               PIC  X(08).                  DTSBR410
00089                                                                   DTSBR410
00090      05  WRK-LEVEL-TABLE.                                         DTSBR410
00091          10 FILLER       PIC  X(34)  VALUE 'TAX CHIEF      '.     DTSBR410
00092          10 FILLER       PIC  X(34)  VALUE 'OFFICE OF APPEALS'.   DTSBR410
00093          10 FILLER       PIC  X(34)                               DTSBR410
00094             VALUE 'OFFICE OF APPEALS AND REVIEW (OAR)'.           DTSBR410
00095          10 FILLER       PIC  X(34)  VALUE 'COURT          '.     DTSBR410
00096          10 FILLER       PIC  X(34)  VALUE 'UNKOWN         '.     DTSBR410
00097      05  FILLER REDEFINES WRK-LEVEL-TABLE.                        DTSBR410
00098          10 WRK-APPEAL-LEVEL   OCCURS 5   PIC  X(34).             DTSBR410
00099                                                                   DTSBR410
00100      05  HOLD-APPEAL-LEVEL           PIC  X(34).                  DTSBR410
00101      05  WS-APPEAL-LEVEL             PIC  X(34).                  DTSBR410
00102                                                                   DTSBR410
00103      EJECT                                                        DTSBR410
00104  01  L001-LINK-AREA.                                              DTSBR410
00105  ++INCLUDE DTSIL001                                               DTSBR410
00106      EJECT                                                        DTSBR410
00107  01  L034-LINK-AREA.                                              DTSBR410
00108  ++INCLUDE DTSIL034                                               DTSBR410
00109      EJECT                                                        DTSBR410
00110 **4*REPORT SECTION.                                               DTSBR410
00111 **4*RD  REPORT-LISTING                                            DTSBR410
00112 **4    CONTROLS  FINAL                                            DTSBR410
00113 **4              HOLD-APPEAL-LEVEL                                DTSBR410
00114 **4    LINE LIMIT  132                                            DTSBR410
00115 **4    PAGE LIMIT   60                                            DTSBR410
00116 **4    FIRST DETAIL     14                                        DTSBR410
00117 **4    LAST BODY GROUP  60.                                       DTSBR410
00118                                                                   DTSBR410
00119  01  PAGE-HEADING.                                                DTSBR410
00120      05  HDR-LINE-1.                                              DTSBR410
00121          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR410
00122          10  FILLER                      PIC  X(05)               DTSBR410
00123                 VALUE '410R1'.                                    DTSBR410
00124          10  FILLER                      PIC  X(36)  VALUE SPACES.DTSBR410
00125          10  HDR-AGY-NAME-LINE1          PIC  X(50).              DTSBR410
00126          10  FILLER                      PIC  X(27)  VALUE SPACES.DTSBR410
00127          10  FILLER                      PIC  X(05)               DTSBR410
00128                 VALUE 'DATE:'.                                    DTSBR410
00129          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR410
00130          10  HDR-SYS-DATE                PIC  X(08).              DTSBR410
00131                                                                   DTSBR410
00132      05  HDR-LINE-2.                                              DTSBR410
00133          10  FILLER                      PIC  X(42)  VALUE SPACES.DTSBR410
00134          10  HDR-AGY-NAME-LINE2          PIC  X(50).              DTSBR410
00135          10  FILLER                      PIC  X(27)  VALUE SPACES.DTSBR410
00136          10  FILLER                      PIC  X(05)               DTSBR410
00137                 VALUE 'TIME:'.                                    DTSBR410
00138          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR410
00139          10  HDR-SYS-TIME                PIC  X(08).              DTSBR410
00140                                                                   DTSBR410
00141      05  HDR-LINE-3.                                              DTSBR410
00142          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR410
00143          10  FILLER                      PIC  X(31)               DTSBR410
00144                 VALUE 'ROUTE TO:  TAX CHIEF'.                     DTSBR410
00145          10  FILLER                      PIC  X(87)  VALUE SPACES.DTSBR410
00146          10  FILLER                      PIC  X(05)               DTSBR410
00147                 VALUE 'PAGE:'.                                    DTSBR410
00148          10  FILLER                      PIC  X(03)  VALUE SPACES.DTSBR410
00149          10  HDR-PAGE-CNT                PIC  ZZ,ZZ9.             DTSBR410
00150                                                                   DTSBR410
00151      05  HDR-LINE-4.                                              DTSBR410
00152          10  FILLER                      PIC  X(12)  VALUE SPACES.DTSBR410
00153          10  FILLER                      PIC  X(28)               DTSBR410
00154                 VALUE 'UI DIRECTOR'.                              DTSBR410
00155          10  FILLER                      PIC  X(19)  VALUE SPACES.DTSBR410
00156          10  FILLER                      PIC  X(16)               DTSBR410
00157                 VALUE 'OPEN APPEAL LIST'.                         DTSBR410
00158                                                                   DTSBR410
00159      05  HDR-LINE-5                      PIC  X(133) VALUE SPACES.DTSBR410
00160      05  HDR-LINE-6                      PIC  X(133) VALUE SPACES.DTSBR410
00161      05  HDR-LINE-7                      PIC  X(133) VALUE SPACES.DTSBR410
00162      05  HDR-LINE-8                      PIC  X(133) VALUE SPACES.DTSBR410
00163      05  HDR-LINE-9.                                              DTSBR410
00164          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR410
00165          10  FILLER                      PIC  X(13)               DTSBR410
00166                 VALUE 'APPEAL LEVEL:'.                            DTSBR410
00167          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR410
00168          10  HDR-APPEAL-LEVEL            PIC  X(34).              DTSBR410
00169 **4               SOURCE HOLD-APPEAL-LEVEL.                       DTSBR410
00170                                                                   DTSBR410
00171      05  HDR-LINE-10                     PIC  X(133) VALUE SPACES.DTSBR410
00172      05  HDR-LINE-11.                                             DTSBR410
00173          10  FILLER                      PIC  X(91)  VALUE SPACES.DTSBR410
00174          10  FILLER                      PIC  X(06)               DTSBR410
00175                 VALUE 'APPEAL'.                                   DTSBR410
00176          10  FILLER                      PIC  X(10)  VALUE SPACES.DTSBR410
00177          10  FILLER                      PIC  X(06)               DTSBR410
00178                 VALUE 'APPEAL'.                                   DTSBR410
00179                                                                   DTSBR410
00180      05  HDR-LINE-12.                                             DTSBR410
00181          10  FILLER                      PIC  X(02)  VALUE SPACES.DTSBR410
00182          10  FILLER                      PIC  X(06)               DTSBR410
00183                 VALUE 'EMP NO'.                                   DTSBR410
00184          10  FILLER                      PIC  X(09)  VALUE SPACES.DTSBR410
00185          10  FILLER                      PIC  X(13)               DTSBR410
00186                 VALUE 'PRIMARY NAME'.                             DTSBR410
00187          10  FILLER                      PIC  X(34)  VALUE SPACES.DTSBR410
00188          10  FILLER                      PIC  X(11)               DTSBR410
00189                 VALUE 'APPEAL TYPE'.                              DTSBR410
00190          10  FILLER                      PIC  X(14)  VALUE SPACES.DTSBR410
00191          10  FILLER                      PIC  X(09)               DTSBR410
00192                 VALUE 'FILE DATE'.                                DTSBR410
00193          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR410
00194          10  FILLER                      PIC  X(09)               DTSBR410
00195                 VALUE 'OPEN DATE'.                                DTSBR410
00196                                                                   DTSBR410
00197  01  DETAIL-LINE.                                                 DTSBR410
00198      05  DTL-LINE-2.                                              DTSBR410
00199          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR410
00200          10  DTL-EMP-NO                  PIC  999B999.            DTSBR410
00201 **4               SOURCE R410-EMP-NO.                             DTSBR410
00202          10  FILLER                      PIC  X(08)  VALUE SPACES.DTSBR410
00203          10  DTL-PRIMARY-NAME            PIC  X(40).              DTSBR410
00204 **4               SOURCE R410-PRIMARY-NAME.                       DTSBR410
00205          10  FILLER                      PIC  X(07)  VALUE SPACES.DTSBR410
00206          10  DTL-LONG-DSCR               PIC  X(20).              DTSBR410
00207 **4               SOURCE L034-LONG-DSCR.                          DTSBR410
00208          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR410
00209          10  WRK-FILE-DATE               PIC  X(08).              DTSBR410
00210 **4               SOURCE WRK-FILE-DATE.                           DTSBR410
00211          10  FILLER                      PIC  X(08)  VALUE SPACES.DTSBR410
00212          10  WRK-OPEN-DATE               PIC  X(08).              DTSBR410
00213 **4               SOURCE WRK-OPEN-DATE.                           DTSBR410
00214                                                                   DTSBR410
00215  01  CONTROL-FOOTING.                                             DTSBR410
00216      05  CTF-LINE-3.                                              DTSBR410
00217          10  FILLER                      PIC  X(20)  VALUE SPACES.DTSBR410
00218          10  CTF-REC-CNT                 PIC  ZZ,ZZ9.             DTSBR410
00219          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR410
00220          10  FILLER                      PIC  X(36)               DTSBR410
00221                 VALUE 'OPEN APPEALS LISTED FOR APPEAL LEVEL'.     DTSBR410
00222                                                                   DTSBR410
00223  01  CONTROL-FOOTING-FINAL.                                       DTSBR410
00224      05  CFF-LINE-2.                                              DTSBR410
00225          10  FILLER                      PIC  X(20)  VALUE SPACES.DTSBR410
00226          10  CFF-SUM-CNT                 PIC  ZZ,ZZ9.             DTSBR410
00227          10  FILLER                      PIC  X(01)  VALUE SPACE. DTSBR410
00228          10  FILLER                      PIC  X(30)               DTSBR410
00229                 VALUE 'OPEN APPEALS LISTED FOR REPORT'.           DTSBR410
00230      EJECT                                                        DTSBR410
00231  LINKAGE SECTION.                                                 DTSBR410
00232                                                                   DTSBR410
00233  01  LRCM-LINK-AREA.                                              DTSBR410
00234  ++INCLUDE DTSILRCM                                               DTSBR410
00235      EJECT                                                        DTSBR410
00236  01  R410-REC.                                                    DTSBR410
00237  ++INCLUDE DTSIR410                                               DTSBR410
00238      EJECT                                                        DTSBR410
00239  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR410
00240                           R410-REC.                               DTSBR410
00241                                                                   DTSBR410
00242      IF FIRST-TIME-IND = 'Y'                                      DTSBR410
00243          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR410
00244          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR410
00245                                                                   DTSBR410
00246      IF LRCM-EOR-88                                               DTSBR410
00247          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR410
00248      ELSE                                                         DTSBR410
00249          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR410
00250                                                                   DTSBR410
00251      GOBACK.                                                      DTSBR410
00252                                                                   DTSBR410
00253  I1000-INITIATE.                                                  DTSBR410
00254                                                                   DTSBR410
00255      PERFORM S1000-SET-APPEAL-LEVEL THRU S1000-EXIT.              DTSBR410
00256                                                                   DTSBR410
00257      OPEN OUTPUT PRT-FILE.                                        DTSBR410
00258      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR410
00259      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR410
00260      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR410
00261      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR410
00262      MOVE SPACES TO REPORT-LISTING.                               DTSBR410
00263                                                                   DTSBR410
00264  I1000-EXIT.                                                      DTSBR410
00265      EXIT.                                                        DTSBR410
00266                                                                   DTSBR410
00267  P1000-PROCESS.                                                   DTSBR410
00268                                                                   DTSBR410
00269      MOVE R410-APPEAL-TYPE TO L034-CD.                            DTSBR410
00270      PERFORM S034-LOOKUP-TYPE THRU S034-EXIT.                     DTSBR410
00271      IF L034-NOT-VALID                                            DTSBR410
00272          MOVE ALL '?' TO L034-LONG-DSCR.                          DTSBR410
00273                                                                   DTSBR410
00274      PERFORM S1000-SET-APPEAL-LEVEL THRU S1000-EXIT.              DTSBR410
00275                                                                   DTSBR410
00276      MOVE R410-FILE-DATE TO L001-FED-8-DATE-9.                    DTSBR410
00277      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR410
00278      MOVE L001-SLASH-DATE TO WRK-FILE-DATE.                       DTSBR410
00279                                                                   DTSBR410
00280      MOVE R410-OPEN-DATE TO L001-FED-8-DATE-9.                    DTSBR410
00281      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR410
00282      MOVE L001-SLASH-DATE TO WRK-OPEN-DATE.                       DTSBR410
00283 *                                                                 DTSBR410
00284      IF HOLD-APPEAL-LEVEL NOT = WS-APPEAL-LEVEL                   DTSBR410
00285          MOVE HOLD-APPEAL-LEVEL TO WS-APPEAL-LEVEL                DTSBR410
00286                                                                   DTSBR410
00287          IF WS-NUMBER-ONE = +0                                    DTSBR410
00288             MOVE +99 TO WS-NUMBER-ONE                             DTSBR410
00289          ELSE                                                     DTSBR410
00290             PERFORM  P3000-PRINT-FOOTER THRU P3000-EXIT           DTSBR410
00291             MOVE +60 TO WS-LINE-CNT2                              DTSBR410
00292          END-IF                                                   DTSBR410
00293      END-IF.                                                      DTSBR410
00294 *                                                                 DTSBR410
00295      MOVE R410-EMP-NO           TO DTL-EMP-NO.                    DTSBR410
00296      MOVE R410-PRIMARY-NAME     TO DTL-PRIMARY-NAME.              DTSBR410
00297      MOVE L034-LONG-DSCR        TO DTL-LONG-DSCR.                 DTSBR410
00298      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR410
00299      WRITE REPORT-LISTING FROM DTL-LINE-2 AFTER 2.                DTSBR410
00300      ADD +2    TO WS-LINE-CNT2.                                   DTSBR410
00301      ADD +1    TO WS-FOOT-NUMBER-ONE.                             DTSBR410
00302      ADD +1    TO WS-SUM-NUMBER-ONE.                              DTSBR410
00303                                                                   DTSBR410
00304 **4    GENERATE DETAIL-LINE.                                      DTSBR410
00305                                                                   DTSBR410
00306  P1000-EXIT.                                                      DTSBR410
00307      EXIT.                                                        DTSBR410
00308                                                                   DTSBR410
00309  P2000-PRINT-HEADER.                                              DTSBR410
00310      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR410
00311           WS-LINE-CNT2 GREATER 58                                 DTSBR410
00312         MOVE +0          TO WS-LINE-CNT                           DTSBR410
00313         MOVE +0          TO WS-LINE-CNT2                          DTSBR410
00314         ADD  +1          TO WS-PAGE-CNT                           DTSBR410
00315         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR410
00316 **4       MOVE WS-OP-ID-NAME TO WS-OP-ID-NAME-PREV                DTSBR410
00317         WRITE REPORT-LISTING FROM HDR-LINE-1 AFTER TOP-OF-PAGE    DTSBR410
00318         WRITE REPORT-LISTING FROM HDR-LINE-2 AFTER 1              DTSBR410
00319         WRITE REPORT-LISTING FROM HDR-LINE-3 AFTER 1              DTSBR410
00320         WRITE REPORT-LISTING FROM HDR-LINE-4 AFTER 1              DTSBR410
00321         WRITE REPORT-LISTING FROM HDR-LINE-5 AFTER 1              DTSBR410
00322         WRITE REPORT-LISTING FROM HDR-LINE-6 AFTER 1              DTSBR410
00323         WRITE REPORT-LISTING FROM HDR-LINE-7 AFTER 1              DTSBR410
00324         WRITE REPORT-LISTING FROM HDR-LINE-8 AFTER 1              DTSBR410
00325         WRITE REPORT-LISTING FROM HDR-LINE-9 AFTER 1              DTSBR410
00326         WRITE REPORT-LISTING FROM HDR-LINE-10 AFTER 1             DTSBR410
00327         WRITE REPORT-LISTING FROM HDR-LINE-11 AFTER 1             DTSBR410
00328         WRITE REPORT-LISTING FROM HDR-LINE-12 AFTER 1             DTSBR410
00329         ADD +12   TO WS-LINE-CNT2.                                DTSBR410
00330  P2000-EXIT.                                                      DTSBR410
00331      EXIT.                                                        DTSBR410
00332                                                                   DTSBR410
00333  P3000-PRINT-FOOTER.                                              DTSBR410
00334                                                                   DTSBR410
00335      IF WS-LINE-CNT2 > 52                                         DTSBR410
00336         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR410
00337      END-IF.                                                      DTSBR410
00338                                                                   DTSBR410
00339      MOVE WS-FOOT-NUMBER-ONE TO CTF-REC-CNT.                      DTSBR410
00340      WRITE REPORT-LISTING FROM CTF-LINE-3 AFTER 3.                DTSBR410
00341      MOVE +0 TO WS-FOOT-NUMBER-ONE.                               DTSBR410
00342                                                                   DTSBR410
00343  P3000-EXIT.                                                      DTSBR410
00344      EXIT.                                                        DTSBR410
00345                                                                   DTSBR410
00346  S1000-SET-APPEAL-LEVEL.                                          DTSBR410
00347      IF (R410-APPEAL-LEVEL-9 NUMERIC)                             DTSBR410
00348              AND                                                  DTSBR410
00349         (R410-APPEAL-LEVEL-9 > 0)                                 DTSBR410
00350              AND                                                  DTSBR410
00351         (R410-APPEAL-LEVEL-9 < 6)                                 DTSBR410
00352          MOVE WRK-APPEAL-LEVEL (R410-APPEAL-LEVEL-9)              DTSBR410
00353            TO HOLD-APPEAL-LEVEL HDR-APPEAL-LEVEL                  DTSBR410
00354      ELSE                                                         DTSBR410
00355          MOVE SPACES TO HOLD-APPEAL-LEVEL HDR-APPEAL-LEVEL.       DTSBR410
00356  S1000-EXIT.                                                      DTSBR410
00357      EXIT.                                                        DTSBR410
00358                                                                   DTSBR410
00359  T1000-TERMINATE.                                                 DTSBR410
00360                                                                   DTSBR410
00361      PERFORM P3000-PRINT-FOOTER THRU P3000-EXIT.                  DTSBR410
00362      MOVE WS-SUM-NUMBER-ONE TO CFF-SUM-CNT.                       DTSBR410
00363      WRITE REPORT-LISTING FROM CFF-LINE-2 AFTER 2.                DTSBR410
00364                                                                   DTSBR410
00365      CLOSE PRT-FILE.                                              DTSBR410
00366                                                                   DTSBR410
00367  T1000-EXIT.                                                      DTSBR410
00368      EXIT.                                                        DTSBR410
00369                                                                   DTSBR410
00370  S001-FROM-FED-8.                                                 DTSBR410
00371                                                                   DTSBR410
00372      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR410
00373                                                                   DTSBR410
00374      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR410
00375                                                                   DTSBR410
00376  S001-EXIT.                                                       DTSBR410
00377      EXIT.                                                        DTSBR410
00378                                                                   DTSBR410
00379  S034-LOOKUP-TYPE.                                                DTSBR410
00380                                                                   DTSBR410
00381      SET L034-MAPL-TYPE TO TRUE.                                  DTSBR410
00382                                                                   DTSBR410
00383      CALL 'DTSBU034' USING L034-LINK-AREA.                        DTSBR410
00384                                                                   DTSBR410
00385  S034-EXIT.                                                       DTSBR410
00386      EXIT.                                                        DTSBR410
00387                                                                   DTSBR410
00388 *S999-ABEND.                                                      DTSBR410
00389 *                                                                 DTSBR410
00390 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR410
00391 *                                                                 DTSBR410
00392 *S999-EXIT.                                                       DTSBR410
00393 *    EXIT.                                                        DTSBR410
00394                                                                   DTSBR410
