1491 lines
118 KiB
COBOL
1491 lines
118 KiB
COBOL
00001 IDENTIFICATION DIVISION. 05/01/07
|
|
00002 PROGRAM-ID. DTSBE453. DTSBE453
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV005
|
|
00004 DATE-WRITTEN. SEPTEMBER 2002. DTSBE453
|
|
00005 DATE-COMPILED. DTSBE453
|
|
00006 SKIP3 DTSBE453
|
|
00007 ***** DTSBE453
|
|
00008 * DTSBE453
|
|
00009 * FUNCTION: FINAL DELINQUENT REPORT EXTRACT FOR DTSBE453
|
|
00010 * EMPLOYERS FILING ANNUALLY. DTSBE453
|
|
00011 * DTSBE453
|
|
00012 * MODIFICATION LOG: DTSBE453
|
|
00013 * DTSBE453
|
|
00014 * 03/13/95 DON'T PRINT R453 WHEN NO IN-STATE FIELD REP. DTSBE453
|
|
00015 * WORK ORDER: CR049 PROGRAMMER: RHC DTSBE453
|
|
00016 * DTSBE453
|
|
00017 * 04/25/95 ADD R454-SUSPEND-COLL-IND TO REPORT RECORD. DTSBE453
|
|
00018 * WORK ORDER: CR082 PROGRAMMER: RHC DTSBE453
|
|
00019 * DTSBE453
|
|
00020 * 03/13/1999 REVIEWED AND MODIFIED FOR DC. DTSBE453
|
|
00021 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBE453
|
|
00022 * DTSBE453
|
|
00023 * 09/09/2002 INITIAL DEVELOPMENT AND CLONING FROM DTSBE420 DTSBE453
|
|
00024 * REFERENCE: HOUSEHOLD PROGRAMMER: RW1 DTSBE453
|
|
00025 * DTSBE453
|
|
00026 * 11/28/05 ADD MPRF-RETURN-MAIL-IND.IF MPRF-RETURN-MAIL-YES-88DTSBE453
|
|
00027 * ON MPRF-EMP-NO, BY PASS THAT ACCOUNT EXTRACT INFO- DTSBE453
|
|
00028 * MATION AND SEND NO ANNUAL DELINQUENT LETTER TO THATDTSBE453
|
|
00029 * EMPLOYER. DTSBE453
|
|
00030 * WORK ORDER: PROGRAMMER: RW1 DTSBE453
|
|
00031 * DTSBE453
|
|
00032 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE453
|
|
00033 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE453
|
|
00034 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBE453
|
|
00035 * DTSBE453
|
|
00036 * DTSBE453
|
|
00037 * DESCRIPTION: DTSBE453
|
|
00038 * DTSBE453
|
|
00039 * DTSBE453
|
|
00040 * INITIATION: DTSBE453
|
|
00041 * DTSBE453
|
|
00042 * IF LECM-PARM-NOTICE-IND = 'Y' DTSBE453
|
|
00043 * SET LECM-MST-OPEN-UPDATE-88 TO TRUE DTSBE453
|
|
00044 * SET LECM-REF-OPEN-UPDATE-88 TO TRUE DTSBE453
|
|
00045 * ELSE DTSBE453
|
|
00046 * SET LECM-MST-OPEN-READ-88 TO TRUE DTSBE453
|
|
00047 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE453
|
|
00048 * DTSBE453
|
|
00049 * EDIT AND DEFAULT PARAMETERS. SEE PRINTED OUTPUTS DTSBE453
|
|
00050 * DESCRIPTIONS AND LAYOUTS (453R1, 454R1). DTSBE453
|
|
00051 * DTSBE453
|
|
00052 * DTSBE453
|
|
00053 * PROCESSING: DTSBE453
|
|
00054 * DTSBE453
|
|
00055 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (453R1, DTSBE453
|
|
00056 * 454R1). DTSBE453
|
|
00057 * DTSBE453
|
|
00058 * DTSBE453
|
|
00059 * TERMINATION: DTSBE453
|
|
00060 * DTSBE453
|
|
00061 * IF WRK-PARM-NOTICE-IND = 'Y', THEN DTSBE453
|
|
00062 * READ FAFD RECORD FOR WRK-PARM-SUBJECT-YRQ. IF FOUND, DTSBE453
|
|
00063 * REWRITE; IF NOT FOUND, CREATE A FAFD RECORD AND WRITE. DTSBE453
|
|
00064 * MOVE LECM-CURR-RUN-DATE TO FAFD-UC30H-FINAL-DEL-MAIL-DATE. DTSBE453
|
|
00065 * DTSBE453
|
|
00066 * DTSBE453
|
|
00067 * RECORDS READ: DTSBE453
|
|
00068 * DTSBE453
|
|
00069 * MASTER: DTSBE453
|
|
00070 * DTSBE453
|
|
00071 * MQTR DTSBE453
|
|
00072 * MTAD DTSBE453
|
|
00073 * MOPO DTSBE453
|
|
00074 * MTAA DTSBE453
|
|
00075 * DTSBE453
|
|
00076 * DTSBE453
|
|
00077 * ALTERNATE INDEX: DTSBE453
|
|
00078 * DTSBE453
|
|
00079 * NONE. DTSBE453
|
|
00080 * DTSBE453
|
|
00081 * DTSBE453
|
|
00082 * REFERENCE: DTSBE453
|
|
00083 * DTSBE453
|
|
00084 * FAFD DTSBE453
|
|
00085 * DTSBE453
|
|
00086 * DTSBE453
|
|
00087 * RECORDS UPDATED: DTSBE453
|
|
00088 * DTSBE453
|
|
00089 * MEVL (WRITE) DTSBE453
|
|
00090 * DTSBE453
|
|
00091 * DTSBE453
|
|
00092 * REPORT RECORDS WRITTEN: DTSBE453
|
|
00093 * DTSBE453
|
|
00094 * R453 FINAL DELINQUENT REPORT NOTICE. DTSBE453
|
|
00095 * R454 FINAL DELINQUENT NOTICE LIST - FIELD CODE DTSBE453
|
|
00096 * SEQUENCE. DTSBE453
|
|
00097 * R907 UNUSUAL CONDITION ENCOUNTERED. DTSBE453
|
|
00098 * DTSBE453
|
|
00099 * DTSBE453
|
|
00100 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBE453
|
|
00101 * DTSBE453
|
|
00102 * NONE. DTSBE453
|
|
00103 * DTSBE453
|
|
00104 * DTSBE453
|
|
00105 * MODULES CALLED: DTSBE453
|
|
00106 * DTSBE453
|
|
00107 * DTSBU001 DATE CONVERSION/EDIT. DTSBE453
|
|
00108 * DTSBU004 QUARTER CONVERSION/EDIT. DTSBE453
|
|
00109 * DTSBU061 FIELD ZIP / FIELD REP ID. DTSBE453
|
|
00110 * DTSBU101 INTEREST COMPUTATION. DTSBE453
|
|
00111 * DTSBU111 ADDRESS LOOKUP. DTSBE453
|
|
00112 * DTSBU112 ADDRESS FORMAT. DTSBE453
|
|
00113 * DTSBU910 MASTER FILE I/O DRIVER. DTSBE453
|
|
00114 * DTSBU931 REFERENCE FILE I/O DRIVER. DTSBE453
|
|
00115 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. DTSBE453
|
|
00116 * DTSBE453
|
|
00117 ***** DTSBE453
|
|
00118 SKIP3 DTSBE453
|
|
00119 ENVIRONMENT DIVISION. DTSBE453
|
|
00120 EJECT DTSBE453
|
|
00121 DATA DIVISION. DTSBE453
|
|
00122 SKIP3 DTSBE453
|
|
00123 WORKING-STORAGE SECTION. DTSBE453
|
|
001235 77 PAN-VALET PICTURE X(24) VALUE '005DTSBE453 05/01/07'. DTSBE453
|
|
00124 SKIP3 DTSBE453
|
|
00125 01 WRK-AREA. DTSBE453
|
|
00126 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +453.DTSBE453
|
|
00127 DTSBE453
|
|
00128 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE453'.DTSBE453
|
|
00129 DTSBE453
|
|
00130 DTSBE453
|
|
00131 05 ABEND-MSG PIC X(60). DTSBE453
|
|
00132 *RW1 DTSBE453
|
|
00133 05 WRK-START-YRQ PIC S9(05) COMP-3. DTSBE453
|
|
00134 05 WRK-END-YRQ PIC S9(05) COMP-3. DTSBE453
|
|
00135 *RW2 DTSBE453
|
|
00136 05 WRK-PARM-SUBJECT-YRQ PIC S9(05) COMP-3. DTSBE453
|
|
00137 DTSBE453
|
|
00138 * 05 WRK-SUBJECT-SLASH-QTR PIC X(04). DTSBE453
|
|
00139 05 WRK-SUBJECT-YEAR PIC X(04). DTSBE453
|
|
00140 DTSBE453
|
|
00141 05 WRK-PARM-NOTICE-IND PIC X(01). DTSBE453
|
|
00142 88 WRK-PARM-NOTICE-YES-88 VALUE 'Y'. DTSBE453
|
|
00143 88 WRK-PARM-NOTICE-NO-88 VALUE 'N'. DTSBE453
|
|
00144 DTSBE453
|
|
00145 05 WRK-PARM-INT-COMP-DATE PIC S9(09) COMP-3. DTSBE453
|
|
00146 DTSBE453
|
|
00147 05 WRK-PARM-FINAL-ACTION-DATE PIC S9(09) COMP-3. DTSBE453
|
|
00148 DTSBE453
|
|
00149 DTSBE453
|
|
00150 05 WRK-AS-OF-DATE PIC S9(09) COMP-3.DTSBE453
|
|
00151 DTSBE453
|
|
00152 05 WRK-UC30-FIRST-DEL-MAIL-DATE PIC S9(09) COMP-3.DTSBE453
|
|
00153 DTSBE453
|
|
00154 05 WRK-UC30-FINAL-DEL-CUTOFF-DATE PIC S9(09) COMP-3.DTSBE453
|
|
00155 DTSBE453
|
|
00156 05 WRK-UC30-FINAL-DEL-MAIL-DATE PIC S9(09) COMP-3.DTSBE453
|
|
00157 DTSBE453
|
|
00158 DTSBE453
|
|
00159 05 TAD-MISS-RPT-LTRS-IND PIC X(01). DTSBE453
|
|
00160 88 TAD-MISS-RPT-LTRS-YES-88 VALUE 'Y'. DTSBE453
|
|
00161 88 TAD-MISS-RPT-LTRS-NO-88 VALUE 'N'. DTSBE453
|
|
00162 DTSBE453
|
|
00163 05 OPO-MISS-RPT-LTRS-IND PIC X(01). DTSBE453
|
|
00164 88 OPO-MISS-RPT-LTRS-YES-88 VALUE 'Y'. DTSBE453
|
|
00165 88 OPO-MISS-RPT-LTRS-NO-88 VALUE 'N'. DTSBE453
|
|
00166 DTSBE453
|
|
00167 05 TAA-MISS-RPT-LTRS-IND PIC X(01). DTSBE453
|
|
00168 88 TAA-MISS-RPT-LTRS-YES-88 VALUE 'Y'. DTSBE453
|
|
00169 88 TAA-MISS-RPT-LTRS-NO-88 VALUE 'N'. DTSBE453
|
|
00170 DTSBE453
|
|
00171 DTSBE453
|
|
00172 05 WRK-TOTAL-RATE PIC S9(01)V9(04) COMP-3.DTSBE453
|
|
00173 DTSBE453
|
|
00174 05 WRK-RPT-DUE-DATE PIC S9(09) COMP-3.DTSBE453
|
|
00175 DTSBE453
|
|
00176 05 WRK-QUARTERLY-FILER-CNT PIC S9(07) COMP-3 DTSBE453
|
|
00177 VALUE +0. DTSBE453
|
|
00178 05 WRK-NOTICE-CNT PIC S9(07) COMP-3 DTSBE453
|
|
00179 VALUE +0. DTSBE453
|
|
00180 05 WRK-CNT-DISP PIC Z(06)9. DTSBE453
|
|
00181 DTSBE453
|
|
00182 05 EVL-TEXT. DTSBE453
|
|
00183 10 FILLER PIC X(29) DTSBE453
|
|
00184 VALUE 'FINAL MISSING RPT LETTER FOR '. DTSBE453
|
|
00185 * 10 EVL-SLASH-QTR PIC X(04). DTSBE453
|
|
00186 10 EVL-YEAR PIC X(04). DTSBE453
|
|
00187 10 FILLER PIC X(09) DTSBE453
|
|
00188 VALUE ' SENT TO '. DTSBE453
|
|
00189 10 EVL-ADDR-TYPE PIC X(04). DTSBE453
|
|
00190 10 FILLER PIC X(01) VALUE SPACES.DTSBE453
|
|
00191 10 EVL-ADDR-ID-NO PIC ZZ9. DTSBE453
|
|
00192 SKIP3 DTSBE453
|
|
00193 01 MSG-AREA. DTSBE453
|
|
00194 05 MSG1-AREA. DTSBE453
|
|
00195 10 MSG1-ID PIC X(03) VALUE '453'. DTSBE453
|
|
00196 10 MSG1-TEXT. DTSBE453
|
|
00197 15 FILLER PIC X(40) DTSBE453
|
|
00198 VALUE 'RATE MISSING. FINAL DELINQUENT REPORT L'. DTSBE453
|
|
00199 15 FILLER PIC X(40) DTSBE453
|
|
00200 VALUE 'ETTER PRINTED WITHOUT A RATE. YEAR = '. DTSBE453
|
|
00201 * 15 MSG1-SLASHED-YRQ PIC X(04). DTSBE453
|
|
00202 15 MSG1-YEAR PIC X(04). DTSBE453
|
|
00203 DTSBE453
|
|
00204 05 MSG2-AREA. DTSBE453
|
|
00205 10 MSG2-ID PIC X(03) VALUE '454'. DTSBE453
|
|
00206 10 MSG2-TEXT. DTSBE453
|
|
00207 15 FILLER PIC X(40) DTSBE453
|
|
00208 VALUE 'FINAL MISSING REPORT LETTER PRINTING SUP'. DTSBE453
|
|
00209 15 FILLER PIC X(40) DTSBE453
|
|
00210 VALUE 'PRESSED ON ALL MTAD RECORDS. YEAR = '. DTSBE453
|
|
00211 * 15 MSG2-SLASHED-YRQ PIC X(04). DTSBE453
|
|
00212 15 MSG2-YEAR PIC X(04). DTSBE453
|
|
00213 DTSBE453
|
|
00214 05 MSG3-AREA. DTSBE453
|
|
00215 10 MSG3-ID PIC X(03) VALUE '455'. DTSBE453
|
|
00216 10 MSG3-TEXT. DTSBE453
|
|
00217 15 FILLER PIC X(40) DTSBE453
|
|
00218 VALUE 'MORE THAN 19 ADDITIONAL QUARTERS ARE PUR'. DTSBE453
|
|
00219 15 FILLER PIC X(40) DTSBE453
|
|
00220 VALUE 'SUED. INCOMPLETE FINAL NOTICE LIST(S) P'. DTSBE453
|
|
00221 15 FILLER PIC X(20) DTSBE453
|
|
00222 VALUE 'RINTED. '. DTSBE453
|
|
00223 DTSBE453
|
|
00224 05 MSG4-AREA. DTSBE453
|
|
00225 10 MSG4-ID PIC X(03) VALUE '694'. DTSBE453
|
|
00226 10 MSG4-TEXT. DTSBE453
|
|
00227 15 FILLER PIC X(40) DTSBE453
|
|
00228 VALUE 'FINAL DELINQUENT NOTICE NOT PRINTED - NO'. DTSBE453
|
|
00229 15 FILLER PIC X(28) DTSBE453
|
|
00230 VALUE 'FIELD REP ASSIGNED. '. DTSBE453
|
|
00231 DTSBE453
|
|
00232 05 MSG5-AREA. DTSBE453
|
|
00233 10 MSG5-ID PIC X(03) VALUE '456'. DTSBE453
|
|
00234 10 MSG5-TEXT. DTSBE453
|
|
00235 15 FILLER PIC X(40) DTSBE453
|
|
00236 VALUE 'FINAL MISSING REPORT LETTER PRINTING SUP'. DTSBE453
|
|
00237 15 FILLER PIC X(40) DTSBE453
|
|
00238 VALUE 'PRESSED ON ALL ADDRESSES. YEAR = '. DTSBE453
|
|
00239 * 15 MSG5-SLASHED-YRQ PIC X(04). DTSBE453
|
|
00240 15 MSG5-YEAR PIC X(04). DTSBE453
|
|
00241 EJECT DTSBE453
|
|
00242 01 L001-LINK-AREA. DTSBE453
|
|
00243 ++INCLUDE DTSIL001 DTSBE453
|
|
00244 SKIP3 DTSBE453
|
|
00245 01 L004-LINK-AREA. DTSBE453
|
|
00246 ++INCLUDE DTSIL004 DTSBE453
|
|
00247 SKIP3 DTSBE453
|
|
00248 01 L005-LINK-AREA. DTSBE453
|
|
00249 ++INCLUDE DTSIL005 DTSBE453
|
|
00250 SKIP3 DTSBE453
|
|
00251 01 L061-LINK-AREA. DTSBE453
|
|
00252 ++INCLUDE DTSIL061 DTSBE453
|
|
00253 SKIP3 DTSBE453
|
|
00254 01 L101-LINK-AREA. DTSBE453
|
|
00255 ++INCLUDE DTSIL101 DTSBE453
|
|
00256 SKIP3 DTSBE453
|
|
00257 01 L410-LINK-AREA. DTSBE453
|
|
00258 ++INCLUDE DTSIL410 DTSBE453
|
|
00259 SKIP3 DTSBE453
|
|
00260 01 L415-LINK-AREA. DTSBE453
|
|
00261 ++INCLUDE DTSIL415 DTSBE453
|
|
00262 SKIP3 DTSBE453
|
|
00263 01 L109-LINK-AREA. DTSBE453
|
|
00264 ++INCLUDE DTSIL109 DTSBE453
|
|
00265 SKIP3 DTSBE453
|
|
00266 01 L111-LINK-AREA. DTSBE453
|
|
00267 ++INCLUDE DTSIL111 DTSBE453
|
|
00268 SKIP3 DTSBE453
|
|
00269 01 L112-LINK-AREA. DTSBE453
|
|
00270 ++INCLUDE DTSIL112 DTSBE453
|
|
00271 EJECT DTSBE453
|
|
00272 01 L910-LINK-AREA. DTSBE453
|
|
00273 ++INCLUDE DTSIL910 DTSBE453
|
|
00274 SKIP3 DTSBE453
|
|
00275 01 MSKL-REC. DTSBE453
|
|
00276 ++INCLUDE DTSIMSKL DTSBE453
|
|
00277 SKIP3 DTSBE453
|
|
00278 01 MQTR-REC. DTSBE453
|
|
00279 ++INCLUDE DTSIMQTR DTSBE453
|
|
00280 SKIP3 DTSBE453
|
|
00281 01 MTAD-REC. DTSBE453
|
|
00282 ++INCLUDE DTSIMTAD DTSBE453
|
|
00283 SKIP3 DTSBE453
|
|
00284 01 MEVL-REC. DTSBE453
|
|
00285 ++INCLUDE DTSIMEVL DTSBE453
|
|
00286 SKIP3 DTSBE453
|
|
00287 01 MSOL-REC. DTSBE453
|
|
00288 ++INCLUDE DTSIMSOL DTSBE453
|
|
00289 SKIP3 DTSBE453
|
|
00290 01 MOPO-REC. DTSBE453
|
|
00291 ++INCLUDE DTSIMOPO DTSBE453
|
|
00292 SKIP3 DTSBE453
|
|
00293 01 MTAA-REC. DTSBE453
|
|
00294 ++INCLUDE DTSIMTAA DTSBE453
|
|
00295 EJECT DTSBE453
|
|
00296 01 L931-LINK-AREA. DTSBE453
|
|
00297 ++INCLUDE DTSIL931 DTSBE453
|
|
00298 SKIP3 DTSBE453
|
|
00299 01 FSKL-REC. DTSBE453
|
|
00300 ++INCLUDE DTSIFSKL DTSBE453
|
|
00301 SKIP3 DTSBE453
|
|
00302 01 FAFD-REC. DTSBE453
|
|
00303 ++INCLUDE DTSIFAFD DTSBE453
|
|
00304 EJECT DTSBE453
|
|
00305 01 R453-REC. DTSBE453
|
|
00306 ++INCLUDE DTSIR453 DTSBE453
|
|
00307 SKIP3 DTSBE453
|
|
00308 01 R454-REC. DTSBE453
|
|
00309 ++INCLUDE DTSIR454 DTSBE453
|
|
00310 SKIP3 DTSBE453
|
|
00311 01 R907-REC. DTSBE453
|
|
00312 ++INCLUDE DTSIR907 DTSBE453
|
|
00313 EJECT DTSBE453
|
|
00314 LINKAGE SECTION. DTSBE453
|
|
00315 SKIP3 DTSBE453
|
|
00316 01 LECM-LINK-AREA. DTSBE453
|
|
00317 ++INCLUDE DTSILECM DTSBE453
|
|
00318 SKIP3 DTSBE453
|
|
00319 10 FILLER REDEFINES LECM-EXTRACT-PARMS. DTSBE453
|
|
00320 15 LECM-PARM-NOTICE-IND PIC X(01). DTSBE453
|
|
00321 15 FILLER PIC X(01). DTSBE453
|
|
00322 15 LECM-PARM-SUBJECT-YRQ PIC X(03). DTSBE453
|
|
00323 15 FILLER PIC X(01). DTSBE453
|
|
00324 15 LECM-PARM-INT-COMP-DATE PIC X(06). DTSBE453
|
|
00325 15 FILLER PIC X(01). DTSBE453
|
|
00326 15 LECM-PARM-FINAL-ACTION-DATE DTSBE453
|
|
00327 PIC X(06). DTSBE453
|
|
00328 15 FILLER PIC X(49). DTSBE453
|
|
00329 EJECT DTSBE453
|
|
00330 01 MPRF-LINK-REC. DTSBE453
|
|
00331 ++INCLUDE DTSIMPRF DTSBE453
|
|
00332 EJECT DTSBE453
|
|
00333 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE453
|
|
00334 MPRF-LINK-REC. DTSBE453
|
|
00335 DTSBE453
|
|
00336 DTSBE453
|
|
00337 IF LECM-PROCESS-88 DTSBE453
|
|
00338 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE453
|
|
00339 ELSE DTSBE453
|
|
00340 IF LECM-INITIALIZE-88 DTSBE453
|
|
00341 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE453
|
|
00342 ELSE DTSBE453
|
|
00343 IF LECM-TERMINATE-88 DTSBE453
|
|
00344 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE453
|
|
00345 ELSE DTSBE453
|
|
00346 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE453
|
|
00347 TO ABEND-MSG DTSBE453
|
|
00348 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453
|
|
00349 DTSBE453
|
|
00350 DTSBE453
|
|
00351 GOBACK. DTSBE453
|
|
00352 EJECT DTSBE453
|
|
00353 I0000-INITIALIZE. DTSBE453
|
|
00354 MOVE LECM-TRACE-IND TO L910-TRACE-IND DTSBE453
|
|
00355 L931-TRACE-IND. DTSBE453
|
|
00356 DTSBE453
|
|
00357 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBE453
|
|
00358 L931-MOD-NAME DTSBE453
|
|
00359 R907-MODULE-NAME. DTSBE453
|
|
00360 DTSBE453
|
|
00361 DTSBE453
|
|
00362 MOVE LENGTH OF R453-REC TO R453-LENGTH. DTSBE453
|
|
00363 DTSBE453
|
|
00364 MOVE '453' TO R453-REC-TYPE. DTSBE453
|
|
00365 DTSBE453
|
|
00366 MOVE LENGTH OF R454-REC TO R454-LENGTH. DTSBE453
|
|
00367 DTSBE453
|
|
00368 MOVE '454' TO R454-REC-TYPE. DTSBE453
|
|
00369 DTSBE453
|
|
00370 MOVE LENGTH OF R907-REC TO R907-LENGTH. DTSBE453
|
|
00371 DTSBE453
|
|
00372 MOVE '907' TO R907-REC-TYPE. DTSBE453
|
|
00373 DTSBE453
|
|
00374 DTSBE453
|
|
00375 PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT. DTSBE453
|
|
00376 DTSBE453
|
|
00377 DTSBE453
|
|
00378 IF WRK-PARM-NOTICE-YES-88 DTSBE453
|
|
00379 SET LECM-MST-OPEN-UPDATE-88 TO TRUE DTSBE453
|
|
00380 SET LECM-REF-OPEN-UPDATE-88 TO TRUE DTSBE453
|
|
00381 ELSE DTSBE453
|
|
00382 SET LECM-MST-OPEN-READ-88 TO TRUE DTSBE453
|
|
00383 SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE453
|
|
00384 SKIP2 DTSBE453
|
|
00385 I0000-EXIT. DTSBE453
|
|
00386 EXIT. DTSBE453
|
|
00387 SKIP3 DTSBE453
|
|
00388 I1000-EDIT-AND-DEFAULT-PARMS. DTSBE453
|
|
00389 PERFORM I1100-NOTICE-IND THRU I1100-EXIT. DTSBE453
|
|
00390 DTSBE453
|
|
00391 DTSBE453
|
|
00392 PERFORM I1300-SUBJECT-YRQ THRU I1300-EXIT. DTSBE453
|
|
00393 DTSBE453
|
|
00394 DTSBE453
|
|
00395 PERFORM I1400-INT-COMP-DATE THRU I1400-EXIT. DTSBE453
|
|
00396 DTSBE453
|
|
00397 DTSBE453
|
|
00398 MOVE +0 TO WRK-PARM-FINAL-ACTION-DATE DTSBE453
|
|
00399 WRK-AS-OF-DATE DTSBE453
|
|
00400 WRK-UC30-FIRST-DEL-MAIL-DATE DTSBE453
|
|
00401 WRK-UC30-FINAL-DEL-CUTOFF-DATE DTSBE453
|
|
00402 WRK-UC30-FINAL-DEL-MAIL-DATE. DTSBE453
|
|
00403 DTSBE453
|
|
00404 DTSBE453
|
|
00405 IF WRK-PARM-NOTICE-YES-88 DTSBE453
|
|
00406 PERFORM I2000-NOTICE-PARAMETERS THRU I2000-EXIT. DTSBE453
|
|
00407 I1000-EXIT. DTSBE453
|
|
00408 EXIT. DTSBE453
|
|
00409 SKIP3 DTSBE453
|
|
00410 I1100-NOTICE-IND. DTSBE453
|
|
00411 DTSBE453
|
|
00412 IF LECM-PARM-NOTICE-IND = SPACES DTSBE453
|
|
00413 SET WRK-PARM-NOTICE-NO-88 TO TRUE DTSBE453
|
|
00414 ELSE DTSBE453
|
|
00415 IF LECM-PARM-NOTICE-IND = 'N' OR 'Y' DTSBE453
|
|
00416 MOVE LECM-PARM-NOTICE-IND TO WRK-PARM-NOTICE-IND DTSBE453
|
|
00417 ELSE DTSBE453
|
|
00418 MOVE 'PARM-NOTICE-IND NOT VALID' DTSBE453
|
|
00419 TO ABEND-MSG DTSBE453
|
|
00420 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453
|
|
00421 I1100-EXIT. DTSBE453
|
|
00422 EXIT. DTSBE453
|
|
00423 SKIP3 DTSBE453
|
|
00424 I1300-SUBJECT-YRQ. DTSBE453
|
|
00425 *RW1 DTSBE453
|
|
00426 SET L415-MODE-MOST-RECENT-88 TO TRUE. DTSBE453
|
|
00427 PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT. DTSBE453
|
|
00428 MOVE L415-UC30H-FIRST-DEL-STRT-YRQ TO L004-QTR-5-9. DTSBE453
|
|
00429 *RW2 DTSBE453
|
|
00430 IF LECM-PARM-SUBJECT-YRQ = SPACES DTSBE453
|
|
00431 ** MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO WRK-PARM-SUBJECT-YRQ DTSBE453
|
|
00432 MOVE L415-UC30H-FIRST-DEL-STRT-YRQ TO WRK-PARM-SUBJECT-YRQDTSBE453
|
|
00433 ELSE DTSBE453
|
|
00434 MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3-X DTSBE453
|
|
00435 PERFORM S004-FROM-3 THRU S004-EXIT DTSBE453
|
|
00436 IF L004-VALID-QTR DTSBE453
|
|
00437 *RW1 DTSBE453
|
|
00438 IF L004-QTR-5-Q = 1 DTSBE453
|
|
00439 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ DTSBE453
|
|
00440 ELSE DTSBE453
|
|
00441 MOVE 'PARM-SUBJECT-YRQ NOT VALID' DTSBE453
|
|
00442 TO ABEND-MSG DTSBE453
|
|
00443 PERFORM S999-ABEND THRU S999-EXIT DTSBE453
|
|
00444 END-IF DTSBE453
|
|
00445 *RW2 DTSBE453
|
|
00446 ELSE DTSBE453
|
|
00447 MOVE 'PARM-SUBJECT-YRQ NOT VALID' DTSBE453
|
|
00448 TO ABEND-MSG DTSBE453
|
|
00449 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453
|
|
00450 DTSBE453
|
|
00451 * IF WRK-PARM-SUBJECT-YRQ > LECM-LAST-UC30-DEL-MAIL-YRQ DTSBE453
|
|
00452 IF WRK-PARM-SUBJECT-YRQ > L415-UC30H-MASS-MAIL-STRT-YRQ DTSBE453
|
|
00453 MOVE DTSBE453
|
|
00454 'PARM-SUBJ-YRQ NOT COMP WITH L415-UC30H-MASS-MAIL-STRT-YRQ' DTSBE453
|
|
00455 TO ABEND-MSG DTSBE453
|
|
00456 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453
|
|
00457 DTSBE453
|
|
00458 DTSBE453
|
|
00459 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE453
|
|
00460 DTSBE453
|
|
00461 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE453
|
|
00462 DTSBE453
|
|
00463 * MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR. DTSBE453
|
|
00464 MOVE L004-QTR-5-YR TO WRK-SUBJECT-YEAR. DTSBE453
|
|
00465 *RW1 DTSBE453
|
|
00466 MOVE L004-QTR-5-9 TO WRK-START-YRQ. DTSBE453
|
|
00467 MOVE 4 TO L004-QTR-5-Q. DTSBE453
|
|
00468 MOVE L004-QTR-5-9 TO WRK-END-YRQ. DTSBE453
|
|
00469 *RW2 DTSBE453
|
|
00470 I1300-EXIT. DTSBE453
|
|
00471 EXIT. DTSBE453
|
|
00472 SKIP3 DTSBE453
|
|
00473 I1400-INT-COMP-DATE. DTSBE453
|
|
00474 IF LECM-PARM-INT-COMP-DATE = SPACES DTSBE453
|
|
00475 MOVE LECM-CURR-RUN-DATE TO WRK-PARM-INT-COMP-DATE DTSBE453
|
|
00476 ELSE DTSBE453
|
|
00477 MOVE LECM-PARM-INT-COMP-DATE TO L001-CAL-6-DATE-X DTSBE453
|
|
00478 PERFORM S001-FROM-CAL-6 THRU S001-EXIT DTSBE453
|
|
00479 IF L001-VALID-DATE DTSBE453
|
|
00480 MOVE L001-FED-8-DATE-9 TO WRK-PARM-INT-COMP-DATE DTSBE453
|
|
00481 ELSE DTSBE453
|
|
00482 MOVE 'PARM-INT-COMP-DATE NOT VALID' DTSBE453
|
|
00483 TO ABEND-MSG DTSBE453
|
|
00484 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453
|
|
00485 I1400-EXIT. DTSBE453
|
|
00486 EXIT. DTSBE453
|
|
00487 EJECT DTSBE453
|
|
00488 I2000-NOTICE-PARAMETERS. DTSBE453
|
|
00489 * MOVE LOW-VALUES TO FQTR-KEY-AREA. DTSBE453
|
|
00490 * DTSBE453
|
|
00491 * SET FQTR-QTR-88 TO TRUE. DTSBE453
|
|
00492 * DTSBE453
|
|
00493 * MOVE WRK-PARM-SUBJECT-YRQ TO FQTR-YRQ. DTSBE453
|
|
00494 * DTSBE453
|
|
00495 * MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA. DTSBE453
|
|
00496 * DTSBE453
|
|
00497 * PERFORM S931-READ THRU S931-EXIT. DTSBE453
|
|
00498 * DTSBE453
|
|
00499 * IF L931-NO-REC-88 DTSBE453
|
|
00500 * MOVE 'FQTR RECORD FOR SUBJECT YRQ NOT FOUND' DTSBE453
|
|
00501 * TO ABEND-MSG DTSBE453
|
|
00502 * PERFORM S999-ABEND THRU S999-EXIT. DTSBE453
|
|
00503 * DTSBE453
|
|
00504 * DTSBE453
|
|
00505 * MOVE FSKL-REC TO FQTR-REC. DTSBE453
|
|
00506 * DTSBE453
|
|
00507 *RW1 DTSBE453
|
|
00508 MOVE L004-QTR-5-YR TO L415-YR. DTSBE453
|
|
00509 SET L415-MODE-INPUT-YEAR-88 TO TRUE. DTSBE453
|
|
00510 PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT. DTSBE453
|
|
00511 IF L415-OK-88 DTSBE453
|
|
00512 *RW2 DTSBE453
|
|
00513 PERFORM I2100-FINAL-ACTION-DATE THRU I2100-EXIT DTSBE453
|
|
00514 ELSE DTSBE453
|
|
00515 MOVE 'ANNUAL FILING LINKAGE ACCESS ERROR' DTSBE453
|
|
00516 TO ABEND-MSG DTSBE453
|
|
00517 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453
|
|
00518 DTSBE453
|
|
00519 MOVE LECM-PRIOR-RUN-DATE TO WRK-AS-OF-DATE. DTSBE453
|
|
00520 DTSBE453
|
|
00521 DTSBE453
|
|
00522 * IF FQTR-UC30-FIRST-DEL-DATE = +0 DTSBE453
|
|
00523 IF L415-UC30H-FIRST-DEL-DATE = +0 DTSBE453
|
|
00524 MOVE 'L415-UC30-FIRST-DEL-DATE NOT FOUND' DTSBE453
|
|
00525 TO ABEND-MSG DTSBE453
|
|
00526 PERFORM S999-ABEND THRU S999-EXIT DTSBE453
|
|
00527 ELSE DTSBE453
|
|
00528 * MOVE FQTR-UC30-FIRST-DEL-DATE DTSBE453
|
|
00529 MOVE L415-UC30H-FIRST-DEL-DATE DTSBE453
|
|
00530 TO WRK-UC30-FIRST-DEL-MAIL-DATE. DTSBE453
|
|
00531 DTSBE453
|
|
00532 DTSBE453
|
|
00533 MOVE LECM-CURR-RUN-DATE TO WRK-UC30-FINAL-DEL-CUTOFF-DATE DTSBE453
|
|
00534 WRK-UC30-FINAL-DEL-MAIL-DATE. DTSBE453
|
|
00535 DTSBE453
|
|
00536 DTSBE453
|
|
00537 IF (WRK-UC30-FIRST-DEL-MAIL-DATE DTSBE453
|
|
00538 < WRK-UC30-FINAL-DEL-MAIL-DATE) DTSBE453
|
|
00539 AND DTSBE453
|
|
00540 (WRK-UC30-FINAL-DEL-MAIL-DATE DTSBE453
|
|
00541 < WRK-PARM-FINAL-ACTION-DATE) DTSBE453
|
|
00542 NEXT SENTENCE DTSBE453
|
|
00543 ELSE DTSBE453
|
|
00544 MOVE 'INCONSISTENT DATES ENCOUNTERED' DTSBE453
|
|
00545 TO ABEND-MSG DTSBE453
|
|
00546 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453
|
|
00547 I2000-EXIT. DTSBE453
|
|
00548 EXIT. DTSBE453
|
|
00549 SKIP3 DTSBE453
|
|
00550 I2100-FINAL-ACTION-DATE. DTSBE453
|
|
00551 IF LECM-PARM-FINAL-ACTION-DATE = SPACES DTSBE453
|
|
00552 * IF FQTR-UC30-FINAL-ACTION-DATE = +0 DTSBE453
|
|
00553 IF L415-UC30H-FINAL-ACTION-DATE = +0 DTSBE453
|
|
00554 MOVE LECM-CURR-RUN-DATE TO L001-FED-8-DATE-9 DTSBE453
|
|
00555 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBE453
|
|
00556 ADD +14 TO L001-JUL-ABS-DAY DTSBE453
|
|
00557 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT DTSBE453
|
|
00558 MOVE L001-FED-8-DATE-9 DTSBE453
|
|
00559 TO WRK-PARM-FINAL-ACTION-DATE DTSBE453
|
|
00560 ELSE DTSBE453
|
|
00561 * MOVE FQTR-UC30-FINAL-ACTION-DATE DTSBE453
|
|
00562 MOVE L415-UC30H-FINAL-ACTION-DATE DTSBE453
|
|
00563 TO WRK-PARM-FINAL-ACTION-DATE DTSBE453
|
|
00564 ELSE DTSBE453
|
|
00565 MOVE LECM-PARM-FINAL-ACTION-DATE DTSBE453
|
|
00566 TO L001-CAL-6-DATE-X DTSBE453
|
|
00567 PERFORM S001-FROM-CAL-6 THRU S001-EXIT DTSBE453
|
|
00568 IF L001-VALID-DATE DTSBE453
|
|
00569 MOVE L001-FED-8-DATE-9 DTSBE453
|
|
00570 TO WRK-PARM-FINAL-ACTION-DATE DTSBE453
|
|
00571 ELSE DTSBE453
|
|
00572 MOVE 'INVALID PARM-FINAL-ACTION-DATE ENCOUNTERED' DTSBE453
|
|
00573 TO ABEND-MSG DTSBE453
|
|
00574 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453
|
|
00575 I2100-EXIT. DTSBE453
|
|
00576 EXIT. DTSBE453
|
|
00577 EJECT DTSBE453
|
|
00578 P0000-PROCESS. DTSBE453
|
|
00579 *****IF (MPRF-EMP-NO < 360094) DTSBE453
|
|
00580 ***************OR DTSBE453
|
|
00581 ********(MPRF-EMP-NO > 360098) DTSBE453
|
|
00582 *********GO TO P0000-EXIT. DTSBE453
|
|
00583 DTSBE453
|
|
00584 DTSBE453
|
|
00585 MOVE MPRF-EMP-NO TO R907-EMP-NO. DTSBE453
|
|
00586 DTSBE453
|
|
00587 IF MPRF-PURSUED-RPT-CNT > +0 DTSBE453
|
|
00588 NEXT SENTENCE DTSBE453
|
|
00589 ELSE DTSBE453
|
|
00590 GO TO P0000-EXIT. DTSBE453
|
|
00591 *RW DTSBE453
|
|
00592 IF MPRF-RETURN-MAIL-YES-88 DTSBE453
|
|
00593 GO TO P0000-EXIT. DTSBE453
|
|
00594 *RW DTSBE453
|
|
00595 SET L410-MODE-INPUT-YRQ-88 TO TRUE DTSBE453
|
|
00596 MOVE MPRF-EMP-NO TO L410-EMP-NO DTSBE453
|
|
00597 MOVE WRK-PARM-SUBJECT-YRQ TO L410-YRQ DTSBE453
|
|
00598 PERFORM S410-FILE-SCHED THRU S410-EXIT DTSBE453
|
|
00599 IF L410-ANN-SCHED-88 DTSBE453
|
|
00600 NEXT SENTENCE DTSBE453
|
|
00601 ELSE DTSBE453
|
|
00602 IF L410-QTRLY-SCHED-88 DTSBE453
|
|
00603 ADD +1 TO WRK-QUARTERLY-FILER-CNT DTSBE453
|
|
00604 GO TO P0000-EXIT DTSBE453
|
|
00605 ELSE DTSBE453
|
|
00606 ADD +1 TO WRK-QUARTERLY-FILER-CNT DTSBE453
|
|
00607 GO TO P0000-EXIT DTSBE453
|
|
00608 END-IF DTSBE453
|
|
00609 END-IF. DTSBE453
|
|
00610 DTSBE453
|
|
00611 DTSBE453
|
|
00612 DISPLAY 'EMP NO ' MPRF-EMP-NO. DTSBE453
|
|
00613 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE453
|
|
00614 DTSBE453
|
|
00615 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE453
|
|
00616 DTSBE453
|
|
00617 SET MQTR-QTR-88 TO TRUE. DTSBE453
|
|
00618 DTSBE453
|
|
00619 MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ. DTSBE453
|
|
00620 DTSBE453
|
|
00621 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE453
|
|
00622 DTSBE453
|
|
00623 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453
|
|
00624 DTSBE453
|
|
00625 IF L910-NO-REC-88 DTSBE453
|
|
00626 GO TO P0000-EXIT. DTSBE453
|
|
00627 DTSBE453
|
|
00628 MOVE MSKL-REC TO MQTR-REC. DTSBE453
|
|
00629 DTSBE453
|
|
00630 IF (MQTR-YRQ >= WRK-START-YRQ) AND (MQTR-YRQ <= WRK-END-YRQ) DTSBE453
|
|
00631 IF MQTR-RPT-NOT-PURSUED-88 DTSBE453
|
|
00632 GO TO P0000-EXIT DTSBE453
|
|
00633 END-IF DTSBE453
|
|
00634 ELSE DTSBE453
|
|
00635 GO TO P0000-EXIT. DTSBE453
|
|
00636 DTSBE453
|
|
00637 DTSBE453
|
|
00638 IF MQTR-MISS-LETTER-SENT-88 DTSBE453
|
|
00639 NEXT SENTENCE DTSBE453
|
|
00640 ELSE DTSBE453
|
|
00641 GO TO P0000-EXIT. DTSBE453
|
|
00642 DTSBE453
|
|
00643 DTSBE453
|
|
00644 SET TAD-MISS-RPT-LTRS-NO-88 TO TRUE. DTSBE453
|
|
00645 DTSBE453
|
|
00646 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453
|
|
00647 DTSBE453
|
|
00648 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453
|
|
00649 DTSBE453
|
|
00650 SET MSKL-TAD-88 TO TRUE. DTSBE453
|
|
00651 DTSBE453
|
|
00652 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453
|
|
00653 DTSBE453
|
|
00654 PERFORM DTSBE453
|
|
00655 UNTIL L910-NO-REC-88 DTSBE453
|
|
00656 MOVE MSKL-REC TO MTAD-REC DTSBE453
|
|
00657 IF MTAD-MISSING-RPT-LTRS-YES-88 DTSBE453
|
|
00658 SET TAD-MISS-RPT-LTRS-YES-88 TO TRUE DTSBE453
|
|
00659 END-IF DTSBE453
|
|
00660 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453
|
|
00661 END-PERFORM. DTSBE453
|
|
00662 DTSBE453
|
|
00663 DTSBE453
|
|
00664 SET OPO-MISS-RPT-LTRS-NO-88 TO TRUE. DTSBE453
|
|
00665 DTSBE453
|
|
00666 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453
|
|
00667 DTSBE453
|
|
00668 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453
|
|
00669 DTSBE453
|
|
00670 SET MSKL-OPO-88 TO TRUE. DTSBE453
|
|
00671 DTSBE453
|
|
00672 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453
|
|
00673 DTSBE453
|
|
00674 PERFORM DTSBE453
|
|
00675 UNTIL L910-NO-REC-88 DTSBE453
|
|
00676 MOVE MSKL-REC TO MOPO-REC DTSBE453
|
|
00677 IF MOPO-MISSING-RPT-LTRS-YES-88 DTSBE453
|
|
00678 SET OPO-MISS-RPT-LTRS-YES-88 TO TRUE DTSBE453
|
|
00679 END-IF DTSBE453
|
|
00680 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453
|
|
00681 END-PERFORM. DTSBE453
|
|
00682 DTSBE453
|
|
00683 DTSBE453
|
|
00684 SET TAA-MISS-RPT-LTRS-NO-88 TO TRUE. DTSBE453
|
|
00685 DTSBE453
|
|
00686 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453
|
|
00687 DTSBE453
|
|
00688 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453
|
|
00689 DTSBE453
|
|
00690 SET MSKL-TAA-88 TO TRUE. DTSBE453
|
|
00691 DTSBE453
|
|
00692 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453
|
|
00693 DTSBE453
|
|
00694 PERFORM DTSBE453
|
|
00695 UNTIL L910-NO-REC-88 DTSBE453
|
|
00696 MOVE MSKL-REC TO MTAA-REC DTSBE453
|
|
00697 IF MTAA-MISSING-RPT-LTRS-YES-88 DTSBE453
|
|
00698 SET TAA-MISS-RPT-LTRS-YES-88 TO TRUE DTSBE453
|
|
00699 END-IF DTSBE453
|
|
00700 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453
|
|
00701 END-PERFORM. DTSBE453
|
|
00702 DTSBE453
|
|
00703 DTSBE453
|
|
00704 IF TAD-MISS-RPT-LTRS-NO-88 DTSBE453
|
|
00705 MOVE MSG2-ID TO R907-MSG-ID DTSBE453
|
|
00706 * MOVE WRK-SUBJECT-SLASH-QTR TO MSG2-SLASHED-YRQ DTSBE453
|
|
00707 MOVE WRK-SUBJECT-YEAR TO MSG2-YEAR DTSBE453
|
|
00708 MOVE MSG2-TEXT TO R907-MSG-TEXT DTSBE453
|
|
00709 PERFORM S946-WRITE-R907 THRU S946-EXIT. DTSBE453
|
|
00710 DTSBE453
|
|
00711 DTSBE453
|
|
00712 IF (TAD-MISS-RPT-LTRS-NO-88) DTSBE453
|
|
00713 AND DTSBE453
|
|
00714 (OPO-MISS-RPT-LTRS-NO-88) DTSBE453
|
|
00715 AND DTSBE453
|
|
00716 (TAA-MISS-RPT-LTRS-NO-88) DTSBE453
|
|
00717 MOVE MSG5-ID TO R907-MSG-ID DTSBE453
|
|
00718 * MOVE WRK-SUBJECT-SLASH-QTR TO MSG5-SLASHED-YRQ DTSBE453
|
|
00719 MOVE WRK-SUBJECT-YEAR TO MSG5-YEAR DTSBE453
|
|
00720 MOVE MSG5-TEXT TO R907-MSG-TEXT DTSBE453
|
|
00721 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBE453
|
|
00722 GO TO P0000-EXIT. DTSBE453
|
|
00723 DTSBE453
|
|
00724 DTSBE453
|
|
00725 PERFORM P1000-TOTAL-RATE THRU P1000-EXIT. DTSBE453
|
|
00726 DTSBE453
|
|
00727 DTSBE453
|
|
00728 MOVE MQTR-RPT-DUE-DATE TO WRK-RPT-DUE-DATE. DTSBE453
|
|
00729 DTSBE453
|
|
00730 DTSBE453
|
|
00731 PERFORM P2000-FIELD-LIST THRU P2000-EXIT. DTSBE453
|
|
00732 DTSBE453
|
|
00733 DTSBE453
|
|
00734 IF WRK-PARM-NOTICE-YES-88 DTSBE453
|
|
00735 * ADD +1 TO WRK-NOTICE-CNT DTSBE453
|
|
00736 PERFORM P3000-FINAL-NOTICE THRU P3000-EXIT. DTSBE453
|
|
00737 P0000-EXIT. DTSBE453
|
|
00738 EXIT. DTSBE453
|
|
00739 EJECT DTSBE453
|
|
00740 P1000-TOTAL-RATE. DTSBE453
|
|
00741 IF MPRF-CLASS-SELF-INS-88 DTSBE453
|
|
00742 PERFORM S109-LOOKUP-SUR-RATE THRU S109-EXIT DTSBE453
|
|
00743 MOVE L109-SUR-RATE TO WRK-TOTAL-RATE DTSBE453
|
|
00744 ELSE DTSBE453
|
|
00745 IF MQTR-NO-UI-RATE-88 DTSBE453
|
|
00746 MOVE MQTR-UI-RATE TO WRK-TOTAL-RATE DTSBE453
|
|
00747 ELSE DTSBE453
|
|
00748 PERFORM S109-LOOKUP-SUR-RATE THRU S109-EXIT DTSBE453
|
|
00749 ADD MQTR-UI-RATE DTSBE453
|
|
00750 L109-SUR-RATE GIVING WRK-TOTAL-RATE. DTSBE453
|
|
00751 P1000-EXIT. DTSBE453
|
|
00752 EXIT. DTSBE453
|
|
00753 EJECT DTSBE453
|
|
00754 P2000-FIELD-LIST. DTSBE453
|
|
00755 PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT. DTSBE453
|
|
00756 DTSBE453
|
|
00757 DTSBE453
|
|
00758 MOVE L061-FLD-REP-ID TO R454-FIELD-REP-ID. DTSBE453
|
|
00759 DTSBE453
|
|
00760 MOVE MPRF-FLD-ZIP TO R454-FIELD-ZIP. DTSBE453
|
|
00761 DTSBE453
|
|
00762 MOVE MPRF-EMP-NO TO R454-EMP-NO. DTSBE453
|
|
00763 DTSBE453
|
|
00764 DTSBE453
|
|
00765 MOVE LOW-VALUES TO R454-DATA-AREA. DTSBE453
|
|
00766 DTSBE453
|
|
00767 DTSBE453
|
|
00768 MOVE WRK-PARM-SUBJECT-YRQ TO R454-YRQ. DTSBE453
|
|
00769 DTSBE453
|
|
00770 MOVE WRK-PARM-INT-COMP-DATE TO R454-COMPUTATION-DATE. DTSBE453
|
|
00771 DTSBE453
|
|
00772 MOVE MPRF-SUSPEND-COLL-IND TO R454-SUSPEND-COLL-IND. DTSBE453
|
|
00773 DTSBE453
|
|
00774 MOVE MPRF-PRIMARY-NAME TO R454-PRIMARY-NAME. DTSBE453
|
|
00775 DTSBE453
|
|
00776 DTSBE453
|
|
00777 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBE453
|
|
00778 DTSBE453
|
|
00779 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBE453
|
|
00780 DTSBE453
|
|
00781 SET MTAD-TAD-88 TO TRUE. DTSBE453
|
|
00782 DTSBE453
|
|
00783 MOVE +1 TO MTAD-ID-NO. DTSBE453
|
|
00784 DTSBE453
|
|
00785 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBE453
|
|
00786 DTSBE453
|
|
00787 PERFORM S910-READ THRU S910-EXIT. DTSBE453
|
|
00788 DTSBE453
|
|
00789 IF L910-OK-88 DTSBE453
|
|
00790 MOVE MSKL-REC TO MTAD-REC DTSBE453
|
|
00791 MOVE MTAD-ATTN-LINE TO R454-ADDR1-ATTN-LINE DTSBE453
|
|
00792 MOVE MTAD-DELIV-LINE-1 TO R454-ADDR1-DELIV-LINE-1 DTSBE453
|
|
00793 MOVE MTAD-DELIV-LINE-2 TO R454-ADDR1-DELIV-LINE-2 DTSBE453
|
|
00794 MOVE MTAD-CITY TO R454-ADDR1-CITY DTSBE453
|
|
00795 MOVE MTAD-ST TO R454-ADDR1-STATE DTSBE453
|
|
00796 MOVE MTAD-ZIP TO R454-ADDR1-ZIP DTSBE453
|
|
00797 MOVE MTAD-VOICE-1 TO R454-EMPLOYER-VOICE (1) DTSBE453
|
|
00798 MOVE MTAD-VOICE-2 TO R454-EMPLOYER-VOICE (2) DTSBE453
|
|
00799 ELSE DTSBE453
|
|
00800 MOVE SPACE TO R454-ADDR1-ATTN-LINE DTSBE453
|
|
00801 R454-ADDR1-DELIV-LINE-1 DTSBE453
|
|
00802 R454-ADDR1-DELIV-LINE-2 DTSBE453
|
|
00803 R454-ADDR1-CITY DTSBE453
|
|
00804 R454-ADDR1-STATE DTSBE453
|
|
00805 R454-ADDR1-ZIP DTSBE453
|
|
00806 R454-EMPLOYER-VOICE (1) DTSBE453
|
|
00807 R454-EMPLOYER-VOICE (2). DTSBE453
|
|
00808 DTSBE453
|
|
00809 DTSBE453
|
|
00810 MOVE +2 TO MTAD-ID-NO. DTSBE453
|
|
00811 DTSBE453
|
|
00812 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBE453
|
|
00813 DTSBE453
|
|
00814 PERFORM S910-READ THRU S910-EXIT. DTSBE453
|
|
00815 DTSBE453
|
|
00816 IF L910-OK-88 DTSBE453
|
|
00817 MOVE MSKL-REC TO MTAD-REC DTSBE453
|
|
00818 MOVE MTAD-ATTN-LINE TO R454-ADDR2-ATTN-LINE DTSBE453
|
|
00819 MOVE MTAD-DELIV-LINE-1 TO R454-ADDR2-DELIV-LINE-1 DTSBE453
|
|
00820 MOVE MTAD-DELIV-LINE-2 TO R454-ADDR2-DELIV-LINE-2 DTSBE453
|
|
00821 MOVE MTAD-CITY TO R454-ADDR2-CITY DTSBE453
|
|
00822 MOVE MTAD-ST TO R454-ADDR2-STATE DTSBE453
|
|
00823 MOVE MTAD-ZIP TO R454-ADDR2-ZIP DTSBE453
|
|
00824 MOVE MTAD-VOICE-1 TO R454-EMPLOYER-VOICE (3) DTSBE453
|
|
00825 MOVE MTAD-VOICE-2 TO R454-EMPLOYER-VOICE (4) DTSBE453
|
|
00826 ELSE DTSBE453
|
|
00827 MOVE SPACE TO R454-ADDR2-ATTN-LINE DTSBE453
|
|
00828 R454-ADDR2-DELIV-LINE-1 DTSBE453
|
|
00829 R454-ADDR2-DELIV-LINE-2 DTSBE453
|
|
00830 R454-ADDR2-CITY DTSBE453
|
|
00831 R454-ADDR2-STATE DTSBE453
|
|
00832 R454-ADDR2-ZIP DTSBE453
|
|
00833 R454-EMPLOYER-VOICE (3) DTSBE453
|
|
00834 R454-EMPLOYER-VOICE (4). DTSBE453
|
|
00835 DTSBE453
|
|
00836 DTSBE453
|
|
00837 MOVE +0 TO R454-INACT-DATE. DTSBE453
|
|
00838 DTSBE453
|
|
00839 IF MPRF-STATUS-INACT-88 DTSBE453
|
|
00840 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBE453
|
|
00841 MOVE MPRF-EMP-NO TO MSKL-EMP-NO DTSBE453
|
|
00842 SET MSKL-SOL-88 TO TRUE DTSBE453
|
|
00843 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBE453
|
|
00844 PERFORM DTSBE453
|
|
00845 UNTIL L910-NO-REC-88 DTSBE453
|
|
00846 MOVE MSKL-REC TO MSOL-REC DTSBE453
|
|
00847 MOVE MSOL-INACT-DATE TO R454-INACT-DATE DTSBE453
|
|
00848 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453
|
|
00849 END-PERFORM. DTSBE453
|
|
00850 DTSBE453
|
|
00851 DTSBE453
|
|
00852 MOVE WRK-TOTAL-RATE TO R454-TOTAL-RATE. DTSBE453
|
|
00853 DTSBE453
|
|
00854 DTSBE453
|
|
00855 MOVE +0 TO R454-BALANCE-AMT. DTSBE453
|
|
00856 DTSBE453
|
|
00857 IF MPRF-TOT-BALANCE-AMT > +0 DTSBE453
|
|
00858 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBE453
|
|
00859 MOVE MPRF-EMP-NO TO MSKL-EMP-NO DTSBE453
|
|
00860 SET MSKL-QTR-88 TO TRUE DTSBE453
|
|
00861 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBE453
|
|
00862 PERFORM P2100-SCAN-MQTR THRU P2100-EXIT DTSBE453
|
|
00863 UNTIL L910-NO-REC-88. DTSBE453
|
|
00864 DTSBE453
|
|
00865 DTSBE453
|
|
00866 MOVE MPRF-TOT-CREDIT-AMT TO R454-CREDIT-AMT. DTSBE453
|
|
00867 DTSBE453
|
|
00868 DTSBE453
|
|
00869 MOVE +0 TO R454-ADDITIONAL-RPT-CNT. DTSBE453
|
|
00870 DTSBE453
|
|
00871 IF MPRF-PURSUED-RPT-CNT > +1 DTSBE453
|
|
00872 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBE453
|
|
00873 MOVE MPRF-EMP-NO TO MSKL-EMP-NO DTSBE453
|
|
00874 SET MSKL-QTR-88 TO TRUE DTSBE453
|
|
00875 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBE453
|
|
00876 PERFORM P2200-SCAN-MQTR THRU P2200-EXIT DTSBE453
|
|
00877 UNTIL L910-NO-REC-88. DTSBE453
|
|
00878 DTSBE453
|
|
00879 DTSBE453
|
|
00880 MOVE +0 TO R454-OPO-NAME-CNT. DTSBE453
|
|
00881 DTSBE453
|
|
00882 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453
|
|
00883 DTSBE453
|
|
00884 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453
|
|
00885 DTSBE453
|
|
00886 SET MSKL-OPO-88 TO TRUE. DTSBE453
|
|
00887 DTSBE453
|
|
00888 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453
|
|
00889 DTSBE453
|
|
00890 PERFORM P2300-SCAN-MOPO THRU P2300-EXIT DTSBE453
|
|
00891 UNTIL L910-NO-REC-88. DTSBE453
|
|
00892 DTSBE453
|
|
00893 DTSBE453
|
|
00894 PERFORM S946-WRITE-R454 THRU S946-EXIT. DTSBE453
|
|
00895 P2000-EXIT. DTSBE453
|
|
00896 EXIT. DTSBE453
|
|
00897 SKIP3 DTSBE453
|
|
00898 P2100-SCAN-MQTR. DTSBE453
|
|
00899 MOVE MSKL-REC TO MQTR-REC. DTSBE453
|
|
00900 DTSBE453
|
|
00901 DTSBE453
|
|
00902 MOVE +0 TO L101-PAID-CHNG. DTSBE453
|
|
00903 DTSBE453
|
|
00904 PERFORM DTSBE453
|
|
00905 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBE453
|
|
00906 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBE453
|
|
00907 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBE453
|
|
00908 TO R454-BALANCE-AMT DTSBE453
|
|
00909 IF MQTR-ACCT-TAX-88 (MQTR-ACCT-IDX) DTSBE453
|
|
00910 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBE453
|
|
00911 TO L101-PAID-CHNG DTSBE453
|
|
00912 END-IF DTSBE453
|
|
00913 END-PERFORM. DTSBE453
|
|
00914 DTSBE453
|
|
00915 IF L101-PAID-CHNG > +0 DTSBE453
|
|
00916 PERFORM P2110-PROJECT-PEN-INT THRU P2110-EXIT. DTSBE453
|
|
00917 DTSBE453
|
|
00918 DTSBE453
|
|
00919 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE453
|
|
00920 P2100-EXIT. DTSBE453
|
|
00921 EXIT. DTSBE453
|
|
00922 SKIP3 DTSBE453
|
|
00923 P2110-PROJECT-PEN-INT. DTSBE453
|
|
00924 MOVE WRK-PARM-INT-COMP-DATE TO L101-RECEIVED-DATE. DTSBE453
|
|
00925 DTSBE453
|
|
00926 SET L101-WAIVE-INT-NO-88 TO TRUE. DTSBE453
|
|
00927 DTSBE453
|
|
00928 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBE453
|
|
00929 DTSBE453
|
|
00930 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBE453
|
|
00931 DTSBE453
|
|
00932 PERFORM S101-PER-MONTH-NO THRU S101-EXIT. DTSBE453
|
|
00933 DTSBE453
|
|
00934 ADD L101-INT-CHARGE-CHNG TO R454-BALANCE-AMT. DTSBE453
|
|
00935 DTSBE453
|
|
00936 SUBTRACT L101-INT-WAIVE-CHNG FROM R454-BALANCE-AMT. DTSBE453
|
|
00937 P2110-EXIT. DTSBE453
|
|
00938 EXIT. DTSBE453
|
|
00939 SKIP3 DTSBE453
|
|
00940 P2200-SCAN-MQTR. DTSBE453
|
|
00941 MOVE MSKL-REC TO MQTR-REC. DTSBE453
|
|
00942 * EVEN WE RUN ANNUAL THE FOLLOWING IF STATEMENT O.K. ? DTSBE453
|
|
00943 IF MQTR-YRQ = WRK-PARM-SUBJECT-YRQ DTSBE453
|
|
00944 NEXT SENTENCE DTSBE453
|
|
00945 ELSE DTSBE453
|
|
00946 IF MQTR-RPT-IS-PURSUED-88 DTSBE453
|
|
00947 IF R454-ADDITIONAL-RPT-CNT < +19 DTSBE453
|
|
00948 ADD +1 TO R454-ADDITIONAL-RPT-CNT DTSBE453
|
|
00949 MOVE MQTR-YRQ DTSBE453
|
|
00950 TO R454-ADDITIONAL-RPT-YRQ DTSBE453
|
|
00951 (R454-ADDITIONAL-RPT-CNT) DTSBE453
|
|
00952 ELSE DTSBE453
|
|
00953 MOVE MSG3-ID TO R907-MSG-ID DTSBE453
|
|
00954 MOVE MSG3-TEXT TO R907-MSG-TEXT DTSBE453
|
|
00955 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBE453
|
|
00956 SET L910-NO-REC-88 TO TRUE DTSBE453
|
|
00957 GO TO P2200-EXIT. DTSBE453
|
|
00958 DTSBE453
|
|
00959 DTSBE453
|
|
00960 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE453
|
|
00961 P2200-EXIT. DTSBE453
|
|
00962 EXIT. DTSBE453
|
|
00963 SKIP3 DTSBE453
|
|
00964 P2300-SCAN-MOPO. DTSBE453
|
|
00965 MOVE MSKL-REC TO MOPO-REC. DTSBE453
|
|
00966 DTSBE453
|
|
00967 ADD +1 TO R454-OPO-NAME-CNT. DTSBE453
|
|
00968 DTSBE453
|
|
00969 MOVE MOPO-NAME TO R454-OPO-NAME (R454-OPO-NAME-CNT). DTSBE453
|
|
00970 DTSBE453
|
|
00971 IF R454-OPO-NAME-CNT < +6 DTSBE453
|
|
00972 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453
|
|
00973 ELSE DTSBE453
|
|
00974 SET L910-NO-REC-88 TO TRUE. DTSBE453
|
|
00975 P2300-EXIT. DTSBE453
|
|
00976 EXIT. DTSBE453
|
|
00977 EJECT DTSBE453
|
|
00978 P3000-FINAL-NOTICE. DTSBE453
|
|
00979 IF L061-FLD-REP-ID = '??' DTSBE453
|
|
00980 MOVE MSG4-ID TO R907-MSG-ID DTSBE453
|
|
00981 MOVE MSG4-TEXT TO R907-MSG-TEXT DTSBE453
|
|
00982 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBE453
|
|
00983 GO TO P3000-EXIT DTSBE453
|
|
00984 ELSE DTSBE453
|
|
00985 IF L061-FLD-DESK-88 DTSBE453
|
|
00986 SET R453-FLD-DESK-YES-88 TO TRUE DTSBE453
|
|
00987 ELSE DTSBE453
|
|
00988 SET R453-FLD-DESK-NO-88 TO TRUE. DTSBE453
|
|
00989 DTSBE453
|
|
00990 ADD +1 TO WRK-NOTICE-CNT DTSBE453
|
|
00991 DTSBE453
|
|
00992 MOVE SPACES TO R453-SORT-ZIP. DTSBE453
|
|
00993 DTSBE453
|
|
00994 MOVE MPRF-EMP-NO TO R453-EMP-NO. DTSBE453
|
|
00995 DTSBE453
|
|
00996 MOVE LOW-VALUES TO R453-DATA-AREA. DTSBE453
|
|
00997 DTSBE453
|
|
00998 MOVE L061-FLD-REP-ID TO R453-FIELD-REP-ID. DTSBE453
|
|
00999 DTSBE453
|
|
01000 MOVE WRK-UC30-FINAL-DEL-MAIL-DATE TO R453-MAIL-DATE. DTSBE453
|
|
01001 DTSBE453
|
|
01002 MOVE WRK-AS-OF-DATE TO R453-AS-OF-DATE. DTSBE453
|
|
01003 DTSBE453
|
|
01004 MOVE WRK-UC30-FIRST-DEL-MAIL-DATE DTSBE453
|
|
01005 TO R453-UC30-FIRST-DEL-MAIL-DATE. DTSBE453
|
|
01006 DTSBE453
|
|
01007 MOVE WRK-PARM-FINAL-ACTION-DATE DTSBE453
|
|
01008 TO R453-FINAL-ACTION-DATE. DTSBE453
|
|
01009 DTSBE453
|
|
01010 MOVE SPACES TO R453-FMT-ADDR DTSBE453
|
|
01011 R453-ZIP DTSBE453
|
|
01012 R453-ADVANCED-BARCODE. DTSBE453
|
|
01013 DTSBE453
|
|
01014 MOVE WRK-TOTAL-RATE TO R453-TOTAL-RATE. DTSBE453
|
|
01015 DTSBE453
|
|
01016 IF R453-NO-UI-RATE-88 DTSBE453
|
|
01017 MOVE MSG1-ID TO R907-MSG-ID DTSBE453
|
|
01018 * MOVE WRK-SUBJECT-SLASH-QTR TO MSG1-SLASHED-YRQ DTSBE453
|
|
01019 MOVE WRK-SUBJECT-YEAR TO MSG1-YEAR DTSBE453
|
|
01020 MOVE MSG1-TEXT TO R907-MSG-TEXT DTSBE453
|
|
01021 PERFORM S946-WRITE-R907 THRU S946-EXIT. DTSBE453
|
|
01022 DTSBE453
|
|
01023 MOVE WRK-PARM-SUBJECT-YRQ TO R453-YRQ. DTSBE453
|
|
01024 DTSBE453
|
|
01025 MOVE WRK-RPT-DUE-DATE TO R453-DUE-DATE. DTSBE453
|
|
01026 DTSBE453
|
|
01027 DTSBE453
|
|
01028 MOVE R454-ADDITIONAL-RPT-CNT TO R453-ADDITIONAL-RPT-CNT. DTSBE453
|
|
01029 DTSBE453
|
|
01030 PERFORM DTSBE453
|
|
01031 VARYING R454-YRQ-IDX FROM 1 BY 1 DTSBE453
|
|
01032 UNTIL R454-YRQ-IDX > R454-ADDITIONAL-RPT-CNT DTSBE453
|
|
01033 SET R453-YRQ-IDX TO R454-YRQ-IDX DTSBE453
|
|
01034 MOVE R454-ADDITIONAL-RPT-YRQ (R454-YRQ-IDX) DTSBE453
|
|
01035 TO R453-ADDITIONAL-RPT-YRQ (R453-YRQ-IDX) DTSBE453
|
|
01036 END-PERFORM. DTSBE453
|
|
01037 DTSBE453
|
|
01038 DTSBE453
|
|
01039 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453
|
|
01040 DTSBE453
|
|
01041 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453
|
|
01042 DTSBE453
|
|
01043 SET MSKL-TAD-88 TO TRUE. DTSBE453
|
|
01044 DTSBE453
|
|
01045 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453
|
|
01046 DTSBE453
|
|
01047 PERFORM DTSBE453
|
|
01048 UNTIL L910-NO-REC-88 DTSBE453
|
|
01049 MOVE MSKL-REC TO MTAD-REC DTSBE453
|
|
01050 IF MTAD-MISSING-RPT-LTRS-YES-88 DTSBE453
|
|
01051 PERFORM P3100-TAD-PROCESS THRU P3100-EXIT DTSBE453
|
|
01052 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA DTSBE453
|
|
01053 PERFORM S910-READ THRU S910-EXIT DTSBE453
|
|
01054 END-IF DTSBE453
|
|
01055 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453
|
|
01056 END-PERFORM. DTSBE453
|
|
01057 DTSBE453
|
|
01058 DTSBE453
|
|
01059 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453
|
|
01060 DTSBE453
|
|
01061 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453
|
|
01062 DTSBE453
|
|
01063 SET MSKL-OPO-88 TO TRUE. DTSBE453
|
|
01064 DTSBE453
|
|
01065 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453
|
|
01066 DTSBE453
|
|
01067 PERFORM DTSBE453
|
|
01068 UNTIL L910-NO-REC-88 DTSBE453
|
|
01069 MOVE MSKL-REC TO MOPO-REC DTSBE453
|
|
01070 IF MOPO-MISSING-RPT-LTRS-YES-88 DTSBE453
|
|
01071 PERFORM P3200-OPO-PROCESS THRU P3200-EXIT DTSBE453
|
|
01072 MOVE MOPO-KEY-AREA TO MSKL-KEY-AREA DTSBE453
|
|
01073 PERFORM S910-READ THRU S910-EXIT DTSBE453
|
|
01074 END-IF DTSBE453
|
|
01075 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453
|
|
01076 END-PERFORM. DTSBE453
|
|
01077 DTSBE453
|
|
01078 DTSBE453
|
|
01079 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453
|
|
01080 DTSBE453
|
|
01081 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453
|
|
01082 DTSBE453
|
|
01083 SET MSKL-TAA-88 TO TRUE. DTSBE453
|
|
01084 DTSBE453
|
|
01085 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453
|
|
01086 DTSBE453
|
|
01087 PERFORM DTSBE453
|
|
01088 UNTIL L910-NO-REC-88 DTSBE453
|
|
01089 MOVE MSKL-REC TO MTAA-REC DTSBE453
|
|
01090 IF MTAA-MISSING-RPT-LTRS-YES-88 DTSBE453
|
|
01091 PERFORM P3300-TAA-PROCESS THRU P3300-EXIT DTSBE453
|
|
01092 MOVE MTAA-KEY-AREA TO MSKL-KEY-AREA DTSBE453
|
|
01093 PERFORM S910-READ THRU S910-EXIT DTSBE453
|
|
01094 END-IF DTSBE453
|
|
01095 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453
|
|
01096 END-PERFORM. DTSBE453
|
|
01097 P3000-EXIT. DTSBE453
|
|
01098 EXIT. DTSBE453
|
|
01099 SKIP3 DTSBE453
|
|
01100 P3100-TAD-PROCESS. DTSBE453
|
|
01101 MOVE MTAD-ID-NO TO L111-ID-NO. DTSBE453
|
|
01102 DTSBE453
|
|
01103 PERFORM S111-LOOKUP-TAD THRU S111-EXIT. DTSBE453
|
|
01104 DTSBE453
|
|
01105 IF L111-ADDR-NOT-FOUND-88 DTSBE453
|
|
01106 GO TO P3100-EXIT. DTSBE453
|
|
01107 DTSBE453
|
|
01108 DTSBE453
|
|
01109 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBE453
|
|
01110 DTSBE453
|
|
01111 PERFORM S112-FORMAT-TAD THRU S112-EXIT. DTSBE453
|
|
01112 DTSBE453
|
|
01113 DTSBE453
|
|
01114 MOVE L112-ZIP TO R453-SORT-ZIP. DTSBE453
|
|
01115 DTSBE453
|
|
01116 MOVE L112-MAILING-ADDRESS TO R453-FMT-ADDR. DTSBE453
|
|
01117 DTSBE453
|
|
01118 MOVE L112-ZIP TO R453-ZIP. DTSBE453
|
|
01119 DTSBE453
|
|
01120 MOVE L112-ADVANCED-BARCODE TO R453-ADVANCED-BARCODE. DTSBE453
|
|
01121 DTSBE453
|
|
01122 DTSBE453
|
|
01123 PERFORM S946-WRITE-R453 THRU S946-EXIT. DTSBE453
|
|
01124 DTSBE453
|
|
01125 DTSBE453
|
|
01126 MOVE 'MTAD' TO EVL-ADDR-TYPE. DTSBE453
|
|
01127 DTSBE453
|
|
01128 MOVE L111-ID-NO TO EVL-ADDR-ID-NO. DTSBE453
|
|
01129 DTSBE453
|
|
01130 * MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR. DTSBE453
|
|
01131 MOVE WRK-SUBJECT-YEAR TO EVL-YEAR. DTSBE453
|
|
01132 DTSBE453
|
|
01133 PERFORM S1000-WRITE-MEVL THRU S1000-EXIT. DTSBE453
|
|
01134 P3100-EXIT. DTSBE453
|
|
01135 EXIT. DTSBE453
|
|
01136 SKIP3 DTSBE453
|
|
01137 P3200-OPO-PROCESS. DTSBE453
|
|
01138 MOVE MOPO-ID-NO TO L111-ID-NO. DTSBE453
|
|
01139 DTSBE453
|
|
01140 PERFORM S111-LOOKUP-OPO THRU S111-EXIT. DTSBE453
|
|
01141 DTSBE453
|
|
01142 IF L111-ADDR-NOT-FOUND-88 DTSBE453
|
|
01143 GO TO P3200-EXIT. DTSBE453
|
|
01144 DTSBE453
|
|
01145 DTSBE453
|
|
01146 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBE453
|
|
01147 DTSBE453
|
|
01148 PERFORM S112-FORMAT-OPO THRU S112-EXIT. DTSBE453
|
|
01149 DTSBE453
|
|
01150 DTSBE453
|
|
01151 MOVE L112-ZIP TO R453-SORT-ZIP. DTSBE453
|
|
01152 DTSBE453
|
|
01153 MOVE L112-MAILING-ADDRESS TO R453-FMT-ADDR. DTSBE453
|
|
01154 DTSBE453
|
|
01155 MOVE L112-ZIP TO R453-ZIP. DTSBE453
|
|
01156 DTSBE453
|
|
01157 MOVE L112-ADVANCED-BARCODE TO R453-ADVANCED-BARCODE. DTSBE453
|
|
01158 DTSBE453
|
|
01159 DTSBE453
|
|
01160 PERFORM S946-WRITE-R453 THRU S946-EXIT. DTSBE453
|
|
01161 DTSBE453
|
|
01162 DTSBE453
|
|
01163 MOVE 'MOPO' TO EVL-ADDR-TYPE. DTSBE453
|
|
01164 DTSBE453
|
|
01165 MOVE L111-ID-NO TO EVL-ADDR-ID-NO. DTSBE453
|
|
01166 DTSBE453
|
|
01167 * MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR. DTSBE453
|
|
01168 MOVE WRK-SUBJECT-YEAR TO EVL-YEAR. DTSBE453
|
|
01169 DTSBE453
|
|
01170 PERFORM S1000-WRITE-MEVL THRU S1000-EXIT. DTSBE453
|
|
01171 P3200-EXIT. DTSBE453
|
|
01172 EXIT. DTSBE453
|
|
01173 SKIP3 DTSBE453
|
|
01174 P3300-TAA-PROCESS. DTSBE453
|
|
01175 MOVE MTAA-ID-NO TO L111-ID-NO. DTSBE453
|
|
01176 DTSBE453
|
|
01177 PERFORM S111-LOOKUP-TAA THRU S111-EXIT. DTSBE453
|
|
01178 DTSBE453
|
|
01179 IF L111-ADDR-NOT-FOUND-88 DTSBE453
|
|
01180 GO TO P3300-EXIT. DTSBE453
|
|
01181 DTSBE453
|
|
01182 DTSBE453
|
|
01183 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBE453
|
|
01184 DTSBE453
|
|
01185 PERFORM S112-FORMAT-TAA THRU S112-EXIT. DTSBE453
|
|
01186 DTSBE453
|
|
01187 DTSBE453
|
|
01188 MOVE L112-ZIP TO R453-SORT-ZIP. DTSBE453
|
|
01189 DTSBE453
|
|
01190 MOVE L112-MAILING-ADDRESS TO R453-FMT-ADDR. DTSBE453
|
|
01191 DTSBE453
|
|
01192 MOVE L112-ZIP TO R453-ZIP. DTSBE453
|
|
01193 DTSBE453
|
|
01194 MOVE L112-ADVANCED-BARCODE TO R453-ADVANCED-BARCODE. DTSBE453
|
|
01195 DTSBE453
|
|
01196 DTSBE453
|
|
01197 PERFORM S946-WRITE-R453 THRU S946-EXIT. DTSBE453
|
|
01198 DTSBE453
|
|
01199 DTSBE453
|
|
01200 MOVE 'MTAA' TO EVL-ADDR-TYPE. DTSBE453
|
|
01201 DTSBE453
|
|
01202 MOVE L111-ID-NO TO EVL-ADDR-ID-NO. DTSBE453
|
|
01203 DTSBE453
|
|
01204 * MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR. DTSBE453
|
|
01205 MOVE WRK-SUBJECT-YEAR TO EVL-YEAR. DTSBE453
|
|
01206 DTSBE453
|
|
01207 PERFORM S1000-WRITE-MEVL THRU S1000-EXIT. DTSBE453
|
|
01208 P3300-EXIT. DTSBE453
|
|
01209 EXIT. DTSBE453
|
|
01210 EJECT DTSBE453
|
|
01211 T0000-TERMINATE. DTSBE453
|
|
01212 MOVE WRK-NOTICE-CNT TO WRK-CNT-DISP. DTSBE453
|
|
01213 DISPLAY SPACE. DTSBE453
|
|
01214 DISPLAY '*******************************************'. DTSBE453
|
|
01215 DISPLAY '** DTSBE453 COUNTS **'. DTSBE453
|
|
01216 DISPLAY '** **'. DTSBE453
|
|
01217 DISPLAY '** NOTICES SENT: ' WRK-CNT-DISP DTSBE453
|
|
01218 ' **'. DTSBE453
|
|
01219 DISPLAY '** **'. DTSBE453
|
|
01220 MOVE WRK-QUARTERLY-FILER-CNT TO WRK-CNT-DISP. DTSBE453
|
|
01221 DISPLAY '** NONE ANNUAL FILERS BYPASSED: ' WRK-CNT-DISP DTSBE453
|
|
01222 ' **'. DTSBE453
|
|
01223 DISPLAY '** **'. DTSBE453
|
|
01224 DISPLAY '*******************************************'. DTSBE453
|
|
01225 IF WRK-PARM-NOTICE-YES-88 DTSBE453
|
|
01226 MOVE LOW-VALUES TO FAFD-KEY-AREA DTSBE453
|
|
01227 SET FAFD-AFD-88 TO TRUE DTSBE453
|
|
01228 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9 DTSBE453
|
|
01229 MOVE L004-QTR-5-YR TO FAFD-YR DTSBE453
|
|
01230 MOVE FAFD-KEY-AREA TO FSKL-KEY-AREA DTSBE453
|
|
01231 PERFORM S931-READ THRU S931-EXIT DTSBE453
|
|
01232 IF L931-NO-REC-88 DTSBE453
|
|
01233 MOVE 'LOGIC ERROR T0000-1' TO ABEND-MSG DTSBE453
|
|
01234 PERFORM S999-ABEND THRU S999-EXIT DTSBE453
|
|
01235 ELSE DTSBE453
|
|
01236 MOVE FSKL-REC TO FAFD-REC DTSBE453
|
|
01237 MOVE WRK-UC30-FINAL-DEL-CUTOFF-DATE DTSBE453
|
|
01238 TO FAFD-UC30H-FINAL-DEL-DATE DTSBE453
|
|
01239 MOVE WRK-PARM-FINAL-ACTION-DATE DTSBE453
|
|
01240 TO FAFD-UC30H-FINAL-ACTION-DATE DTSBE453
|
|
01241 MOVE LECM-CURR-RUN-DATE TO FAFD-CHNG-DATE DTSBE453
|
|
01242 MOVE FAFD-REC TO FSKL-REC DTSBE453
|
|
01243 PERFORM S931-REWRITE THRU S931-EXIT. DTSBE453
|
|
01244 T0000-EXIT. DTSBE453
|
|
01245 EXIT. DTSBE453
|
|
01246 EJECT DTSBE453
|
|
01247 S1000-WRITE-MEVL. DTSBE453
|
|
01248 ADD +1000 TO LECM-EMP-ABSTIME. DTSBE453
|
|
01249 DTSBE453
|
|
01250 MOVE LECM-EMP-ABSTIME TO L005-ABSTIME. DTSBE453
|
|
01251 DTSBE453
|
|
01252 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBE453
|
|
01253 DTSBE453
|
|
01254 DTSBE453
|
|
01255 MOVE LOW-VALUES TO MEVL-REC. DTSBE453
|
|
01256 DTSBE453
|
|
01257 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBE453
|
|
01258 DTSBE453
|
|
01259 SET MEVL-EVL-88 TO TRUE. DTSBE453
|
|
01260 DTSBE453
|
|
01261 MOVE L005-DATE TO MEVL-DATE. DTSBE453
|
|
01262 DTSBE453
|
|
01263 MOVE L005-TIME TO MEVL-TIME. DTSBE453
|
|
01264 DTSBE453
|
|
01265 DTSBE453
|
|
01266 MOVE ZEROS TO MEVL-PURGE-DATE. DTSBE453
|
|
01267 DTSBE453
|
|
01268 DTSBE453
|
|
01269 MOVE EVL-TEXT TO MEVL-TEXT. DTSBE453
|
|
01270 DTSBE453
|
|
01271 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBE453
|
|
01272 DTSBE453
|
|
01273 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBE453
|
|
01274 DTSBE453
|
|
01275 MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBE453
|
|
01276 MEVL-CHNG-DATE. DTSBE453
|
|
01277 DTSBE453
|
|
01278 DTSBE453
|
|
01279 MOVE MEVL-REC TO MSKL-REC. DTSBE453
|
|
01280 DTSBE453
|
|
01281 PERFORM S910-WRITE THRU S910-EXIT. DTSBE453
|
|
01282 S1000-EXIT. DTSBE453
|
|
01283 EXIT. DTSBE453
|
|
01284 EJECT DTSBE453
|
|
01285 S001-FROM-FED-8. DTSBE453
|
|
01286 SET L001-FROM-FED-8 TO TRUE. DTSBE453
|
|
01287 GO TO S001-DATE. DTSBE453
|
|
01288 DTSBE453
|
|
01289 S001-FROM-CAL-6. DTSBE453
|
|
01290 SET L001-FROM-CAL-6 TO TRUE. DTSBE453
|
|
01291 GO TO S001-DATE. DTSBE453
|
|
01292 DTSBE453
|
|
01293 S001-FROM-ABS-DAY. DTSBE453
|
|
01294 SET L001-FROM-ABS-DAY TO TRUE. DTSBE453
|
|
01295 GO TO S001-DATE. DTSBE453
|
|
01296 DTSBE453
|
|
01297 S001-DATE. DTSBE453
|
|
01298 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBE453
|
|
01299 S001-EXIT. DTSBE453
|
|
01300 EXIT. DTSBE453
|
|
01301 SKIP3 DTSBE453
|
|
01302 S004-FROM-5. DTSBE453
|
|
01303 SET L004-FROM-5 TO TRUE. DTSBE453
|
|
01304 GO TO S004-QTR. DTSBE453
|
|
01305 DTSBE453
|
|
01306 S004-FROM-3. DTSBE453
|
|
01307 SET L004-FROM-3 TO TRUE. DTSBE453
|
|
01308 GO TO S004-QTR. DTSBE453
|
|
01309 DTSBE453
|
|
01310 S004-QTR. DTSBE453
|
|
01311 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBE453
|
|
01312 S004-EXIT. DTSBE453
|
|
01313 EXIT. DTSBE453
|
|
01314 SKIP3 DTSBE453
|
|
01315 S005-FROM-ABSTIME. DTSBE453
|
|
01316 SET L005-FROM-ABSTIME TO TRUE. DTSBE453
|
|
01317 GO TO S005-ABSTIME. DTSBE453
|
|
01318 DTSBE453
|
|
01319 S005-ABSTIME. DTSBE453
|
|
01320 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBE453
|
|
01321 S005-EXIT. DTSBE453
|
|
01322 EXIT. DTSBE453
|
|
01323 SKIP3 DTSBE453
|
|
01324 S061-DETERMINE-FLD-REP. DTSBE453
|
|
01325 MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST. DTSBE453
|
|
01326 DTSBE453
|
|
01327 MOVE MPRF-EMP-NO TO L061-EMP-NO. DTSBE453
|
|
01328 DTSBE453
|
|
01329 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBE453
|
|
01330 S061-EXIT. DTSBE453
|
|
01331 EXIT. DTSBE453
|
|
01332 SKIP3 DTSBE453
|
|
01333 S101-PER-MONTH-NO. DTSBE453
|
|
01334 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBE453
|
|
01335 GO TO S101-INT-COMP. DTSBE453
|
|
01336 DTSBE453
|
|
01337 S101-INT-COMP. DTSBE453
|
|
01338 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBE453
|
|
01339 S101-EXIT. DTSBE453
|
|
01340 EXIT. DTSBE453
|
|
01341 SKIP3 DTSBE453
|
|
01342 S109-LOOKUP-SUR-RATE. DTSBE453
|
|
01343 MOVE MPRF-EMP-CLASS TO L109-EMP-CLASS. DTSBE453
|
|
01344 DTSBE453
|
|
01345 MOVE MQTR-YRQ TO L109-YRQ. DTSBE453
|
|
01346 DTSBE453
|
|
01347 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBE453
|
|
01348 S109-EXIT. DTSBE453
|
|
01349 EXIT. DTSBE453
|
|
01350 SKIP3 DTSBE453
|
|
01351 S111-LOOKUP-TAD. DTSBE453
|
|
01352 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBE453
|
|
01353 GO TO S111-LOOKUP-ADDR. DTSBE453
|
|
01354 DTSBE453
|
|
01355 S111-LOOKUP-TAA. DTSBE453
|
|
01356 SET L111-LOOKUP-TAA-88 TO TRUE. DTSBE453
|
|
01357 GO TO S111-LOOKUP-ADDR. DTSBE453
|
|
01358 DTSBE453
|
|
01359 S111-LOOKUP-OPO. DTSBE453
|
|
01360 SET L111-LOOKUP-OPO-88 TO TRUE. DTSBE453
|
|
01361 GO TO S111-LOOKUP-ADDR. DTSBE453
|
|
01362 DTSBE453
|
|
01363 S111-LOOKUP-ADDR. DTSBE453
|
|
01364 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBE453
|
|
01365 DTSBE453
|
|
01366 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBE453
|
|
01367 S111-EXIT. DTSBE453
|
|
01368 EXIT. DTSBE453
|
|
01369 SKIP3 DTSBE453
|
|
01370 S112-FORMAT-TAD. DTSBE453
|
|
01371 SET L112-TAD-ADDR-88 TO TRUE. DTSBE453
|
|
01372 GO TO S112-FORMAT-ADDR. DTSBE453
|
|
01373 DTSBE453
|
|
01374 S112-FORMAT-TAA. DTSBE453
|
|
01375 SET L112-TAA-ADDR-88 TO TRUE. DTSBE453
|
|
01376 GO TO S112-FORMAT-ADDR. DTSBE453
|
|
01377 DTSBE453
|
|
01378 S112-FORMAT-OPO. DTSBE453
|
|
01379 SET L112-OPO-ADDR-88 TO TRUE. DTSBE453
|
|
01380 GO TO S112-FORMAT-ADDR. DTSBE453
|
|
01381 DTSBE453
|
|
01382 S112-FORMAT-ADDR. DTSBE453
|
|
01383 SET L112-ANCHOR-LAST-88 TO TRUE. DTSBE453
|
|
01384 DTSBE453
|
|
01385 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSBE453
|
|
01386 DTSBE453
|
|
01387 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBE453
|
|
01388 S112-EXIT. DTSBE453
|
|
01389 EXIT. DTSBE453
|
|
01390 SKIP3 DTSBE453
|
|
01391 S410-FILE-SCHED. DTSBE453
|
|
01392 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBE453
|
|
01393 S410-EXIT. DTSBE453
|
|
01394 EXIT. DTSBE453
|
|
01395 SKIP3 DTSBE453
|
|
01396 S415-HOUSEHOLD-DATES. DTSBE453
|
|
01397 CALL 'DTSBU415' USING L415-LINK-AREA. DTSBE453
|
|
01398 S415-EXIT. DTSBE453
|
|
01399 EXIT. DTSBE453
|
|
01400 SKIP3 DTSBE453
|
|
01401 S910-READ. DTSBE453
|
|
01402 SET L910-READ-88 TO TRUE. DTSBE453
|
|
01403 GO TO S910-MSTR-IO. DTSBE453
|
|
01404 DTSBE453
|
|
01405 S910-START-BROWSE. DTSBE453
|
|
01406 SET L910-START-BROWSE-88 TO TRUE. DTSBE453
|
|
01407 GO TO S910-MSTR-IO. DTSBE453
|
|
01408 DTSBE453
|
|
01409 S910-READ-NEXT. DTSBE453
|
|
01410 SET L910-READ-NEXT-88 TO TRUE. DTSBE453
|
|
01411 GO TO S910-MSTR-IO. DTSBE453
|
|
01412 DTSBE453
|
|
01413 *S910-COUNT. DTSBE453
|
|
01414 *****SET L910-COUNT-88 TO TRUE. DTSBE453
|
|
01415 *****GO TO S910-MSTR-IO. DTSBE453
|
|
01416 DTSBE453
|
|
01417 S910-WRITE. DTSBE453
|
|
01418 SET L910-WRITE-88 TO TRUE. DTSBE453
|
|
01419 SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE453
|
|
01420 GO TO S910-MSTR-IO. DTSBE453
|
|
01421 DTSBE453
|
|
01422 *S910-REWRITE. DTSBE453
|
|
01423 *****SET L910-REWRITE-88 TO TRUE. DTSBE453
|
|
01424 *****SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE453
|
|
01425 *****GO TO S910-MSTR-IO. DTSBE453
|
|
01426 DTSBE453
|
|
01427 *S910-DELETE. DTSBE453
|
|
01428 *****SET L910-DELETE-88 TO TRUE. DTSBE453
|
|
01429 *****SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE453
|
|
01430 *****GO TO S910-MSTR-IO. DTSBE453
|
|
01431 DTSBE453
|
|
01432 S910-MSTR-IO. DTSBE453
|
|
01433 CALL 'DTSBU910' USING L910-LINK-AREA DTSBE453
|
|
01434 MSKL-REC. DTSBE453
|
|
01435 S910-EXIT. DTSBE453
|
|
01436 EXIT. DTSBE453
|
|
01437 SKIP3 DTSBE453
|
|
01438 S931-READ. DTSBE453
|
|
01439 SET L931-READ-88 TO TRUE. DTSBE453
|
|
01440 GO TO S931-REF-I. DTSBE453
|
|
01441 DTSBE453
|
|
01442 *S931-START-BROWSE. DTSBE453
|
|
01443 *****SET L931-START-BROWSE-88 TO TRUE. DTSBE453
|
|
01444 *****GO TO S931-REF-I. DTSBE453
|
|
01445 DTSBE453
|
|
01446 *S931-READ-NEXT. DTSBE453
|
|
01447 *****SET L931-READ-NEXT-88 TO TRUE. DTSBE453
|
|
01448 *****GO TO S931-REF-I. DTSBE453
|
|
01449 DTSBE453
|
|
01450 *S931-WRITE. DTSBE453
|
|
01451 *****SET L931-WRITE-88 TO TRUE. DTSBE453
|
|
01452 *****GO TO S931-REF-I. DTSBE453
|
|
01453 DTSBE453
|
|
01454 S931-REWRITE. DTSBE453
|
|
01455 SET L931-REWRITE-88 TO TRUE. DTSBE453
|
|
01456 GO TO S931-REF-I. DTSBE453
|
|
01457 DTSBE453
|
|
01458 *S931-DELETE. DTSBE453
|
|
01459 *****SET L931-DELETE-88 TO TRUE. DTSBE453
|
|
01460 *****GO TO S931-REF-I. DTSBE453
|
|
01461 DTSBE453
|
|
01462 S931-REF-I. DTSBE453
|
|
01463 CALL 'DTSBU931' USING L931-LINK-AREA DTSBE453
|
|
01464 FSKL-REC. DTSBE453
|
|
01465 S931-EXIT. DTSBE453
|
|
01466 EXIT. DTSBE453
|
|
01467 SKIP3 DTSBE453
|
|
01468 S946-WRITE-R453. DTSBE453
|
|
01469 CALL 'DTSBU946' USING R453-REC. DTSBE453
|
|
01470 GO TO S946-EXIT. DTSBE453
|
|
01471 DTSBE453
|
|
01472 S946-WRITE-R454. DTSBE453
|
|
01473 CALL 'DTSBU946' USING R454-REC. DTSBE453
|
|
01474 GO TO S946-EXIT. DTSBE453
|
|
01475 DTSBE453
|
|
01476 S946-WRITE-R907. DTSBE453
|
|
01477 CALL 'DTSBU946' USING R907-REC. DTSBE453
|
|
01478 GO TO S946-EXIT. DTSBE453
|
|
01479 DTSBE453
|
|
01480 S946-EXIT. DTSBE453
|
|
01481 EXIT. DTSBE453
|
|
01482 SKIP3 DTSBE453
|
|
01483 S999-ABEND. DTSBE453
|
|
01484 DISPLAY '*** DTSBE453 ABENDING. ' DTSBE453
|
|
01485 ABEND-MSG. DTSBE453
|
|
01486 DTSBE453
|
|
01487 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBE453
|
|
01488 S999-EXIT. DTSBE453
|
|
01489 EXIT. DTSBE453
|