992 lines
78 KiB
COBOL
992 lines
78 KiB
COBOL
00001 IDENTIFICATION DIVISION. 08/16/18
|
||
00002 PROGRAM-ID. DTSBX630. DTSBX630
|
||
00003 LV025
|
||
00004 ******************************************************************DTSBX630
|
||
00005 * *DTSBX630
|
||
00006 * FUNCTION: *DTSBX630
|
||
00007 * *DTSBX630
|
||
00008 * PROGRAM WILL READ ALL ESSP INPUT FILES DO DUTAS AND COUNT * CL**1
|
||
00009 * RECORDS SENT VIA FTP VERSUS TOTALS SENT IN X999 FILE. . CL**1
|
||
00010 * 07/07/18 ZL1 * CL254
|
||
00011 * * CL*53
|
||
00012 ******************************************************************DTSBX630
|
||
00013 DTSBX630
|
||
00014 ENVIRONMENT DIVISION. DTSBX630
|
||
00015 DTSBX630
|
||
00016 CONFIGURATION SECTION. DTSBX630
|
||
00017 DTSBX630
|
||
00018 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBX630
|
||
00019 DTSBX630
|
||
00020 INPUT-OUTPUT SECTION. DTSBX630
|
||
00021 DTSBX630
|
||
00022 FILE-CONTROL. DTSBX630
|
||
00023 DTSBX630
|
||
00024 SELECT X102REG-IN ASSIGN TO DTSFX102. CL**1
|
||
00025 SELECT X104REG-IN ASSIGN TO DTSFX104. CL**1
|
||
00026 SELECT X106REG-IN ASSIGN TO DTSFX106. CL**1
|
||
00027 SELECT X106AREG-IN ASSIGN TO DTSFA106. CL**1
|
||
00028 SELECT X108REG-IN ASSIGN TO DTSFX108. CL**1
|
||
00029 SELECT X110REG-IN ASSIGN TO DTSFX110. CL**1
|
||
00030 SELECT X110AREG-IN ASSIGN TO DTSFA110. CL**1
|
||
00031 SELECT X120REG-IN ASSIGN TO DTSFX120. CL**1
|
||
00032 SELECT X120AREG-IN ASSIGN TO DTSFA120. CL**1
|
||
00033 SELECT X140RPT-IN ASSIGN TO DTSFX140. CL**1
|
||
00034 SELECT X144WGE-IN ASSIGN TO DTSFX144. CL**1
|
||
00035 SELECT X145PAY-IN ASSIGN TO DTSFX145. CL**1
|
||
00036 SELECT X147SSN-IN ASSIGN TO DTSFX147. CL**1
|
||
00037 SELECT X998ACH-IN ASSIGN TO DTSFX998. CL**8
|
||
00038 SELECT X999ESSP-IN ASSIGN TO DTSFX999. CL**8
|
||
00039 SELECT REPORT-FILE ASSIGN TO RPT630R1. CL**1
|
||
00040 DTSBX630
|
||
00041 DTSBX630
|
||
00042 DATA DIVISION. DTSBX630
|
||
00043 FILE SECTION. DTSBX630
|
||
00044 CL101
|
||
00045 FD X102REG-IN CL**1
|
||
00046 RECORDING MODE IS F. CL101
|
||
00047 01 X102-REC PIC X(512). CL**1
|
||
00048 CL138
|
||
00049 FD X104REG-IN CL**1
|
||
00050 RECORDING MODE IS F. CL**1
|
||
00051 01 X104-REC PIC X(512). CL**1
|
||
00052 CL**1
|
||
00053 FD X106REG-IN CL**1
|
||
00054 RECORDING MODE IS F. CL**1
|
||
00055 01 X106-REC PIC X(512). CL**1
|
||
00056 CL**1
|
||
00057 FD X106AREG-IN CL**1
|
||
00058 RECORDING MODE IS F. CL**1
|
||
00059 01 X106-AREC PIC X(512). CL**1
|
||
00060 CL123
|
||
00061 FD X108REG-IN CL**1
|
||
00062 RECORDING MODE IS F. CL**1
|
||
00063 01 X108-REC PIC X(512). CL**1
|
||
00064 CL**1
|
||
00065 FD X110REG-IN CL**1
|
||
00066 RECORDING MODE IS F. CL**1
|
||
00067 01 X110-REC PIC X(512). CL**1
|
||
00068 CL**1
|
||
00069 FD X110AREG-IN CL**1
|
||
00070 RECORDING MODE IS F. CL**1
|
||
00071 01 X110-AREC PIC X(512). CL**1
|
||
00072 CL**1
|
||
00073 FD X120REG-IN CL**1
|
||
00074 RECORDING MODE IS F. CL**1
|
||
00075 01 X120-REC PIC X(512). CL**1
|
||
00076 CL**1
|
||
00077 FD X120AREG-IN CL**1
|
||
00078 RECORDING MODE IS F. CL**1
|
||
00079 01 X120-AREC PIC X(512). CL**1
|
||
00080 CL**1
|
||
00081 FD X140RPT-IN CL**1
|
||
00082 RECORDING MODE IS F. CL**1
|
||
00083 01 X140-REC PIC X(512). CL**1
|
||
00084 CL**1
|
||
00085 FD X144WGE-IN CL**1
|
||
00086 RECORDING MODE IS F. CL**1
|
||
00087 01 X144-REC PIC X(512). CL**1
|
||
00088 CL**1
|
||
00089 FD X145PAY-IN CL**1
|
||
00090 RECORDING MODE IS F. CL**1
|
||
00091 01 X145-REC PIC X(512). CL**1
|
||
00092 CL**1
|
||
00093 FD X147SSN-IN CL**1
|
||
00094 RECORDING MODE IS F. CL**1
|
||
00095 01 X147-REC PIC X(512). CL**1
|
||
00096 CL**1
|
||
00097 FD X999ESSP-IN CL**5
|
||
00098 RECORDING MODE IS F. CL**1
|
||
00099 01 X999-REC. CL**1
|
||
00100 05 X999-NAME PIC X(4). CL**1
|
||
00101 05 FILLER PIC X(1). CL**1
|
||
00102 05 X999-TYPE PIC 9(1). CL**7
|
||
00103 05 FILLER PIC X(1). CL**7
|
||
00104 05 X999-CNT PIC 9(6). CL**7
|
||
00105 05 FILLER PIC X(67). CL**7
|
||
00106 CL**8
|
||
00107 FD X998ACH-IN CL**8
|
||
00108 RECORDING MODE IS F. CL**8
|
||
00109 01 X998-REC. CL**8
|
||
00110 05 X998-TYPE PIC 9(1). CL**8
|
||
00111 05 FILLER PIC X(511). CL**8
|
||
00112 CL**1
|
||
00113 FD REPORT-FILE DTSBX630
|
||
00114 RECORDING MODE IS F DTSBX630
|
||
00115 RECORD CONTAINS 133 CHARACTERS DTSBX630
|
||
00116 BLOCK CONTAINS 0 RECORDS DTSBX630
|
||
00117 LABEL RECORDS ARE OMITTED DTSBX630
|
||
00118 DATA RECORD IS PRINT-RECORD. DTSBX630
|
||
00119 DTSBX630
|
||
00120 01 PRINT-RECORD PIC X(133). DTSBX630
|
||
00121 DTSBX630
|
||
00122 ******************************************************************DTSBX630
|
||
00123 * WORKING STORAGE SECTION *DTSBX630
|
||
00124 ******************************************************************DTSBX630
|
||
00125 WORKING-STORAGE SECTION. DTSBX630
|
||
001255 77 PAN-VALET PICTURE X(24) VALUE '025DTSBX630 08/16/18'. DTSBX630
|
||
00126 DTSBX630
|
||
00127 01 ENDOFSEG PIC 9 VALUE ZEROES. DTSBX630
|
||
00128 DTSBX630
|
||
00129 01 EMPLOYER-FOUND-IND PIC X VALUE SPACE. CL*87
|
||
00130 DTSBX630
|
||
00131 01 MASTER-END-IND PIC X VALUE SPACE. DTSBX630
|
||
00132 88 MASTER-END VALUE 'Y'. DTSBX630
|
||
00133 DTSBX630
|
||
00134 CL*70
|
||
00135 01 WRK-AREA. CL*79
|
||
00136 05 WRK-ABEND-CODE PIC X(04) VALUE 'X552'. CL*91
|
||
00137 05 WS-ABEND-JOB PIC 9(01) VALUE ZEROS. CL**6
|
||
00138 CL*70
|
||
00139 01 WRK-SEG01-SSN-FOUND PIC 9(01) VALUE ZEROES. CL147
|
||
00140 01 WS-X144-NOT-RETURNED PIC 9(05) VALUE ZEROES. CL243
|
||
00141 01 WS-X144-SSN-FOUND PIC 9(01) VALUE ZEROES. CL243
|
||
00142 01 WS-CLAIM-SSN-FOUND PIC 9(01) VALUE ZEROES. CL182
|
||
00143 01 WS-X140-RPT-FOUND PIC 9(01) VALUE ZEROES. CL138
|
||
00144 01 WS-X147-SSN-NOT-DOCS PIC 9(05) VALUE ZEROES. CL168
|
||
00145 01 WS-X147-SSN-N99-DOCS PIC 9(05) VALUE ZEROES. CL211
|
||
00146 01 WS-X147-SSN-IN-DOCS PIC 9(05) VALUE ZEROES. CL168
|
||
00147 01 SSN-HIT-COUNT PIC 9(03) VALUE ZEROES. CL106
|
||
00148 01 WS-HOLD-X147-SSN PIC 9(09) VALUE ZEROES. CL*91
|
||
00149 01 WS-TOTAL-NO-X144-SSN PIC 9(05) VALUE ZEROES. CL108
|
||
00150 01 WS-TOTAL-YES-X144-SSN PIC 9(05) VALUE ZEROES. CL113
|
||
00151 01 WS-TOTAL-OTH-X144-SSN PIC 9(05) VALUE ZEROES. CL113
|
||
00152 01 WS-HOLD-X147-EMP-NO PIC 9(06) VALUE ZEROES. CL*91
|
||
00153 01 WS-SAV-X147 PIC 9(01) VALUE ZEROES. CL129
|
||
00154 01 WRK-MODULE-NAME PIC X(08) VALUE 'DTSBX551'. CL138
|
||
00155 01 WRK-ABEND-CD PIC X(04) VALUE 'X551'. CL138
|
||
00156 01 WRK-ABEND-MSG PIC X(60). CL*62
|
||
00157 DTSBX630
|
||
00158 01 WS-HOLD-PAY-DATE. DTSBX630
|
||
00159 05 WS-HOLD-PAY-DATE-CEN PIC 9(02) VALUE ZEROS. DTSBX630
|
||
00160 05 WS-HOLD-PAY-DATE-YY PIC 9(02) VALUE ZEROES. DTSBX630
|
||
00161 05 WS-HOLD-PAY-DATE-MM PIC 9(02) VALUE ZEROES. DTSBX630
|
||
00162 05 WS-HOLD-PAY-DATE-DD PIC 9(02) VALUE ZEROES. DTSBX630
|
||
00163 DTSBX630
|
||
00164 01 WS-X147-SSN PIC 9(09) VALUE ZEROS. CL106
|
||
00165 01 WS-X147-EMP-NO PIC 9(06) VALUE ZEROS. CL104
|
||
00166 01 WS-X147-QUARTER. CL150
|
||
00167 05 WS-X147-YR PIC 9(04) VALUE ZEROS. CL152
|
||
00168 05 WS-X147-QTR PIC 9(01) VALUE ZEROS. CL150
|
||
00169 CL*34
|
||
00170 01 WS-X140-QUARTER. CL240
|
||
00171 05 WS-X140-YR PIC 9(04) VALUE ZEROS. CL240
|
||
00172 05 WS-X140-QTR PIC 9(01) VALUE ZEROS. CL240
|
||
00173 CL240
|
||
00174 01 WS-HOLD-DATE. CL*25
|
||
00175 05 WS-HOLD-DATE-CEN PIC 9(02) VALUE ZEROS. CL*26
|
||
00176 05 WS-HOLD-DATE-YY PIC 9(02) VALUE ZEROES. CL*26
|
||
00177 05 WS-HOLD-DATE-MM PIC 9(02) VALUE ZEROES. CL*26
|
||
00178 05 WS-HOLD-DATE-DD PIC 9(02) VALUE ZEROES. CL*26
|
||
00179 DTSBX630
|
||
00180 CL*86
|
||
00181 01 WS-COUNTERS. DTSBX630
|
||
00182 05 LINE-COUNT PIC 9(03) VALUE 99. DTSBX630
|
||
00183 05 PAGE-COUNT PIC 9(03) VALUE ZEROES. DTSBX630
|
||
00184 05 TRANS-READ-COUNT PIC 9(06) VALUE ZEROES. DTSBX630
|
||
00185 05 MASTER-READ-COUNT PIC 9(06) VALUE ZEROES. DTSBX630
|
||
00186 05 WS-TOTAL-READ PIC 9(05) VALUE ZEROES. CL*93
|
||
00187 05 WS-TOTAL-NDEL PIC 9(05) VALUE ZEROES. CL*93
|
||
00188 05 WS-TOTAL-DELQ PIC 9(05) VALUE ZEROES. CL*93
|
||
00189 05 WS-TOTAL-X102-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00190 05 WS-TOTAL-X104-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00191 05 WS-TOTAL-X106-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00192 05 WS-TOTAL-X106A-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00193 05 WS-TOTAL-X108-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00194 05 WS-TOTAL-X110-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00195 05 WS-TOTAL-X110A-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00196 05 WS-TOTAL-X120-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00197 05 WS-TOTAL-X120A-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00198 05 WS-TOTAL-X140-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00199 05 WS-TOTAL-X144-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00200 05 WS-TOTAL-X145-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00201 05 WS-TOTAL-X147-CNT PIC 9(06) VALUE ZEROES. CL**6
|
||
00202 05 WS-TOTAL-X998-CNT PIC 9(06) VALUE ZEROES. CL**8
|
||
00203 05 WS-TOTAL-X999-CNT PIC 9(06) VALUE ZEROES. CL**9
|
||
00204 CL**4
|
||
00205 05 WS-READ-X102 PIC 9(06) VALUE ZEROES. CL**4
|
||
00206 05 WS-READ-X104 PIC 9(06) VALUE ZEROES. CL**4
|
||
00207 05 WS-READ-X106 PIC 9(06) VALUE ZEROES. CL**4
|
||
00208 05 WS-READ-X106A PIC 9(06) VALUE ZEROES. CL**4
|
||
00209 05 WS-READ-X108 PIC 9(06) VALUE ZEROES. CL**4
|
||
00210 05 WS-READ-X110 PIC 9(06) VALUE ZEROES. CL**4
|
||
00211 05 WS-READ-X110A PIC 9(06) VALUE ZEROES. CL**4
|
||
00212 05 WS-READ-X120 PIC 9(06) VALUE ZEROES. CL**4
|
||
00213 05 WS-READ-X120A PIC 9(06) VALUE ZEROES. CL**4
|
||
00214 05 WS-READ-X140 PIC 9(06) VALUE ZEROES. CL**4
|
||
00215 05 WS-READ-X144 PIC 9(06) VALUE ZEROES. CL**4
|
||
00216 05 WS-READ-X145 PIC 9(06) VALUE ZEROES. CL**4
|
||
00217 05 WS-READ-X147 PIC 9(06) VALUE ZEROES. CL**4
|
||
00218 05 WS-READ-X998 PIC 9(06) VALUE ZEROES. CL**8
|
||
00219 DTSBX630
|
||
00220 01 WS-OUTPUT. DTSBX630
|
||
00221 03 FILLER PIC X(03) VALUE SPACES. CL*20
|
||
00222 03 WS-OUT-EMP-NO PIC 9(06). CL*92
|
||
00223 03 FILLER PIC X(04) VALUE SPACES. CL243
|
||
00224 03 WS-OUT-NAME PIC X(04). CL243
|
||
00225 03 FILLER PIC X(04) VALUE SPACES. CL243
|
||
00226 03 WS-OUT-QUARTER PIC X(06). CL*92
|
||
00227 03 FILLER PIC X(04) VALUE SPACES. CL129
|
||
00228 03 WS-OUT-MESSAGE PIC X(40). CL137
|
||
00229 CL*25
|
||
00230 CL*11
|
||
00231 01 WS-TOTAL-LINE1. CL*92
|
||
00232 03 FIL PIC X(2) VALUE SPACES. CL249
|
||
00233 03 FIL PIC X(23) VALUE CL*19
|
||
00234 'X102-PROFILE........: '. CL*19
|
||
00235 03 WS-TOTAL-X102-ZCNT PIC ZZZZZ9. CL*12
|
||
00236 03 FIL PIC X(3) VALUE SPACES. CL*16
|
||
00237 03 FIL PIC X(02) VALUE CL*19
|
||
00238 '<27> '. CL*15
|
||
00239 03 WS-READ-Z102 PIC ZZZZZ9. CL*12
|
||
00240 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00241 03 Z102-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00242 CL*12
|
||
00243 01 WS-TOTAL-LINE2. CL*12
|
||
00244 03 FIL PIC X(2) VALUE SPACES. CL*12
|
||
00245 03 FIL PIC X(23) VALUE CL*19
|
||
00246 'X104-DETERMINATION..: '. CL*19
|
||
00247 03 WS-TOTAL-X104-ZCNT PIC ZZZZZ9. CL*12
|
||
00248 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00249 03 FIL PIC X(02) VALUE CL*15
|
||
00250 '<27> '. CL*15
|
||
00251 03 WS-READ-Z104 PIC ZZZZZ9. CL*12
|
||
00252 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00253 03 Z104-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00254 01 WS-TOTAL-LINE3. CL*12
|
||
00255 03 FIL PIC X(2) VALUE SPACES. CL*12
|
||
00256 03 FIL PIC X(23) VALUE CL*19
|
||
00257 'X106-EMPL NAME......: '. CL*19
|
||
00258 03 WS-TOTAL-X106-ZCNT PIC ZZZZZ9. CL*12
|
||
00259 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00260 03 FIL PIC X(02) VALUE CL*15
|
||
00261 '<27> '. CL*15
|
||
00262 03 WS-READ-Z106 PIC ZZZZZ9. CL*12
|
||
00263 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00264 03 Z106-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00265 01 WS-TOTAL-LINE4. CL*12
|
||
00266 03 FIL PIC X(2) VALUE SPACES. CL*12
|
||
00267 03 FIL PIC X(23) VALUE CL*19
|
||
00268 'X106-EMPL NAME UPD..: '. CL*19
|
||
00269 03 WS-TOTAL-X106A-ZCNT PIC ZZZZZ9. CL*12
|
||
00270 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00271 03 FIL PIC X(02) VALUE CL*15
|
||
00272 '<27> '. CL*15
|
||
00273 03 WS-READ-Z106A PIC ZZZZZ9. CL*12
|
||
00274 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00275 03 Z106A-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00276 01 WS-TOTAL-LINE5. CL*13
|
||
00277 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00278 03 FIL PIC X(23) VALUE CL*19
|
||
00279 'X108-RATES..........: '. CL*19
|
||
00280 03 WS-TOTAL-X108-ZCNT PIC ZZZZZ9. CL*13
|
||
00281 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00282 03 FIL PIC X(02) VALUE CL*15
|
||
00283 '<27> '. CL*15
|
||
00284 03 WS-READ-Z108 PIC ZZZZZ9. CL*13
|
||
00285 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00286 03 Z108-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00287 01 WS-TOTAL-LINE6. CL*13
|
||
00288 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00289 03 FIL PIC X(23) VALUE CL*19
|
||
00290 'X110-ADDRESS........: '. CL*19
|
||
00291 03 WS-TOTAL-X110-ZCNT PIC ZZZZZ9. CL*13
|
||
00292 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00293 03 FIL PIC X(02) VALUE CL*15
|
||
00294 '<27> '. CL*15
|
||
00295 03 WS-READ-Z110 PIC ZZZZZ9. CL*13
|
||
00296 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00297 03 Z110-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00298 01 WS-TOTAL-LINE7. CL*13
|
||
00299 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00300 03 FIL PIC X(23) VALUE CL*19
|
||
00301 'X110-ADDRESS UPD....: '. CL*19
|
||
00302 03 WS-TOTAL-X110A-ZCNT PIC ZZZZZ9. CL*13
|
||
00303 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00304 03 FIL PIC X(02) VALUE CL*15
|
||
00305 '<27> '. CL*15
|
||
00306 03 WS-READ-Z110A PIC ZZZZZ9. CL*13
|
||
00307 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00308 03 Z110A-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00309 01 WS-TOTAL-LINE8. CL*13
|
||
00310 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00311 03 FIL PIC X(23) VALUE CL*19
|
||
00312 'X120-OPO ADDRESS....: '. CL*19
|
||
00313 03 WS-TOTAL-X120-ZCNT PIC ZZZZZ9. CL*13
|
||
00314 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00315 03 FIL PIC X(02) VALUE CL*15
|
||
00316 '<27> '. CL*15
|
||
00317 03 WS-READ-Z120 PIC ZZZZZ9. CL*13
|
||
00318 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00319 03 Z120-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00320 01 WS-TOTAL-LINE9. CL*13
|
||
00321 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00322 03 FIL PIC X(23) VALUE CL*19
|
||
00323 'X120-OPO ADDR UPD...: '. CL*19
|
||
00324 03 WS-TOTAL-X120A-ZCNT PIC ZZZZZ9. CL*13
|
||
00325 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00326 03 FIL PIC X(02) VALUE CL*15
|
||
00327 '<27> '. CL*15
|
||
00328 03 WS-READ-Z120A PIC ZZZZZ9. CL*13
|
||
00329 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00330 03 Z120A-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00331 01 WS-TOTAL-LINE10. CL*13
|
||
00332 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00333 03 FIL PIC X(23) VALUE CL*19
|
||
00334 'X140-REPORTS........: '. CL*19
|
||
00335 03 WS-TOTAL-X140-ZCNT PIC ZZZZZ9. CL*13
|
||
00336 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00337 03 FIL PIC X(02) VALUE CL*15
|
||
00338 '<27> '. CL*15
|
||
00339 03 WS-READ-Z140 PIC ZZZZZ9. CL*13
|
||
00340 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00341 03 Z140-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00342 01 WS-TOTAL-LINE11. CL*13
|
||
00343 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00344 03 FIL PIC X(23) VALUE CL*19
|
||
00345 'X144-WAGES..........: '. CL*19
|
||
00346 03 WS-TOTAL-X144-ZCNT PIC ZZZZZ9. CL*13
|
||
00347 03 FIL PIC X(3) VALUE SPACES. CL*18
|
||
00348 03 FIL PIC X(02) VALUE CL*15
|
||
00349 '<27> '. CL*15
|
||
00350 03 WS-READ-Z144 PIC ZZZZZ9. CL*13
|
||
00351 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00352 03 Z144-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00353 01 WS-TOTAL-LINE12. CL*13
|
||
00354 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00355 03 FIL PIC X(23) VALUE CL*19
|
||
00356 'X145-PAYMENTS.......: '. CL*25
|
||
00357 03 WS-TOTAL-X145-ZCNT PIC ZZZZZ9. CL*13
|
||
00358 03 FIL PIC X(03) VALUE SPACES. CL*18
|
||
00359 03 FIL PIC X(02) VALUE CL*15
|
||
00360 '<27> '. CL*15
|
||
00361 03 WS-READ-Z145 PIC ZZZZZ9. CL*13
|
||
00362 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00363 03 Z145-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00364 01 WS-TOTAL-LINE13. CL*13
|
||
00365 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00366 03 FIL PIC X(23) VALUE CL*19
|
||
00367 'X147-SSN DELETIONS..: '. CL*19
|
||
00368 03 WS-TOTAL-X147-ZCNT PIC ZZZZZ9. CL*13
|
||
00369 03 FIL PIC X(03) VALUE SPACES. CL*18
|
||
00370 03 FIL PIC X(02) VALUE CL*15
|
||
00371 '<27> '. CL*15
|
||
00372 03 WS-READ-Z147 PIC ZZZZZ9. CL*13
|
||
00373 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00374 03 Z147-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00375 01 WS-TOTAL-LINE14. CL*13
|
||
00376 03 FIL PIC X(2) VALUE SPACES. CL*13
|
||
00377 03 FIL PIC X(23) VALUE CL*19
|
||
00378 'X998-ACH DEPOSITS...: '. CL*19
|
||
00379 03 WS-TOTAL-X998-ZCNT PIC ZZZZZ9. CL*13
|
||
00380 03 FIL PIC X(03) VALUE SPACES. CL*18
|
||
00381 03 FIL PIC X(02) VALUE CL*15
|
||
00382 '<27> '. CL*19
|
||
00383 03 WS-READ-Z998 PIC ZZZZZ9. CL*13
|
||
00384 03 FIL PIC X(05) VALUE SPACES. CL*21
|
||
00385 03 Z998-MSG PIC X(45) VALUE SPACES. CL*21
|
||
00386 01 WS-TOTAL-LINE45. CL*21
|
||
00387 03 FIL PIC X(5) VALUE SPACES. CL*21
|
||
00388 03 FIL PIC X(53) VALUE CL*21
|
||
00389 '****** ESSP FILES TRANSFER TO DUTAS SUCESSFULL ******'. CL*21
|
||
00390 03 FIL PIC X(43) VALUE CL*21
|
||
00391 ' '. CL*21
|
||
00392 03 FIL PIC X(030) VALUE SPACES. CL*21
|
||
00393 CL*21
|
||
00394 01 WS-TOTAL-LINE46. CL*21
|
||
00395 03 FIL PIC X(5) VALUE SPACES. CL*21
|
||
00396 03 FIL PIC X(55) VALUE CL*22
|
||
00397 '++++++ ESSP FILES TRANSFER TO DUTAS HAS ERRORS !!!!!!!Z'. CL*21
|
||
00398 03 FIL PIC X(43) VALUE CL*21
|
||
00399 ' '. CL*21
|
||
00400 03 FIL PIC X(030) VALUE SPACES. CL*21
|
||
00401 CL*21
|
||
00402 CL172
|
||
00403 01 WS-RUN-DATE. DTSBX630
|
||
00404 03 RUN-YR PIC 99. CL*54
|
||
00405 03 RUN-MO PIC 99. CL*54
|
||
00406 03 RUN-DA PIC 99. CL*54
|
||
00407 DTSBX630
|
||
00408 DTSBX630
|
||
00409 01 HEADER1. DTSBX630
|
||
00410 03 FILLER PIC X(05) VALUE SPACES. DTSBX630
|
||
00411 03 FILLER PIC X(31) VALUE DTSBX630
|
||
00412 'DISTRICT OF COLUMBIA GOVERNMENT'. DTSBX630
|
||
00413 03 FILLER PIC X(05) VALUE SPACES. CL247
|
||
00414 03 REPORTING-DATE. CL247
|
||
00415 05 RUN-MO1 PIC 99. CL247
|
||
00416 05 FIL PIC X VALUE '/'. CL247
|
||
00417 05 RUN-DA1 PIC 99. CL247
|
||
00418 05 FIL PIC X VALUE '/'. CL247
|
||
00419 05 RUN-CEN PIC 99. CL247
|
||
00420 05 RUN-YR1 PIC 99. CL247
|
||
00421 * DTSBX630
|
||
00422 01 HEADER2. DTSBX630
|
||
00423 03 FILLER PIC X(04) VALUE SPACES. CL247
|
||
00424 03 FILLER PIC X(33) VALUE DTSBX630
|
||
00425 'DEPARTMENT OF EMPLOYMENT SERVICES'. DTSBX630
|
||
00426 03 FILLER PIC X(30) VALUE SPACES. CL*99
|
||
00427 * 03 FILLER PIC X(10) VALUE CL249
|
||
00428 * 'PAGE NO. '. CL249
|
||
00429 * 03 HD-PAGE PIC 9(03). CL249
|
||
00430 03 FILLER PIC X(07) VALUE SPACES. DTSBX630
|
||
00431 DTSBX630
|
||
00432 01 HEADER3. DTSBX630
|
||
00433 03 FILLER PIC X(02) VALUE SPACES. CL249
|
||
00434 03 FILLER PIC X(50) VALUE CL220
|
||
00435 'ESSP DAILY FILE/RECORD COUNTS SENT TO DUTAS'. CL*12
|
||
00436 03 FILLER PIC X(30) VALUE SPACES. CL201
|
||
00437 DTSBX630
|
||
00438 01 COLUMN-HD1. CL*44
|
||
00439 03 FILLER PIC X(02) VALUE SPACES. CL*16
|
||
00440 03 FILLER PIC X(50) VALUE CL*24
|
||
00441 '+----- ESSP (SENT) ------------+<2B>+--DUTAS (RECV)-+'. CL*23
|
||
00442 03 FILLER PIC X(35) VALUE CL*23
|
||
00443 '----FILE TRANSFER MESSAGES----+'. CL*24
|
||
00444 CL*15
|
||
00445 ++INCLUDE WSDATES DTSBX630
|
||
00446 01 L001-LINK-AREA. CL*61
|
||
00447 ++INCLUDE DTSIL001 CL*60
|
||
00448 01 ESSP-FILE-IN. CL**4
|
||
00449 05 ESSP-NAME PIC X(03). CL*10
|
||
00450 05 FILLER PIC X(509). CL*10
|
||
00451 CL**4
|
||
00452 ******************************************************************DTSBX630
|
||
00453 * PROCEDURE DIVISION *DTSBX630
|
||
00454 ******************************************************************DTSBX630
|
||
00455 DTSBX630
|
||
00456 PROCEDURE DIVISION. DTSBX630
|
||
00457 DTSBX630
|
||
00458 MAIN0100-CONTROL. DTSBX630
|
||
00459 DTSBX630
|
||
00460 OPEN INPUT X999ESSP-IN CL**2
|
||
00461 X998ACH-IN CL**8
|
||
00462 X102REG-IN CL**2
|
||
00463 X104REG-IN CL**2
|
||
00464 X106REG-IN CL**2
|
||
00465 X106AREG-IN CL**2
|
||
00466 X108REG-IN CL**2
|
||
00467 X110REG-IN CL**2
|
||
00468 X110AREG-IN CL**2
|
||
00469 X120REG-IN CL**2
|
||
00470 X120AREG-IN CL**2
|
||
00471 X140RPT-IN CL**2
|
||
00472 X144WGE-IN CL**2
|
||
00473 X145PAY-IN CL**2
|
||
00474 X147SSN-IN. CL**2
|
||
00475 CL**2
|
||
00476 OPEN OUTPUT REPORT-FILE. CL*87
|
||
00477 ++INCLUDE CODEDATE DTSBX630
|
||
00478 MOVE ZEROS TO WS-RUN-DATE. DTSBX630
|
||
00479 MOVE WS-SYSTEM-DATE TO WS-RUN-DATE. DTSBX630
|
||
00480 MOVE RUN-DA TO RUN-DA1. DTSBX630
|
||
00481 MOVE RUN-MO TO RUN-MO1. DTSBX630
|
||
00482 MOVE 20 TO RUN-CEN. DTSBX630
|
||
00483 MOVE RUN-YR TO RUN-YR1. DTSBX630
|
||
00484 DTSBX630
|
||
00485 ADD 1 TO PAGE-COUNT CL*98
|
||
00486 * MOVE PAGE-COUNT TO HD-PAGE CL249
|
||
00487 WRITE PRINT-RECORD FROM HEADER1 AFTER ADVANCING CL*98
|
||
00488 TOP-OF-PAGE CL*98
|
||
00489 WRITE PRINT-RECORD FROM HEADER2 AFTER ADVANCING 1 CL*98
|
||
00490 WRITE PRINT-RECORD FROM HEADER3 AFTER ADVANCING 1 CL*98
|
||
00491 MOVE SPACES TO PRINT-RECORD CL*98
|
||
00492 WRITE PRINT-RECORD AFTER ADVANCING 1 CL*98
|
||
00493 WRITE PRINT-RECORD FROM COLUMN-HD1 AFTER 1. CL132
|
||
00494 MOVE ZEROES TO MASTER-READ-COUNT. DTSBX630
|
||
00495 ****************************************************************** CL*85
|
||
00496 * BENEFIT FILE PROCESS * CL*85
|
||
00497 ****************************************************************** CL*85
|
||
00498 PROC1000-GET-UI-DATA. CL*85
|
||
00499 DISPLAY ' '. CL*85
|
||
00500 DISPLAY '### ESSP DAILY FILE RECORD COUNTS TO DUTAS:' CL**2
|
||
00501 DISPLAY ' '. CL241
|
||
00502 DTSBX630
|
||
00503 PERFORM PROC2000-UI-PROCESS THRU DTSBX630
|
||
00504 PROC2000-UI-EXIT. CL**3
|
||
00505 * UNTIL MASTER-END. CL**3
|
||
00506 DTSBX630
|
||
00507 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++'. DTSBX630
|
||
00508 * MOVE MASTER-READ-COUNT TO WS-OUT-READ WS-OUT-READ1. CL*13
|
||
00509 * MOVE WS-TOTAL-NDEL TO WS-OUT-NDEL. CL*13
|
||
00510 * MOVE WS-TOTAL-DELQ TO WS-OUT-DELQ. CL*13
|
||
00511 MOVE WS-READ-X102 TO WS-READ-Z102. CL*13
|
||
00512 MOVE WS-READ-X104 TO WS-READ-Z104. CL*13
|
||
00513 MOVE WS-READ-X106 TO WS-READ-Z106. CL*13
|
||
00514 MOVE WS-READ-X106A TO WS-READ-Z106A. CL*13
|
||
00515 MOVE WS-READ-X108 TO WS-READ-Z108. CL*13
|
||
00516 MOVE WS-READ-X110 TO WS-READ-Z110. CL*13
|
||
00517 MOVE WS-READ-X110A TO WS-READ-Z110A CL*13
|
||
00518 MOVE WS-READ-X120 TO WS-READ-Z120. CL*13
|
||
00519 MOVE WS-READ-X120A TO WS-READ-Z120A. CL*13
|
||
00520 MOVE WS-READ-X140 TO WS-READ-Z140. CL*13
|
||
00521 MOVE WS-READ-X144 TO WS-READ-Z144. CL*13
|
||
00522 MOVE WS-READ-X145 TO WS-READ-Z145. CL*13
|
||
00523 MOVE WS-READ-X147 TO WS-READ-Z147. CL*13
|
||
00524 MOVE WS-READ-X998 TO WS-READ-Z998. CL*13
|
||
00525 CL*11
|
||
00526 MOVE WS-TOTAL-X102-CNT TO WS-TOTAL-X102-ZCNT CL*14
|
||
00527 MOVE WS-TOTAL-X104-CNT TO WS-TOTAL-X104-ZCNT CL*14
|
||
00528 MOVE WS-TOTAL-X106-CNT TO WS-TOTAL-X106-ZCNT CL*14
|
||
00529 MOVE WS-TOTAL-X106A-CNT TO WS-TOTAL-X106A-ZCNT. CL*14
|
||
00530 MOVE WS-TOTAL-X108-CNT TO WS-TOTAL-X108-ZCNT CL*14
|
||
00531 MOVE WS-TOTAL-X110-CNT TO WS-TOTAL-X110-ZCNT CL*14
|
||
00532 MOVE WS-TOTAL-X110A-CNT TO WS-TOTAL-X110A-ZCNT CL*14
|
||
00533 MOVE WS-TOTAL-X120-CNT TO WS-TOTAL-X120-ZCNT CL*14
|
||
00534 MOVE WS-TOTAL-X120A-CNT TO WS-TOTAL-X120A-ZCNT CL*14
|
||
00535 MOVE WS-TOTAL-X140-CNT TO WS-TOTAL-X140-ZCNT CL*14
|
||
00536 MOVE WS-TOTAL-X144-CNT TO WS-TOTAL-X144-ZCNT. CL*14
|
||
00537 MOVE WS-TOTAL-X145-CNT TO WS-TOTAL-X145-ZCNT. CL*14
|
||
00538 MOVE WS-TOTAL-X147-CNT TO WS-TOTAL-X147-ZCNT. CL*14
|
||
00539 MOVE WS-TOTAL-X998-CNT TO WS-TOTAL-X998-ZCNT. CL*14
|
||
00540 CL*13
|
||
00541 WRITE PRINT-RECORD FROM WS-TOTAL-LINE1 AFTER 2. CL*93
|
||
00542 WRITE PRINT-RECORD FROM WS-TOTAL-LINE2 AFTER 1. CL*13
|
||
00543 WRITE PRINT-RECORD FROM WS-TOTAL-LINE3 AFTER 1. CL*13
|
||
00544 WRITE PRINT-RECORD FROM WS-TOTAL-LINE4 AFTER 1. CL*13
|
||
00545 WRITE PRINT-RECORD FROM WS-TOTAL-LINE5 AFTER 1. CL*13
|
||
00546 WRITE PRINT-RECORD FROM WS-TOTAL-LINE6 AFTER 1. CL*13
|
||
00547 WRITE PRINT-RECORD FROM WS-TOTAL-LINE7 AFTER 1. CL*13
|
||
00548 WRITE PRINT-RECORD FROM WS-TOTAL-LINE8 AFTER 1. CL*13
|
||
00549 WRITE PRINT-RECORD FROM WS-TOTAL-LINE9 AFTER 1. CL*13
|
||
00550 WRITE PRINT-RECORD FROM WS-TOTAL-LINE10 AFTER 1. CL211
|
||
00551 WRITE PRINT-RECORD FROM WS-TOTAL-LINE11 AFTER 1. CL211
|
||
00552 WRITE PRINT-RECORD FROM WS-TOTAL-LINE12 AFTER 1. CL169
|
||
00553 WRITE PRINT-RECORD FROM WS-TOTAL-LINE13 AFTER 1. CL*13
|
||
00554 WRITE PRINT-RECORD FROM WS-TOTAL-LINE14 AFTER 1. CL*15
|
||
00555 * WRITE PRINT-RECORD FROM WS-TOTAL-LINE3 AFTER 1. CL247
|
||
00556 * WRITE PRINT-RECORD FROM WS-TOTAL-LINE4 AFTER 1. CL247
|
||
00557 IF WS-ABEND-JOB = 0 CL*23
|
||
00558 WRITE PRINT-RECORD FROM WS-TOTAL-LINE45 AFTER 3 CL*21
|
||
00559 ELSE CL*21
|
||
00560 WRITE PRINT-RECORD FROM WS-TOTAL-LINE46 AFTER 3. CL*21
|
||
00561 CL*11
|
||
00562 IF WS-ABEND-JOB = 1 CL**7
|
||
00563 MOVE +05 TO RETURN-CODE. CL**7
|
||
00564 DTSBX630
|
||
00565 CLOSE X144WGE-IN, X102REG-IN, X104REG-IN, REPORT-FILE, CL**6
|
||
00566 X106REG-IN, X106AREG-IN, X108REG-IN, X110REG-IN, CL**2
|
||
00567 X110AREG-IN, X120REG-IN, X120AREG-IN,X147SSN-IN, CL**2
|
||
00568 X140RPT-IN, X145PAY-IN, X999ESSP-IN, CL*11
|
||
00569 X998ACH-IN. CL**8
|
||
00570 * CLOSE X147SSN-OUTB. CL225
|
||
00571 DTSBX630
|
||
00572 GOBACK. DTSBX630
|
||
00573 DTSBX630
|
||
00574 MAIN0100-CONTROL-EXIT. DTSBX630
|
||
00575 EXIT. DTSBX630
|
||
00576 DTSBX630
|
||
00577 ******************************************************************DTSBX630
|
||
00578 * PROC2000-UI-PROCESS *DTSBX630
|
||
00579 ******************************************************************DTSBX630
|
||
00580 DTSBX630
|
||
00581 PROC2000-UI-PROCESS. DTSBX630
|
||
00582 DTSBX630
|
||
00583 PERFORM PROC3000-READ-MASTER-FILE THRU DTSBX630
|
||
00584 PROC3000-READ-EXIT UNTIL MASTER-END. CL**3
|
||
00585 DTSBX630
|
||
00586 CL195
|
||
00587 PERFORM PROC0100-X102-REG THRU PROC0100-EXIT. CL**4
|
||
00588 PERFORM PROC0200-X104-REG THRU PROC0200-EXIT. CL**7
|
||
00589 PERFORM PROC0300-X106-REG THRU PROC0300-EXIT. CL**7
|
||
00590 PERFORM PROC0400-X106A-REG THRU PROC0400-EXIT. CL**7
|
||
00591 PERFORM PROC0500-X108-REG THRU PROC0500-EXIT. CL**7
|
||
00592 PERFORM PROC0600-X110-REG THRU PROC0600-EXIT. CL**7
|
||
00593 PERFORM PROC0700-X110A-REG THRU PROC0700-EXIT. CL**7
|
||
00594 PERFORM PROC0800-X120-REG THRU PROC0800-EXIT. CL**7
|
||
00595 PERFORM PROC0900-X120A-REG THRU PROC0900-EXIT. CL**7
|
||
00596 PERFORM PROC1000-X140-RPT THRU PROC1000-EXIT. CL**7
|
||
00597 PERFORM PROC1100-X144-WGE THRU PROC1100-EXIT. CL**7
|
||
00598 PERFORM PROC1200-X145-PAY THRU PROC1200-EXIT. CL**7
|
||
00599 PERFORM PROC1300-X147-SSN THRU PROC1300-EXIT. CL**7
|
||
00600 PERFORM PROC1400-X998-ACH THRU PROC1400-EXIT. CL**7
|
||
00601 CL161
|
||
00602 PROC2000-UI-EXIT. EXIT. CL**4
|
||
00603 CL**4
|
||
00604 PROC0100-X102-REG. CL**4
|
||
00605 READ X102REG-IN INTO ESSP-FILE-IN CL**4
|
||
00606 AT END CL138
|
||
00607 GO TO PROC0100-CONTINUE. CL**4
|
||
00608 IF ESSP-NAME = '102' CL*10
|
||
00609 ADD 1 TO WS-READ-X102 CL**4
|
||
00610 ELSE CL**4
|
||
00611 DISPLAY '### X102 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**4
|
||
00612 GO TO PROC0100-X102-REG. CL**6
|
||
00613 PROC0100-CONTINUE. CL**4
|
||
00614 IF WS-READ-X102 NOT EQUAL WS-TOTAL-X102-CNT CL**7
|
||
00615 DISPLAY '### X102 COUNTS NOT MATCHING- ESSP SENT ' CL**4
|
||
00616 WS-TOTAL-X102-CNT ' DUTAS RECEIVED ' WS-READ-X102 CL**7
|
||
00617 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00618 MOVE '### X102 COUNTS NOT MATCHING <<<<< ' TO Z102-MSG CL*23
|
||
00619 ELSE CL**7
|
||
00620 DISPLAY 'TOTAL X102 ESSP SENT ' CL*11
|
||
00621 WS-TOTAL-X102-CNT ' DUTAS RECEIVED ' WS-READ-X102. CL**7
|
||
00622 PROC0100-EXIT. EXIT. CL**4
|
||
00623 CL**4
|
||
00624 PROC0200-X104-REG. CL**7
|
||
00625 READ X104REG-IN INTO ESSP-FILE-IN CL**7
|
||
00626 AT END CL**7
|
||
00627 GO TO PROC0200-CONTINUE. CL**7
|
||
00628 IF ESSP-NAME = '104' CL*10
|
||
00629 ADD 1 TO WS-READ-X104 CL**7
|
||
00630 ELSE CL**7
|
||
00631 DISPLAY '### X104 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00632 GO TO PROC0200-X104-REG. CL**8
|
||
00633 PROC0200-CONTINUE. CL**7
|
||
00634 IF WS-READ-X104 NOT EQUAL WS-TOTAL-X104-CNT CL**7
|
||
00635 DISPLAY '### X104 COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00636 WS-TOTAL-X104-CNT ' DUTAS RECEIVED ' WS-READ-X104 CL**7
|
||
00637 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00638 MOVE '### X104 COUNTS NOT MATCHING <<<<< ' TO Z104-MSG CL*23
|
||
00639 ELSE CL**7
|
||
00640 DISPLAY 'TOTAL X104 ESSP SENT ' CL*11
|
||
00641 WS-TOTAL-X104-CNT ' DUTAS RECEIVED ' WS-READ-X104. CL**7
|
||
00642 PROC0200-EXIT. EXIT. CL**7
|
||
00643 CL**7
|
||
00644 PROC0300-X106-REG. CL**7
|
||
00645 READ X106REG-IN INTO ESSP-FILE-IN CL**7
|
||
00646 AT END CL**7
|
||
00647 GO TO PROC0300-CONTINUE. CL**7
|
||
00648 IF ESSP-NAME = '106' CL*10
|
||
00649 ADD 1 TO WS-READ-X106 CL**7
|
||
00650 ELSE CL**7
|
||
00651 DISPLAY '### X106 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00652 GO TO PROC0300-X106-REG. CL**7
|
||
00653 PROC0300-CONTINUE. CL**7
|
||
00654 IF WS-READ-X106 NOT EQUAL WS-TOTAL-X106-CNT CL**7
|
||
00655 DISPLAY '### X106 COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00656 WS-TOTAL-X106-CNT ' DUTAS RECEIVED ' WS-READ-X106 CL**7
|
||
00657 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00658 MOVE '### X106 COUNTS NOT MATCHING <<<<< ' TO Z106-MSG CL*23
|
||
00659 ELSE CL**7
|
||
00660 DISPLAY 'TOTAL X106 ESSP SENT ' CL*11
|
||
00661 WS-TOTAL-X106-CNT ' DUTAS RECEIVED ' WS-READ-X106. CL**7
|
||
00662 PROC0300-EXIT. EXIT. CL**7
|
||
00663 CL**7
|
||
00664 PROC0400-X106A-REG. CL**7
|
||
00665 READ X106AREG-IN INTO ESSP-FILE-IN CL**7
|
||
00666 AT END CL**7
|
||
00667 GO TO PROC0400-CONTINUE. CL**7
|
||
00668 IF ESSP-NAME = '106' CL*10
|
||
00669 ADD 1 TO WS-READ-X106A CL**7
|
||
00670 ELSE CL**7
|
||
00671 DISPLAY '### X106A RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00672 GO TO PROC0400-X106A-REG. CL**7
|
||
00673 PROC0400-CONTINUE. CL**7
|
||
00674 IF WS-READ-X106A NOT EQUAL WS-TOTAL-X106A-CNT CL**7
|
||
00675 DISPLAY '### X106 UPD COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00676 WS-TOTAL-X106A-CNT ' DUTAS RECEIVED ' WS-READ-X106A CL**7
|
||
00677 MOVE '### X106A COUNTS NOT MATCHING <<<<< ' TO Z106A-MSG CL*21
|
||
00678 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00679 ELSE CL**7
|
||
00680 DISPLAY 'TOTAL X106A ESSP SENT ' CL**7
|
||
00681 WS-TOTAL-X106A-CNT ' DUTAS RECEIVED ' WS-READ-X106A. CL**7
|
||
00682 PROC0400-EXIT. EXIT. CL**7
|
||
00683 CL**7
|
||
00684 PROC0500-X108-REG. CL**7
|
||
00685 READ X108REG-IN INTO ESSP-FILE-IN CL**7
|
||
00686 AT END CL**7
|
||
00687 GO TO PROC0500-CONTINUE. CL**7
|
||
00688 IF ESSP-NAME = '108' CL*10
|
||
00689 ADD 1 TO WS-READ-X108 CL**7
|
||
00690 ELSE CL**7
|
||
00691 DISPLAY '### X108 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00692 GO TO PROC0500-X108-REG. CL**7
|
||
00693 PROC0500-CONTINUE. CL**7
|
||
00694 IF WS-READ-X108 NOT EQUAL WS-TOTAL-X108-CNT CL**7
|
||
00695 DISPLAY '### X108 UPD COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00696 WS-TOTAL-X108-CNT ' DUTAS RECEIVED ' WS-READ-X108 CL**7
|
||
00697 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00698 MOVE '### X108 COUNTS NOT MATCHING <<<<< ' TO Z108-MSG CL*21
|
||
00699 ELSE CL**7
|
||
00700 DISPLAY 'TOTAL X108 ESSP SENT ' CL**7
|
||
00701 WS-TOTAL-X108-CNT ' DUTAS RECEIVED ' WS-READ-X108. CL**7
|
||
00702 PROC0500-EXIT. EXIT. CL**7
|
||
00703 CL**7
|
||
00704 PROC0600-X110-REG. CL**7
|
||
00705 READ X110REG-IN INTO ESSP-FILE-IN CL**7
|
||
00706 AT END CL**7
|
||
00707 GO TO PROC0600-CONTINUE. CL**7
|
||
00708 IF ESSP-NAME = '110' CL*10
|
||
00709 ADD 1 TO WS-READ-X110 CL**7
|
||
00710 ELSE CL**7
|
||
00711 DISPLAY '### X110 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00712 GO TO PROC0600-X110-REG. CL**7
|
||
00713 PROC0600-CONTINUE. CL**7
|
||
00714 IF WS-READ-X110 NOT EQUAL WS-TOTAL-X110-CNT CL**7
|
||
00715 DISPLAY '### X110 COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00716 WS-TOTAL-X110-CNT ' DUTAS RECEIVED ' WS-READ-X110 CL**7
|
||
00717 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00718 MOVE '### X110 COUNTS NOT MATCHING <<<<< ' TO Z110-MSG CL*21
|
||
00719 ELSE CL**7
|
||
00720 DISPLAY 'TOTAL X110 ESSP SENT ' CL**7
|
||
00721 WS-TOTAL-X110-CNT ' DUTAS RECEIVED ' WS-READ-X110. CL**7
|
||
00722 PROC0600-EXIT. EXIT. CL**7
|
||
00723 CL**7
|
||
00724 PROC0700-X110A-REG. CL**7
|
||
00725 READ X110AREG-IN INTO ESSP-FILE-IN CL**7
|
||
00726 AT END CL**7
|
||
00727 GO TO PROC0700-CONTINUE. CL**7
|
||
00728 IF ESSP-NAME = '110' CL*10
|
||
00729 ADD 1 TO WS-READ-X110A CL**7
|
||
00730 ELSE CL**7
|
||
00731 DISPLAY '### X110A RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00732 GO TO PROC0700-X110A-REG. CL**7
|
||
00733 PROC0700-CONTINUE. CL**7
|
||
00734 IF WS-READ-X110A NOT EQUAL WS-TOTAL-X110A-CNT CL**7
|
||
00735 DISPLAY '### X110 UPD COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00736 WS-TOTAL-X110A-CNT ' DUTAS RECEIVED ' WS-READ-X110A CL**7
|
||
00737 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00738 MOVE '### X110A COUNTS NOT MATCHING <<<<< ' TO Z110A-MSG CL*21
|
||
00739 ELSE CL**7
|
||
00740 DISPLAY 'TOTAL X110A ESSP SENT ' CL**7
|
||
00741 WS-TOTAL-X110A-CNT ' DUTAS RECEIVED ' WS-READ-X110A. CL**7
|
||
00742 PROC0700-EXIT. EXIT. CL**7
|
||
00743 CL**7
|
||
00744 PROC0800-X120-REG. CL**7
|
||
00745 READ X120REG-IN INTO ESSP-FILE-IN CL**7
|
||
00746 AT END CL**7
|
||
00747 GO TO PROC0800-CONTINUE. CL**7
|
||
00748 IF ESSP-NAME = '120' CL*10
|
||
00749 ADD 1 TO WS-READ-X120 CL**7
|
||
00750 ELSE CL**7
|
||
00751 DISPLAY '### X120 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00752 GO TO PROC0800-X120-REG. CL**7
|
||
00753 PROC0800-CONTINUE. CL**7
|
||
00754 IF WS-READ-X120 NOT EQUAL WS-TOTAL-X120-CNT CL**7
|
||
00755 DISPLAY '### X120 COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00756 WS-TOTAL-X120-CNT ' DUTAS RECEIVED ' WS-READ-X120 CL**7
|
||
00757 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00758 MOVE '### X120 COUNTS NOT MATCHING <<<<< ' TO Z120-MSG CL*21
|
||
00759 ELSE CL**7
|
||
00760 DISPLAY 'TOTAL X120 ESSP SENT ' CL**7
|
||
00761 WS-TOTAL-X120-CNT ' DUTAS RECEIVED ' WS-READ-X120. CL**7
|
||
00762 PROC0800-EXIT. EXIT. CL**7
|
||
00763 CL**7
|
||
00764 PROC0900-X120A-REG. CL**7
|
||
00765 READ X120AREG-IN INTO ESSP-FILE-IN CL**7
|
||
00766 AT END CL**7
|
||
00767 GO TO PROC0900-CONTINUE. CL**7
|
||
00768 IF ESSP-NAME = '120' CL*10
|
||
00769 ADD 1 TO WS-READ-X120A CL**7
|
||
00770 ELSE CL**7
|
||
00771 DISPLAY '### X120A RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00772 GO TO PROC0900-X120A-REG. CL**7
|
||
00773 PROC0900-CONTINUE. CL**7
|
||
00774 IF WS-READ-X120A NOT EQUAL WS-TOTAL-X120A-CNT CL**7
|
||
00775 DISPLAY '### X120 UPD COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00776 WS-TOTAL-X120A-CNT ' DUTAS RECEIVED ' WS-READ-X120A CL**7
|
||
00777 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00778 MOVE '### X120A COUNTS NOT MATCHING <<<<< ' TO Z120A-MSG CL*21
|
||
00779 ELSE CL**7
|
||
00780 DISPLAY 'TOTAL X120A ESSP SENT ' CL**7
|
||
00781 WS-TOTAL-X120A-CNT ' DUTAS RECEIVED ' WS-READ-X120A. CL**7
|
||
00782 PROC0900-EXIT. EXIT. CL**7
|
||
00783 CL**7
|
||
00784 PROC1000-X140-RPT. CL**7
|
||
00785 READ X140RPT-IN INTO ESSP-FILE-IN CL**7
|
||
00786 AT END CL**7
|
||
00787 GO TO PROC1000-CONTINUE. CL**7
|
||
00788 IF ESSP-NAME = '140' CL*10
|
||
00789 ADD 1 TO WS-READ-X140 CL**7
|
||
00790 ELSE CL**7
|
||
00791 DISPLAY '### X140 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00792 GO TO PROC1000-X140-RPT. CL**7
|
||
00793 PROC1000-CONTINUE. CL**7
|
||
00794 IF WS-READ-X140 NOT EQUAL WS-TOTAL-X140-CNT CL**7
|
||
00795 DISPLAY '### X140 COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00796 WS-TOTAL-X140-CNT ' DUTAS RECEIVED ' WS-READ-X140 CL**7
|
||
00797 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00798 MOVE '### X140 COUNTS NOT MATCHING <<<<< ' TO Z140-MSG CL*21
|
||
00799 ELSE CL**7
|
||
00800 DISPLAY 'TOTAL X140 ESSP SENT ' CL**7
|
||
00801 WS-TOTAL-X140-CNT ' DUTAS RECEIVED ' WS-READ-X140. CL**7
|
||
00802 PROC1000-EXIT. EXIT. CL**7
|
||
00803 PROC1100-X144-WGE. CL**7
|
||
00804 READ X144WGE-IN INTO ESSP-FILE-IN CL**7
|
||
00805 AT END CL**7
|
||
00806 GO TO PROC1100-CONTINUE. CL**7
|
||
00807 IF ESSP-NAME = '144' CL*10
|
||
00808 ADD 1 TO WS-READ-X144 CL**7
|
||
00809 ELSE CL**7
|
||
00810 DISPLAY '### X144 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00811 GO TO PROC1100-X144-WGE. CL**8
|
||
00812 PROC1100-CONTINUE. CL**7
|
||
00813 IF WS-READ-X144 NOT EQUAL WS-TOTAL-X144-CNT CL**7
|
||
00814 DISPLAY '### X144 COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00815 WS-TOTAL-X144-CNT ' DUTAS RECEIVED ' WS-READ-X144 CL**7
|
||
00816 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00817 MOVE '### X144 COUNTS NOT MATCHING <<<<< ' TO Z144-MSG CL*21
|
||
00818 ELSE CL**7
|
||
00819 DISPLAY 'TOTAL X144 ESSP SENT ' CL**7
|
||
00820 WS-TOTAL-X144-CNT ' DUTAS RECEIVED ' WS-READ-X144. CL**7
|
||
00821 PROC1100-EXIT. EXIT. CL**7
|
||
00822 PROC1200-X145-PAY. CL**7
|
||
00823 READ X145PAY-IN INTO ESSP-FILE-IN CL**7
|
||
00824 AT END CL**7
|
||
00825 GO TO PROC1200-CONTINUE. CL**7
|
||
00826 IF ESSP-NAME = '145' CL*10
|
||
00827 ADD 1 TO WS-READ-X145 CL**7
|
||
00828 ELSE CL**7
|
||
00829 DISPLAY '### X145 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**7
|
||
00830 GO TO PROC1200-X145-PAY. CL**8
|
||
00831 PROC1200-CONTINUE. CL**7
|
||
00832 IF WS-READ-X145 NOT EQUAL WS-TOTAL-X145-CNT CL**7
|
||
00833 DISPLAY '### X145 COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00834 WS-TOTAL-X145-CNT ' DUTAS RECEIVED ' WS-READ-X145 CL**7
|
||
00835 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00836 MOVE '### X145 COUNTS NOT MATCHING <<<<< ' TO Z145-MSG CL*21
|
||
00837 ELSE CL**7
|
||
00838 DISPLAY 'TOTAL X145 ESSP SENT ' CL**7
|
||
00839 WS-TOTAL-X145-CNT ' DUTAS RECEIVED ' WS-READ-X145. CL**7
|
||
00840 PROC1200-EXIT. EXIT. CL**7
|
||
00841 PROC1300-X147-SSN. CL**7
|
||
00842 READ X147SSN-IN INTO ESSP-FILE-IN CL**7
|
||
00843 AT END CL**7
|
||
00844 GO TO PROC1300-CONTINUE. CL**7
|
||
00845 IF ESSP-NAME = '147' CL*10
|
||
00846 ADD 1 TO WS-READ-X147 CL**7
|
||
00847 ELSE CL**7
|
||
00848 DISPLAY '### X147 RECORD HAS OTHER TYPE REC ' ESSP-NAME. CL**8
|
||
00849 GO TO PROC1300-X147-SSN. CL**8
|
||
00850 PROC1300-CONTINUE. CL**7
|
||
00851 IF WS-READ-X147 NOT EQUAL WS-TOTAL-X147-CNT CL**7
|
||
00852 DISPLAY '### X147 COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00853 WS-TOTAL-X147-CNT ' DUTAS RECEIVED ' WS-READ-X147 CL**7
|
||
00854 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00855 MOVE '### X147 COUNTS NOT MATCHING <<<<< ' TO Z147-MSG CL*21
|
||
00856 ELSE CL**7
|
||
00857 DISPLAY 'TOTAL X147 ESSP SENT ' CL**7
|
||
00858 WS-TOTAL-X147-CNT ' DUTAS RECEIVED ' WS-READ-X147. CL**7
|
||
00859 PROC1300-EXIT. EXIT. CL**7
|
||
00860 PROC1400-X998-ACH. CL**7
|
||
00861 READ X998ACH-IN CL**8
|
||
00862 AT END CL**7
|
||
00863 GO TO PROC1400-CONTINUE. CL**7
|
||
00864 IF X998-TYPE = '6' CL**9
|
||
00865 ADD 1 TO WS-READ-X998. CL*12
|
||
00866 GO TO PROC1400-X998-ACH. CL**7
|
||
00867 PROC1400-CONTINUE. CL**7
|
||
00868 IF WS-READ-X998 NOT EQUAL WS-TOTAL-X998-CNT CL**7
|
||
00869 DISPLAY '### ACH COUNTS NOT MATCHING- ESSP SENT ' CL**7
|
||
00870 WS-TOTAL-X998-CNT ' DUTAS RECEIVED ' WS-READ-X998 CL**7
|
||
00871 MOVE 1 TO WS-ABEND-JOB CL**7
|
||
00872 MOVE '### X998 COUNTS NOT MATCHING <<<<< ' TO Z998-MSG CL*21
|
||
00873 ELSE CL**7
|
||
00874 DISPLAY 'TOTAL XACH ESSP SENT ' CL**7
|
||
00875 WS-TOTAL-X998-CNT ' DUTAS RECEIVED ' WS-READ-X998. CL**7
|
||
00876 PROC1400-EXIT. EXIT. CL**7
|
||
00877 ******************************************************************DTSBX630
|
||
00878 * PROC3000-READ-MASTER-FILE *DTSBX630
|
||
00879 ******************************************************************DTSBX630
|
||
00880 DTSBX630
|
||
00881 PROC3000-READ-MASTER-FILE. DTSBX630
|
||
00882 DTSBX630
|
||
00883 READ X999ESSP-IN CL**3
|
||
00884 AT END DTSBX630
|
||
00885 MOVE 'Y' TO MASTER-END-IND CL*63
|
||
00886 GO TO PROC3000-READ-EXIT. DTSBX630
|
||
00887 DTSBX630
|
||
00888 ADD 1 TO WS-TOTAL-X999-CNT. CL**3
|
||
00889 CL**4
|
||
00890 IF WS-TOTAL-X999-CNT = 1 CL**4
|
||
00891 GO TO PROC3000-READ-EXIT. CL**4
|
||
00892 CL**4
|
||
00893 IF X999-NAME = 'X102' CL*10
|
||
00894 MOVE X999-CNT TO WS-TOTAL-X102-CNT CL**3
|
||
00895 ELSE CL**3
|
||
00896 IF X999-NAME = 'X104' CL*10
|
||
00897 MOVE X999-CNT TO WS-TOTAL-X104-CNT CL**3
|
||
00898 ELSE CL**3
|
||
00899 IF X999-NAME = 'X106' AND X999-TYPE = 0 CL*10
|
||
00900 MOVE X999-CNT TO WS-TOTAL-X106-CNT CL**3
|
||
00901 ELSE CL**3
|
||
00902 IF X999-NAME = 'X106' AND X999-TYPE = 1 CL*10
|
||
00903 MOVE X999-CNT TO WS-TOTAL-X106A-CNT CL**3
|
||
00904 ELSE CL**3
|
||
00905 IF X999-NAME = 'X108' CL*10
|
||
00906 MOVE X999-CNT TO WS-TOTAL-X108-CNT CL**3
|
||
00907 ELSE CL**3
|
||
00908 IF X999-NAME = 'X110' AND X999-TYPE = 0 CL*10
|
||
00909 MOVE X999-CNT TO WS-TOTAL-X110-CNT CL**3
|
||
00910 ELSE CL**3
|
||
00911 IF X999-NAME = 'X110' AND X999-TYPE = 1 CL*10
|
||
00912 MOVE X999-CNT TO WS-TOTAL-X110A-CNT CL**3
|
||
00913 ELSE CL**3
|
||
00914 IF X999-NAME = 'X120' AND X999-TYPE = 0 CL*10
|
||
00915 MOVE X999-CNT TO WS-TOTAL-X120-CNT CL**3
|
||
00916 ELSE CL**3
|
||
00917 IF X999-NAME = 'X120' AND X999-TYPE = 1 CL*10
|
||
00918 MOVE X999-CNT TO WS-TOTAL-X120A-CNT CL**3
|
||
00919 ELSE CL**3
|
||
00920 IF X999-NAME = 'X140' CL*10
|
||
00921 MOVE X999-CNT TO WS-TOTAL-X140-CNT CL**3
|
||
00922 ELSE CL**3
|
||
00923 IF X999-NAME = 'X144' CL*10
|
||
00924 MOVE X999-CNT TO WS-TOTAL-X144-CNT CL**3
|
||
00925 ELSE CL**3
|
||
00926 IF X999-NAME = 'X145' CL*10
|
||
00927 MOVE X999-CNT TO WS-TOTAL-X145-CNT CL**3
|
||
00928 ELSE CL**3
|
||
00929 IF X999-NAME = 'X147' CL*10
|
||
00930 MOVE X999-CNT TO WS-TOTAL-X147-CNT CL**3
|
||
00931 ELSE CL**3
|
||
00932 IF X999-NAME = 'X998' CL*10
|
||
00933 MOVE X999-CNT TO WS-TOTAL-X998-CNT CL**8
|
||
00934 ELSE CL**3
|
||
00935 DISPLAY '*** ERROR UNKNOWN RECORD IN ESSP ' X999-NAME CL**3
|
||
00936 GO TO S999-ABEND. CL**6
|
||
00937 PROC3000-READ-EXIT. DTSBX630
|
||
00938 EXIT. DTSBX630
|
||
00939 DTSBX630
|
||
00940 DTSBX630
|
||
00941 ******************************************************************DTSBX630
|
||
00942 * PROC5000-WRITE-RECORD-PAID *DTSBX630
|
||
00943 ******************************************************************DTSBX630
|
||
00944 DTSBX630
|
||
00945 DTSBX630
|
||
00946 PROC5000-X147-NOT-DELETED. CL*94
|
||
00947 * MOVE X147-SSN TO WS-INPUT-SSN. CL**7
|
||
00948 * MOVE WS-INPUT-SSN1 TO WS-OUT-SSN1. CL245
|
||
00949 * MOVE WS-INPUT-SSN2 TO WS-OUT-SSN2 CL245
|
||
00950 * MOVE WS-INPUT-SSN3 TO WS-OUT-SSN3. CL245
|
||
00951 * MOVE DB-SEQ-9 TO WS-OUT-SEQ. CL245
|
||
00952 * CL245
|
||
00953 * MOVE X147-EMP-NO TO WS-OUT-EMP-NO CL245
|
||
00954 * MOVE X147-QUARTER TO WS-OUT-QUARTER. CL245
|
||
00955 * MOVE X147-FNAME TO WS-OUT-FNAME. CL245
|
||
00956 * MOVE X147-LNAME TO WS-OUT-LNAME. CL245
|
||
00957 * MOVE X147-WAGES TO WS-OUT-WAGES. CL245
|
||
00958 * MOVE 'Y ' TO WS-OUT-X144. CL245
|
||
00959 * MOVE '++ CLAIM FOUND ON DOCS - VERIFY' TO WS-OUT-MESSAGE. CL245
|
||
00960 DTSBX630
|
||
00961 * IF LINE-COUNT GREATER 55 CL*74
|
||
00962 * MOVE ZEROES TO LINE-COUNT CL*74
|
||
00963 ADD 1 TO LINE-COUNT. CL126
|
||
00964 WRITE PRINT-RECORD FROM WS-OUTPUT. CL*92
|
||
00965 PROC5000-EXIT. CL*94
|
||
00966 EXIT. DTSBX630
|
||
00967 DTSBX630
|
||
00968 CL*69
|
||
00969 S001-FROM-CAL-6. CL*55
|
||
00970 SET L001-FROM-CAL-6 TO TRUE. CL*55
|
||
00971 GO TO S001-DATE-CONVERT. CL*55
|
||
00972 CL*55
|
||
00973 S001-FROM-ABS-DAY. CL*55
|
||
00974 SET L001-FROM-ABS-DAY TO TRUE. CL*55
|
||
00975 GO TO S001-DATE-CONVERT. CL*55
|
||
00976 CL*55
|
||
00977 S001-DATE-CONVERT. CL*55
|
||
00978 CALL 'DTSBU001' USING L001-LINK-AREA. CL*55
|
||
00979 S001-EXIT. CL*55
|
||
00980 EXIT. CL*55
|
||
00981 SKIP3 CL*55
|
||
00982 S999-ABEND. CL*55
|
||
00983 DISPLAY '*** ' CL*55
|
||
00984 WRK-MODULE-NAME CL*55
|
||
00985 ' IS ABENDING: ' CL*55
|
||
00986 WRK-ABEND-MSG. CL*55
|
||
00987 CL*55
|
||
00988 CALL 'DTSBU999' USING WRK-ABEND-CD. CL*55
|
||
00989 S999-EXIT. CL*55
|
||
00990 EXIT. CL*55
|