00001  IDENTIFICATION DIVISION.                                         07/12/99
00002  PROGRAM-ID.             DTSBE727.                                DTSBE727
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV006
00004  DATE-WRITTEN.           AUGUST 1994.                             DTSBE727
00005  DATE-COMPILED.                                                   DTSBE727
00006      SKIP3                                                        DTSBE727
00007 *****                                                             DTSBE727
00008 *                                                                 DTSBE727
00009 *    CALLING SEQUENCE:  DTSBD400 CALLS                               CL**5
00010 *                       DTSBE727 WHICH UPDATES DTSIR727              CL**5
00011 *                       DTSBR727 READS DTSIR727 RECORDS.             CL**5
00012 *                                                                    CL**5
00013 *    FUNCTION:  LMI NEW/INACTIVATED EMPLOYER EXPORT.                 CL**6
00014 *                                                                 DTSBE727
00015 *                                                                 DTSBE727
00016 *    MODIFICATION LOG:                                            DTSBE727
00017 *                                                                 DTSBE727
00018 *    03/02/99  MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS.    CL**2
00019 *              WORK ORDER:                      PROGRAMMER:  DVS     CL**2
00020 *                                                                 DTSBE727
00021 *    XX/XX/XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00022 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00023 *              WORK ORDER:                      PROGRAMMER: XXX      CL**2
00024 *                                                                    CL**2
00025 *                                                                 DTSBE727
00026 *  DESCRIPTION:                                                   DTSBE727
00027 *                                                                 DTSBE727
00028 *                                                                 DTSBE727
00029 *    INITIATION:                                                  DTSBE727
00030 *                                                                 DTSBE727
00031 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE727
00032 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE727
00033 *                                                                 DTSBE727
00034 *      EDIT AND DEFAULT PARAMETERS.  SEE PRINTED OUTPUTS          DTSBE727
00035 *      DESCRIPTIONS AND LAYOUTS (727R1).                          DTSBE727
00036 *                                                                 DTSBE727
00037 *                                                                 DTSBE727
00038 *                                                                 DTSBE727
00039 *    PROCESSING:                                                  DTSBE727
00040 *                                                                 DTSBE727
00041 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (727R1).       DTSBE727
00042 *                                                                 DTSBE727
00043 *                                                                 DTSBE727
00044 *    TERMINATION:                                                 DTSBE727
00045 *                                                                 DTSBE727
00046 *      NONE.                                                      DTSBE727
00047 *                                                                 DTSBE727
00048 *                                                                 DTSBE727
00049 *    RECORDS READ:                                                DTSBE727
00050 *                                                                 DTSBE727
00051 *      MASTER:                                                    DTSBE727
00052 *                                                                 DTSBE727
00053 *        MSOL                                                     DTSBE727
00054 *        MREL                                                     DTSBE727
00055 *                                                                 DTSBE727
00056 *                                                                 DTSBE727
00057 *      ALTERNATE INDEX:                                           DTSBE727
00058 *                                                                 DTSBE727
00059 *        NONE.                                                    DTSBE727
00060 *                                                                 DTSBE727
00061 *                                                                 DTSBE727
00062 *      REFERENCE:                                                 DTSBE727
00063 *                                                                 DTSBE727
00064 *        NONE.                                                    DTSBE727
00065 *                                                                 DTSBE727
00066 *                                                                 DTSBE727
00067 *    RECORDS UPDATED:                                             DTSBE727
00068 *                                                                 DTSBE727
00069 *        NONE.                                                    DTSBE727
00070 *                                                                 DTSBE727
00071 *                                                                 DTSBE727
00072 *    REPORT RECORDS WRITTEN:                                      DTSBE727
00073 *                                                                 DTSBE727
00074 *        R727  LMI NEW/INACTIVATED EMPLOYER EXPORT.                  CL**6
00075 *                                                                 DTSBE727
00076 *                                                                 DTSBE727
00077 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE727
00078 *                                                                 DTSBE727
00079 *        NONE.                                                    DTSBE727
00080 *                                                                 DTSBE727
00081 *                                                                 DTSBE727
00082 *    MODULES CALLED:                                              DTSBE727
00083 *                                                                 DTSBE727
00084 *        DTSBU001  DATE CONVERSION/EDIT.                             CL**2
00085 *        DTSBU910  MASTER FILE I/O.                                  CL**2
00086 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.      CL**2
00087 *                                                                 DTSBE727
00088 *                                                                 DTSBE727
00089 *    VERMONT REFERENCE:                                           DTSBE727
00090 *                                                                 DTSBE727
00091 *        NONE.                                                    DTSBE727
00092 *                                                                 DTSBE727
00093 *****                                                             DTSBE727
00094      SKIP3                                                        DTSBE727
00095  ENVIRONMENT DIVISION.                                            DTSBE727
00096      SKIP3                                                        DTSBE727
00097  DATA DIVISION.                                                   DTSBE727
00098      EJECT                                                        DTSBE727
00099  WORKING-STORAGE SECTION.                                         DTSBE727
000995 77  PAN-VALET PICTURE X(24) VALUE '006DTSBE727  07/12/99'.       DTSBE727
00100      SKIP3                                                        DTSBE727
00101  01  WRK-AREA.                                                    DTSBE727
00102      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +727.DTSBE727
00103      SKIP1                                                        DTSBE727
00104      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE727'.   CL**2
00105      SKIP3                                                        DTSBE727
00106      05  ABEND-MSG                       PIC  X(60).              DTSBE727
00107      SKIP3                                                        DTSBE727
00108      05  WRK-PARM-PERIOD-START-DATE      PIC S9(09)  COMP-3.      DTSBE727
00109      SKIP1                                                        DTSBE727
00110      05  WRK-PARM-PERIOD-END-DATE        PIC S9(09)  COMP-3.      DTSBE727
00111      SKIP1                                                        DTSBE727
00112      05  WRK-R727-REC-WRITTEN-IND        PIC X(01).               DTSBE727
00113          88  WRK-R727-REC-WRITTEN                    VALUE 'Y'.   DTSBE727
00114          88  WRK-R727-NO-REC-WRITTEN                 VALUE 'N'.   DTSBE727
00115      EJECT                                                        DTSBE727
00116  01  L001-LINK-AREA.                                              DTSBE727
00117  ++INCLUDE DTSIL001                                                  CL**2
00118      EJECT                                                        DTSBE727
00119  01  L910-LINK-AREA.                                              DTSBE727
00120  ++INCLUDE DTSIL910                                                  CL**2
00121      SKIP3                                                        DTSBE727
00122  01  MSKL-REC.                                                    DTSBE727
00123  ++INCLUDE DTSIMSKL                                                  CL**2
00124      SKIP3                                                        DTSBE727
00125  01  MSOL-REC.                                                    DTSBE727
00126  ++INCLUDE DTSIMSOL                                                  CL**2
00127      SKIP3                                                        DTSBE727
00128  01  MREL-REC.                                                    DTSBE727
00129  ++INCLUDE DTSIMREL                                                  CL**2
00130      EJECT                                                        DTSBE727
00131  01  R727-REC.                                                    DTSBE727
00132  ++INCLUDE DTSIR727                                                  CL**2
00133      EJECT                                                        DTSBE727
00134  LINKAGE SECTION.                                                 DTSBE727
00135      SKIP3                                                        DTSBE727
00136  01  LECM-LINK-AREA.                                              DTSBE727
00137  ++INCLUDE DTSILECM                                                  CL**2
00138      SKIP3                                                        DTSBE727
00139          10  LECM-PARM-AREA REDEFINES LECM-EXTRACT-PARMS.         DTSBE727
00140              15  LECM-PARM-PERIOD-START-DATE PIC  X(06).          DTSBE727
00141              15  FILLER                      PIC  X(01).          DTSBE727
00142              15  LECM-PARM-PERIOD-END-DATE   PIC  X(06).          DTSBE727
00143              15  FILLER                      PIC  X(55).          DTSBE727
00144      EJECT                                                        DTSBE727
00145  01  MPRF-LINK-REC.                                               DTSBE727
00146  ++INCLUDE DTSIMPRF                                                  CL**2
00147      EJECT                                                        DTSBE727
00148 **************************************************************    DTSBE727
00149 *  PROCEDURE DIVISION FOR DTSBE727 STARTS HERE.                      CL**2
00150 **************************************************************    DTSBE727
00151                                                                   DTSBE727
00152  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE727
00153                           MPRF-LINK-REC.                          DTSBE727
00154      SKIP2                                                        DTSBE727
00155      MOVE LENGTH OF R727-REC TO R727-LENGTH.                         CL**4
00156      MOVE '727'              TO R727-REC-TYPE.                       CL**4
00157      SKIP2                                                           CL**4
00158      IF LECM-PROCESS-88                                           DTSBE727
00159          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE727
00160      ELSE                                                         DTSBE727
00161      IF LECM-INITIALIZE-88                                        DTSBE727
00162          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE727
00163      ELSE                                                         DTSBE727
00164      IF LECM-TERMINATE-88                                         DTSBE727
00165          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE727
00166      ELSE                                                         DTSBE727
00167          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE727
00168            TO ABEND-MSG                                           DTSBE727
00169          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE727
00170      SKIP2                                                        DTSBE727
00171      GOBACK.                                                      DTSBE727
00172      EJECT                                                        DTSBE727
00173 **************************************************************    DTSBE727
00174 *  THIS PARAGRAPH PERFORMS THE INITIALIZATION PROCESS.            DTSBE727
00175 **************************************************************    DTSBE727
00176                                                                   DTSBE727
00177  I0000-INITIALIZE.                                                DTSBE727
00178      SKIP2                                                        DTSBE727
00179      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE727
00180      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE727
00181                                                                   DTSBE727
00182      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE727
00183      SKIP1                                                        DTSBE727
00184      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE727
00185      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE727
00186      SKIP2                                                        DTSBE727
00187  I0000-EXIT.                                                      DTSBE727
00188      EXIT.                                                        DTSBE727
00189      SKIP3                                                        DTSBE727
00190  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE727
00191      PERFORM I1100-PERIOD-START-DATE THRU I1100-EXIT.             DTSBE727
00192                                                                   DTSBE727
00193      PERFORM I1200-PERIOD-END-DATE THRU I1200-EXIT.               DTSBE727
00194                                                                   DTSBE727
00195  I1000-EXIT.                                                      DTSBE727
00196      EXIT.                                                        DTSBE727
00197      SKIP3                                                        DTSBE727
00198  I1100-PERIOD-START-DATE.                                         DTSBE727
00199      IF LECM-PARM-PERIOD-START-DATE = SPACES                      DTSBE727
00200          IF LECM-PERIOD-START-DATE > +0                           DTSBE727
00201              MOVE LECM-PERIOD-START-DATE                          DTSBE727
00202                TO WRK-PARM-PERIOD-START-DATE                      DTSBE727
00203          ELSE                                                     DTSBE727
00204              MOVE 'PERIOD-START-DATE MISSING'                     DTSBE727
00205                TO ABEND-MSG                                       DTSBE727
00206              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE727
00207      ELSE                                                         DTSBE727
00208          MOVE LECM-PARM-PERIOD-START-DATE TO L001-CAL-6-DATE-X    DTSBE727
00209          PERFORM S001-FROM-CAL-6 THRU S001-EXIT                   DTSBE727
00210          IF L001-VALID-DATE                                       DTSBE727
00211              MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-START-DATE DTSBE727
00212          ELSE                                                     DTSBE727
00213              MOVE 'PERIOD-START-DATE NOT VALID'                   DTSBE727
00214                TO ABEND-MSG                                       DTSBE727
00215              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE727
00216  I1100-EXIT.                                                      DTSBE727
00217      EXIT.                                                        DTSBE727
00218      EJECT                                                        DTSBE727
00219  I1200-PERIOD-END-DATE.                                           DTSBE727
00220      IF LECM-PARM-PERIOD-END-DATE = SPACES                        DTSBE727
00221          IF LECM-PERIOD-END-DATE > +0                             DTSBE727
00222              MOVE LECM-PERIOD-END-DATE                            DTSBE727
00223                TO WRK-PARM-PERIOD-END-DATE                        DTSBE727
00224          ELSE                                                     DTSBE727
00225              MOVE 'PERIOD-END-DATE MISSING'                       DTSBE727
00226                TO ABEND-MSG                                       DTSBE727
00227              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE727
00228      ELSE                                                         DTSBE727
00229          MOVE LECM-PARM-PERIOD-END-DATE TO L001-CAL-6-DATE-X      DTSBE727
00230          PERFORM S001-FROM-CAL-6 THRU S001-EXIT                   DTSBE727
00231          IF L001-VALID-DATE                                       DTSBE727
00232              MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-END-DATE   DTSBE727
00233          ELSE                                                     DTSBE727
00234              MOVE 'PERIOD-END-DATE NOT VALID'                     DTSBE727
00235                TO ABEND-MSG                                       DTSBE727
00236              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE727
00237                                                                   DTSBE727
00238      IF WRK-PARM-PERIOD-START-DATE > WRK-PARM-PERIOD-END-DATE     DTSBE727
00239          MOVE 'PERIOD START DATE IS GREATER THAN PERIOD END DATE' DTSBE727
00240            TO ABEND-MSG                                           DTSBE727
00241          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE727
00242  I1200-EXIT.                                                      DTSBE727
00243      EXIT.                                                        DTSBE727
00244      EJECT                                                        DTSBE727
00245 **************************************************************    DTSBE727
00246 *   THIS IS THE PROCESS PARAGRAPH FOR DTSBE727 - R & A               CL**2
00247 *   NEW AND INACTIVATED EMPLOYER REPORT.                          DTSBE727
00248 **************************************************************    DTSBE727
00249                                                                   DTSBE727
00250  P0000-PROCESS.                                                   DTSBE727
00251                                                                   DTSBE727
00252      MOVE LOW-VALUES             TO  MSOL-KEY-AREA.               DTSBE727
00253      MOVE MPRF-EMP-NO            TO  MSOL-EMP-NO.                 DTSBE727
00254      SET MSOL-SOL-88             TO  TRUE.                        DTSBE727
00255      MOVE MSOL-KEY-AREA          TO  MSKL-KEY-AREA.               DTSBE727
00256                                                                   DTSBE727
00257      PERFORM S910-START-BROWSE THRU  S910-EXIT.                   DTSBE727
00258                                                                   DTSBE727
00259      SET WRK-R727-NO-REC-WRITTEN TO  TRUE.                        DTSBE727
00260                                                                   DTSBE727
00261      PERFORM P1000-SCAN-MSOL  THRU  P1000-EXIT                    DTSBE727
00262          UNTIL L910-NO-REC-88  OR                                 DTSBE727
00263                WRK-R727-REC-WRITTEN.                              DTSBE727
00264                                                                   DTSBE727
00265  P0000-EXIT.                                                      DTSBE727
00266      EXIT.                                                        DTSBE727
00267      EJECT                                                        DTSBE727
00268 **************************************************************    DTSBE727
00269 *   THIS PARAGRAPH SCANS THE MSOL RECORDS AND WRITES AN R727      DTSBE727
00270 *   RECORD IF THE EMPLOYER ESTABLISHED A NEW SPAN OF LIABILITY    DTSBE727
00271 *   WITHIN THE PARM PERIOD, OR BECAME INACTIVE DURING THE         DTSBE727
00272 *   PERIOD.                                                       DTSBE727
00273 **************************************************************    DTSBE727
00274                                                                   DTSBE727
00275  P1000-SCAN-MSOL.                                                 DTSBE727
00276                                                                   DTSBE727
00277      MOVE MSKL-REC                          TO  MSOL-REC.         DTSBE727
00278                                                                   DTSBE727
00279      IF MSOL-ESTB-DATE LESS THAN WRK-PARM-PERIOD-START-DATE OR    DTSBE727
00280         MSOL-ESTB-DATE  GREATER THAN  WRK-PARM-PERIOD-END-DATE    DTSBE727
00281          IF MSOL-INACT-ACTIVE-88                                  DTSBE727
00282              IF MSOL-INACT-REVERSE-DATE                           DTSBE727
00283                     LESS THAN  WRK-PARM-PERIOD-START-DATE   OR    DTSBE727
00284                 MSOL-INACT-REVERSE-DATE                           DTSBE727
00285                     GREATER THAN  WRK-PARM-PERIOD-END-DATE        DTSBE727
00286                  NEXT SENTENCE                                    DTSBE727
00287              ELSE                                                 DTSBE727
00288                  SET R727-LIAB-CHANGE-RVRSE-88 TO TRUE            DTSBE727
00289                  SET WRK-R727-REC-WRITTEN    TO  TRUE             DTSBE727
00290                  PERFORM P1100-SETUP-R727  THRU  P1100-EXIT       DTSBE727
00291                  PERFORM S946-WRITE-R727  THRU  S946-EXIT         DTSBE727
00292                  GO TO P1000-EXIT                                 DTSBE727
00293          ELSE                                                     DTSBE727
00294              IF MSOL-INACT-ENTER-DATE  LESS THAN                  DTSBE727
00295                                    WRK-PARM-PERIOD-START-DATE     DTSBE727
00296                 OR                                                DTSBE727
00297                 MSOL-INACT-ENTER-DATE  GREATER THAN               DTSBE727
00298                                    WRK-PARM-PERIOD-END-DATE       DTSBE727
00299                  NEXT SENTENCE                                    DTSBE727
00300              ELSE                                                 DTSBE727
00301                  SET R727-LIAB-CHANGE-INACT-88 TO TRUE            DTSBE727
00302                  SET WRK-R727-REC-WRITTEN    TO  TRUE             DTSBE727
00303                  PERFORM P1100-SETUP-R727  THRU  P1100-EXIT       DTSBE727
00304                  PERFORM S946-WRITE-R727   THRU  S946-EXIT        DTSBE727
00305                  GO TO P1000-EXIT                                 DTSBE727
00306      ELSE                                                         DTSBE727
00307          IF MSOL-INACT-ACTIVE-88                                  DTSBE727
00308              SET R727-LIAB-CHANGE-ESTB-88   TO  TRUE              DTSBE727
00309              SET WRK-R727-REC-WRITTEN       TO  TRUE              DTSBE727
00310              PERFORM P1100-SETUP-R727  THRU  P1100-EXIT           DTSBE727
00311              PERFORM S946-WRITE-R727   THRU  S946-EXIT            DTSBE727
00312              GO TO P1000-EXIT.                                    DTSBE727
00313                                                                   DTSBE727
00314      PERFORM S910-READ-NEXT  THRU  S910-EXIT.                     DTSBE727
00315                                                                   DTSBE727
00316  P1000-EXIT.                                                      DTSBE727
00317      EXIT.                                                        DTSBE727
00318      EJECT                                                        DTSBE727
00319 ***************************************************************   DTSBE727
00320 *   THIS PARAGRAPH SETS UP THE R727 EXTRACT RECORD.  IT ALSO      DTSBE727
00321 *   FINDS THE LAST MREL RECORD TO DETERMINE IF THIS IS A          DTSBE727
00322 *   SUCCESSOR EMPLOYER AND WHAT THE PREDECESSOR'S EMPLOYER        DTSBE727
00323 *   NUMBER WAS.                                                   DTSBE727
00324 ***************************************************************   DTSBE727
00325                                                                   DTSBE727
00326  P1100-SETUP-R727.                                                DTSBE727
00327                                                                   DTSBE727
00328      MOVE MPRF-EMP-NO              TO  R727-EMP-NO.               DTSBE727
00329      MOVE WRK-PARM-PERIOD-START-DATE                              DTSBE727
00330                                    TO  R727-PERIOD-START-DATE.    DTSBE727
00331      MOVE WRK-PARM-PERIOD-END-DATE TO  R727-PERIOD-END-DATE.      DTSBE727
00332 *    MOVE MPRF-AREA-CD             TO  R727-AREA-CD.                 CL**3
00333      MOVE MPRF-SIC-CD              TO  R727-SIC-CD.                  CL**3
00334                                                                   DTSBE727
00335      MOVE LOW-VALUES               TO  MREL-KEY-AREA.             DTSBE727
00336      MOVE MPRF-EMP-NO              TO  MREL-EMP-NO.               DTSBE727
00337      SET MREL-REL-88               TO  TRUE.                      DTSBE727
00338      MOVE MREL-KEY-AREA            TO  MSKL-KEY-AREA.             DTSBE727
00339                                                                   DTSBE727
00340      PERFORM S910-COUNT  THRU  S910-EXIT.                         DTSBE727
00341                                                                   DTSBE727
00342      IF L910-RECORD-CNT         EQUAL  ZERO                       DTSBE727
00343          MOVE ZEROS                TO  R727-PRED-EMP-NO           DTSBE727
00344      ELSE                                                         DTSBE727
00345          MOVE MSKL-KEY-AREA        TO  MREL-KEY-AREA              DTSBE727
00346          MOVE MREL-PRED-EMP-NO     TO  R727-PRED-EMP-NO.          DTSBE727
00347                                                                   DTSBE727
00348  P1100-EXIT.                                                      DTSBE727
00349       EXIT.                                                       DTSBE727
00350       EJECT                                                       DTSBE727
00351  T0000-TERMINATE.                                                 DTSBE727
00352      SKIP2                                                        DTSBE727
00353      SKIP2                                                        DTSBE727
00354  T0000-EXIT.                                                      DTSBE727
00355      EXIT.                                                        DTSBE727
00356      EJECT                                                        DTSBE727
00357  S001-FROM-FED-8.                                                 DTSBE727
00358      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE727
00359      GO TO S001-DATE.                                             DTSBE727
00360      SKIP1                                                        DTSBE727
00361  S001-FROM-CAL-6.                                                 DTSBE727
00362      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE727
00363      GO TO S001-DATE.                                             DTSBE727
00364      SKIP1                                                        DTSBE727
00365  S001-FROM-ABS-DAY.                                               DTSBE727
00366      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE727
00367      GO TO S001-DATE.                                             DTSBE727
00368      SKIP1                                                        DTSBE727
00369  S001-DATE.                                                       DTSBE727
00370      CALL 'DTSBU001' USING L001-LINK-AREA.                           CL**2
00371  S001-EXIT.                                                       DTSBE727
00372      EXIT.                                                        DTSBE727
00373      SKIP3                                                        DTSBE727
00374  S910-READ.                                                       DTSBE727
00375      SET L910-READ-88 TO TRUE.                                    DTSBE727
00376      GO TO S910-MSTR-IO.                                          DTSBE727
00377      SKIP1                                                        DTSBE727
00378  S910-START-BROWSE.                                               DTSBE727
00379      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE727
00380      GO TO S910-MSTR-IO.                                          DTSBE727
00381      SKIP1                                                        DTSBE727
00382  S910-READ-NEXT.                                                  DTSBE727
00383      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE727
00384      GO TO S910-MSTR-IO.                                          DTSBE727
00385      SKIP1                                                        DTSBE727
00386  S910-COUNT.                                                      DTSBE727
00387      SET L910-COUNT-88 TO TRUE.                                   DTSBE727
00388      GO TO S910-MSTR-IO.                                          DTSBE727
00389      SKIP1                                                        DTSBE727
00390  S910-MSTR-IO.                                                    DTSBE727
00391      CALL 'DTSBU910' USING L910-LINK-AREA                            CL**2
00392                            MSKL-REC.                              DTSBE727
00393  S910-EXIT.                                                       DTSBE727
00394      EXIT.                                                        DTSBE727
00395      SKIP3                                                        DTSBE727
00396  S946-WRITE-R727.                                                 DTSBE727
00397      CALL 'DTSBU946' USING R727-REC.                                 CL**2
00398      GO TO S946-EXIT.                                             DTSBE727
00399      SKIP1                                                        DTSBE727
00400  S946-EXIT.                                                       DTSBE727
00401      EXIT.                                                        DTSBE727
00402      SKIP3                                                        DTSBE727
00403  S999-ABEND.                                                      DTSBE727
00404      DISPLAY '*** DTSBE727 ABENDING.  '                              CL**2
00405              ABEND-MSG.                                           DTSBE727
00406      SKIP1                                                        DTSBE727
00407      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL**2
00408  S999-EXIT.                                                       DTSBE727
00409      EXIT.                                                        DTSBE727
