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