126 lines
9.9 KiB
COBOL
126 lines
9.9 KiB
COBOL
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
|