00001  IDENTIFICATION DIVISION.                                         10/29/15
00002  PROGRAM-ID.             DTSBD513.                                DTSBD513
00003  AUTHOR.                 NORTHROP GRUMMAN (SCM)                      LV009
00004  DATE-WRITTEN.           JULY 2003.                               DTSBD513
00005 *DATE-MODIFIED.                                                   DTSBD513
00006  DATE-COMPILED.                                                   DTSBD513
00007                                                                   DTSBD513
00008 *****                                                             DTSBD513
00009 *                                                                 DTSBD513
00010 *    CALLING SEQUENCE:  NONE, DTSBD513 PROCESSES MONTHLY REPORT   DTSBD513
00011 *                       RECORDS DTSIR305 AND DTSIR306 TO GET      DTSBD513
00012 *                       THE DATA TO BE REPORTED.                  DTSBD513
00013 *                                                                 DTSBD513
00014 *    FUNCTION:  GENERATE MONTHLY PENALTY AND INTEREST REPORT FOR  DTSBD513
00015 *               CFO.                                              DTSBD513
00016 *                                                                 DTSBD513
00017 *    MODIFICATION HISTORY:                                        DTSBD513
00018 *                                                                 DTSBD513
00019 * 03-01-2006 ADDED ADMINISTRATIVE ASSESSMENT.                     DTSBD513
00020 *            REFERENCE:                   AUTHOR OF CHANGE - GD   DTSBD513
00021 *                                                                 DTSBD513
00022 * 04-12-2006 ADDED ENDING BALANCE ON TAXABLE AND REIMBURSABLE     DTSBD513
00023 *            EMPLOYERS INFORMATION ON THE DOWNLOAD FILE.          DTSBD513
00024 *            REFERENCE:                   AUTHOR OF CHANGE - RW1  DTSBD513
00025 *                                                                 DTSBD513
00026 * 10-27-2015 CHANGED THE PARA P1120 TO ADD THE R305 BALANCE AMT   DTSBD513
00027 *            WHEN THE ACCT-SUB EQUALS 2 TO BE ADDED TO THE        DTSBD513
00028 *            SELF ASSESSMENT AMOUNT INSTEAD OF THE CONT           DTSBD513
00029 *            REFERENCE:                   AUTHOR OF CHANGE - NH   DTSBD513
00030 *                                                                 DTSBD513
00031 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBD513
00032 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBD513
00033 *            REFERENCE:                   AUTHOR OF CHANGE - XXX  DTSBD513
00034 *                                                                 DTSBD513
00035 *    DESCRIPTION:                                                 DTSBD513
00036 *                                                                 DTSBD513
00037 *        DTSBD513 READS THE R305 AND R306 REPORT RECORDS CREATED  DTSBD513
00038 *        DURING MONTH END PROCESSING.  A REPORT IS GENERATED FOR  DTSBD513
00039 *        THE CFO OFFICE DETAILING THE AMOUNT OF INTEREST AND      DTSBD513
00040 *        PENALTY PAID TO DOES DURING THE MONTH AS WELL AS VARIOUS DTSBD513
00041 *        MONTH-END BALANCES.  IF THE PREVIOUS MONTHEND DEFAULT    DTSBD513
00042 *        DATE IS NOT TO BE USED, ENTER THE DESIRED MONTHEND DATE  DTSBD513
00043 *        IN THE JCL PARM CARD.  DON'T FORGET TO CHANGE THE GDG    DTSBD513
00044 *        DSN TO MATCH THE MONTHEND TO BE PROCESSED.               DTSBD513
00045 *                                                                 DTSBD513
00046 *    RECORDS READ:                                                DTSBD513
00047 *                                                                 DTSBD513
00048 *        NONE.                                                    DTSBD513
00049 *                                                                 DTSBD513
00050 *    PRINTED OUTPUTS:                                             DTSBD513
00051 *                                                                 DTSBD513
00052 *        BD513R1  PENALTY, INTEREST, RECEIVABLES AND PAYABLES     DTSBD513
00053 *                 FOR CFO                                         DTSBD513
00054 *                                                                 DTSBD513
00055 *    RECORDS WRITTEN:                                             DTSBD513
00056 *                                                                 DTSBD513
00057 *        NONE.                                                    DTSBD513
00058 *                                                                 DTSBD513
00059 *    MODULES CALLED:                                              DTSBD513
00060 *                                                                 DTSBD513
00061 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBD513
00062 *        DTSBU005 DATE EDIT/CONVERSION MODULE                     DTSBD513
00063 *        DTSBU941 VARIABLE LENGTH RECORD READ                     DTSBD513
00064 *                                                                 DTSBD513
00065 *****                                                             DTSBD513
00066      EJECT                                                        DTSBD513
00067  ENVIRONMENT DIVISION.                                            DTSBD513
00068      SKIP2                                                        DTSBD513
00069  CONFIGURATION SECTION.                                           DTSBD513
00070  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBD513
00071                                                                   DTSBD513
00072  INPUT-OUTPUT SECTION.                                            DTSBD513
00073                                                                   DTSBD513
00074  FILE-CONTROL.                                                    DTSBD513
00075      SELECT PRT-FILE       ASSIGN TO RPT513R1.                    DTSBD513
00076                                                                   DTSBD513
00077      SELECT DOWNLOAD-FILE  ASSIGN TO DTSF513                      DTSBD513
00078         FILE STATUS IS DOWNLOAD-STATUS.                           DTSBD513
00079                                                                   DTSBD513
00080  DATA DIVISION.                                                   DTSBD513
00081                                                                   DTSBD513
00082  FILE SECTION.                                                    DTSBD513
00083                                                                   DTSBD513
00084  FD  PRT-FILE                                                     DTSBD513
00085      RECORDING MODE IS F.                                         DTSBD513
00086  01  PRT-RECORD              PIC X(133).                          DTSBD513
00087                                                                   DTSBD513
00088  FD  DOWNLOAD-FILE                                                DTSBD513
00089      RECORDING MODE IS F.                                         DTSBD513
00090  01  DOWNLOAD-REC            PIC X(80).                           DTSBD513
00091                                                                   DTSBD513
00092  WORKING-STORAGE SECTION.                                         DTSBD513
000925 77  PAN-VALET PICTURE X(24) VALUE '009DTSBD513  10/29/15'.       DTSBD513
00093  77  PAN-VALET PICTURE X(24) VALUE '004DTSBD513  10/27/15'.       DTSBD513
00094  77  PAN-VALET PICTURE X(24) VALUE '007DTSBD513  04/13/06'.       DTSBD513
00095  01  WRK-AREA.                                                    DTSBD513
00096      05  DOWNLOAD-STATUS             PIC X(02) VALUE ZEROS.       DTSBD513
00097          88  DOWNLOAD-STATUS-OK-88    VALUE '00'.                 DTSBD513
00098                                                                   DTSBD513
00099      05  WRK-MOD-NAME                PIC X(08) VALUE 'DTSBD513'.  DTSBD513
00100      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +513.DTSBD513
00101      05  WS-LINE-CNT                 PIC S9(02)  COMP-3 VALUE 60. DTSBD513
00102      05  WS-PAGE-CNT                 PIC S9(03)  COMP-3 VALUE +0. DTSBD513
00103      05  WRK-REPORT-DATE             PIC S9(09)  COMP-3 VALUE +0. DTSBD513
00104                                                                   DTSBD513
00105      05  WS-DETAIL-AMTS.                                          DTSBD513
00106          10  WS-INTEREST-XFER     PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00107          10  WS-PENALTY-XFER      PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00108          10  WS-SURTAX-XFER       PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00109          10  WS-BAL-RATED-CONT    PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00110          10  WS-BAL-RATED-SUR     PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00111          10  WS-BAL-RATED-INT     PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00112          10  WS-BAL-RATED-PEN     PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00113          10  WS-BAL-SELF-CONT     PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00114          10  WS-BAL-SELF-SUR      PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00115          10  WS-BAL-SELF-INT      PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00116          10  WS-BAL-SELF-PEN      PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00117          10  WS-BAL-AP-RATED      PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00118          10  WS-BAL-AP-SELF       PIC S9(11)V99   COMP-3 VALUE +0.DTSBD513
00119                                                                   DTSBD513
00120  01  L001-LINK-AREA.                                              DTSBD513
00121  ++INCLUDE DTSIL001                                               DTSBD513
00122                                                                   DTSBD513
00123  01  L005-LINK-AREA.                                              DTSBD513
00124  ++INCLUDE DTSIL005                                               DTSBD513
00125                                                                   DTSBD513
00126  01  L032-LINK-AREA.                                              DTSBD513
00127  ++INCLUDE DTSIL032                                               DTSBD513
00128                                                                   DTSBD513
00129  01  L910-LINK-AREA.                                              DTSBD513
00130  ++INCLUDE DTSIL910                                               DTSBD513
00131                                                                   DTSBD513
00132  01  L941-LINK-AREA.                                              DTSBD513
00133  ++INCLUDE DTSIL941                                               DTSBD513
00134                                                                   DTSBD513
00135  01  HOLD-ISKL-REC.                                               DTSBD513
00136  ++INCLUDE DTSIRSK1                                               DTSBD513
00137                                                                   DTSBD513
00138  01  HEADER-1.                                                    DTSBD513
00139      05  FILLER                      PIC  X(01) VALUE SPACES.     DTSBD513
00140      05  HDR1-RUN-DATE               PIC  X(25).                  DTSBD513
00141      05  FILLER                      PIC  X(53) VALUE             DTSBD513
00142          'DEPARTMENT OF EMPLOYMENT SERVICES'.                     DTSBD513
00143                                                                   DTSBD513
00144  01  HEADER-2.                                                    DTSBD513
00145      05  FILLER                      PIC  X(16)                   DTSBD513
00146                 VALUE ' DTSBD513'.                                DTSBD513
00147      05  FILLER                      PIC  X(64) VALUE             DTSBD513
00148        'MONTHEND PENALTY, INTEREST, RECEIVABLES AND PAYABLES'.    DTSBD513
00149                                                                   DTSBD513
00150  01  HEADER-2A.                                                   DTSBD513
00151      05  FILLER                      PIC  X(16)                   DTSBD513
00152                 VALUE ' DTSBD513'.                                DTSBD513
00153      05  FILLER                      PIC  X(64) VALUE             DTSBD513
00154        'MONTH-END PENALTY, INTEREST AND PAYABLES'.                DTSBD513
00155                                                                   DTSBD513
00156  01  DETAIL-MONTH-END.                                            DTSBD513
00157      05  FILLER            PIC  X(10) VALUE SPACES.               DTSBD513
00158      05  FILLER            PIC  X(15) VALUE ' MONTH ENDING:'.     DTSBD513
00159      05  DTL-ME-DATE       PIC  X(13).                            DTSBD513
00160                                                                   DTSBD513
00161  01  DETAIL-LINE1.                                                DTSBD513
00162      05  FILLER                  PIC  X(12) VALUE SPACE.          DTSBD513
00163      05  DTL1-LITERAL            PIC  X(22) JUSTIFIED RIGHT.      DTSBD513
00164      05  DTL1-AMOUNT             PIC  $$$$$,$$$,$$$.99-.          DTSBD513
00165                                                                   DTSBD513
00166  01  DETAIL-LINE2.                                                DTSBD513
00167      05  FILLER                  PIC  X(16) VALUE SPACE.          DTSBD513
00168      05  DTL2-LITERAL            PIC  X(12) JUSTIFIED RIGHT.      DTSBD513
00169      05  DTL2-AMOUNT             PIC  $$$$$,$$$,$$$.99-.          DTSBD513
00170                                                                   DTSBD513
00171  01  MSKL-REC.                                                    DTSBD513
00172  ++INCLUDE DTSIMSKL                                               DTSBD513
00173                                                                   DTSBD513
00174  01  MHDR-REC.                                                    DTSBD513
00175  ++INCLUDE DTSIMHDR                                               DTSBD513
00176                                                                   DTSBD513
00177  01  R305-REC.                                                    DTSBD513
00178  ++INCLUDE DTSIR305                                               DTSBD513
00179                                                                   DTSBD513
00180  01  R306-REC.                                                    DTSBD513
00181  ++INCLUDE DTSIR306                                               DTSBD513
00182                                                                   DTSBD513
00183                                                                   DTSBD513
00184  PROCEDURE DIVISION.                                              DTSBD513
00185      PERFORM I0000-INITIATE     THRU I0000-EXIT.                  DTSBD513
00186                                                                   DTSBD513
00187      PERFORM P0000-PROCESS      THRU P0000-EXIT.                  DTSBD513
00188                                                                   DTSBD513
00189      PERFORM T0000-TERMINATE    THRU T0000-EXIT.                  DTSBD513
00190                                                                   DTSBD513
00191      GOBACK.                                                      DTSBD513
00192                                                                   DTSBD513
00193  I0000-INITIATE.                                                  DTSBD513
00194      PERFORM I1000-OPEN-FILES     THRU I1000-EXIT.                DTSBD513
00195                                                                   DTSBD513
00196  I0000-EXIT.                                                      DTSBD513
00197      EXIT.                                                        DTSBD513
00198                                                                   DTSBD513
00199  I1000-OPEN-FILES.                                                DTSBD513
00200      MOVE 'N'               TO L941-TRACE-IND.                    DTSBD513
00201      MOVE WRK-MOD-NAME      TO L941-MOD-NAME.                     DTSBD513
00202      PERFORM S941-OPEN THRU S941-EXIT.                            DTSBD513
00203                                                                   DTSBD513
00204      OPEN OUTPUT PRT-FILE                                         DTSBD513
00205                  DOWNLOAD-FILE                                    DTSBD513
00206      IF DOWNLOAD-STATUS-OK-88                                     DTSBD513
00207         NEXT SENTENCE                                             DTSBD513
00208      ELSE                                                         DTSBD513
00209         DISPLAY 'CANNOT OPEN DOWNLOAD FILE ' DOWNLOAD-STATUS      DTSBD513
00210         PERFORM S999-ABEND THRU S999-EXIT                         DTSBD513
00211      END-IF.                                                      DTSBD513
00212                                                                   DTSBD513
00213  I1000-EXIT.                                                      DTSBD513
00214      EXIT.                                                        DTSBD513
00215                                                                   DTSBD513
00216  P0000-PROCESS.                                                   DTSBD513
00217      PERFORM P1000-READ-SRTMONTH  THRU P1000-EXIT                 DTSBD513
00218         UNTIL L941-NO-REC-88.                                     DTSBD513
00219                                                                   DTSBD513
00220      PERFORM P3000-PRINT-REPORT   THRU P3000-EXIT.                DTSBD513
00221      PERFORM P4000-DOWNLOAD-DATA  THRU P4000-EXIT.                DTSBD513
00222                                                                   DTSBD513
00223  P0000-EXIT.                                                      DTSBD513
00224      EXIT.                                                        DTSBD513
00225                                                                   DTSBD513
00226  P1000-READ-SRTMONTH.                                             DTSBD513
00227      PERFORM S941-READ THRU S941-EXIT.                            DTSBD513
00228                                                                   DTSBD513
00229      IF L941-NO-REC-88                                            DTSBD513
00230         GO TO P1000-EXIT.                                         DTSBD513
00231                                                                   DTSBD513
00232      IF RSK1-REC-TYPE GREATER THAN '306'                          DTSBD513
00233         SET L941-NO-REC-88 TO TRUE                                DTSBD513
00234         GO TO P1000-EXIT.                                         DTSBD513
00235                                                                   DTSBD513
00236      IF RSK1-REC-TYPE EQUAL '305'                                 DTSBD513
00237         MOVE HOLD-ISKL-REC TO R305-REC                            DTSBD513
00238         PERFORM P1100-PROCESS-R305 THRU P1100-EXIT                DTSBD513
00239      ELSE                                                         DTSBD513
00240         IF RSK1-REC-TYPE EQUAL '306'                              DTSBD513
00241            MOVE HOLD-ISKL-REC TO R306-REC                         DTSBD513
00242            PERFORM P1200-PROCESS-R306 THRU P1200-EXIT.            DTSBD513
00243                                                                   DTSBD513
00244  P1000-EXIT.                                                      DTSBD513
00245      EXIT.                                                        DTSBD513
00246                                                                   DTSBD513
00247  P1100-PROCESS-R305.                                              DTSBD513
00248      IF R305-CLASS-RATED-88                                       DTSBD513
00249         PERFORM P1110-RATED        THRU P1110-EXIT                DTSBD513
00250      ELSE                                                         DTSBD513
00251         IF R305-CLASS-SELF-INS-88                                 DTSBD513
00252            PERFORM P1120-SELF-INS  THRU P1120-EXIT.               DTSBD513
00253                                                                   DTSBD513
00254  P1100-EXIT.                                                      DTSBD513
00255      EXIT.                                                        DTSBD513
00256                                                                   DTSBD513
00257  P1110-RATED.                                                     DTSBD513
00258      EVALUATE TRUE                                                DTSBD513
00259        WHEN R305-ACCT-SUB EQUAL 1                                 DTSBD513
00260         ADD R305-BALANCE-AMT TO WS-BAL-RATED-CONT                 DTSBD513
00261                                                                   DTSBD513
00262        WHEN R305-ACCT-SUB EQUAL 2                                 DTSBD513
00263         ADD R305-BALANCE-AMT TO WS-BAL-RATED-SUR                  DTSBD513
00264                                                                   DTSBD513
00265        WHEN R305-ACCT-SUB EQUAL 3                                 DTSBD513
00266            ADD R305-BALANCE-AMT TO WS-BAL-RATED-INT               DTSBD513
00267                                                                   DTSBD513
00268        WHEN R305-ACCT-SUB EQUAL 4 OR 5 OR 6                       DTSBD513
00269            ADD R305-BALANCE-AMT TO WS-BAL-RATED-PEN               DTSBD513
00270                                                                   DTSBD513
00271        WHEN R305-ACCT-SUB EQUAL 7                                 DTSBD513
00272            ADD R305-BALANCE-AMT TO WS-BAL-AP-RATED                DTSBD513
00273      END-EVALUATE.                                                DTSBD513
00274                                                                   DTSBD513
00275  P1110-EXIT.                                                      DTSBD513
00276      EXIT.                                                        DTSBD513
00277                                                                   DTSBD513
00278  P1120-SELF-INS.                                                  DTSBD513
00279      EVALUATE TRUE                                                DTSBD513
00280        WHEN R305-ACCT-SUB EQUAL 1                                 DTSBD513
00281         ADD R305-BALANCE-AMT TO WS-BAL-SELF-CONT                  DTSBD513
00282                                                                   DTSBD513
00283        WHEN R305-ACCT-SUB EQUAL 2                                 DTSBD513
00284 *NH     ADD R305-BALANCE-AMT TO WS-BAL-SELF-CONT                  DTSBD513
00285         ADD R305-BALANCE-AMT TO WS-BAL-SELF-SUR                   DTSBD513
00286                                                                   DTSBD513
00287        WHEN R305-ACCT-SUB EQUAL 3                                 DTSBD513
00288            ADD R305-BALANCE-AMT TO WS-BAL-SELF-INT                DTSBD513
00289                                                                   DTSBD513
00290        WHEN R305-ACCT-SUB EQUAL 4 OR 5 OR 6                       DTSBD513
00291            ADD R305-BALANCE-AMT TO WS-BAL-SELF-PEN                DTSBD513
00292                                                                   DTSBD513
00293        WHEN R305-ACCT-SUB EQUAL 7                                 DTSBD513
00294            ADD R305-BALANCE-AMT TO WS-BAL-AP-SELF                 DTSBD513
00295      END-EVALUATE.                                                DTSBD513
00296                                                                   DTSBD513
00297  P1120-EXIT.                                                      DTSBD513
00298      EXIT.                                                        DTSBD513
00299                                                                   DTSBD513
00300  P1200-PROCESS-R306.                                              DTSBD513
00301      MOVE R306-END-PROCESS-DATE      TO WRK-REPORT-DATE.          DTSBD513
00302                                                                   DTSBD513
00303      IF R306-CLASS-ALL-88                                         DTSBD513
00304         EVALUATE TRUE                                             DTSBD513
00305           WHEN R306-ACCT-IND EQUAL 'I'                            DTSBD513
00306              ADD R306-PAID-AMT TO WS-INTEREST-XFER                DTSBD513
00307                                                                   DTSBD513
00308           WHEN R306-ACCT-IND EQUAL 'LP' OR 'NP' OR 'MP'           DTSBD513
00309              ADD R306-PAID-AMT TO WS-PENALTY-XFER                 DTSBD513
00310                                                                   DTSBD513
00311           WHEN R306-ACCT-IND EQUAL 'SU'                           DTSBD513
00312              ADD R306-PAID-AMT TO WS-SURTAX-XFER                  DTSBD513
00313                                                                   DTSBD513
00314         END-EVALUATE.                                             DTSBD513
00315                                                                   DTSBD513
00316  P1200-EXIT.                                                      DTSBD513
00317      EXIT.                                                        DTSBD513
00318                                                                   DTSBD513
00319  P3000-PRINT-REPORT.                                              DTSBD513
00320      PERFORM P3100-REPORT-DATES   THRU P3100-EXIT.                DTSBD513
00321                                                                   DTSBD513
00322      WRITE PRT-RECORD FROM HEADER-1 AFTER TOP-OF-PAGE.            DTSBD513
00323      WRITE PRT-RECORD FROM HEADER-2 AFTER 1.                      DTSBD513
00324                                                                   DTSBD513
00325      WRITE PRT-RECORD FROM DETAIL-MONTH-END AFTER 3.              DTSBD513
00326                                                                   DTSBD513
00327      MOVE '           ADMINISTRATIVE ACCOUNT, SPECIAL TRANSFER'   DTSBD513
00328        TO PRT-RECORD.                                             DTSBD513
00329      WRITE PRT-RECORD AFTER 2.                                    DTSBD513
00330                                                                   DTSBD513
00331      MOVE 'INTEREST'       TO DTL1-LITERAL.                       DTSBD513
00332      MOVE WS-INTEREST-XFER TO DTL1-AMOUNT.                        DTSBD513
00333      WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1.                  DTSBD513
00334                                                                   DTSBD513
00335      MOVE 'PENALTY'        TO DTL1-LITERAL.                       DTSBD513
00336      MOVE WS-PENALTY-XFER  TO DTL1-AMOUNT.                        DTSBD513
00337      WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1.                  DTSBD513
00338                                                                   DTSBD513
00339      MOVE 'ADMIN ASSESSMENT'  TO DTL1-LITERAL.                    DTSBD513
00340      MOVE WS-SURTAX-XFER  TO DTL1-AMOUNT.                         DTSBD513
00341      WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1.                  DTSBD513
00342                                                                   DTSBD513
00343      MOVE '           ENDING BALANCES' TO PRT-RECORD.             DTSBD513
00344      WRITE PRT-RECORD AFTER 2.                                    DTSBD513
00345                                                                   DTSBD513
00346      MOVE '             TAXABLE EMPLOYERS' TO PRT-RECORD.         DTSBD513
00347      WRITE PRT-RECORD AFTER 2.                                    DTSBD513
00348                                                                   DTSBD513
00349      MOVE 'CONTRIBUTION'    TO DTL2-LITERAL.                      DTSBD513
00350      MOVE WS-BAL-RATED-CONT TO DTL2-AMOUNT.                       DTSBD513
00351      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBD513
00352                                                                   DTSBD513
00353      MOVE 'ADMIN ASSESS'    TO DTL2-LITERAL.                      DTSBD513
00354      MOVE WS-BAL-RATED-SUR  TO DTL2-AMOUNT.                       DTSBD513
00355      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBD513
00356                                                                   DTSBD513
00357      MOVE 'INTEREST'        TO DTL2-LITERAL.                      DTSBD513
00358      MOVE WS-BAL-RATED-INT  TO DTL2-AMOUNT.                       DTSBD513
00359      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBD513
00360                                                                   DTSBD513
00361      MOVE 'PENALTY'         TO DTL2-LITERAL.                      DTSBD513
00362      MOVE WS-BAL-RATED-PEN  TO DTL2-AMOUNT.                       DTSBD513
00363      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBD513
00364                                                                   DTSBD513
00365      MOVE '             REIMBURSABLE EMPLOYERS' TO PRT-RECORD.    DTSBD513
00366      WRITE PRT-RECORD AFTER 2.                                    DTSBD513
00367                                                                   DTSBD513
00368      MOVE 'CONTRIBUTION'   TO DTL2-LITERAL.                       DTSBD513
00369      MOVE WS-BAL-SELF-CONT TO DTL2-AMOUNT.                        DTSBD513
00370      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBD513
00371                                                                   DTSBD513
00372      MOVE 'ADMIN ASSESS'   TO DTL2-LITERAL.                       DTSBD513
00373      MOVE WS-BAL-SELF-SUR  TO DTL2-AMOUNT.                        DTSBD513
00374      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBD513
00375                                                                   DTSBD513
00376      MOVE 'INTEREST'       TO DTL2-LITERAL.                       DTSBD513
00377      MOVE WS-BAL-SELF-INT  TO DTL2-AMOUNT.                        DTSBD513
00378      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBD513
00379                                                                   DTSBD513
00380      MOVE 'PENALTY'        TO DTL2-LITERAL.                       DTSBD513
00381      MOVE WS-BAL-SELF-PEN  TO DTL2-AMOUNT.                        DTSBD513
00382      WRITE PRT-RECORD FROM DETAIL-LINE2 AFTER 1.                  DTSBD513
00383                                                                   DTSBD513
00384      MOVE '           ACCOUNTS PAYABLE' TO PRT-RECORD.            DTSBD513
00385      WRITE PRT-RECORD AFTER 2.                                    DTSBD513
00386                                                                   DTSBD513
00387      MOVE 'TAXABLE EMPLOYERS' TO DTL1-LITERAL.                    DTSBD513
00388      MOVE WS-BAL-AP-RATED     TO DTL1-AMOUNT.                     DTSBD513
00389      WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1.                  DTSBD513
00390                                                                   DTSBD513
00391      MOVE 'REIMBURSABLE EMPLOYERS' TO DTL1-LITERAL.               DTSBD513
00392      MOVE WS-BAL-AP-SELF           TO DTL1-AMOUNT.                DTSBD513
00393      WRITE PRT-RECORD FROM DETAIL-LINE1 AFTER 1.                  DTSBD513
00394                                                                   DTSBD513
00395  P3000-EXIT.                                                      DTSBD513
00396      EXIT.                                                        DTSBD513
00397                                                                   DTSBD513
00398  P3100-REPORT-DATES.                                              DTSBD513
00399      MOVE WRK-REPORT-DATE  TO L001-FED-8-DATE-9.                  DTSBD513
00400      SET L001-FROM-FED-8   TO TRUE.                               DTSBD513
00401      PERFORM S001-DATE THRU S001-EXIT.                            DTSBD513
00402      IF L001-VALID-DATE                                           DTSBD513
00403         MOVE L001-SLASH-8-DATE  TO DTL-ME-DATE                    DTSBD513
00404      ELSE                                                         DTSBD513
00405          DISPLAY 'INVALID REPORT DATE ' WRK-REPORT-DATE           DTSBD513
00406          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD513
00407                                                                   DTSBD513
00408      SET L005-FROM-SYS    TO TRUE.                                DTSBD513
00409      PERFORM S005-DATE THRU S005-EXIT.                            DTSBD513
00410      MOVE L005-SLASH-DATE TO HDR1-RUN-DATE.                       DTSBD513
00411                                                                   DTSBD513
00412  P3100-EXIT.                                                      DTSBD513
00413      EXIT.                                                        DTSBD513
00414                                                                   DTSBD513
00415  P4000-DOWNLOAD-DATA.                                             DTSBD513
00416      WRITE DOWNLOAD-REC FROM HEADER-1.                            DTSBD513
00417      WRITE DOWNLOAD-REC FROM HEADER-2A.                           DTSBD513
00418                                                                   DTSBD513
00419      MOVE SPACES  TO DOWNLOAD-REC.                                DTSBD513
00420      WRITE DOWNLOAD-REC.                                          DTSBD513
00421                                                                   DTSBD513
00422      WRITE DOWNLOAD-REC FROM DETAIL-MONTH-END.                    DTSBD513
00423                                                                   DTSBD513
00424      MOVE SPACES  TO DOWNLOAD-REC.                                DTSBD513
00425      WRITE DOWNLOAD-REC.                                          DTSBD513
00426                                                                   DTSBD513
00427      MOVE '           ADMINISTRATIVE ACCOUNT, SPECIAL TRANSFER'   DTSBD513
00428        TO DOWNLOAD-REC.                                           DTSBD513
00429      WRITE DOWNLOAD-REC.                                          DTSBD513
00430                                                                   DTSBD513
00431      MOVE 'INTEREST'       TO DTL1-LITERAL.                       DTSBD513
00432      MOVE WS-INTEREST-XFER TO DTL1-AMOUNT.                        DTSBD513
00433      WRITE DOWNLOAD-REC    FROM DETAIL-LINE1.                     DTSBD513
00434                                                                   DTSBD513
00435      MOVE 'PENALTY'        TO DTL1-LITERAL.                       DTSBD513
00436      MOVE WS-PENALTY-XFER  TO DTL1-AMOUNT.                        DTSBD513
00437      WRITE DOWNLOAD-REC    FROM DETAIL-LINE1.                     DTSBD513
00438                                                                   DTSBD513
00439      MOVE 'ADMIN ASSESSMENT'  TO DTL1-LITERAL.                    DTSBD513
00440      MOVE WS-SURTAX-XFER  TO DTL1-AMOUNT.                         DTSBD513
00441      WRITE DOWNLOAD-REC    FROM DETAIL-LINE1.                     DTSBD513
00442                                                                   DTSBD513
00443      MOVE SPACES  TO DOWNLOAD-REC.                                DTSBD513
00444      WRITE DOWNLOAD-REC.                                          DTSBD513
00445                                                                   DTSBD513
00446      MOVE '           ENDING BALANCES' TO DOWNLOAD-REC.           DTSBD513
00447      WRITE DOWNLOAD-REC.                                          DTSBD513
00448                                                                   DTSBD513
00449      MOVE '             TAXABLE EMPLOYERS' TO DOWNLOAD-REC.       DTSBD513
00450      WRITE DOWNLOAD-REC.                                          DTSBD513
00451                                                                   DTSBD513
00452      MOVE 'CONTRIBUTION'    TO DTL1-LITERAL.                      DTSBD513
00453      MOVE WS-BAL-RATED-CONT TO DTL1-AMOUNT.                       DTSBD513
00454      WRITE DOWNLOAD-REC FROM DETAIL-LINE1.                        DTSBD513
00455                                                                   DTSBD513
00456      MOVE 'ADMIN ASSESS'    TO DTL1-LITERAL.                      DTSBD513
00457      MOVE WS-BAL-RATED-SUR  TO DTL1-AMOUNT.                       DTSBD513
00458      WRITE DOWNLOAD-REC FROM DETAIL-LINE1.                        DTSBD513
00459                                                                   DTSBD513
00460      MOVE 'INTEREST'        TO DTL1-LITERAL.                      DTSBD513
00461      MOVE WS-BAL-RATED-INT  TO DTL1-AMOUNT.                       DTSBD513
00462      WRITE DOWNLOAD-REC FROM DETAIL-LINE1.                        DTSBD513
00463                                                                   DTSBD513
00464      MOVE 'PENALTY'         TO DTL1-LITERAL.                      DTSBD513
00465      MOVE WS-BAL-RATED-PEN  TO DTL1-AMOUNT.                       DTSBD513
00466      WRITE DOWNLOAD-REC FROM DETAIL-LINE1.                        DTSBD513
00467                                                                   DTSBD513
00468      MOVE SPACES  TO DOWNLOAD-REC.                                DTSBD513
00469      WRITE DOWNLOAD-REC.                                          DTSBD513
00470                                                                   DTSBD513
00471      MOVE '             REIMBURSABLE EMPLOYERS' TO DOWNLOAD-REC.  DTSBD513
00472      WRITE DOWNLOAD-REC.                                          DTSBD513
00473                                                                   DTSBD513
00474      MOVE 'CONTRIBUTION'   TO DTL1-LITERAL.                       DTSBD513
00475      MOVE WS-BAL-SELF-CONT TO DTL1-AMOUNT.                        DTSBD513
00476      WRITE DOWNLOAD-REC FROM DETAIL-LINE1.                        DTSBD513
00477                                                                   DTSBD513
00478      MOVE 'ADMIN ASSESS'   TO DTL1-LITERAL.                       DTSBD513
00479      MOVE WS-BAL-SELF-SUR  TO DTL1-AMOUNT.                        DTSBD513
00480      WRITE DOWNLOAD-REC FROM DETAIL-LINE1.                        DTSBD513
00481                                                                   DTSBD513
00482      MOVE 'INTEREST'       TO DTL1-LITERAL.                       DTSBD513
00483      MOVE WS-BAL-SELF-INT  TO DTL1-AMOUNT.                        DTSBD513
00484      WRITE DOWNLOAD-REC FROM DETAIL-LINE1.                        DTSBD513
00485                                                                   DTSBD513
00486      MOVE 'PENALTY'        TO DTL1-LITERAL.                       DTSBD513
00487      MOVE WS-BAL-SELF-PEN  TO DTL1-AMOUNT.                        DTSBD513
00488      WRITE DOWNLOAD-REC FROM DETAIL-LINE1.                        DTSBD513
00489                                                                   DTSBD513
00490      MOVE SPACES  TO DOWNLOAD-REC.                                DTSBD513
00491      WRITE DOWNLOAD-REC.                                          DTSBD513
00492                                                                   DTSBD513
00493      MOVE '           ACCOUNTS PAYABLE' TO DOWNLOAD-REC.          DTSBD513
00494      WRITE DOWNLOAD-REC.                                          DTSBD513
00495                                                                   DTSBD513
00496      MOVE 'TAXABLE EMPLOYERS' TO DTL1-LITERAL.                    DTSBD513
00497      MOVE WS-BAL-AP-RATED     TO DTL1-AMOUNT.                     DTSBD513
00498      WRITE DOWNLOAD-REC       FROM DETAIL-LINE1.                  DTSBD513
00499                                                                   DTSBD513
00500      MOVE 'REIMBURSABLE EMPLOYERS' TO DTL1-LITERAL.               DTSBD513
00501      MOVE WS-BAL-AP-SELF           TO DTL1-AMOUNT.                DTSBD513
00502      WRITE DOWNLOAD-REC            FROM DETAIL-LINE1.             DTSBD513
00503                                                                   DTSBD513
00504  P4000-EXIT.                                                      DTSBD513
00505      EXIT.                                                        DTSBD513
00506                                                                   DTSBD513
00507  S001-DATE.                                                       DTSBD513
00508      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD513
00509  S001-EXIT.                                                       DTSBD513
00510      EXIT.                                                        DTSBD513
00511                                                                   DTSBD513
00512  S005-DATE.                                                       DTSBD513
00513      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD513
00514  S005-EXIT.                                                       DTSBD513
00515      EXIT.                                                        DTSBD513
00516                                                                   DTSBD513
00517  S941-OPEN.                                                       DTSBD513
00518      SET L941-OPEN-READ-88 TO TRUE.                               DTSBD513
00519      GO TO S941-I.                                                DTSBD513
00520                                                                   DTSBD513
00521  S941-READ.                                                       DTSBD513
00522      SET L941-READ-NEXT-88 TO TRUE.                               DTSBD513
00523      GO TO S941-I.                                                DTSBD513
00524                                                                   DTSBD513
00525  S941-CLOSE.                                                      DTSBD513
00526      SET L941-CLOSE-88 TO TRUE.                                   DTSBD513
00527      GO TO S941-I.                                                DTSBD513
00528                                                                   DTSBD513
00529  S941-I.                                                          DTSBD513
00530      CALL 'DTSBU941' USING L941-LINK-AREA,                        DTSBD513
00531                            HOLD-ISKL-REC.                         DTSBD513
00532  S941-EXIT.                                                       DTSBD513
00533      EXIT.                                                        DTSBD513
00534                                                                   DTSBD513
00535  S999-ABEND.                                                      DTSBD513
00536      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD513
00537      SKIP2                                                        DTSBD513
00538  S999-EXIT.                                                       DTSBD513
00539      EXIT.                                                        DTSBD513
00540                                                                   DTSBD513
00541  T0000-TERMINATE.                                                 DTSBD513
00542      PERFORM S941-CLOSE THRU S941-EXIT.                           DTSBD513
00543      CLOSE PRT-FILE                                               DTSBD513
00544            DOWNLOAD-FILE.                                         DTSBD513
00545                                                                   DTSBD513
00546  T0000-EXIT.                                                      DTSBD513
00547      EXIT.                                                        DTSBD513
00548                                                                   DTSBD513
