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