DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
592
Batch/DTSBN581.cob
Normal file
592
Batch/DTSBN581.cob
Normal file
@ -0,0 +1,592 @@
|
||||
00001 IDENTIFICATION DIVISION. 04/01/25
|
||||
00002 PROGRAM-ID. DTSBN581. DTSBN581
|
||||
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV231
|
||||
00004 DATE-WRITTEN. JUNE 1992. DTSBN581
|
||||
00005 DATE-COMPILED. DTSBN581
|
||||
00006 SKIP3 DTSBN581
|
||||
00007 ***** DTSBN581
|
||||
00008 * DTSBN581
|
||||
00009 * FUNCTION: CREATE ASCII FILE FOR UPLOAD TO SUN SYSTEM 581 CL*35
|
||||
00010 CL**9
|
||||
00011 * DTSBN581
|
||||
00012 * MODIFICATION LOG: DTSBN581
|
||||
00013 * DTSBN581
|
||||
00014 * 11/29/16 INITIAL DEVELOPMENT. CL*35
|
||||
00015 * WORK ORDER: ETA581 AUTOMATION PROGRAMMER: NH CL*35
|
||||
00016 * DTSBN581
|
||||
00017 * DTSBN581
|
||||
00018 * DESCRIPTION: DTSBN581
|
||||
00019 * DTSBN581
|
||||
00020 * DTSBN581
|
||||
00021 * DTSBN581
|
||||
00022 * DTSBN581
|
||||
00023 * DTSBN581
|
||||
00024 ***** DTSBN581
|
||||
00025 SKIP3 DTSBN581
|
||||
00026 ENVIRONMENT DIVISION. DTSBN581
|
||||
00027 INPUT-OUTPUT SECTION. CL*61
|
||||
00028 FILE-CONTROL. CL*39
|
||||
00029 CL*39
|
||||
00030 SELECT OUT-FILE ASSIGN TO DTSOZ581 CL*39
|
||||
00031 FILE STATUS IS Z581-STATUS. CL*39
|
||||
00032 SKIP2 CL*39
|
||||
00033 DATA DIVISION. CL*39
|
||||
00034 FILE SECTION. CL*39
|
||||
00035 FD OUT-FILE CL*39
|
||||
00036 RECORDING MODE IS F CL*71
|
||||
00037 RECORD CONTAINS 79 CHARACTERS. CL*72
|
||||
00038 CL*45
|
||||
00039 01 OUT-REC PIC X(79). CL*72
|
||||
00040 CL*39
|
||||
00041 WORKING-STORAGE SECTION. DTSBN581
|
||||
000415 77 PAN-VALET PICTURE X(24) VALUE '231DTSBN581 04/01/25'. DTSBN581
|
||||
00042 CL*39
|
||||
00043 77 PAN-VALET PICTURE X(24) VALUE '006DTSBZ931 12/28/99'. DTSBN581
|
||||
00044 SKIP3 DTSBN581
|
||||
00045 01 WRK-AREA. DTSBN581
|
||||
00046 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +931.DTSBN581
|
||||
00047 DTSBN581
|
||||
00048 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBN581'. CL*41
|
||||
00049 CL*43
|
||||
00050 05 WRK-CHR-NAME PIC X(09). CL*97
|
||||
00051 05 WRK-INT-NAME PIC 9(09). CL*97
|
||||
00052 05 WRK-DEC-NAME. DTSBN581
|
||||
00053 10 WRK-DEC-NAMEA PIC 9(09). CL*63
|
||||
00054 10 FILLER PIC X VALUE '.'. CL*63
|
||||
00055 10 WRK-DEC-NAMEB PIC 99. CL*63
|
||||
00056 CL147
|
||||
00057 05 WRK-DATE-NAME PIC X(10). CL146
|
||||
00058 CL147
|
||||
00059 05 WRK-DATE-NAM. CL147
|
||||
00060 10 WRK-DT-MTH PIC X(02). CL147
|
||||
00061 10 FILLER PIC X VALUE '/'. CL147
|
||||
00062 10 WRK-DT-DAY PIC X(02). CL147
|
||||
00063 10 FILLER PIC X VALUE '/'. CL147
|
||||
00064 10 WRK-DT-YEAR PIC X(04). CL147
|
||||
00065 CL147
|
||||
00066 05 WRK-YRQ PIC 9(05). CL120
|
||||
00067 05 Z581-STATUS PIC X(02). CL*40
|
||||
00068 88 Z581-FILE-OK-88 VALUE '00'. CL*40
|
||||
00069 CL117
|
||||
00070 05 WRK-QTR. CL117
|
||||
00071 10 WRK-MONTH PIC X(05). CL130
|
||||
00072 10 FILLER PIC X VALUE '/'. CL130
|
||||
00073 10 WRK-YEAR PIC 9(04). CL117
|
||||
00074 CL214
|
||||
00075 05 WS-AUDIT-UNDERRPT-TAX-WAGES PIC 9(11)- VALUE ZERO. CL215
|
||||
00076 05 WS-AUDIT-UNDERRPT-CONTRIB PIC 9(11)- VALUE ZERO. CL215
|
||||
00077 05 WS-AUDIT-OVERRPT-TAX-WAGES PIC 9(11)- VALUE ZERO. CL215
|
||||
00078 05 WS-AUDIT-OVERRPT-CONTRIB PIC 9(11)- VALUE ZERO. CL215
|
||||
00079 CL215
|
||||
00080 05 WS-CON-RECVBL-BEG-PERIOD PIC S9(11). CL214
|
||||
00081 05 WS-CON-RECVBL-DETERM PIC S9(11). CL214
|
||||
00082 05 WS-CON-RECVBL-LIQUID PIC S9(11). CL214
|
||||
00083 05 WS-CON-RECVBL-UNCOLLECT PIC S9(11). CL214
|
||||
00084 05 WS-CON-RECVBL-REMOVED PIC S9(11). CL214
|
||||
00085 05 WS-CON-RECVBL-END-PERIOD PIC S9(11). CL214
|
||||
00086 05 WS-CON-RECVBL-6-MOS PIC S9(11). CL214
|
||||
00087 05 WS-CON-RECVBL-9-MOS PIC S9(11). CL214
|
||||
00088 05 WS-CON-RECVBL-12-MOS PIC S9(11). CL214
|
||||
00089 05 WS-CON-RECVBL-15-MOS PIC S9(11). CL214
|
||||
00090 05 WS-CON-RECVBL-OVER15-MOS PIC S9(11). CL214
|
||||
00091 SKIP1 CL214
|
||||
00092 05 WS-REIMB-RECVBL-BEG-PERIOD PIC S9(11). CL214
|
||||
00093 05 WS-REIMB-RECVBL-DETERM PIC S9(11). CL214
|
||||
00094 05 WS-REIMB-RECVBL-LIQUID PIC S9(11). CL214
|
||||
00095 05 WS-REIMB-RECVBL-UNCOLLECT PIC S9(11). CL214
|
||||
00096 05 WS-REIMB-RECVBL-REMOVED PIC S9(11). CL214
|
||||
00097 05 WS-REIMB-RECVBL-END-PERIOD PIC S9(11). CL214
|
||||
00098 05 WS-REIMB-RECVBL-6-MOS PIC S9(11). CL214
|
||||
00099 05 WS-REIMB-RECVBL-9-MOS PIC S9(11). CL214
|
||||
00100 05 WS-REIMB-RECVBL-12-MOS PIC S9(11). CL214
|
||||
00101 05 WS-REIMB-RECVBL-15-MOS PIC S9(11). CL214
|
||||
00102 05 WS-REIMB-RECVBL-OVER15-MOS PIC S9(11). CL214
|
||||
00103 SKIP1 CL214
|
||||
00104 05 WS-AUDIT-TOT-WAGES-PRE PIC S9(11). CL214
|
||||
00105 05 WS-AUDIT-UNDERRPT-TOT-WAGES PIC S9(11). CL214
|
||||
00106 05 WS-AUDIT-OVERRPT-TOT-WAGES PIC S9(11). CL214
|
||||
00107 05 WS-AUDIT-TOT-WAGES-POST PIC S9(11). CL214
|
||||
00108 EJECT DTSBN581
|
||||
00109 01 L931-LINK-AREA. DTSBN581
|
||||
00110 ++INCLUDE DTSIL931 DTSBN581
|
||||
00111 EJECT DTSBN581
|
||||
00112 01 MSKL-REC. CL109
|
||||
00113 ++INCLUDE DTSIMSKL CL109
|
||||
00114 EJECT CL109
|
||||
00115 01 FSKL-REC. DTSBN581
|
||||
00116 ++INCLUDE DTSIFSKL DTSBN581
|
||||
00117 EJECT DTSBN581
|
||||
00118 01 F581-REC. CL*99
|
||||
00119 ++INCLUDE DTSIF581 CL100
|
||||
00120 EJECT DTSBN581
|
||||
00121 01 MHDR-REC. CL100
|
||||
00122 ++INCLUDE DTSIMHDR CL100
|
||||
00123 EJECT CL*98
|
||||
00124 01 L910-LINK-AREA. CL114
|
||||
00125 ++INCLUDE DTSIL910 CL114
|
||||
00126 EJECT CL114
|
||||
00127 PROCEDURE DIVISION. DTSBN581
|
||||
00128 SKIP2 DTSBN581
|
||||
00129 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBN581
|
||||
00130 DTSBN581
|
||||
00131 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBN581
|
||||
00132 DTSBN581
|
||||
00133 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBN581
|
||||
00134 SKIP2 DTSBN581
|
||||
00135 GOBACK. DTSBN581
|
||||
00136 EJECT DTSBN581
|
||||
00137 I0000-INITIATE. DTSBN581
|
||||
00138 MOVE 'N' TO L931-TRACE-IND. DTSBN581
|
||||
00139 DTSBN581
|
||||
00140 MOVE WRK-MOD-NAME TO L931-MOD-NAME. DTSBN581
|
||||
00141 DTSBN581
|
||||
00142 OPEN OUTPUT OUT-FILE. CL*60
|
||||
00143 CL*59
|
||||
00144 I0000-EXIT. DTSBN581
|
||||
00145 EXIT. DTSBN581
|
||||
00146 EJECT DTSBN581
|
||||
00147 P0000-PROCESS. DTSBN581
|
||||
00148 * MOVE LOW-VALUES TO F581-REC. CL**2
|
||||
00149 DTSBN581
|
||||
00150 SET F581-581-88 TO TRUE. DTSBN581
|
||||
00151 DTSBN581
|
||||
00152 MOVE 20251 TO F581-YRQ. CL230
|
||||
00153 DTSBN581
|
||||
00154 DTSBN581
|
||||
00155 MOVE F581-KEY-AREA TO FSKL-KEY-AREA. DTSBN581
|
||||
00156 SET L931-OPEN-READ-88 TO TRUE. CL*75
|
||||
00157 PERFORM S931-REFERENCE-FILE-I-O THRU S931R-EXIT. CL*79
|
||||
00158 IF L931-NO-REC-88 DTSBN581
|
||||
00159 * PERFORM S931-WRITE THRU S931-EXIT CL**2
|
||||
00160 DISPLAY ' 581 REC NOT FOUND ' F581-KEY-AREA CL**2
|
||||
00161 ELSE DTSBN581
|
||||
00162 DISPLAY ' 581 REC FOUND ' F581-YRQ. CL*77
|
||||
00163 PERFORM S931-READ THRU S931-EXIT. CL*77
|
||||
00164 MOVE FSKL-REC TO F581-REC. CL**2
|
||||
00165 CL**9
|
||||
00166 PERFORM P19951-NUMBERS THRU P19951-EXIT. CL*83
|
||||
00167 CL*10
|
||||
00168 * MOVE 20141118 TO F581-CHNG-DATE. CL*29
|
||||
00169 * F581-ESTB-DATE. CL*10
|
||||
00170 CL*10
|
||||
00171 MOVE F581-MANDATORY-XFER-CNT TO WRK-INT-NAME. CL*51
|
||||
00172 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00173 CL*96
|
||||
00174 MOVE F581-PROHIBITED-XFER-CNT TO WRK-INT-NAME. CL*62
|
||||
00175 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00176 CL*96
|
||||
00177 MOVE F581-SUTA-CONTRIB-DUE TO WRK-INT-NAME. CL*51
|
||||
00178 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00179 CL196
|
||||
00180 MOVE '000' TO WRK-INT-NAME. CL196
|
||||
00181 WRITE OUT-REC FROM WRK-INT-NAME. CL196
|
||||
00182 CL*96
|
||||
00183 MOVE '000' TO WRK-INT-NAME. CL196
|
||||
00184 WRITE OUT-REC FROM WRK-INT-NAME. CL196
|
||||
00185 CL196
|
||||
00186 MOVE '000' TO WRK-INT-NAME. CL196
|
||||
00187 WRITE OUT-REC FROM WRK-INT-NAME. CL196
|
||||
00188 CL196
|
||||
00189 ** MOVE F581-REC TO FSKL-REC. CL*51
|
||||
00190 ** PERFORM S931-REWRITE THRU S931-EXIT. CL*51
|
||||
00191 P0000-EXIT. DTSBN581
|
||||
00192 EXIT. DTSBN581
|
||||
00193 EJECT DTSBN581
|
||||
00194 P19951-NUMBERS. DTSBN581
|
||||
00195 * MOVE 19990701 TO F581-PERIOD-BEGIN-DATE. CL*25
|
||||
00196 * MOVE 19990930 TO F581-PERIOD-END-DATE. CL*25
|
||||
00197 CL*95
|
||||
00198 ** MOVE 'DC' TO WRK-CHR-NAME. CL131
|
||||
00199 ** WRITE OUT-REC FROM WRK-CHR-NAME AFTER ADVANCING 1 LINE. CL131
|
||||
00200 PERFORM P1500-READ-HEADER. CL102
|
||||
00201 ** MOVE ZERO TO WRK-INT-NAME. CL129
|
||||
00202 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL129
|
||||
00203 ** MOVE ZERO TO WRK-INT-NAME. CL129
|
||||
00204 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL129
|
||||
00205 ** MOVE ZERO TO WRK-INT-NAME. CL129
|
||||
00206 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL129
|
||||
00207 ** MOVE ZERO TO WRK-INT-NAME. CL129
|
||||
00208 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL129
|
||||
00209 ** MOVE ZERO TO WRK-INT-NAME. CL129
|
||||
00210 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL129
|
||||
00211 ** MOVE ZERO TO WRK-INT-NAME. CL129
|
||||
00212 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL129
|
||||
00213 ** MOVE ZERO TO WRK-INT-NAME. CL129
|
||||
00214 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL129
|
||||
00215 ** MOVE ZERO TO WRK-INT-NAME. CL129
|
||||
00216 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL129
|
||||
00217 ** MOVE ZERO TO WRK-INT-NAME. CL129
|
||||
00218 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL129
|
||||
00219 CL220
|
||||
00220 MOVE F581-CON-EMP-CNT TO WRK-INT-NAME. CL*51
|
||||
00221 WRITE OUT-REC FROM WRK-INT-NAME. CL192
|
||||
00222 CL*95
|
||||
00223 MOVE F581-REIMB-EMP-CNT TO WRK-INT-NAME. CL*51
|
||||
00224 WRITE OUT-REC FROM WRK-INT-NAME. CL192
|
||||
00225 CL*95
|
||||
00226 MOVE F581-TOTAL-EMP-CNT TO WRK-INT-NAME. CL*51
|
||||
00227 WRITE OUT-REC FROM WRK-INT-NAME. CL192
|
||||
00228 DTSBN581
|
||||
00229 MOVE F581-DEL-CUTOFF-DATE TO WRK-DATE-NAME. CL*85
|
||||
00230 MOVE WRK-DATE-NAME(2:4) TO WRK-DT-YEAR. CL149
|
||||
00231 MOVE WRK-DATE-NAME(6:2) TO WRK-DT-MTH. CL149
|
||||
00232 MOVE WRK-DATE-NAME(8:2) TO WRK-DT-DAY. CL149
|
||||
00233 MOVE WRK-DATE-NAM TO WRK-DATE-NAME. CL150
|
||||
00234 WRITE OUT-REC FROM WRK-DATE-NAME. CL194
|
||||
00235 CL*85
|
||||
00236 MOVE F581-NEW-DETERM-CNT TO WRK-INT-NAME. CL151
|
||||
00237 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00238 CL151
|
||||
00239 MOVE '000' TO WRK-INT-NAME. CL151
|
||||
00240 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00241 CL151
|
||||
00242 MOVE '000' TO WRK-INT-NAME. CL151
|
||||
00243 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00244 CL151
|
||||
00245 COMPUTE WS-CON-RECVBL-BEG-PERIOD ROUNDED CL198
|
||||
00246 = F581-CON-RECVBL-BEG-PERIOD. CL198
|
||||
00247 MOVE WS-CON-RECVBL-BEG-PERIOD TO WRK-INT-NAME. CL198
|
||||
00248 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00249 CL151
|
||||
00250 MOVE F581-WAGE-ITEM-RCVD-CNT TO WRK-INT-NAME. CL131
|
||||
00251 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00252 CL131
|
||||
00253 COMPUTE WS-CON-RECVBL-LIQUID ROUNDED CL225
|
||||
00254 = F581-CON-RECVBL-LIQUID. CL225
|
||||
00255 CL225
|
||||
00256 COMPUTE WS-CON-RECVBL-REMOVED ROUNDED CL225
|
||||
00257 = F581-CON-RECVBL-REMOVED. CL225
|
||||
00258 CL225
|
||||
00259 COMPUTE WS-CON-RECVBL-END-PERIOD ROUNDED CL225
|
||||
00260 = F581-CON-RECVBL-END-PERIOD. CL225
|
||||
00261 CL225
|
||||
00262 COMPUTE WS-CON-RECVBL-UNCOLLECT ROUNDED CL225
|
||||
00263 = F581-CON-RECVBL-UNCOLLECT. CL225
|
||||
00264 CL225
|
||||
00265 * COMPUTE WS-CON-RECVBL-DETERM ROUNDED CL225
|
||||
00266 * = F581-CON-RECVBL-DETERM. CL225
|
||||
00267 COMPUTE WS-CON-RECVBL-DETERM CL225
|
||||
00268 = WS-CON-RECVBL-LIQUID + WS-CON-RECVBL-UNCOLLECT CL225
|
||||
00269 + WS-CON-RECVBL-REMOVED + WS-CON-RECVBL-END-PERIOD CL225
|
||||
00270 - WS-CON-RECVBL-BEG-PERIOD. CL225
|
||||
00271 CL225
|
||||
00272 MOVE WS-CON-RECVBL-DETERM TO WRK-INT-NAME. CL210
|
||||
00273 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00274 CL151
|
||||
00275 MOVE WS-CON-RECVBL-LIQUID TO WRK-INT-NAME. CL203
|
||||
00276 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00277 CL151
|
||||
00278 MOVE '000' TO WRK-INT-NAME. CL151
|
||||
00279 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00280 CL151
|
||||
00281 MOVE WS-CON-RECVBL-END-PERIOD TO WRK-INT-NAME. CL204
|
||||
00282 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00283 CL151
|
||||
00284 COMPUTE WS-REIMB-RECVBL-BEG-PERIOD ROUNDED CL206
|
||||
00285 = F581-REIMB-RECVBL-BEG-PERIOD. CL206
|
||||
00286 MOVE WS-REIMB-RECVBL-BEG-PERIOD TO WRK-INT-NAME. CL206
|
||||
00287 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00288 CL151
|
||||
00289 MOVE F581-CON-RECVBL-EMP-CNT TO WRK-INT-NAME. CL151
|
||||
00290 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00291 CL151
|
||||
00292 COMPUTE WS-REIMB-RECVBL-LIQUID ROUNDED CL225
|
||||
00293 = F581-REIMB-RECVBL-LIQUID. CL225
|
||||
00294 CL225
|
||||
00295 COMPUTE WS-REIMB-RECVBL-REMOVED ROUNDED CL225
|
||||
00296 = F581-REIMB-RECVBL-REMOVED. CL225
|
||||
00297 CL225
|
||||
00298 COMPUTE WS-REIMB-RECVBL-END-PERIOD ROUNDED CL225
|
||||
00299 = F581-REIMB-RECVBL-END-PERIOD. CL225
|
||||
00300 CL225
|
||||
00301 COMPUTE WS-REIMB-RECVBL-UNCOLLECT ROUNDED CL225
|
||||
00302 = F581-REIMB-RECVBL-UNCOLLECT. CL225
|
||||
00303 CL225
|
||||
00304 * COMPUTE WS-REIMB-RECVBL-DETERM ROUNDED CL225
|
||||
00305 * = F581-REIMB-RECVBL-DETERM. CL225
|
||||
00306 CL225
|
||||
00307 COMPUTE WS-REIMB-RECVBL-DETERM CL225
|
||||
00308 = WS-REIMB-RECVBL-LIQUID + WS-REIMB-RECVBL-UNCOLLECT CL225
|
||||
00309 + WS-REIMB-RECVBL-REMOVED + WS-REIMB-RECVBL-END-PERIOD CL225
|
||||
00310 - WS-REIMB-RECVBL-BEG-PERIOD. CL225
|
||||
00311 CL225
|
||||
00312 MOVE WS-REIMB-RECVBL-DETERM TO WRK-INT-NAME. CL210
|
||||
00313 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00314 CL151
|
||||
00315 MOVE WS-REIMB-RECVBL-LIQUID TO WRK-INT-NAME. CL206
|
||||
00316 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00317 CL151
|
||||
00318 MOVE '000' TO WRK-INT-NAME. CL151
|
||||
00319 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00320 CL151
|
||||
00321 MOVE WS-REIMB-RECVBL-END-PERIOD TO WRK-INT-NAME. CL206
|
||||
00322 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00323 CL151
|
||||
00324 MOVE F581-REIMB-RECVBL-EMP-CNT TO WRK-INT-NAME. CL151
|
||||
00325 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00326 CL151
|
||||
00327 MOVE F581-AUDIT-TOT-EMP-CNT TO WRK-INT-NAME. CL151
|
||||
00328 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00329 CL151
|
||||
00330 MOVE F581-AUDIT-LARGE-EMP-CNT TO WRK-INT-NAME. CL151
|
||||
00331 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00332 CL151
|
||||
00333 MOVE F581-AUDIT-QTR-CNT TO WRK-INT-NAME. CL151
|
||||
00334 WRITE OUT-REC FROM WRK-INT-NAME. CL194
|
||||
00335 CL151
|
||||
00336 MOVE F581-AUDIT-CHANGE-CNT TO WRK-INT-NAME. CL151
|
||||
00337 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00338 CL151
|
||||
00339 MOVE F581-AUDIT-HOURS-CNT TO WRK-INT-NAME. CL217
|
||||
00340 WRITE OUT-REC FROM WRK-INT-NAME. CL217
|
||||
00341 CL151
|
||||
00342 COMPUTE WS-AUDIT-UNDERRPT-TOT-WAGES ROUNDED CL206
|
||||
00343 = F581-AUDIT-UNDERRPT-TOT-WAGES. CL206
|
||||
00344 MOVE WS-AUDIT-UNDERRPT-TOT-WAGES TO WRK-INT-NAME CL206
|
||||
00345 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00346 CL151
|
||||
00347 COMPUTE WS-AUDIT-UNDERRPT-TAX-WAGES ROUNDED CL206
|
||||
00348 = F581-AUDIT-UNDERRPT-TAX-WAGES. CL206
|
||||
00349 MOVE WS-AUDIT-UNDERRPT-TAX-WAGES TO WRK-INT-NAME. CL217
|
||||
00350 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00351 CL151
|
||||
00352 COMPUTE WS-AUDIT-UNDERRPT-CONTRIB ROUNDED CL206
|
||||
00353 = F581-AUDIT-UNDERRPT-CONTRIB. CL206
|
||||
00354 MOVE WS-AUDIT-UNDERRPT-CONTRIB TO WRK-INT-NAME. CL206
|
||||
00355 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00356 CL151
|
||||
00357 COMPUTE WS-AUDIT-OVERRPT-TOT-WAGES ROUNDED CL206
|
||||
00358 = F581-AUDIT-OVERRPT-TOT-WAGES. CL206
|
||||
00359 MOVE WS-AUDIT-OVERRPT-TOT-WAGES TO WRK-INT-NAME. CL206
|
||||
00360 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00361 CL151
|
||||
00362 COMPUTE WS-AUDIT-OVERRPT-TAX-WAGES ROUNDED CL206
|
||||
00363 = F581-AUDIT-OVERRPT-TAX-WAGES. CL206
|
||||
00364 MOVE WS-AUDIT-OVERRPT-TAX-WAGES TO WRK-INT-NAME. CL206
|
||||
00365 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00366 CL151
|
||||
00367 COMPUTE WS-AUDIT-OVERRPT-CONTRIB ROUNDED CL206
|
||||
00368 = F581-AUDIT-OVERRPT-CONTRIB. CL206
|
||||
00369 MOVE WS-AUDIT-OVERRPT-CONTRIB TO WRK-INT-NAME. CL206
|
||||
00370 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00371 CL223
|
||||
00372 COMPUTE WS-CON-RECVBL-9-MOS ROUNDED CL223
|
||||
00373 = F581-CON-RECVBL-9-MOS. CL223
|
||||
00374 CL223
|
||||
00375 COMPUTE WS-CON-RECVBL-12-MOS ROUNDED CL223
|
||||
00376 = F581-CON-RECVBL-12-MOS. CL223
|
||||
00377 CL223
|
||||
00378 COMPUTE WS-CON-RECVBL-15-MOS ROUNDED CL223
|
||||
00379 = F581-CON-RECVBL-15-MOS. CL223
|
||||
00380 CL223
|
||||
00381 COMPUTE WS-CON-RECVBL-OVER15-MOS ROUNDED CL223
|
||||
00382 = F581-CON-RECVBL-OVER15-MOS. CL223
|
||||
00383 CL223
|
||||
00384 COMPUTE WS-CON-RECVBL-6-MOS CL223
|
||||
00385 = WS-CON-RECVBL-END-PERIOD - WS-CON-RECVBL-9-MOS CL223
|
||||
00386 - WS-CON-RECVBL-12-MOS - WS-CON-RECVBL-15-MOS CL223
|
||||
00387 - WS-CON-RECVBL-OVER15-MOS. CL223
|
||||
00388 MOVE WS-CON-RECVBL-6-MOS TO WRK-INT-NAME. CL210
|
||||
00389 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00390 CL151
|
||||
00391 MOVE WS-CON-RECVBL-9-MOS TO WRK-INT-NAME. CL206
|
||||
00392 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00393 CL151
|
||||
00394 MOVE WS-CON-RECVBL-12-MOS TO WRK-INT-NAME. CL206
|
||||
00395 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00396 CL151
|
||||
00397 MOVE WS-CON-RECVBL-15-MOS TO WRK-INT-NAME. CL206
|
||||
00398 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00399 CL151
|
||||
00400 MOVE WS-CON-RECVBL-OVER15-MOS TO WRK-INT-NAME. CL206
|
||||
00401 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00402 CL151
|
||||
00403 COMPUTE WS-REIMB-RECVBL-9-MOS ROUNDED CL225
|
||||
00404 = F581-REIMB-RECVBL-9-MOS. CL225
|
||||
00405 CL225
|
||||
00406 COMPUTE WS-REIMB-RECVBL-12-MOS ROUNDED CL225
|
||||
00407 = F581-REIMB-RECVBL-12-MOS. CL225
|
||||
00408 CL225
|
||||
00409 COMPUTE WS-REIMB-RECVBL-15-MOS ROUNDED CL225
|
||||
00410 = F581-REIMB-RECVBL-15-MOS. CL225
|
||||
00411 CL225
|
||||
00412 COMPUTE WS-REIMB-RECVBL-OVER15-MOS ROUNDED CL225
|
||||
00413 = F581-REIMB-RECVBL-OVER15-MOS. CL225
|
||||
00414 CL225
|
||||
00415 COMPUTE WS-REIMB-RECVBL-6-MOS CL225
|
||||
00416 = WS-REIMB-RECVBL-END-PERIOD - WS-REIMB-RECVBL-9-MOS CL225
|
||||
00417 - WS-REIMB-RECVBL-12-MOS - WS-REIMB-RECVBL-15-MOS CL225
|
||||
00418 - WS-REIMB-RECVBL-OVER15-MOS. CL225
|
||||
00419 CL225
|
||||
00420 MOVE WS-REIMB-RECVBL-6-MOS TO WRK-INT-NAME. CL210
|
||||
00421 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00422 CL151
|
||||
00423 MOVE WS-REIMB-RECVBL-9-MOS TO WRK-INT-NAME. CL207
|
||||
00424 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00425 CL151
|
||||
00426 MOVE WS-REIMB-RECVBL-12-MOS TO WRK-INT-NAME. CL207
|
||||
00427 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00428 CL151
|
||||
00429 MOVE WS-REIMB-RECVBL-15-MOS TO WRK-INT-NAME. CL207
|
||||
00430 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00431 CL151
|
||||
00432 MOVE WS-REIMB-RECVBL-OVER15-MOS TO WRK-INT-NAME. CL207
|
||||
00433 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00434 CL151
|
||||
00435 MOVE F581-CON-TIMELY-CNT TO WRK-INT-NAME. CL132
|
||||
00436 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00437 CL132
|
||||
00438 MOVE F581-CON-SECURED-CNT TO WRK-INT-NAME. CL132
|
||||
00439 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00440 CL132
|
||||
00441 MOVE F581-CON-RESOLVED-CNT TO WRK-INT-NAME. CL132
|
||||
00442 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00443 CL132
|
||||
00444 MOVE F581-REIMB-TIMELY-CNT TO WRK-INT-NAME. CL132
|
||||
00445 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00446 CL132
|
||||
00447 MOVE F581-REIMB-SECURED-CNT TO WRK-INT-NAME. CL132
|
||||
00448 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00449 CL132
|
||||
00450 MOVE F581-REIMB-RESOLVED-CNT TO WRK-INT-NAME. CL132
|
||||
00451 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00452 CL133
|
||||
00453 MOVE F581-SUC-DETERM-T90-CNT TO WRK-INT-NAME. CL151
|
||||
00454 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00455 CL151
|
||||
00456 MOVE F581-SUC-DETERM-T180-CNT TO WRK-INT-NAME. CL151
|
||||
00457 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00458 CL*85
|
||||
00459 MOVE F581-NEW-DETERM-T90-CNT TO WRK-INT-NAME. CL133
|
||||
00460 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00461 CL133
|
||||
00462 MOVE F581-NEW-DETERM-T180-CNT TO WRK-INT-NAME. CL133
|
||||
00463 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00464 CL133
|
||||
00465 MOVE F581-TERMINATION-CNT TO WRK-INT-NAME. CL151
|
||||
00466 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00467 CL151
|
||||
00468 MOVE WS-CON-RECVBL-REMOVED TO WRK-INT-NAME. CL207
|
||||
00469 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00470 CL151
|
||||
00471 MOVE WS-REIMB-RECVBL-REMOVED TO WRK-INT-NAME. CL207
|
||||
00472 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00473 CL151
|
||||
00474 COMPUTE WS-AUDIT-TOT-WAGES-PRE ROUNDED CL207
|
||||
00475 = F581-AUDIT-TOT-WAGES-PRE. CL207
|
||||
00476 MOVE WS-AUDIT-TOT-WAGES-PRE TO WRK-INT-NAME. CL207
|
||||
00477 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00478 CL151
|
||||
00479 COMPUTE WS-AUDIT-TOT-WAGES-POST CL225
|
||||
00480 = WS-AUDIT-TOT-WAGES-PRE CL225
|
||||
00481 + WS-AUDIT-UNDERRPT-TOT-WAGES CL225
|
||||
00482 - WS-AUDIT-OVERRPT-TOT-WAGES. CL225
|
||||
00483 CL225
|
||||
00484 MOVE WS-AUDIT-TOT-WAGES-POST TO WRK-INT-NAME. CL211
|
||||
00485 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00486 CL151
|
||||
00487 MOVE F581-SUC-DETERM-CNT TO WRK-INT-NAME. CL151
|
||||
00488 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00489 CL151
|
||||
00490 MOVE F581-AUDIT-INDCON-TO-EMPL-CNT TO WRK-INT-NAME. CL151
|
||||
00491 WRITE OUT-REC FROM WRK-INT-NAME. CL195
|
||||
00492 CL151
|
||||
00493 ** MOVE F581-REIMB-RECVBL-UNCOLLECT TO WRK-INT-NAME. CL151
|
||||
00494 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL151
|
||||
00495 CL151
|
||||
00496 ** MOVE F581-CON-RECVBL-UNCOLLECT TO WRK-INT-NAME. CL151
|
||||
00497 ** WRITE OUT-REC FROM WRK-INT-NAME AFTER ADVANCING 1 LINE. CL151
|
||||
00498 CL*85
|
||||
00499 CL*86
|
||||
00500 * MOVE 19991225 TO F581-ESTB-DATE CL*26
|
||||
00501 * F581-CHNG-DATE. CL*26
|
||||
00502 P19951-EXIT. CL103
|
||||
00503 EXIT. CL103
|
||||
00504 EJECT CL103
|
||||
00505 P1500-READ-HEADER. CL107
|
||||
00506 CL118
|
||||
00507 MOVE F581-YRQ TO WRK-YRQ. CL118
|
||||
00508 CL121
|
||||
00509 MOVE WRK-YRQ(1:4) TO WRK-YEAR. CL122
|
||||
00510 CL122
|
||||
00511 IF WRK-YRQ(5:1) = '1' CL122
|
||||
00512 MOVE '03/31' TO WRK-MONTH CL130
|
||||
00513 ELSE CL122
|
||||
00514 IF WRK-YRQ(5:1) = '2' CL122
|
||||
00515 MOVE '06/30' TO WRK-MONTH CL130
|
||||
00516 ELSE CL122
|
||||
00517 IF WRK-YRQ(5:1) = '3' CL122
|
||||
00518 MOVE '09/30' TO WRK-MONTH CL130
|
||||
00519 ELSE CL122
|
||||
00520 MOVE '12/31' TO WRK-MONTH CL130
|
||||
00521 END-IF. CL122
|
||||
00522 CL102
|
||||
00523 MOVE WRK-QTR TO WRK-DATE-NAME. CL122
|
||||
00524 DISPLAY WRK-DATE-NAME. CL111
|
||||
00525 WRITE OUT-REC FROM WRK-DATE-NAME. CL195
|
||||
00526 * WRITE OUT-REC FROM WRK-DATE-NAME AFTER ADVANCING 1 LINE. CL195
|
||||
00527 T0000-TERMINATE. DTSBN581
|
||||
00528 PERFORM S931-CLOSE THRU S931-EXIT. DTSBN581
|
||||
00529 T0000-EXIT. DTSBN581
|
||||
00530 EXIT. DTSBN581
|
||||
00531 EJECT DTSBN581
|
||||
00532 S931-REFERENCE-FILE-I-O. CL*76
|
||||
00533 CL*76
|
||||
00534 CALL 'DTSBU931' USING L931-LINK-AREA CL*76
|
||||
00535 FSKL-REC. CL*76
|
||||
00536 CL*76
|
||||
00537 S931R-EXIT. CL*78
|
||||
00538 EXIT. CL*76
|
||||
00539 CL*76
|
||||
00540 S910-READ. CL116
|
||||
00541 SET L910-READ-88 TO TRUE. CL116
|
||||
00542 GO TO S910-MSTR-IO. CL116
|
||||
00543 SKIP1 CL116
|
||||
00544 S910-MSTR-IO. CL116
|
||||
00545 CALL 'DTSBU910' USING L910-LINK-AREA CL116
|
||||
00546 MSKL-REC. CL116
|
||||
00547 S910-EXIT. CL116
|
||||
00548 EXIT. CL116
|
||||
00549 SKIP3 CL116
|
||||
00550 S931-OPEN-UPDATE. DTSBN581
|
||||
00551 SET L931-OPEN-UPDATE-88 TO TRUE. DTSBN581
|
||||
00552 GO TO S931-MSTR-CALL. DTSBN581
|
||||
00553 DTSBN581
|
||||
00554 S931-CLOSE. DTSBN581
|
||||
00555 SET L931-CLOSE-88 TO TRUE. DTSBN581
|
||||
00556 GO TO S931-MSTR-CALL. DTSBN581
|
||||
00557 DTSBN581
|
||||
00558 S931-READ. DTSBN581
|
||||
00559 SET L931-READ-88 TO TRUE. DTSBN581
|
||||
00560 GO TO S931-MSTR-CALL. DTSBN581
|
||||
00561 DTSBN581
|
||||
00562 S931-START-BROWSE. DTSBN581
|
||||
00563 SET L931-START-BROWSE-88 TO TRUE. DTSBN581
|
||||
00564 GO TO S931-MSTR-CALL. DTSBN581
|
||||
00565 DTSBN581
|
||||
00566 S931-READ-NEXT. DTSBN581
|
||||
00567 SET L931-READ-NEXT-88 TO TRUE. DTSBN581
|
||||
00568 GO TO S931-MSTR-CALL. DTSBN581
|
||||
00569 DTSBN581
|
||||
00570 S931-WRITE. DTSBN581
|
||||
00571 SET L931-WRITE-88 TO TRUE. DTSBN581
|
||||
00572 GO TO S931-MSTR-CALL. DTSBN581
|
||||
00573 DTSBN581
|
||||
00574 S931-REWRITE. DTSBN581
|
||||
00575 SET L931-REWRITE-88 TO TRUE. DTSBN581
|
||||
00576 GO TO S931-MSTR-CALL. DTSBN581
|
||||
00577 DTSBN581
|
||||
00578 S931-DELETE. DTSBN581
|
||||
00579 SET L931-DELETE-88 TO TRUE. DTSBN581
|
||||
00580 GO TO S931-MSTR-CALL. DTSBN581
|
||||
00581 DTSBN581
|
||||
00582 S931-MSTR-CALL. DTSBN581
|
||||
00583 CALL 'DTSBU931' USING L931-LINK-AREA DTSBN581
|
||||
00584 FSKL-REC. DTSBN581
|
||||
00585 S931-EXIT. DTSBN581
|
||||
00586 EXIT. DTSBN581
|
||||
00587 SKIP3 DTSBN581
|
||||
00588 S999-ABEND. DTSBN581
|
||||
00589 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBN581
|
||||
00590 S999-EXIT. DTSBN581
|
||||
00591 EXIT. DTSBN581
|
||||
Reference in New Issue
Block a user