1524 lines
120 KiB
COBOL
1524 lines
120 KiB
COBOL
00001 IDENTIFICATION DIVISION. 10/31/23
|
|
00002 PROGRAM-ID. DTSBX657. DTSBX657
|
|
00003 AUTHOR. NGUPTA LV002
|
|
00004 DATE-WRITTEN. JAN2017 CL154
|
|
00005 DATE-COMPILED. DTSBX657
|
|
00006 SKIP3 DTSBX657
|
|
00007 ***** DTSBX657
|
|
00008 * DTSBX657
|
|
00009 * FUNCTION: UPDATE MPRF RETURN MAIL FLAG TO Y AND ADD CL217
|
|
00010 * EVENT LOGH. CL217
|
|
00011 * DTSBX657
|
|
00012 ***** DTSBX657
|
|
00013 SKIP3 DTSBX657
|
|
00014 ENVIRONMENT DIVISION. DTSBX657
|
|
00015 SKIP2 DTSBX657
|
|
00016 CONFIGURATION SECTION. DTSBX657
|
|
00017 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBX657
|
|
00018 DTSBX657
|
|
00019 INPUT-OUTPUT SECTION. DTSBX657
|
|
00020 DTSBX657
|
|
00021 FILE-CONTROL. DTSBX657
|
|
00022 SELECT EMP-FILE1 ASSIGN TO EMPFILE1 CL122
|
|
00023 FILE STATUS IS EXP-STATUS. DTSBX657
|
|
00024 DTSBX657
|
|
00025 CL*71
|
|
00026 DATA DIVISION. DTSBX657
|
|
00027 DTSBX657
|
|
00028 FILE SECTION. DTSBX657
|
|
00029 DTSBX657
|
|
00030 FD EMP-FILE1 CL122
|
|
00031 RECORDING MODE IS F. DTSBX657
|
|
00032 01 EMP-REC1. CL122
|
|
00033 05 INEMP-NOA PIC 9(03). CL254
|
|
00034 05 FILLER PIC X. CL254
|
|
00035 05 INEMP-NOB PIC 9(03). CL254
|
|
00036 05 FILLER PIC X(73). CL254
|
|
00037 EJECT DTSBX657
|
|
00038 DTSBX657
|
|
00039 CL*71
|
|
00040 WORKING-STORAGE SECTION. DTSBX657
|
|
000405 77 PAN-VALET PICTURE X(24) VALUE '002DTSBX657 10/31/23'. DTSBX657
|
|
00041 SKIP3 DTSBX657
|
|
00042 01 WRK-AREA. DTSBX657
|
|
00043 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +400.DTSBX657
|
|
00044 05 WRK-SYS-ABSTIME PIC S9(15) COMP-3 VALUE +0. CL211
|
|
00045 05 WRK-ABSTIME PIC S9(15) COMP-3 VALUE +1000. CL211
|
|
00046 DTSBX657
|
|
00047 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD400'.DTSBX657
|
|
00048 DTSBX657
|
|
00049 ** 05 WRK-RPT-DATE PIC S9(09) COMP-3 DTSBX657
|
|
00050 * VALUE +20070328. DTSBX657
|
|
00051 * 05 WRK-YRQ PIC S9(05) COMP-3 DTSBX657
|
|
00052 ** VALUE +20061. DTSBX657
|
|
00053 05 WRK-RPT-DATE PIC S9(09) COMP-3 DTSBX657
|
|
00054 VALUE +20170124. CL154
|
|
00055 05 WRK-YRQ PIC S9(05) COMP-3 DTSBX657
|
|
00056 VALUE +0. DTSBX657
|
|
00057 05 WRK-MPRF-REC-CNT PIC S9(07) COMP-3. CL192
|
|
00058 05 WRK-RATE-TYPE-AREA. DTSBX657
|
|
00059 10 WRK-RATE-YR-SCHED PIC X(01). DTSBX657
|
|
00060 88 WRK-RATE-YR-ANN-88 VALUE 'Y'. DTSBX657
|
|
00061 10 WRK-RATE-YR-MINUS-1-SCHED PIC X(01). DTSBX657
|
|
00062 88 WRK-RATE-YR-MINUS1-ANN-88 VALUE 'Y'. DTSBX657
|
|
00063 10 WRK-RATE-YR-MINUS-2-SCHED PIC X(01). DTSBX657
|
|
00064 88 WRK-RATE-YR-MINUS2-ANN-88 VALUE 'Y'. DTSBX657
|
|
00065 05 FILLER REDEFINES WRK-RATE-TYPE-AREA PIC X(03). DTSBX657
|
|
00066 88 WRK-ESTIMATE-NEEDED-88 VALUE 'YYY' 'NYY'. DTSBX657
|
|
00067 88 WRK-TRANSITION-YEAR-88 VALUE 'YYN' 'NYN'. DTSBX657
|
|
00068 88 WRK-INIT-VALUES-88 VALUE 'NNN'. DTSBX657
|
|
00069 DTSBX657
|
|
00070 05 WRK-CLASSIFIED-IND PIC X(01). DTSBX657
|
|
00071 88 WRK-CLASSIFIED-YES-88 VALUE 'Y'. DTSBX657
|
|
00072 88 WRK-CLASSIFIED-NO-88 VALUE 'N'. DTSBX657
|
|
00073 05 WRK-EXIT-LOOP-IND PIC X(01). DTSBX657
|
|
00074 88 WRK-EXIT-LOOP-YES-88 VALUE 'Y'. DTSBX657
|
|
00075 88 WRK-EXIT-LOOP-NO-88 VALUE 'N'. DTSBX657
|
|
00076 05 WRK-TEST-EMP PIC S9(07) COMP-3 CL249
|
|
00077 VALUE +330099. CL249
|
|
00078 05 WRK-BATCH PIC S9(05) COMP-3. CL249
|
|
00079 05 WRK-ITEM PIC S9(03) COMP-3. DTSBX657
|
|
00080 05 WRK-SEQ PIC 9(05) DTSBX657
|
|
00081 VALUE ZERO. DTSBX657
|
|
00082 05 WRK-UCFE-FEIN PIC 9(09) CL254
|
|
00083 VALUE 000000000. DTSBX657
|
|
00084 05 WRK-UCX-FEIN PIC 9(09) DTSBX657
|
|
00085 VALUE 330000000. DTSBX657
|
|
00086 05 WRK-CWC-FEIN PIC 9(09) DTSBX657
|
|
00087 VALUE 440000000. DTSBX657
|
|
00088 05 WRK-FED-EMP PIC 9(06). DTSBX657
|
|
00089 05 FILLER REDEFINES WRK-FED-EMP. DTSBX657
|
|
00090 10 FILLER PIC X(02). DTSBX657
|
|
00091 10 WRK-FED-EMP-3 PIC X(01). DTSBX657
|
|
00092 88 WRK-FED-EMP-BYPASS-88 VALUE '1'. DTSBX657
|
|
00093 10 FILLER PIC 9(03). DTSBX657
|
|
00094 05 WRK-ZIP PIC X(10). DTSBX657
|
|
00095 05 FILLER REDEFINES WRK-ZIP. DTSBX657
|
|
00096 10 WRK-ZIP5 PIC X(05). DTSBX657
|
|
00097 10 FILLER PIC X(05). DTSBX657
|
|
00098 DTSBX657
|
|
00099 05 WS-EMP-NO1. CL255
|
|
00100 10 WS-EMP-NOA PIC 9(03). CL255
|
|
00101 10 WS-EMP-NOB PIC 9(03). CL255
|
|
00102 CL**2
|
|
00103 CL**2
|
|
00104 05 WS-EMP-NOZ PIC 9(6) VALUE ZERO. CL**2
|
|
00105 CL**2
|
|
00106 05 EXP-STATUS PIC X(02). DTSBX657
|
|
00107 88 EXP-STATUS-OK-88 VALUE '00'. DTSBX657
|
|
00108 05 EXP2-STATUS PIC X(02). CL*71
|
|
00109 88 EXP2-STATUS-OK-88 VALUE '00'. CL*71
|
|
00110 05 WRK-ERROR-IND PIC X(01). DTSBX657
|
|
00111 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX657
|
|
00112 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX657
|
|
00113 05 WRK-WRITE-REC-IND PIC X(01). DTSBX657
|
|
00114 88 WRK-WRITE-REC-YES-88 VALUE 'Y'. DTSBX657
|
|
00115 88 WRK-WRITE-REC-NO-88 VALUE 'N'. DTSBX657
|
|
00116 05 WRK-OP-ID PIC X(08). DTSBX657
|
|
00117 05 WRK-ASSIGN PIC 9(09). DTSBX657
|
|
00118 05 FILLER REDEFINES WRK-ASSIGN. DTSBX657
|
|
00119 10 WRK-ASSIGN-CC PIC 9(02). DTSBX657
|
|
00120 10 WRK-ASSIGN-YY PIC 9(02). DTSBX657
|
|
00121 10 WRK-ASSIGN-NBR PIC 9(05). DTSBX657
|
|
00122 05 WRK-FLD-ASSIGN. DTSBX657
|
|
00123 10 WRK-FLD-ASSIGN-YEAR PIC 9(02). DTSBX657
|
|
00124 10 FILLER PIC X(01) VALUE SPACE. DTSBX657
|
|
00125 10 WRK-FLD-ASSIGN-NBR PIC 9(05). DTSBX657
|
|
00126 05 WRK-LIEN PIC 9(08). CL*25
|
|
00127 05 WRK-LIEN-X REDEFINES WRK-LIEN. CL*25
|
|
00128 10 FILLER PIC X(02). CL*26
|
|
00129 10 WRK-LIEN6 PIC X(06). CL*25
|
|
00130 05 WRK-LIEN-REF. CL*23
|
|
00131 10 WRK-LIEN-YR PIC 9(02). CL*23
|
|
00132 10 WRK-LIEN-NBR PIC 9(04). CL*23
|
|
00133 DTSBX657
|
|
00134 05 WRK-IND-CODE PIC X(06). DTSBX657
|
|
00135 05 WRK-REC1. DTSBX657
|
|
00136 10 REC1-EMP-NO PIC 999999. DTSBX657
|
|
00137 10 FILLER PIC X(01) VALUE ';'. DTSBX657
|
|
00138 ** 10 REC1-NAME PIC X(32). CL100
|
|
00139 ** 10 REC1-EARLY-LIAB-DT PIC X(32). CL110
|
|
00140 10 REC1-EARLY-LIAB-DT PIC X(10). CL110
|
|
00141 10 FILLER PIC X(01) VALUE ';'. CL*82
|
|
00142 ** 10 REC1-YRQ2 PIC X(06). CL100
|
|
00143 ** 10 FILLER PIC X(01) VALUE ';'. CL100
|
|
00144 10 REC1-FIRS-DATE PIC X(10). CL100
|
|
00145 10 FILLER PIC X(01) VALUE ';'. CL*88
|
|
00146 10 REC1-PRIOR PIC 9.9999. CL100
|
|
00147 10 FILLER PIC X(01) VALUE ';'. CL*95
|
|
00148 10 REC1-CURR PIC 9.9999. CL100
|
|
00149 10 FILLER PIC X(01) VALUE ';'. CL*98
|
|
00150 CL*75
|
|
00151 05 WRK-REC1-OLD. CL*15
|
|
00152 10 REC1-ESTB-DATE PIC X(10). CL*98
|
|
00153 10 REC1-LIEN-NO PIC 9(08). CL*98
|
|
00154 10 REC1-STATUS PIC X(01). CL*98
|
|
00155 10 REC1-SOURCE PIC X(02). CL*88
|
|
00156 10 REC1-YRQ PIC X(06). CL*85
|
|
00157 10 REC1-OP-ID PIC X(08). CL*75
|
|
00158 10 REC1-STATUS-OP-ID PIC X(08). CL*75
|
|
00159 10 REC1-STMT-DATE PIC X(10). CL*95
|
|
00160 10 REC1-STATUS-DATE PIC X(10). CL*75
|
|
00161 10 REC1-BALANCE PIC --------9.99. CL*75
|
|
00162 10 REC1-FREQUENCY PIC X(01). CL*75
|
|
00163 10 REC1-START-DATE PIC X(10). CL*75
|
|
00164 10 REC1-TAX-DUE PIC --------9.99. CL*75
|
|
00165 10 REC1-DATA-ELEMENT PIC X(40). CL*68
|
|
00166 10 REC1-PRE-MOD-VALUE PIC X(40). CL*68
|
|
00167 10 REC1-POST-MOD-VALUE PIC X(40). CL*68
|
|
00168 10 REC1-MLOG-DATE PIC X(10). CL*68
|
|
00169 10 REC1-EMP-NAME PIC X(40). CL*68
|
|
00170 10 REC1-CURR-RESERVE PIC --------9.99. CL*59
|
|
00171 10 REC1-ATTN PIC X(40). CL*57
|
|
00172 10 REC1-STREET2 PIC X(40). CL*57
|
|
00173 10 REC1-STREET1 PIC X(40). CL*57
|
|
00174 10 REC1-CITY PIC X(25). CL*57
|
|
00175 10 REC1-STATE PIC X(02). CL*57
|
|
00176 10 REC1-ZIP PIC X(10). CL*57
|
|
00177 10 REC1-PHONE PIC X(15). CL*57
|
|
00178 10 REC1-FAX PIC X(15). CL*57
|
|
00179 10 REC1-EMAIL PIC X(40). CL*57
|
|
00180 10 REC1-ASSIGN PIC X(08). CL*51
|
|
00181 10 REC1-ASSIGN-TYPE PIC X(02). CL*51
|
|
00182 10 REC1-PROCESS-DATE PIC X(10). CL*51
|
|
00183 10 REC1-COMP-DATE PIC X(10). CL*51
|
|
00184 10 REC1-FLD-REP-ID PIC X(02). CL*46
|
|
00185 10 REC1-INACT-OPID PIC X(08). CL*43
|
|
00186 10 REC1-INACT-ENTER-DT PIC X(10). CL*38
|
|
00187 10 REC1-OPO-NAME PIC X(32). CL*27
|
|
00188 10 REC1-ELIG-CD PIC 9(03). CL*17
|
|
00189 10 REC1-FEIN PIC 9(09). DTSBX657
|
|
00190 10 REC1-COUNT PIC 9(07). DTSBX657
|
|
00191 10 REC1-CLASS PIC X(02). DTSBX657
|
|
00192 10 REC1-MLIN-STATUS PIC X(01). DTSBX657
|
|
00193 10 REC1-BATCH PIC 9(05). DTSBX657
|
|
00194 10 REC1-ITEM PIC 9(03). DTSBX657
|
|
00195 10 REC1-RPTS-DUE PIC 999. DTSBX657
|
|
00196 10 REC1-COMPLETE-DATE PIC X(10). DTSBX657
|
|
00197 10 REC1-PAY-TYPE PIC X(02). DTSBX657
|
|
00198 10 REC1-TAX-PAID PIC --------9.99. DTSBX657
|
|
00199 10 REC1-DEPOSIT-DATE PIC X(10). DTSBX657
|
|
00200 10 REC1-NAICS PIC X(06). DTSBX657
|
|
00201 10 REC1-SIC PIC X(04). DTSBX657
|
|
00202 10 REC1-YEAR PIC 9(04). DTSBX657
|
|
00203 10 REC1-AMT PIC ----------9.99. DTSBX657
|
|
00204 10 REC1-OPO-SSN PIC X(09). DTSBX657
|
|
00205 10 REC1-PRIOR-RESERVE PIC --------9.99. DTSBX657
|
|
00206 10 REC1-INTEREST PIC --------9.99. DTSBX657
|
|
00207 10 REC1-BEN-CHG PIC --------9.99. DTSBX657
|
|
00208 10 REC1-AVG-TAX-WAGE PIC --------9.99. DTSBX657
|
|
00209 10 REC1-RATE-PCT PIC 9.9. DTSBX657
|
|
00210 10 REC1-DUE-DATE PIC X(10). DTSBX657
|
|
00211 10 REC1-INACT-YRQ PIC X(06). DTSBX657
|
|
00212 10 REC1-RCVD-DATE PIC X(10). DTSBX657
|
|
00213 10 REC1-TOT-WAGE PIC ----------9.99. DTSBX657
|
|
00214 10 REC1-SUR-BAL PIC ----------9.99. DTSBX657
|
|
00215 10 REC1-LP-BAL PIC ----------9.99. DTSBX657
|
|
00216 10 REC1-INT-BAL PIC ----------9.99. DTSBX657
|
|
00217 10 REC1-SEQ PIC 999999. DTSBX657
|
|
00218 10 REC1-PRED PIC 999999. DTSBX657
|
|
00219 10 REC1-REL-CD PIC X(02). DTSBX657
|
|
00220 10 REC1-TRAN PIC X(02). DTSBX657
|
|
00221 10 REC1-CREDIT PIC --------9.99. DTSBX657
|
|
00222 10 REC1-ACCOUNT PIC X(02). DTSBX657
|
|
00223 10 REC1-NEW-RATE PIC 9.9999. DTSBX657
|
|
00224 10 REC1-EMP-TYPE PIC X(05). DTSBX657
|
|
00225 10 REC1-CHG PIC --------9.99. DTSBX657
|
|
00226 10 REC1-DESC PIC X(40). DTSBX657
|
|
00227 10 REC1-LIAB-QTRS PIC 999. DTSBX657
|
|
00228 10 REC1-ORG-TYPE PIC X(03). DTSBX657
|
|
00229 10 REC1-LIAB-CD PIC X(02). DTSBX657
|
|
00230 10 REC1-LP-CHG PIC --------9.99. DTSBX657
|
|
00231 10 REC1-INT-CHG PIC --------9.99. DTSBX657
|
|
00232 10 REC1-IND-CODE PIC X(06). DTSBX657
|
|
00233 10 REC1-LIAB-ENTER-DATE PIC X(10). DTSBX657
|
|
00234 10 REC1-INACT-CODE PIC X(05). DTSBX657
|
|
00235 88 REC1-INACT-YES-88 VALUE 'INACT'. DTSBX657
|
|
00236 88 REC1-INACT-NO-88 VALUE 'ACT '. DTSBX657
|
|
00237 10 REC1-REACT PIC X(05). DTSBX657
|
|
00238 88 REC1-REACT-NO-88 VALUE 'NEW '. DTSBX657
|
|
00239 88 REC1-REACT-YES-88 VALUE 'REACT'. DTSBX657
|
|
00240 10 REC1-AREA PIC X(03). DTSBX657
|
|
00241 10 REC1-PFX PIC X(03). DTSBX657
|
|
00242 10 REC1-SFX PIC X(04). DTSBX657
|
|
00243 10 REC1-EXT PIC X(05). DTSBX657
|
|
00244 10 REC1-INT-CHARGE-IND PIC X(01). CL*84
|
|
00245 88 REC1-INT-CHARGE-MANUAL-88 VALUE 'M'. CL*84
|
|
00246 88 REC1-INT-CHARGE-AUTO-88 VALUE 'A'. CL*84
|
|
00247 10 FILLER PIC X(01) VALUE ';'. CL*84
|
|
00248 10 REC1-INT-START-DATE1 PIC X(10). CL*84
|
|
00249 10 FILLER PIC X(01) VALUE ';'. CL*84
|
|
00250 10 REC1-INT-END-DATE1 PIC X(10). CL*84
|
|
00251 10 FILLER PIC X(01) VALUE ';'. CL*84
|
|
00252 10 REC1-INT-RATE1 PIC 9.9999. CL*84
|
|
00253 10 FILLER PIC X(01) VALUE ';'. CL*84
|
|
00254 10 REC1-INT-START-DATE2 PIC X(10). CL*84
|
|
00255 10 FILLER PIC X(01) VALUE ';'. CL*84
|
|
00256 10 REC1-INT-END-DATE2 PIC X(10). CL*84
|
|
00257 10 FILLER PIC X(01) VALUE ';'. CL*84
|
|
00258 10 REC1-INT-RATE2 PIC 9.9999. CL*84
|
|
00259 10 FILLER PIC X(01) VALUE ';'. CL*84
|
|
00260 10 REC1-WAIVE-INT-START-DATE PIC X(10). CL*84
|
|
00261 10 FILLER PIC X(01) VALUE ';'. CL*84
|
|
00262 10 REC1-WAIVE-INT-END-DATE PIC X(10). CL*84
|
|
00263 CL*71
|
|
00264 05 WRK-REC2. CL*71
|
|
00265 10 REC2-EMP-NO PIC 999999. CL*71
|
|
00266 10 FILLER PIC X(01) VALUE ';'. CL*71
|
|
00267 10 REC2-ESTB-DATE PIC X(10). CL*71
|
|
00268 10 FILLER PIC X(01) VALUE ';'. CL*71
|
|
00269 10 REC2-QTR PIC X(06). CL*71
|
|
00270 CL*71
|
|
00271 05 WRK-ABS-QTR1 PIC S9(04) COMP-3 DTSBX657
|
|
00272 VALUE +0. DTSBX657
|
|
00273 05 WRK-ABS-QTR2 PIC S9(04) COMP-3 DTSBX657
|
|
00274 VALUE +0. DTSBX657
|
|
00275 05 WRK-ABS-DATE1 PIC S9(08) COMP. DTSBX657
|
|
00276 05 WRK-ABS-DATE2 PIC S9(08) COMP. DTSBX657
|
|
00277 05 WRK-DIFF PIC S9(07) COMP-3. DTSBX657
|
|
00278 05 WRK-UNDER-30-CNT PIC S9(04) COMP-3 DTSBX657
|
|
00279 VALUE +0. DTSBX657
|
|
00280 05 WRK-OVER-31-CNT PIC S9(04) COMP-3 DTSBX657
|
|
00281 VALUE +0. DTSBX657
|
|
00282 05 WRK-MPRF-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00283 05 WRK-FISCAL-AGENT-CD PIC X(03). DTSBX657
|
|
00284 05 WRK-BNK-IND PIC X(02). DTSBX657
|
|
00285 05 WRK-FIRST-NEW-EMP-NO PIC S9(07) COMP-3. DTSBX657
|
|
00286 *& VALUE +123778. DTSBX657
|
|
00287 05 WRK-FEIN PIC 9(09). DTSBX657
|
|
00288 05 WRK-MQTR-BAL PIC S9(11)V99 COMP-3 VALUE +0. DTSBX657
|
|
00289 05 WRK-MQTR-BAL1 PIC S9(11)V99 COMP-3 VALUE +0. DTSBX657
|
|
00290 05 WRK-MQTR-BAL2 PIC S9(11)V99 COMP-3 VALUE +0. DTSBX657
|
|
00291 05 WRK-MQTR-BAL3 PIC S9(11)V99 COMP-3 VALUE +0. DTSBX657
|
|
00292 05 WRK-RESERVE PIC S9(09)V99 COMP-3. DTSBX657
|
|
00293 05 WRK-MQTR-CHG PIC S9(09)V99 COMP-3. DTSBX657
|
|
00294 05 WRK-MQTR-ANN-BAL PIC S9(07)V99 COMP-3. DTSBX657
|
|
00295 05 WRK-MQTR-PEN-BAL PIC S9(07)V99 COMP-3. DTSBX657
|
|
00296 05 WRK-MQTR-PEN-CHG PIC S9(07)V99 COMP-3. DTSBX657
|
|
00297 05 WRK-MQTR-INT-BAL PIC S9(07)V99 COMP-3. DTSBX657
|
|
00298 05 WRK-MQTR-INT-CHG PIC S9(07)V99 COMP-3. DTSBX657
|
|
00299 05 WRK-RECEIVED-DATE PIC S9(09) COMP-3 CL*91
|
|
00300 VALUE +0. CL*91
|
|
00301 05 WRK-RPT-BAL-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00302 05 WRK-RPT-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00303 05 WRK-BAL-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00304 05 WRK-REL-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00305 05 WRK-RATED-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00306 05 WRK-SELF-INS-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00307 05 WRK-HOTEL-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX657
|
|
00308 05 WRK-TOT-EMPS PIC S9(07) COMP-3 VALUE +0. DTSBX657
|
|
00309 05 WRK-TOT-WORKERS PIC S9(11) COMP-3 VALUE +0. DTSBX657
|
|
00310 05 WRK-PURSUED-RPT-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00311 05 WRK-LATE-RPT-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00312 05 WRK-MEVL-REWRITE-CNT PIC S9(03) COMP-3 VALUE 0. CL141
|
|
00313 05 WRK-MEVL-DELETED-CNT PIC S9(03) COMP-3 VALUE 0. CL141
|
|
00314 05 WRK-MEVL-FOUND-CNT PIC S9(03) COMP-3 VALUE 0. CL128
|
|
00315 05 WRK-MQTR-UPDATED-CNT PIC S9(03) COMP-3 VALUE 0. CL128
|
|
00316 05 WRK-MQTR-FOUND-CNT PIC S9(03) COMP-3 VALUE 0. CL128
|
|
00317 05 MPRF-REC-CNT PIC S9(03) COMP-3 VALUE 0. CL128
|
|
00318 05 MPRF-WRK-CNT PIC S9(03) COMP-3 VALUE 0. CL128
|
|
00319 05 IN-REC-CNT PIC S9(03) COMP-3 VALUE 0. CL128
|
|
00320 05 WRK-UC30-SENT-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00321 05 WRK-UC30-RCVD-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00322 05 WRK-OVER-1000-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00323 05 WRK-UNDER-1000-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00324 05 WRK-HOUSEHOLD-PAYMENTS PIC S9(11)V99 COMP-3. DTSBX657
|
|
00325 05 WRK-TOT-WAGES PIC S9(11)V99 COMP-3. DTSBX657
|
|
00326 05 WRK-ALL-BNK-RATED PIC S9(11)V99 COMP-3. DTSBX657
|
|
00327 05 WRK-OPN-BNK-RATED PIC S9(11)V99 COMP-3. DTSBX657
|
|
00328 05 WRK-ALL-BNK-SI PIC S9(11)V99 COMP-3. DTSBX657
|
|
00329 05 WRK-OPN-BNK-SI PIC S9(11)V99 COMP-3. DTSBX657
|
|
00330 05 WRK-BOND-AMT PIC S9(11)V99 COMP-3. DTSBX657
|
|
00331 05 WRK-OVER-100-CNT PIC S9(07) COMP-3 DTSBX657
|
|
00332 VALUE +0. DTSBX657
|
|
00333 05 WRK-OVER-100-AMT PIC S9(11)V99 COMP-3 DTSBX657
|
|
00334 VALUE +0. DTSBX657
|
|
00335 05 WRK-1-10-CNT PIC S9(07) COMP-3 DTSBX657
|
|
00336 VALUE +0. DTSBX657
|
|
00337 05 WRK-1-10-AMT PIC S9(11)V99 COMP-3 DTSBX657
|
|
00338 VALUE +0. DTSBX657
|
|
00339 05 WRK-11-100-CNT PIC S9(07) COMP-3 DTSBX657
|
|
00340 VALUE +0. DTSBX657
|
|
00341 05 WRK-11-100-AMT PIC S9(11)V99 COMP-3 DTSBX657
|
|
00342 VALUE +0. DTSBX657
|
|
00343 05 WRK-OVER-100-WRKRS PIC S9(07) COMP-3. DTSBX657
|
|
00344 05 WRK-100-249-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00345 05 WRK-100-249-WRKRS PIC S9(07) COMP-3. DTSBX657
|
|
00346 05 WRK-50-100-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00347 05 WRK-50-100-WRKRS PIC S9(07) COMP-3. DTSBX657
|
|
00348 05 WRK-25-49-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00349 05 WRK-25-49-WRKRS PIC S9(07) COMP-3. DTSBX657
|
|
00350 05 WRK-10-24-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00351 05 WRK-10-24-WRKRS PIC S9(07) COMP-3. DTSBX657
|
|
00352 05 WRK-6-9-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00353 05 WRK-5-9-WRKRS PIC S9(07) COMP-3. DTSBX657
|
|
00354 05 WRK-5-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00355 05 WRK-4-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00356 05 WRK-3-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00357 05 WRK-2-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00358 05 WRK-1-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00359 05 WRK-UNDER-5-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00360 05 WRK-UNDER-5-WRKRS PIC S9(07) COMP-3. DTSBX657
|
|
00361 05 WRK-UNDER-10-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00362 05 WRK-OVER-10-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00363 05 WRK-UNDER-10-WRKRS PIC S9(07) COMP-3. DTSBX657
|
|
00364 05 WRK-NO-EMPS-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00365 05 WRK-MRCT-TOT-WAGES PIC S9(11)V99 COMP-3. DTSBX657
|
|
00366 05 WRK-MRCT-TAX-WAGES PIC S9(11)V99 COMP-3. DTSBX657
|
|
00367 05 WRK-MRCT-UI-PAID PIC S9(11)V99 COMP-3. DTSBX657
|
|
00368 05 WRK-TOT-UI PIC S9(11)V99 COMP-3. DTSBX657
|
|
00369 05 WRK-TOT-INT PIC S9(11)V99 COMP-3. DTSBX657
|
|
00370 05 WRK-TOT-PEN PIC S9(11)V99 COMP-3. DTSBX657
|
|
00371 05 WRK-MQTR-ANN-TOT-WAGE PIC S9(12)V99 COMP-3. DTSBX657
|
|
00372 05 WRK-MQTR-ANN-TAX-WAGE PIC S9(12)V99 COMP-3. DTSBX657
|
|
00373 05 WRK-MJRN-TOT-NEG-CHG PIC S9(11)V99 COMP-3 DTSBX657
|
|
00374 VALUE +0. DTSBX657
|
|
00375 05 WRK-MQTR-TOT-UI-CHARGED PIC S9(11)V99 COMP-3. DTSBX657
|
|
00376 05 WRK-START-DATE PIC S9(09) COMP-3. DTSBX657
|
|
00377 05 WRK-END-DATE PIC S9(09) COMP-3. DTSBX657
|
|
00378 05 WRK-LIAB-DATE PIC S9(09) COMP-3. DTSBX657
|
|
00379 05 WRK-FIRST-LIAB-DATE PIC S9(09) COMP-3. DTSBX657
|
|
00380 05 WRK-ALL-NINES-DATE PIC S9(09) COMP-3 DTSBX657
|
|
00381 VALUE +999999999. DTSBX657
|
|
00382 CL104
|
|
00383 05 WRK-UI-RATE-CATEGORY PIC X(01). CL104
|
|
00384 88 WRK-CLASSIFIED-88 VALUE 'C'. CL104
|
|
00385 88 WRK-NONCLASSIFIED-88 VALUE 'N'. CL104
|
|
00386 CL104
|
|
00387 CL104
|
|
00388 05 WRK-BNK-PETITION-DATE PIC 9(08). DTSBX657
|
|
00389 05 FILLER REDEFINES WRK-BNK-PETITION-DATE. DTSBX657
|
|
00390 10 WRK-BNK-PETITION-DATE-YYYY PIC 9(04). DTSBX657
|
|
00391 10 WRK-BNK-PETITION-DATE-MM PIC 9(02). DTSBX657
|
|
00392 10 WRK-BNK-PETITION-DATE-DD PIC 9(02). DTSBX657
|
|
00393 05 WRK-BNK-PETITION-YRQ PIC 9(05). DTSBX657
|
|
00394 05 FILLER REDEFINES WRK-BNK-PETITION-YRQ. DTSBX657
|
|
00395 10 WRK-BNK-PETITION-YRQ-YYYY PIC 9(04). DTSBX657
|
|
00396 10 WRK-BNK-PETITION-YRQ-Q PIC 9(01). DTSBX657
|
|
00397 05 WRK-BNK-FIRST-BILL-YRQ PIC S9(05) COMP-3. DTSBX657
|
|
00398 05 WRK-EST-RPT-IND PIC X(01). DTSBX657
|
|
00399 88 WRK-EST-RPT-YES VALUE 'Y'. DTSBX657
|
|
00400 88 WRK-EST-RPT-NO VALUE 'N'. DTSBX657
|
|
00401 DTSBX657
|
|
00402 05 WRK-ZERO-FOUND-IND PIC X(01). DTSBX657
|
|
00403 88 WRK-ZERO-FOUND-YES-88 VALUE 'Y'. DTSBX657
|
|
00404 88 WRK-ZERO-FOUND-NO-88 VALUE 'N'. DTSBX657
|
|
00405 DTSBX657
|
|
00406 05 WRK-WITHDRAWN-IND PIC X(01). DTSBX657
|
|
00407 88 WRK-WITHDRAWN-YES VALUE 'Y'. DTSBX657
|
|
00408 88 WRK-WITHDRAWN-NO VALUE 'N'. DTSBX657
|
|
00409 DTSBX657
|
|
00410 05 WRK-ORIG-IND PIC X(01). DTSBX657
|
|
00411 88 WRK-ORIG-YES VALUE 'Y'. DTSBX657
|
|
00412 88 WRK-ORIG-NO VALUE 'N'. DTSBX657
|
|
00413 DTSBX657
|
|
00414 05 WRK-MQTR-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00415 05 WRK-MRPT-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00416 05 WRK-MSOL-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00417 05 WRK-MLIN-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00418 05 WRK-MFAS-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00419 05 WRK-MFAE-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00420 05 WRK-MPAY-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00421 05 WRK-MADJ-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00422 05 WRK-MJRN-CNT PIC S9(08) COMP-3. DTSBX657
|
|
00423 05 WRK-MERA-CNT PIC S9(08) COMP-3. DTSBX657
|
|
00424 05 WRK-MRTE-CNT PIC S9(08) COMP-3. DTSBX657
|
|
00425 05 WRK-MRTE-CNT1 PIC S9(08) COMP-3. DTSBX657
|
|
00426 05 WRK-MLOG-CNT PIC S9(08) COMP-3. DTSBX657
|
|
00427 05 WRK-MFSC-CNT PIC S9(08) COMP-3 DTSBX657
|
|
00428 VALUE +0. DTSBX657
|
|
00429 05 WRK-CR-TOL-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00430 05 SUB PIC S9(04) COMP. DTSBX657
|
|
00431 05 RPT-SUB PIC S9(04) COMP. DTSBX657
|
|
00432 05 QTR-SUB PIC S9(04) COMP. DTSBX657
|
|
00433 05 WRK-QTR-AREA OCCURS 20 TIMES. DTSBX657
|
|
00434 10 WRK-QTR-YRQ PIC S9(05) COMP-3. DTSBX657
|
|
00435 10 WRK-QTR-CHG PIC S9(09)V99 COMP-3. DTSBX657
|
|
00436 10 WRK-QTR-PAID PIC S9(09)V99 COMP-3. DTSBX657
|
|
00437 10 WRK-QTR-WAIVED PIC S9(09)V99 COMP-3. DTSBX657
|
|
00438 10 WRK-QTR-TOLERATED PIC S9(09)V99 COMP-3. DTSBX657
|
|
00439 05 WRK-JRN-AREA OCCURS 100 TIMES. DTSBX657
|
|
00440 *** 10 WRK-JRN-EMP-NO PIC 9(06). DTSBX657
|
|
00441 *** 10 WRK-JRN-EMP-NAME PIC X(40). DTSBX657
|
|
00442 10 WRK-JRN-RCVD PIC X(10). DTSBX657
|
|
00443 10 WRK-JRN-TRAN PIC X(02). DTSBX657
|
|
00444 10 WRK-JRN-BATCH PIC 9(05). DTSBX657
|
|
00445 10 WRK-JRN-ITEM PIC 9(03). DTSBX657
|
|
00446 10 WRK-JRN-AMT PIC --------9.99. DTSBX657
|
|
00447 05 WRK-TIMELY-PMT-AREA. DTSBX657
|
|
00448 10 WRK-PEN-INT-BAL-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00449 10 WRK-INT-MANUAL-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00450 10 WRK-QTR-TAX-BAL PIC S9(09)V9(02) COMP-3. DTSBX657
|
|
00451 10 WRK-QTR-TAX-CHG PIC S9(09)V9(02) COMP-3. DTSBX657
|
|
00452 10 WRK-QTR-INT-PEN-BAL PIC S9(09)V9(02) COMP-3. DTSBX657
|
|
00453 10 WRK-AVG-PMT PIC S9(09)V9(02) COMP-3. DTSBX657
|
|
00454 10 WRK-TIMELY-PMT PIC S9(09)V9(02) COMP-3. DTSBX657
|
|
00455 10 WRK-OLD-PEN-CHG PIC S9(09)V9(02) COMP-3. DTSBX657
|
|
00456 DTSBX657
|
|
00457 05 WRK-PCT PIC S9(03)V9(04) COMP-3 DTSBX657
|
|
00458 VALUE +0. DTSBX657
|
|
00459 05 WRK-AVG-PCT PIC S9(09)V9(04) COMP-3 DTSBX657
|
|
00460 VALUE +0. DTSBX657
|
|
00461 05 WRK-PCT-DISP PIC Z(02)9.9999. DTSBX657
|
|
00462 05 WRK-PCT-DISP1 PIC Z(02)9.9999. DTSBX657
|
|
00463 05 WRK-UI-RATE PIC S9(01)V9(04) COMP-3. DTSBX657
|
|
00464 05 DISP-UI-RATE1 PIC 9.9(04). DTSBX657
|
|
00465 05 DISP-UI-RATE2 PIC 9.9(04). DTSBX657
|
|
00466 05 AMT-DISP PIC ---,---,--9.99. DTSBX657
|
|
00467 05 AMT-DISP1 PIC Z(11)9.99-. DTSBX657
|
|
00468 05 AMT-DISP2 PIC Z(11)9.99-. DTSBX657
|
|
00469 05 AMT-DISP3 PIC Z(11)9-. DTSBX657
|
|
00470 05 EMP-ACCT-DISP PIC 9(06). DTSBX657
|
|
00471 05 EMP-SUCC-DISP PIC 9(06). DTSBX657
|
|
00472 05 EMP-SUCC-DISP-X REDEFINES EMP-SUCC-DISP DTSBX657
|
|
00473 PIC X(06). DTSBX657
|
|
00474 05 DISP-DATE1 PIC X(10). DTSBX657
|
|
00475 05 DISP-DATE2 PIC X(10). DTSBX657
|
|
00476 05 INACT-LBL PIC X(10). DTSBX657
|
|
00477 05 WRK-MPRF-IND PIC X(01). DTSBX657
|
|
00478 88 WRK-MPRF-OK VALUE 'Y'. DTSBX657
|
|
00479 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBX657
|
|
00480 05 WRK-MQTR-IND PIC X(01). DTSBX657
|
|
00481 88 WRK-MQTR-OK VALUE 'Y'. DTSBX657
|
|
00482 88 WRK-MQTR-NO-REC VALUE 'N'. DTSBX657
|
|
00483 05 WRK-MRPT-IND PIC X(01). DTSBX657
|
|
00484 88 WRK-MRPT-OK VALUE 'Y'. DTSBX657
|
|
00485 88 WRK-MRPT-NO-REC VALUE 'N'. DTSBX657
|
|
00486 05 WRK-MDST-IND PIC X(01). DTSBX657
|
|
00487 88 WRK-MDST-OK VALUE 'Y'. DTSBX657
|
|
00488 88 WRK-MDST-NO-REC VALUE 'N'. DTSBX657
|
|
00489 05 WRK-MEVL-IND PIC X(01). DTSBX657
|
|
00490 88 WRK-MEVL-OK VALUE 'Y'. DTSBX657
|
|
00491 88 WRK-MEVL-NO-REC VALUE 'N'. DTSBX657
|
|
00492 05 WRK-MLIN-IND PIC X(01). DTSBX657
|
|
00493 88 WRK-MLIN-OK VALUE 'Y'. DTSBX657
|
|
00494 88 WRK-MLIN-NO-REC VALUE 'N'. DTSBX657
|
|
00495 05 WRK-MDPC-IND PIC X(01). DTSBX657
|
|
00496 88 WRK-MDPC-OK VALUE 'Y'. DTSBX657
|
|
00497 88 WRK-MDPC-NO-REC VALUE 'N'. DTSBX657
|
|
00498 05 WRK-MFAS-IND PIC X(01). DTSBX657
|
|
00499 88 WRK-MFAS-OK VALUE 'Y'. DTSBX657
|
|
00500 88 WRK-MFAS-NO-REC VALUE 'N'. DTSBX657
|
|
00501 05 WRK-MFAE-IND PIC X(01). DTSBX657
|
|
00502 88 WRK-MFAE-OK VALUE 'Y'. DTSBX657
|
|
00503 88 WRK-MFAE-NO-REC VALUE 'N'. DTSBX657
|
|
00504 05 WRK-MSOL-IND PIC X(01). DTSBX657
|
|
00505 88 WRK-MSOL-OK VALUE 'Y'. DTSBX657
|
|
00506 88 WRK-MSOL-NO-REC VALUE 'N'. DTSBX657
|
|
00507 05 WRK-MLOG-IND PIC X(01). DTSBX657
|
|
00508 88 WRK-MLOG-OK VALUE 'Y'. DTSBX657
|
|
00509 88 WRK-MLOG-NO-REC VALUE 'N'. DTSBX657
|
|
00510 88 WRK-MLOG-COMPLETE VALUE 'C'. DTSBX657
|
|
00511 05 WRK-MRPT-FOUND-IND PIC X(01). DTSBX657
|
|
00512 88 WRK-MRPT-FOUND-YES VALUE 'Y'. DTSBX657
|
|
00513 88 WRK-MRPT-FOUND-NO VALUE 'N'. DTSBX657
|
|
00514 05 WRK-MTAD-FOUND-IND PIC X(01). CL**6
|
|
00515 88 WRK-MTAD-FOUND-YES VALUE 'Y'. CL**6
|
|
00516 88 WRK-MTAD-FOUND-NO VALUE 'N'. CL**6
|
|
00517 05 WRK-CR-TOL-IND PIC X(01). DTSBX657
|
|
00518 88 WRK-CR-TOL-YES VALUE 'Y'. DTSBX657
|
|
00519 88 WRK-CR-TOL-NO VALUE 'N'. DTSBX657
|
|
00520 05 WRK-DUP-FOUND-IND PIC X(01). DTSBX657
|
|
00521 88 WRK-DUP-FOUND-YES VALUE 'Y'. DTSBX657
|
|
00522 88 WRK-DUP-FOUND-NO VALUE 'N'. DTSBX657
|
|
00523 05 WRK-SELECT-IND PIC X(01). DTSBX657
|
|
00524 88 WRK-SELECT-YES-88 VALUE 'Y'. DTSBX657
|
|
00525 88 WRK-SELECT-NO-88 VALUE 'N'. DTSBX657
|
|
00526 05 WRK-LAST-MRPT-TYPE PIC X(02). DTSBX657
|
|
00527 05 WRK-DISP-AREA. DTSBX657
|
|
00528 10 WRK-DISP-STAR PIC X(01). DTSBX657
|
|
00529 10 FILLER PIC X(01) VALUE SPACE. DTSBX657
|
|
00530 10 WRK-DISP-AMT PIC Z(10)9.99-. DTSBX657
|
|
00531 DTSBX657
|
|
00532 05 WRK-INACT-DATE PIC S9(09) COMP-3 DTSBX657
|
|
00533 VALUE +0. DTSBX657
|
|
00534 05 WRK-INACT-CODE PIC X(02). DTSBX657
|
|
00535 05 WRK-INACT-YRQ PIC S9(05) COMP-3 DTSBX657
|
|
00536 VALUE +0. DTSBX657
|
|
00537 05 WRK-LAST-YRQ PIC S9(05) COMP-3 DTSBX657
|
|
00538 VALUE +0. DTSBX657
|
|
00539 05 WRK-FIRST-LIAB-YRQ PIC S9(05) COMP-3 DTSBX657
|
|
00540 VALUE +0. DTSBX657
|
|
00541 05 WRK-LAST-LIAB-YRQ PIC S9(05) COMP-3 DTSBX657
|
|
00542 VALUE +0. DTSBX657
|
|
00543 05 WRK-NEXT-YRQ PIC S9(05) COMP-3 DTSBX657
|
|
00544 VALUE +0. DTSBX657
|
|
00545 05 WRK-UPDATED-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00546 DTSBX657
|
|
00547 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00548 DTSBX657
|
|
00549 05 PARM-EOF-IND PIC X(01). DTSBX657
|
|
00550 DTSBX657
|
|
00551 05 WRK-EMP-NO PIC 9(06). DTSBX657
|
|
00552 DTSBX657
|
|
00553 05 WRK-TRACE-IND PIC X(01). DTSBX657
|
|
00554 DTSBX657
|
|
00555 05 WRK-MST-OPEN-IND PIC X(01). DTSBX657
|
|
00556 DTSBX657
|
|
00557 05 WRK-REF-OPEN-IND PIC X(01). DTSBX657
|
|
00558 DTSBX657
|
|
00559 05 WRK-SIC-SCAN-AREA. DTSBX657
|
|
00560 10 WRK-RPT-FOUND-IND PIC X(01). DTSBX657
|
|
00561 88 WRK-RPT-FOUND-YES VALUE 'Y'. DTSBX657
|
|
00562 88 WRK-RPT-FOUND-NO VALUE 'N'. DTSBX657
|
|
00563 10 WRK-EMPL-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00564 10 WRK-SIC-4 PIC X(04). DTSBX657
|
|
00565 10 FILLER REDEFINES WRK-SIC-4. DTSBX657
|
|
00566 15 WRK-SIC-3 PIC X(03). DTSBX657
|
|
00567 15 FILLER PIC X(01). DTSBX657
|
|
00568 10 WRK-NO-SIC-CNT PIC S9(07) COMP-3. DTSBX657
|
|
00569 10 WRK-SIC-7911-AREA. DTSBX657
|
|
00570 15 WRK-SIC-7911-WORKERS PIC S9(07) COMP-3. DTSBX657
|
|
00571 15 WRK-SIC-7911-BUSINESSES PIC S9(07) COMP-3. DTSBX657
|
|
00572 10 WRK-SIC-794-AREA. DTSBX657
|
|
00573 15 WRK-SIC-794-WORKERS PIC S9(07) COMP-3. DTSBX657
|
|
00574 15 WRK-SIC-794-BUSINESSES PIC S9(07) COMP-3. DTSBX657
|
|
00575 10 WRK-SIC-799-AREA. DTSBX657
|
|
00576 15 WRK-SIC-799-WORKERS PIC S9(07) COMP-3. DTSBX657
|
|
00577 15 WRK-SIC-799-BUSINESSES PIC S9(07) COMP-3. DTSBX657
|
|
00578 10 WRK-SIC-8351-AREA. DTSBX657
|
|
00579 15 WRK-SIC-8351-WORKERS PIC S9(07) COMP-3. DTSBX657
|
|
00580 15 WRK-SIC-8351-BUSINESSES PIC S9(07) COMP-3. DTSBX657
|
|
00581 10 WRK-SIC-8641-AREA. DTSBX657
|
|
00582 15 WRK-SIC-8641-WORKERS PIC S9(07) COMP-3. DTSBX657
|
|
00583 15 WRK-SIC-8641-BUSINESSES PIC S9(07) COMP-3. DTSBX657
|
|
00584 10 WRK-NAICS-6 PIC X(06). DTSBX657
|
|
00585 10 FILLER REDEFINES WRK-NAICS-6. DTSBX657
|
|
00586 15 WRK-NAICS-2 PIC X(02). DTSBX657
|
|
00587 15 FILLER PIC X(04). DTSBX657
|
|
00588 *RW1 DTSBX657
|
|
00589 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBX657
|
|
00590 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBX657
|
|
00591 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBX657
|
|
00592 DTSBX657
|
|
00593 05 DISP-DATE PIC X(08). DTSBX657
|
|
00594 05 DISP-TIME PIC X(08). DTSBX657
|
|
00595 DTSBX657
|
|
00596 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBX657
|
|
00597 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBX657
|
|
00598 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBX657
|
|
00599 05 WRK-T003-CNT PIC S9(07) COMP-3 VALUE +0. CL184
|
|
00600 DTSBX657
|
|
00601 * 05 EVL-TEXT PIC X(50). CL154
|
|
00602 01 MNT-LOG-AREA. CL183
|
|
00603 10 WRK-MNTE-MSG-LINE1. CL183
|
|
00604 15 FILLER PIC X(53) VALUE CL214
|
|
00605 'PER RETURNED TAX RATE NOTICE RECEIVED, RETURN MAIL FL'. CL231
|
|
00606 15 FILLER PIC X(20) VALUE CL217
|
|
00607 'AG HAS BEEN UPDATED '. CL231
|
|
00608 10 WRK-MNTE-MSG-LINE2. CL183
|
|
00609 15 FILLER PIC X(53) VALUE CL214
|
|
00610 'TO YES. MAILING ADDRESS VERIFICATION PROCESS IN PROGR'. CL231
|
|
00611 15 FILLER PIC X(19) VALUE CL214
|
|
00612 'ESS. '. CL231
|
|
00613 10 WRK-MNTE-MSG-LINE3. CL183
|
|
00614 15 FILLER PIC X(53) VALUE CL214
|
|
00615 ' '. CL229
|
|
00616 15 FILLER PIC X(19) VALUE CL214
|
|
00617 ' '. CL216
|
|
00618 * 'CORRESPONDENCE RESUMED.'. CL198
|
|
00619 * CL190
|
|
00620 01 HEADER-1. DTSBX657
|
|
00621 05 FILLER PIC X(01) VALUE SPACES. DTSBX657
|
|
00622 05 FILLER PIC X(49) VALUE '016R1'. DTSBX657
|
|
00623 05 FILLER PIC X(60) VALUE DTSBX657
|
|
00624 'DISTRICT OF COLUMBIA'. DTSBX657
|
|
00625 05 FILLER PIC X(06) VALUE 'DATE:'. DTSBX657
|
|
00626 05 HDR1-LRCM-SYS-DATE PIC X(08). DTSBX657
|
|
00627 DTSBX657
|
|
00628 01 HEADER-2. DTSBX657
|
|
00629 05 FILLER PIC X(54) VALUE SPACES. DTSBX657
|
|
00630 05 FILLER PIC X(56) VALUE DTSBX657
|
|
00631 'TAX DIVISION'. DTSBX657
|
|
00632 05 FILLER PIC X(06) VALUE 'TIME:'. DTSBX657
|
|
00633 05 HDR2-LRCM-SYS-TIME PIC X(08). DTSBX657
|
|
00634 DTSBX657
|
|
00635 01 HEADER-3. DTSBX657
|
|
00636 05 FILLER PIC X(01) VALUE SPACES. DTSBX657
|
|
00637 05 FILLER PIC X(38) VALUE DTSBX657
|
|
00638 'ROUTE TO: ACCOUNTING UNIT'. DTSBX657
|
|
00639 05 HDR3-LITERAL PIC X(43) VALUE DTSBX657
|
|
00640 ' EMPLOYERS REGISTERED SINCE 09/11/01 '. DTSBX657
|
|
00641 05 FILLER PIC X(28) VALUE SPACES. DTSBX657
|
|
00642 05 FILLER PIC X(06) VALUE 'PAGE:'. DTSBX657
|
|
00643 05 HDR3-PAGE PIC ZZ,ZZ9. DTSBX657
|
|
00644 DTSBX657
|
|
00645 01 HEADER-4. DTSBX657
|
|
00646 05 FILLER PIC X(01) VALUE SPACES. DTSBX657
|
|
00647 05 FILLER PIC X(132) VALUE SPACES. DTSBX657
|
|
00648 DTSBX657
|
|
00649 01 HEADER-5. DTSBX657
|
|
00650 05 FILLER PIC X(01) VALUE SPACES. DTSBX657
|
|
00651 05 FILLER PIC X(05) VALUE SPACES. DTSBX657
|
|
00652 05 FILLER PIC X(06) VALUE DTSBX657
|
|
00653 'EMP NO'. DTSBX657
|
|
00654 05 FILLER PIC X(05) VALUE SPACES. DTSBX657
|
|
00655 05 FILLER PIC X(12) VALUE DTSBX657
|
|
00656 'PRIMARY NAME'. DTSBX657
|
|
00657 05 FILLER PIC X(28) VALUE SPACES. DTSBX657
|
|
00658 05 FILLER PIC X(04) VALUE SPACES. DTSBX657
|
|
00659 05 FILLER PIC X(14) VALUE DTSBX657
|
|
00660 'LIABILITY DATE'. DTSBX657
|
|
00661 05 FILLER PIC X(04) VALUE SPACES. DTSBX657
|
|
00662 05 FILLER PIC X(13) VALUE DTSBX657
|
|
00663 'INACTIVE DATE'. DTSBX657
|
|
00664 05 FILLER PIC X(12) VALUE SPACES. DTSBX657
|
|
00665 05 FILLER PIC X(18) VALUE SPACES. DTSBX657
|
|
00666 DTSBX657
|
|
00667 01 HEADER-6. DTSBX657
|
|
00668 05 FILLER PIC X(01) VALUE SPACES. DTSBX657
|
|
00669 05 FILLER PIC X(132) VALUE SPACES. DTSBX657
|
|
00670 DTSBX657
|
|
00671 01 DETAIL-LINE-1. DTSBX657
|
|
00672 05 FILLER PIC X(05) VALUE SPACES. DTSBX657
|
|
00673 05 WS-EMP-NO PIC 999B999. DTSBX657
|
|
00674 05 FILLER PIC X(02) VALUE SPACES. DTSBX657
|
|
00675 05 WS-PRIMARY-NAME PIC X(40). DTSBX657
|
|
00676 05 FILLER PIC X(02) VALUE SPACES. DTSBX657
|
|
00677 05 WS-DATE1 PIC X(10). DTSBX657
|
|
00678 05 FILLER PIC X(02) VALUE SPACES. DTSBX657
|
|
00679 05 WS-DATE2 PIC X(10). DTSBX657
|
|
00680 * 05 FILLER PIC X(05) VALUE SPACES. DTSBX657
|
|
00681 * 05 WS-BALANCE-AMT PIC ZZZ,ZZZ,ZZ9.99. DTSBX657
|
|
00682 * 05 FILLER PIC X(09) VALUE SPACES. DTSBX657
|
|
00683 * 05 WS-PURSUED-RPT PIC ZZ9. DTSBX657
|
|
00684 * 05 FILLER PIC X(10) VALUE SPACES. DTSBX657
|
|
00685 * 05 WS-DPC PIC X(01). DTSBX657
|
|
00686 * 05 FILLER PIC X(06) VALUE SPACES. DTSBX657
|
|
00687 * 05 WS-LIEN PIC X(01). DTSBX657
|
|
00688 * 05 FILLER PIC X(21) VALUE SPACES. DTSBX657
|
|
00689 DTSBX657
|
|
00690 01 FOOTING-LINE-1 PIC X(133) VALUE SPACES. DTSBX657
|
|
00691 01 FOOTING-LINE-2 PIC X(133) VALUE SPACES. DTSBX657
|
|
00692 DTSBX657
|
|
00693 01 FOOTING-LINE-3. DTSBX657
|
|
00694 05 FILLER PIC X(25) VALUE SPACES. DTSBX657
|
|
00695 05 WS-FOOTING-CNT PIC ZZ,ZZ9. DTSBX657
|
|
00696 05 FILLER PIC X(02) VALUE SPACES. DTSBX657
|
|
00697 05 FILLER PIC X(43) VALUE DTSBX657
|
|
00698 'DEBIT WRITE OFF CANDIDATES LISTED ON REPORT'.DTSBX657
|
|
00699 05 FILLER PIC X(23) VALUE SPACES. DTSBX657
|
|
00700 01 FOOTING-LINE-4 PIC X(133) VALUE SPACES. DTSBX657
|
|
00701 01 FOOTING-LINE-5 PIC X(133) VALUE SPACES. DTSBX657
|
|
00702 01 FOOTING-LINE-6. DTSBX657
|
|
00703 05 FILLER PIC X(25) VALUE SPACES. DTSBX657
|
|
00704 05 FILLER PIC X(17) VALUE DTSBX657
|
|
00705 '*** END OF REPORT'. DTSBX657
|
|
00706 *RW2 DTSBX657
|
|
00707 DTSBX657
|
|
00708 01 TSKL-REC. CL183
|
|
00709 ++INCLUDE DTSITSKL CL183
|
|
00710 EJECT CL183
|
|
00711 01 T003-REC. CL183
|
|
00712 ++INCLUDE DTSIT003 CL183
|
|
00713 EJECT CL183
|
|
00714 01 L001-LINK-AREA. DTSBX657
|
|
00715 ++INCLUDE DTSIL001 DTSBX657
|
|
00716 EJECT DTSBX657
|
|
00717 01 L005-LINK-AREA. CL157
|
|
00718 ++INCLUDE DTSIL005 DTSBX657
|
|
00719 EJECT DTSBX657
|
|
00720 01 L331-LINK-AREA. CL209
|
|
00721 ++INCLUDE DTSIL331 CL209
|
|
00722 EJECT DTSBX657
|
|
00723 01 L039-LINK-AREA. CL209
|
|
00724 ++INCLUDE DTSIL039 CL209
|
|
00725 EJECT CL209
|
|
00726 01 L101-LINK-AREA. CL*23
|
|
00727 ++INCLUDE DTSIL101 CL*23
|
|
00728 EJECT DTSBX657
|
|
00729 01 L102-LINK-AREA. CL*23
|
|
00730 ++INCLUDE DTSIL102 CL*23
|
|
00731 EJECT CL*23
|
|
00732 01 L109-LINK-AREA. CL*23
|
|
00733 ++INCLUDE DTSIL109 CL*23
|
|
00734 CL*23
|
|
00735 01 L054-LINK-AREA. DTSBX657
|
|
00736 ++INCLUDE DTSIL054 DTSBX657
|
|
00737 EJECT DTSBX657
|
|
00738 01 L410-LINK-AREA. DTSBX657
|
|
00739 ++INCLUDE DTSIL410 DTSBX657
|
|
00740 EJECT DTSBX657
|
|
00741 01 L600-LINK-AREA. DTSBX657
|
|
00742 ++INCLUDE DTSIL600 DTSBX657
|
|
00743 EJECT DTSBX657
|
|
00744 01 L910-LINK-AREA. DTSBX657
|
|
00745 ++INCLUDE DTSIL910 DTSBX657
|
|
00746 EJECT DTSBX657
|
|
00747 01 MSKL-REC. DTSBX657
|
|
00748 ++INCLUDE DTSIMSKL DTSBX657
|
|
00749 EJECT DTSBX657
|
|
00750 01 MLOG-REC. CL240
|
|
00751 ++INCLUDE DTSIMLOG CL240
|
|
00752 01 MNTE-REC. CL240
|
|
00753 ++INCLUDE DTSIMNTE CL240
|
|
00754 EJECT CL183
|
|
00755 01 MHDR-REC. DTSBX657
|
|
00756 ++INCLUDE DTSIMHDR DTSBX657
|
|
00757 EJECT DTSBX657
|
|
00758 01 MPRF-REC. CL164
|
|
00759 ++INCLUDE DTSIMPRF CL164
|
|
00760 EJECT CL164
|
|
00761 01 MQTR-REC. DTSBX657
|
|
00762 ++INCLUDE DTSIMQTR DTSBX657
|
|
00763 EJECT DTSBX657
|
|
00764 01 MRPT-REC. DTSBX657
|
|
00765 ++INCLUDE DTSIMRPT DTSBX657
|
|
00766 EJECT DTSBX657
|
|
00767 01 MSOL-REC. DTSBX657
|
|
00768 ++INCLUDE DTSIMSOL DTSBX657
|
|
00769 EJECT DTSBX657
|
|
00770 01 MRCT-REC. DTSBX657
|
|
00771 ++INCLUDE DTSIMRCT DTSBX657
|
|
00772 EJECT DTSBX657
|
|
00773 01 MREL-REC. DTSBX657
|
|
00774 ++INCLUDE DTSIMREL DTSBX657
|
|
00775 EJECT DTSBX657
|
|
00776 01 MEVL-REC. DTSBX657
|
|
00777 ++INCLUDE DTSIMEVL DTSBX657
|
|
00778 EJECT DTSBX657
|
|
00779 01 MLIN-REC. DTSBX657
|
|
00780 ++INCLUDE DTSIMLIN DTSBX657
|
|
00781 EJECT DTSBX657
|
|
00782 01 MRTE-REC. DTSBX657
|
|
00783 ++INCLUDE DTSIMRTE DTSBX657
|
|
00784 EJECT DTSBX657
|
|
00785 01 MDST-REC. DTSBX657
|
|
00786 ++INCLUDE DTSIMDST DTSBX657
|
|
00787 EJECT DTSBX657
|
|
00788 01 MPAY-REC. DTSBX657
|
|
00789 ++INCLUDE DTSIMPAY DTSBX657
|
|
00790 EJECT DTSBX657
|
|
00791 01 MADJ-REC. DTSBX657
|
|
00792 ++INCLUDE DTSIMADJ DTSBX657
|
|
00793 EJECT DTSBX657
|
|
00794 01 MJRN-REC. DTSBX657
|
|
00795 ++INCLUDE DTSIMJRN DTSBX657
|
|
00796 EJECT DTSBX657
|
|
00797 01 MERA-REC. DTSBX657
|
|
00798 ++INCLUDE DTSIMERA DTSBX657
|
|
00799 EJECT DTSBX657
|
|
00800 01 MCOL-REC. DTSBX657
|
|
00801 ++INCLUDE DTSIMCOL DTSBX657
|
|
00802 EJECT DTSBX657
|
|
00803 01 MFAS-REC. DTSBX657
|
|
00804 ++INCLUDE DTSIMFAS DTSBX657
|
|
00805 01 MAUR-REC. DTSBX657
|
|
00806 ++INCLUDE DTSIMAUR DTSBX657
|
|
00807 EJECT DTSBX657
|
|
00808 01 MFAE-REC. DTSBX657
|
|
00809 ++INCLUDE DTSIMFAE DTSBX657
|
|
00810 EJECT DTSBX657
|
|
00811 EJECT DTSBX657
|
|
00812 01 MOPO-REC. DTSBX657
|
|
00813 ++INCLUDE DTSIMOPO DTSBX657
|
|
00814 EJECT DTSBX657
|
|
00815 01 MTAD-REC. DTSBX657
|
|
00816 ++INCLUDE DTSIMTAD DTSBX657
|
|
00817 EJECT DTSBX657
|
|
00818 01 MTAA-REC. DTSBX657
|
|
00819 ++INCLUDE DTSIMTAA DTSBX657
|
|
00820 EJECT DTSBX657
|
|
00821 01 MBAA-REC. DTSBX657
|
|
00822 ++INCLUDE DTSIMBAA DTSBX657
|
|
00823 EJECT DTSBX657
|
|
00824 01 MFSC-REC. DTSBX657
|
|
00825 ++INCLUDE DTSIMFSC DTSBX657
|
|
00826 EJECT DTSBX657
|
|
00827 01 MERD-REC. DTSBX657
|
|
00828 ++INCLUDE DTSIMERD DTSBX657
|
|
00829 EJECT DTSBX657
|
|
00830 01 MDPC-REC. DTSBX657
|
|
00831 ++INCLUDE DTSIMDPC DTSBX657
|
|
00832 EJECT DTSBX657
|
|
00833 01 L921-LINK-AREA. DTSBX657
|
|
00834 ++INCLUDE DTSIL921 DTSBX657
|
|
00835 EJECT DTSBX657
|
|
00836 01 ISKL-REC. DTSBX657
|
|
00837 ++INCLUDE DTSIISKL DTSBX657
|
|
00838 EJECT DTSBX657
|
|
00839 01 IPES-REC. DTSBX657
|
|
00840 ++INCLUDE DTSIIPES DTSBX657
|
|
00841 EJECT DTSBX657
|
|
00842 01 L931-LINK-AREA. DTSBX657
|
|
00843 ++INCLUDE DTSIL931 DTSBX657
|
|
00844 EJECT DTSBX657
|
|
00845 01 FSKL-REC. DTSBX657
|
|
00846 ++INCLUDE DTSIFSKL DTSBX657
|
|
00847 EJECT DTSBX657
|
|
00848 01 FQTR-REC. DTSBX657
|
|
00849 ++INCLUDE DTSIFQTR DTSBX657
|
|
00850 EJECT DTSBX657
|
|
00851 01 FFIS-REC. DTSBX657
|
|
00852 ++INCLUDE DTSIFFIS DTSBX657
|
|
00853 EJECT DTSBX657
|
|
00854 01 FFAZ-REC. DTSBX657
|
|
00855 ++INCLUDE DTSIFFAZ DTSBX657
|
|
00856 EJECT DTSBX657
|
|
00857 01 FOPR-REC. DTSBX657
|
|
00858 ++INCLUDE DTSIFOPR DTSBX657
|
|
00859 EJECT DTSBX657
|
|
00860 01 L933-LINK-AREA. DTSBX657
|
|
00861 ++INCLUDE DTSIL933 DTSBX657
|
|
00862 EJECT DTSBX657
|
|
00863 01 XSIC-REC. DTSBX657
|
|
00864 ++INCLUDE DTSIXSIC DTSBX657
|
|
00865 EJECT DTSBX657
|
|
00866 01 L004-COMM-AREA. DTSBX657
|
|
00867 ++INCLUDE DTSIL004 DTSBX657
|
|
00868 DTSBX657
|
|
00869 01 L061-LINK-AREA. DTSBX657
|
|
00870 ++INCLUDE DTSIL061 DTSBX657
|
|
00871 DTSBX657
|
|
00872 01 L062-LINK-AREA. DTSBX657
|
|
00873 ++INCLUDE DTSIL062 DTSBX657
|
|
00874 DTSBX657
|
|
00875 01 L516-LINK-AREA. DTSBX657
|
|
00876 ++INCLUDE DTSIL516 DTSBX657
|
|
00877 EJECT DTSBX657
|
|
00878 01 LBCM-LINK-AREA. CL173
|
|
00879 ++INCLUDE DTSILBCM CL173
|
|
00880 EJECT CL154
|
|
00881 01 L923-LINK-AREA. CL183
|
|
00882 ++INCLUDE DTSIL923 CL183
|
|
00883 EJECT CL183
|
|
00884 01 ASKL-REC. CL183
|
|
00885 ++INCLUDE DTSIASKL CL183
|
|
00886 EJECT CL183
|
|
00887 01 AHDR-REC. CL183
|
|
00888 ++INCLUDE DTSIAHDR CL183
|
|
00889 EJECT CL183
|
|
00890 01 AADJ-REC. CL183
|
|
00891 ++INCLUDE DTSIAADJ CL183
|
|
00892 EJECT CL183
|
|
00893 01 L927-LINK-AREA. CL183
|
|
00894 ++INCLUDE DTSIL927 CL183
|
|
00895 EJECT CL183
|
|
00896 PROCEDURE DIVISION. CL228
|
|
00897 CL164
|
|
00898 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX657
|
|
00899 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX657
|
|
00900 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX657
|
|
00901 SKIP2 DTSBX657
|
|
00902 GOBACK. DTSBX657
|
|
00903 EJECT DTSBX657
|
|
00904 I0000-INITIATE. DTSBX657
|
|
00905 SKIP2 DTSBX657
|
|
00906 MOVE 'N' TO WRK-TRACE-IND. DTSBX657
|
|
00907 SET WRK-ERROR-NO-88 TO TRUE. DTSBX657
|
|
00908 MOVE +0 TO WRK-MPRF-REC-CNT CL193
|
|
00909 DTSBX657
|
|
00910 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DTSBX657
|
|
00911 DTSBX657
|
|
00912 MOVE +0 TO WRK-MPRF-CNT CL120
|
|
00913 WRK-MQTR-CNT CL120
|
|
00914 WRK-MLOG-CNT CL120
|
|
00915 WRK-MEVL-DELETED-CNT. CL120
|
|
00916 CL120
|
|
00917 I0000-EXIT. DTSBX657
|
|
00918 EXIT. DTSBX657
|
|
00919 I2000-OPEN-FILES-1. DTSBX657
|
|
00920 DISPLAY 'UPD RETURN FLAG TO Y - BAD ADDR TAX RATE RETURNED' CL231
|
|
00921 DISPLAY ' '. CL220
|
|
00922 OPEN INPUT EMP-FILE1. CL120
|
|
00923 IF NOT EXP-STATUS-OK-88 DTSBX657
|
|
00924 DISPLAY 'CANNOT OPEN EXP FILE ' EXP-STATUS DTSBX657
|
|
00925 SET WRK-ERROR-YES-88 TO TRUE DTSBX657
|
|
00926 GO TO I2000-EXIT. DTSBX657
|
|
00927 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBX657
|
|
00928 DTSBX657
|
|
00929 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBX657
|
|
00930 DTSBX657
|
|
00931 * PERFORM S910-OPEN-READ THRU S910-EXIT. CL171
|
|
00932 PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. CL176
|
|
00933 PERFORM S923-OPEN-UPDATE THRU S923-EXIT. CL189
|
|
00934 PERFORM S927-OPEN-UPDATE THRU S927-EXIT. CL189
|
|
00935 DTSBX657
|
|
00936 * PERFORM S921-OPEN-READ THRU S921-EXIT. CL123
|
|
00937 PERFORM S005-FROM-SYS THRU S005-EXIT. CL187
|
|
00938 DTSBX657
|
|
00939 ** PERFORM S931-OPEN-READ THRU S931-EXIT. CL122
|
|
00940 * PERFORM S931-OPEN-UPDATE THRU S931-EXIT. CL176
|
|
00941 DTSBX657
|
|
00942 MOVE WRK-MOD-NAME TO L933-MOD-NAME. DTSBX657
|
|
00943 DTSBX657
|
|
00944 *** PERFORM S933-OPEN-READ THRU S933-EXIT. DTSBX657
|
|
00945 DTSBX657
|
|
00946 I2000-EXIT. DTSBX657
|
|
00947 EXIT. DTSBX657
|
|
00948 DTSBX657
|
|
00949 P0000-PROCESS. DTSBX657
|
|
00950 * DISPLAY 'IN P0000-PROCESS'. CL220
|
|
00951 READ EMP-FILE1 AT END GO TO P0000-EXIT. CL122
|
|
00952 DTSBX657
|
|
00953 MOVE INEMP-NOA TO WS-EMP-NOA. CL254
|
|
00954 MOVE INEMP-NOB TO WS-EMP-NOB. CL254
|
|
00955 ADD 1 TO IN-REC-CNT. CL122
|
|
00956 MOVE LOW-VALUES TO MPRF-KEY-AREA. CL129
|
|
00957 SET MPRF-PRF-88 TO TRUE. CL129
|
|
00958 DTSBX657
|
|
00959 MOVE WS-EMP-NO1 TO WS-EMP-NOZ. CL**2
|
|
00960 MOVE WS-EMP-NOZ TO MPRF-EMP-NO. CL**2
|
|
00961 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. CL119
|
|
00962 DTSBX657
|
|
00963 PERFORM S910-READ THRU S910-EXIT. DTSBX657
|
|
00964 IF L910-NO-REC-88 CL119
|
|
00965 DISPLAY ' EMP NOT FOUND ' WS-EMP-NOZ CL**2
|
|
00966 GO TO P0000-PROCESS. CL119
|
|
00967 ADD 1 TO MPRF-REC-CNT. CL122
|
|
00968 MOVE MSKL-REC TO MPRF-REC CL119
|
|
00969 CL204
|
|
00970 IF MPRF-RETURN-MAIL-YES-88 CL252
|
|
00971 DISPLAY MPRF-EMP-NO ' DUTAS RTN MAIL FLAG = Y ' CL252
|
|
00972 '----**** FLAG NOT UPDATED' CL252
|
|
00973 GO TO P0000-PROCESS. CL252
|
|
00974 CL227
|
|
00975 MOVE +0 TO WRK-MEVL-REWRITE-CNT CL231
|
|
00976 PERFORM P6000-SCAN-EVL THRU P6000-EXIT. CL231
|
|
00977 IF WRK-MEVL-REWRITE-CNT = 1 CL231
|
|
00978 DISPLAY MPRF-EMP-NO ' DUTAS ADDRESS UPDATED ' CL253
|
|
00979 '----++++ FLAG NOT UPDATED' CL253
|
|
00980 GO TO P0000-PROCESS. CL231
|
|
00981 PERFORM P1100-CHECK-FOR-MLOG THRU P1100-EXIT. CL217
|
|
00982 PERFORM P3000-ADD-MNTE THRU P3000-EXIT CL225
|
|
00983 SET MPRF-RETURN-MAIL-YES-88 TO TRUE CL221
|
|
00984 MOVE L005-DATE TO MPRF-CHNG-DATE CL228
|
|
00985 MOVE MPRF-REC TO MSKL-REC CL228
|
|
00986 PERFORM S910-REWRITE THRU S910-EXIT CL221
|
|
00987 DISPLAY MPRF-EMP-NO ' DUTAS RTN MAIL FLAG UPDATED TO Y ' CL231
|
|
00988 '---- RTN FLAG UPDATED' CL231
|
|
00989 ADD +1 TO WRK-MPRF-REC-CNT CL221
|
|
00990 GO TO P0000-PROCESS. CL155
|
|
00991 P0000-EXIT. CL119
|
|
00992 EXIT. DTSBX657
|
|
00993 P1100-CHECK-FOR-MLOG. CL208
|
|
00994 ADD +5000 TO WRK-ABSTIME CL222
|
|
00995 PERFORM S005-FROM-SYS THRU S005-EXIT CL208
|
|
00996 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME CL208
|
|
00997 MOVE MPRF-EMP-NO TO L331-EMP-NO WRK-EMP-NO CL208
|
|
00998 MOVE L005-DATE TO L331-CURR-RUN-DATE CL212
|
|
00999 ADD WRK-ABSTIME TO WRK-SYS-ABSTIME CL208
|
|
01000 MOVE WRK-SYS-ABSTIME TO L331-UPDATE-ABSTIME CL208
|
|
01001 MOVE 'DTSBX657' TO L331-OP-ID CL254
|
|
01002 MOVE 'RETURN MAIL IND' TO L331-FIELD-NAME CL208
|
|
01003 MOVE MPRF-RETURN-MAIL-IND TO L331-FROM-VALUE CL221
|
|
01004 * MOVE 'N' TO L331-FROM-VALUE CL221
|
|
01005 MOVE 'Y' TO L331-TO-VALUE CL213
|
|
01006 MOVE 'Y' TO MPRF-RETURN-MAIL-IND CL213
|
|
01007 * MOVE +1 TO WRK-MPRF-MAIL-UPD-CNT CL211
|
|
01008 * DISPLAY ' RETURN MAIL UPDATED: ' WRK-EMP-NO CL220
|
|
01009 PERFORM S331-WRITE-MLOG THRU S331-EXIT. CL208
|
|
01010 P1100-EXIT. EXIT. CL208
|
|
01011 CL208
|
|
01012 P1600-FIND-QTR. CL208
|
|
01013 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBX657
|
|
01014 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBX657
|
|
01015 SET MQTR-QTR-88 TO TRUE. DTSBX657
|
|
01016 MOVE 20134 TO MQTR-YRQ. CL119
|
|
01017 MOVE MQTR-REC TO MSKL-REC. DTSBX657
|
|
01018 DTSBX657
|
|
01019 PERFORM S910-READ THRU S910-EXIT. DTSBX657
|
|
01020 IF L910-NO-REC-88 DTSBX657
|
|
01021 DISPLAY ' QTR REC NOT FOUND ' MPRF-EMP-NO ' ' MQTR-YRQ CL119
|
|
01022 GO TO P1600-EXIT DTSBX657
|
|
01023 ELSE DTSBX657
|
|
01024 MOVE MSKL-REC TO MQTR-REC. DTSBX657
|
|
01025 DTSBX657
|
|
01026 ADD 1 TO WRK-MQTR-FOUND-CNT. CL124
|
|
01027 DISPLAY MPRF-EMP-NO CL121
|
|
01028 'B CURR TYPE ' MQTR-CURR-RPT-TYPE CL121
|
|
01029 'B CUTOFF CD ' MQTR-MISS-RPT-CUTOFF-CD CL124
|
|
01030 'B PURSUD ID ' MQTR-PURSUED-RPT-IND. CL121
|
|
01031 DTSBX657
|
|
01032 IF MQTR-CURR-RCVD-88 OR CL135
|
|
01033 MQTR-CURR-NOT-LIABLE-88 CL135
|
|
01034 * SET MQTR-CURR-ORIG-88 TO TRUE CL133
|
|
01035 * SET MQTR-RPT-NOT-PURSUED-88 TO TRUE CL133
|
|
01036 SET MQTR-MISS-NOT-YET-RUN-88 TO TRUE CL122
|
|
01037 MOVE MQTR-REC TO MSKL-REC CL119
|
|
01038 PERFORM S910-REWRITE THRU S910-EXIT CL136
|
|
01039 ADD 1 TO WRK-MQTR-UPDATED-CNT CL131
|
|
01040 CL122
|
|
01041 DISPLAY MPRF-EMP-NO CL122
|
|
01042 'A CURR TYPE ' MQTR-CURR-RPT-TYPE CL122
|
|
01043 'A CUTOFF CD ' MQTR-MISS-RPT-CUTOFF-CD CL124
|
|
01044 'A PURSUD ID ' MQTR-PURSUED-RPT-IND CL134
|
|
01045 ELSE CL134
|
|
01046 DISPLAY MPRF-EMP-NO CL134
|
|
01047 'Z CURR TYPE ' MQTR-CURR-RPT-TYPE CL134
|
|
01048 'Z CUTOFF CD ' MQTR-MISS-RPT-CUTOFF-CD CL134
|
|
01049 'Z PURSUD ID ' MQTR-PURSUED-RPT-IND. CL134
|
|
01050 P1600-EXIT. DTSBX657
|
|
01051 EXIT. DTSBX657
|
|
01052 DTSBX657
|
|
01053 P6000-SCAN-EVL. CL122
|
|
01054 SET WRK-MEVL-OK TO TRUE. CL122
|
|
01055 MOVE +0 TO WRK-RECEIVED-DATE. CL122
|
|
01056 MOVE LOW-VALUES TO MLOG-KEY-AREA CL242
|
|
01057 MSKL-KEY-AREA. CL242
|
|
01058 MOVE MPRF-EMP-NO TO MLOG-EMP-NO. CL240
|
|
01059 SET MLOG-LOG-88 TO TRUE. CL240
|
|
01060 MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA. CL240
|
|
01061 CL122
|
|
01062 PERFORM S910-START-BROWSE THRU S910-EXIT. CL122
|
|
01063 IF L910-NO-REC-88 CL122
|
|
01064 DISPLAY ' EVENT LOG NOT FOUND ' MPRF-EMP-NO CL122
|
|
01065 SET WRK-MEVL-NO-REC TO TRUE CL206
|
|
01066 GO TO P6000-EXIT CL122
|
|
01067 ELSE CL122
|
|
01068 PERFORM P6100-SCAN-MEVL THRU P6100-EXIT CL122
|
|
01069 UNTIL WRK-MEVL-NO-REC. CL122
|
|
01070 CL122
|
|
01071 P6000-EXIT. CL122
|
|
01072 EXIT. CL122
|
|
01073 P6100-SCAN-MEVL. CL122
|
|
01074 MOVE MSKL-REC TO MLOG-REC. CL240
|
|
01075 * ADD 1 TO WRK-MEVL-FOUND-CNT. CL127
|
|
01076 CL200
|
|
01077 * DISPLAY 'MLOG EMP+ ' MLOG-EMP-NO. CL250
|
|
01078 * IF MLOG-EMP-NO = 330099 CL252
|
|
01079 * DISPLAY 'MLOG DAE+ ' MLOG-ESTB-DATE. CL252
|
|
01080 IF MLOG-ESTB-DATE > 20190106 CL251
|
|
01081 NEXT SENTENCE CL245
|
|
01082 ELSE CL245
|
|
01083 GO TO P6100-READ-NEXT. CL251
|
|
01084 * SET WRK-MEVL-NO-REC TO TRUE CL251
|
|
01085 * MOVE +1 TO WRK-MEVL-REWRITE-CNT CL251
|
|
01086 * GO TO P6100-EXIT. CL251
|
|
01087 CL200
|
|
01088 DISPLAY ' MNTE PRIOR UPD ' MLOG-EMP-NO ' '. CL246
|
|
01089 * IF MLOG-EMP-NO = 330099 CL252
|
|
01090 IF MLOG-DATA-ELEMENT-NAME = 'MTAD-ATTN-LINE' OR CL244
|
|
01091 MLOG-DATA-ELEMENT-NAME = 'MTAD-DELIV-LINE-1' OR CL244
|
|
01092 MLOG-DATA-ELEMENT-NAME = 'MTAD-DELIV-LINE-2' OR CL244
|
|
01093 MLOG-DATA-ELEMENT-NAME = 'MTAD-CITY' OR CL244
|
|
01094 MLOG-DATA-ELEMENT-NAME = 'MTAD-ST' OR CL244
|
|
01095 MLOG-DATA-ELEMENT-NAME = 'MTAD-ZIP' CL244
|
|
01096 DISPLAY ' MLOG REWRITTEN ' MLOG-EMP-NO ' ' MLOG-ESTB-DATE CL252
|
|
01097 SET WRK-MEVL-NO-REC TO TRUE CL252
|
|
01098 MOVE +1 TO WRK-MEVL-REWRITE-CNT CL246
|
|
01099 GO TO P6100-EXIT. CL237
|
|
01100 CL204
|
|
01101 GO TO P6100-READ-NEXT. CL204
|
|
01102 * MOVE CL231
|
|
01103 * 'DELINQUENCY NOTICE FOR 13/1 SENT TO MTAD 1 ' CL231
|
|
01104 * TO MEVL-TEXT (1:46) CL231
|
|
01105 * MOVE MEVL-REC TO MSKL-REC CL231
|
|
01106 * PERFORM S910-REWRITE THRU S910-EXIT CL231
|
|
01107 * PERFORM S910-DELETE THRU S910-EXIT CL139
|
|
01108 * SET WRK-MEVL-OK-88 TO TRUE CL205
|
|
01109 * DISPLAY ' MEVL REWRITTEN ' MEVL-EMP-NO ' ' MEVL-TEXT. CL231
|
|
01110 * GO TO P6100-EXIT. CL204
|
|
01111 CL122
|
|
01112 * IF MEVL-DATE < 20140228 CL133
|
|
01113 * SET WRK-MEVL-NO-REC TO TRUE CL133
|
|
01114 * GO TO P6100-EXIT. CL133
|
|
01115 P6100-READ-NEXT. CL204
|
|
01116 CL132
|
|
01117 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBX657
|
|
01118 IF L910-NO-REC-88 DTSBX657
|
|
01119 SET WRK-MEVL-NO-REC TO TRUE. DTSBX657
|
|
01120 DTSBX657
|
|
01121 P6100-EXIT. DTSBX657
|
|
01122 EXIT. DTSBX657
|
|
01123 DTSBX657
|
|
01124 P6150-MNTE-NOTE. CL237
|
|
01125 DISPLAY MNTE-TEXT(MNTE-TEXT-CNT). CL238
|
|
01126 P6150-EXIT. CL237
|
|
01127 EXIT. CL237
|
|
01128 CL237
|
|
01129 S6000-WRITE-MEVL. CL154
|
|
01130 MOVE LOW-VALUES TO MEVL-REC. CL165
|
|
01131 MOVE LOW-VALUES TO LBCM-RUN-AREA. CL173
|
|
01132 CL173
|
|
01133 MOVE ZERO TO LBCM-EMP-ABSTIME. CL173
|
|
01134 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. CL165
|
|
01135 DISPLAY'EMPNO:', MPRF-EMP-NO. CL166
|
|
01136 SET MEVL-EVL-88 TO TRUE. CL165
|
|
01137 ADD +6000 TO LBCM-EMP-ABSTIME. CL182
|
|
01138 CL154
|
|
01139 MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME. CL173
|
|
01140 CL154
|
|
01141 PERFORM S005-FROM-ABSTIME THRU S005-A-EXIT. CL173
|
|
01142 CL154
|
|
01143 CL154
|
|
01144 DISPLAY'EMPNO:', MPRF-EMP-NO. CL166
|
|
01145 CL154
|
|
01146 MOVE L005-DATE TO MEVL-DATE. CL181
|
|
01147 CL154
|
|
01148 MOVE L005-TIME TO MEVL-TIME. CL181
|
|
01149 CL154
|
|
01150 DISPLAY'EMPNO:', MPRF-EMP-NO. CL166
|
|
01151 CL154
|
|
01152 MOVE ZEROS TO MEVL-PURGE-DATE. CL154
|
|
01153 CL154
|
|
01154 CL154
|
|
01155 * MOVE EVL-TEXT TO MEVL-TEXT. CL184
|
|
01156 CL154
|
|
01157 **** SET MEVL-SOURCE-SYSTEM-88 TO TRUE. CL154
|
|
01158 ** MOVE MPAY-RESPONSIBLE-OP-ID TO MEVL-SOURCE. CL180
|
|
01159 CL154
|
|
01160 SET MEVL-NOT-CONVERTED-88 TO TRUE. CL154
|
|
01161 * MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE CL180
|
|
01162 MOVE 20170127 TO MEVL-ESTB-DATE CL180
|
|
01163 MEVL-CHNG-DATE. CL154
|
|
01164 CL154
|
|
01165 CL154
|
|
01166 MOVE MEVL-REC TO MSKL-REC. CL154
|
|
01167 CL154
|
|
01168 PERFORM S910-WRITE THRU S910-EXIT. CL154
|
|
01169 S6000-EXIT. CL154
|
|
01170 EXIT. CL154
|
|
01171 EJECT CL154
|
|
01172 DTSBX657
|
|
01173 P3000-ADD-MNTE. CL183
|
|
01174 MOVE LENGTH OF T003-REC TO T003-LENGTH. CL183
|
|
01175 MOVE '003' TO T003-REC-TYPE. CL183
|
|
01176 MOVE 'SYSTEM ' TO T003-ORIGIN. CL183
|
|
01177 MOVE L005-DATE TO T003-SYS-DATE. CL183
|
|
01178 MOVE L005-TIME TO T003-SYS-TIME. CL183
|
|
01179 SET T003-ADD-MNTE-88 TO TRUE. CL183
|
|
01180 CL183
|
|
01181 MOVE LOW-VALUES TO CL183
|
|
01182 MNTE-KEY-AREA. CL183
|
|
01183 MOVE MPRF-EMP-NO TO MNTE-EMP-NO. CL183
|
|
01184 SET MNTE-NTE-88 TO TRUE. CL183
|
|
01185 MOVE +0 TO MNTE-PURGE-DATE. CL183
|
|
01186 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL183
|
|
01187 CL183
|
|
01188 MOVE L005-DATE TO MNTE-ESTB-DATE CL183
|
|
01189 MNTE-CHNG-DATE. CL183
|
|
01190 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL183
|
|
01191 MNTE-DATA-ESTB-ABSTIME CL183
|
|
01192 MNTE-CHNG-ABSTIME. CL183
|
|
01193 MOVE 'NCOAX655' TO MNTE-ESTB-OP-ID CL228
|
|
01194 MNTE-CHNG-OP-ID. CL183
|
|
01195 CL183
|
|
01196 MOVE 'RETURN MAIL FLAG UPDATED TO YES ' CL229
|
|
01197 TO MNTE-SUBJECT. CL183
|
|
01198 CL183
|
|
01199 MOVE +3 TO MNTE-TEXT-CNT. CL190
|
|
01200 CL183
|
|
01201 MOVE WRK-MNTE-MSG-LINE1 TO MNTE-TEXT (1). CL183
|
|
01202 MOVE WRK-MNTE-MSG-LINE2 TO MNTE-TEXT (2). CL183
|
|
01203 * MOVE WRK-MNTE-MSG-LINE3 TO MNTE-TEXT (3). CL229
|
|
01204 CL183
|
|
01205 MOVE MPRF-EMP-NO TO T003-EMP-NO. CL183
|
|
01206 MOVE MNTE-REC TO T003-MNTE-REC. CL183
|
|
01207 CL183
|
|
01208 MOVE T003-REC TO TSKL-REC. CL183
|
|
01209 PERFORM S927-WRITE THRU S927-EXIT. CL183
|
|
01210 ADD +1 TO WRK-T003-CNT. CL183
|
|
01211 CL183
|
|
01212 P3000-EXIT. CL183
|
|
01213 EXIT. CL183
|
|
01214 CL183
|
|
01215 SKIP3 CL183
|
|
01216 T0000-TERMINATE. DTSBX657
|
|
01217 DTSBX657
|
|
01218 DISPLAY ' '. DTSBX657
|
|
01219 DTSBX657
|
|
01220 DISPLAY '*** DTSZX016 TERMINATION STATISTICS ***'. CL123
|
|
01221 DTSBX657
|
|
01222 DISPLAY ' '. DTSBX657
|
|
01223 DTSBX657
|
|
01224 DISPLAY 'INPUT RECORDS READ : ' CL123
|
|
01225 IN-REC-CNT CL123
|
|
01226 CL123
|
|
01227 DISPLAY 'RETURN MAIL UPDATE : ' CL192
|
|
01228 WRK-MPRF-REC-CNT CL192
|
|
01229 CL192
|
|
01230 CL123
|
|
01231 DISPLAY 'ACTIVE EMPLOYERS FOUND : ' CL123
|
|
01232 MPRF-WRK-CNT. CL123
|
|
01233 CL123
|
|
01234 DISPLAY 'QTR RECS FOUND : ' CL123
|
|
01235 WRK-MQTR-FOUND-CNT. CL123
|
|
01236 CL123
|
|
01237 DISPLAY 'QTR RECS UPDATED : ' CL123
|
|
01238 WRK-MQTR-UPDATED-CNT. CL123
|
|
01239 DTSBX657
|
|
01240 DISPLAY 'MEVL REC FOUND : ' CL123
|
|
01241 WRK-MEVL-FOUND-CNT. CL123
|
|
01242 DTSBX657
|
|
01243 DISPLAY 'MEVL REC UPDATED : ' CL123
|
|
01244 ** WRK-MEVL-DELETED-CNT. CL149
|
|
01245 WRK-MEVL-REWRITE-CNT. CL149
|
|
01246 CL123
|
|
01247 CLOSE EMP-FILE1. CL123
|
|
01248 DTSBX657
|
|
01249 PERFORM S923-CLOSE THRU S923-EXIT. CL189
|
|
01250 PERFORM S927-CLOSE THRU S927-EXIT. CL189
|
|
01251 CL183
|
|
01252 PERFORM S910-CLOSE THRU S910-EXIT. CL176
|
|
01253 * PERFORM S921-CLOSE THRU S921-EXIT. CL123
|
|
01254 * PERFORM S931-CLOSE THRU S931-EXIT. CL176
|
|
01255 *** PERFORM S933-CLOSE THRU S933-EXIT. DTSBX657
|
|
01256 DTSBX657
|
|
01257 T0000-EXIT. DTSBX657
|
|
01258 EXIT. DTSBX657
|
|
01259 EJECT DTSBX657
|
|
01260 S001-FROM-FED-8. DTSBX657
|
|
01261 SET L001-FROM-FED-8 TO TRUE. DTSBX657
|
|
01262 GO TO S001-DATE. DTSBX657
|
|
01263 DTSBX657
|
|
01264 S001-FROM-ABS-DAY. DTSBX657
|
|
01265 SET L001-FROM-ABS-DAY TO TRUE. DTSBX657
|
|
01266 GO TO S001-DATE. DTSBX657
|
|
01267 DTSBX657
|
|
01268 S001-DATE. DTSBX657
|
|
01269 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX657
|
|
01270 DTSBX657
|
|
01271 S001-EXIT. DTSBX657
|
|
01272 EXIT. DTSBX657
|
|
01273 SKIP3 DTSBX657
|
|
01274 S004-FROM-5. DTSBX657
|
|
01275 SET L004-FROM-5 TO TRUE. DTSBX657
|
|
01276 GO TO S004-EDIT-QTR. DTSBX657
|
|
01277 DTSBX657
|
|
01278 S004-FROM-ABS. DTSBX657
|
|
01279 SET L004-FROM-ABS TO TRUE. DTSBX657
|
|
01280 GO TO S004-EDIT-QTR. DTSBX657
|
|
01281 DTSBX657
|
|
01282 S004-EDIT-QTR. DTSBX657
|
|
01283 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBX657
|
|
01284 DTSBX657
|
|
01285 S004-EXIT. DTSBX657
|
|
01286 EXIT. DTSBX657
|
|
01287 SKIP3 DTSBX657
|
|
01288 DTSBX657
|
|
01289 S005-FROM-SYS. CL187
|
|
01290 SET L005-FROM-SYS TO TRUE. CL187
|
|
01291 CALL 'DTSBU005' USING L005-LINK-AREA. CL187
|
|
01292 CL187
|
|
01293 S005-EXIT. CL187
|
|
01294 EXIT. CL187
|
|
01295 CL187
|
|
01296 S005-FROM-ABSTIME. CL156
|
|
01297 SET L005-FROM-ABSTIME TO TRUE. CL156
|
|
01298 GO TO S005-ABSTIME. CL156
|
|
01299 CL156
|
|
01300 S005-ABSTIME. CL156
|
|
01301 CALL 'DTSBU005' USING L005-LINK-AREA. CL156
|
|
01302 S005-A-EXIT. CL156
|
|
01303 EXIT. CL156
|
|
01304 SKIP3 CL156
|
|
01305 S910-WRITE. CL156
|
|
01306 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. CL173
|
|
01307 SET L910-WRITE-88 TO TRUE. CL156
|
|
01308 GO TO S910-MSTR-IO. CL156
|
|
01309 S039-SIC-EDIT. DTSBX657
|
|
01310 CALL 'DTSBU039' USING L039-LINK-AREA. DTSBX657
|
|
01311 S039-EXIT. DTSBX657
|
|
01312 EXIT. DTSBX657
|
|
01313 DTSBX657
|
|
01314 S054-RATE-DETERMINATION. DTSBX657
|
|
01315 CALL 'DTSBU054' USING L054-LINK-AREA DTSBX657
|
|
01316 MRCT-REC. DTSBX657
|
|
01317 DTSBX657
|
|
01318 S054-EXIT. DTSBX657
|
|
01319 EXIT. DTSBX657
|
|
01320 SKIP3 DTSBX657
|
|
01321 S061-FLD-REP-INFO. DTSBX657
|
|
01322 SKIP1 DTSBX657
|
|
01323 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBX657
|
|
01324 SKIP2 DTSBX657
|
|
01325 S061-EXIT. DTSBX657
|
|
01326 EXIT. DTSBX657
|
|
01327 DTSBX657
|
|
01328 S062-FLD-REP-LOOKUP. DTSBX657
|
|
01329 DTSBX657
|
|
01330 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBX657
|
|
01331 DTSBX657
|
|
01332 S062-EXIT. DTSBX657
|
|
01333 EXIT. DTSBX657
|
|
01334 DTSBX657
|
|
01335 S101-PER-MONTH-NO. CL*23
|
|
01336 SET L101-PER-MONTH-NO-88 TO TRUE. CL*23
|
|
01337 GO TO S101-INT-CHARGE. CL*23
|
|
01338 CL*23
|
|
01339 S101-INT-CHARGE. CL*23
|
|
01340 CALL 'DTSBU101' USING L101-LINK-AREA. CL*23
|
|
01341 S101-EXIT. CL*23
|
|
01342 EXIT. CL*23
|
|
01343 CL*23
|
|
01344 S109-FIRST-PEN-INT-YRQ. CL*23
|
|
01345 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. CL*23
|
|
01346 CALL 'DTSBU109' USING L109-LINK-AREA. CL*23
|
|
01347 S109-EXIT. CL*23
|
|
01348 EXIT. CL*23
|
|
01349 S331-WRITE-MLOG. CL210
|
|
01350 CALL 'DTSBU331' USING L331-LINK-AREA. CL210
|
|
01351 S331-EXIT. CL210
|
|
01352 EXIT. CL210
|
|
01353 SKIP3 CL210
|
|
01354 CL*23
|
|
01355 S410-FILING-SCHED. DTSBX657
|
|
01356 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBX657
|
|
01357 DTSBX657
|
|
01358 S410-EXIT. DTSBX657
|
|
01359 EXIT. DTSBX657
|
|
01360 SKIP3 DTSBX657
|
|
01361 S516-LIABILITY. DTSBX657
|
|
01362 CALL 'DTSBU516' USING L516-LINK-AREA DTSBX657
|
|
01363 MPRF-REC. DTSBX657
|
|
01364 DTSBX657
|
|
01365 S516-EXIT. DTSBX657
|
|
01366 EXIT. DTSBX657
|
|
01367 SKIP3 DTSBX657
|
|
01368 S910-OPEN-READ. DTSBX657
|
|
01369 SET L910-OPEN-READ-88 TO TRUE. DTSBX657
|
|
01370 GO TO S910-MSTR-IO. DTSBX657
|
|
01371 DTSBX657
|
|
01372 S910-OPEN-UPDATE-NO-AIX. DTSBX657
|
|
01373 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX657
|
|
01374 GO TO S910-MSTR-IO. DTSBX657
|
|
01375 DTSBX657
|
|
01376 S910-READ. DTSBX657
|
|
01377 SET L910-READ-88 TO TRUE. DTSBX657
|
|
01378 GO TO S910-MSTR-IO. DTSBX657
|
|
01379 DTSBX657
|
|
01380 S910-START-BROWSE. DTSBX657
|
|
01381 SET L910-START-BROWSE-88 TO TRUE. DTSBX657
|
|
01382 GO TO S910-MSTR-IO. DTSBX657
|
|
01383 DTSBX657
|
|
01384 S910-READ-NEXT. DTSBX657
|
|
01385 SET L910-READ-NEXT-88 TO TRUE. DTSBX657
|
|
01386 GO TO S910-MSTR-IO. DTSBX657
|
|
01387 DTSBX657
|
|
01388 S910-COUNT. DTSBX657
|
|
01389 SET L910-COUNT-88 TO TRUE. DTSBX657
|
|
01390 GO TO S910-MSTR-IO. DTSBX657
|
|
01391 DTSBX657
|
|
01392 S910-REWRITE. DTSBX657
|
|
01393 SET L910-REWRITE-88 TO TRUE. DTSBX657
|
|
01394 GO TO S910-MSTR-IO. DTSBX657
|
|
01395 DTSBX657
|
|
01396 S910-DELETE. DTSBX657
|
|
01397 SET L910-DELETE-88 TO TRUE. DTSBX657
|
|
01398 GO TO S910-MSTR-IO. DTSBX657
|
|
01399 DTSBX657
|
|
01400 S910-CLOSE. DTSBX657
|
|
01401 SET L910-CLOSE-88 TO TRUE. DTSBX657
|
|
01402 GO TO S910-MSTR-IO. DTSBX657
|
|
01403 DTSBX657
|
|
01404 S910-MSTR-IO. DTSBX657
|
|
01405 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX657
|
|
01406 MSKL-REC. DTSBX657
|
|
01407 S910-EXIT. DTSBX657
|
|
01408 EXIT. DTSBX657
|
|
01409 SKIP3 DTSBX657
|
|
01410 S921-OPEN-READ. DTSBX657
|
|
01411 SET L921-OPEN-READ-88 TO TRUE. DTSBX657
|
|
01412 GO TO S921-AIX-IO. DTSBX657
|
|
01413 DTSBX657
|
|
01414 S921-START-BROWSE. DTSBX657
|
|
01415 SET L921-START-BROWSE-88 TO TRUE. DTSBX657
|
|
01416 GO TO S921-AIX-IO. DTSBX657
|
|
01417 DTSBX657
|
|
01418 S921-CLOSE. DTSBX657
|
|
01419 SET L921-CLOSE-88 TO TRUE. DTSBX657
|
|
01420 GO TO S921-AIX-IO. DTSBX657
|
|
01421 DTSBX657
|
|
01422 S923-CLOSE. CL183
|
|
01423 SET L923-CLOSE-88 TO TRUE. CL183
|
|
01424 GO TO S923-ATC-IO. CL183
|
|
01425 CL183
|
|
01426 S923-ATC-IO. CL183
|
|
01427 CALL 'DTSBU923' USING L923-LINK-AREA CL183
|
|
01428 ASKL-REC. CL183
|
|
01429 S923-EXIT. CL183
|
|
01430 EXIT. CL183
|
|
01431 SKIP3 CL183
|
|
01432 S921-AIX-IO. DTSBX657
|
|
01433 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX657
|
|
01434 ISKL-REC. DTSBX657
|
|
01435 S921-EXIT. DTSBX657
|
|
01436 EXIT. DTSBX657
|
|
01437 SKIP3 DTSBX657
|
|
01438 DTSBX657
|
|
01439 S923-OPEN-UPDATE. CL183
|
|
01440 SET L923-OPEN-UPDATE-88 TO TRUE. CL183
|
|
01441 GO TO S923-ATC-IO. CL183
|
|
01442 CL183
|
|
01443 SKIP3 CL183
|
|
01444 S927-OPEN-UPDATE. CL183
|
|
01445 SET L927-OPEN-UPDATE-88 TO TRUE. CL183
|
|
01446 GO TO S927-BTC-O. CL183
|
|
01447 CL183
|
|
01448 S927-WRITE. CL183
|
|
01449 SET L927-WRITE-88 TO TRUE. CL183
|
|
01450 GO TO S927-BTC-O. CL183
|
|
01451 CL183
|
|
01452 S927-CLOSE. CL183
|
|
01453 SET L927-CLOSE-88 TO TRUE. CL183
|
|
01454 GO TO S927-BTC-O. CL183
|
|
01455 CL183
|
|
01456 S927-BTC-O. CL183
|
|
01457 CALL 'DTSBU927' USING L927-LINK-AREA CL183
|
|
01458 TSKL-REC. CL183
|
|
01459 S927-EXIT. CL183
|
|
01460 EXIT. CL183
|
|
01461 CL183
|
|
01462 SKIP3 CL183
|
|
01463 S931-OPEN-READ. DTSBX657
|
|
01464 SET L931-OPEN-READ-88 TO TRUE. DTSBX657
|
|
01465 GO TO S931-REF-IO. DTSBX657
|
|
01466 DTSBX657
|
|
01467 S931-OPEN-UPDATE. DTSBX657
|
|
01468 SET L931-OPEN-UPDATE-88 TO TRUE. DTSBX657
|
|
01469 GO TO S931-REF-IO. DTSBX657
|
|
01470 DTSBX657
|
|
01471 S931-START-BROWSE. DTSBX657
|
|
01472 SET L931-START-BROWSE-88 TO TRUE. DTSBX657
|
|
01473 GO TO S931-REF-IO. DTSBX657
|
|
01474 DTSBX657
|
|
01475 S931-READ. DTSBX657
|
|
01476 SET L931-READ-88 TO TRUE. DTSBX657
|
|
01477 GO TO S931-REF-IO. DTSBX657
|
|
01478 DTSBX657
|
|
01479 S931-READ-NEXT. DTSBX657
|
|
01480 SET L931-READ-NEXT-88 TO TRUE. DTSBX657
|
|
01481 GO TO S931-REF-IO. DTSBX657
|
|
01482 DTSBX657
|
|
01483 S931-DELETE. DTSBX657
|
|
01484 SET L931-DELETE-88 TO TRUE. DTSBX657
|
|
01485 GO TO S931-REF-IO. DTSBX657
|
|
01486 DTSBX657
|
|
01487 S931-REWRITE. DTSBX657
|
|
01488 SET L931-REWRITE-88 TO TRUE. DTSBX657
|
|
01489 GO TO S931-REF-IO. DTSBX657
|
|
01490 DTSBX657
|
|
01491 S931-WRITE. DTSBX657
|
|
01492 SET L931-WRITE-88 TO TRUE. DTSBX657
|
|
01493 GO TO S931-REF-IO. DTSBX657
|
|
01494 DTSBX657
|
|
01495 S931-CLOSE. DTSBX657
|
|
01496 SET L931-CLOSE-88 TO TRUE. DTSBX657
|
|
01497 GO TO S931-REF-IO. DTSBX657
|
|
01498 DTSBX657
|
|
01499 S931-REF-IO. DTSBX657
|
|
01500 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX657
|
|
01501 FSKL-REC. DTSBX657
|
|
01502 S931-EXIT. DTSBX657
|
|
01503 EXIT. DTSBX657
|
|
01504 SKIP3 DTSBX657
|
|
01505 S933-OPEN-READ. DTSBX657
|
|
01506 SET L933-OPEN-READ-88 TO TRUE. DTSBX657
|
|
01507 GO TO S933-SIC-I. DTSBX657
|
|
01508 DTSBX657
|
|
01509 S933-CLOSE. DTSBX657
|
|
01510 SET L933-CLOSE-88 TO TRUE. DTSBX657
|
|
01511 GO TO S933-SIC-I. DTSBX657
|
|
01512 DTSBX657
|
|
01513 S933-SIC-I. DTSBX657
|
|
01514 CALL 'DTSBU933' USING L933-LINK-AREA DTSBX657
|
|
01515 XSIC-REC. DTSBX657
|
|
01516 S933-EXIT. DTSBX657
|
|
01517 EXIT. DTSBX657
|
|
01518 DTSBX657
|
|
01519 S999-ABEND. DTSBX657
|
|
01520 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX657
|
|
01521 S999-EXIT. DTSBX657
|
|
01522 EXIT. DTSBX657
|