00001  IDENTIFICATION DIVISION.                                         04/05/04
00002  PROGRAM-ID.             DTSBD318.                                DTSBD318
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV001
00004  DATE-WRITTEN.           SEPT 2003.                               DTSBD318
00005  DATE-COMPILED.                                                   DTSBD318
00006      SKIP3                                                        DTSBD318
00007 *****                                                             DTSBD318
00008 *                                                                 DTSBD318
00009 *    FUNCTION:  SET EFT INDICATOR                                 DTSBD318
00010 *                                                                 DTSBD318
00011 *                                                                 DTSBD318
00012 *    MODIFICATION LOG:                                            DTSBD318
00013 *                                                                 DTSBD318
00014 *    09/10/2003  MODIFIED FOR EFT ENROLLMENT.                     DTSBD318
00015 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSBD318
00016 *                                                                 DTSBD318
00017                                                                   DTSBD318
00018 *  DESCRIPTION:                                                   DTSBD318
00019 *                                                                 DTSBD318
00020 *      MASTER FILE RECORDS READ:                                  DTSBD318
00021 *                                                                 DTSBD318
00022 *        MRTE                                                     DTSBD318
00023 *        MSOL                                                     DTSBD318
00024 *                                                                 DTSBD318
00025 *                                                                 DTSBD318
00026 *      MASTER FILE RECORDS UPDATED:                               DTSBD318
00027 *                                                                 DTSBD318
00028 *        NONE                                                     DTSBD318
00029 *                                                                 DTSBD318
00030 *      REPORT RECORDS WRITTEN:                                    DTSBD318
00031 *                                                                 DTSBD318
00032 *        NONE                                                     DTSBD318
00033 *                                                                 DTSBD318
00034 *                                                                 DTSBD318
00035 *      MODULES CALLED:                                            DTSBD318
00036 *                                                                 DTSBD318
00037 *        NONE                                                     DTSBD318
00038 *                                                                 DTSBD318
00039 *                                                                 DTSBD318
00040 *****                                                             DTSBD318
00041      SKIP3                                                        DTSBD318
00042  ENVIRONMENT DIVISION.                                            DTSBD318
00043      EJECT                                                        DTSBD318
00044  DATA DIVISION.                                                   DTSBD318
00045      SKIP3                                                        DTSBD318
00046  WORKING-STORAGE SECTION.                                         DTSBD318
000465 77  PAN-VALET PICTURE X(24) VALUE '001DTSBD318  04/05/04'.       DTSBD318
00047      SKIP3                                                        DTSBD318
00048  01  WRK-AREA.                                                    DTSBD318
00049      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +318.DTSBD318
00050                                                                   DTSBD318
00051      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD318'.DTSBD318
00052                                                                   DTSBD318
00053  01  MSKL-REC.                                                    DTSBD318
00054  ++INCLUDE DTSIMSKL                                               DTSBD318
00055      EJECT                                                        DTSBD318
00056  LINKAGE SECTION.                                                 DTSBD318
00057      SKIP3                                                        DTSBD318
00058  01  LBCM-LINK-AREA.                                              DTSBD318
00059  ++INCLUDE DTSILBCM                                               DTSBD318
00060      EJECT                                                        DTSBD318
00061  01  MPRF-REC.                                                    DTSBD318
00062  ++INCLUDE DTSIMPRF                                               DTSBD318
00063      EJECT                                                        DTSBD318
00064  01  T001-REC.                                                    DTSBD318
00065  ++INCLUDE DTSIT001                                               DTSBD318
00066      EJECT                                                        DTSBD318
00067  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD318
00068                           MPRF-REC                                DTSBD318
00069                           T001-REC.                               DTSBD318
00070                                                                   DTSBD318
00071      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBD318
00072                                                                   DTSBD318
00073                                                                   DTSBD318
00074      GOBACK.                                                      DTSBD318
00075                                                                   DTSBD318
00076  P0000-PROCESS.                                                   DTSBD318
00077                                                                   DTSBD318
00078      IF T001-EFT-ENROLL-ADD-88                                    DTSBD318
00079         SET MPRF-EFT-ENROLLED-YES-88  TO TRUE                     DTSBD318
00080      ELSE                                                         DTSBD318
00081        IF T001-EFT-ENROLL-DEL-88                                  DTSBD318
00082         SET MPRF-EFT-ENROLLED-NO-88   TO TRUE.                    DTSBD318
00083                                                                   DTSBD318
00084  P0000-EXIT. EXIT.                                                DTSBD318
00085      EJECT                                                        DTSBD318