00001 IDENTIFICATION DIVISION. 08/07/12 00002 PROGRAM-ID. DTSBD380. DTSBD380 00003 AUTHOR. TRW. LV011 00004 DATE-WRITTEN. JULY 2003. DTSBD380 00005 DATE-COMPILED. DTSBD380 00006 SKIP3 DTSBD380 00007 ***** DTSBD380 00008 * DTSBD380 00009 * FUNCTION: STATUS UPDATE DRIVER. DTSBD380 00010 * DTSBD380 00011 * DTSBD380 00012 * MODIFICATION LOG: DTSBD380 00013 * DTSBD380 00014 * 07/23/2003 INITIAL DEVELOPMENT. DTSBD380 00015 * WORK ORDER: PROGRAMMER: DTSBD380 00016 * DTSBD380 00017 * 01/18/2005 MODIFIED FOR T003 NOTEPAD TRANSACTION. DTSBD380 00018 * WORK ORDER: PROGRAMMER: GD DTSBD380 00019 * DTSBD380 00020 * 06/01/2005 MODIFIED FOR NEW T002 TRANSACTION - BATCH DTSBD380 00021 * LIABILITY DETERMINATIONS. DTSBD380 00022 * WORK ORDER: PROGRAMMER: GD DTSBD380 00023 * DTSBD380 00024 * 06/16/2008 MODIFIED FOR NEW T003 TRANSACTION - MEVL RECORDS DTSBD380 00025 * WORK ORDER: REFUNDS PROGRAMMER: GD DTSBD380 00026 * DTSBD380 00027 * 04/26/2012 MODIFIED FOR NEW T040 TRANSACTION - WEB AUDITS DTSBD380 00028 * WORK ORDER: AUDITS PROGRAMMER: ZL1 DTSBD380 00029 * DTSBD380 00030 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD380 00031 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD380 00032 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD380 00033 * DTSBD380 00034 * DTSBD380 00035 * DESCRIPTION: DTSBD380 00036 * DTSBD380 00037 * EXAMINES T002-TRN-CD AND CALLS THE APPROPRIATE DTSBD380 00038 * STATUS UPDATE PROCESSING MODULE. DTSBD380 00039 * DTSBD380 00040 ***** DTSBD380 00041 SKIP3 DTSBD380 00042 ENVIRONMENT DIVISION. DTSBD380 00043 EJECT DTSBD380 00044 DATA DIVISION. DTSBD380 00045 SKIP3 DTSBD380 00046 WORKING-STORAGE SECTION. DTSBD380 000465 77 PAN-VALET PICTURE X(24) VALUE '011DTSBD380 08/07/12'. DTSBD380 00047 SKIP3 DTSBD380 00048 01 WRK-AREA. DTSBD380 00049 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +380.DTSBD380 00050 EJECT DTSBD380 00051 01 MSG-TABLE. DTSBD380 00052 05 MSG1-INVALID-TRN-CD. DTSBD380 00053 10 MSG1-ID PIC X(11) VALUE 'DTSBD380905'. DTSBD380 00054 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'INVALID TRN CD'. DTSBD380 00055 10 MSG1-LONG-TEXT. DTSBD380 00056 15 FILLER PIC X(30) DTSBD380 00057 VALUE 'TRANSACTION FAILED - TRANSACTI'. DTSBD380 00058 15 FILLER PIC X(30) DTSBD380 00059 VALUE 'ON CODE NOT VALID '. DTSBD380 00060 EJECT DTSBD380 00061 LINKAGE SECTION. DTSBD380 00062 SKIP3 DTSBD380 00063 01 LBCM-LINK-AREA. DTSBD380 00064 ++INCLUDE DTSILBCM DTSBD380 00065 EJECT DTSBD380 00066 01 MPRF-REC. DTSBD380 00067 ++INCLUDE DTSIMPRF DTSBD380 00068 EJECT DTSBD380 00069 01 TSKL-REC. DTSBD380 00070 ++INCLUDE DTSITSKL DTSBD380 00071 SKIP2 DTSBD380 00072 01 T002-REC REDEFINES TSKL-REC. DTSBD380 00073 ++INCLUDE DTSIT002 DTSBD380 00074 DTSBD380 00075 01 T003-REC REDEFINES TSKL-REC. DTSBD380 00076 ++INCLUDE DTSIT003 DTSBD380 00077 EJECT DTSBD380 00078 01 T040-REC REDEFINES TSKL-REC. DTSBD380 00079 ++INCLUDE DTSIT040 DTSBD380 00080 EJECT DTSBD380 00081 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD380 00082 MPRF-REC DTSBD380 00083 TSKL-REC. DTSBD380 00084 DTSBD380 00085 DTSBD380 00086 IF TSKL-AUTO-EMP-STATUS-88 DTSBD380 00087 PERFORM P1000-AUTO-EMP-STATUS THRU P1000-EXIT DTSBD380 00088 ELSE DTSBD380 00089 IF TSKL-NOTEPAD-88 DTSBD380 00090 PERFORM P2000-NOTEPAD THRU P2000-EXIT DTSBD380 00091 ELSE DTSBD380 00092 IF TSKL-WEB-AUDIT-88 DTSBD380 00093 PERFORM P3000-WEB-AUDIT THRU P3000-EXIT DTSBD380 00094 ELSE DTSBD380 00095 PERFORM S999-ABEND THRU S999-EXIT DTSBD380 00096 END-IF DTSBD380 00097 END-IF. DTSBD380 00098 DTSBD380 00099 DTSBD380 00100 GOBACK. DTSBD380 00101 EJECT DTSBD380 00102 P1000-AUTO-EMP-STATUS. DTSBD380 00103 EVALUATE TRUE DTSBD380 00104 WHEN T002-DETERM-88 DTSBD380 00105 CALL 'DTSBD381' USING LBCM-LINK-AREA DTSBD380 00106 MPRF-REC DTSBD380 00107 T002-REC DTSBD380 00108 DTSBD380 00109 WHEN T002-EMP-RATE-88 DTSBD380 00110 DISPLAY 'BD380 - RATE ' MPRF-EMP-NO DTSBD380 00111 CALL 'DTSBD382' USING LBCM-LINK-AREA DTSBD380 00112 MPRF-REC DTSBD380 00113 T002-REC DTSBD380 00114 DTSBD380 00115 WHEN T002-EMP-ADDR-88 DTSBD380 00116 CALL 'DTSBD383' USING LBCM-LINK-AREA DTSBD380 00117 MPRF-REC DTSBD380 00118 T002-REC DTSBD380 00119 DTSBD380 00120 WHEN T002-CONTACT-88 DTSBD380 00121 CALL 'DTSBD384' USING LBCM-LINK-AREA DTSBD380 00122 MPRF-REC DTSBD380 00123 T002-REC DTSBD380 00124 DTSBD380 00125 WHEN T002-EMP-NAME-88 DTSBD380 00126 CALL 'DTSBD386' USING LBCM-LINK-AREA DTSBD380 00127 MPRF-REC DTSBD380 00128 T002-REC DTSBD380 00129 DTSBD380 00130 WHEN T002-EMP-REL-88 DTSBD380 00131 CALL 'DTSBD387' USING LBCM-LINK-AREA DTSBD380 00132 MPRF-REC DTSBD380 00133 T002-REC DTSBD380 00134 DTSBD380 00135 WHEN OTHER DTSBD380 00136 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD380 00137 MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA DTSBD380 00138 END-EVALUATE. DTSBD380 00139 DTSBD380 00140 P1000-EXIT. DTSBD380 00141 EXIT. DTSBD380 00142 DTSBD380 00143 P2000-NOTEPAD. DTSBD380 00144 DISPLAY 'DTSBD380 P2000 ' T003-EMP-NO ' ' T003-TRN-CD. DTSBD380 00145 EVALUATE TRUE DTSBD380 00146 WHEN T003-ADD-MNTE-88 DTSBD380 00147 CALL 'DTSBD385' USING LBCM-LINK-AREA DTSBD380 00148 MPRF-REC DTSBD380 00149 T003-REC DTSBD380 00150 DTSBD380 00151 WHEN T003-ADD-MEVL-88 DTSBD380 00152 CALL 'DTSBD385' USING LBCM-LINK-AREA DTSBD380 00153 MPRF-REC DTSBD380 00154 T003-REC DTSBD380 00155 DTSBD380 00156 WHEN OTHER DTSBD380 00157 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD380 00158 MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA DTSBD380 00159 END-EVALUATE. DTSBD380 00160 DTSBD380 00161 P2000-EXIT. DTSBD380 00162 EXIT. DTSBD380 00163 P3000-WEB-AUDIT. DTSBD380 00164 EVALUATE TRUE DTSBD380 00165 WHEN T040-MFAS-88 DTSBD380 00166 CALL 'DTSBD388' USING LBCM-LINK-AREA DTSBD380 00167 MPRF-REC DTSBD380 00168 T040-REC DTSBD380 00169 DTSBD380 00170 WHEN T040-MAUR-88 DTSBD380 00171 CALL 'DTSBD388' USING LBCM-LINK-AREA DTSBD380 00172 MPRF-REC DTSBD380 00173 T040-REC DTSBD380 00174 DTSBD380 00175 WHEN T040-MAUY-88 DTSBD380 00176 CALL 'DTSBD388' USING LBCM-LINK-AREA DTSBD380 00177 MPRF-REC DTSBD380 00178 T040-REC DTSBD380 00179 DTSBD380 00180 WHEN OTHER DTSBD380 00181 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD380 00182 MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA DTSBD380 00183 END-EVALUATE. DTSBD380 00184 DTSBD380 00185 P3000-EXIT. DTSBD380 00186 EXIT. DTSBD380 00187 DTSBD380 00188 S999-ABEND. DTSBD380 00189 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD380 00190 S999-EXIT. DTSBD380 00191 EXIT. DTSBD380