00001  IDENTIFICATION DIVISION.                                         06/19/13
00002  PROGRAM-ID.             DTSBX770.                                DTSBX770
00003  AUTHOR.                 TRW.                                        LV009
00004  DATE-WRITTEN.           NOVEMBER 2002.                           DTSBX770
00005  DATE-COMPILED.                                                   DTSBX770
00006      SKIP3                                                        DTSBX770
00007 *****                                                             DTSBX770
00008 *                                                                 DTSBX770
00009 *    FUNCTION:  READ BE770TRN FILE, WHICH CONTAINS TRANSACTIONS   DTSBX770
00010 *               FOR THE ETA581 DATA VALIDATION SUBSYSTEM.         DTSBX770
00011 *               PASS RECORDS TO THE APPROPRIATE DTSBX77X PROGRAM. DTSBX770
00012 *               EACH PROGRAM IN THIS SERIES PROCESSES ONE OF      DTSBX770
00013 *               POPULATIONS IN THE DATA VALIDATION SYSTEM.        DTSBX770
00014 *                                                                 DTSBX770
00015 *    MODIFICATION LOG                                             DTSBX770
00016 *                                                                 DTSBX770
00017 *                                                                 DTSBX770
00018 *    10/01/2010  ADDED CODE TO READ WAGE ITEM COUNT IN Y779       DTSBX770
00019 *                RECORD, AND COPY IT TO THE F581 REFERENCE        DTSBX770
00020 *                FILE RECORD.                                     DTSBX770
00021 *                REFERENCE:                     PROGRAMMER: GD    DTSBX770
00022 *                                                                 DTSBX770
00023 *    02/11/2011  REMOVED ANNUAL REPORT COUNT PASSED IN Y779       DTSBX770
00024 *                RECORD.  IT IS NO LONGER NEEDED, SINCE           DTSBX770
00025 *                DTSBE770 HAS BEEN CORRECTED TO COUNT             DTSBX770
00026 *                ANNUAL FILERS.                                   DTSBX770
00027 *                REFERENCE:                     PROGRAMMER: GD    DTSBX770
00028 *                                                                 DTSBX770
00029 *    04/24/2013  ADDED SUTA DUMPING NUMBERS TO Y779 RECORD.       DTSBX770
00030 *                RECORD.  IT IS NO LONGER NEEDED, SINCE           DTSBX770
00031 *                REFERENCE: TICKET 1780         PROGRAMMER: GD    DTSBX770
00032 *                                                                 DTSBX770
00033 *                                                                 DTSBX770
00034 *****                                                             DTSBX770
00035      SKIP3                                                        DTSBX770
00036  ENVIRONMENT DIVISION.                                            DTSBX770
00037  INPUT-OUTPUT SECTION.                                            DTSBX770
00038  FILE-CONTROL.                                                    DTSBX770
00039       SELECT ETA581-PARM-FILE ASSIGN TO BE770PRM                  DTSBX770
00040          FILE STATUS IS BE770-STATUS.                             DTSBX770
00041                                                                   DTSBX770
00042  DATA DIVISION.                                                   DTSBX770
00043  FILE SECTION.                                                    DTSBX770
00044  FD  ETA581-PARM-FILE                                             DTSBX770
00045      RECORDING MODE IS F                                          DTSBX770
00046      LABEL RECORDS ARE STANDARD                                   DTSBX770
00047      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX770
00048                                                                   DTSBX770
00049  01  ETA581-PARM-REC                   PIC  X(77).                DTSBX770
00050                                                                   DTSBX770
00051  WORKING-STORAGE SECTION.                                         DTSBX770
000515 77  PAN-VALET PICTURE X(24) VALUE '009DTSBX770  06/19/13'.       DTSBX770
00052  77  PAN-VALET PICTURE X(24) VALUE '002DTSBX770  04/24/13'.       DTSBX770
00053  77  PAN-VALET PICTURE X(24) VALUE '007DTSBX770  03/31/11'.       DTSBX770
00054      SKIP3                                                        DTSBX770
00055  01  WRK-AREA.                                                    DTSBX770
00056      05  WRK-ABEND-CD            PIC S9(04)  COMP  VALUE +770.    DTSBX770
00057                                                                   DTSBX770
00058      05  WRK-ABEND-MSG           PIC  X(60).                      DTSBX770
00059                                                                   DTSBX770
00060      05  WRK-MOD-NAME            PIC  X(08)  VALUE 'DTSBX770'.    DTSBX770
00061                                                                   DTSBX770
00062      05  WRK-RECORDS-READ-CNT    PIC  9(07)  COMP-3 VALUE 0.      DTSBX770
00063      05  WRK-CNT-DISP            PIC  Z(06)9.                     DTSBX770
00064                                                                   DTSBX770
00065      05  BE770-STATUS                PIC  X(02).                  DTSBX770
00066          88 BE770-STATUS-OK-88    VALUE '00'.                     DTSBX770
00067          88 BE770-STATUS-EOF-88   VALUE '10'.                     DTSBX770
00068                                                                   DTSBX770
00069      05  WRK-ERROR-IND               PIC  X(01).                  DTSBX770
00070          88 WRK-ERROR-YES-88      VALUE 'Y'.                      DTSBX770
00071          88 WRK-ERROR-NO-88       VALUE 'N'.                      DTSBX770
00072                                                                   DTSBX770
00073      05  WRK-TRACE-IND        PIC  X(01)   VALUE ' '.             DTSBX770
00074                                                                   DTSBX770
00075      05  PROG-NAME            PIC  X(08).                         DTSBX770
00076          88  PROG-NAME-771     VALUE 'DTSBX771'.                  DTSBX770
00077          88  PROG-NAME-772     VALUE 'DTSBX772'.                  DTSBX770
00078          88  PROG-NAME-773     VALUE 'DTSBX773'.                  DTSBX770
00079          88  PROG-NAME-774     VALUE 'DTSBX774'.                  DTSBX770
00080          88  PROG-NAME-775     VALUE 'DTSBX775'.                  DTSBX770
00081                                                                   DTSBX770
00082      05  WRK-OUTSTANDING-QTR-CNT  PIC S9(07) COMP-3 VALUE +0.     DTSBX770
00083      05  WRK-OUTSTANDING-BAL      PIC S9(11)V99 COMP-3 VALUE +0.  DTSBX770
00084      05  WRK-WAGE-ITEM-CNT        PIC S9(09) COMP-3 VALUE +0.     DTSBX770
00085      05  WRK-MANDATORY-CNT        PIC S9(07) COMP-3 VALUE +0.     DTSBX770
00086      05  WRK-PROHIBITED-CNT       PIC S9(07) COMP-3 VALUE +0.     DTSBX770
00087      05  WRK-SUTA-DMP-AMT         PIC S9(11)V99 COMP-3 VALUE +0.  DTSBX770
00088                                                                   DTSBX770
00089  01  L001-LINK-AREA.                                              DTSBX770
00090  ++INCLUDE DTSIL001                                               DTSBX770
00091                                                                   DTSBX770
00092  01  WRK-PARM-REC.                                                DTSBX770
00093  ++INCLUDE DTSIX770                                               DTSBX770
00094                                                                   DTSBX770
00095  01  XL771-LINK-AREA.                                             DTSBX770
00096  ++INCLUDE DTSXL771                                               DTSBX770
00097                                                                   DTSBX770
00098  01  XL772-LINK-AREA.                                             DTSBX770
00099  ++INCLUDE DTSXL772                                               DTSBX770
00100                                                                   DTSBX770
00101  01  XL773-LINK-AREA.                                             DTSBX770
00102  ++INCLUDE DTSXL773                                               DTSBX770
00103                                                                   DTSBX770
00104  01  XL774-LINK-AREA.                                             DTSBX770
00105  ++INCLUDE DTSXL774                                               DTSBX770
00106                                                                   DTSBX770
00107  01  XL775-LINK-AREA.                                             DTSBX770
00108  ++INCLUDE DTSXL775                                               DTSBX770
00109                                                                   DTSBX770
00110  01  L926-LINK-AREA.                                              DTSBX770
00111  ++INCLUDE DTSIL926                                               DTSBX770
00112                                                                   DTSBX770
00113  01  RSKL-REC.                                                    DTSBX770
00114  ++INCLUDE DTSIRSK1                                               DTSBX770
00115                                                                   DTSBX770
00116  01  Y779-REC.                                                    DTSBX770
00117  ++INCLUDE DTSIY779                                               DTSBX770
00118                                                                   DTSBX770
00119  01  L931-LINK-AREA.                                              DTSBX770
00120  ++INCLUDE DTSIL931                                               DTSBX770
00121      SKIP3                                                        DTSBX770
00122  01  FSKL-REC.                                                    DTSBX770
00123  ++INCLUDE DTSIFSKL                                               DTSBX770
00124      SKIP3                                                        DTSBX770
00125  01  F581-REC.                                                    DTSBX770
00126  ++INCLUDE DTSIF581                                               DTSBX770
00127                                                                   DTSBX770
00128  01  R713-REC.                                                    DTSBX770
00129  ++INCLUDE DTSIR713                                               DTSBX770
00130                                                                   DTSBX770
00131  PROCEDURE DIVISION.                                              DTSBX770
00132                                                                   DTSBX770
00133  DTSBD770-MAIN.                                                   DTSBX770
00134      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBX770
00135      IF WRK-ERROR-YES-88                                          DTSBX770
00136         GO TO DTSBD770-MAIN-EXIT.                                 DTSBX770
00137                                                                   DTSBX770
00138      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBX770
00139                                                                   DTSBX770
00140      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSBX770
00141                                                                   DTSBX770
00142  DTSBD770-MAIN-EXIT.                                              DTSBX770
00143      GOBACK.                                                      DTSBX770
00144      EJECT                                                        DTSBX770
00145  I0000-INITIATE.                                                  DTSBX770
00146      SET WRK-ERROR-NO-88 TO TRUE.                                 DTSBX770
00147                                                                   DTSBX770
00148      MOVE LENGTH OF R713-REC TO R713-LENGTH.                      DTSBX770
00149      MOVE '713'  TO R713-REC-TYPE.                                DTSBX770
00150                                                                   DTSBX770
00151      PERFORM I1000-OPEN-FILES           THRU I1000-EXIT.          DTSBX770
00152      IF WRK-ERROR-YES-88                                          DTSBX770
00153         GO TO I0000-EXIT.                                         DTSBX770
00154                                                                   DTSBX770
00155      PERFORM I2000-PARMS          THRU I2000-EXIT.                DTSBX770
00156                                                                   DTSBX770
00157      PERFORM I3000-INITIAL-CALL   THRU I3000-EXIT.                DTSBX770
00158                                                                   DTSBX770
00159      PERFORM I4000-INITIALIZE-F581 THRU I4000-EXIT.               DTSBX770
00160                                                                   DTSBX770
00161  I0000-EXIT.                                                      DTSBX770
00162      EXIT.                                                        DTSBX770
00163                                                                   DTSBX770
00164  I1000-OPEN-FILES.                                                DTSBX770
00165      MOVE WRK-TRACE-IND  TO L926-TRACE-IND                        DTSBX770
00166                             L931-TRACE-IND.                       DTSBX770
00167                                                                   DTSBX770
00168      MOVE WRK-MOD-NAME TO L926-MOD-NAME                           DTSBX770
00169                           L931-MOD-NAME.                          DTSBX770
00170                                                                   DTSBX770
00171 *&   PERFORM S931-OPEN-READ   THRU S931-EXIT.                     DTSBX770
00172      PERFORM S931-OPEN-UPDATE THRU S931-EXIT.                     DTSBX770
00173                                                                   DTSBX770
00174      SET L926-OPEN-READ-88 TO TRUE.                               DTSBX770
00175      PERFORM S926-BD770-INPUT THRU S926-EXIT.                     DTSBX770
00176                                                                   DTSBX770
00177  I1000-EXIT.                                                      DTSBX770
00178      EXIT.                                                        DTSBX770
00179                                                                   DTSBX770
00180  I2000-PARMS.                                                     DTSBX770
00181      OPEN INPUT ETA581-PARM-FILE.                                 DTSBX770
00182      IF NOT BE770-STATUS-OK-88                                    DTSBX770
00183         DISPLAY 'CANNOT OPEN PARM FILE ' BE770-STATUS             DTSBX770
00184         PERFORM S999-ABEND   THRU S999-EXIT.                      DTSBX770
00185                                                                   DTSBX770
00186      READ ETA581-PARM-FILE  INTO WRK-PARM-REC.                    DTSBX770
00187      IF NOT BE770-STATUS-OK-88                                    DTSBX770
00188         DISPLAY 'CANNOT READ PARM FILE ' BE770-STATUS             DTSBX770
00189         PERFORM S999-ABEND   THRU S999-EXIT.                      DTSBX770
00190                                                                   DTSBX770
00191      CLOSE ETA581-PARM-FILE.                                      DTSBX770
00192                                                                   DTSBX770
00193  I2000-EXIT.                                                      DTSBX770
00194      EXIT.                                                        DTSBX770
00195                                                                   DTSBX770
00196  I3000-INITIAL-CALL.                                              DTSBX770
00197      MOVE ZERO         TO XL771-CON-EMP-CNT                       DTSBX770
00198                           XL771-REIMB-EMP-CNT                     DTSBX770
00199                           XL771-TOT-EMP-CNT                       DTSBX770
00200                           XL773-NEW-DETERM-CNT                    DTSBX770
00201                           XL773-NEW-DETERM-T90-CNT                DTSBX770
00202                           XL773-NEW-DETERM-T180-CNT               DTSBX770
00203                           XL773-SUC-DETERM-CNT                    DTSBX770
00204                           XL773-SUC-DETERM-T90-CNT                DTSBX770
00205                           XL773-SUC-DETERM-T180-CNT               DTSBX770
00206                           XL773-TERMINATION-CNT.                  DTSBX770
00207                                                                   DTSBX770
00208      SET XL771-CMD-INIT-88        TO TRUE.                        DTSBX770
00209      PERFORM S771-CALL THRU S771-EXIT.                            DTSBX770
00210                                                                   DTSBX770
00211      SET XL772-CMD-INIT-88        TO TRUE.                        DTSBX770
00212      PERFORM S772-CALL THRU S772-EXIT.                            DTSBX770
00213                                                                   DTSBX770
00214      SET XL773-CMD-INIT-88        TO TRUE.                        DTSBX770
00215      PERFORM S773-CALL THRU S773-EXIT.                            DTSBX770
00216                                                                   DTSBX770
00217      SET XL774-CMD-INIT-88        TO TRUE.                        DTSBX770
00218      PERFORM S774-CALL THRU S774-EXIT.                            DTSBX770
00219                                                                   DTSBX770
00220      SET XL775-CMD-INIT-88        TO TRUE.                        DTSBX770
00221      PERFORM S775-CALL THRU S775-EXIT.                            DTSBX770
00222                                                                   DTSBX770
00223  I3000-EXIT.                                                      DTSBX770
00224      EXIT.                                                        DTSBX770
00225                                                                   DTSBX770
00226  I4000-INITIALIZE-F581.                                           DTSBX770
00227      MOVE LOW-VALUES TO F581-KEY-AREA.                            DTSBX770
00228      SET F581-581-88 TO TRUE.                                     DTSBX770
00229      MOVE X770-SUBJECT-QTR TO F581-YRQ.                           DTSBX770
00230      MOVE F581-KEY-AREA TO FSKL-KEY-AREA.                         DTSBX770
00231      PERFORM S931-READ THRU S931-EXIT.                            DTSBX770
00232      IF L931-NO-REC-88                                            DTSBX770
00233          MOVE X770-CURR-RUN-DATE TO L001-FED-8-DATE-9             DTSBX770
00234      ELSE                                                         DTSBX770
00235          MOVE FSKL-REC TO F581-REC                                DTSBX770
00236          MOVE F581-ESTB-DATE TO L001-FED-8-DATE-9.                DTSBX770
00237      MOVE LOW-VALUES TO F581-REC.                                 DTSBX770
00238      SET F581-581-88 TO TRUE.                                     DTSBX770
00239      MOVE X770-SUBJECT-QTR TO F581-YRQ.                           DTSBX770
00240      INITIALIZE F581-DATA-AREA.                                   DTSBX770
00241      MOVE L001-FED-8-DATE-9 TO F581-ESTB-DATE.                    DTSBX770
00242      MOVE X770-CURR-RUN-DATE TO F581-CHNG-DATE.                   DTSBX770
00243                                                                   DTSBX770
00244  I4000-EXIT.                                                      DTSBX770
00245      EXIT.                                                        DTSBX770
00246                                                                   DTSBX770
00247                                                                   DTSBX770
00248  P0000-PROCESS.                                                   DTSBX770
00249      PERFORM UNTIL L926-NO-REC-88                                 DTSBX770
00250         SET L926-READ-NEXT-88 TO TRUE                             DTSBX770
00251         PERFORM S926-BD770-INPUT THRU S926-EXIT                   DTSBX770
00252         IF L926-OK-88                                             DTSBX770
00253            PERFORM P1000-SELECT-PROGRAM  THRU P1000-EXIT          DTSBX770
00254         END-IF                                                    DTSBX770
00255      END-PERFORM.                                                 DTSBX770
00256                                                                   DTSBX770
00257  P0000-EXIT.                                                      DTSBX770
00258      EXIT.                                                        DTSBX770
00259                                                                   DTSBX770
00260  P1000-SELECT-PROGRAM.                                            DTSBX770
00261      ADD +1 TO WRK-RECORDS-READ-CNT.                              DTSBX770
00262                                                                   DTSBX770
00263      EVALUATE TRUE                                                DTSBX770
00264        WHEN RSK1-REC-TYPE = '771'                                 DTSBX770
00265          PERFORM P1100-REC-771     THRU P1100-EXIT                DTSBX770
00266                                                                   DTSBX770
00267        WHEN RSK1-REC-TYPE = '772'                                 DTSBX770
00268          PERFORM P1200-REC-772     THRU P1200-EXIT                DTSBX770
00269                                                                   DTSBX770
00270        WHEN RSK1-REC-TYPE = '773'                                 DTSBX770
00271          PERFORM P1300-REC-773     THRU P1300-EXIT                DTSBX770
00272                                                                   DTSBX770
00273        WHEN RSK1-REC-TYPE = '774'                                 DTSBX770
00274          PERFORM P1400-REC-774     THRU P1400-EXIT                DTSBX770
00275                                                                   DTSBX770
00276        WHEN RSK1-REC-TYPE = '775'                                 DTSBX770
00277          PERFORM P1500-REC-775     THRU P1500-EXIT                DTSBX770
00278                                                                   DTSBX770
00279        WHEN RSK1-REC-TYPE = '779'                                 DTSBX770
00280          PERFORM P1900-REC-779     THRU P1900-EXIT                DTSBX770
00281                                                                   DTSBX770
00282        WHEN OTHER                                                 DTSBX770
00283          DISPLAY 'DTSBX770: INVALID RECORD TYPE '                 DTSBX770
00284              RSK1-REC-TYPE                                        DTSBX770
00285      END-EVALUATE.                                                DTSBX770
00286                                                                   DTSBX770
00287  P1000-EXIT.                                                      DTSBX770
00288      EXIT.                                                        DTSBX770
00289                                                                   DTSBX770
00290  P1100-REC-771.                                                   DTSBX770
00291      SET XL771-CMD-PROCESS-88  TO TRUE.                           DTSBX770
00292      PERFORM S771-CALL         THRU S771-EXIT.                    DTSBX770
00293                                                                   DTSBX770
00294  P1100-EXIT.                                                      DTSBX770
00295      EXIT.                                                        DTSBX770
00296                                                                   DTSBX770
00297  P1200-REC-772.                                                   DTSBX770
00298      SET XL772-CMD-PROCESS-88  TO TRUE.                           DTSBX770
00299      PERFORM S772-CALL         THRU S772-EXIT.                    DTSBX770
00300                                                                   DTSBX770
00301  P1200-EXIT.                                                      DTSBX770
00302      EXIT.                                                        DTSBX770
00303                                                                   DTSBX770
00304  P1300-REC-773.                                                   DTSBX770
00305      SET XL773-CMD-PROCESS-88  TO TRUE.                           DTSBX770
00306      PERFORM S773-CALL         THRU S773-EXIT.                    DTSBX770
00307                                                                   DTSBX770
00308  P1300-EXIT.                                                      DTSBX770
00309      EXIT.                                                        DTSBX770
00310                                                                   DTSBX770
00311  P1400-REC-774.                                                   DTSBX770
00312      SET XL774-CMD-PROCESS-88  TO TRUE.                           DTSBX770
00313      PERFORM S774-CALL         THRU S774-EXIT.                    DTSBX770
00314                                                                   DTSBX770
00315  P1400-EXIT.                                                      DTSBX770
00316      EXIT.                                                        DTSBX770
00317                                                                   DTSBX770
00318  P1500-REC-775.                                                   DTSBX770
00319      SET XL775-CMD-PROCESS-88  TO TRUE.                           DTSBX770
00320      PERFORM S775-CALL         THRU S775-EXIT.                    DTSBX770
00321                                                                   DTSBX770
00322  P1500-EXIT.                                                      DTSBX770
00323      EXIT.                                                        DTSBX770
00324                                                                   DTSBX770
00325  P1900-REC-779.                                                   DTSBX770
00326      MOVE RSKL-REC             TO Y779-REC.                       DTSBX770
00327                                                                   DTSBX770
00328      DISPLAY 'P1000 Y779 REC FOUND'.                              DTSBX770
00329      DISPLAY 'ITEM 12 OUTSTANDING QTRS '                          DTSBX770
00330         Y779-OUTSTANDING-BAL.                                     DTSBX770
00331      DISPLAY 'ITEM 13 OUTSTANDING BAL '                           DTSBX770
00332         Y779-OUTSTANDING-QTR-CNT.                                 DTSBX770
00333                                                                   DTSBX770
00334      MOVE Y779-OUTSTANDING-QTR-CNT TO WRK-OUTSTANDING-QTR-CNT.    DTSBX770
00335      MOVE Y779-OUTSTANDING-BAL     TO WRK-OUTSTANDING-BAL.        DTSBX770
00336      MOVE Y779-WAGE-ITEM-CNT       TO WRK-WAGE-ITEM-CNT.          DTSBX770
00337      MOVE Y779-MANDATORY-XFER-CNT  TO WRK-MANDATORY-CNT.          DTSBX770
00338      MOVE Y779-PROHIBITED-XFER-CNT TO WRK-PROHIBITED-CNT.         DTSBX770
00339      MOVE Y779-SUTA-CONTRIB-DUE    TO WRK-SUTA-DMP-AMT.           DTSBX770
00340                                                                   DTSBX770
00341  P1900-EXIT.                                                      DTSBX770
00342      EXIT.                                                        DTSBX770
00343                                                                   DTSBX770
00344  T0000-TERMINATE.                                                 DTSBX770
00345                                                                   DTSBX770
00346      PERFORM T1000-FINAL-CALL  THRU T1000-EXIT.                   DTSBX770
00347                                                                   DTSBX770
00348      PERFORM T2000-BUILD-F581  THRU T2000-EXIT.                   DTSBX770
00349                                                                   DTSBX770
00350      DISPLAY ' '.                                                 DTSBX770
00351                                                                   DTSBX770
00352      DISPLAY '*** DTSBX770 TERMINATION STATISTICS ***'.           DTSBX770
00353                                                                   DTSBX770
00354      DISPLAY ' '.                                                 DTSBX770
00355                                                                   DTSBX770
00356      MOVE WRK-RECORDS-READ-CNT   TO WRK-CNT-DISP.                 DTSBX770
00357      DISPLAY '   INPUT RECORDS READ:     '                        DTSBX770
00358         WRK-CNT-DISP.                                             DTSBX770
00359                                                                   DTSBX770
00360      DISPLAY '   ACTIVE SELF-INS  ' F581-REIMB-EMP-CNT.           DTSBX770
00361      DISPLAY '   ACTIVE RATED     ' F581-CON-EMP-CNT.             DTSBX770
00362      DISPLAY SPACE.                                               DTSBX770
00363      DISPLAY '   NEW DETERMS      ' F581-NEW-DETERM-CNT.          DTSBX770
00364      DISPLAY '   NEW DETERMS T90  ' F581-NEW-DETERM-T90-CNT.      DTSBX770
00365      DISPLAY '   NEW DETERMS T180 ' F581-NEW-DETERM-T180-CNT.     DTSBX770
00366      DISPLAY '   SUC DETERMS      ' F581-SUC-DETERM-CNT.          DTSBX770
00367      DISPLAY '   SUC DETERMS T90  ' F581-SUC-DETERM-T90-CNT.      DTSBX770
00368      DISPLAY '   SUC DETERMS T180 ' F581-SUC-DETERM-T180-CNT.     DTSBX770
00369      DISPLAY '   INACT DETERMS    ' F581-TERMINATION-CNT.         DTSBX770
00370                                                                   DTSBX770
00371      SET L926-CLOSE-88 TO TRUE.                                   DTSBX770
00372      PERFORM S926-BD770-INPUT THRU S926-EXIT.                     DTSBX770
00373                                                                   DTSBX770
00374      PERFORM S931-CLOSE       THRU S931-EXIT.                     DTSBX770
00375                                                                   DTSBX770
00376  T0000-EXIT.                                                      DTSBX770
00377      EXIT.                                                        DTSBX770
00378                                                                   DTSBX770
00379  T1000-FINAL-CALL.                                                DTSBX770
00380      SET XL771-CMD-TERMINATE-88 TO TRUE.                          DTSBX770
00381      PERFORM S771-CALL THRU S771-EXIT.                            DTSBX770
00382                                                                   DTSBX770
00383      SET XL772-CMD-TERMINATE-88 TO TRUE.                          DTSBX770
00384      PERFORM S772-CALL THRU S772-EXIT.                            DTSBX770
00385                                                                   DTSBX770
00386      SET XL773-CMD-TERMINATE-88 TO TRUE.                          DTSBX770
00387      PERFORM S773-CALL THRU S773-EXIT.                            DTSBX770
00388                                                                   DTSBX770
00389      SET XL774-CMD-TERMINATE-88 TO TRUE.                          DTSBX770
00390      PERFORM S774-CALL THRU S774-EXIT.                            DTSBX770
00391                                                                   DTSBX770
00392      SET XL775-CMD-TERMINATE-88 TO TRUE.                          DTSBX770
00393      PERFORM S775-CALL THRU S775-EXIT.                            DTSBX770
00394                                                                   DTSBX770
00395  T1000-EXIT.                                                      DTSBX770
00396      EXIT.                                                        DTSBX770
00397                                                                   DTSBX770
00398  T2000-BUILD-F581.                                                DTSBX770
00399      MOVE X770-SUBJECT-QTR-START    TO F581-PERIOD-BEGIN-DATE.    DTSBX770
00400      MOVE X770-SUBJECT-QTR-END      TO F581-PERIOD-END-DATE.      DTSBX770
00401                                                                   DTSBX770
00402      MOVE XL771-CON-EMP-CNT         TO F581-CON-EMP-CNT.          DTSBX770
00403      MOVE XL771-REIMB-EMP-CNT       TO F581-REIMB-EMP-CNT.        DTSBX770
00404      MOVE XL771-TOT-EMP-CNT         TO F581-TOTAL-EMP-CNT.        DTSBX770
00405                                                                   DTSBX770
00406      MOVE X770-DELINQUENT-DATE      TO F581-DEL-CUTOFF-DATE.      DTSBX770
00407      MOVE ZERO                      TO F581-WAGE-ITEM-RCVD-CNT.   DTSBX770
00408      MOVE XL772-CON-TIMELY-CNT      TO F581-CON-TIMELY-CNT.       DTSBX770
00409      MOVE XL772-CON-SECURED-CNT     TO F581-CON-SECURED-CNT.      DTSBX770
00410      MOVE XL772-CON-RESOLVED-CNT    TO F581-CON-RESOLVED-CNT.     DTSBX770
00411      DISPLAY 'BX770 T2000 CON SECURED: '                          DTSBX770
00412         F581-CON-SECURED-CNT.                                     DTSBX770
00413      DISPLAY 'BX770 T2000 CON RESOLVED: '                         DTSBX770
00414         F581-CON-RESOLVED-CNT.                                    DTSBX770
00415 **   COMPUTE F581-CON-RESOLVED-CNT =                              DTSBX770
00416 *       (XL772-CON-RESOLVED-CNT + WRK-ANNUAL-RPT-CNT).            DTSBX770
00417 *    DISPLAY 'BX770 T2000 CON RESOLVED TOTAL: '                   DTSBX770
00418 **      F581-CON-RESOLVED-CNT.                                    DTSBX770
00419      MOVE XL772-REIMB-TIMELY-CNT    TO F581-REIMB-TIMELY-CNT.     DTSBX770
00420      MOVE XL772-REIMB-SECURED-CNT   TO F581-REIMB-SECURED-CNT.    DTSBX770
00421      MOVE XL772-REIMB-RESOLVED-CNT  TO F581-REIMB-RESOLVED-CNT.   DTSBX770
00422                                                                   DTSBX770
00423      MOVE XL773-NEW-DETERM-CNT      TO F581-NEW-DETERM-CNT.       DTSBX770
00424      MOVE XL773-NEW-DETERM-T90-CNT                                DTSBX770
00425                                  TO F581-NEW-DETERM-T90-CNT.      DTSBX770
00426      MOVE XL773-NEW-DETERM-T180-CNT                               DTSBX770
00427                                  TO F581-NEW-DETERM-T180-CNT.     DTSBX770
00428      MOVE XL773-SUC-DETERM-CNT      TO F581-SUC-DETERM-CNT.       DTSBX770
00429      MOVE XL773-SUC-DETERM-T90-CNT                                DTSBX770
00430                                  TO F581-SUC-DETERM-T90-CNT.      DTSBX770
00431      MOVE XL773-SUC-DETERM-T180-CNT                               DTSBX770
00432                                  TO F581-SUC-DETERM-T180-CNT.     DTSBX770
00433      MOVE XL773-TERMINATION-CNT  TO F581-TERMINATION-CNT.         DTSBX770
00434                                                                   DTSBX770
00435      MOVE XL774-CON-RECVBL-BEG-PERIOD                             DTSBX770
00436                                  TO F581-CON-RECVBL-BEG-PERIOD.   DTSBX770
00437      MOVE XL774-CON-RECVBL-DETERM                                 DTSBX770
00438                                  TO F581-CON-RECVBL-DETERM.       DTSBX770
00439      MOVE XL774-CON-RECVBL-LIQUID                                 DTSBX770
00440                                  TO F581-CON-RECVBL-LIQUID.       DTSBX770
00441      MOVE XL774-CON-RECVBL-UNCOLLECT                              DTSBX770
00442                                  TO F581-CON-RECVBL-UNCOLLECT.    DTSBX770
00443      MOVE XL774-CON-RECVBL-REMOVED                                DTSBX770
00444                                  TO F581-CON-RECVBL-REMOVED.      DTSBX770
00445      MOVE XL774-CON-RECVBL-END-PERIOD                             DTSBX770
00446                                  TO F581-CON-RECVBL-END-PERIOD.   DTSBX770
00447      MOVE XL774-CON-RECVBL-EMP-CNT                                DTSBX770
00448                                  TO F581-CON-RECVBL-EMP-CNT.      DTSBX770
00449      MOVE XL774-CON-RECVBL-6-MOS                                  DTSBX770
00450                                  TO F581-CON-RECVBL-6-MOS.        DTSBX770
00451      MOVE XL774-CON-RECVBL-9-MOS                                  DTSBX770
00452                                  TO F581-CON-RECVBL-9-MOS.        DTSBX770
00453      MOVE XL774-CON-RECVBL-12-MOS                                 DTSBX770
00454                                  TO F581-CON-RECVBL-12-MOS.       DTSBX770
00455      MOVE XL774-CON-RECVBL-15-MOS                                 DTSBX770
00456                                  TO F581-CON-RECVBL-15-MOS.       DTSBX770
00457      MOVE XL774-CON-RECVBL-OVER15-MOS                             DTSBX770
00458                                  TO F581-CON-RECVBL-OVER15-MOS.   DTSBX770
00459                                                                   DTSBX770
00460      MOVE XL774-REIMB-RECVBL-BEG-PERIOD                           DTSBX770
00461                                  TO F581-REIMB-RECVBL-BEG-PERIOD. DTSBX770
00462      MOVE XL774-REIMB-RECVBL-DETERM                               DTSBX770
00463                                  TO F581-REIMB-RECVBL-DETERM.     DTSBX770
00464      MOVE XL774-REIMB-RECVBL-LIQUID                               DTSBX770
00465                                  TO F581-REIMB-RECVBL-LIQUID.     DTSBX770
00466      MOVE XL774-REIMB-RECVBL-UNCOLLECT                            DTSBX770
00467                                  TO F581-REIMB-RECVBL-UNCOLLECT.  DTSBX770
00468      MOVE XL774-REIMB-RECVBL-REMOVED                              DTSBX770
00469                                  TO F581-REIMB-RECVBL-REMOVED.    DTSBX770
00470      MOVE XL774-REIMB-RECVBL-END-PERIOD                           DTSBX770
00471                                  TO F581-REIMB-RECVBL-END-PERIOD. DTSBX770
00472      MOVE XL774-REIMB-RECVBL-EMP-CNT                              DTSBX770
00473                                  TO F581-REIMB-RECVBL-EMP-CNT.    DTSBX770
00474      MOVE XL774-REIMB-RECVBL-6-MOS                                DTSBX770
00475                                  TO F581-REIMB-RECVBL-6-MOS.      DTSBX770
00476      MOVE XL774-REIMB-RECVBL-9-MOS                                DTSBX770
00477                                  TO F581-REIMB-RECVBL-9-MOS.      DTSBX770
00478      MOVE XL774-REIMB-RECVBL-12-MOS                               DTSBX770
00479                                  TO F581-REIMB-RECVBL-12-MOS.     DTSBX770
00480      MOVE XL774-REIMB-RECVBL-15-MOS                               DTSBX770
00481                                  TO F581-REIMB-RECVBL-15-MOS.     DTSBX770
00482      MOVE XL774-REIMB-RECVBL-OVER15-MOS                           DTSBX770
00483                                  TO F581-REIMB-RECVBL-OVER15-MOS. DTSBX770
00484                                                                   DTSBX770
00485      MOVE XL775-AUDIT-LARGE-EMP-CNT  TO F581-AUDIT-LARGE-EMP-CNT. DTSBX770
00486      MOVE XL775-AUDIT-TOT-EMP-CNT    TO F581-AUDIT-TOT-EMP-CNT.   DTSBX770
00487      MOVE XL775-AUDIT-QTR-CNT        TO F581-AUDIT-QTR-CNT.       DTSBX770
00488      MOVE XL775-AUDIT-TOT-WAGES-PRE  TO F581-AUDIT-TOT-WAGES-PRE. DTSBX770
00489      MOVE XL775-AUDIT-TOT-WAGES-POST TO F581-AUDIT-TOT-WAGES-POST.DTSBX770
00490      MOVE XL775-AUDIT-CHANGE-CNT     TO F581-AUDIT-CHANGE-CNT.    DTSBX770
00491      MOVE XL775-AUDIT-HOURS-CNT      TO F581-AUDIT-HOURS-CNT.     DTSBX770
00492      MOVE XL775-AUDIT-UNDERRPT-TOT-WAGES TO                       DTSBX770
00493                                F581-AUDIT-UNDERRPT-TOT-WAGES.     DTSBX770
00494      MOVE XL775-AUDIT-UNDERRPT-TAX-WAGES TO                       DTSBX770
00495                                F581-AUDIT-UNDERRPT-TAX-WAGES.     DTSBX770
00496      MOVE XL775-AUDIT-UNDERRPT-CONTRIB TO                         DTSBX770
00497                                F581-AUDIT-UNDERRPT-CONTRIB.       DTSBX770
00498      MOVE XL775-AUDIT-OVERRPT-TOT-WAGES TO                        DTSBX770
00499                                F581-AUDIT-OVERRPT-TOT-WAGES.      DTSBX770
00500      MOVE XL775-AUDIT-OVERRPT-TAX-WAGES TO                        DTSBX770
00501                                F581-AUDIT-OVERRPT-TAX-WAGES.      DTSBX770
00502      MOVE XL775-AUDIT-OVERRPT-CONTRIB  TO                         DTSBX770
00503                                F581-AUDIT-OVERRPT-CONTRIB.        DTSBX770
00504      MOVE XL775-AUDIT-INDCON-TO-EMPL-CNT TO                       DTSBX770
00505                                F581-AUDIT-INDCON-TO-EMPL-CNT.     DTSBX770
00506                                                                   DTSBX770
00507      MOVE WRK-OUTSTANDING-QTR-CNT  TO F581-OUTSTDG-QTRS-CNT.      DTSBX770
00508      MOVE WRK-OUTSTANDING-BAL      TO F581-EST-UI-DUE-AMT.        DTSBX770
00509      MOVE WRK-WAGE-ITEM-CNT        TO F581-WAGE-ITEM-RCVD-CNT.    DTSBX770
00510      MOVE WRK-MANDATORY-CNT        TO F581-MANDATORY-XFER-CNT.    DTSBX770
00511      MOVE WRK-PROHIBITED-CNT       TO F581-PROHIBITED-XFER-CNT.   DTSBX770
00512      MOVE WRK-SUTA-DMP-AMT         TO F581-SUTA-CONTRIB-DUE.      DTSBX770
00513                                                                   DTSBX770
00514      MOVE LOW-VALUES TO F581-KEY-AREA.                            DTSBX770
00515      SET F581-581-88 TO TRUE.                                     DTSBX770
00516      MOVE X770-SUBJECT-QTR TO F581-YRQ.                           DTSBX770
00517      MOVE F581-KEY-AREA TO FSKL-KEY-AREA.                         DTSBX770
00518      PERFORM S931-READ THRU S931-EXIT.                            DTSBX770
00519      IF L931-NO-REC-88                                            DTSBX770
00520          MOVE F581-REC TO FSKL-REC                                DTSBX770
00521          PERFORM S931-WRITE THRU S931-EXIT                        DTSBX770
00522      ELSE                                                         DTSBX770
00523          MOVE F581-REC TO FSKL-REC                                DTSBX770
00524          PERFORM S931-REWRITE THRU S931-EXIT.                     DTSBX770
00525                                                                   DTSBX770
00526      MOVE X770-SUBJECT-QTR TO R713-YRQ.                           DTSBX770
00527      PERFORM S946-WRITE-R713 THRU S946-EXIT.                      DTSBX770
00528                                                                   DTSBX770
00529  T2000-EXIT.                                                      DTSBX770
00530      EXIT.                                                        DTSBX770
00531                                                                   DTSBX770
00532  S771-CALL.                                                       DTSBX770
00533      SET PROG-NAME-771 TO TRUE.                                   DTSBX770
00534      CALL PROG-NAME   USING XL771-LINK-AREA                       DTSBX770
00535                             WRK-PARM-REC                          DTSBX770
00536                             RSKL-REC.                             DTSBX770
00537  S771-EXIT.                                                       DTSBX770
00538      EXIT.                                                        DTSBX770
00539                                                                   DTSBX770
00540  S772-CALL.                                                       DTSBX770
00541      SET PROG-NAME-772 TO TRUE.                                   DTSBX770
00542      CALL PROG-NAME   USING XL772-LINK-AREA                       DTSBX770
00543                             WRK-PARM-REC                          DTSBX770
00544                             RSKL-REC.                             DTSBX770
00545  S772-EXIT.                                                       DTSBX770
00546      EXIT.                                                        DTSBX770
00547                                                                   DTSBX770
00548  S773-CALL.                                                       DTSBX770
00549      SET PROG-NAME-773 TO TRUE.                                   DTSBX770
00550      CALL PROG-NAME   USING XL773-LINK-AREA                       DTSBX770
00551                             WRK-PARM-REC                          DTSBX770
00552                             RSKL-REC.                             DTSBX770
00553  S773-EXIT.                                                       DTSBX770
00554      EXIT.                                                        DTSBX770
00555                                                                   DTSBX770
00556  S774-CALL.                                                       DTSBX770
00557      SET PROG-NAME-774 TO TRUE.                                   DTSBX770
00558      CALL PROG-NAME   USING XL774-LINK-AREA                       DTSBX770
00559                             WRK-PARM-REC                          DTSBX770
00560                             RSKL-REC.                             DTSBX770
00561  S774-EXIT.                                                       DTSBX770
00562      EXIT.                                                        DTSBX770
00563                                                                   DTSBX770
00564  S775-CALL.                                                       DTSBX770
00565      SET PROG-NAME-775 TO TRUE.                                   DTSBX770
00566      CALL PROG-NAME   USING XL775-LINK-AREA                       DTSBX770
00567                             WRK-PARM-REC                          DTSBX770
00568                             RSKL-REC.                             DTSBX770
00569  S775-EXIT.                                                       DTSBX770
00570      EXIT.                                                        DTSBX770
00571                                                                   DTSBX770
00572  S926-BD770-INPUT.                                                DTSBX770
00573      CALL 'DTSBU926' USING L926-LINK-AREA                         DTSBX770
00574                            RSKL-REC.                              DTSBX770
00575                                                                   DTSBX770
00576  S926-EXIT.                                                       DTSBX770
00577      EXIT.                                                        DTSBX770
00578                                                                   DTSBX770
00579  S931-OPEN-READ.                                                  DTSBX770
00580      SET L931-OPEN-READ-88 TO TRUE.                               DTSBX770
00581      GO TO S931-REF-IO.                                           DTSBX770
00582                                                                   DTSBX770
00583  S931-OPEN-UPDATE.                                                DTSBX770
00584      SET L931-OPEN-UPDATE-88 TO TRUE.                             DTSBX770
00585      GO TO S931-REF-IO.                                           DTSBX770
00586                                                                   DTSBX770
00587  S931-READ.                                                       DTSBX770
00588      SET L931-READ-88        TO TRUE.                             DTSBX770
00589      GO TO S931-REF-IO.                                           DTSBX770
00590                                                                   DTSBX770
00591  S931-WRITE.                                                      DTSBX770
00592      SET L931-WRITE-88        TO TRUE.                            DTSBX770
00593      GO TO S931-REF-IO.                                           DTSBX770
00594                                                                   DTSBX770
00595  S931-REWRITE.                                                    DTSBX770
00596      SET L931-REWRITE-88        TO TRUE.                          DTSBX770
00597      GO TO S931-REF-IO.                                           DTSBX770
00598                                                                   DTSBX770
00599  S931-CLOSE.                                                      DTSBX770
00600      SET L931-CLOSE-88 TO TRUE.                                   DTSBX770
00601      GO TO S931-REF-IO.                                           DTSBX770
00602                                                                   DTSBX770
00603  S931-REF-IO.                                                     DTSBX770
00604      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBX770
00605                            FSKL-REC.                              DTSBX770
00606  S931-EXIT.                                                       DTSBX770
00607      EXIT.                                                        DTSBX770
00608                                                                   DTSBX770
00609  S946-WRITE-R713.                                                 DTSBX770
00610      CALL 'DTSBU946' USING R713-REC.                              DTSBX770
00611      GO TO S946-EXIT.                                             DTSBX770
00612                                                                   DTSBX770
00613  S946-EXIT.                                                       DTSBX770
00614      EXIT.                                                        DTSBX770
00615                                                                   DTSBX770
00616  S999-ABEND.                                                      DTSBX770
00617      DISPLAY '*** DTSBX770 ABENDING '                             DTSBX770
00618         WRK-ABEND-MSG.                                            DTSBX770
00619      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBX770
00620                                                                   DTSBX770
00621  S999-EXIT.                                                       DTSBX770
00622      EXIT.                                                        DTSBX770
