00001  IDENTIFICATION DIVISION.                                         08/02/02
00002  PROGRAM-ID.             DTSBE311.                                DTSBE311
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV027
00004  DATE-WRITTEN.           AUGUST 1994.                             DTSBE311
00005                          MODIFIED BY TRW JAN 1999                 DTSBE311
00006  DATE-COMPILED.                                                   DTSBE311
00007      SKIP3                                                        DTSBE311
00008 *****                                                             DTSBE311
00009 *                                                                 DTSBE311
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBE311
00011 *                       DTSBE311 WHICH CREATES DTSIR311 RECORDS   DTSBE311
00012 *                       DTSBD800 CALLS                            DTSBE311
00013 *                       DTSBR311 READS DTSIR311                   DTSBE311
00014 *                                                                 DTSBE311
00015 *    FUNCTION:  FIELD REPRESENTATIVE PAYMENT TRANSACTION LIST.    DTSBE311
00016 *                                                                 DTSBE311
00017 *                                                                 DTSBE311
00018 *    MODIFICATION LOG:                                            DTSBE311
00019 *                                                                 DTSBE311
00020 *              WORK ORDER:                      PROGRAMMER: XXX   DTSBE311
00021 *    09/15/01  OJR IMPLEMENTATION                           JMO'  DTSBE311
00022 *                                                                 DTSBE311
00023 *                                                                 DTSBE311
00024 *  DESCRIPTION:                                                   DTSBE311
00025 *                                                                 DTSBE311
00026 *                                                                 DTSBE311
00027 *    INITIATION:                                                  DTSBE311
00028 *                                                                 DTSBE311
00029 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE311
00030 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE311
00031 *                                                                 DTSBE311
00032 *      EDIT AND DEFAULT PARAMETERS.  SEE PRINTED OUTPUTS          DTSBE311
00033 *      DESCRIPTIONS AND LAYOUTS (311R1).                          DTSBE311
00034 *                                                                 DTSBE311
00035 *      SCAN THE FFID RECORDS, CONSTRUCTING WRK-FLD-REP-TABLE.     DTSBE311
00036 *                                                                 DTSBE311
00037 *                                                                 DTSBE311
00038 *    PROCESSING:                                                  DTSBE311
00039 *                                                                 DTSBE311
00040 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (311R1).       DTSBE311
00041 *                                                                 DTSBE311
00042 *      HOW CAN ONE DETERMINE WHETHER OR NOT THE OPERATOR ID       DTSBE311
00043 *      VALUE IN MPAY-RESPONSIBLE-OP-ID REPRESENTS A FIELD REP?    DTSBE311
00044 *                                                                 DTSBE311
00045 *      DURING THE INITIALIZATION PROCESS, SCAN THE FFID RECORDS   DTSBE311
00046 *      AND CONSTRUCT A TABLE OF ALL FLD-REP-ID VALUES AND THE     DTSBE311
00047 *      OP-ID VALUE RELATED TO THE FIELD REP ID.                   DTSBE311
00048 *                                                                 DTSBE311
00049 *      THEN DURING THE PROCESSING OF MPAY RECORDS: IF             DTSBE311
00050 *      MPAY-RESPONSIBLE-OP-ID IS EQUAL TO SPACES, THEN BYPASS     DTSBE311
00051 *      THE MPAY RECORD IMMEDIATELY; OTHERWISE COMPARE             DTSBE311
00052 *      MPAY-RESPONSIBLE-OP-ID TO THE ENTRIES IN WRK-OP-ID.  A     DTSBE311
00053 *      HIT INDICATES MPAY-RESPONSIBLE-OP-ID IS A FIELD REP.       DTSBE311
00054 *                                                                 DTSBE311
00055 *                                                                 DTSBE311
00056 *    TERMINATION:                                                 DTSBE311
00057 *                                                                 DTSBE311
00058 *      NONE.                                                      DTSBE311
00059 *                                                                 DTSBE311
00060 *                                                                 DTSBE311
00061 *    RECORDS READ:                                                DTSBE311
00062 *                                                                 DTSBE311
00063 *      MASTER:                                                    DTSBE311
00064 *                                                                 DTSBE311
00065 *        MPAY                                                     DTSBE311
00066 *                                                                 DTSBE311
00067 *                                                                 DTSBE311
00068 *      ALTERNATE INDEX:                                           DTSBE311
00069 *                                                                 DTSBE311
00070 *        NONE.                                                    DTSBE311
00071 *                                                                 DTSBE311
00072 *                                                                 DTSBE311
00073 *      REFERENCE:                                                 DTSBE311
00074 *                                                                 DTSBE311
00075 *        FFID                                                     DTSBE311
00076 *                                                                 DTSBE311
00077 *                                                                 DTSBE311
00078 *    RECORDS UPDATED:                                             DTSBE311
00079 *                                                                 DTSBE311
00080 *        NONE.                                                    DTSBE311
00081 *                                                                 DTSBE311
00082 *                                                                 DTSBE311
00083 *    REPORT RECORDS WRITTEN:                                      DTSBE311
00084 *                                                                 DTSBE311
00085 *        R311  FIELD REPRESENTATIVE PAYMENT TRANSACTION LIST.     DTSBE311
00086 *                                                                 DTSBE311
00087 *                                                                 DTSBE311
00088 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE311
00089 *                                                                 DTSBE311
00090 *        NONE.                                                    DTSBE311
00091 *                                                                 DTSBE311
00092 *                                                                 DTSBE311
00093 *    MODULES CALLED:                                              DTSBE311
00094 *                                                                 DTSBE311
00095 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE311
00096 *        DTSBU910  MASTER FILE I/O.                               DTSBE311
00097 *        DTSBU931  REFERENCE FILE I/O.                            DTSBE311
00098 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE311
00099 *                                                                 DTSBE311
00100 *                                                                 DTSBE311
00101 *    VERMONT REFERENCE:                                           DTSBE311
00102 *                                                                 DTSBE311
00103 *        NONE.                                                    DTSBE311
00104 *                                                                 DTSBE311
00105 *****                                                             DTSBE311
00106      SKIP3                                                        DTSBE311
00107  ENVIRONMENT DIVISION.                                            DTSBE311
00108      SKIP3                                                        DTSBE311
00109  DATA DIVISION.                                                   DTSBE311
00110      SKIP3                                                        DTSBE311
00111  WORKING-STORAGE SECTION.                                         DTSBE311
001115 77  PAN-VALET PICTURE X(24) VALUE '027DTSBE311  08/02/02'.       DTSBE311
00112      SKIP3                                                        DTSBE311
00113  01  WRK-AREA.                                                    DTSBE311
00114      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +311.DTSBE311
00115      SKIP1                                                        DTSBE311
00116      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE311'.DTSBE311
00117      SKIP3                                                        DTSBE311
00118      05  ABEND-MSG                   PIC  X(60).                  DTSBE311
00119      SKIP3                                                        DTSBE311
00120      05  TBL-SUB                     PIC S9(04)  COMP.            DTSBE311
00121      SKIP3                                                        DTSBE311
00122      05  TBL-CNT                     PIC S9(04)  COMP.            DTSBE311
00123      05  TBL-ENTRY OCCURS 100 TIMES                               DTSBE311
00124                    INDEXED BY TBL-IDX.                            DTSBE311
00125          10  TBL-FLD-REP-ID          PIC  X(02).                  DTSBE311
00126          10  TBL-OP-ID               PIC  X(08).                  DTSBE311
00127      EJECT                                                        DTSBE311
00128  01  L001-LINK-AREA.                                              DTSBE311
00129  ++INCLUDE DTSIL001                                               DTSBE311
00130      EJECT                                                        DTSBE311
00131  01  L910-LINK-AREA.                                              DTSBE311
00132  ++INCLUDE DTSIL910                                               DTSBE311
00133      SKIP3                                                        DTSBE311
00134  01  MSKL-REC.                                                    DTSBE311
00135  ++INCLUDE DTSIMSKL                                               DTSBE311
00136      SKIP3                                                        DTSBE311
00137  01  MPAY-REC.                                                    DTSBE311
00138  ++INCLUDE DTSIMPAY                                               DTSBE311
00139      EJECT                                                        DTSBE311
00140  01  L931-LINK-AREA.                                              DTSBE311
00141  ++INCLUDE DTSIL931                                               DTSBE311
00142      SKIP3                                                        DTSBE311
00143  01  FSKL-REC.                                                    DTSBE311
00144  ++INCLUDE DTSIFSKL                                               DTSBE311
00145      SKIP3                                                        DTSBE311
00146  01  FFID-REC.                                                    DTSBE311
00147  ++INCLUDE DTSIFFID                                               DTSBE311
00148      EJECT                                                        DTSBE311
00149  01  R311-REC.                                                    DTSBE311
00150  ++INCLUDE DTSIR311                                               DTSBE311
00151      EJECT                                                        DTSBE311
00152  ++INCLUDE OJRWE311                                               DTSBE311
00153      EJECT                                                        DTSBE311
00154  LINKAGE SECTION.                                                 DTSBE311
00155      SKIP3                                                        DTSBE311
00156  01  LECM-LINK-AREA.                                              DTSBE311
00157  ++INCLUDE DTSILECM                                               DTSBE311
00158      SKIP3                                                        DTSBE311
00159          10  LECM-PARM-AREA REDEFINES LECM-EXTRACT-PARMS.         DTSBE311
00160              15  LECM-PARM-PERIOD-START-DATE PIC  X(06).          DTSBE311
00161              15  FILLER                      PIC  X(01).          DTSBE311
00162              15  LECM-PARM-PERIOD-END-DATE   PIC  X(06).          DTSBE311
00163              15  FILLER                      PIC  X(55).          DTSBE311
00164      EJECT                                                        DTSBE311
00165  01  MPRF-LINK-REC.                                               DTSBE311
00166  ++INCLUDE DTSIMPRF                                               DTSBE311
00167      EJECT                                                        DTSBE311
00168 **************************************************************    DTSBE311
00169 *  PROCEDURE DIVISION FOR DTSBE311 - REPORT EXTRACT FOR           DTSBE311
00170 *  FIELD REPRESENTATIVE PAYMENT TRANSACTION LIST BEGINS HERE.     DTSBE311
00171 **************************************************************    DTSBE311
00172                                                                   DTSBE311
00173  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE311
00174                           MPRF-LINK-REC.                          DTSBE311
00175      SKIP2                                                        DTSBE311
00176                                                                   DTSBE311
00177      EVALUATE TRUE                                                DTSBE311
00178          WHEN LECM-PROCESS-88                                     DTSBE311
00179              PERFORM P0000-PROCESS THRU P0000-EXIT                DTSBE311
00180                                                                   DTSBE311
00181          WHEN LECM-INITIALIZE-88                                  DTSBE311
00182              SET WRK-EDIT-PASSED-88   TO TRUE                     DTSBE311
00183              PERFORM I0000-INITIALIZE THRU I0000-EXIT             DTSBE311
00184              IF WRK-EDIT-FAILED-88                                DTSBE311
00185                  PERFORM S999-ABEND THRU S999-EXIT                DTSBE311
00186              END-IF                                               DTSBE311
00187                                                                   DTSBE311
00188          WHEN LECM-TERMINATE-88                                   DTSBE311
00189              PERFORM T0000-TERMINATE THRU T0000-EXIT              DTSBE311
00190                                                                   DTSBE311
00191          WHEN OTHER                                               DTSBE311
00192              MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'        DTSBE311
00193                    TO ABEND-MSG                                   DTSBE311
00194              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE311
00195                                                                   DTSBE311
00196      END-EVALUATE.                                                DTSBE311
00197                                                                   DTSBE311
00198      SKIP2                                                        DTSBE311
00199      GOBACK.                                                      DTSBE311
00200      EJECT                                                        DTSBE311
00201 **************************************************************    DTSBE311
00202 *  THIS IS THE INITIALIZATION PARAGRAPH FOR DTSBE311.             DTSBE311
00203 **************************************************************    DTSBE311
00204                                                                   DTSBE311
00205  I0000-INITIALIZE.                                                DTSBE311
00206      SKIP2                                                        DTSBE311
00207      MOVE LECM-TRACE-IND TO L910-TRACE-IND                        DTSBE311
00208                             L931-TRACE-IND.                       DTSBE311
00209      MOVE WRK-MOD-NAME TO L910-MOD-NAME                           DTSBE311
00210                           L931-MOD-NAME.                          DTSBE311
00211      MOVE LENGTH OF R311-REC      TO  R311-LENGTH.                DTSBE311
00212      MOVE '311'                   TO  R311-REC-TYPE.              DTSBE311
00213 *OJR                                                              DTSBE311
00214      DISPLAY 'I000-INIT START'                                    DTSBE311
00215      MOVE LECM-PARM-PERIOD-START-DATE                             DTSBE311
00216                                    TO OJR-PARM-PERIOD-START-DATE. DTSBE311
00217      MOVE LECM-PARM-PERIOD-END-DATE TO OJR-PARM-PERIOD-END-DATE.  DTSBE311
00218      MOVE LECM-PERIOD-START-DATE    TO OJR-PERIOD-START-DATE.     DTSBE311
00219      MOVE LECM-PERIOD-END-DATE      TO OJR-PERIOD-END-DATE.       DTSBE311
00220                                                                   DTSBE311
00221      DISPLAY 'ABOUT TO CALL I1000-INIT START'                     DTSBE311
00222      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE311
00223      SKIP1                                                        DTSBE311
00224      DISPLAY 'ABOUT TO CALL I2000-TBL-FLD'                        DTSBE311
00225      PERFORM I2000-TBL-FLD-REP-ID THRU I2000-EXIT.                DTSBE311
00226      SKIP1                                                        DTSBE311
00227      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE311
00228      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE311
00229      SKIP2                                                        DTSBE311
00230  I0000-EXIT.                                                      DTSBE311
00231      EXIT.                                                        DTSBE311
00232      SKIP3                                                        DTSBE311
00233  ++INCLUDE OJRPE311                                               DTSBE311
00234      EJECT                                                        DTSBE311
00235 **************************************************************    DTSBE311
00236 *  THIS PARAGRAPH STARTS THE BROWSE OF FFID RECORDS.              DTSBE311
00237 **************************************************************    DTSBE311
00238                                                                   DTSBE311
00239  I2000-TBL-FLD-REP-ID.                                            DTSBE311
00240                                                                   DTSBE311
00241      MOVE +0 TO TBL-CNT.                                          DTSBE311
00242                                                                   DTSBE311
00243      MOVE LOW-VALUES TO FFID-KEY-AREA.                            DTSBE311
00244      SET FFID-FID-88 TO TRUE.                                     DTSBE311
00245      MOVE FFID-KEY-AREA TO FSKL-KEY-AREA.                         DTSBE311
00246                                                                   DTSBE311
00247      PERFORM S931-START-BROWSE THRU S931-EXIT.                    DTSBE311
00248                                                                   DTSBE311
00249      PERFORM I2100-FFID-SCAN THRU I2100-EXIT                      DTSBE311
00250               VARYING TBL-IDX FROM 1 BY 1                         DTSBE311
00251          UNTIL L931-NO-REC-88.                                    DTSBE311
00252  I2000-EXIT.                                                      DTSBE311
00253      EXIT.                                                        DTSBE311
00254      SKIP3                                                        DTSBE311
00255 **************************************************************    DTSBE311
00256 *  THIS PARAGRAPH SCANS THE FFID RECORDS AND SETS UP A TABLE      DTSBE311
00257 *  OF FIELD REP IDS IN WORKING STORAGE.                           DTSBE311
00258 **************************************************************    DTSBE311
00259                                                                   DTSBE311
00260  I2100-FFID-SCAN.                                                 DTSBE311
00261                                                                   DTSBE311
00262      MOVE FSKL-REC TO FFID-REC.                                   DTSBE311
00263                                                                   DTSBE311
00264      IF TBL-CNT < +100                                            DTSBE311
00265          ADD +1 TO TBL-CNT                                        DTSBE311
00266          MOVE FFID-FLD-REP-ID TO TBL-FLD-REP-ID (TBL-IDX)         DTSBE311
00267          MOVE FFID-OP-ID TO TBL-OP-ID (TBL-IDX)                   DTSBE311
00268          DISPLAY 'TABLE ENTRY '   TBL-ENTRY(TBL-IDX)              DTSBE311
00269      ELSE                                                         DTSBE311
00270          MOVE 'MORE THAN 100 FIELD REPRESENTATIVES ENCOUNTERED'   DTSBE311
00271            TO ABEND-MSG                                           DTSBE311
00272          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE311
00273                                                                   DTSBE311
00274      PERFORM S931-READ-NEXT THRU S931-EXIT.                       DTSBE311
00275  I2100-EXIT.                                                      DTSBE311
00276      EXIT.                                                        DTSBE311
00277      EJECT                                                        DTSBE311
00278 **************************************************************    DTSBE311
00279 *  THIS IS THE PROCESS PARAGRAPH FOR DTSBE311.                    DTSBE311
00280 **************************************************************    DTSBE311
00281                                                                   DTSBE311
00282  P0000-PROCESS.                                                   DTSBE311
00283                                                                   DTSBE311
00284      MOVE LOW-VALUES             TO  MPAY-KEY-AREA.               DTSBE311
00285      MOVE MPRF-EMP-NO            TO  MPAY-EMP-NO.                 DTSBE311
00286      SET MPAY-PAY-88             TO  TRUE.                        DTSBE311
00287      MOVE MPAY-KEY-AREA          TO  MSKL-KEY-AREA.               DTSBE311
00288                                                                   DTSBE311
00289      PERFORM S910-START-BROWSE  THRU  S910-EXIT.                  DTSBE311
00290                                                                   DTSBE311
00291      PERFORM P1000-SCAN-MPAY  THRU  P1000-EXIT                    DTSBE311
00292          UNTIL L910-NO-REC-88.                                    DTSBE311
00293                                                                   DTSBE311
00294  P0000-EXIT.                                                      DTSBE311
00295      EXIT.                                                        DTSBE311
00296      EJECT                                                        DTSBE311
00297 **************************************************************    DTSBE311
00298 *  THIS PARAGRAPH SCANS THE MPAY RECORDS.                         DTSBE311
00299 **************************************************************    DTSBE311
00300                                                                   DTSBE311
00301  P1000-SCAN-MPAY.                                                 DTSBE311
00302                                                                   DTSBE311
00303      MOVE MSKL-REC               TO  MPAY-REC.                    DTSBE311
00304                                                                   DTSBE311
00305      IF MPAY-RESPONSIBLE-OP-ID  EQUAL  SPACES                     DTSBE311
00306          NEXT SENTENCE                                            DTSBE311
00307      ELSE                                                         DTSBE311
00308          IF MPAY-PAYMENT-88                                       DTSBE311
00309              PERFORM P1100-PROCESS-MPAY  THRU  P1100-EXIT.        DTSBE311
00310                                                                   DTSBE311
00311      PERFORM S910-READ-NEXT  THRU  S910-EXIT.                     DTSBE311
00312                                                                   DTSBE311
00313  P1000-EXIT.                                                      DTSBE311
00314      EXIT.                                                        DTSBE311
00315      EJECT                                                        DTSBE311
00316 **************************************************************    DTSBE311
00317 *  THIS PARAGRAPH PROCESSES THE MPAY RECORDS.                     DTSBE311
00318 **************************************************************    DTSBE311
00319                                                                   DTSBE311
00320  P1100-PROCESS-MPAY.                                              DTSBE311
00321                                                                   DTSBE311
00322      IF MPAY-ESTB-DATE  LESS THAN  WRK-PARM-PERIOD-START-DATE     DTSBE311
00323          GO TO P1100-EXIT.                                        DTSBE311
00324                                                                   DTSBE311
00325      IF MPAY-ESTB-DATE  GREATER THAN  WRK-PARM-PERIOD-END-DATE    DTSBE311
00326          GO TO P1100-EXIT.                                        DTSBE311
00327                                                                   DTSBE311
00328      MOVE +0                     TO  TBL-SUB.                     DTSBE311
00329                                                                   DTSBE311
00330      PERFORM P1110-DETER-FIELD-REP  THRU  P1110-EXIT              DTSBE311
00331          VARYING TBL-IDX  FROM 1 BY 1                             DTSBE311
00332              UNTIL  TBL-SUB  NOT EQUAL  +0         OR             DTSBE311
00333                     TBL-IDX  GREATER THAN  TBL-CNT.               DTSBE311
00334                                                                   DTSBE311
00335      IF TBL-SUB                EQUAL  ZERO                        DTSBE311
00336          GO TO P1100-EXIT                                         DTSBE311
00337      ELSE                                                         DTSBE311
00338          PERFORM P1120-SETUP-R311  THRU  P1120-EXIT               DTSBE311
00339          PERFORM S946-WRITE-R311  THRU  S946-EXIT.                DTSBE311
00340                                                                   DTSBE311
00341  P1100-EXIT.                                                      DTSBE311
00342      EXIT.                                                        DTSBE311
00343      EJECT                                                        DTSBE311
00344 **************************************************************    DTSBE311
00345 *  THIS PARAGRAPH READS THE FIELD REP TABLE IN WORKING STORAGE    DTSBE311
00346 *  TO DETERMINE IF THE RESPONSIBLE ID IS A FIELD REP.             DTSBE311
00347 **************************************************************    DTSBE311
00348                                                                   DTSBE311
00349  P1110-DETER-FIELD-REP.                                           DTSBE311
00350                                                                   DTSBE311
00351      IF TBL-OP-ID (TBL-IDX)  EQUAL  MPAY-RESPONSIBLE-OP-ID        DTSBE311
00352          SET TBL-SUB               TO  TBL-IDX.                   DTSBE311
00353                                                                   DTSBE311
00354  P1110-EXIT.                                                      DTSBE311
00355      EXIT.                                                        DTSBE311
00356      EJECT                                                        DTSBE311
00357 **************************************************************    DTSBE311
00358 *  THIS PARAGRAPH SETS UP THE R311 REPORT EXTRACT RECORD.         DTSBE311
00359 **************************************************************    DTSBE311
00360                                                                   DTSBE311
00361  P1120-SETUP-R311.                                                DTSBE311
00362                                                                   DTSBE311
00363      MOVE TBL-FLD-REP-ID (TBL-SUB)   TO  R311-FLD-REP-ID.         DTSBE311
00364      MOVE MPRF-EMP-NO                TO  R311-EMP-NO.             DTSBE311
00365      MOVE WRK-PARM-PERIOD-START-DATE TO  R311-PERIOD-START-DATE.  DTSBE311
00366      MOVE WRK-PARM-PERIOD-END-DATE   TO  R311-PERIOD-END-DATE.    DTSBE311
00367      MOVE MPAY-DOC-NO                TO  R311-DOC-NO.             DTSBE311
00368      MOVE MPAY-APPLIC-YRQ            TO  R311-APPLIC-YRQ.         DTSBE311
00369      MOVE MPAY-REMIT-AMT             TO  R311-AMT.                DTSBE311
00370      MOVE MPAY-RESPONSIBLE-ACTIVITY  TO  R311-REASON-CDE.         DTSBE311
00371                                                                   DTSBE311
00372  P1120-EXIT.                                                      DTSBE311
00373      EXIT.                                                        DTSBE311
00374      EJECT                                                        DTSBE311
00375  T0000-TERMINATE.                                                 DTSBE311
00376      SKIP2                                                        DTSBE311
00377      SKIP2                                                        DTSBE311
00378  T0000-EXIT.                                                      DTSBE311
00379      EXIT.                                                        DTSBE311
00380      EJECT                                                        DTSBE311
00381  S001-FROM-FED-8.                                                 DTSBE311
00382      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE311
00383      GO TO S001-DATE.                                             DTSBE311
00384      SKIP1                                                        DTSBE311
00385  S001-FROM-CAL-6.                                                 DTSBE311
00386      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE311
00387      GO TO S001-DATE.                                             DTSBE311
00388      SKIP1                                                        DTSBE311
00389  S001-FROM-ABS-DAY.                                               DTSBE311
00390      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE311
00391      GO TO S001-DATE.                                             DTSBE311
00392      SKIP1                                                        DTSBE311
00393  S001-DATE.                                                       DTSBE311
00394      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE311
00395  S001-EXIT.                                                       DTSBE311
00396      EXIT.                                                        DTSBE311
00397      SKIP3                                                        DTSBE311
00398  S910-READ.                                                       DTSBE311
00399      SET L910-READ-88 TO TRUE.                                    DTSBE311
00400      GO TO S910-MSTR-IO.                                          DTSBE311
00401      SKIP1                                                        DTSBE311
00402  S910-START-BROWSE.                                               DTSBE311
00403      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE311
00404      GO TO S910-MSTR-IO.                                          DTSBE311
00405      SKIP1                                                        DTSBE311
00406  S910-READ-NEXT.                                                  DTSBE311
00407      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE311
00408      GO TO S910-MSTR-IO.                                          DTSBE311
00409      SKIP1                                                        DTSBE311
00410  S910-COUNT.                                                      DTSBE311
00411      SET L910-COUNT-88 TO TRUE.                                   DTSBE311
00412      GO TO S910-MSTR-IO.                                          DTSBE311
00413      SKIP1                                                        DTSBE311
00414  S910-MSTR-IO.                                                    DTSBE311
00415      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE311
00416                            MSKL-REC.                              DTSBE311
00417  S910-EXIT.                                                       DTSBE311
00418      EXIT.                                                        DTSBE311
00419      SKIP3                                                        DTSBE311
00420  S931-READ.                                                       DTSBE311
00421      SET L931-READ-88 TO TRUE.                                    DTSBE311
00422      GO TO S931-REF-I.                                            DTSBE311
00423      SKIP1                                                        DTSBE311
00424  S931-START-BROWSE.                                               DTSBE311
00425      SET L931-START-BROWSE-88 TO TRUE.                            DTSBE311
00426      GO TO S931-REF-I.                                            DTSBE311
00427      SKIP1                                                        DTSBE311
00428  S931-READ-NEXT.                                                  DTSBE311
00429      SET L931-READ-NEXT-88 TO TRUE.                               DTSBE311
00430      GO TO S931-REF-I.                                            DTSBE311
00431      SKIP1                                                        DTSBE311
00432  S931-REF-I.                                                      DTSBE311
00433      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBE311
00434                            FSKL-REC.                              DTSBE311
00435  S931-EXIT.                                                       DTSBE311
00436      EXIT.                                                        DTSBE311
00437      SKIP3                                                        DTSBE311
00438  S946-WRITE-R311.                                                 DTSBE311
00439      CALL 'DTSBU946' USING R311-REC.                              DTSBE311
00440      GO TO S946-EXIT.                                             DTSBE311
00441      SKIP1                                                        DTSBE311
00442  S946-EXIT.                                                       DTSBE311
00443      EXIT.                                                        DTSBE311
00444      SKIP3                                                        DTSBE311
00445  S999-ABEND.                                                      DTSBE311
00446      DISPLAY '*** DTSBE311 ABENDING.  '                           DTSBE311
00447               ABEND-MSG                                           DTSBE311
00448      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE311
00449  S999-EXIT.                                                       DTSBE311
00450      EXIT.                                                        DTSBE311
