00001  IDENTIFICATION DIVISION.                                         08/02/02
00002  PROGRAM-ID.             DTSBE123.                                DTSBE123
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD                   LV011
00004                          UPDATED BY TRW/BDM OCT. 1998.            DTSBE123
00005  DATE-WRITTEN.           AUGUST 1994.                             DTSBE123
00006  DATE-COMPILED.                                                   DTSBE123
00007      SKIP3                                                        DTSBE123
00008 *****                                                             DTSBE123
00009 *                                                                 DTSBE123
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBE123
00011 *                       DTSBE123 WHICH UPDATES DTSIR123           DTSBE123
00012 *                       DTSBR123 READS DTSIR123 RECORDS.          DTSBE123
00013 *                                                                 DTSBE123
00014 *    FUNCTION:  EMPLOYERS WITH SELECTED CYCLE A STATUS CODES.     DTSBE123
00015 *                                                                 DTSBE123
00016 *                                                                 DTSBE123
00017 *    MODIFICATION LOG:                                            DTSBE123
00018 *                                                                 DTSBE123
00019 *    03/26/95  MODIFIED MERA-STATUS-CODE VALUES REPORTED.         DTSBE123
00020 *              WORK ORDER: CR065                PROGRAMMER: EHH   DTSBE123
00021 *                                                                 DTSBE123
00022 *    XX/XX/XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE123
00023 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE123
00024 *              WORK ORDER:                      PROGRAMMER: XXX   DTSBE123
00025 *                                                                 DTSBE123
00026 *                                                                 DTSBE123
00027 *  DESCRIPTION:                                                   DTSBE123
00028 *                                                                 DTSBE123
00029 *                                                                 DTSBE123
00030 *    INITIATION:                                                  DTSBE123
00031 *                                                                 DTSBE123
00032 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE123
00033 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE123
00034 *                                                                 DTSBE123
00035 *      EDIT AND DEFAULT PARAMETERS.  SEE PRINTED OUTPUTS          DTSBE123
00036 *      DESCRIPTIONS AND LAYOUTS (123R1).                          DTSBE123
00037 *                                                                 DTSBE123
00038 *                                                                 DTSBE123
00039 *    PROCESSING:                                                  DTSBE123
00040 *                                                                 DTSBE123
00041 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (123R1).       DTSBE123
00042 *                                                                 DTSBE123
00043 *                                                                 DTSBE123
00044 *    TERMINATION:                                                 DTSBE123
00045 *                                                                 DTSBE123
00046 *      NONE.                                                      DTSBE123
00047 *                                                                 DTSBE123
00048 *                                                                 DTSBE123
00049 *    RECORDS READ:                                                DTSBE123
00050 *                                                                 DTSBE123
00051 *      MASTER:                                                    DTSBE123
00052 *                                                                 DTSBE123
00053 *        MERA                                                     DTSBE123
00054 *                                                                 DTSBE123
00055 *                                                                 DTSBE123
00056 *      ALTERNATE INDEX:                                           DTSBE123
00057 *                                                                 DTSBE123
00058 *        NONE.                                                    DTSBE123
00059 *                                                                 DTSBE123
00060 *                                                                 DTSBE123
00061 *      REFERENCE:                                                 DTSBE123
00062 *                                                                 DTSBE123
00063 *        NONE.                                                    DTSBE123
00064 *                                                                 DTSBE123
00065 *                                                                 DTSBE123
00066 *    RECORDS UPDATED:                                             DTSBE123
00067 *                                                                 DTSBE123
00068 *        NONE.                                                    DTSBE123
00069 *                                                                 DTSBE123
00070 *                                                                 DTSBE123
00071 *    REPORT RECORDS WRITTEN:                                      DTSBE123
00072 *                                                                 DTSBE123
00073 *        R123  EMPLOYERS WITH SLECTED CYCLE A STATUS CODES.       DTSBE123
00074 *                                                                 DTSBE123
00075 *                                                                 DTSBE123
00076 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE123
00077 *                                                                 DTSBE123
00078 *        NONE.                                                    DTSBE123
00079 *                                                                 DTSBE123
00080 *                                                                 DTSBE123
00081 *    MODULES CALLED:                                              DTSBE123
00082 *                                                                 DTSBE123
00083 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE123
00084 *        DTSBU061  FIELD ZIP / FIELD REP ID.                      DTSBE123
00085 *        DTSBU910  MASTER FILE I/O DRIVER.                        DTSBE123
00086 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE123
00087 *                                                                 DTSBE123
00088 *                                                                 DTSBE123
00089 *    VERMONT REFERENCE:                                           DTSBE123
00090 *                                                                 DTSBE123
00091 *        TXBE303                                                  DTSBE123
00092 *                                                                 DTSBE123
00093 *****                                                             DTSBE123
00094      SKIP3                                                        DTSBE123
00095  ENVIRONMENT DIVISION.                                            DTSBE123
00096      EJECT                                                        DTSBE123
00097  DATA DIVISION.                                                   DTSBE123
00098      SKIP3                                                        DTSBE123
00099  WORKING-STORAGE SECTION.                                         DTSBE123
000995 77  PAN-VALET PICTURE X(24) VALUE '011DTSBE123  08/02/02'.       DTSBE123
00100      SKIP3                                                        DTSBE123
00101  01  WRK-AREA.                                                    DTSBE123
00102      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +123.DTSBE123
00103                                                                   DTSBE123
00104      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE123'.DTSBE123
00105                                                                   DTSBE123
00106      SKIP3                                                        DTSBE123
00107      05  ABEND-MSG                       PIC  X(60).              DTSBE123
00108      SKIP3                                                        DTSBE123
00109                                                                   DTSBE123
00110      EJECT                                                        DTSBE123
00111  01  L001-LINK-AREA.                                              DTSBE123
00112  ++INCLUDE  DTSIL001                                              DTSBE123
00113      EJECT                                                        DTSBE123
00114  01  L061-LINK-AREA.                                              DTSBE123
00115  ++INCLUDE  DTSIL061                                              DTSBE123
00116      EJECT                                                        DTSBE123
00117  01  L910-LINK-AREA.                                              DTSBE123
00118  ++INCLUDE  DTSIL910                                              DTSBE123
00119      SKIP3                                                        DTSBE123
00120  01  MSKL-REC.                                                    DTSBE123
00121  ++INCLUDE  DTSIMSKL                                              DTSBE123
00122      SKIP3                                                        DTSBE123
00123  01  MERA-REC.                                                    DTSBE123
00124  ++INCLUDE  DTSIMERA                                              DTSBE123
00125      EJECT                                                        DTSBE123
00126  01  R123-REC.                                                    DTSBE123
00127  ++INCLUDE  DTSIR123                                              DTSBE123
00128      EJECT                                                        DTSBE123
00129  ++INCLUDE  OJRWE123                                              DTSBE123
00130      EJECT                                                        DTSBE123
00131  LINKAGE SECTION.                                                 DTSBE123
00132      SKIP3                                                        DTSBE123
00133  01  LECM-LINK-AREA.                                              DTSBE123
00134  ++INCLUDE  DTSILECM                                              DTSBE123
00135      SKIP3                                                        DTSBE123
00136          10  LECM-PARM-AREA REDEFINES LECM-EXTRACT-PARMS.         DTSBE123
00137              15  LECM-PARM-05-CUTOFF-DATE    PIC  X(06).          DTSBE123
00138              15  FILLER                      PIC  X(01).          DTSBE123
00139              15  LECM-PARM-06-CUTOFF-DATE    PIC  X(06).          DTSBE123
00140              15  FILLER                      PIC  X(01).          DTSBE123
00141              15  LECM-PARM-09-CUTOFF-DATE    PIC  X(06).          DTSBE123
00142              15  FILLER                      PIC  X(01).          DTSBE123
00143              15  LECM-PARM-11-CUTOFF-DATE    PIC  X(06).          DTSBE123
00144              15  FILLER                      PIC  X(41).          DTSBE123
00145      EJECT                                                        DTSBE123
00146  01  MPRF-LINK-REC.                                               DTSBE123
00147  ++INCLUDE  DTSIMPRF                                              DTSBE123
00148      EJECT                                                        DTSBE123
00149  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE123
00150                           MPRF-LINK-REC.                          DTSBE123
00151      EVALUATE TRUE                                                DTSBE123
00152      WHEN LECM-PROCESS-88                                         DTSBE123
00153          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE123
00154                                                                   DTSBE123
00155      WHEN LECM-INITIALIZE-88                                      DTSBE123
00156          SET WRK-EDIT-PASSED-88 TO TRUE                           DTSBE123
00157          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE123
00158          IF WRK-EDIT-FAILED-88                                    DTSBE123
00159             PERFORM S999-ABEND THRU S999-EXIT                     DTSBE123
00160          END-IF                                                   DTSBE123
00161      WHEN LECM-TERMINATE-88                                       DTSBE123
00162          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE123
00163                                                                   DTSBE123
00164      WHEN OTHER                                                   DTSBE123
00165          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE123
00166            TO ABEND-MSG                                           DTSBE123
00167          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE123
00168      SKIP2                                                        DTSBE123
00169      GOBACK.                                                      DTSBE123
00170      EJECT                                                        DTSBE123
00171  I0000-INITIALIZE.                                                DTSBE123
00172      SKIP2                                                        DTSBE123
00173      MOVE LENGTH OF R123-REC TO R123-LENGTH.                      DTSBE123
00174      MOVE '123'              TO R123-REC-TYPE.                    DTSBE123
00175                                                                   DTSBE123
00176 *OJR                                                              DTSBE123
00177      DISPLAY 'I000-INIT START'                                    DTSBE123
00178                                                                   DTSBE123
00179      MOVE LECM-PERIOD-START-DATE    TO OJR-PERIOD-START-DATE.     DTSBE123
00180      MOVE LECM-PERIOD-END-DATE      TO OJR-PERIOD-END-DATE.       DTSBE123
00181                                                                   DTSBE123
00182                                                                   DTSBE123
00183      MOVE LECM-PARM-05-CUTOFF-DATE TO                             DTSBE123
00184                      OJR-PARM-05-CUTOFF-DATE.                     DTSBE123
00185      MOVE LECM-PARM-06-CUTOFF-DATE TO                             DTSBE123
00186                      OJR-PARM-06-CUTOFF-DATE.                     DTSBE123
00187      MOVE LECM-PARM-09-CUTOFF-DATE TO                             DTSBE123
00188                      OJR-PARM-09-CUTOFF-DATE.                     DTSBE123
00189      MOVE LECM-PARM-11-CUTOFF-DATE TO                             DTSBE123
00190                      OJR-PARM-11-CUTOFF-DATE.                     DTSBE123
00191                                                                   DTSBE123
00192      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE123
00193      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE123
00194                                                                   DTSBE123
00195      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE123
00196                                                                   DTSBE123
00197      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE123
00198      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE123
00199      SKIP2                                                        DTSBE123
00200  I0000-EXIT.                                                      DTSBE123
00201      EXIT.                                                        DTSBE123
00202      SKIP3                                                        DTSBE123
00203  ++INCLUDE OJRPE123                                               DTSBE123
00204 ***************************************************************   DTSBE123
00205 *  THIS MODULE CAUSES THE PROCESSING OF THE MERA SEGMENTS.        DTSBE123
00206 ***************************************************************   DTSBE123
00207                                                                   DTSBE123
00208  P0000-PROCESS.                                                   DTSBE123
00209                                                                   DTSBE123
00210      IF MPRF-CLASS-CHG-ONLY-88                                    DTSBE123
00211          GO TO P0000-EXIT.                                        DTSBE123
00212                                                                   DTSBE123
00213      MOVE LOW-VALUES               TO  MERA-KEY-AREA.             DTSBE123
00214      MOVE MPRF-EMP-NO              TO  MERA-EMP-NO.               DTSBE123
00215      SET MERA-ERA-88               TO  TRUE.                      DTSBE123
00216      MOVE MERA-KEY-AREA            TO  MSKL-KEY-AREA.             DTSBE123
00217                                                                   DTSBE123
00218      PERFORM S910-READ THRU S910-EXIT.                            DTSBE123
00219      IF L910-OK-88                                                DTSBE123
00220          MOVE MSKL-REC             TO  MERA-REC                   DTSBE123
00221          PERFORM P1000-PROCESS-MERA  THRU P1000-EXIT.             DTSBE123
00222                                                                   DTSBE123
00223  P0000-EXIT.                                                      DTSBE123
00224                                                                   DTSBE123
00225      EXIT.                                                        DTSBE123
00226      EJECT                                                        DTSBE123
00227 ***************************************************************   DTSBE123
00228 *  THIS MODULE PROCESSES THE MERA SEGMENTS.                       DTSBE123
00229 ***************************************************************   DTSBE123
00230                                                                   DTSBE123
00231  P1000-PROCESS-MERA.                                              DTSBE123
00232                                                                   DTSBE123
00233      IF MERA-STATUS-COOP-88                                       DTSBE123
00234          IF MERA-COOP-AGENCY-REQ-DATE  GREATER THAN               DTSBE123
00235                                           WRK-PARM-05-CUTOFF-DATE DTSBE123
00236              NEXT SENTENCE                                        DTSBE123
00237          ELSE                                                     DTSBE123
00238              MOVE WRK-PARM-05-CUTOFF-DATE                         DTSBE123
00239                                      TO  R123-STATUS-CUTOFF-DATE  DTSBE123
00240              PERFORM P1100-SETUP-R123  THRU P1100-EXIT            DTSBE123
00241              PERFORM S946-WRITE-R123 THRU S946-EXIT               DTSBE123
00242      ELSE                                                         DTSBE123
00243          IF MERA-STATUS-ASSGN-GEN-88                              DTSBE123
00244              IF MERA-FIELD-ASSIGN-DATE   GREATER THAN             DTSBE123
00245                                           WRK-PARM-06-CUTOFF-DATE DTSBE123
00246                  NEXT SENTENCE                                    DTSBE123
00247              ELSE                                                 DTSBE123
00248                  MOVE WRK-PARM-06-CUTOFF-DATE                     DTSBE123
00249                                      TO  R123-STATUS-CUTOFF-DATE  DTSBE123
00250                  PERFORM P1100-SETUP-R123 THRU P1100-EXIT         DTSBE123
00251                  PERFORM S946-WRITE-R123 THRU S946-EXIT           DTSBE123
00252          ELSE                                                     DTSBE123
00253              IF MERA-STATUS-MANUAL-88                             DTSBE123
00254                  IF MERA-STATUS-CHNG-DATE  GREATER THAN           DTSBE123
00255                                           WRK-PARM-09-CUTOFF-DATE DTSBE123
00256                      NEXT SENTENCE                                DTSBE123
00257                  ELSE                                             DTSBE123
00258                      MOVE WRK-PARM-09-CUTOFF-DATE                 DTSBE123
00259                                      TO  R123-STATUS-CUTOFF-DATE  DTSBE123
00260                      PERFORM P1100-SETUP-R123 THRU P1100-EXIT     DTSBE123
00261                      PERFORM S946-WRITE-R123 THRU S946-EXIT       DTSBE123
00262              ELSE                                                 DTSBE123
00263                  IF MERA-STATUS-RECD-88                           DTSBE123
00264                      IF MERA-RECEIVED-DATE  GREATER THAN          DTSBE123
00265                                           WRK-PARM-11-CUTOFF-DATE DTSBE123
00266                          NEXT SENTENCE                            DTSBE123
00267                      ELSE                                         DTSBE123
00268                          MOVE WRK-PARM-11-CUTOFF-DATE             DTSBE123
00269                                      TO  R123-STATUS-CUTOFF-DATE  DTSBE123
00270                          PERFORM P1100-SETUP-R123 THRU P1100-EXIT DTSBE123
00271                          PERFORM S946-WRITE-R123 THRU S946-EXIT.  DTSBE123
00272                                                                   DTSBE123
00273  P1000-EXIT.                                                      DTSBE123
00274      EXIT.                                                        DTSBE123
00275      EJECT                                                        DTSBE123
00276 ***************************************************************   DTSBE123
00277 *  THIS MODULE SETS UP THE R123 EXTRACT RECORDS.                  DTSBE123
00278 ***************************************************************   DTSBE123
00279                                                                   DTSBE123
00280  P1100-SETUP-R123.                                                DTSBE123
00281                                                                   DTSBE123
00282      MOVE MERA-RESPONSIBLE-OP-ID    TO  R123-RESPONSIBLE-OP-ID.   DTSBE123
00283      MOVE MERA-STATUS-CD            TO  R123-STATUS-CD.           DTSBE123
00284      MOVE MERA-EMP-NO               TO  R123-EMP-NO.              DTSBE123
00285      MOVE MPRF-PRIMARY-NAME         TO  R123-PRIMARY-NAME.        DTSBE123
00286      MOVE MERA-STATUS-CHNG-DATE     TO  R123-STATUS-CHNG-DATE.    DTSBE123
00287                                                                   DTSBE123
00288      PERFORM S061-DETERMINE-FLD-REP  THRU  S061-EXIT.             DTSBE123
00289      MOVE L061-FLD-REP-ID           TO  R123-FLD-REP-ID.          DTSBE123
00290                                                                   DTSBE123
00291  P1100-EXIT.                                                      DTSBE123
00292      EXIT.                                                        DTSBE123
00293      EJECT                                                        DTSBE123
00294  T0000-TERMINATE.                                                 DTSBE123
00295      SKIP2                                                        DTSBE123
00296      SKIP2                                                        DTSBE123
00297  T0000-EXIT.                                                      DTSBE123
00298      EXIT.                                                        DTSBE123
00299      EJECT                                                        DTSBE123
00300  S001-FROM-FED-8.                                                 DTSBE123
00301      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE123
00302      GO TO S001-DATE.                                             DTSBE123
00303                                                                   DTSBE123
00304  S001-FROM-CAL-6.                                                 DTSBE123
00305      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE123
00306      GO TO S001-DATE.                                             DTSBE123
00307                                                                   DTSBE123
00308  S001-FROM-ABS-DAY.                                               DTSBE123
00309      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE123
00310      GO TO S001-DATE.                                             DTSBE123
00311                                                                   DTSBE123
00312  S001-DATE.                                                       DTSBE123
00313      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE123
00314  S001-EXIT.                                                       DTSBE123
00315      EXIT.                                                        DTSBE123
00316      SKIP3                                                        DTSBE123
00317  S061-DETERMINE-FLD-REP.                                          DTSBE123
00318      MOVE MPRF-FLD-ZIP TO L061-FLD-ZIP.                           DTSBE123
00319      MOVE MPRF-EMP-NO TO L061-EMP-NO.                             DTSBE123
00320                                                                   DTSBE123
00321      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBE123
00322  S061-EXIT.                                                       DTSBE123
00323      EXIT.                                                        DTSBE123
00324      SKIP3                                                        DTSBE123
00325  S910-READ.                                                       DTSBE123
00326      SET L910-READ-88 TO TRUE.                                    DTSBE123
00327      GO TO S910-MSTR-IO.                                          DTSBE123
00328                                                                   DTSBE123
00329  S910-START-BROWSE.                                               DTSBE123
00330      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE123
00331      GO TO S910-MSTR-IO.                                          DTSBE123
00332                                                                   DTSBE123
00333  S910-READ-NEXT.                                                  DTSBE123
00334      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE123
00335      GO TO S910-MSTR-IO.                                          DTSBE123
00336                                                                   DTSBE123
00337  S910-COUNT.                                                      DTSBE123
00338      SET L910-COUNT-88 TO TRUE.                                   DTSBE123
00339      GO TO S910-MSTR-IO.                                          DTSBE123
00340                                                                   DTSBE123
00341  S910-MSTR-IO.                                                    DTSBE123
00342      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE123
00343                            MSKL-REC.                              DTSBE123
00344  S910-EXIT.                                                       DTSBE123
00345      EXIT.                                                        DTSBE123
00346      SKIP3                                                        DTSBE123
00347  S946-WRITE-R123.                                                 DTSBE123
00348      CALL 'DTSBU946' USING R123-REC.                              DTSBE123
00349      GO TO S946-EXIT.                                             DTSBE123
00350                                                                   DTSBE123
00351  S946-EXIT.                                                       DTSBE123
00352      EXIT.                                                        DTSBE123
00353      SKIP3                                                        DTSBE123
00354  S999-ABEND.                                                      DTSBE123
00355      DISPLAY '*** DTSBE123 ABENDING.  '                           DTSBE123
00356              ABEND-MSG.                                           DTSBE123
00357                                                                   DTSBE123
00358      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE123
00359  S999-EXIT.                                                       DTSBE123
00360      EXIT.                                                        DTSBE123
