00001  IDENTIFICATION DIVISION.                                         03/10/00
00002  PROGRAM-ID.             DTSBR727.                                DTSBR727
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV010
00004  DATE-WRITTEN.           NOVEMBER 1994.                           DTSBR727
00005  DATE-COMPILED.                                                   DTSBR727
00006      SKIP3                                                        DTSBR727
00007 *****                                                             DTSBR727
00008 *                                                                 DTSBR727
00009 *    FUNCTION:   LMI  NEW/INACTIVATED EMPLOYER EXPORT.               CL**8
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                               CL**3
00011 *                       DTSBE727 WHICH UPDATES DTSIR727              CL**4
00012 *                       DTSBR727 READS DTSIR727 RECORDS.             CL**3
00013 *                                                                    CL**3
00014 *                                                                 DTSBR727
00015 *                                                                 DTSBR727
00016 *    MODIFICATION HISTORY:                                        DTSBR727
00017 *                                                                 DTSBR727
00018 * 11-19-94 INITIAL DEVELOPMENT                                    DTSBR727
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR727
00020 *                                                                 DTSBR727
00021 * 04-07-95 RECOMPILED FOR R991-UNIT-DSCR PER CHANGE REQUEST 064   DTSBR727
00022 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR727
00023 *                                                                 DTSBR727
00024 * 11-20-95 PUT 'MLI STAT TECH' IN R991-ROUTE2 AT REQUEST OF KELLY DTSBR727
00025 *          IN R&A.  R&A STAFF HAD TROUBLE DECIDING WHERE TO ROUTE DTSBR727
00026 *          THE REPORT...                                          DTSBR727
00027 *          REFERENCE RFP #PROD RECOVERY          PROGRAMMER: MJA  DTSBR727
00028 *                                                                 DTSBR727
00029 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR727
00030 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR727
00031 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR727
00032 *                                                                 DTSBR727
00033 *                                                                 DTSBR727
00034 *    DESCRIPTION:                                                 DTSBR727
00035 *                                                                 DTSBR727
00036 *        THIS MODULE BUILDS EXPORT RECORDS FOR R & A OF EMPLOYERS DTSBR727
00037 *        WHO EITHER HAD A NEW LIABILITY SPAN ENTERED OR AN        DTSBR727
00038 *        INACTIVE DATE ENTERED FOR AN EXISTING LIABILITY SPAN.    DTSBR727
00039 *                                                                 DTSBR727
00040 *        THIS IS AN "AT LEAST ONCE" MODULE.                       DTSBR727
00041 *                                                                 DTSBR727
00042 *                                                                 DTSBR727
00043 *    RECORDS READ:                                                DTSBR727
00044 *                                                                 DTSBR727
00045 *        NONE.                                                    DTSBR727
00046 *                                                                 DTSBR727
00047 *                                                                 DTSBR727
00048 *    PRINTED OUTPUTS:                                             DTSBR727
00049 *                                                                 DTSBR727
00050 *        NONE.                                                    DTSBR727
00051 *                                                                 DTSBR727
00052 *                                                                 DTSBR727
00053 *    RECORDS WRITTEN:                                             DTSBR727
00054 *                                                                 DTSBR727
00055 *        727R1  R & A NEW/INACTIVATED EMPLOYER EXPORT             DTSBR727
00056 *                                                                 DTSBR727
00057 *                                                                 DTSBR727
00058 *    MODULES CALLED:                                              DTSBR727
00059 *                                                                 DTSBR727
00060 *        GETSER   DATASET INFORMATION MODULE                      DTSBR727
00061 *        DTSBR991 EXPORT CONTROL REPORT MODULE                       CL**2
00062 *        DTSBU001 DATE EDIT/CONVERSION MODULE                        CL**2
00063 *                                                                 DTSBR727
00064 *                                                                 DTSBR727
00065 *****                                                             DTSBR727
00066      EJECT                                                        DTSBR727
00067  ENVIRONMENT DIVISION.                                            DTSBR727
00068      SKIP2                                                        DTSBR727
00069  INPUT-OUTPUT SECTION.                                            DTSBR727
00070      SKIP1                                                        DTSBR727
00071  FILE-CONTROL.                                                    DTSBR727
00072      SELECT EXPORT-FILE ASSIGN TO RPT727R1                        DTSBR727
00073          FILE STATUS IS WS-FILE-STATUS.                           DTSBR727
00074      SKIP3                                                        DTSBR727
00075  DATA DIVISION.                                                   DTSBR727
00076      SKIP3                                                        DTSBR727
00077  FILE SECTION.                                                    DTSBR727
00078      SKIP2                                                        DTSBR727
00079  FD  EXPORT-FILE                                                  DTSBR727
00080      RECORDING MODE IS F                                          DTSBR727
00081      BLOCK CONTAINS 0 RECORDS.                                    DTSBR727
00082  01  EXPORT-REC                     PIC  X(37).                   DTSBR727
00083      EJECT                                                        DTSBR727
00084  WORKING-STORAGE SECTION.                                         DTSBR727
000845 77  PAN-VALET PICTURE X(24) VALUE '010DTSBR727  03/10/00'.       DTSBR727
00085      SKIP3                                                        DTSBR727
00086  01  WRK-AREA.                                                    DTSBR727
00087      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +727.DTSBR727
00088      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR727
00089      05  WS-FILE-STATUS              PIC  X(02).                  DTSBR727
00090          88  FILE-OK-88                          VALUE '00'.      DTSBR727
00091      SKIP3                                                        DTSBR727
00092  01  WS-GETSER-PARAMETERS.                                           CL*10
00093      05  WS-GETSER-VOL-SER           PIC  X(30) VALUE SPACE.         CL*10
00094      05  WS-GETSER-DATASET-NAME      PIC  X(44) VALUE SPACE.         CL*10
00095      05  WS-GETSER-VOLUME-COUNT      PIC  9(03) VALUE 0.             CL*10
00096      05  WS-GETSER-DD-NAME           PIC  X(08) VALUE SPACE.         CL*10
00097      05  WS-GETSER-STEP-NAME         PIC  X(08) VALUE SPACE.         CL*10
00098      SKIP3                                                        DTSBR727
00099  01  WS-EXPORT-REC.                                               DTSBR727
00100      05  WS-PERIOD-START-DATE        PIC  9(06) VALUE 0.             CL*10
00101      05  WS-PERIOD-END-DATE          PIC  9(06) VALUE 0.             CL*10
00102      05  WS-EMP-NO                   PIC  9(06) VALUE 0.             CL*10
00103      05  WS-AREA-CD                  PIC  9(03) VALUE 0.             CL*10
00104      05  WS-SIC-OWN-CD               PIC  X(09) VALUE SPACE.         CL*10
00105      05  WS-LIAB-CHANGE-TYPE         PIC  X(01) VALUE SPACE.         CL*10
00106      05  WS-PRED-EMP-NO              PIC  9(06) VALUE 0.             CL*10
00107      EJECT                                                        DTSBR727
00108  01  R991-REC.                                                    DTSBR727
00109  ++INCLUDE DTSIR991                                                  CL**2
00110      EJECT                                                        DTSBR727
00111  01  L001-LINK-AREA.                                              DTSBR727
00112  ++INCLUDE DTSIL001                                                  CL**2
00113      EJECT                                                        DTSBR727
00114  LINKAGE SECTION.                                                 DTSBR727
00115      SKIP3                                                        DTSBR727
00116  01  LRCM-LINK-AREA.                                              DTSBR727
00117  ++INCLUDE DTSILRCM                                                  CL**2
00118      EJECT                                                        DTSBR727
00119  01  R727-REC.                                                    DTSBR727
00120  ++INCLUDE DTSIR727                                                  CL**2
00121      EJECT                                                        DTSBR727
00122  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR727
00123                           R727-REC.                               DTSBR727
00124      SKIP2                                                        DTSBR727
00125      IF FIRST-TIME-IND = 'Y'                                      DTSBR727
00126          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR727
00127          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR727
00128      SKIP1                                                        DTSBR727
00129      IF LRCM-EOR-88                                               DTSBR727
00130          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR727
00131      ELSE                                                         DTSBR727
00132          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR727
00133      SKIP2                                                        DTSBR727
00134      GOBACK.                                                      DTSBR727
00135      EJECT                                                        DTSBR727
00136  I1000-INITIATE.                                                  DTSBR727
00137      SKIP1                                                        DTSBR727
00138      OPEN OUTPUT EXPORT-FILE.                                     DTSBR727
00139      MOVE '727' TO R991-MOD.                                      DTSBR727
00140      MOVE 'LMI                 ' TO R991-ROUTE1.                     CL**8
00141      MOVE '   ' TO R991-ROUTE2.                                      CL**7
00142      MOVE 'R & A NEW/INACTIVATED EMPLOYER EXPORT'                 DTSBR727
00143         TO R991-DATA-TYPE.                                        DTSBR727
00144      MOVE 'RECORDS' TO R991-UNIT-DSCR.                            DTSBR727
00145      MOVE +0 TO R991-UNIT-COUNT.                                  DTSBR727
00146      SKIP2                                                        DTSBR727
00147  I1000-EXIT.                                                      DTSBR727
00148      EXIT.                                                        DTSBR727
00149      EJECT                                                        DTSBR727
00150  P1000-PROCESS.                                                   DTSBR727
00151      SKIP1                                                        DTSBR727
00152      MOVE R727-EMP-NO TO WS-EMP-NO.                               DTSBR727
00153      SKIP1                                                        DTSBR727
00154      MOVE R727-PERIOD-START-DATE TO L001-FED-8-DATE-9.            DTSBR727
00155      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR727
00156      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR727
00157      MOVE L001-CAL-6-DATE-9 TO WS-PERIOD-START-DATE.              DTSBR727
00158      SKIP1                                                        DTSBR727
00159      MOVE R727-PERIOD-END-DATE TO L001-FED-8-DATE-9.              DTSBR727
00160      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR727
00161      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR727
00162      MOVE L001-CAL-6-DATE-9 TO WS-PERIOD-END-DATE.                DTSBR727
00163      SKIP1                                                        DTSBR727
00164      MOVE R727-AREA-CD TO WS-AREA-CD.                             DTSBR727
00165      MOVE R727-SIC-OWN-CD TO WS-SIC-OWN-CD.                       DTSBR727
00166      MOVE R727-LIAB-CHANGE-TYPE TO WS-LIAB-CHANGE-TYPE.           DTSBR727
00167      MOVE R727-PRED-EMP-NO TO WS-PRED-EMP-NO.                     DTSBR727
00168      ADD +1 TO R991-UNIT-COUNT.                                   DTSBR727
00169      WRITE EXPORT-REC FROM WS-EXPORT-REC.                         DTSBR727
00170      IF FILE-OK-88                                                DTSBR727
00171          NEXT SENTENCE                                            DTSBR727
00172      ELSE                                                         DTSBR727
00173          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR727
00174      SKIP2                                                        DTSBR727
00175  P1000-EXIT.                                                      DTSBR727
00176      EXIT.                                                        DTSBR727
00177      EJECT                                                        DTSBR727
00178  T1000-TERMINATE.                                                 DTSBR727
00179      SKIP1                                                        DTSBR727
00180      IF R991-UNIT-COUNT = +0                                      DTSBR727
00181          MOVE SPACES TO R991-DATASET-NAME                            CL**9
00182      ELSE                                                            CL**9
00183          MOVE 'DOESTAX.PROD.RPT727'                                  CL**9
00184                      TO R991-DATASET-NAME.                           CL**9
00185      PERFORM R991-EXPORT-CONTROL-REPORT THRU R991-EXIT.              CL**6
00186      CLOSE EXPORT-FILE.                                              CL**6
00187      SKIP2                                                        DTSBR727
00188  T1000-EXIT.                                                      DTSBR727
00189      EXIT.                                                        DTSBR727
00190      EJECT                                                        DTSBR727
00191  R991-EXPORT-CONTROL-REPORT.                                      DTSBR727
00192      SKIP1                                                        DTSBR727
00193      CALL 'DTSBR991' USING LRCM-LINK-AREA                            CL**2
00194                            R991-REC.                              DTSBR727
00195      SKIP2                                                        DTSBR727
00196  R991-EXIT.                                                       DTSBR727
00197      EXIT.                                                        DTSBR727
00198      SKIP3                                                        DTSBR727
00199  S001-DATE.                                                       DTSBR727
00200      SKIP1                                                        DTSBR727
00201      CALL 'DTSBU001' USING L001-LINK-AREA.                           CL**2
00202      SKIP2                                                        DTSBR727
00203  S001-EXIT.                                                       DTSBR727
00204      EXIT.                                                        DTSBR727
00205      SKIP3                                                        DTSBR727
00206  S999-ABEND.                                                      DTSBR727
00207      SKIP1                                                        DTSBR727
00208      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL**2
00209      SKIP2                                                        DTSBR727
00210  S999-EXIT.                                                       DTSBR727
00211      EXIT.                                                        DTSBR727
