00001  IDENTIFICATION DIVISION.                                         09/13/16
00002  PROGRAM-ID.             DTSBR303.                                DTSBR303
00003  AUTHOR.                 TRW S&ITG                                   LV076
00004  DATE-WRITTEN.           DECEMBER 1998                            DTSBR303
00005  DATE-COMPILED.                                                   DTSBR303
00006                                                                   DTSBR303
00007 *****                                                             DTSBR303
00008 *                                                                 DTSBR303
00009 *    CALLING SEQUENCE:  DTSBD300 CALLS DTSBD370                   DTSBR303
00010 *                                WHICH CALLS  DTSBD372            DTSBR303
00011 *                                WHICH CREATES DTSIR303 RECORDS.  DTSBR303
00012 *                       DTSBD800 CALLS DTSBR303                   DTSBR303
00013 *                                WHICH PRODUCES THE VOUCHER REPORTDTSBR303
00014 *                                                                 DTSBR303
00015 *    FUNCTION:  REVENUE REFUND VOUCHER.                           DTSBR303
00016 *                                                                 DTSBR303
00017 *                                                                 DTSBR303
00018 *    MODIFICATION HISTORY:                                        DTSBR303
00019 *                                                                 DTSBR303
00020 *                                                                 DTSBR303
00021 * 01-28-2008 MODIFIED TO PRODUCE AN OUTPUT FILE OF REFUNDS TO BE  DTSBR303
00022 *            TRANSMITTED THROUGH FTP TO THE CFO.                  DTSBR303
00023 *            REFERENCE RFP #****            AUTHOR OF CHANGE - GD DTSBR303
00024 *                                                                 DTSBR303
00025 * 07-22-2008 RECOMPILED WITH NEW VERSION OF DTSIX304 - ADDRESS    DTSBR303
00026 *            LINES REDUCED TO 30 BYTES.                           DTSBR303
00027 *            REFERENCE RFP #****            AUTHOR OF CHANGE - GD DTSBR303
00028 *                                                                 DTSBR303
00029 * 10-16-2008 CORRECTED X304-EFFECTIVE-DATE.  IT WAS BASED ON THE  DTSBR303
00030 *            FISCAL YEAR, BUT SHOULD BE THE SAME AS X303-BATCH-DATDTSBR303
00031 *            REFERENCE RFP #****            AUTHOR OF CHANGE - GD DTSBR303
00032 *                                                                 DTSBR303
00033 * 06-03-2009 ADDED P1200 TO ADD ANY PART OF THE SECOND ADDRESS    DTSBR303
00034 *            LINE THAT MIGHT BE TRUNCATED TO THE FIRST LINE.      DTSBR303
00035 *            REFERENCE RFP ENH139           AUTHOR OF CHANGE - GD DTSBR303
00036 *                                                                 DTSBR303
00037 * 06-19-2009 CORRECTED PROBLEM WITH ADDRESS: THE DAFRIN FORMAT    DTSBR303
00038 *            REQUIRES THAT THE FIRST STREET ADDRESS LINE BE USED  DTSBR303
00039 *            FIRST, WITH OVERFLOW GOING INTO THE SECOND LINE.     DTSBR303
00040 *            REFERENCE RFP                  AUTHOR OF CHANGE - GD DTSBR303
00041 *                                                                 DTSBR303
00042 * 09-16-2009 MODIFIED TO SET DOC DATE EQUAL TO BATCH DATE.        DTSBR303
00043 *            THE DOC DATE FIELD IS NOW REQUIRED.                  DTSBR303
00044 *            REFERENCE RFP                  AUTHOR OF CHANGE - GD DTSBR303
00045 *                                                                 DTSBR303
00046 * 02-02-2010 RECOMPILED FOR CHANGE IN BANK ID FROM 121 TO 150.    DTSBR303
00047 *            THE ID IS HARD-CODED IN DTSIX304.                    DTSBR303
00048 *            REFERENCE; EMAIL FROM LASHAWN  AUTHOR OF CHANGE - GD DTSBR303
00049 * 07-20-2016 CORRECTED ISSUE WITH ADDRESS USING MOVE INSTEAD OF   DTSBR303
00050 *            PERFORM.                                             DTSBR303
00051 *            REFERENCE; MEETING WITH SIA    AUTHOR OF CHANGE - NH DTSBR303
00052 *                                                                 DTSBR303
00053 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR303
00054 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDTSBR303
00055 *            REFERENCE RFP #****            AUTHOR OF CHANGE - XXXDTSBR303
00056 *                                                                 DTSBR303
00057 *                                                                 DTSBR303
00058 *    DESCRIPTION:                                                 DTSBR303
00059 *                                                                 DTSBR303
00060 *        THIS MODULE PRODUCES PRINTOUTS OF REFUND VOUCHERS.       DTSBR303
00061 *                                                                 DTSBR303
00062 *                                                                 DTSBR303
00063 *    RECORDS READ:                                                DTSBR303
00064 *                                                                 DTSBR303
00065 *        DTSIR303.                                                DTSBR303
00066 *                                                                 DTSBR303
00067 *                                                                 DTSBR303
00068 *    PRINTED OUTPUTS:                                             DTSBR303
00069 *                                                                 DTSBR303
00070 *        DTSBR303 REFUND VOUCHER.                                 DTSBR303
00071 *                                                                 DTSBR303
00072 *                                                                 DTSBR303
00073 *    RECORDS WRITTEN:                                             DTSBR303
00074 *                                                                 DTSBR303
00075 *        NONE.                                                    DTSBR303
00076 *                                                                 DTSBR303
00077 *                                                                 DTSBR303
00078 *    MODULES CALLED:                                              DTSBR303
00079 *                                                                 DTSBR303
00080 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR303
00081 *                                                                 DTSBR303
00082 *****                                                             DTSBR303
00083      EJECT                                                        DTSBR303
00084  ENVIRONMENT DIVISION.                                            DTSBR303
00085                                                                   DTSBR303
00086  CONFIGURATION SECTION.                                           DTSBR303
00087  SPECIAL-NAMES.                                                   DTSBR303
00088      C01 IS TOP-OF-PAGE.                                          DTSBR303
00089  INPUT-OUTPUT SECTION.                                            DTSBR303
00090                                                                   DTSBR303
00091  FILE-CONTROL.                                                    DTSBR303
00092      SELECT CFO-FILE  ASSIGN TO RPT303R3.                         DTSBR303
00093      SELECT MEMO-FILE ASSIGN TO RPT303R2.                         DTSBR303
00094                                                                   DTSBR303
00095  DATA DIVISION.                                                   DTSBR303
00096                                                                   DTSBR303
00097  FILE SECTION.                                                    DTSBR303
00098  FD  CFO-FILE                                                     DTSBR303
00099      RECORDING MODE IS F                                          DTSBR303
00100      LABEL RECORDS ARE OMITTED                                    DTSBR303
00101      RECORD CONTAINS 750 CHARACTERS                               DTSBR303
00102      DATA RECORD IS PRINT-RCD.                                    DTSBR303
00103  01  CFO-RCD                     PIC X(750).                      DTSBR303
00104                                                                   DTSBR303
00105  FD  MEMO-FILE                                                    DTSBR303
00106      RECORDING MODE IS F                                          DTSBR303
00107      LABEL RECORDS ARE OMITTED                                    DTSBR303
00108      RECORD CONTAINS 133 CHARACTERS                               DTSBR303
00109      DATA RECORD IS MEMO-RCD.                                     DTSBR303
00110  01  MEMO-RCD                   PIC X(133).                       DTSBR303
00111      EJECT                                                        DTSBR303
00112  WORKING-STORAGE SECTION.                                         DTSBR303
001125 77  PAN-VALET PICTURE X(24) VALUE '076DTSBR303  09/13/16'.       DTSBR303
00113  77  PAN-VALET PICTURE X(24) VALUE '001DTSBR303  09/13/16'.       DTSBR303
00114  77  PAN-VALET PICTURE X(24) VALUE '074DTSBR303  09/13/16'.       DTSBR303
00115  77  PAN-VALET PICTURE X(24) VALUE '004DTSBR303  09/13/16'.       DTSBR303
00116  77  PAN-VALET PICTURE X(24) VALUE '072DTSBR303  02/02/10'.       DTSBR303
00117                                                                   DTSBR303
00118  01  WRK-AREA.                                                    DTSBR303
00119      05  WRK-ABEND-CD            PIC S9(04)    COMP  VALUE +303.  DTSBR303
00120      05  PROG-FIRST-TIME-IND     PIC  X(01)    VALUE 'Y'.         DTSBR303
00121          88  PROG-FIRST-TIME-YES-88  VALUE 'Y'.                   DTSBR303
00122          88  PROG-FIRST-TIME-NO-88   VALUE 'N'.                   DTSBR303
00123      05  FIRST-R303-IND          PIC  X(01)    VALUE 'Y'.         DTSBR303
00124          88  FIRST-R303-YES-88       VALUE 'Y'.                   DTSBR303
00125          88  FIRST-R303-NO-88        VALUE 'N'.                   DTSBR303
00126      05  WRK-FEIN                PIC S9(09)    VALUE ZEROS.       DTSBR303
00127      05  SUB1                    PIC S9(04) COMP.                 DTSBR303
00128      05  SUB2                    PIC S9(04) COMP.                 DTSBR303
00129      05  SUB3                    PIC S9(04) COMP.                 DTSBR303
00130      05  SUB4                    PIC S9(04) COMP.                 DTSBR303
00131      05  SUB5                    PIC S9(04) COMP.                 DTSBR303
00132      05  SUB6                    PIC S9(04) COMP.                 DTSBR303
00133      05  WRK-SUITE-FOUND-IND     PIC X(01).                       DTSBR303
00134          88  WRK-SUITE-FOUND-YES-88  VALUE 'Y'.                   DTSBR303
00135          88  WRK-SUITE-FOUND-NO-88   VALUE 'N'.                   DTSBR303
00136                                                                   DTSBR303
00137  01  WRK-KEY-CFO-DATA.                                            DTSBR303
00138      05  WRK-BATCH-DATE          PIC  9(08)    VALUE 0.           DTSBR303
00139      05  WRK-JUL-DATE            PIC  9(07).                      DTSBR303
00140      05  FILLER REDEFINES WRK-JUL-DATE.                           DTSBR303
00141          10  FILLER              PIC  X(02).                      DTSBR303
00142          10  WRK-SYSTEM-DATE     PIC  9(05).                      DTSBR303
00143      05  WRK-EFF-DATE            PIC  9(08)    VALUE 0.           DTSBR303
00144      05  WRK-CFO-BATCH           PIC  9(03)    VALUE 0.           DTSBR303
00145      05  WRK-MAX-SEQ             PIC  9(05)    VALUE 0.           DTSBR303
00146      05  WRK-TOT-REFUND          PIC  9(11)V99 VALUE 0.           DTSBR303
00147      05  WRK-EMP-NO              PIC  9(06).                      DTSBR303
00148                                                                   DTSBR303
00149  01  WRK-R309-AREA.                                               DTSBR303
00150      05  WS-CTR                  PIC S9(07)   COMP-3 VALUE ZEROS. DTSBR303
00151      05  WRK-R309-STMT-DATE      PIC  X(10)   VALUE SPACES.       DTSBR303
00152      05  WRK-R309-ADDR5          PIC  X(40)   VALUE SPACES.       DTSBR303
00153      05  WRK-R309-ADDR4          PIC  X(40)   VALUE SPACES.       DTSBR303
00154      05  WRK-R309-ADDR3          PIC  X(40)   VALUE SPACES.       DTSBR303
00155      05  WRK-R309-ADDR2          PIC  X(40)   VALUE SPACES.       DTSBR303
00156      05  WRK-R309-ADDR1          PIC  X(40)   VALUE SPACES.       DTSBR303
00157      05  WS-AMT                  PIC  X(14).                      DTSBR303
00158      05  WS-AMT-EDIT REDEFINES WS-AMT                             DTSBR303
00159                                  PIC  ZZZ,ZZZ,ZZ9.99.             DTSBR303
00160                                                                   DTSBR303
00161  01  WRK-HEADING-LINE.                                            DTSBR303
00162      05  FILLER                  PIC  X(01)    VALUE SPACE.       DTSBR303
00163  01  WRK-PRINT-LINE-1.                                            DTSBR303
00164      05  FILLER1                 PIC  X(75).                      DTSBR303
00165      05  WRK-ACCT-NUM            PIC  999B999.                    DTSBR303
00166      05  FILLER2                 PIC  X(35).                      DTSBR303
00167      05  WRK-VOUCHER-NUM         PIC  ZZZZZZZZ.                   DTSBR303
00168      05  FILLER3                 PIC  X(09).                      DTSBR303
00169  01  WRK-PRINT-LINE-2.                                            DTSBR303
00170      05  FILLER4                 PIC  X(72).                      DTSBR303
00171      05  WRK-EMPLOYER-NAME       PIC  X(40).                      DTSBR303
00172      05  FILLER5                 PIC  X(17).                      DTSBR303
00173  01  WRK-PRINT-LINE-3.                                            DTSBR303
00174      05  FILLER6                 PIC  X(41).                      DTSBR303
00175      05  WRK-TODAY-MONTH         PIC  X(02).                      DTSBR303
00176      05  FILLER7                 PIC  X(02).                      DTSBR303
00177      05  WRK-TODAY-DAY           PIC  X(02).                      DTSBR303
00178      05  FILLER8                 PIC  X(02).                      DTSBR303
00179      05  WRK-TODAY-YEAR          PIC  X(04).                      DTSBR303
00180  01  WRK-PRINT-LINE-3A.                                           DTSBR303
00181      05  FILLER9                 PIC  X(72).                      DTSBR303
00182      05  WRK-ADDRESS-1           PIC  X(40).                      DTSBR303
00183      05  FILLER10                PIC  X(27).                      DTSBR303
00184  01  WRK-PRINT-LINE-4.                                            DTSBR303
00185      05  FILLER11                PIC  X(73).                      DTSBR303
00186      05  WRK-ADDRESS-2           PIC  X(40).                      DTSBR303
00187      05  FILLER12                PIC  X(24).                      DTSBR303
00188  01  WRK-PRINT-LINE-5.                                            DTSBR303
00189      05  FILLER13                PIC  X(80).                      DTSBR303
00190      05  WRK-CITY                PIC  X(25).                      DTSBR303
00191      05  FILLER14                PIC  X(02).                      DTSBR303
00192      05  WRK-STATE               PIC  X(02).                      DTSBR303
00193      05  FILLER15                PIC  X(10).                      DTSBR303
00194      05  WRK-ZIP                 PIC  X(10).                      DTSBR303
00195      05  FILLER16                PIC  X(11).                      DTSBR303
00196  01  WRK-PRINT-LINE-6.                                            DTSBR303
00197      05  FILLER17                PIC  X(119).                     DTSBR303
00198      05  WRK-REFUND-AMT          PIC  --,---,--9.99.              DTSBR303
00199      05  FILLER18                PIC  X(02).                      DTSBR303
00200  01  WRK-PRINT-LINE-7.                                            DTSBR303
00201      05  FILLER19                PIC  X(119).                     DTSBR303
00202      05  WRK-TOTAL-AMT           PIC  --,---,--9.99.              DTSBR303
00203      05  FILLER20                PIC  X(02).                      DTSBR303
00204                                                                   DTSBR303
00205  01  C072-LINK-AREA.                                              DTSBR303
00206  ++INCLUDE DTSIC072                                               DTSBR303
00207                                                                   DTSBR303
00208  ++INCLUDE DTSXL303                                               DTSBR303
00209      EJECT                                                        DTSBR303
00210  ++INCLUDE DTSXD303                                               DTSBR303
00211      EJECT                                                        DTSBR303
00212  ++INCLUDE DTSXL30A                                               DTSBR303
00213      EJECT                                                        DTSBR303
00214  01  L001-LINK-AREA.                                              DTSBR303
00215  ++INCLUDE DTSIL001                                               DTSBR303
00216      EJECT                                                        DTSBR303
00217  01  L090-LINK-AREA.                                              DTSBR303
00218  ++INCLUDE DTSIL090                                               DTSBR303
00219      EJECT                                                        DTSBR303
00220  01  X303-REC.                                                    DTSBR303
00221  ++INCLUDE DTSIX303                                               DTSBR303
00222      EJECT                                                        DTSBR303
00223  01  X304-REC.                                                    DTSBR303
00224  ++INCLUDE DTSIX304                                               DTSBR303
00225      EJECT                                                        DTSBR303
00226      EJECT                                                        DTSBR303
00227  LINKAGE SECTION.                                                 DTSBR303
00228                                                                   DTSBR303
00229  01  LRCM-LINK-AREA.                                              DTSBR303
00230  ++INCLUDE DTSILRCM                                               DTSBR303
00231      EJECT                                                        DTSBR303
00232  01  R303-REC.                                                    DTSBR303
00233  ++INCLUDE DTSIR303                                               DTSBR303
00234      EJECT                                                        DTSBR303
00235  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR303
00236                           R303-REC.                               DTSBR303
00237                                                                   DTSBR303
00238      IF PROG-FIRST-TIME-YES-88                                    DTSBR303
00239          PERFORM I1000-INITIATE                                   DTSBR303
00240             THRU I1000-EXIT                                       DTSBR303
00241          SET PROG-FIRST-TIME-NO-88  TO TRUE                       DTSBR303
00242      END-IF.                                                      DTSBR303
00243                                                                   DTSBR303
00244      IF LRCM-EOR-88                                               DTSBR303
00245          PERFORM T1000-TERMINATE                                  DTSBR303
00246             THRU T1000-EXIT                                       DTSBR303
00247      ELSE                                                         DTSBR303
00248          PERFORM P1000-PROCESS                                    DTSBR303
00249             THRU P1000-EXIT.                                      DTSBR303
00250                                                                   DTSBR303
00251      GOBACK.                                                      DTSBR303
00252      EJECT                                                        DTSBR303
00253  I1000-INITIATE.                                                  DTSBR303
00254                                                                   DTSBR303
00255      OPEN OUTPUT CFO-FILE                                         DTSBR303
00256                  MEMO-FILE.                                       DTSBR303
00257                                                                   DTSBR303
00258      WRITE MEMO-RCD FROM LINE-13 AFTER 12.                        DTSBR303
00259      WRITE MEMO-RCD FROM LINE-14.                                 DTSBR303
00260      WRITE MEMO-RCD FROM LINE-15.                                 DTSBR303
00261      WRITE MEMO-RCD FROM LINE-16.                                 DTSBR303
00262      WRITE MEMO-RCD FROM LINE-17.                                 DTSBR303
00263      WRITE MEMO-RCD FROM XEROX-XD303-LINE1.                       DTSBR303
00264      WRITE MEMO-RCD FROM XEROX-XD303-LINE2.                       DTSBR303
00265  I1000-EXIT.                                                      DTSBR303
00266      EXIT.                                                        DTSBR303
00267      EJECT                                                        DTSBR303
00268  P1000-PROCESS.                                                   DTSBR303
00269      MOVE R303-CFO-AGENCY            TO X304-BATCH-AGY.           DTSBR303
00270      MOVE R303-CFO-TYPE              TO X304-BATCH-TYPE.          DTSBR303
00271      MOVE R303-CFO-REQUEST-DATE      TO L001-FED-8-DATE-9.        DTSBR303
00272      SET L001-FROM-FED-8             TO TRUE.                     DTSBR303
00273      PERFORM S001-DATE               THRU S001-EXIT.              DTSBR303
00274      MOVE L001-FED-8-DATE-X          TO X304-BATCH-DATE           DTSBR303
00275                                         X304-INVOICE-DATE         DTSBR303
00276                                         X304-DUE-DATE             DTSBR303
00277                                         X304-SERVICE-DATE         DTSBR303
00278                                         X304-EFFECTIVE-DATE       DTSBR303
00279                                         X304-DOC-DATE.            DTSBR303
00280      DISPLAY 'DOC DATE ' X304-DOC-DATE.                           DTSBR303
00281                                                                   DTSBR303
00282      IF L001-FED-8-MO = 10 OR 11 OR 12                            DTSBR303
00283         ADD 1                        TO L001-FED-8-YR             DTSBR303
00284         MOVE L001-FED-8-YR (3:2)     TO X304-APPN-YEAR            DTSBR303
00285      ELSE                                                         DTSBR303
00286         MOVE L001-FED-8-YR (3:2)     TO X304-APPN-YEAR            DTSBR303
00287      END-IF.                                                      DTSBR303
00288      MOVE X304-APPN-YEAR             TO X304-DOC-YEAR.            DTSBR303
00289      MOVE R303-CFO-BATCH-NO          TO X304-BATCH-NUMBER.        DTSBR303
00290      MOVE R303-CFO-SEQ-NO            TO X304-BATCH-SEQUENCE       DTSBR303
00291                                         WRK-MAX-SEQ.              DTSBR303
00292      MOVE R303-EMP-NO                TO WRK-EMP-NO.               DTSBR303
00293      STRING                                                       DTSBR303
00294        'EMP NBR ',                                                DTSBR303
00295        WRK-EMP-NO                                                 DTSBR303
00296      DELIMITED BY SIZE                                            DTSBR303
00297      INTO X304-INVOICE-NO.                                        DTSBR303
00298      MOVE R303-FEIN                  TO X304-FEIN.                DTSBR303
00299      MOVE R303-CURR-DOC-NO           TO X304-CURR-DOC-NO.         DTSBR303
00300 **   MOVE R303-CURR-DOC-NO-SFX       TO X304-CURR-DOC-NO-SFX.     DTSBR303
00301      MOVE R303-REFUND-AMT            TO X304-TRANS-AMT.           DTSBR303
00302      ADD  R303-REFUND-AMT            TO WRK-TOT-REFUND.           DTSBR303
00303      MOVE R303-PRIMARY-NAME (1:30)   TO X304-VENDOR-NAME.         DTSBR303
00304 ***COMMENTING OUT THE P1200 ADDRESS AND USING THE MOVES INSTEAD   DTSBR303
00305 **   PERFORM P1200-ADDRESS           THRU P1200-EXIT.             DTSBR303
00306      IF R303-DELIV-LINE-1 > SPACES                                DTSBR303
00307      MOVE R303-DELIV-LINE-1 (1:30)   TO X304-VENDOR-ADDR-1        DTSBR303
00308      MOVE R303-DELIV-LINE-2 (1:30)   TO X304-VENDOR-ADDR-2        DTSBR303
00309      ELSE                                                         DTSBR303
00310         IF R303-DELIV-LINE-1 = SPACES                             DTSBR303
00311      MOVE R303-DELIV-LINE-2 (1:30)   TO X304-VENDOR-ADDR-1        DTSBR303
00312      MOVE R303-DELIV-LINE-1 (1:30)   TO X304-VENDOR-ADDR-2        DTSBR303
00313         END-IF                                                    DTSBR303
00314      END-IF.                                                      DTSBR303
00315 ***COMMENTING OUT THE P1200 ADDRESS AND USING THE MOVES INSTEAD   DTSBR303
00316      MOVE SPACES                     TO X304-VENDOR-ADDR-3        DTSBR303
00317                                         X304-VENDOR-ADDR-4.       DTSBR303
00318      MOVE R303-CITY                  TO X304-VENDOR-CITY.         DTSBR303
00319      MOVE R303-ST                    TO X304-VENDOR-STATE.        DTSBR303
00320      MOVE R303-ZIP (1:5)             TO X304-VENDOR-ZIP-1-5.      DTSBR303
00321      MOVE R303-ZIP (7:4)             TO X304-VENDOR-ZIP-6-9.      DTSBR303
00322      MOVE R303-ST                    TO C072-ST.                  DTSBR303
00323      IF C072-US-88                                                DTSBR303
00324         MOVE 'US'                    TO X304-COUNTRY-CODE         DTSBR303
00325      ELSE                                                         DTSBR303
00326         IF C072-CANADA-88                                         DTSBR303
00327            MOVE 'CN'                 TO X304-COUNTRY-CODE         DTSBR303
00328         ELSE                                                      DTSBR303
00329            MOVE SPACES               TO X304-COUNTRY-CODE         DTSBR303
00330         END-IF                                                    DTSBR303
00331      END-IF.                                                      DTSBR303
00332                                                                   DTSBR303
00333      WRITE CFO-RCD                   FROM X304-REC.               DTSBR303
00334                                                                   DTSBR303
00335      IF FIRST-R303-YES-88                                         DTSBR303
00336         PERFORM P1100-SAVE-KEY-DATA  THRU P1100-EXIT              DTSBR303
00337         SET FIRST-R303-NO-88        TO TRUE                       DTSBR303
00338      END-IF.                                                      DTSBR303
00339                                                                   DTSBR303
00340      MOVE R303-FMT-LINE(1)           TO WRK-R309-ADDR1.           DTSBR303
00341      MOVE R303-FMT-LINE(2)           TO WRK-R309-ADDR2.           DTSBR303
00342      MOVE R303-FMT-LINE(3)           TO WRK-R309-ADDR3.           DTSBR303
00343      MOVE R303-FMT-LINE(4)           TO WRK-R309-ADDR4.           DTSBR303
00344      MOVE R303-FMT-LINE(5)           TO WRK-R309-ADDR5.           DTSBR303
00345      MOVE R303-EMP-NO                TO WRK-ACCT-NUM.             DTSBR303
00346      MOVE R303-FEIN                  TO WRK-FEIN.                 DTSBR303
00347      SET  L001-FROM-FED-8            TO TRUE.                     DTSBR303
00348      MOVE R303-CURR-MAIL-DATE        TO L001-FED-8-DATE-9.        DTSBR303
00349      PERFORM S001-DATE               THRU S001-EXIT.              DTSBR303
00350      MOVE L001-FED-6-YR              TO WRK-TODAY-YEAR.           DTSBR303
00351      MOVE L001-FED-6-DA              TO WRK-TODAY-DAY.            DTSBR303
00352      MOVE L001-FED-6-MO              TO WRK-TODAY-MONTH.          DTSBR303
00353      MOVE L001-SLASH-8-DATE          TO WRK-R309-STMT-DATE.       DTSBR303
00354      MOVE R303-REFUND-AMT            TO WS-AMT-EDIT.              DTSBR303
00355      PERFORM S2000-WRITE-CREDIT-MEMO THRU S2000-EXIT.             DTSBR303
00356                                                                   DTSBR303
00357      DISPLAY SPACE.                                               DTSBR303
00358      DISPLAY 'X304 DETAIL'.                                       DTSBR303
00359      DISPLAY '   BATCH NO    ' X304-BATCH-NUMBER.                 DTSBR303
00360      DISPLAY '   DOC DATE    ' X304-DOC-DATE.                     DTSBR303
00361      DISPLAY '   DOC NO      ' X304-CURR-DOC-NO.                  DTSBR303
00362      DISPLAY '   SEQUENCE    ' X304-BATCH-SEQUENCE.               DTSBR303
00363      DISPLAY '   REFUND      ' X304-TRANS-AMT.                    DTSBR303
00364                                                                   DTSBR303
00365  P1000-EXIT.                                                      DTSBR303
00366      EXIT.                                                        DTSBR303
00367                                                                   DTSBR303
00368  P1100-SAVE-KEY-DATA.                                             DTSBR303
00369      MOVE X304-BATCH-DATE            TO WRK-BATCH-DATE.           DTSBR303
00370      MOVE X304-EFFECTIVE-DATE        TO WRK-EFF-DATE.             DTSBR303
00371      MOVE X304-BATCH-DATE            TO L001-FED-8-DATE-9.        DTSBR303
00372      SET L001-FROM-FED-8             TO TRUE.                     DTSBR303
00373      PERFORM S001-DATE               THRU S001-EXIT.              DTSBR303
00374      MOVE L001-JUL-DATE              TO WRK-JUL-DATE.             DTSBR303
00375      MOVE X304-BATCH-NUMBER          TO WRK-CFO-BATCH.            DTSBR303
00376                                                                   DTSBR303
00377  P1100-EXIT.                                                      DTSBR303
00378      EXIT.                                                        DTSBR303
00379                                                                   DTSBR303
00380  P1200-ADDRESS.                                                   DTSBR303
00381      SET WRK-SUITE-FOUND-NO-88          TO TRUE.                  DTSBR303
00382      MOVE +0                            TO SUB2                   DTSBR303
00383                                            SUB3                   DTSBR303
00384                                            SUB4                   DTSBR303
00385                                            SUB5                   DTSBR303
00386                                            SUB6.                  DTSBR303
00387                                                                   DTSBR303
00388      PERFORM                                                      DTSBR303
00389        VARYING SUB1 FROM +1 BY +1                                 DTSBR303
00390        UNTIL SUB1 > +40                                           DTSBR303
00391          IF WRK-SUITE-FOUND-NO-88                                 DTSBR303
00392            IF R303-DELIV-LINE-2 (SUB1:4) = 'STE '                 DTSBR303
00393              SET WRK-SUITE-FOUND-YES-88   TO TRUE                 DTSBR303
00394              MOVE SUB1                    TO SUB6                 DTSBR303
00395            END-IF                                                 DTSBR303
00396          END-IF                                                   DTSBR303
00397          IF R303-DELIV-LINE-2 (SUB1:1) = SPACE                    DTSBR303
00398            IF SUB1 <= 30                                          DTSBR303
00399               MOVE SUB1                   TO SUB2                 DTSBR303
00400            END-IF                                                 DTSBR303
00401          ELSE                                                     DTSBR303
00402            IF R303-DELIV-LINE-2 (SUB1:1) > SPACE                  DTSBR303
00403              MOVE SUB1                    TO SUB3                 DTSBR303
00404            END-IF                                                 DTSBR303
00405          END-IF                                                   DTSBR303
00406      END-PERFORM.                                                 DTSBR303
00407                                                                   DTSBR303
00408      IF SUB3 > +30                                                DTSBR303
00409         IF SUB6 > 1                                               DTSBR303
00410           SUBTRACT +1 FROM SUB6                                   DTSBR303
00411           IF SUB6 < SUB2                                          DTSBR303
00412              MOVE SUB6 TO SUB2                                    DTSBR303
00413           END-IF                                                  DTSBR303
00414         END-IF                                                    DTSBR303
00415         MOVE R303-DELIV-LINE-2 (1:SUB2) TO X304-VENDOR-ADDR-1     DTSBR303
00416         COMPUTE SUB1 = SUB3 - SUB2 + 1                            DTSBR303
00417         PERFORM                                                   DTSBR303
00418           VARYING SUB4 FROM +1 BY +1                              DTSBR303
00419           UNTIL SUB4 > +40                                        DTSBR303
00420             IF R303-DELIV-LINE-1 (SUB4:1) NOT = SPACE             DTSBR303
00421                MOVE SUB4       TO SUB5                            DTSBR303
00422             END-IF                                                DTSBR303
00423         END-PERFORM                                               DTSBR303
00424         STRING                                                    DTSBR303
00425           R303-DELIV-LINE-2 (SUB2:SUB1)                           DTSBR303
00426           ' '                                                     DTSBR303
00427           R303-DELIV-LINE-1 (1:SUB5)                              DTSBR303
00428           DELIMITED BY SIZE                                       DTSBR303
00429           INTO X304-VENDOR-ADDR-2                                 DTSBR303
00430         END-STRING                                                DTSBR303
00431      ELSE                                                         DTSBR303
00432         MOVE R303-DELIV-LINE-1 (1:30) TO X304-VENDOR-ADDR-2       DTSBR303
00433         MOVE R303-DELIV-LINE-2 (1:30) TO X304-VENDOR-ADDR-1       DTSBR303
00434      END-IF.                                                      DTSBR303
00435                                                                   DTSBR303
00436  P1200-EXIT.                                                      DTSBR303
00437      EXIT.                                                        DTSBR303
00438                                                                   DTSBR303
00439  T1000-TERMINATE.                                                 DTSBR303
00440      MOVE WRK-BATCH-DATE           TO X303-BATCH-DATE             DTSBR303
00441      MOVE WRK-CFO-BATCH            TO X303-BATCH-NO.              DTSBR303
00442      MOVE ZERO                     TO X303-BATCH-SEQ-NO.          DTSBR303
00443      MOVE WRK-EFF-DATE             TO X303-BATCH-EFF-DATE.        DTSBR303
00444      MOVE WRK-MAX-SEQ              TO X303-BATCH-LAST-SEQ-NO      DTSBR303
00445                                       X303-ENTERED-BATCH-CNT-N.   DTSBR303
00446      MOVE WRK-SYSTEM-DATE          TO X303-BATCH-SYSTEM-DATE.     DTSBR303
00447      MOVE WRK-TOT-REFUND           TO X303-ENTERED-BATCH-AMT-N.   DTSBR303
00448                                                                   DTSBR303
00449      WRITE CFO-RCD                 FROM X303-REC.                 DTSBR303
00450      DISPLAY SPACE.                                               DTSBR303
00451      DISPLAY 'X303 HEADER'.                                       DTSBR303
00452      DISPLAY '   BATCH NO    ' X303-BATCH-NO.                     DTSBR303
00453      DISPLAY '   SYSTEM DATE ' X303-BATCH-SYSTEM-DATE.            DTSBR303
00454      DISPLAY '   LAST SEQ    ' X303-BATCH-LAST-SEQ-NO.            DTSBR303
00455      DISPLAY '   TOT REFUND  ' X303-ENTERED-BATCH-AMT-N.          DTSBR303
00456                                                                   DTSBR303
00457      CLOSE CFO-FILE                                               DTSBR303
00458            MEMO-FILE.                                             DTSBR303
00459                                                                   DTSBR303
00460  T1000-EXIT.                                                      DTSBR303
00461      EXIT.                                                        DTSBR303
00462      EJECT                                                        DTSBR303
00463                                                                   DTSBR303
00464  S2000-WRITE-CREDIT-MEMO.                                         DTSBR303
00465                                                                   DTSBR303
00466      MOVE WRK-R309-ADDR1        TO MSH-FMT-LINE-1.                DTSBR303
00467      MOVE WRK-R309-ADDR2        TO MSH-FMT-LINE-2.                DTSBR303
00468      MOVE WRK-R309-ADDR3        TO MSH-FMT-LINE-3.                DTSBR303
00469      MOVE WRK-R309-ADDR4        TO MSH-FMT-LINE-4.                DTSBR303
00470      MOVE WRK-R309-ADDR5        TO MSH-FMT-LINE-5.                DTSBR303
00471      MOVE WRK-ACCT-NUM          TO MSH-EMP-NO.                    DTSBR303
00472      MOVE WRK-FEIN              TO MSH-EMP-FEIN.                  DTSBR303
00473      MOVE WRK-R309-STMT-DATE    TO MSH-STMT-DATE.                 DTSBR303
00474      WRITE MEMO-RCD FROM BLANK-LINE AFTER                         DTSBR303
00475              ADVANCING TOP-OF-PAGE.                               DTSBR303
00476      WRITE MEMO-RCD FROM BLANK-LINE AFTER ADVANCING 10 LINE.      DTSBR303
00477      WRITE MEMO-RCD FROM MSH-LINE-12 AFTER ADVANCING 1 LINE.      DTSBR303
00478      WRITE MEMO-RCD FROM MSH-LINE-13 AFTER ADVANCING 1 LINE.      DTSBR303
00479      WRITE MEMO-RCD FROM MSH-LINE-14 AFTER ADVANCING 1 LINE.      DTSBR303
00480      WRITE MEMO-RCD FROM MSH-LINE-15 AFTER ADVANCING 1 LINE.      DTSBR303
00481      WRITE MEMO-RCD FROM MSH-LINE-16 AFTER ADVANCING 1 LINE.      DTSBR303
00482      WRITE MEMO-RCD FROM MSH-LINE-17 AFTER ADVANCING 1 LINE.      DTSBR303
00483      WRITE MEMO-RCD FROM MSH-LINE-18 AFTER ADVANCING 1 LINE.      DTSBR303
00484                                                                   DTSBR303
00485      MOVE 'YOUR ACCOUNT HAS A CREDIT BALANCE OF $'                DTSBR303
00486         TO L090-PHRASE-TABLE (1).                                 DTSBR303
00487                                                                   DTSBR303
00488      MOVE +0 TO WS-CTR.                                           DTSBR303
00489      INSPECT WS-AMT TALLYING WS-CTR FOR LEADING SPACES.           DTSBR303
00490      MOVE WS-AMT (WS-CTR + 1:) TO L090-PHRASE-TABLE (2).          DTSBR303
00491                                                                   DTSBR303
00492      MOVE '.  YOU EITHER NEED TO DEDUCT THIS AMOUNT'              DTSBR303
00493         TO L090-PHRASE-TABLE (3).                                 DTSBR303
00494      MOVE 'FROM YOUR NEXT UNEMPLOYMENT INSURANCE'                 DTSBR303
00495         TO L090-PHRASE-TABLE (4).                                 DTSBR303
00496      MOVE 'EMPLOYER''S QUARTERLY WAGE REPORT'                     DTSBR303
00497         TO L090-PHRASE-TABLE (5).                                 DTSBR303
00498      MOVE 'OR REQUEST A REFUND.  TO REQUEST A REFUND,'            DTSBR303
00499         TO L090-PHRASE-TABLE (6).                                 DTSBR303
00500      MOVE 'SIGN BELOW AND RETURN THIS FORM TO THE'                DTSBR303
00501         TO L090-PHRASE-TABLE (7).                                 DTSBR303
00502      MOVE 'DISTRICT''S UNEMPLOYMENT INSURANCE DIVISION.'          DTSBR303
00503         TO L090-PHRASE-TABLE (8).                                 DTSBR303
00504      MOVE +8 TO L090-PHRASE-CNT.                                  DTSBR303
00505      MOVE +77 TO L090-DESIRED-LINE-LIMIT.                         DTSBR303
00506      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR303
00507                                                                   DTSBR303
00508      MOVE L090-PARAGRAPH-LINE (1) TO MSF-PARA-LINE-1.             DTSBR303
00509      MOVE L090-PARAGRAPH-LINE (2) TO MSF-PARA-LINE-2.             DTSBR303
00510      MOVE L090-PARAGRAPH-LINE (3) TO MSF-PARA-LINE-3.             DTSBR303
00511      MOVE L090-PARAGRAPH-LINE (4) TO MSF-PARA-LINE-4.             DTSBR303
00512      WRITE MEMO-RCD FROM BLANK-LINE  AFTER ADVANCING 7 LINE.      DTSBR303
00513      WRITE MEMO-RCD FROM MSF-LINE-26 AFTER ADVANCING 1 LINE.      DTSBR303
00514      WRITE MEMO-RCD FROM MSF-LINE-27 AFTER ADVANCING 1 LINE.      DTSBR303
00515      WRITE MEMO-RCD FROM MSF-LINE-28 AFTER ADVANCING 1 LINE.      DTSBR303
00516      WRITE MEMO-RCD FROM MSF-LINE-29 AFTER ADVANCING 1 LINE.      DTSBR303
00517      WRITE MEMO-RCD FROM MSF-LINE-30 AFTER ADVANCING 1 LINE.      DTSBR303
00518      WRITE MEMO-RCD FROM MSF-LINE-31 AFTER ADVANCING 1 LINE.      DTSBR303
00519      WRITE MEMO-RCD FROM MSF-LINE-32 AFTER ADVANCING 1 LINE.      DTSBR303
00520      WRITE MEMO-RCD FROM MSF-LINE-33 AFTER ADVANCING 1 LINE.      DTSBR303
00521      WRITE MEMO-RCD FROM MSF-LINE-34 AFTER ADVANCING 1 LINE.      DTSBR303
00522      WRITE MEMO-RCD FROM MSF-LINE-37 AFTER ADVANCING 1 LINE.      DTSBR303
00523      WRITE MEMO-RCD FROM MSF-LINE-38 AFTER ADVANCING 1 LINE.      DTSBR303
00524      WRITE MEMO-RCD FROM MSF-LINE-39 AFTER ADVANCING 1 LINE.      DTSBR303
00525      WRITE MEMO-RCD FROM MSF-LINE-40 AFTER ADVANCING 1 LINE.      DTSBR303
00526      WRITE MEMO-RCD FROM MSF-LINE-41 AFTER ADVANCING 1 LINE.      DTSBR303
00527      WRITE MEMO-RCD FROM MSF-LINE-42 AFTER ADVANCING 1 LINE.      DTSBR303
00528      WRITE MEMO-RCD FROM MSF-LINE-43 AFTER ADVANCING 1 LINE.      DTSBR303
00529      WRITE MEMO-RCD FROM MSF-LINE-44 AFTER ADVANCING 1 LINE.      DTSBR303
00530      WRITE MEMO-RCD FROM MSF-LINE-45 AFTER ADVANCING 1 LINE.      DTSBR303
00531      WRITE MEMO-RCD FROM MSF-LINE-46 AFTER ADVANCING 1 LINE.      DTSBR303
00532      WRITE MEMO-RCD FROM MSF-LINE-47 AFTER ADVANCING 1 LINE.      DTSBR303
00533      WRITE MEMO-RCD FROM MSF-LINE-48 AFTER ADVANCING 1 LINE.      DTSBR303
00534      WRITE MEMO-RCD FROM MSF-LINE-49 AFTER ADVANCING 1 LINE.      DTSBR303
00535      WRITE MEMO-RCD FROM MSF-LINE-50 AFTER ADVANCING 1 LINE.      DTSBR303
00536      WRITE MEMO-RCD FROM MSF-LINE-51 AFTER ADVANCING 1 LINE.      DTSBR303
00537                                                                   DTSBR303
00538                                                                   DTSBR303
00539  S2000-EXIT.                                                      DTSBR303
00540      EXIT.                                                        DTSBR303
00541      EJECT                                                        DTSBR303
00542  S001-DATE.                                                       DTSBR303
00543                                                                   DTSBR303
00544      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR303
00545                                                                   DTSBR303
00546  S001-EXIT.                                                       DTSBR303
00547      EXIT.                                                        DTSBR303
00548                                                                   DTSBR303
00549  S090-PARAGRAPH-FORMAT.                                           DTSBR303
00550      SKIP1                                                        DTSBR303
00551      MOVE +0 TO L090-INDENT.                                      DTSBR303
00552      SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                        DTSBR303
00553                                                                   DTSBR303
00554      CALL 'DTSBU090' USING L090-LINK-AREA.                        DTSBR303
00555      SKIP2                                                        DTSBR303
00556  S090-EXIT.                                                       DTSBR303
00557 *S999-ABEND.                                                      DTSBR303
00558 *                                                                 DTSBR303
00559 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR303
00560 *                                                                 DTSBR303
00561 *S999-EXIT.                                                       DTSBR303
00562 *    EXIT.                                                        DTSBR303
