87 lines
6.8 KiB
COBOL
87 lines
6.8 KiB
COBOL
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
|