00001  IDENTIFICATION DIVISION.                                         11/20/09
00002  PROGRAM-ID.             DTSBR615.                                DTSBR615
00003  AUTHOR.                 NGI.                                        LV016
00004  DATE-WRITTEN.           SEPTEMBER 1909.                          DTSBR615
00005  DATE-COMPILED.                                                   DTSBR615
00006      SKIP3                                                        DTSBR615
00007 *****                                                             DTSBR615
00008 *                                                                 DTSBR615
00009 *                                                                 DTSBR615
00010 *   CALLING SEQUENCE:  DTSBD300 CALLS                             DTSBR615
00011 *                      DTSDB330 WHICH UPDATES DTSIR615            DTSBR615
00012 *                      DTSBR615 READS DTSIR615 RECORDS.           DTSBR615
00013 *                                                                 DTSBR615
00014 *    FUNCTION:  EMPLOYER AUDIT NOTIFICATION NOTICE                DTSBR615
00015 *                                                                 DTSBR615
00016 *                                                                 DTSBR615
00017 *    MODIFICATION HISTORY:                                        DTSBR615
00018 *                                                                 DTSBR615
00019 * 09-15-09 INITIAL DEVELOPMENT                                    DTSBR615
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - ZL1  DTSBR615
00021 *                                                                 DTSBR615
00022 *                                                                 DTSBR615
00023 * MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR615
00024 *             XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR615
00025 *             REFERENCE: XXXXXXXXXXXXXXXX        PROGRAMMER: XXX  DTSBR615
00026 *                                                                 DTSBR615
00027 *                                                                 DTSBR615
00028 *    DESCRIPTION:                                                 DTSBR615
00029 *                                                                 DTSBR615
00030 *        THIS MODULE GENERATES AUDIT NOTICES FOR SELECTED         DTSBR615
00031 *        EMPLOYERS.                                         ZL1   DTSBR615
00032 *                                                                 DTSBR615
00033 *                                                                 DTSBR615
00034 *    RECORDS READ:                                                DTSBR615
00035 *                                                                 DTSBR615
00036 *        NONE.                                                    DTSBR615
00037 *                                                                 DTSBR615
00038 *                                                                 DTSBR615
00039 *    PRINTED OUTPUTS:                                             DTSBR615
00040 *                                                                 DTSBR615
00041 *        615R1  AUDIT NOTIFICATION NOTICE                         DTSBR615
00042 *                                                                 DTSBR615
00043 *                                                                 DTSBR615
00044 *    RECORDS WRITTEN:                                             DTSBR615
00045 *                                                                 DTSBR615
00046 *        NONE.                                                    DTSBR615
00047 *                                                                 DTSBR615
00048 *                                                                 DTSBR615
00049 *    MODULES CALLED:                                              DTSBR615
00050 *                                                                 DTSBR615
00051 *        DTSBU009 CONVERSION TO CAPS MODULE                       DTSBR615
00052 *        DTSBU062 FIELD REP ID EDIT/DESCRIPTION MODULE            DTSBR615
00053 *        DTSBU071 NAME EDIT/CONVERSION MODULE                     DTSBR615
00054 *        DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE                  DTSBR615
00055 *        DTSBU119 AGENCY FACTS MODULE                             DTSBR615
00056 *                                                                 DTSBR615
00057 *****                                                             DTSBR615
00058      EJECT                                                        DTSBR615
00059  ENVIRONMENT DIVISION.                                            DTSBR615
00060                                                                   DTSBR615
00061  CONFIGURATION SECTION.                                           DTSBR615
00062  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR615
00063                                                                   DTSBR615
00064  INPUT-OUTPUT SECTION.                                            DTSBR615
00065                                                                   DTSBR615
00066  FILE-CONTROL.                                                    DTSBR615
00067      SELECT PRT-FILE ASSIGN TO RPT615R1.                          DTSBR615
00068                                                                   DTSBR615
00069  DATA DIVISION.                                                   DTSBR615
00070                                                                   DTSBR615
00071  FILE SECTION.                                                    DTSBR615
00072                                                                   DTSBR615
00073  FD  PRT-FILE                                                     DTSBR615
00074      RECORDING MODE IS F                                          DTSBR615
00075      BLOCK CONTAINS 0 RECORDS                                     DTSBR615
00076      LABEL RECORDS ARE OMITTED.                                   DTSBR615
00077  01  XEROX-REPORT.                                                DTSBR615
00078      05  FILLER                      PIC X(1).                    DTSBR615
00079      05  XEROX-RPT                   PIC X(132).                  DTSBR615
00080                                                                   DTSBR615
00081      EJECT                                                        DTSBR615
00082  WORKING-STORAGE SECTION.                                         DTSBR615
000825 77  PAN-VALET PICTURE X(24) VALUE '016DTSBR615  11/20/09'.       DTSBR615
00083                                                                   DTSBR615
00084  01  WRK-AREA.                                                    DTSBR615
00085      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +615.DTSBR615
00086      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR615
00087      05  WRK-AUDIT-DATE              PIC  X(10) VALUE ZEROS.      DTSBR615
00088      05  WRK-AUDIT-DATE9 REDEFINES WRK-AUDIT-DATE.                DTSBR615
00089          10  WRK-AUDIT-MM            PIC  9(02).                  DTSBR615
00090          10  FILLER                  PIC  X.                      DTSBR615
00091          10  WRK-AUDIT-DD            PIC  9(02).                  DTSBR615
00092          10  FILLER                  PIC  X.                      DTSBR615
00093          10  WRK-AUDIT-YEAR          PIC  9(04).                  DTSBR615
00094                                                                   DTSBR615
00095      05  WRK-AUDIT-YRQ               PIC  9(5).                   DTSBR615
00096      05  WRK-AUDIT-YRQ9 REDEFINES WRK-AUDIT-YRQ.                  DTSBR615
00097          10  WRK-AUDIT-YR             PIC  9(04).                 DTSBR615
00098          10  WRK-AUDIT-Q              PIC  9(01).                 DTSBR615
00099                                                                   DTSBR615
00100      05  WRK-NOTICE-DATE.                                         DTSBR615
00101          10  WRK-NOTICE-YEAR          PIC  9(04).                 DTSBR615
00102          10  WRK-NOTICE-MM            PIC  9(02).                 DTSBR615
00103          10  WRK-NOTICE-DD            PIC  9(02).                 DTSBR615
00104                                                                   DTSBR615
00105      05  WRK-NOTICE-DATE9 REDEFINES                               DTSBR615
00106              WRK-NOTICE-DATE          PIC 9(8).                   DTSBR615
00107                                                                   DTSBR615
00108      05  WRK-DISPLAY                  PIC  9(11).                 DTSBR615
00109      05  FILLER REDEFINES WRK-DISPLAY.                            DTSBR615
00110          10  FILLER                   PIC  X(04).                 DTSBR615
00111          10  WRK-ASSIGN1              PIC  X(02).                 DTSBR615
00112          10  WRK-ASSIGN2              PIC  X(05).                 DTSBR615
00113      05  FILLER REDEFINES WRK-DISPLAY.                            DTSBR615
00114            10  FILLER                  PIC X(05).                 DTSBR615
00115            10  WRK-DISPLAY-HH          PIC X(02).                 DTSBR615
00116            10  WRK-DISPLAY-MM          PIC X(02).                 DTSBR615
00117            10  WRK-DISPLAY-SS          PIC X(02).                 DTSBR615
00118                                                                   DTSBR615
00119      05  FILLER                        PIC X(10).                 DTSBR615
00120                                                                   DTSBR615
00121  01  VSCA-LINE.                                                   DTSBR615
00122      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR615
00123                                                                   DTSBR615
00124      05  WS-FIELD-NAME-FIRST-MI      PIC  X(40)  VALUE SPACE.     DTSBR615
00125      05  WS-FIELD-NAME-LAST          PIC  X(40)  VALUE SPACE.     DTSBR615
00126      05  WS-ADDR-FMT-AREA            PIC  X(200) VALUE SPACE.     DTSBR615
00127      05  WS-ADDR-FMT-AREA-X REDEFINES WS-ADDR-FMT-AREA.           DTSBR615
00128          10  ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40).              DTSBR615
00129                                                                   DTSBR615
00130      EJECT                                                        DTSBR615
00131  01  L001-LINK-AREA.                                              DTSBR615
00132  ++INCLUDE DTSIL001                                               DTSBR615
00133      EJECT                                                        DTSBR615
00134  01  L002-LINK-AREA.                                              DTSBR615
00135  ++INCLUDE DTSIL002                                               DTSBR615
00136      EJECT                                                        DTSBR615
00137  01  L004-LINK-AREA.                                              DTSBR615
00138  ++INCLUDE DTSIL004                                               DTSBR615
00139      EJECT                                                        DTSBR615
00140  01  L062-LINK-AREA.                                              DTSBR615
00141  ++INCLUDE DTSIL062                                               DTSBR615
00142      EJECT                                                        DTSBR615
00143  01  L071-LINK-AREA.                                              DTSBR615
00144  ++INCLUDE DTSIL071                                               DTSBR615
00145      EJECT                                                        DTSBR615
00146  ++INCLUDE DTSXL615                                               DTSBR615
00147                                                                   DTSBR615
00148  01  XEROX-DETAIL-LINE1.                                          DTSBR615
00149          10  FILLER                      PIC  X(60)  VALUE SPACES.DTSBR615
00150          10  XRX-DATE                    PIC  X(30)  VALUE SPACES.DTSBR615
00151          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR615
00152                                                                   DTSBR615
00153  01  XEROX-DETAIL-LINE2.                                          DTSBR615
00154          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR615
00155          10  XRX-ADDRL1                  PIC  X(40)  VALUE SPACES.DTSBR615
00156  01  XEROX-DETAIL-LINE3.                                          DTSBR615
00157          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR615
00158          10  XRX-ADDRL2                  PIC  X(40)  VALUE SPACES.DTSBR615
00159  01  XEROX-DETAIL-LINE4.                                          DTSBR615
00160          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR615
00161          10  XRX-ADDRL3                  PIC  X(40)  VALUE SPACES.DTSBR615
00162  01  XEROX-DETAIL-LINE5.                                          DTSBR615
00163          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR615
00164          10  XRX-ADDRL4                  PIC  X(40)  VALUE SPACES.DTSBR615
00165  01  XEROX-DETAIL-LINE6.                                          DTSBR615
00166          10  FILLER                      PIC  X(05)  VALUE SPACES.DTSBR615
00167          10  XRX-ADDRL5                  PIC  X(40)  VALUE SPACES.DTSBR615
00168  01  XEROX-DETAIL-LINE7.                                          DTSBR615
00169          10  FILLER                      PIC  X(25)  VALUE SPACES.DTSBR615
00170          10  XRX-EMP-NO                  PIC  999B999.            DTSBR615
00171          10  FILLER                      PIC  X(38)  VALUE SPACES.DTSBR615
00172          10  XRX-ASSIGN-NO1              PIC  X(02).              DTSBR615
00173          10  FILLER                      PIC  X(01)  VALUE SPACES.DTSBR615
00174          10  XRX-ASSIGN-NO2              PIC  X(05).              DTSBR615
00175  01  XEROX-DETAIL-LINE8.                                          DTSBR615
00176          10  FILLER                      PIC  X(29)  VALUE SPACES.DTSBR615
00177          10  XRX-FLD-EXAM                PIC  X(32)  VALUE SPACES.DTSBR615
00178  01  XEROX-DETAIL-LINE9.                                          DTSBR615
00179          10  FILLER                      PIC  X(38)  VALUE SPACES.DTSBR615
00180          10  XRX-START-YR                PIC  9999.               DTSBR615
00181          10  FILLER                      PIC  X(22)  VALUE SPACES.DTSBR615
00182          10  XRX-END-YR                  PIC  9999.               DTSBR615
00183          10  FILLER                      PIC  X(01)  VALUE '.'.   DTSBR615
00184  01  XEROX-DETAIL-LINE95.                                         DTSBR615
00185          10  FILLER                      PIC  X(28)  VALUE SPACES.DTSBR615
00186          10  XRX-SCHED-DATE              PIC  X(30)  VALUE SPACES.DTSBR615
00187          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR615
00188                                                                   DTSBR615
00189  01  XEROX-DETAIL-LINE97.                                         DTSBR615
00190          10  FILLER                      PIC  X(28)  VALUE SPACES.DTSBR615
00191          10  XRX-SCHED-TIME.                                      DTSBR615
00192              15 XRX-TIME-HH              PIC  X(02)  VALUE SPACES.DTSBR615
00193              15 FILLER                   PIC  X(01)  VALUE ':'.   DTSBR615
00194              15 XRX-TIME-MM              PIC  X(02)  VALUE SPACES.DTSBR615
00195              15 FILLER                   PIC  X(01)  VALUE ' '.   DTSBR615
00196              15 XRX-TIME-AP              PIC  X(02)  VALUE SPACES.DTSBR615
00197          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR615
00198                                                                   DTSBR615
00199  01  XEROX-DETAIL-LINE96.                                         DTSBR615
00200          10  FILLER                      PIC  X(28)  VALUE SPACES.DTSBR615
00201          10  XRX-VISIT                   PIC  X(50)  VALUE SPACES.DTSBR615
00202          10  FILLER                      PIC  X(06)  VALUE SPACES.DTSBR615
00203                                                                   DTSBR615
00204  01  XEROX-DETAIL-LINE10.                                         DTSBR615
00205          10  FILLER                      PIC  X(53)  VALUE SPACES.DTSBR615
00206          10  XRX-FLD-REP                 PIC  X(32)  VALUE SPACES.DTSBR615
00207  01  XEROX-DETAIL-LINE11.                                         DTSBR615
00208          10  FILLER                      PIC  X(53)  VALUE SPACES.DTSBR615
00209          10  XRX-FLD-REP-AREA            PIC  X(03)  VALUE SPACES.DTSBR615
00210          10  FILLER                      PIC  X(01)  VALUE '.'.   DTSBR615
00211          10  XRX-FLD-REP-DIST            PIC  X(03)  VALUE SPACES.DTSBR615
00212          10  FILLER                      PIC  X(01)  VALUE '.'.   DTSBR615
00213          10  XRX-FLD-REP-PHONE           PIC  X(04)  VALUE SPACES.DTSBR615
00214          10  FILLER                      PIC  X(09)  VALUE SPACES.DTSBR615
00215                                                                   DTSBR615
00216      EJECT                                                        DTSBR615
00217  LINKAGE SECTION.                                                 DTSBR615
00218                                                                   DTSBR615
00219  01  LRCM-LINK-AREA.                                              DTSBR615
00220  ++INCLUDE DTSILRCM                                               DTSBR615
00221      EJECT                                                        DTSBR615
00222  01  R615-REC.                                                    DTSBR615
00223  ++INCLUDE DTSIR615                                               DTSBR615
00224      EJECT                                                        DTSBR615
00225  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR615
00226                           R615-REC.                               DTSBR615
00227      IF FIRST-TIME-IND = 'Y'                                      DTSBR615
00228          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR615
00229          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR615
00230                                                                   DTSBR615
00231      IF LRCM-EOR-88                                               DTSBR615
00232          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR615
00233      ELSE                                                         DTSBR615
00234          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR615
00235                                                                   DTSBR615
00236      GOBACK.                                                      DTSBR615
00237      EJECT                                                        DTSBR615
00238  I1000-INITIATE.                                                  DTSBR615
00239                                                                   DTSBR615
00240      OPEN OUTPUT PRT-FILE.                                        DTSBR615
00241      MOVE SPACES TO XEROX-REPORT.                                 DTSBR615
00242       WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE18               DTSBR615
00243           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR615
00244       WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE19               DTSBR615
00245       WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE20.              DTSBR615
00246                                                                   DTSBR615
00247                                                                   DTSBR615
00248  I1000-EXIT.                                                      DTSBR615
00249      EXIT.                                                        DTSBR615
00250                                                                   DTSBR615
00251  P1000-PROCESS.                                                   DTSBR615
00252         MOVE LRCM-SYS-8-DATE TO WRK-AUDIT-DATE.                   DTSBR615
00253         MOVE WRK-AUDIT-YEAR TO WRK-NOTICE-YEAR                    DTSBR615
00254         MOVE WRK-AUDIT-MM   TO WRK-NOTICE-MM                      DTSBR615
00255         MOVE WRK-AUDIT-DD   TO WRK-NOTICE-DD                      DTSBR615
00256         MOVE WRK-NOTICE-DATE9 TO L002-DATE.                       DTSBR615
00257         PERFORM S002-MIXED-CASE THRU S002-EXIT.                   DTSBR615
00258         MOVE L002-LONG-TEXT-AREA TO XRX-DATE.                     DTSBR615
00259                                                                   DTSBR615
00260         MOVE R615-AUDIT-SCHED-DATE TO L002-DATE.                  DTSBR615
00261         PERFORM S002-MIXED-CASE THRU S002-EXIT.                   DTSBR615
00262         MOVE L002-LONG-TEXT-AREA TO XRX-SCHED-DATE.               DTSBR615
00263                                                                   DTSBR615
00264         MOVE R615-AUDIT-SCHED-TIME TO WRK-DISPLAY.                DTSBR615
00265         DISPLAY 'TIME ' WRK-DISPLAY.                              DTSBR615
00266                                                                   DTSBR615
00267         MOVE WRK-DISPLAY-HH         TO XRX-TIME-HH.               DTSBR615
00268         MOVE WRK-DISPLAY-MM         TO XRX-TIME-MM.               DTSBR615
00269         IF XRX-TIME-HH < '12'                                     DTSBR615
00270            MOVE 'AM'               TO XRX-TIME-AP                 DTSBR615
00271         ELSE                                                      DTSBR615
00272            MOVE 'PM'               TO XRX-TIME-AP.                DTSBR615
00273                                                                   DTSBR615
00274         MOVE R615-AUDIT-START-YRQ TO WRK-AUDIT-YRQ.               DTSBR615
00275         MOVE WRK-AUDIT-YR TO XRX-START-YR.                        DTSBR615
00276                                                                   DTSBR615
00277         MOVE R615-AUDIT-END-YRQ TO WRK-AUDIT-YRQ.                 DTSBR615
00278         MOVE WRK-AUDIT-YR TO XRX-END-YR.                          DTSBR615
00279         MOVE R615-ASSIGN-NO    TO WRK-DISPLAY.                    DTSBR615
00280         MOVE WRK-ASSIGN1       TO XRX-ASSIGN-NO1.                 DTSBR615
00281         MOVE WRK-ASSIGN2       TO XRX-ASSIGN-NO2.                 DTSBR615
00282         MOVE R615-FMT-LINE (1) TO XRX-ADDRL1.                     DTSBR615
00283         MOVE R615-FMT-LINE (2) TO XRX-ADDRL2.                     DTSBR615
00284         MOVE R615-FMT-LINE (3) TO XRX-ADDRL3.                     DTSBR615
00285         MOVE R615-FMT-LINE (4) TO XRX-ADDRL4.                     DTSBR615
00286         MOVE R615-FMT-LINE (5) TO XRX-ADDRL5.                     DTSBR615
00287                                                                   DTSBR615
00288        STRING                                                     DTSBR615
00289           R615-FMT-LINE(4)    DELIMITED BY '  '                   DTSBR615
00290           ', '                DELIMITED BY SIZE                   DTSBR615
00291           R615-FMT-LINE(5)    DELIMITED BY '  '                   DTSBR615
00292           '.'                 DELIMITED BY SIZE                   DTSBR615
00293         INTO XRX-VISIT.                                           DTSBR615
00294                                                                   DTSBR615
00295         MOVE R615-EMP-NO  TO XRX-EMP-NO.                          DTSBR615
00296         MOVE R615-FIELD-REP-ID TO L062-FLD-REP-ID.                DTSBR615
00297         PERFORM S062-FLD-REP-LOOKUP THRU S062-EXIT.               DTSBR615
00298                                                                   DTSBR615
00299         MOVE L062-NAME TO L071-NAM                                DTSBR615
00300         SET L071-FROM-LAST-NAME-FIRST TO TRUE                     DTSBR615
00301         PERFORM S071-DESLASH-NAME THRU S071-EXIT                  DTSBR615
00302         MOVE L071-NAM TO XRX-FLD-REP                              DTSBR615
00303                          XRX-FLD-EXAM.                            DTSBR615
00304         MOVE L062-VOICE-1-AREA-CD TO XRX-FLD-REP-AREA             DTSBR615
00305         MOVE L062-VOICE-1-PREFIX  TO XRX-FLD-REP-DIST             DTSBR615
00306         MOVE L062-VOICE-1-SUFFIX  TO XRX-FLD-REP-PHONE.           DTSBR615
00307                                                                   DTSBR615
00308            WRITE XEROX-REPORT FROM VSCA-LINE                      DTSBR615
00309                     AFTER ADVANCING TOP-OF-PAGE                   DTSBR615
00310            WRITE XEROX-REPORT                                     DTSBR615
00311                     FROM VSCA-LINE AFTER ADVANCING 06.            DTSBR615
00312                                                                   DTSBR615
00313          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE1               DTSBR615
00314                  AFTER ADVANCING 7  LINE                          DTSBR615
00315          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE2               DTSBR615
00316                  AFTER ADVANCING 1  LINE                          DTSBR615
00317          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE3               DTSBR615
00318                  AFTER ADVANCING 1  LINE                          DTSBR615
00319          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE4               DTSBR615
00320                  AFTER ADVANCING 1  LINE                          DTSBR615
00321          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE5               DTSBR615
00322                  AFTER ADVANCING 1  LINE                          DTSBR615
00323          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE6               DTSBR615
00324                  AFTER ADVANCING 1  LINE                          DTSBR615
00325          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE7               DTSBR615
00326                  AFTER ADVANCING 3  LINE                          DTSBR615
00327          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE8               DTSBR615
00328                  AFTER ADVANCING 8  LINE                          DTSBR615
00329          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE9               DTSBR615
00330                  AFTER ADVANCING 1  LINE                          DTSBR615
00331          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE95              DTSBR615
00332                  AFTER ADVANCING 1  LINE                          DTSBR615
00333          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE97              DTSBR615
00334                  AFTER ADVANCING 1  LINE                          DTSBR615
00335          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE96              DTSBR615
00336                  AFTER ADVANCING 1  LINE                          DTSBR615
00337          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE10              DTSBR615
00338                  AFTER ADVANCING 22 LINE                          DTSBR615
00339          WRITE XEROX-REPORT FROM XEROX-DETAIL-LINE11              DTSBR615
00340                  AFTER ADVANCING 2  LINE.                         DTSBR615
00341                                                                   DTSBR615
00342  P1000-EXIT.                                                      DTSBR615
00343      EXIT.                                                        DTSBR615
00344                                                                   DTSBR615
00345  T1000-TERMINATE.                                                 DTSBR615
00346                                                                   DTSBR615
00347      CLOSE PRT-FILE.                                              DTSBR615
00348                                                                   DTSBR615
00349  T1000-EXIT.                                                      DTSBR615
00350      EXIT.                                                        DTSBR615
00351                                                                   DTSBR615
00352  S001-FROM-FED-8.                                                 DTSBR615
00353                                                                   DTSBR615
00354      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR615
00355                                                                   DTSBR615
00356      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR615
00357                                                                   DTSBR615
00358  S001-EXIT.                                                       DTSBR615
00359      EXIT.                                                        DTSBR615
00360  S002-MIXED-CASE.                                                 DTSBR615
00361       SET L002-UPPER-CASE TO TRUE.                                DTSBR615
00362       CALL 'DTSBU002' USING L002-LINK-AREA.                       DTSBR615
00363  S002-EXIT.                                                       DTSBR615
00364       EXIT.                                                       DTSBR615
00365       SKIP3                                                       DTSBR615
00366  S004-AUDIT-YRQ.                                                  DTSBR615
00367       CALL 'DTSBU004' USING L004-LINK-AREA.                       DTSBR615
00368  S004-EXIT.                                                       DTSBR615
00369       EXIT.                                                       DTSBR615
00370       SKIP3                                                       DTSBR615
00371                                                                   DTSBR615
00372  S062-FLD-REP-LOOKUP.                                             DTSBR615
00373                                                                   DTSBR615
00374      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR615
00375                                                                   DTSBR615
00376  S062-EXIT.                                                       DTSBR615
00377      EXIT.                                                        DTSBR615
00378                                                                   DTSBR615
00379  S071-DESLASH-NAME.                                               DTSBR615
00380       CALL 'DTSBU071' USING L071-LINK-AREA.                       DTSBR615
00381  S071-EXIT.                                                       DTSBR615
00382       EXIT.                                                       DTSBR615
00383       SKIP3                                                       DTSBR615
00384                                                                   DTSBR615
00385                                                                   DTSBR615
00386  S999-ABEND.                                                      DTSBR615
00387                                                                   DTSBR615
00388      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR615
00389                                                                   DTSBR615
00390  S999-EXIT.                                                       DTSBR615
00391      EXIT.                                                        DTSBR615
00392                                                                   DTSBR615
