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