00001  IDENTIFICATION DIVISION.                                         07/10/08
00002  PROGRAM-ID.             DTSBX306.                                DTSBX306
00003  AUTHOR.                 NGC.                                        LV001
00004  DATE-WRITTEN.           JULY 2008                                DTSBX306
00005  DATE-COMPILED.                                                   DTSBX306
00006                                                                   DTSBX306
00007 *****                                                             DTSBX306
00008 *                                                                 DTSBX306
00009 *    FUNCTION:  WRITE A DUMMY RECORD TO THE X306 FILE             DTSBX306
00010 *               WHICH CONTAINS DATA ABOUT REFUNDS SENT            DTSBX306
00011 *               TO THE CFO.  THE PROGRAM WRITES A DUMMY           DTSBX306
00012 *               RECORD ONLY IF THE FILE IS EMPTY.                 DTSBX306
00013 *               THE DUMMY RECORD IS NEEDED BECAUSE THE            DTSBX306
00014 *               FTP PROCESS THAT SENDS THE FILE TO THE SERVER     DTSBX306
00015 *               WILL FAIL IF THE FILE IS EMPTY.                   DTSBX306
00016 *                                                                 DTSBX306
00017 *    MODIFICATION LOG:                                            DTSBX306
00018 *                                                                 DTSBX306
00019 *    07/10/2008  INITIAL DEVELOPMENT                              DTSBX306
00020 *                REFERENCE:                     PROGRAMMER: RW1   DTSBX306
00021 *                                                                 DTSBX306
00022 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX306
00023 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX306
00024 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBX306
00025 *                                                                 DTSBX306
00026 *                                                                 DTSBX306
00027 *    DESCRIPTION:                                                 DTSBX306
00028 *                                                                 DTSBX306
00029 *        DTSBU192 READS  INPUT REFUND FILE AND COPY TO PROD       DTSBX306
00030 *        OUTPUT FILE FOR PROCESSING.                              DTSBX306
00031 *                                                                 DTSBX306
00032 *                                                                 DTSBX306
00033 *****                                                             DTSBX306
00034                                                                   DTSBX306
00035  ENVIRONMENT DIVISION.                                            DTSBX306
00036                                                                   DTSBX306
00037  INPUT-OUTPUT SECTION.                                            DTSBX306
00038                                                                   DTSBX306
00039  FILE-CONTROL.                                                    DTSBX306
00040                                                                   DTSBX306
00041      SELECT X306-FILE ASSIGN TO DTSFX306                          DTSBX306
00042          FILE STATUS IS X306-STATUS.                              DTSBX306
00043                                                                   DTSBX306
00044  DATA DIVISION.                                                   DTSBX306
00045                                                                   DTSBX306
00046  FILE SECTION.                                                    DTSBX306
00047                                                                   DTSBX306
00048  FD  X306-FILE                                                    DTSBX306
00049      RECORDING MODE IS F                                          DTSBX306
00050      BLOCK CONTAINS 0 RECORDS.                                    DTSBX306
00051                                                                   DTSBX306
00052  01  X306-REC                     PIC X(109).                     DTSBX306
00053                                                                   DTSBX306
00054  WORKING-STORAGE SECTION.                                         DTSBX306
000545 77  PAN-VALET PICTURE X(24) VALUE '001DTSBX306  07/10/08'.       DTSBX306
00055                                                                   DTSBX306
00056  01  WRK-AREA.                                                    DTSBX306
00057      05  WRK-ABEND-CD             PIC S9(04)  COMP VALUE +306.    DTSBX306
00058      05  WRK-MOD-NAME             PIC  X(08)  VALUE 'DTSBX306'.   DTSBX306
00059                                                                   DTSBX306
00060      05  X306-STATUS              PIC  X(02).                     DTSBX306
00061          88  X306-STATUS-OK-88      VALUE '00'.                   DTSBX306
00062          88  X306-STATUS-EOF-88     VALUE '10'.                   DTSBX306
00063                                                                   DTSBX306
00064  01  WRK-X306-REC.                                                DTSBX306
00065  ++INCLUDE DTSIX306                                               DTSBX306
00066                                                                   DTSBX306
00067  PROCEDURE DIVISION.                                              DTSBX306
00068                                                                   DTSBX306
00069  DTSBX306-MAINLINE.                                               DTSBX306
00070      PERFORM I0000-INITIATE       THRU I0000-EXIT.                DTSBX306
00071                                                                   DTSBX306
00072      PERFORM P0000-CHECK-FILE     THRU P0000-EXIT.                DTSBX306
00073                                                                   DTSBX306
00074      PERFORM T0000-TERMINATE      THRU T0000-EXIT.                DTSBX306
00075                                                                   DTSBX306
00076  DTSBX306-MAINLINE-EXIT.                                          DTSBX306
00077      GOBACK.                                                      DTSBX306
00078                                                                   DTSBX306
00079  I0000-INITIATE.                                                  DTSBX306
00080      OPEN INPUT    X306-FILE.                                     DTSBX306
00081      IF X306-STATUS-OK-88                                         DTSBX306
00082         NEXT SENTENCE                                             DTSBX306
00083      ELSE                                                         DTSBX306
00084         DISPLAY 'CANNOT OPEN X306 FILE '                          DTSBX306
00085            X306-STATUS                                            DTSBX306
00086         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX306
00087      END-IF.                                                      DTSBX306
00088                                                                   DTSBX306
00089                                                                   DTSBX306
00090  I0000-EXIT.                                                      DTSBX306
00091      EXIT.                                                        DTSBX306
00092                                                                   DTSBX306
00093  P0000-CHECK-FILE.                                                DTSBX306
00094      READ X306-FILE.                                              DTSBX306
00095      IF X306-STATUS-EOF-88                                        DTSBX306
00096         PERFORM P1000-WRITE-DUMMY        THRU P1000-EXIT          DTSBX306
00097      END-IF.                                                      DTSBX306
00098                                                                   DTSBX306
00099  P0000-EXIT.                                                      DTSBX306
00100      EXIT.                                                        DTSBX306
00101                                                                   DTSBX306
00102  P1000-WRITE-DUMMY.                                               DTSBX306
00103      PERFORM P1100-OPEN-OUTPUT    THRU P1100-EXIT.                DTSBX306
00104      PERFORM P1200-WRITE-RECORD   THRU P1200-EXIT.                DTSBX306
00105                                                                   DTSBX306
00106  P1000-EXIT.                                                      DTSBX306
00107      EXIT.                                                        DTSBX306
00108                                                                   DTSBX306
00109  P1100-OPEN-OUTPUT.                                               DTSBX306
00110      CLOSE X306-FILE.                                             DTSBX306
00111                                                                   DTSBX306
00112      OPEN OUTPUT   X306-FILE.                                     DTSBX306
00113      IF X306-STATUS-OK-88                                         DTSBX306
00114         NEXT SENTENCE                                             DTSBX306
00115      ELSE                                                         DTSBX306
00116         DISPLAY 'CANNOT OPEN X306 FILE - OUTPUT '                 DTSBX306
00117            X306-STATUS                                            DTSBX306
00118         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX306
00119      END-IF.                                                      DTSBX306
00120                                                                   DTSBX306
00121  P1100-EXIT.                                                      DTSBX306
00122      EXIT.                                                        DTSBX306
00123                                                                   DTSBX306
00124  P1200-WRITE-RECORD.                                              DTSBX306
00125      MOVE '9'                     TO X306-TYPE.                   DTSBX306
00126      MOVE ZEROS                   TO X306-EMP-NO                  DTSBX306
00127                                      X306-TAX-BATCH               DTSBX306
00128                                      X306-TAX-ITEM                DTSBX306
00129                                      X306-APPLIC-BATCH            DTSBX306
00130                                      X306-APPLIC-ITEM.            DTSBX306
00131      MOVE SPACES                  TO X306-BATCH-AGY               DTSBX306
00132                                      X306-BATCH-TYPE              DTSBX306
00133                                      X306-BATCH-DATE.             DTSBX306
00134      MOVE ZEROS                   TO X306-BATCH-NUMBER            DTSBX306
00135                                      X306-BATCH-SEQUENCE          DTSBX306
00136                                      X306-CURR-DOC-NO             DTSBX306
00137                                      X306-CURR-DOC-NO-SFX.        DTSBX306
00138      MOVE SPACES                  TO X306-OPID                    DTSBX306
00139                                      X306-CHECK-DATE              DTSBX306
00140                                      X306-CHECK-NO                DTSBX306
00141                                      X306-APPROVAL-DATE.          DTSBX306
00142                                                                   DTSBX306
00143      WRITE X306-REC               FROM WRK-X306-REC.              DTSBX306
00144                                                                   DTSBX306
00145      DISPLAY 'DTSBX306: DUMMY RECORD WRITTEN '.                   DTSBX306
00146  P1200-EXIT.                                                      DTSBX306
00147      EXIT.                                                        DTSBX306
00148                                                                   DTSBX306
00149  T0000-TERMINATE.                                                 DTSBX306
00150      CLOSE X306-FILE.                                             DTSBX306
00151                                                                   DTSBX306
00152  T0000-EXIT.                                                      DTSBX306
00153      EXIT.                                                        DTSBX306
00154      EJECT                                                        DTSBX306
00155                                                                   DTSBX306
00156  S999-ABEND.                                                      DTSBX306
00157      DISPLAY '*** DTSBX306 ABENDING'.                             DTSBX306
00158                                                                   DTSBX306
00159      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBX306
00160  S999-EXIT.                                                       DTSBX306
00161      EXIT.                                                        DTSBX306
