00001 IDENTIFICATION DIVISION. 04/05/04 00002 PROGRAM-ID. DTSBD310. DTSBD310 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV007 00004 DATE-WRITTEN. JANUARY 1991. DTSBD310 00005 DATE-COMPILED. DTSBD310 00006 SKIP3 DTSBD310 00007 ***** DTSBD310 00008 * DTSBD310 00009 * FUNCTION: REGISTRATION PROCESSING DRIVER. DTSBD310 00010 * DTSBD310 00011 * DTSBD310 00012 * MODIFICATION LOG: DTSBD310 00013 * DTSBD310 00014 * 01/09/92 INITIAL DEVELOPMENT. DTSBD310 00015 * WORK ORDER: PROGRAMMER: TCL DTSBD310 00016 * DTSBD310 00017 * 10/15/1998 REVIEWED AND MODIFIED FOR DC. DTSBD310 00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD310 00019 * DTSBD310 00020 * 10/31/2001 MODIFIED TO CALL DTSBD317 FOR HOUSEHOLD NOTICES. DTSBD310 00021 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD310 00022 * DTSBD310 00023 * 07/23/2003 MODIFIED TO CALL DTSBD318 TO UPDATE THE EFT DTSBD310 00024 * ENROLLMENT INDICATOR. DTSBD310 00025 * REFERENCE: EFT PROGRAMMER: GD DTSBD310 00026 * DTSBD310 00027 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD310 00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD310 00029 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD310 00030 * DTSBD310 00031 * DTSBD310 00032 * DESCRIPTION: DTSBD310 00033 * DTSBD310 00034 * EXAMINES T001-TRN-CD AND CALLS THE APPROPRIATE DTSBD310 00035 * REGISTRATION PROCESSING MODULE. DTSBD310 00036 * DTSBD310 00037 ***** DTSBD310 00038 SKIP3 DTSBD310 00039 ENVIRONMENT DIVISION. DTSBD310 00040 EJECT DTSBD310 00041 DATA DIVISION. DTSBD310 00042 SKIP3 DTSBD310 00043 WORKING-STORAGE SECTION. DTSBD310 000435 77 PAN-VALET PICTURE X(24) VALUE '007DTSBD310 04/05/04'. DTSBD310 00044 SKIP3 DTSBD310 00045 01 WRK-AREA. DTSBD310 00046 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +310.DTSBD310 00047 EJECT DTSBD310 00048 01 MSG-TABLE. DTSBD310 00049 05 MSG1-INVALID-TRN-CD. DTSBD310 00050 10 MSG1-ID PIC X(11) VALUE 'DTSBD310905'. DTSBD310 00051 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'INVALID TRN CD'. DTSBD310 00052 10 MSG1-LONG-TEXT. DTSBD310 00053 15 FILLER PIC X(30) DTSBD310 00054 VALUE 'TRANSACTION FAILED - TRANSACTI'. DTSBD310 00055 15 FILLER PIC X(30) DTSBD310 00056 VALUE 'ON CODE NOT VALID '. DTSBD310 00057 EJECT DTSBD310 00058 LINKAGE SECTION. DTSBD310 00059 SKIP3 DTSBD310 00060 01 LBCM-LINK-AREA. DTSBD310 00061 ++INCLUDE DTSILBCM DTSBD310 00062 EJECT DTSBD310 00063 01 MPRF-REC. DTSBD310 00064 ++INCLUDE DTSIMPRF DTSBD310 00065 EJECT DTSBD310 00066 01 TSKL-REC. DTSBD310 00067 ++INCLUDE DTSITSKL DTSBD310 00068 SKIP2 DTSBD310 00069 01 T001-REC REDEFINES TSKL-REC. DTSBD310 00070 ++INCLUDE DTSIT001 DTSBD310 00071 EJECT DTSBD310 00072 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD310 00073 MPRF-REC DTSBD310 00074 TSKL-REC. DTSBD310 00075 DTSBD310 00076 DTSBD310 00077 IF TSKL-REGISTRATION-88 DTSBD310 00078 IF T001-LIABLE-PKG DTSBD310 00079 CALL 'DTSBD311' USING LBCM-LINK-AREA DTSBD310 00080 MPRF-REC DTSBD310 00081 T001-REC DTSBD310 00082 ELSE DTSBD310 00083 IF T001-NOT-LIABLE-LTR DTSBD310 00084 CALL 'DTSBD312' USING LBCM-LINK-AREA DTSBD310 00085 MPRF-REC DTSBD310 00086 T001-REC DTSBD310 00087 ELSE DTSBD310 00088 IF T001-INACTIVE-LTR DTSBD310 00089 CALL 'DTSBD313' USING LBCM-LINK-AREA DTSBD310 00090 MPRF-REC DTSBD310 00091 T001-REC DTSBD310 00092 ELSE DTSBD310 00093 IF T001-ERA-CYCLE DTSBD310 00094 CALL 'DTSBD314' USING LBCM-LINK-AREA DTSBD310 00095 MPRF-REC DTSBD310 00096 T001-REC DTSBD310 00097 ELSE DTSBD310 00098 IF T001-FILE-CLERK-LIST DTSBD310 00099 CALL 'DTSBD316' USING LBCM-LINK-AREA DTSBD310 00100 MPRF-REC DTSBD310 00101 T001-REC DTSBD310 00102 ELSE DTSBD310 00103 IF T001-HSEHLD-NOTICES DTSBD310 00104 CALL 'DTSBD317' USING LBCM-LINK-AREA DTSBD310 00105 MPRF-REC DTSBD310 00106 T001-REC DTSBD310 00107 ELSE DTSBD310 00108 IF T001-EFT-ENROLLMENT DTSBD310 00109 CALL 'DTSBD318' USING LBCM-LINK-AREA DTSBD310 00110 MPRF-REC DTSBD310 00111 T001-REC DTSBD310 00112 ELSE DTSBD310 00113 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD310 00114 MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA DTSBD310 00115 ELSE DTSBD310 00116 PERFORM S999-ABEND THRU S999-EXIT. DTSBD310 00117 DTSBD310 00118 DTSBD310 00119 GOBACK. DTSBD310 00120 EJECT DTSBD310 00121 S999-ABEND. DTSBD310 00122 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD310 00123 S999-EXIT. DTSBD310 00124 EXIT. DTSBD310