839 lines
66 KiB
COBOL
839 lines
66 KiB
COBOL
00001 IDENTIFICATION DIVISION. 10/08/13
|
|
00002 PROGRAM-ID. DTSBR713. DTSBR713
|
|
00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV073
|
|
00004 DATE-WRITTEN. NOVEMBER 1994. DTSBR713
|
|
00005 DATE-COMPILED. DTSBR713
|
|
00006 SKIP3 DTSBR713
|
|
00007 ***** DTSBR713
|
|
00008 * DTSBR713
|
|
00009 * FUNCTION: ETA-581 ITEM REPORT/EXPORT. DTSBR713
|
|
00010 * DTSBR713
|
|
00011 * DTSBR713
|
|
00012 * MODIFICATION HISTORY: DTSBR713
|
|
00013 * DTSBR713
|
|
00014 * 11-26-94 INITIAL DEVELOPMENT DTSBR713
|
|
00015 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR713
|
|
00016 * DTSBR713
|
|
00017 * 04-03-95 WRITE OF HEADER RECORD COMMENTED OUT PER TPR 017 DTSBR713
|
|
00018 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR713
|
|
00019 * DTSBR713
|
|
00020 * 04-07-95 RECOMPILED FOR R991-UNIT-DSCR PER CHANGE REQUEST 064 DTSBR713
|
|
00021 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR713
|
|
00022 * DTSBR713
|
|
00023 * 09-11-95 CORRECTION TO MONEY AMOUNTS IN ACCOUNTS RECEIVABLE DTSBR713
|
|
00024 * AREA TO ROUND TO WHOLE DOLLARS DTSBR713
|
|
00025 * REFERENCE RFP #NONE AUTHOR OF CHANGE - SFW DTSBR713
|
|
00026 * DTSBR713
|
|
00027 * 03-05-96 CORRECTED REMAINING MONEY AMOUNTS AS ABOVE DTSBR713
|
|
00028 * REFERENCE RFP #NONE AUTHOR OF CHANGE - SFW DTSBR713
|
|
00029 * DTSBR713
|
|
00030 * 02-25-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS. DTSBR713
|
|
00031 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR713
|
|
00032 * DTSBR713
|
|
00033 * 07-20-1999 MODIFIED TO INCLUDE THE XEROX LASER PRINTER DTSBR713
|
|
00034 * LAYOUT TO GENERATE ETA-581 FORM DTSBR713
|
|
00035 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR713
|
|
00036 * DTSBR713
|
|
00037 * 12/13/1999 REVIEWED AND A FEW MINOR CORRECTIONS MADE. DTSBR713
|
|
00038 * REFERENCE: VERBAL REQUEST FROM GIL PROGRAMMER: EHH DTSBR713
|
|
00039 * DTSBR713
|
|
00040 * DTSBR713
|
|
00041 * 03/09/2000 MODIFIED TO INCLUDE NEW DOL FIELD REQUEST. DTSBR713
|
|
00042 * REFERENCE: DOL ETA581 FIELD (52) PROGRAMMER: ZL1 DTSBR713
|
|
00043 * DTSBR713
|
|
00044 * 10/01/2010 MODIFIED TO ADD WAGE ITEM COUNT (ITEM 5). DTSBR713
|
|
00045 * REFERENCE: PROGRAMMER: GD DTSBR713
|
|
00046 * DTSBR713
|
|
00047 * DTSBR713
|
|
00048 * 03/21/2011 MODIFIED TO ADD SUTA DUMPING FIELDS 60,61, AND 62 DTSBR713
|
|
00049 * REMOVE FIELDS 12, AND 13 NOT REQUIRED BY DOL DTSBR713
|
|
00050 * REFERENCE: PROGRAMMER: ZL1 DTSBR713
|
|
00051 * DTSBR713
|
|
00052 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR713
|
|
00053 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR713
|
|
00054 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR713
|
|
00055 * DTSBR713
|
|
00056 * DTSBR713
|
|
00057 * DESCRIPTION: DTSBR713
|
|
00058 * DTSBR713
|
|
00059 * THIS MODULE PRODUCES AN EXPORT FOR DOWNLOAD TO A PC DTSBR713
|
|
00060 * OF THE DATA ELEMENTS NECESSARY FOR THE FEDERALLY MAN- DTSBR713
|
|
00061 * DATED ETA-581 REPORT ON "CONTRIBUTIONS OPERATIONS" ALONG DTSBR713
|
|
00062 * WITH AN ETA-581 FORM. DTSBR713
|
|
00063 * DTSBR713
|
|
00064 * THIS IS AN "AT LEAST ONCE" MODULE. DTSBR713
|
|
00065 * DTSBR713
|
|
00066 * DTSBR713
|
|
00067 * RECORDS READ: DTSBR713
|
|
00068 * DTSBR713
|
|
00069 * NONE. DTSBR713
|
|
00070 * DTSBR713
|
|
00071 * DTSBR713
|
|
00072 * PRINTED OUTPUTS: DTSBR713
|
|
00073 * DTSBR713
|
|
00074 * NONE. DTSBR713
|
|
00075 * DTSBR713
|
|
00076 * DTSBR713
|
|
00077 * RECORDS WRITTEN: DTSBR713
|
|
00078 * DTSBR713
|
|
00079 * 713R1 ETA-581 DATA ELEMENTS EXPORT DTSBR713
|
|
00080 * DTSBR713
|
|
00081 * DTSBR713
|
|
00082 * MODULES CALLED: DTSBR713
|
|
00083 * DTSBR713
|
|
00084 * DTSBR991 EXPORT CONTROL REPORT MODULE DTSBR713
|
|
00085 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR713
|
|
00086 * DTSBU004 QUARTER CONVERSION MODULE DTSBR713
|
|
00087 * DTSBU143 VARIABLE LENGTH RECORD CONSTRUCTION MODULE DTSBR713
|
|
00088 * DTSBU931 REFERENCE FILE I-O MODULE DTSBR713
|
|
00089 * DTSBR713
|
|
00090 * DTSBR713
|
|
00091 ***** DTSBR713
|
|
00092 EJECT DTSBR713
|
|
00093 ENVIRONMENT DIVISION. DTSBR713
|
|
00094 SKIP2 DTSBR713
|
|
00095 INPUT-OUTPUT SECTION. DTSBR713
|
|
00096 SKIP1 DTSBR713
|
|
00097 FILE-CONTROL. DTSBR713
|
|
00098 SELECT EXPORT-FILE ASSIGN TO RPT713R1 DTSBR713
|
|
00099 FILE STATUS IS WS-FILE-STATUS. DTSBR713
|
|
00100 SELECT PRT-FILE ASSIGN TO RPT713R2. DTSBR713
|
|
00101 SKIP3 DTSBR713
|
|
00102 DATA DIVISION. DTSBR713
|
|
00103 SKIP3 DTSBR713
|
|
00104 FILE SECTION. DTSBR713
|
|
00105 SKIP2 DTSBR713
|
|
00106 FD PRT-FILE DTSBR713
|
|
00107 LABEL RECORDS ARE OMITTED DTSBR713
|
|
00108 RECORD CONTAINS 133 CHARACTERS DTSBR713
|
|
00109 DATA RECORD IS REPORT-REC DTSBR713
|
|
00110 RECORDING MODE IS F. DTSBR713
|
|
00111 01 REPORT-REC PIC X(133). DTSBR713
|
|
00112 SKIP3 DTSBR713
|
|
00113 FD EXPORT-FILE DTSBR713
|
|
00114 RECORDING MODE IS V DTSBR713
|
|
00115 BLOCK CONTAINS 0 RECORDS. DTSBR713
|
|
00116 01 EXPORT-REC. DTSBR713
|
|
00117 05 RVAR-CHAR OCCURS 1 TO 4099 TIMES DTSBR713
|
|
00118 DEPENDING ON WS-VAR-CHAR-CNT DTSBR713
|
|
00119 PIC X(01). DTSBR713
|
|
00120 EJECT DTSBR713
|
|
00121 WORKING-STORAGE SECTION. DTSBR713
|
|
001215 77 PAN-VALET PICTURE X(24) VALUE '073DTSBR713 10/08/13'. DTSBR713
|
|
00122 77 PAN-VALET PICTURE X(24) VALUE '004DTSBR713 10/03/13'. DTSBR713
|
|
00123 77 PAN-VALET PICTURE X(24) VALUE '070DTSBR713 04/02/13'. DTSBR713
|
|
00124 SKIP3 DTSBR713
|
|
00125 01 WRK-AREA. DTSBR713
|
|
00126 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +713.DTSBR713
|
|
00127 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR713
|
|
00128 05 WS-FILE-STATUS PIC X(02). DTSBR713
|
|
00129 88 FILE-OK-88 VALUE '00'. DTSBR713
|
|
00130 05 WS-VAR-CHAR-CNT PIC S9(04) COMP. DTSBR713
|
|
00131 05 WS-SUB PIC S9(04) COMP. DTSBR713
|
|
00132 05 WS-SUB-EDIT PIC Z9. DTSBR713
|
|
00133 05 WS-YRQ-EDIT PIC 9(05). DTSBR713
|
|
00134 05 WS-DATE-EDIT PIC 9(06). DTSBR713
|
|
00135 05 WS-CNT-EDIT-7 PIC 9(07). DTSBR713
|
|
00136 05 WS-CNT-EDIT-9 PIC 9(09). DTSBR713
|
|
00137 05 WS-AUDIT-HOURS-EDIT PIC 9(08).9. DTSBR713
|
|
00138 05 WS-AMT-EDIT PIC 9(11).99-. DTSBR713
|
|
00139 05 WS-AMT-EDIT-WHOLE PIC 9(11)- VALUE ZERO. DTSBR713
|
|
00140 SKIP3 DTSBR713
|
|
00141 05 WS-CON-RECVBL-BEG-PERIOD PIC S9(11). DTSBR713
|
|
00142 05 WS-CON-RECVBL-DETERM PIC S9(11). DTSBR713
|
|
00143 05 WS-CON-RECVBL-LIQUID PIC S9(11). DTSBR713
|
|
00144 05 WS-CON-RECVBL-UNCOLLECT PIC S9(11). DTSBR713
|
|
00145 05 WS-CON-RECVBL-REMOVED PIC S9(11). DTSBR713
|
|
00146 05 WS-CON-RECVBL-END-PERIOD PIC S9(11). DTSBR713
|
|
00147 05 WS-CON-RECVBL-6-MOS PIC S9(11). DTSBR713
|
|
00148 05 WS-CON-RECVBL-9-MOS PIC S9(11). DTSBR713
|
|
00149 05 WS-CON-RECVBL-12-MOS PIC S9(11). DTSBR713
|
|
00150 05 WS-CON-RECVBL-15-MOS PIC S9(11). DTSBR713
|
|
00151 05 WS-CON-RECVBL-OVER15-MOS PIC S9(11). DTSBR713
|
|
00152 SKIP1 DTSBR713
|
|
00153 05 WS-REIMB-RECVBL-BEG-PERIOD PIC S9(11). DTSBR713
|
|
00154 05 WS-REIMB-RECVBL-DETERM PIC S9(11). DTSBR713
|
|
00155 05 WS-REIMB-RECVBL-LIQUID PIC S9(11). DTSBR713
|
|
00156 05 WS-REIMB-RECVBL-UNCOLLECT PIC S9(11). DTSBR713
|
|
00157 05 WS-REIMB-RECVBL-REMOVED PIC S9(11). DTSBR713
|
|
00158 05 WS-REIMB-RECVBL-END-PERIOD PIC S9(11). DTSBR713
|
|
00159 05 WS-REIMB-RECVBL-6-MOS PIC S9(11). DTSBR713
|
|
00160 05 WS-REIMB-RECVBL-9-MOS PIC S9(11). DTSBR713
|
|
00161 05 WS-REIMB-RECVBL-12-MOS PIC S9(11). DTSBR713
|
|
00162 05 WS-REIMB-RECVBL-15-MOS PIC S9(11). DTSBR713
|
|
00163 05 WS-REIMB-RECVBL-OVER15-MOS PIC S9(11). DTSBR713
|
|
00164 SKIP1 DTSBR713
|
|
00165 05 WS-AUDIT-TOT-WAGES-PRE PIC S9(11). DTSBR713
|
|
00166 05 WS-AUDIT-UNDERRPT-TOT-WAGES PIC S9(11). DTSBR713
|
|
00167 05 WS-AUDIT-OVERRPT-TOT-WAGES PIC S9(11). DTSBR713
|
|
00168 05 WS-AUDIT-TOT-WAGES-POST PIC S9(11). DTSBR713
|
|
00169 SKIP3 DTSBR713
|
|
00170 ++INCLUDE DTSXL713 DTSBR713
|
|
00171 EJECT DTSBR713
|
|
00172 01 FSKL-REC. DTSBR713
|
|
00173 ++INCLUDE DTSIFSKL DTSBR713
|
|
00174 SKIP3 DTSBR713
|
|
00175 01 F581-REC. DTSBR713
|
|
00176 ++INCLUDE DTSIF581 DTSBR713
|
|
00177 EJECT DTSBR713
|
|
00178 01 R991-REC. DTSBR713
|
|
00179 ++INCLUDE DTSIR991 DTSBR713
|
|
00180 EJECT DTSBR713
|
|
00181 01 L001-LINK-AREA. DTSBR713
|
|
00182 ++INCLUDE DTSIL001 DTSBR713
|
|
00183 EJECT DTSBR713
|
|
00184 01 L004-LINK-AREA. DTSBR713
|
|
00185 ++INCLUDE DTSIL004 DTSBR713
|
|
00186 EJECT DTSBR713
|
|
00187 01 L143-LINK-AREA. DTSBR713
|
|
00188 ++INCLUDE DTSIL143 DTSBR713
|
|
00189 EJECT DTSBR713
|
|
00190 01 L931-LINK-AREA. DTSBR713
|
|
00191 ++INCLUDE DTSIL931 DTSBR713
|
|
00192 EJECT DTSBR713
|
|
00193 LINKAGE SECTION. DTSBR713
|
|
00194 SKIP3 DTSBR713
|
|
00195 01 LRCM-LINK-AREA. DTSBR713
|
|
00196 ++INCLUDE DTSILRCM DTSBR713
|
|
00197 EJECT DTSBR713
|
|
00198 01 R713-REC. DTSBR713
|
|
00199 ++INCLUDE DTSIR713 DTSBR713
|
|
00200 EJECT DTSBR713
|
|
00201 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR713
|
|
00202 R713-REC. DTSBR713
|
|
00203 SKIP2 DTSBR713
|
|
00204 IF FIRST-TIME-IND = 'Y' DTSBR713
|
|
00205 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR713
|
|
00206 MOVE 'N' TO FIRST-TIME-IND. DTSBR713
|
|
00207 SKIP1 DTSBR713
|
|
00208 IF LRCM-EOR-88 DTSBR713
|
|
00209 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR713
|
|
00210 ELSE DTSBR713
|
|
00211 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR713
|
|
00212 SKIP2 DTSBR713
|
|
00213 GOBACK. DTSBR713
|
|
00214 EJECT DTSBR713
|
|
00215 I1000-INITIATE. DTSBR713
|
|
00216 SKIP1 DTSBR713
|
|
00217 OPEN OUTPUT EXPORT-FILE. DTSBR713
|
|
00218 OPEN OUTPUT PRT-FILE. DTSBR713
|
|
00219 MOVE '713' TO R991-MOD. DTSBR713
|
|
00220 MOVE 'CHIEF, TAX DIVISION ' TO R991-ROUTE1. DTSBR713
|
|
00221 MOVE ' ' TO R991-ROUTE2. DTSBR713
|
|
00222 MOVE 'ETA-581 ITEM EXPORT' TO R991-DATA-TYPE. DTSBR713
|
|
00223 MOVE 'RECORDS' TO R991-UNIT-DSCR. DTSBR713
|
|
00224 MOVE +0 TO R991-UNIT-COUNT. DTSBR713
|
|
00225 SKIP2 DTSBR713
|
|
00226 I1000-EXIT. DTSBR713
|
|
00227 EXIT. DTSBR713
|
|
00228 EJECT DTSBR713
|
|
00229 P1000-PROCESS. DTSBR713
|
|
00230 SKIP1 DTSBR713
|
|
00231 MOVE LOW-VALUE TO F581-KEY-AREA. DTSBR713
|
|
00232 SET F581-581-88 TO TRUE. DTSBR713
|
|
00233 MOVE R713-YRQ TO F581-YRQ. DTSBR713
|
|
00234 MOVE F581-KEY-AREA TO FSKL-KEY-AREA. DTSBR713
|
|
00235 MOVE SPACE TO L931-TRACE-IND. DTSBR713
|
|
00236 MOVE 'DTSBR713' TO L931-MOD-NAME. DTSBR713
|
|
00237 SET L931-READ-88 TO TRUE. DTSBR713
|
|
00238 PERFORM S931-REFERENCE-FILE-I-O THRU S931-EXIT. DTSBR713
|
|
00239 MOVE FSKL-REC TO F581-REC. DTSBR713
|
|
00240 IF NOT L931-OK-88 DTSBR713
|
|
00241 GO TO P1000-EXIT. DTSBR713
|
|
00242 SKIP1 DTSBR713
|
|
00243 PERFORM P2000-WRITE-HEADER-RECORD THRU P2000-EXIT. DTSBR713
|
|
00244 PERFORM P3000-WRITE-DATA-RECORD THRU P3000-EXIT. DTSBR713
|
|
00245 SKIP2 DTSBR713
|
|
00246 P1000-EXIT. DTSBR713
|
|
00247 EXIT. DTSBR713
|
|
00248 EJECT DTSBR713
|
|
00249 P2000-WRITE-HEADER-RECORD. DTSBR713
|
|
00250 SKIP1 DTSBR713
|
|
00251 MOVE +0 TO L143-REC-SIZE. DTSBR713
|
|
00252 SET L143-FIELD-DELIM-SEMI TO TRUE. DTSBR713
|
|
00253 SET L143-STRING-DELIM-NO TO TRUE. DTSBR713
|
|
00254 SET L143-EMBED-NO-REPLACE TO TRUE. DTSBR713
|
|
00255 SET L143-EDIT-FIELD-NO TO TRUE. DTSBR713
|
|
00256 MOVE +7 TO L143-FIELD-SIZE. DTSBR713
|
|
00257 MOVE 'RPT YRQ' TO L143-FIELD. DTSBR713
|
|
00258 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT. DTSBR713
|
|
00259 MOVE +12 TO L143-FIELD-SIZE. DTSBR713
|
|
00260 MOVE 'YRQ END DATE' TO L143-FIELD. DTSBR713
|
|
00261 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT. DTSBR713
|
|
00262 PERFORM DTSBR713
|
|
00263 VARYING WS-SUB FROM +1 BY +1 UNTIL WS-SUB > +57 DTSBR713
|
|
00264 SET L143-FIELD-DELIM-NO TO TRUE DTSBR713
|
|
00265 SET L143-EDIT-FIELD-NO TO TRUE DTSBR713
|
|
00266 MOVE +5 TO L143-FIELD-SIZE DTSBR713
|
|
00267 MOVE 'ITEM ' TO L143-FIELD DTSBR713
|
|
00268 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT DTSBR713
|
|
00269 SET L143-FIELD-DELIM-SEMI TO TRUE DTSBR713
|
|
00270 SET L143-EDIT-FIELD-NO TO TRUE DTSBR713
|
|
00271 MOVE +2 TO L143-FIELD-SIZE DTSBR713
|
|
00272 MOVE WS-SUB TO WS-SUB-EDIT DTSBR713
|
|
00273 MOVE WS-SUB-EDIT TO L143-FIELD DTSBR713
|
|
00274 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT DTSBR713
|
|
00275 END-PERFORM. DTSBR713
|
|
00276 SUBTRACT +1 FROM L143-REC-SIZE. DTSBR713
|
|
00277 PERFORM S1000-WRITE-RECORD THRU S1000-EXIT. DTSBR713
|
|
00278 SKIP2 DTSBR713
|
|
00279 P2000-EXIT. DTSBR713
|
|
00280 EXIT. DTSBR713
|
|
00281 EJECT DTSBR713
|
|
00282 P3000-WRITE-DATA-RECORD. DTSBR713
|
|
00283 SKIP1 DTSBR713
|
|
00284 MOVE +0 TO L143-REC-SIZE. DTSBR713
|
|
00285 SET L143-FIELD-DELIM-SEMI TO TRUE. DTSBR713
|
|
00286 SET L143-STRING-DELIM-NO TO TRUE. DTSBR713
|
|
00287 SET L143-EMBED-NO-REPLACE TO TRUE. DTSBR713
|
|
00288 SET L143-EDIT-FIELD-NO TO TRUE. DTSBR713
|
|
00289 SKIP1 DTSBR713
|
|
00290 MOVE F581-YRQ TO WS-YRQ-EDIT. DTSBR713
|
|
00291 PERFORM P9010-YRQ-EDIT THRU P9010-EXIT. DTSBR713
|
|
00292 SKIP1 DTSBR713
|
|
00293 MOVE F581-PERIOD-END-DATE TO L001-FED-8-DATE-9. DTSBR713
|
|
00294 PERFORM P9020-DATE-EDIT THRU P9020-EXIT. DTSBR713
|
|
00295 SKIP1 DTSBR713
|
|
00296 MOVE F581-CON-EMP-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00297 MOVE WS-CNT-EDIT-7 TO ITEM1. DTSBR713
|
|
00298 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00299 SKIP1 DTSBR713
|
|
00300 MOVE F581-REIMB-EMP-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00301 MOVE WS-CNT-EDIT-7 TO ITEM2. DTSBR713
|
|
00302 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00303 SKIP1 DTSBR713
|
|
00304 MOVE F581-TOTAL-EMP-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00305 MOVE WS-CNT-EDIT-7 TO ITEM3. DTSBR713
|
|
00306 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00307 SKIP1 DTSBR713
|
|
00308 MOVE F581-DEL-CUTOFF-DATE TO L001-FED-8-DATE-9. DTSBR713
|
|
00309 PERFORM P9020-DATE-EDIT THRU P9020-EXIT. DTSBR713
|
|
00310 MOVE L001-SLASH-DATE TO ITEM4. DTSBR713
|
|
00311 SKIP1 DTSBR713
|
|
00312 MOVE F581-WAGE-ITEM-RCVD-CNT TO WS-CNT-EDIT-9. DTSBR713
|
|
00313 MOVE WS-CNT-EDIT-9 TO ITEM5. DTSBR713
|
|
00314 PERFORM P9040-EDIT-9 THRU P9040-EXIT. DTSBR713
|
|
00315 SKIP1 DTSBR713
|
|
00316 MOVE F581-CON-TIMELY-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00317 MOVE WS-CNT-EDIT-7 TO ITEM6. DTSBR713
|
|
00318 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00319 SKIP1 DTSBR713
|
|
00320 MOVE F581-CON-SECURED-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00321 MOVE WS-CNT-EDIT-7 TO ITEM7. DTSBR713
|
|
00322 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00323 SKIP1 DTSBR713
|
|
00324 MOVE F581-CON-RESOLVED-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00325 MOVE WS-CNT-EDIT-7 TO ITEM8. DTSBR713
|
|
00326 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00327 SKIP1 DTSBR713
|
|
00328 MOVE F581-REIMB-TIMELY-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00329 MOVE WS-CNT-EDIT-7 TO ITEM9. DTSBR713
|
|
00330 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00331 SKIP1 DTSBR713
|
|
00332 MOVE F581-REIMB-SECURED-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00333 MOVE WS-CNT-EDIT-7 TO ITEM10. DTSBR713
|
|
00334 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00335 SKIP1 DTSBR713
|
|
00336 MOVE F581-REIMB-RESOLVED-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00337 MOVE WS-CNT-EDIT-7 TO ITEM11. DTSBR713
|
|
00338 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00339 SKIP1 DTSBR713
|
|
00340 * MOVE F581-OUTSTDG-QTRS-CNT TO WS-CNT-EDIT-9. DTSBR713
|
|
00341 * MOVE WS-CNT-EDIT-9 TO ITEM12. DTSBR713
|
|
00342 * PERFORM P9040-EDIT-9 THRU P9040-EXIT. DTSBR713
|
|
00343 SKIP1 DTSBR713
|
|
00344 * COMPUTE WS-AMT-EDIT-WHOLE ROUNDED DTSBR713
|
|
00345 *& = F581-EST-UI-DUE-AMT. DTSBR713
|
|
00346 * MOVE WS-AMT-EDIT-WHOLE TO ITEM13. DTSBR713
|
|
00347 * PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00348 SKIP1 DTSBR713
|
|
00349 MOVE F581-NEW-DETERM-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00350 MOVE WS-CNT-EDIT-7 TO ITEM14. DTSBR713
|
|
00351 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00352 SKIP1 DTSBR713
|
|
00353 MOVE F581-NEW-DETERM-T90-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00354 MOVE WS-CNT-EDIT-7 TO ITEM15. DTSBR713
|
|
00355 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00356 SKIP1 DTSBR713
|
|
00357 MOVE F581-NEW-DETERM-T180-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00358 MOVE WS-CNT-EDIT-7 TO ITEM16. DTSBR713
|
|
00359 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00360 SKIP1 DTSBR713
|
|
00361 MOVE F581-SUC-DETERM-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00362 MOVE WS-CNT-EDIT-7 TO ITEM17. DTSBR713
|
|
00363 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00364 SKIP1 DTSBR713
|
|
00365 MOVE F581-SUC-DETERM-T90-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00366 MOVE WS-CNT-EDIT-7 TO ITEM18. DTSBR713
|
|
00367 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00368 SKIP1 DTSBR713
|
|
00369 MOVE F581-SUC-DETERM-T180-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00370 MOVE WS-CNT-EDIT-7 TO ITEM19. DTSBR713
|
|
00371 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00372 SKIP1 DTSBR713
|
|
00373 MOVE F581-TERMINATION-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00374 MOVE WS-CNT-EDIT-7 TO ITEM20. DTSBR713
|
|
00375 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00376 SKIP1 DTSBR713
|
|
00377 PERFORM P4000-RECEIVABLES THRU P4000-EXIT. DTSBR713
|
|
00378 SKIP1 DTSBR713
|
|
00379 PERFORM P5000-AUDIT THRU P5000-EXIT. DTSBR713
|
|
00380 SKIP1 DTSBR713
|
|
00381 PERFORM P6000-SUTAD THRU P6000-EXIT. DTSBR713
|
|
00382 SKIP1 DTSBR713
|
|
00383 PERFORM S1000-WRITE-RECORD THRU S1000-EXIT. DTSBR713
|
|
00384 SKIP2 DTSBR713
|
|
00385 P3000-EXIT. DTSBR713
|
|
00386 EXIT. DTSBR713
|
|
00387 EJECT DTSBR713
|
|
00388 P4000-RECEIVABLES. DTSBR713
|
|
00389 SKIP1 DTSBR713
|
|
00390 COMPUTE WS-CON-RECVBL-BEG-PERIOD ROUNDED DTSBR713
|
|
00391 = F581-CON-RECVBL-BEG-PERIOD. DTSBR713
|
|
00392 MOVE WS-CON-RECVBL-BEG-PERIOD TO ITEM21. DTSBR713
|
|
00393 DTSBR713
|
|
00394 COMPUTE WS-CON-RECVBL-LIQUID ROUNDED DTSBR713
|
|
00395 = F581-CON-RECVBL-LIQUID. DTSBR713
|
|
00396 DTSBR713
|
|
00397 COMPUTE WS-CON-RECVBL-UNCOLLECT ROUNDED DTSBR713
|
|
00398 = F581-CON-RECVBL-UNCOLLECT. DTSBR713
|
|
00399 DTSBR713
|
|
00400 COMPUTE WS-CON-RECVBL-REMOVED ROUNDED DTSBR713
|
|
00401 = F581-CON-RECVBL-REMOVED. DTSBR713
|
|
00402 DTSBR713
|
|
00403 COMPUTE WS-CON-RECVBL-END-PERIOD ROUNDED DTSBR713
|
|
00404 = F581-CON-RECVBL-END-PERIOD. DTSBR713
|
|
00405 DTSBR713
|
|
00406 COMPUTE WS-CON-RECVBL-DETERM DTSBR713
|
|
00407 = WS-CON-RECVBL-LIQUID + WS-CON-RECVBL-UNCOLLECT DTSBR713
|
|
00408 + WS-CON-RECVBL-REMOVED + WS-CON-RECVBL-END-PERIOD DTSBR713
|
|
00409 - WS-CON-RECVBL-BEG-PERIOD. DTSBR713
|
|
00410 DTSBR713
|
|
00411 MOVE WS-CON-RECVBL-DETERM TO ITEM22. DTSBR713
|
|
00412 DTSBR713
|
|
00413 MOVE WS-CON-RECVBL-LIQUID TO ITEM23. DTSBR713
|
|
00414 DTSBR713
|
|
00415 MOVE WS-CON-RECVBL-UNCOLLECT TO ITEM24. DTSBR713
|
|
00416 DTSBR713
|
|
00417 MOVE WS-CON-RECVBL-REMOVED TO ITEM25. DTSBR713
|
|
00418 DTSBR713
|
|
00419 MOVE WS-CON-RECVBL-END-PERIOD TO ITEM26. DTSBR713
|
|
00420 DTSBR713
|
|
00421 SKIP1 DTSBR713
|
|
00422 MOVE WS-CON-RECVBL-BEG-PERIOD TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00423 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00424 SKIP1 DTSBR713
|
|
00425 MOVE WS-CON-RECVBL-DETERM TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00426 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00427 SKIP1 DTSBR713
|
|
00428 MOVE WS-CON-RECVBL-LIQUID TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00429 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00430 SKIP1 DTSBR713
|
|
00431 MOVE WS-CON-RECVBL-UNCOLLECT TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00432 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00433 SKIP1 DTSBR713
|
|
00434 MOVE WS-CON-RECVBL-REMOVED TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00435 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00436 SKIP1 DTSBR713
|
|
00437 MOVE WS-CON-RECVBL-END-PERIOD TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00438 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00439 SKIP1 DTSBR713
|
|
00440 MOVE F581-CON-RECVBL-EMP-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00441 MOVE WS-CNT-EDIT-7 TO ITEM27. DTSBR713
|
|
00442 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00443 SKIP1 DTSBR713
|
|
00444 COMPUTE WS-CON-RECVBL-9-MOS ROUNDED DTSBR713
|
|
00445 = F581-CON-RECVBL-9-MOS. DTSBR713
|
|
00446 COMPUTE WS-CON-RECVBL-12-MOS ROUNDED DTSBR713
|
|
00447 = F581-CON-RECVBL-12-MOS. DTSBR713
|
|
00448 COMPUTE WS-CON-RECVBL-15-MOS ROUNDED DTSBR713
|
|
00449 = F581-CON-RECVBL-15-MOS. DTSBR713
|
|
00450 COMPUTE WS-CON-RECVBL-OVER15-MOS ROUNDED DTSBR713
|
|
00451 = F581-CON-RECVBL-OVER15-MOS. DTSBR713
|
|
00452 COMPUTE WS-CON-RECVBL-6-MOS DTSBR713
|
|
00453 = WS-CON-RECVBL-END-PERIOD - WS-CON-RECVBL-9-MOS DTSBR713
|
|
00454 - WS-CON-RECVBL-12-MOS - WS-CON-RECVBL-15-MOS DTSBR713
|
|
00455 - WS-CON-RECVBL-OVER15-MOS. DTSBR713
|
|
00456 SKIP1 DTSBR713
|
|
00457 MOVE WS-CON-RECVBL-6-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00458 MOVE WS-CON-RECVBL-6-MOS TO ITEM28. DTSBR713
|
|
00459 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00460 SKIP1 DTSBR713
|
|
00461 MOVE WS-CON-RECVBL-9-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00462 MOVE WS-CON-RECVBL-9-MOS TO ITEM29. DTSBR713
|
|
00463 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00464 SKIP1 DTSBR713
|
|
00465 MOVE WS-CON-RECVBL-12-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00466 MOVE WS-CON-RECVBL-12-MOS TO ITEM30. DTSBR713
|
|
00467 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00468 SKIP1 DTSBR713
|
|
00469 MOVE WS-CON-RECVBL-15-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00470 MOVE WS-CON-RECVBL-15-MOS TO ITEM31. DTSBR713
|
|
00471 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00472 SKIP1 DTSBR713
|
|
00473 MOVE WS-CON-RECVBL-OVER15-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00474 MOVE WS-CON-RECVBL-OVER15-MOS TO ITEM32. DTSBR713
|
|
00475 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00476 SKIP1 DTSBR713
|
|
00477 COMPUTE WS-REIMB-RECVBL-BEG-PERIOD ROUNDED DTSBR713
|
|
00478 = F581-REIMB-RECVBL-BEG-PERIOD. DTSBR713
|
|
00479 COMPUTE WS-REIMB-RECVBL-LIQUID ROUNDED DTSBR713
|
|
00480 = F581-REIMB-RECVBL-LIQUID. DTSBR713
|
|
00481 COMPUTE WS-REIMB-RECVBL-UNCOLLECT ROUNDED DTSBR713
|
|
00482 = F581-REIMB-RECVBL-UNCOLLECT. DTSBR713
|
|
00483 COMPUTE WS-REIMB-RECVBL-REMOVED ROUNDED DTSBR713
|
|
00484 = F581-REIMB-RECVBL-REMOVED. DTSBR713
|
|
00485 COMPUTE WS-REIMB-RECVBL-END-PERIOD ROUNDED DTSBR713
|
|
00486 = F581-REIMB-RECVBL-END-PERIOD. DTSBR713
|
|
00487 COMPUTE WS-REIMB-RECVBL-DETERM DTSBR713
|
|
00488 = WS-REIMB-RECVBL-LIQUID + WS-REIMB-RECVBL-UNCOLLECT DTSBR713
|
|
00489 + WS-REIMB-RECVBL-REMOVED + WS-REIMB-RECVBL-END-PERIOD DTSBR713
|
|
00490 - WS-REIMB-RECVBL-BEG-PERIOD. DTSBR713
|
|
00491 SKIP1 DTSBR713
|
|
00492 MOVE WS-REIMB-RECVBL-BEG-PERIOD TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00493 MOVE WS-REIMB-RECVBL-BEG-PERIOD TO ITEM33. DTSBR713
|
|
00494 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00495 SKIP1 DTSBR713
|
|
00496 MOVE WS-REIMB-RECVBL-DETERM TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00497 MOVE WS-REIMB-RECVBL-DETERM TO ITEM34. DTSBR713
|
|
00498 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00499 SKIP1 DTSBR713
|
|
00500 MOVE WS-REIMB-RECVBL-LIQUID TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00501 MOVE WS-REIMB-RECVBL-LIQUID TO ITEM35. DTSBR713
|
|
00502 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00503 SKIP1 DTSBR713
|
|
00504 MOVE WS-REIMB-RECVBL-UNCOLLECT TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00505 MOVE WS-REIMB-RECVBL-UNCOLLECT TO ITEM36. DTSBR713
|
|
00506 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00507 SKIP1 DTSBR713
|
|
00508 MOVE WS-REIMB-RECVBL-REMOVED TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00509 MOVE WS-REIMB-RECVBL-REMOVED TO ITEM37. DTSBR713
|
|
00510 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00511 SKIP1 DTSBR713
|
|
00512 MOVE WS-REIMB-RECVBL-END-PERIOD TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00513 MOVE WS-REIMB-RECVBL-END-PERIOD TO ITEM38. DTSBR713
|
|
00514 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00515 SKIP1 DTSBR713
|
|
00516 MOVE F581-REIMB-RECVBL-EMP-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00517 MOVE F581-REIMB-RECVBL-EMP-CNT TO ITEM39. DTSBR713
|
|
00518 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00519 SKIP1 DTSBR713
|
|
00520 COMPUTE WS-REIMB-RECVBL-9-MOS ROUNDED DTSBR713
|
|
00521 = F581-REIMB-RECVBL-9-MOS. DTSBR713
|
|
00522 COMPUTE WS-REIMB-RECVBL-12-MOS ROUNDED DTSBR713
|
|
00523 = F581-REIMB-RECVBL-12-MOS. DTSBR713
|
|
00524 COMPUTE WS-REIMB-RECVBL-15-MOS ROUNDED DTSBR713
|
|
00525 = F581-REIMB-RECVBL-15-MOS. DTSBR713
|
|
00526 COMPUTE WS-REIMB-RECVBL-OVER15-MOS ROUNDED DTSBR713
|
|
00527 = F581-REIMB-RECVBL-OVER15-MOS. DTSBR713
|
|
00528 COMPUTE WS-REIMB-RECVBL-6-MOS DTSBR713
|
|
00529 = WS-REIMB-RECVBL-END-PERIOD - WS-REIMB-RECVBL-9-MOS DTSBR713
|
|
00530 - WS-REIMB-RECVBL-12-MOS - WS-REIMB-RECVBL-15-MOS DTSBR713
|
|
00531 - WS-REIMB-RECVBL-OVER15-MOS. DTSBR713
|
|
00532 SKIP1 DTSBR713
|
|
00533 MOVE WS-REIMB-RECVBL-6-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00534 MOVE WS-REIMB-RECVBL-6-MOS TO ITEM40. DTSBR713
|
|
00535 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00536 SKIP1 DTSBR713
|
|
00537 MOVE WS-REIMB-RECVBL-9-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00538 MOVE WS-REIMB-RECVBL-9-MOS TO ITEM41. DTSBR713
|
|
00539 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00540 SKIP1 DTSBR713
|
|
00541 MOVE WS-REIMB-RECVBL-12-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00542 MOVE WS-REIMB-RECVBL-12-MOS TO ITEM42. DTSBR713
|
|
00543 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00544 SKIP1 DTSBR713
|
|
00545 MOVE WS-REIMB-RECVBL-15-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00546 MOVE WS-REIMB-RECVBL-15-MOS TO ITEM43. DTSBR713
|
|
00547 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00548 SKIP1 DTSBR713
|
|
00549 MOVE WS-REIMB-RECVBL-OVER15-MOS TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00550 MOVE WS-REIMB-RECVBL-OVER15-MOS TO ITEM44. DTSBR713
|
|
00551 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00552 SKIP2 DTSBR713
|
|
00553 P4000-EXIT. DTSBR713
|
|
00554 EXIT. DTSBR713
|
|
00555 EJECT DTSBR713
|
|
00556 P5000-AUDIT. DTSBR713
|
|
00557 SKIP1 DTSBR713
|
|
00558 COMPUTE WS-AUDIT-TOT-WAGES-PRE ROUNDED DTSBR713
|
|
00559 = F581-AUDIT-TOT-WAGES-PRE. DTSBR713
|
|
00560 COMPUTE WS-AUDIT-UNDERRPT-TOT-WAGES ROUNDED DTSBR713
|
|
00561 = F581-AUDIT-UNDERRPT-TOT-WAGES. DTSBR713
|
|
00562 COMPUTE WS-AUDIT-OVERRPT-TOT-WAGES ROUNDED DTSBR713
|
|
00563 = F581-AUDIT-OVERRPT-TOT-WAGES. DTSBR713
|
|
00564 COMPUTE WS-AUDIT-TOT-WAGES-POST DTSBR713
|
|
00565 = WS-AUDIT-TOT-WAGES-PRE + WS-AUDIT-UNDERRPT-TOT-WAGES DTSBR713
|
|
00566 - WS-AUDIT-OVERRPT-TOT-WAGES. DTSBR713
|
|
00567 SKIP1 DTSBR713
|
|
00568 MOVE F581-AUDIT-LARGE-EMP-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00569 MOVE WS-CNT-EDIT-7 TO ITEM45. DTSBR713
|
|
00570 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00571 SKIP1 DTSBR713
|
|
00572 MOVE F581-AUDIT-CHANGE-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00573 MOVE WS-CNT-EDIT-7 TO ITEM46. DTSBR713
|
|
00574 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00575 SKIP1 DTSBR713
|
|
00576 MOVE F581-AUDIT-TOT-EMP-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00577 MOVE WS-CNT-EDIT-7 TO ITEM47. DTSBR713
|
|
00578 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00579 SKIP1 DTSBR713
|
|
00580 MOVE F581-AUDIT-QTR-CNT TO WS-CNT-EDIT-9. DTSBR713
|
|
00581 MOVE WS-CNT-EDIT-9 TO ITEM48. DTSBR713
|
|
00582 PERFORM P9040-EDIT-9 THRU P9040-EXIT. DTSBR713
|
|
00583 SKIP1 DTSBR713
|
|
00584 MOVE WS-AUDIT-TOT-WAGES-PRE TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00585 MOVE WS-AUDIT-TOT-WAGES-PRE TO ITEM49 DTSBR713
|
|
00586 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00587 SKIP1 DTSBR713
|
|
00588 MOVE WS-AUDIT-TOT-WAGES-POST TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00589 MOVE WS-AUDIT-TOT-WAGES-POST TO ITEM50. DTSBR713
|
|
00590 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00591 SKIP1 DTSBR713
|
|
00592 MOVE F581-AUDIT-HOURS-CNT TO WS-AUDIT-HOURS-EDIT. DTSBR713
|
|
00593 MOVE WS-AUDIT-HOURS-EDIT TO ITEM51. DTSBR713
|
|
00594 PERFORM P9050-AUDIT-HOURS-EDIT THRU P9050-EXIT. DTSBR713
|
|
00595 SKIP1 DTSBR713
|
|
00596 MOVE F581-AUDIT-INDCON-TO-EMPL-CNT TO WS-CNT-EDIT-7. DTSBR713
|
|
00597 MOVE WS-CNT-EDIT-7 TO ITEM52. DTSBR713
|
|
00598 PERFORM P9030-EDIT-7 THRU P9030-EXIT. DTSBR713
|
|
00599 SKIP1 DTSBR713
|
|
00600 MOVE WS-AUDIT-UNDERRPT-TOT-WAGES TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00601 MOVE WS-AUDIT-UNDERRPT-TOT-WAGES TO ITEM53. DTSBR713
|
|
00602 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00603 SKIP1 DTSBR713
|
|
00604 COMPUTE WS-AMT-EDIT-WHOLE ROUNDED DTSBR713
|
|
00605 = F581-AUDIT-UNDERRPT-TAX-WAGES. DTSBR713
|
|
00606 MOVE WS-AMT-EDIT-WHOLE TO ITEM54. DTSBR713
|
|
00607 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00608 SKIP1 DTSBR713
|
|
00609 COMPUTE WS-AMT-EDIT-WHOLE ROUNDED DTSBR713
|
|
00610 = F581-AUDIT-UNDERRPT-CONTRIB. DTSBR713
|
|
00611 MOVE WS-AMT-EDIT-WHOLE TO ITEM55. DTSBR713
|
|
00612 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00613 SKIP1 DTSBR713
|
|
00614 MOVE WS-AUDIT-OVERRPT-TOT-WAGES TO WS-AMT-EDIT-WHOLE. DTSBR713
|
|
00615 MOVE WS-AUDIT-OVERRPT-TOT-WAGES TO ITEM56. DTSBR713
|
|
00616 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00617 SKIP1 DTSBR713
|
|
00618 COMPUTE WS-AMT-EDIT-WHOLE ROUNDED DTSBR713
|
|
00619 = F581-AUDIT-OVERRPT-TAX-WAGES. DTSBR713
|
|
00620 MOVE WS-AMT-EDIT-WHOLE TO ITEM57. DTSBR713
|
|
00621 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00622 SKIP1 DTSBR713
|
|
00623 SET L143-FIELD-DELIM-NO TO TRUE. DTSBR713
|
|
00624 COMPUTE WS-AMT-EDIT-WHOLE ROUNDED DTSBR713
|
|
00625 = F581-AUDIT-OVERRPT-CONTRIB. DTSBR713
|
|
00626 MOVE WS-AMT-EDIT-WHOLE TO ITEM58. DTSBR713
|
|
00627 PERFORM P9070-AMT-EDIT-WHOLE THRU P9070-EXIT. DTSBR713
|
|
00628 SKIP2 DTSBR713
|
|
00629 P5000-EXIT. DTSBR713
|
|
00630 EXIT. DTSBR713
|
|
00631 EJECT DTSBR713
|
|
00632 P6000-SUTAD. DTSBR713
|
|
00633 MOVE F581-MANDATORY-XFER-CNT TO ITEM60. DTSBR713
|
|
00634 MOVE F581-PROHIBITED-XFER-CNT TO ITEM61. DTSBR713
|
|
00635 MOVE F581-SUTA-CONTRIB-DUE TO ITEM62. DTSBR713
|
|
00636 PERFORM P9998-WRITE-XEROX-FORMS THRU P9998-EXIT. DTSBR713
|
|
00637 P6000-EXIT. DTSBR713
|
|
00638 EXIT. DTSBR713
|
|
00639 EJECT DTSBR713
|
|
00640 P9010-YRQ-EDIT. DTSBR713
|
|
00641 SKIP1 DTSBR713
|
|
00642 MOVE +5 TO L143-FIELD-SIZE. DTSBR713
|
|
00643 MOVE WS-YRQ-EDIT TO L143-FIELD. DTSBR713
|
|
00644 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT. DTSBR713
|
|
00645 SKIP2 DTSBR713
|
|
00646 P9010-EXIT. DTSBR713
|
|
00647 EXIT. DTSBR713
|
|
00648 SKIP3 DTSBR713
|
|
00649 P9020-DATE-EDIT. DTSBR713
|
|
00650 SKIP1 DTSBR713
|
|
00651 MOVE +6 TO L143-FIELD-SIZE. DTSBR713
|
|
00652 SET L001-FROM-FED-8 TO TRUE. DTSBR713
|
|
00653 PERFORM S001-DATE THRU S001-EXIT. DTSBR713
|
|
00654 MOVE L001-CAL-6-DATE-9 TO WS-DATE-EDIT. DTSBR713
|
|
00655 MOVE WS-DATE-EDIT TO L143-FIELD. DTSBR713
|
|
00656 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT. DTSBR713
|
|
00657 SKIP2 DTSBR713
|
|
00658 P9020-EXIT. DTSBR713
|
|
00659 EXIT. DTSBR713
|
|
00660 SKIP3 DTSBR713
|
|
00661 P9030-EDIT-7. DTSBR713
|
|
00662 SKIP1 DTSBR713
|
|
00663 MOVE +7 TO L143-FIELD-SIZE. DTSBR713
|
|
00664 MOVE WS-CNT-EDIT-7 TO L143-FIELD. DTSBR713
|
|
00665 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT. DTSBR713
|
|
00666 SKIP2 DTSBR713
|
|
00667 P9030-EXIT. DTSBR713
|
|
00668 EXIT. DTSBR713
|
|
00669 SKIP3 DTSBR713
|
|
00670 P9040-EDIT-9. DTSBR713
|
|
00671 SKIP1 DTSBR713
|
|
00672 MOVE +9 TO L143-FIELD-SIZE. DTSBR713
|
|
00673 MOVE WS-CNT-EDIT-9 TO L143-FIELD. DTSBR713
|
|
00674 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT. DTSBR713
|
|
00675 SKIP2 DTSBR713
|
|
00676 P9040-EXIT. DTSBR713
|
|
00677 EXIT. DTSBR713
|
|
00678 SKIP3 DTSBR713
|
|
00679 P9050-AUDIT-HOURS-EDIT. DTSBR713
|
|
00680 SKIP1 DTSBR713
|
|
00681 MOVE +10 TO L143-FIELD-SIZE. DTSBR713
|
|
00682 MOVE WS-AUDIT-HOURS-EDIT TO L143-FIELD. DTSBR713
|
|
00683 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT. DTSBR713
|
|
00684 SKIP2 DTSBR713
|
|
00685 P9050-EXIT. DTSBR713
|
|
00686 EXIT. DTSBR713
|
|
00687 SKIP3 DTSBR713
|
|
00688 P9060-AMT-EDIT. DTSBR713
|
|
00689 SKIP1 DTSBR713
|
|
00690 MOVE +15 TO L143-FIELD-SIZE. DTSBR713
|
|
00691 MOVE WS-AMT-EDIT TO L143-FIELD. DTSBR713
|
|
00692 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT. DTSBR713
|
|
00693 SKIP2 DTSBR713
|
|
00694 P9060-EXIT. DTSBR713
|
|
00695 EXIT. DTSBR713
|
|
00696 SKIP3 DTSBR713
|
|
00697 P9070-AMT-EDIT-WHOLE. DTSBR713
|
|
00698 SKIP1 DTSBR713
|
|
00699 MOVE +12 TO L143-FIELD-SIZE. DTSBR713
|
|
00700 MOVE WS-AMT-EDIT-WHOLE TO L143-FIELD. DTSBR713
|
|
00701 PERFORM S143-VARIABLE-RECORD-BUILD THRU S143-EXIT. DTSBR713
|
|
00702 SKIP2 DTSBR713
|
|
00703 P9070-EXIT. DTSBR713
|
|
00704 EXIT. DTSBR713
|
|
00705 EJECT DTSBR713
|
|
00706 P9998-WRITE-XEROX-FORMS. DTSBR713
|
|
00707 WRITE REPORT-REC FROM XF-CA-CNTL-LINE DTSBR713
|
|
00708 AFTER ADVANCING PAGE. DTSBR713
|
|
00709 PERFORM P9999-WRITE-ETA581 THRU P9999-EXIT. DTSBR713
|
|
00710 P9998-EXIT. DTSBR713
|
|
00711 EXIT. DTSBR713
|
|
00712 EJECT DTSBR713
|
|
00713 P9999-WRITE-ETA581. DTSBR713
|
|
00714 WRITE REPORT-REC FROM X3-CA-CNTL-LINE. DTSBR713
|
|
00715 WRITE REPORT-REC FROM X4-CA-CNTL-LINE. DTSBR713
|
|
00716 WRITE REPORT-REC FROM X5-CA-CNTL-LINE. DTSBR713
|
|
00717 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00718 5 TIMES DTSBR713
|
|
00719 MOVE R713-YRQ TO L004-QTR-5-9 DTSBR713
|
|
00720 SET L004-FROM-5 TO TRUE DTSBR713
|
|
00721 PERFORM S004-QTR THRU S004-EXIT. DTSBR713
|
|
00722 DTSBR713
|
|
00723 IF L004-VALID-QTR DTSBR713
|
|
00724 MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9 DTSBR713
|
|
00725 SET L001-FROM-FED-8 TO TRUE DTSBR713
|
|
00726 PERFORM S001-DATE THRU S001-EXIT DTSBR713
|
|
00727 MOVE L001-SLASH-DATE TO QT-DATE DTSBR713
|
|
00728 ELSE DTSBR713
|
|
00729 MOVE 00 TO QT-MM DTSBR713
|
|
00730 MOVE 00 TO QT-DD DTSBR713
|
|
00731 MOVE 00 TO QT-YY DTSBR713
|
|
00732 END-IF. DTSBR713
|
|
00733 DTSBR713
|
|
00734 WRITE REPORT-REC FROM LINE6 DTSBR713
|
|
00735 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00736 5 TIMES DTSBR713
|
|
00737 WRITE REPORT-REC FROM LINE10 DTSBR713
|
|
00738 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00739 6 TIMES DTSBR713
|
|
00740 WRITE REPORT-REC FROM LINE16 DTSBR713
|
|
00741 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00742 5 TIMES DTSBR713
|
|
00743 WRITE REPORT-REC FROM LINE24 DTSBR713
|
|
00744 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00745 3 TIMES DTSBR713
|
|
00746 WRITE REPORT-REC FROM LINE29 DTSBR713
|
|
00747 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00748 3 TIMES DTSBR713
|
|
00749 WRITE REPORT-REC FROM LINE33 DTSBR713
|
|
00750 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00751 3 TIMES DTSBR713
|
|
00752 WRITE REPORT-REC FROM LINE36 DTSBR713
|
|
00753 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00754 3 TIMES DTSBR713
|
|
00755 WRITE REPORT-REC FROM LINE39 DTSBR713
|
|
00756 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00757 5 TIMES DTSBR713
|
|
00758 WRITE REPORT-REC FROM LINE45. DTSBR713
|
|
00759 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00760 4 TIMES DTSBR713
|
|
00761 WRITE REPORT-REC FROM LINE50. DTSBR713
|
|
00762 PERFORM R310-WRITE-BLANK-LINE THRU R310-EXIT DTSBR713
|
|
00763 4 TIMES DTSBR713
|
|
00764 WRITE REPORT-REC FROM LINE51. DTSBR713
|
|
00765 P9999-EXIT. DTSBR713
|
|
00766 EXIT. DTSBR713
|
|
00767 EJECT DTSBR713
|
|
00768 T1000-TERMINATE. DTSBR713
|
|
00769 SKIP1 DTSBR713
|
|
00770 IF R991-UNIT-COUNT = +0 DTSBR713
|
|
00771 MOVE SPACES TO R991-DATASET-NAME. DTSBR713
|
|
00772 PERFORM R991-EXPORT-CONTROL-REPORT THRU R991-EXIT. DTSBR713
|
|
00773 CLOSE EXPORT-FILE. DTSBR713
|
|
00774 CLOSE PRT-FILE. DTSBR713
|
|
00775 SKIP2 DTSBR713
|
|
00776 T1000-EXIT. DTSBR713
|
|
00777 EXIT. DTSBR713
|
|
00778 EJECT DTSBR713
|
|
00779 R310-WRITE-BLANK-LINE. DTSBR713
|
|
00780 WRITE REPORT-REC FROM BLANK-LINE. DTSBR713
|
|
00781 R310-EXIT. DTSBR713
|
|
00782 EXIT. DTSBR713
|
|
00783 R991-EXPORT-CONTROL-REPORT. DTSBR713
|
|
00784 SKIP1 DTSBR713
|
|
00785 CALL 'DTSBR991' USING LRCM-LINK-AREA DTSBR713
|
|
00786 R991-REC. DTSBR713
|
|
00787 SKIP2 DTSBR713
|
|
00788 R991-EXIT. DTSBR713
|
|
00789 EXIT. DTSBR713
|
|
00790 EJECT DTSBR713
|
|
00791 S1000-WRITE-RECORD. DTSBR713
|
|
00792 SKIP1 DTSBR713
|
|
00793 ADD +1 TO R991-UNIT-COUNT. DTSBR713
|
|
00794 MOVE L143-REC-SIZE TO WS-VAR-CHAR-CNT. DTSBR713
|
|
00795 MOVE L143-REC TO EXPORT-REC. DTSBR713
|
|
00796 WRITE EXPORT-REC. DTSBR713
|
|
00797 IF NOT FILE-OK-88 DTSBR713
|
|
00798 PERFORM S999-ABEND THRU S999-EXIT. DTSBR713
|
|
00799 SKIP2 DTSBR713
|
|
00800 S1000-EXIT. DTSBR713
|
|
00801 EXIT. DTSBR713
|
|
00802 EJECT DTSBR713
|
|
00803 S001-DATE. DTSBR713
|
|
00804 SKIP1 DTSBR713
|
|
00805 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR713
|
|
00806 SKIP2 DTSBR713
|
|
00807 S001-EXIT. DTSBR713
|
|
00808 EXIT. DTSBR713
|
|
00809 SKIP3 DTSBR713
|
|
00810 S004-QTR. DTSBR713
|
|
00811 SKIP1 DTSBR713
|
|
00812 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR713
|
|
00813 SKIP2 DTSBR713
|
|
00814 S004-EXIT. DTSBR713
|
|
00815 EXIT. DTSBR713
|
|
00816 SKIP3 DTSBR713
|
|
00817 S143-VARIABLE-RECORD-BUILD. DTSBR713
|
|
00818 SKIP1 DTSBR713
|
|
00819 CALL 'DTSBU143' USING L143-LINK-AREA. DTSBR713
|
|
00820 SKIP2 DTSBR713
|
|
00821 S143-EXIT. DTSBR713
|
|
00822 EXIT. DTSBR713
|
|
00823 SKIP3 DTSBR713
|
|
00824 S931-REFERENCE-FILE-I-O. DTSBR713
|
|
00825 SKIP1 DTSBR713
|
|
00826 CALL 'DTSBU931' USING L931-LINK-AREA DTSBR713
|
|
00827 FSKL-REC. DTSBR713
|
|
00828 SKIP2 DTSBR713
|
|
00829 S931-EXIT. DTSBR713
|
|
00830 EXIT. DTSBR713
|
|
00831 SKIP3 DTSBR713
|
|
00832 S999-ABEND. DTSBR713
|
|
00833 SKIP1 DTSBR713
|
|
00834 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR713
|
|
00835 SKIP2 DTSBR713
|
|
00836 S999-EXIT. DTSBR713
|
|
00837 EXIT. DTSBR713
|