00001  IDENTIFICATION DIVISION.                                         05/09/02
00002  PROGRAM-ID.             DTSBR722.                                DTSBR722
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV008
00004                          MODIFIED BY TRW/BDM OCT. 1998.           DTSBR722
00005  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR722
00006  DATE-COMPILED.                                                   DTSBR722
00007                                                                   DTSBR722
00008 *****                                                             DTSBR722
00009 *                                                                 DTSBR722
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR722
00011 *                       DTSBE720 WHICH UPDATES DTSIR720           DTSBR722
00012 *                       DTSBR720 READS DTSIR720 RECORDS.          DTSBR722
00013 *                                                                 DTSBR722
00014 *    FUNCTION:  RQC CREDITS/REFUNDS UNIVERSE RECORD BUILD.        DTSBR722
00015 *                                                                 DTSBR722
00016 *                                                                 DTSBR722
00017 *    MODIFICATION HISTORY:                                        DTSBR722
00018 *                                                                 DTSBR722
00019 * 12-11-94 INITIAL DEVELOPMENT                                    DTSBR722
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR722
00021 *                                                                 DTSBR722
00022 * 04-07-95 RECOMPILED FOR R991-UNIT-DSCR PER CHANGE REQUEST 064   DTSBR722
00023 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR722
00024 *                                                                 DTSBR722
00025 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR722
00026 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR722
00027 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR722
00028 *                                                                 DTSBR722
00029 *                                                                 DTSBR722
00030 *    DESCRIPTION:                                                 DTSBR722
00031 *                                                                 DTSBR722
00032 *        THIS MODULE CREATES A FILE OF RQC CREDITS/REFUNDS        DTSBR722
00033 *        TRANSACTION RECORDS FOR EXPORT TO THE DEPARTMENTAL RQC   DTSBR722
00034 *        SYSTEM.                                                  DTSBR722
00035 *                                                                 DTSBR722
00036 *        THIS IS AN "AT LEAST ONCE" MODULE.                       DTSBR722
00037 *                                                                 DTSBR722
00038 *                                                                 DTSBR722
00039 *    RECORDS READ:                                                DTSBR722
00040 *                                                                 DTSBR722
00041 *        NONE.                                                    DTSBR722
00042 *                                                                 DTSBR722
00043 *                                                                 DTSBR722
00044 *    PRINTED OUTPUTS:                                             DTSBR722
00045 *                                                                 DTSBR722
00046 *        NONE.                                                    DTSBR722
00047 *                                                                 DTSBR722
00048 *                                                                 DTSBR722
00049 *    RECORDS WRITTEN:                                             DTSBR722
00050 *                                                                 DTSBR722
00051 *        722R1  RQC CREDITS/REFUNDS CNTRB UNIVERSE RECORDS.       DTSBR722
00052 *                                                                 DTSBR722
00053 *                                                                 DTSBR722
00054 *    MODULES CALLED:                                              DTSBR722
00055 *                                                                 DTSBR722
00056 *        GETSER   DATASET INFORMATION MODULE                      DTSBR722
00057 *        DTSBR991 EXPORT CONTROL REPORT MODULE                    DTSBR722
00058 *                                                                 DTSBR722
00059 *                                                                 DTSBR722
00060 *****                                                             DTSBR722
00061      EJECT                                                        DTSBR722
00062  ENVIRONMENT DIVISION.                                            DTSBR722
00063                                                                   DTSBR722
00064  INPUT-OUTPUT SECTION.                                            DTSBR722
00065                                                                   DTSBR722
00066  FILE-CONTROL.                                                    DTSBR722
00067      SELECT EXPORT-FILE ASSIGN TO RPT722R1                        DTSBR722
00068          FILE STATUS IS WS-FILE-STATUS.                           DTSBR722
00069                                                                   DTSBR722
00070  DATA DIVISION.                                                   DTSBR722
00071                                                                   DTSBR722
00072  FILE SECTION.                                                    DTSBR722
00073                                                                   DTSBR722
00074  FD  EXPORT-FILE                                                  DTSBR722
00075      RECORDING MODE IS F                                          DTSBR722
00076      BLOCK CONTAINS 0 RECORDS.                                    DTSBR722
00077  01  EXPORT-REC                     PIC  X(82).                   DTSBR722
00078      EJECT                                                        DTSBR722
00079  WORKING-STORAGE SECTION.                                         DTSBR722
000795 77  PAN-VALET PICTURE X(24) VALUE '008DTSBR722  05/09/02'.       DTSBR722
00080                                                                   DTSBR722
00081  01  WRK-AREA.                                                    DTSBR722
00082      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +722.DTSBR722
00083      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR722
00084      05  WS-FILE-STATUS              PIC  X(02).                  DTSBR722
00085          88  FILE-OK-88                          VALUE '00'.      DTSBR722
00086                                                                   DTSBR722
00087  01  WS-GETSER-PARAMETERS.                                        DTSBR722
00088      05  WS-GETSER-VOL-SER           PIC  X(30).                  DTSBR722
00089      05  WS-GETSER-DATASET-NAME      PIC  X(44).                  DTSBR722
00090      05  WS-GETSER-VOLUME-COUNT      PIC  9(03).                  DTSBR722
00091      05  WS-GETSER-DD-NAME           PIC  X(08).                  DTSBR722
00092      05  WS-GETSER-STEP-NAME         PIC  X(08).                  DTSBR722
00093                                                                   DTSBR722
00094  01  WS-EXPORT-REC.                                               DTSBR722
00095      05  WS-SEQ-NUMBER               PIC  9(08).                  DTSBR722
00096      05  FILLER                      PIC  X(13)                   DTSBR722
00097             VALUE 'CS04311000000'.                                DTSBR722
00098      05  WS-EMP-NO                   PIC  9(06).                  DTSBR722
00099      05  WS-RUN-DATE                 PIC  9(08).                  DTSBR722
00100      05  WS-TAX-DUE                  PIC  S9(09)V99.              DTSBR722
00101      05  WS-TAX-PAID                 PIC  S9(09)V99.              DTSBR722
00102      05  FILLER                      PIC  X(25)  VALUE SPACES.    DTSBR722
00103      EJECT                                                        DTSBR722
00104  01  R991-REC.                                                    DTSBR722
00105  ++INCLUDE DTSIR991                                               DTSBR722
00106      EJECT                                                        DTSBR722
00107  LINKAGE SECTION.                                                 DTSBR722
00108                                                                   DTSBR722
00109  01  LRCM-LINK-AREA.                                              DTSBR722
00110  ++INCLUDE DTSILRCM                                               DTSBR722
00111      EJECT                                                        DTSBR722
00112  01  R722-REC.                                                    DTSBR722
00113  ++INCLUDE DTSIR722                                               DTSBR722
00114      EJECT                                                        DTSBR722
00115  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR722
00116                           R722-REC.                               DTSBR722
00117                                                                   DTSBR722
00118      IF FIRST-TIME-IND = 'Y'                                      DTSBR722
00119          PERFORM I1000-INITIATE                                   DTSBR722
00120             THRU I1000-EXIT                                       DTSBR722
00121          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR722
00122                                                                   DTSBR722
00123      IF LRCM-EOR-88                                               DTSBR722
00124          PERFORM T1000-TERMINATE                                  DTSBR722
00125             THRU T1000-EXIT                                       DTSBR722
00126      ELSE                                                         DTSBR722
00127          PERFORM P1000-PROCESS                                    DTSBR722
00128             THRU P1000-EXIT.                                      DTSBR722
00129                                                                   DTSBR722
00130      GOBACK.                                                      DTSBR722
00131      EJECT                                                        DTSBR722
00132  I1000-INITIATE.                                                  DTSBR722
00133                                                                   DTSBR722
00134      OPEN OUTPUT EXPORT-FILE.                                     DTSBR722
00135                                                                   DTSBR722
00136      MOVE '722'                  TO R991-MOD.                     DTSBR722
00137      MOVE 'TPS DESK'             TO R991-ROUTE1.                  DTSBR722
00138      MOVE 'ENFORCEMENT UNIT    ' TO R991-ROUTE2.                  DTSBR722
00139      MOVE 'CREDITS/REFUNDS UNIVERSE RECORDS - CONTRIBUTORY'       DTSBR722
00140                                  TO R991-DATA-TYPE.               DTSBR722
00141      MOVE 'RECORDS'              TO R991-UNIT-DSCR.               DTSBR722
00142      MOVE +0                     TO R991-UNIT-COUNT.              DTSBR722
00143                                                                   DTSBR722
00144  I1000-EXIT.                                                      DTSBR722
00145      EXIT.                                                        DTSBR722
00146      EJECT                                                        DTSBR722
00147  P1000-PROCESS.                                                   DTSBR722
00148                                                                   DTSBR722
00149      MOVE R722-EMP-NO      TO  WS-EMP-NO.                         DTSBR722
00150      MOVE R722-RUN-DATE    TO  WS-RUN-DATE.                       DTSBR722
00151      MOVE R722-TAX-DUE     TO  WS-TAX-DUE.                        DTSBR722
00152      MOVE R722-TAX-PAID    TO  WS-TAX-PAID.                       DTSBR722
00153      ADD +1                TO  R991-UNIT-COUNT.                   DTSBR722
00154      MOVE R991-UNIT-COUNT  TO  WS-SEQ-NUMBER.                     DTSBR722
00155                                                                   DTSBR722
00156      WRITE EXPORT-REC     FROM WS-EXPORT-REC.                     DTSBR722
00157                                                                   DTSBR722
00158      IF FILE-OK-88                                                DTSBR722
00159          NEXT SENTENCE                                            DTSBR722
00160      ELSE                                                         DTSBR722
00161          PERFORM S999-ABEND                                       DTSBR722
00162             THRU S999-EXIT.                                       DTSBR722
00163                                                                   DTSBR722
00164  P1000-EXIT.                                                      DTSBR722
00165      EXIT.                                                        DTSBR722
00166      EJECT                                                        DTSBR722
00167  T1000-TERMINATE.                                                 DTSBR722
00168                                                                   DTSBR722
00169 *    IF R991-UNIT-COUNT = +0                                      DTSBR722
00170 *        MOVE SPACES TO R991-DATASET-NAME                         DTSBR722
00171 *    ELSE                                                         DTSBR722
00172 *        CALL 'GETSER' USING EXPORT-FILE                          DTSBR722
00173 *                            WS-GETSER-VOL-SER                    DTSBR722
00174 *                            WS-GETSER-DATASET-NAME               DTSBR722
00175 *                            WS-GETSER-VOLUME-COUNT               DTSBR722
00176 *                            WS-GETSER-DD-NAME                    DTSBR722
00177 *                            WS-GETSER-STEP-NAME                  DTSBR722
00178 *        MOVE WS-GETSER-DATASET-NAME TO R991-DATASET-NAME.        DTSBR722
00179                                                                   DTSBR722
00180      PERFORM R991-EXPORT-CONTROL-REPORT                           DTSBR722
00181         THRU R991-EXIT.                                           DTSBR722
00182                                                                   DTSBR722
00183      CLOSE EXPORT-FILE.                                           DTSBR722
00184                                                                   DTSBR722
00185  T1000-EXIT.                                                      DTSBR722
00186      EXIT.                                                        DTSBR722
00187      EJECT                                                        DTSBR722
00188  R991-EXPORT-CONTROL-REPORT.                                      DTSBR722
00189                                                                   DTSBR722
00190      CALL 'DTSBR991' USING LRCM-LINK-AREA                         DTSBR722
00191                            R991-REC.                              DTSBR722
00192                                                                   DTSBR722
00193  R991-EXIT.                                                       DTSBR722
00194      EXIT.                                                        DTSBR722
00195                                                                   DTSBR722
00196  S999-ABEND.                                                      DTSBR722
00197                                                                   DTSBR722
00198      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR722
00199                                                                   DTSBR722
00200  S999-EXIT.                                                       DTSBR722
00201      EXIT.                                                        DTSBR722
