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
